zOs/JCL/CHECKRPN

//* check RTS  Prozedur für checkRTS ix und TS nach neu
//*                        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  DSN=A540769.WK.REXX,DISP=SHR
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DSN=A540769.CHECKRTX.&MBR..TSNEW,
//             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.OPRTSNEW(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//SCOPY   EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..TSNEW
//SYSUT2    DD DISP=SHR,DSN=A540769.CHECKRTS.OLITSNEW(&MBR)
//IXCHECK EXEC PGM=IKJEFT01,PARM='%CHECKRTS &SUBSYS IX',
//             DYNAMNBR=20
//SYSEXEC  DD  DSN=A540769.WK.REXX,DISP=SHR
//DDIN1    DD  DISP=SHR,DSN=A540769.CHECKRTS.SYSPRINT(&MBR)
//DDIN2    DD  DISP=SHR,DSN=&LIST.(&MBR.1)
//DDOUT1   DD  DSN=A540769.CHECKRTX.&MBR..IXNEW,
//             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.OPRIXNEW(&MBR)
//SYSUDUMP DD  SYSOUT=*
//PLIDUMP  DD  SYSOUT=*
//SCOPY   EXEC PGM=IEBGENER
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=A540769.CHECKRTX.&MBR..IXNEW
//SYSUT2    DD DISP=SHR,DSN=A540769.CHECKRTS.OLIIXNEW(&MBR)
//        PEND