zOs/JCL/PVT7600P

//PVT7600P JOB (OS09,KE50,,SP00000000),
//             'PVSTRACK DSN SENDEN ',
//             MSGCLASS=E,
//             TIME=15
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA  %%INCMEM JOBLRZ2P
//*
//         SET PHASE=PVSP.RZ2.P0.PVSTRACK.PHASE
//         SET FILELIST=PVSP.RZ2.P0.PVSTRACK.FILELIST
//         SET PARM=WGR.RZ2.P0.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,                      00020001
//            PARM='%PVSRTRAC PROD'
//*                          DD FUER TSO
//SYSPROC   DD DSN=PVSP.U0000.P0.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 ANALOG ==> PROC CD01SKA1
//DMPUBLIB  DD  DSN=JOBP.FT2A.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=*