zOs/JCL/PVSTEST

//A540769Y  JOB (CP00,KE50),TIME=30
//****MAIN CLASS=CMNA
//JOBLIB    DD DISP=SHR,DSN=CMN.DIV.P0.A18A.#000004.LLB
//DOX      PROC J=VERGESSEN,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=&PR..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
//*
//DDPARM     DD DISP=OLD,DSN=&PR..&J..PARM
//DDOUT1     DD DUMMY
//DDOUT2     DD DUMMY
//DDIN1      DD DISP=SHR,DSN=&PR..&J..EINDAT1
//DDIN2      DD DISP=SHR,DSN=&PR..&J..&IN2
//DDSTAT     DD DUMMY
//DDIN0      DD DISP=SHR,DSN=&PR..&J..PVIERST
//         PEND
//DO1      PROC J=VERGESSEN,L=LUFTPOST
//P1       EXEC PROC=DOX,J=&J,L=&L,IN2=INFRA(@FEHLT@),P=CB
//         PEND
//DO2      PROC J=VERGESSEN,L=LUFTPOST
//P2       EXEC PROC=DOX,J=&J,L=&L,IN2=EINDAT2,P=CB
//         PEND
//*        SET PR=A540769.TEST.PVS066A
//*S1       EXEC PROC=DO1,J=AU0S1011