zOs/JCL/QM416A7P

//QM416A7P JOB (PD00,KE50,,SP00000000),
//             'GB GRENZE',
//             MSGCLASS=T,
//             TIME=1440
//*MAIN CLASS=DBAF
//*                                    ALLOC TEMPORARY DSNS
//********************************************************************
//*                         JCLPREP   07/15/2013   12:49:45   F965472
//********************************************************************
//*
//P00     EXEC PGM=IEFBR14
//M1         DD DSN=DSN.QM416A7P.MAIL1,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=BAT#WK,
//             SPACE=(CYL,(1,1)),
//             RECFM=VB,LRECL=133,BLKSIZE=13300
//M2         DD DSN=DSN.QM416A7P.MAIL2,
//             DISP=(MOD,CATLG,CATLG),
//             MGMTCLAS=BAT#WK,
//             SPACE=(CYL,(1,1)),
//             RECFM=FB,LRECL=80,BLKSIZE=800
//*
//P05     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD DSN=DSN.QM416A7P.MAIL1,DISP=OLD
//SYSUDUMP  DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DBAF)
  RUN PROGRAM (DSNTEP2) PLAN(DSNTEP2) PARMS('/ALIGN(LHS) MIXED')
 END
//SYSIN     DD DSN=DBAF.DBAA.LCTL(QM416204),DISP=SHR
//*YSIN     DD DSN=A540769.WK.SQL(QM416204),DISP=SHR
//*
// IF RC < 5 THEN
//* FORMATIERT DEN E-MAIL OUTPUT
//P06     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPROC   DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//IN        DD DSN=DSN.QM416A7P.MAIL1,DISP=OLD
//OUT       DD DSN=DSN.QM416A7P.MAIL2,DISP=OLD
//MAILIN    DD DSN=DBAF.DBAA.LCTL(QM416205),DISP=SHR
//SYSTSIN   DD *
  %GB#V310
//*  MAIL VERSENDEN
// ENDIF
//*
// IF RC < 5 THEN
//P07     EXEC PGM=OS3550
//SYSPRINT  DD SYSOUT=*
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD DSN=DSN.QM416A7P.MAIL2,DISP=SHR
// ENDIF
//*
// IF (ABEND OR RC GT 07) THEN
//P09     EXEC PGM=OS3550
//SYSPRINT DD  SYSOUT=*
//IEMLOG   DD  SYSOUT=*
//IEMAPI   DD  DSN=DBAF.DBAA.LCTL(QM416206),DISP=SHR
// ENDIF
//*
// IF P07.RC > 0 | P09.RC > 0 THEN
//P10     EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD *
SUBJECT    UNGUELTIGER EMAIL EMPFAENGER ODER FILE ZU GROSS %%JOBNAME
RECPLIST   A397559
//          DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@005.JNA(PUOS355P),DISP=SHR
// ENDIF