zOs/JCL/QM416G0P

//QM416G0P JOB (PD00,KE50,,SP00000000),
//             'GB GRENZE DP2G',
//             MSGCLASS=T,
//             TIME=1440
//*MAIN CLASS=LOG
//********************************************************************
//*                         JCLPREP   07/11/2008   13:03:30   A965472
//********************************************************************
//*
//P00     EXEC PGM=IEFBR14
//M1        DD DSN=A540769.QM46P.MAIL1,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=BAT#WK,
//             SPACE=(CYL,(1,1)),
//             RECFM=FBA,LRECL=133,BLKSIZE=13300
//M2        DD DSN=A540769.QM46P.MAIL2,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=BAT#WK,
//             SPACE=(CYL,(1,1)),
//             RECFM=FB,LRECL=80,BLKSIZE=800
//*
// IF P00.RC = 0 THEN
//P01     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DP2G)
  RUN  PROGRAM(DSNTEP2)
 END
//SYSIN     DD DSN=DP2G.DBAA.LCTL(QM416G01),DISP=SHR
//* DATEN VOM LISTCAT
// ENDIF
//*
// IF RC < 5 THEN
//P02     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSTSIN   DD *
  %GBGRENZE DP2G
//* FÜLLT DIE NEUNER TABELLE
// ENDIF
//*
// IF RC < 5 THEN
//P03     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DP2G)
  RUN  PROGRAM(DSNTEP2)
 END
//SYSIN     DD DSN=DP2G.DBAA.LCTL(QM416G02),DISP=SHR
//* RUNSTATS AUF TS
// ENDIF
//*
// IF RC < 5 THEN
//P04     EXEC PGM=DSNUTILB,
//             PARM='DP2G'
//STEPLIB   DD DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//DSSPRINT  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//SYSIN     DD DSN=DP2G.DBAA.LCTL(QM416G03),DISP=SHR
//* ERGEBNIS DER VERSCHIEDENEN GB GRENZEN
// ENDIF
//*
// IF RC < 5 THEN
//P05     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD DSN=A540769.QM46P.MAIL1,DISP=OLD
//SYSUDUMP  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DP2G)
  RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
 END
//SYSIN     DD DSN=DP2G.DBAA.LCTL(QM416G04),DISP=SHR
// ENDIF
//* %%IF %%ENV EQ PROD
//*********PROD
//*
// IF RC < 5 THEN
//* FORMATIERT DEN E-MAIL OUTPUT
//P06     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPROC   DD DSN=TSO.RZ2.P0.PROD.EXEC,DISP=SHR
//IN        DD DSN=A540769.QM46P.MAIL1,DISP=OLD
//OUT       DD DSN=A540769.QM46P.MAIL2,DISP=OLD
//MAILIN    DD *
*---+----1----+----2----+----3----+----4----+----
SUBJECT    GIGABYTE GRENZE DP2G: $SUB
RECPLIST   GGDB2
DOCTEXT
  GIGABYTE GRENZE DP2G, RZ2, JOBNAME %%JOBNAME
$@TEXT
DOCTEXTEND
//SYSTSIN   DD *
  %GB#V310
// ENDIF