zOs/JCL/CHECKRJ4

//A540769C JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG BOJ 1 first member 1 QR00101
//* check RTS  Prozedur für checkRTS ix und TS nach alt
//*                        und generiertes File in Library kopieren
//*                        zur Benutzung aus checkRJ3
//DOIT    PROC MBR=MBRVERGESSEN,SUBSYS=DBTF,LIST=DBTF.DBAA.LISTDEF
//PREVIEW     EXEC PGM=DSNUTILB,
//*PREVIEW     EXEC PGM=IEFBR14,
//             PARM='&SUBSYS.,&MBR..PREVW'
//SYSPRINT DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR.)
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DSN=&SUBSYS..DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD  DSN=&SUBSYS..DBAA.LISTDEF(OPTPREV),DISP=SHR
//         DD  DSN=&LIST(&MBR.1),DISP=SHR
//TSNEW   EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
//             DYNAMNBR=20
//SYSEXEC  DD  DISP=SHR,DSN=A540769.WK.REXX
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//SYSTSIN  DD  DUMMY
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OPRTSNEW(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//TSOLD   EXEC PGM=IKJEFT01,PARM='%CHECKRT0 &SUBSYS TS',
//             DYNAMNBR=20
//SYSEXEC  DD  DISP=SHR,DSN=A540769.WK.REXX
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DISP=SHR,DSN=A540769.CHECKRTS.OLITSOLD(&MBR)
//SYSTSIN  DD  DUMMY
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OPRTSOLD(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//IXNEW   EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
//             DYNAMNBR=20
//SYSEXEC  DD  DISP=SHR,DSN=A540769.WK.REXX
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
//SYSTSIN  DD  DUMMY
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OPRIXNEW(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//IXOLD   EXEC PGM=IKJEFT01,PARM='%CHECKRT0 &SUBSYS IX',
//             DYNAMNBR=20
//SYSEXEC  DD  DISP=SHR,DSN=A540769.WK.REXX
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DISP=SHR,DSN=A540769.CHECKRTS.OLIIXOLD(&MBR)
//SYSTSIN  DD  DUMMY
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OPRIXOLD(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//COMP    EXEC PGM=IKJEFT01,PARM='%CHECKRTC &MBR',
//             DYNAMNBR=20
//SYSEXEC  DD  DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN  DD  DUMMY
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//        PEND
//P1     EXEC PROC=DOIT,MBR=QR00302
//P2     EXEC PROC=DOIT,MBR=QR00306
//P3     EXEC PROC=DOIT,MBR=QR00308
//P4     EXEC PROC=DOIT,MBR=QR00309
//P5     EXEC PROC=DOIT,MBR=QR00310
//P6     EXEC PROC=DOIT,MBR=QR00316
//
//P7     EXEC PROC=DOIT,MBR=QR35012
//P8     EXEC PROC=DOIT,MBR=QR35013
//P9     EXEC PROC=DOIT,MBR=QR35014
//P10    EXEC PROC=DOIT,MBR=QR35015
//P11    EXEC PROC=DOIT,MBR=QR35016
//P12    EXEC PROC=DOIT,MBR=QR35401
//P13    EXEC PROC=DOIT,MBR=QR35015