zOs/JCL/PV5020TC

//A540769Y  JOB (CP00,KE50)
//****MAIN CLASS=CMNA                                 *** COMPARE
//JOBLIB    DD DISP=SHR,DSN=CMN.DIV.P0.A18A.#000004.LLB
//         SET PR=A540769.TEST.PVT
//DOX      PROC J=VERGESSEN,L=LUFTPOST,IN2=VERGESSEN
//PX       EXEC PGM=PV5020,PARM='TC'
//*
//SYSPRINT   DD SYSOUT=*
//CEEDUMP    DD SYSOUT=*
//SYSABEND   DD SYSOUT=*
//DDMSG      DD SYSOUT=*
//*
//DDLAND     DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.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@)
//         PEND
//DO2      PROC J=VERGESSEN,L=LUFTPOST
//P2       EXEC PROC=DOX,J=&J,L=&L,IN2=.EINDAT2
//         PEND
//S1       EXEC PROC=DO1,J=1
//S2       EXEC PROC=DO2,J=2
//S3       EXEC PROC=DO1,J=3
//S4       EXEC PROC=DO1,J=4
//S5       EXEC PROC=DO2,J=5