zOs/JCL/QC00501T

//A540769P JOB (PD00,KE50,,SP00000000),
//             'FULLCOPY',
//             MSGCLASS=T,
//             TIME=1440,LINES=100000
//* %%GLOBAL GLOBAL
//* %%INCLIB PCL.U0000.P0.RZ2AKT.PERM.@007.JVA  %%INCMEM JOBLRZ2P
//*MAIN CLASS=BS1
//********************************************************************
//*                         JCLPREP   07/12/2004   11:28:05   A509191
//********************************************************************
//*
//P02     EXEC PGM=DSNUTILB,
//             PARM='DBAF,QC00501P.FULCOPY'
//STEPLIB   DD DSN=DB2@.RZ1.P0.DSNLOAD,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//*YSUDUMP  DD DUMMY
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=A540769.WK.DBNEULST(TEMPL),DISP=SHR
//SYSIN     DD DSN=A540769.WK.DBNEULST(QC005011),DISP=SHR
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P03     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=A540769.WK.DBNEUCTL(QC005012),DISP=SHR
// ENDIF
// IF (ABEND OR P02.RC GT 4) THEN
//*
//P04     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD DSN=A540769.WK.DBNEUCTL(QC005013),DISP=SHR
// ENDIF