zOs/JCL/QM41661P

//QM41661P JOB (PD00,KE50,,SP00000000),
//             'GB GRENZE',
//             MSGCLASS=T,
//             TIME=1440
//*MAIN CLASS=LOG
//*                                    ALLOC TEMPORARY DSNS
//********************************************************************
//*                         JCLPREP   04/11/2008   14:03:10   A965472
//********************************************************************
//*
//P00     EXEC PGM=IEFBR14
//M1         DD DSN=A540769.QM461.MAIL1,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=BAT#WK,
//             SPACE=(CYL,(1,1)),
//             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=13300)
//M2         DD DSN=A540769.QM461.MAIL2,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=BAT#WK,
//             SPACE=(CYL,(1,1)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//*
//P01     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DVBP)
  RUN  PROGRAM(DSNTEP2)
 END
//SYSIN     DD DSN=DVBP.DBAA.LCTL(QM416611),DISP=SHR
//* DATEN VOM LISTCAT
//*
// IF RC < 5 THEN
//P02     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSTSIN   DD *
  %GBGRENZE DVBP
//* 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(DVBP)
  RUN  PROGRAM(DSNTEP2)
 END
//SYSIN     DD DSN=DVBP.DBAA.LCTL(QM416612),DISP=SHR
//* RUNSTATS AUF TS
// ENDIF
//*
// IF RC < 5 THEN
//P04     EXEC PGM=DSNUTILB,
//             PARM='DVBP'
//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=DVBP.DBAA.LCTL(QM416613),DISP=SHR
//* ERGEBNIS DER VERSCHIEDENEN GB GRENZEN
// ENDIF
//*
// IF RC < 5 THEN
//P05     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD DSN=A540769.QM461.MAIL1,DISP=OLD
//SYSUDUMP  DD SYSOUT=*
//PLIDUMP   DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DVBP)
  RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
 END
//SYSIN     DD DSN=DVBP.DBAA.LCTL(QM416614),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.QM461.MAIL1,DISP=OLD
//OUT       DD DSN=A540769.QM461.MAIL2,DISP=OLD
//MAILIN    DD *
*---+----1----+----2----+----3----+----4----+----
SUBJECT    GIGABYTE GRENZE DVBP: $SUB
RECPLIST   GGDB2
DOCTEXT
  GIGABYTE GRENZE DVBP, RZ2, JOBNAME %%JOBNAME
$@TEXT
DOCTEXTEND
//SYSTSIN   DD *
  %GB#V310
// ENDIF