zOs/JCL/PVT3100P

//PVT3100P JOB (OS09,KE50,,SP00000000),
//             'IS-ACC 1 TO RZ1',
//             MSGCLASS=E
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA  %%INCMEM JOBLRZ2P
//*MAIN CLASS=PVS
//********************************************************************
//*                         JCLPREP   05/07/2005   11:28:01   A509191
//********************************************************************
//*
//P02     EXEC PGM=PV7130,
//             PARM='DBOF PV7130 PVX0100P'
//STEPLIB   DD DSN=PVS.PVSLODV1,DISP=SHR
//DDPARM    DD DSN=PVSP.U0000.P0.PARM(PV7130),DISP=SHR
//DDISACC1  DD DSN=PVSP.U0000.P0.PV7130.%%DTVAR,
//             DISP=(,CATLG,DELETE),
//             MGMTCLAS=COM#E005,
//             SPACE=%%#SPC1,
//             RECFM=VBA,LRECL=9072
//SYSTERM   DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSABEND  DD SYSOUT=*
//CEEDUMP   DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
// IF P02.RC = 0 THEN
//*
//P03     EXEC PGM=OS2900
//SYSPRINT  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSUT1    DD DSN=*.P02.DDISACC1,DISP=SHR
//DDIN      DD *
DSN='PVSP.U0000.P0.PV7130.RZ2.DATA'
DEST='RZ1'
DUPLI='RETRY'
MGMTCLAS='COM#A092'
WAIT='YES'
// ENDIF
// IF RC = 0 THEN
//*
//P04     EXEC PGM=OS2900
//SYSPRINT  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSUT1    DD DSN=WGR.RZ2.P0.AKT.LST.LOG,DISP=SHR
//DDIN      DD *
DSN='WGR.U0034.P0.VERR.LST.RZ2.LOG'
DEST='RZ1'
DISP='NEW'
DUPLI='SCRATCH'
MGMTCLAS='COM#A092'
WAIT='YES'
// ENDIF