zOs/JCL/QGR100UP

//QGR100UP JOB (PD00,KE50,,SP00000000),
//             'GENERIERUNG RUNSTAT',
//             MSGCLASS=T,
//             TIME=1440,
//             SCHENV=DP4G
//*MAIN CLASS=LOG
//********************************************************************
//*                         JCLPREP   07/16/2013   11:14:30   F965472
//********************************************************************
//*
//P01     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(QGR100UP),DISP=SHR
//*
// IF P01.RC < 5 THEN
//P02     EXEC PGM=IKJEFT01,
//             DYNAMNBR=20,
//             REGION=0M
//SYSEXEC  DD  DSN=DSN.CADB2.CS.EXEC,DISP=SHR
//SYSTSIN  DD  *
  %TECSVREN DSN.CADB2.DP4G.JOBS DP4G RUNS
//SYSIN    DD  DUMMY
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*,RECFM=F,LRECL=132
//SYSUDUMP DD  SYSOUT=*
// ENDIF