zOs/JCL/QGS400UP

//QGS400UP JOB (PD00,KE50,,SP00000000),
//             'GENERIERUNG COPY   ',
//             MSGCLASS=T,
//             SCHENV=DP4G,
//             TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//*                         JCLPREP   07/16/2013   11:15:26   F965472
//********************************************************************
//*
//P02     EXEC PGM=PTLDRIVM,
//             PARM='EP=RALMCTL/',
//             REGION=5M
//STEPLIB  DD  DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTILIB   DD  DSN=DSN.CADB2.RZ4.P0.CDBALOAD,DISP=SHR
//PTIPARM  DD  DSN=DSN.CADB2.RZ4.P0.CDBAPARM,DISP=SHR
//PTIMSG   DD  SYSOUT=*
//SYSPRINT DD DUMMY
//SYSUDUMP DD  SYSOUT=*
//ABNLIGNR DD DUMMY                             SUPPRESS ABENDAID DUMPS
//SYSTSPRT DD DUMMY
//PTIIPT   DD  DSN=DP4G.DBAA.LCTL(QGS400UP),DISP=SHR
//*
// IF P02.RC < 5 THEN
//P03     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20,
//             REGION=0M
//SYSEXEC  DD  DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN  DD  *
  %TECSVREN DSN.CADB2.DP4G.JOBS DP4G FIC
//SYSIN    DD  DUMMY
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD  SYSOUT=*
// ENDIF