zOs/JCL/PVSTESG

//A540769Y  JOB (CP00,KE50),TIME=30
//****MAIN CLASS=CMNA
//JOBLIB    DD DISP=SHR,DSN=CMN.DIV.P0.A18A.#000004.LLB
//DOX      PROC J=VERGESSENJ,K=VERGESSENK,L=LUFTPOST,IN2=VERGESSEN,P=CB
//PX       EXEC PGM=PV5020,PARM='&P'
//*
//SYSPRINT   DD SYSOUT=*
//CEEDUMP    DD SYSOUT=*
//SYSABEND   DD SYSOUT=*
//DDMSG      DD SYSOUT=*
//*
//DDLAND     DD DISP=SHR,DSN=POSY.RZ1.P0.AKT.KARTE(&L)
//DDBEIL     DD DISP=SHR,DSN=&PRE..&J.4&K..INFRA(PVBEILAG)
//DBSPEC     DD DISP=SHR,DSN=&PRE..&J.4&K..INFRA(DBSPEC)
//DDIN       DD DISP=SHR,DSN=&PRE..&J.3&K..PVS2POSY
//*
//DDPARM     DD DISP=OLD,DSN=&PRE..&J.0&K..PARM
//DDOUT1     DD DUMMY
//DDOUT2     DD DUMMY
//DDIN1      DD DISP=SHR,DSN=&PRE..&J.3&K..EINDAT1
//DDIN2      DD DISP=SHR,DSN=&PRE..&IN2
//DDSTAT     DD DUMMY
//DDIN0      DD DISP=SHR,DSN=&PRE..&J.4&K..PVIERST
//         PEND
//DO1      PROC J=VERGESSENJ,K=VERGESSENK,L=LUFTPOST
//P1       EXEC PROC=DOX,J=&J,K=&K,L=&L,IN2=&J.4&K..INFRA(@FEHLT),P=CB
//         PEND
//DO2      PROC J=VERGESSENJ,K=VERGESSENK,L=LUFTPOST
//P2       EXEC PROC=DOX,J=&J,K=&K,L=&L,IN2=&J.3&K..EINDAT2,P=CB
//         PEND