zOs/JCL/CHECKRPO

//* 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=SUBSYSVERGESSEN,LIST=VERGESSEN
//TSCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS TS',
//             DYNAMNBR=20
//SYSEXEC  DD  DISP=SHR,DSN=TSO.RZ1.P0.USER.EXEC
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DSN=A540769.CHECKRTX.&MBR..TSOLD,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=COM#E005,
//             RECFM=FB,LRECL=80
//SYSTSIN  DD  DUMMY
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OPRTSOLD(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//SCOPY   EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSOLD
//SYSUT2    DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSOLD(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
//             DYNAMNBR=20
//SYSEXEC  DD  DISP=SHR,DSN=TSO.RZ1.P0.USER.EXEC
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DSN=A540769.CHECKRTX.&MBR..IXOLD,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=COM#E005,
//             RECFM=FB,LRECL=80
//SYSTSIN  DD  DUMMY
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  DISP=SHR,DSN=A540769.CHECKRTS.OPRIXOLD(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//SCOPY   EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXOLD
//SYSUT2    DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXOLD(&MBR)
//        PEND