zOs/JCL/PV5020TG

//A540769Y  JOB (CP00,KE50)
//****MAIN CLASS=CMNA                                 *** GENERATE
//JOBLIB    DD DISP=SHR,DSN=PVS.PVSLODV1
//*OBLIB    DD DISP=SHR,DSN=CMN.DIV.P0.PVS0.#000002.LLB
//         SET PR=A540769.TEST.PVS
//DOX      PROC J=VERGESSEN,L=LUFTPOST,IN2=VERGESSEN,P=
//PX       EXEC PGM=PV5020,PARM='T&P'
//*
//SYSPRINT   DD SYSOUT=*
//CEEDUMP    DD SYSOUT=*
//SYSABEND   DD SYSOUT=*
//DDMSG      DD SYSOUT=*
//*
//DDLAND     DD DISP=SHR,DSN=&PR.0.KARTE(&L)
//DDBEIL     DD DISP=SHR,DSN=&PR.&J..INFRA(PVBEILAG)
//DBSPEC     DD DISP=SHR,DSN=&PR.&J..INFRA(DBSPEC)
//DDIN       DD DISP=SHR,DSN=&PR.&J..PVS2POSY
//*DDIN0      DD DISP=SHR,DSN=&PR.&J..PVIERST
//*DDIN1      DD DISP=SHR,DSN=&PR.&J..EINDAT1
//*DDIN2      DD DISP=SHR,DSN=&PR.&J.&IN2
//*
//DDPARM     DD DISP=OLD,DSN=&PR.&J.OUT.PARM
//DDOUT1     DD DISP=OLD,DSN=&PR.&J.OUT.EINDAT1
//DDOUT2     DD DISP=OLD,DSN=&PR.&J.&IN2
//DDSTAT     DD DISP=OLD,DSN=&PR.&J.OUT.PVIERST
//DDSTAT     DD DUMMY
//         PEND
//DO1      PROC J=VERGESSEN,L=LUFTPOST
//P1       EXEC PROC=DOX,J=&J,L=&L,IN2=.INFRA(@FEHLT@),P=
//         PEND
//DO2      PROC J=VERGESSEN,L=LUFTPOST
//P2       EXEC PROC=DOX,J=&J,L=&L,IN2=OUT.EINDAT2,P=
//         PEND
//S1       EXEC PROC=DO2,J=12
//
//S2       EXEC PROC=DO2,J=2
//S3       EXEC PROC=DO1,J=3
//S4       EXEC PROC=DO2,J=4
//S5       EXEC PROC=DO2,J=5