Sécurité des TABLESPACES : - Controle des TABLESPACES sans IMAGE COPY SET CURRENT SQLID = 'xxx' SELECT DISTINCT A.TSNAME,A.DBNAME,A.STORNAME,B.CREATOR FROM SYSIBM.SYSTABLEPART A,SYSIBM.SYSTABLESPACE B WHERE (A.TSNAME = B.NAME) AND (A.DBNAME LIKE 'xxx%') AND (CREATOR = 'xxxx') AND NOT EXISTS(SELECT * FROM SYSIBM.SYSCOPY C WHERE (A.TSNAME=C.TSNAME) AND ICDATE='aa0jjj')) ORDER BY A.TSNAME ASC; - Executer des points de cohérence (QUIESCE) QUIESCE TABLESPACE RDPM01.RS0MOPMK TABLESPACE RDPM01.RS0MOPCI TABLESPACE RDPM01.RS0MOPAR - Executer des listes de controle sur les images copies (REPORT) REPORT RECOVERY TABLESPACE RDPM01.RS0MAF DSNUM ALL REPORT RECOVERY TABLESPACE RDPM01.RS0MAFAF DSNUM ALL REPORT RECOVERY TABLESPACE RDPM01.RS0MAFFO DSNUM ALL - Executer des sauvegardes (copie d'image) des TABLESPACES (COPY) COPY TABLESPACE RDPM01.RS0MAF COPYDDN COPY1 COPY TABLESPACE RDPM01.RS0MAFAF COPYDDN COPY2 COPY TABLESPACE RDPM01.RS0MAFFO COPYDDN COPY3 - Executer les suppressions des copies d'images (MODIFY) MODIFY RECOVERY TABLESPACE RDPM01.RS0MAF DELETE AGE n MODIFY RECOVERY TABLESPACE RDPM01.RS0MAFAF DELETE AGE n MODIFY RECOVERY TABLESPACE RDPM01.RS0MAFFO DELETE AGE n -Executer l'archivage des LOG -ARCHIVE LOG MODE(QUIESCE) Exemple de JCL : //SB0201 JOB 'DB2P',CLASS=A,MSGCLASS=4,REGION=4096K //*--------------------------------------------------------------------- //JOBLIB DD DSN=DSN410.SDSNLOAD,DISP=SHR // DD DSN=DSN410.RUNLIB.LOAD,DISP=SHR // DD DSN=PLI.V2R3M0.SIBMLINK,DISP=SHR // DD DSN=PLI.V2R3M0.PLILINK,DISP=SHR //*--------------------------------------------------------------------- //* POINT QUIESCE (COHERENCES DES DB) //*--------------------------------------------------------------------- //SB020110 EXEC DSNUPROC, // SYSTEM='DB2P',UID='QUIESPR',UTPROC='', // COND=(0,NE) //SYSIN DD DSN=PROD.DB2.JCL(QUIESCE),DISP=SHR //*--------------------------------------------------------------------- //* REPORT RECOVERY TABLESPACE //*--------------------------------------------------------------------- //SB020115 EXEC DSNUPROC,SYSTEM='DB2P',UID='REPORT',UTPROC='', // COND=(4,LT) //SYSIN DD DSN=PROD.DB2.JCL(REPORT),DISP=SHR //*--------------------------------------------------------------------- //* CREATE IMAGE COPIES OF ALL THE PROD TABLES //* DIRECTORY/CATALOG IMAGE COPY STEP //*--------------------------------------------------------------------- //SB020120 EXEC DSNUPROC, // SYSTEM='DB2P',UID='ICTSPR',UTPROC='', // COND=(4,LT) //COPY1 DD UNIT=CTAPE,DISP=(NEW,CATLG,CATLG), // DSN=SAVE.IMAGCOPY.RS0MOPMK(+1), // VOL=(,RETAIN), // LABEL=1, // DCB=(DSCB,TRTCH=COMP) //SYSIN DD * COPY TABLESPACE RDPM01.RS0MOPMK COPYDDN COPY1 //*--------------------------------------------------------------------- //SB020125 EXEC DSNUPROC, // SYSTEM='DB2P',UID='ICTSPR',UTPROC='', // COND=(4,LT) //VOLREF DD DSN=SAVE.IMAGCOPY.RS0MOPMK(+1),DISP=OLD //COPY2 DD UNIT=CTAPE,DISP=(NEW,CATLG,CATLG), // DSN=SAVE.IMAGCOPY.RS0MOPCI(+1), // VOL=(,RETAIN,REF=*.VOLREF), // LABEL=2, // DCB=(DSCB,TRTCH=COMP) //SYSIN DD * COPY TABLESPACE RDPM01.RS0MOPCI COPYDDN COPY2 //*--------------------------------------------------------------------- //* DELETE COPIES CATALOGUE OLD THAN 6 JOURS //*--------------------------------------------------------------------- //SB020130 EXEC DSNUPROC, // SYSTEM='DB2P',UID='MODIFYPR',UTPROC='', // COND=(4,LT) //SYSIN DD DSN=PROD.DB2.JCL(MODIFY),DISP=SHR //*--------------------------------------------------------------------- //*- SWAP LOG + RBA //*--------------------------------------------------------------------- //SB020135 EXEC PGM=IKJEFT01,DYNAMNBR=20, // COND=(0,NE) //DBRMLIB DD DSN=DSN410.DBRMLIB.DATA,DISP=SHR //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(DB2P) -ARCHIVE LOG MODE(QUIESCE) //*---------------------------------------------------------------------