zOs/JCL/PVT3102P

//PVT3102P JOB (OS09,KE50,,SP00000000),
//             'IS-ACC 1 FROM RZ2',
//             MSGCLASS=E
//USEDPROC JCLLIB  ORDER=(IOA.U0000.P0.RZ1I.PROCLIB,
//             JOB.U0000.P0.RZ1AKT.OVER.@005.JPO,
//             PCL.U0000.P0.RZ1AKT.PERM.@005.JPO,
//             PCL.U0000.P0.RZ1AKT.PERM.@007.JVA)
//JOBLB  INCLUDE MEMBER=JOBLRZ1P
//**#AUSLOESUNG
//*LOGONID S100463
//*MAIN CLASS=BS2
//*                         JCLPREP   30/11/2001   09:51:50   A203955
//********************************************************************
//*
//P01     EXEC PGM=ICETOOL
//TOOLMSG   DD SYSOUT=*
//DFSMSG    DD SYSOUT=*
//DDI01     DD DSN=PVSP.U0000.P0.PV7130.RZ2.DATA,
//             DISP=(SHR,DELETE)
//DDO01     DD DSN=DWS.DIV.P0.PVS.RZ2.DATA(+1),
//             DISP=(,CATLG,DELETE),
//             MGMTCLAS=COM#E005,
//             SPACE=(TRK,(1,1),RLSE),
//             RECFM=VBA,LRECL=9072
//SYSPRINT  DD SYSOUT=*
/*
//TOOLIN    DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(COPY01),DISP=SHR
//*********************************************************************
//* JESOUTPUT VERRECHNEN                                              *
//*********************************************************************
//P02     EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                       00020001
//          PARM=('%PVSRWGRV RZ1 RZ2')
//SYSIN     DD DUMMY
//SYSTSIN   DD DUMMY
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
//SYSPROC   DD DISP=SHR,DSN=PVSP.U0000.P0.CLIST
//LOGRZ1    DD DISP=OLD,DSN=WGR.RZ1.P0.AKT.LST.LOG
//LOGRZ2    DD DISP=OLD,DSN=WGR.U0034.P0.VERR.LST.RZ2.LOG
//VERRLOG   DD DISP=(MOD,CATLG,KEEP),DSN=WGR.U0034.P0.VERR.LST.DAY.LOG,
//            MGMTCLAS=COM#A092,
//            SPACE=(TRK,(1,10)),
//            RECFM=VB,LRECL=1023
//VERR      DD DSN=WGR.U0034.P0.VERR.LST.DWS.DATA(+1),
//            DISP=(,CATLG,DELETE),
//            MGMTCLAS=COM#A092,
//            SPACE=(TRK,(1,1),RLSE),
//            RECFM=VBA,LRECL=9072
//*********************************************************************
//* AUS2: PVS-R2 PDB-LOAD DWT02M2S AUSLÖSEN                           *
//*********************************************************************
//*
// IF P01.RC = 0 THEN
//P99     EXEC PROC=CTMCND
//SYSIN     DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@007.JVA(PVT3102P),
//             DISP=SHR
// ENDIF