zOs/JCL/PT

//A540769P  JOB (CP00,KE50),TIME=99                                     00010001
//*MAIN CLASS=CMNA
//*
//         SET PHASE=A540769.TEST.PVSTRACK.PHASE
//         SET FILELIST=A540769.TEST.PVSTRACK.FILELIST
//         SET PARM=A540769.WK.REXX(PTPARM)
//*
//*                      ALLOCATE DSNS IF NON EXISTANT
//*
//S1       EXEC PGM=IEFBR14
//PHASE    DD  DISP=(MOD,CATLG,DELETE),DSN=&PHASE,
//           MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//FILELIST DD  DISP=(MOD,CATLG,DELETE),DSN=&FILELIST,
//           MGMTCLAS=COM#A092,DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
//*
//*                      CONSOLIDATE TRACK FILES
//*
//S2       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,PARM='%PT WAK'        00020001
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//PHASE     DD DISP=OLD,DSN=&PHASE
//FILELIST  DD DISP=OLD,DSN=&FILELIST
//PARM      DD DISP=SHR,DSN=&PARM
//*                          DD FUER CD GEMÄSS ===> PROC CD01SKA1
//DMPUBLIB  DD  DSN=JOBP.FT1A.PRCS,DISP=SHR
//          DD  DSN=SFT.DIV.X0.CD.PRCS,DISP=SHR
//DMNETMAP  DD  DSN=SFT.SKA.P0.CD.NETMAP,DISP=SHR
//DMMSGFIL  DD  DSN=SFT.DIV.X0.CD.MSG,DISP=SHR
//DMPRINT   DD  SYSOUT=*