zOs/JCL/PV5020SC

//A540769Z  JOB (CP00,KE50)
//****MAIN CLASS=CMNA                    ***** COMPARE
//*OBLIB    DD DISP=SHR,DSN=PVS.PVSLODV1
//JOBLIB    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='&P'
//*
//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@),P=C
//         PEND
//DO2      PROC J=VERGESSEN,L=LUFTPOST
//P2       EXEC PROC=DOX,J=&J,L=&L,IN2=.EINDAT2,P=C
//         PEND
//S1       EXEC PROC=DO2,J=11
//
//S2       EXEC PROC=DO2,J=2
//S3       EXEC PROC=DO1,J=3
//S4       EXEC PROC=DO1,J=4
//S5       EXEC PROC=DO1,J=5
//S6       EXEC PROC=DO1,J=6
//S7       EXEC PROC=DO1,J=7