zOs/JCL/QC51501P

//QC51501P JOB (PD00,KE50,,SP00000000),
//             'INCCOPY',
//             MSGCLASS=E,
//             TIME=1440
//*OMS NET=%%GROUP
//**CONTROL-M-JOB
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA  %%INCMEM JOBLRZ2P
//*MAIN CLASS=SUBP2
//********************************************************************
//*                         JCLPREP   07/12/2004   11:28:05   A509191
//********************************************************************
//*
//P02     EXEC PGM=DSNUTILB,
//             PARM='DBOF,QC51501P.INCCOPY'
//STEPLIB   DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD DSN=DBOF.DBAA.LISTDEF(QC515011),DISP=SHR
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P03     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=DBOF.DBAA.LCTL(QC515012),DISP=SHR
// ENDIF
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P04     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=DBOF.DBAA.LCTL(QC515013),DISP=SHR
// ENDIF