zOs/JCL/PVT760MT

//PVT760MT JOB (OS09,KE50,,SP00000000),
//             'PVSTRACK DSN SENDEN ',TIME=15,MSGCLASS=T
//*
//         SET PHASE=PVSP.RZ1.P0.PVSTRACK.PHASE
//         SET FILELIST=PVSP.RZ1.P0.PVSTRACK.FILELIST
//         SET PARM=WGR.RZ1.T0.AKT.PARMLIB(PVT7600)
//*
//*                          S1: 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)
//*
//*                          S2: CONSOLIDATE TRACK FILES AND SEND OUT
//*
//S2       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='%PVSRTRAC TEST'
//*                          DD FUER TSO
//SYSPROC   DD DSN=PVSP.U0000.T0.CLIST,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//*                          DD FUER REXX PVSRTRAC
//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=*