zOs/JCL/MAIL2

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG                                                       00040000
//JOBLIB    DD DSN=PCL.U0000.P0.RZ1AKT.PERM.@008.LLB,DISP=SHR
//          DD DSN=MQM.QP00,DISP=SHR
//P07     EXEC PGM=OS3550
//SYSPRINT  DD SYSOUT=*
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD DSN=DSN.QM416A7P.MAIL2,DISP=SHR
//
*---+----1----+----2----+----3----+----4----+----
SUBJECT    Gigabyte Grenze DBAF: OK
RECPLIST   A540769
DOCTEXT
  Gigabyte Grenze DBAF, RZ1, JobName QM416A7P
  Alles im grünen Bereich |||            (07:33:54, 17 Dec 2010, RZ1, QM416A7P)
+-----------------------------------------------------------------------+
|         timestamp          |  member  |      server      |  version   |
+-----------------------------------------------------------------------+
| 2010-12-17-07.33.52.820438 | DAF3     | CHSKA000DBAF     | 23.10.07 a |
+-----------------------------------------------------------------------+
DOCTEXTEND
//
//
// IF (ABEND OR RC GT 07) THEN
//P09     EXEC PGM=OS3550
//SYSPRINT DD  SYSOUT=*
//IEMLOG   DD  SYSOUT=*
//IEMAPI   DD  *
SUBJECT    DBAF:  DB2 JOB %%JOBNAME NICHT OK
AUTHOR     JOB %%JOBNAME
RECPLIST   GGDB2
DOCTEXT
RZ1: JOB '%%JOBNAME' KONSULTIEREN
DOCTEXTEND
// 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