zOs/JCL/CHECKRJ1

//A540769S JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//*              test job für checkRTS
//*                  preview Liste
//*                  checkRts laufen lassen und List in Library kopieren
//*                           nach alt und neu
//*
//        SET  MBR=QR20801
//P02     EXEC PGM=DSNUTILB,
//             PARM='DBAF,&MBR.P.PREVIEW'
//SYSPRINT DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD  DSN=DBAF.DBAA.LISTDEF(OPTPREV),DISP=SHR
//         DD  DSN=A540769.CHECKRTS.LISTDEF(&MBR.1),DISP=SHR
//*        DD  DSN=DBAF.DBAA.LISTDEF(QR032111),DISP=SHR
//P04OLD  EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//*YSEXEC  DD  DSN=TSO.RZ1.P0.USER.EXEC,DISP=SHR
//SYSEXEC  DD  DSN=A540769.WK.REXX,DISP=SHR
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=A540769.CHECKRTS.LISTDEF(&MBR.1)
//DDOUT1   DD  DSN=A540769.CHECKRTX.&MBR.O,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=COM#E005,
//             RECFM=FB,LRECL=80
//SYSTSIN  DD  *
  %CHECKRT0 DBAF TS
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OUTPROLD(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//P05     EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR.O
//SYSUT2    DD DISP=SHR,DSN=A540769.CHECKRTS.OUTLINEW(&MBR)
//P06NEW  EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSEXEC  DD  DSN=A540769.WK.REXX,DISP=SHR
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=A540769.CHECKRTS.LISTDEF(&MBR.1)
//DDOUT1   DD  DSN=A540769.CHECKRTX.&MBR.N,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=COM#E005,
//             RECFM=FB,LRECL=80
//SYSTSIN  DD  *
  %CHECKRTS DBAF TS
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OUTPRNEW(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//P07     EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR.N
//SYSUT2    DD DISP=SHR,DSN=A540769.CHECKRTS.OUTLINEW(&MBR)
//
//*
// IF RC < 5 THEN
//* REORG FÜR TABLESPACES AUSFÜHREN
//P05     EXEC PGM=DSNUTILB,
//             PARM='DBAF,QR03211P.REORG'
//STEPLIB  DD  DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD  DSN=DBAF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF RC < 5 THEN
//* RTS FÜR INDEXE CHECKEN, OUTPUT ERSTELLEN
//P06     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20
//SYSEXEC  DD  DSN=TSO.RZ2.P0.USER.EXEC,DISP=SHR
//DDIN1    DD  DSN=DSN.SYSPRINT.QR03211P,DISP=SHR
//DDIN2    DD  DSN=DBAF.DBAA.LISTDEF(QR032111),DISP=SHR
//DDOUT1   DD  DSN=DBAF.DBAA.LISTDEF.QR03211P,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=COM#E005,
//             RECFM=FB,LRECL=80
//SYSTSIN  DD  *
  %CHECKRTS DBAF IX
//SYSIN    DD  DUMMY
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
// ENDIF
//*
// IF RC < 5 THEN
//* REORG FÜR INDEXE AUSFÜHREN
//P07     EXEC PGM=DSNUTILB,
//             PARM='DBAF,QR03211P.REORG'
//STEPLIB  DD  DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD  DSN=DBAF.DBAA.LISTDEF.QR03211P,DISP=SHR
// ENDIF
//*
// IF ((ABEND) OR (P05.RC GT 4) OR (P07.RC GT 4)) THEN
//* TERM UTIL
//P08     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=DBAF.DBAA.LCTL(QR032112),DISP=SHR
//* DISPLAY DATABASE
//*
//P09     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=DBAF.DBAA.LCTL(QR032113),DISP=SHR
// ENDIF