zOs/JCL/SQLMAIL

//A540769T JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//JOBLIB    DD DISP=SHR,DSN=MQM.QP00  <--- DEFAULT Q-MANAGER
//SQL     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             TIME=99
//SYSTSIN   DD *
   DSN SYSTEM(DBBA)
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')
   END
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
//*YSPUNCH  DD DUMMY
//SYSPUNCH  DD SYSOUT=*
//SYSREC00  DD DISP=(NEW,PASS),SPACE=(CYL,(1000,500)),
//             DATACLAS=NULL30,MGMTCLAS=COM#A092,
//*            RECFM=FB,LRECL=80
//             DCB=(LRECL=80,RECFM=FB,BLKSIZE=32760)
//SYSIN     DD *
    select char(
        char(current member, 25) || char(current timestamp)
           , 79)
        from sysibm.sysDummy1
    union all SELECT char(
           char('totalAnzahl', 25) || char(COUNT(*))
           , 79)
        FROM BUA.TXBC111
    union all SELECT char(
              char(EAOF, 25) || char(COUNT(EAOF))
              , 79)
        FROM  BUA.TXBC071 A INNER JOIN BUA.TXBC111 B
              ON A.ENSTORAR = B.ENSTORAR
        GROUP BY EAOF
    WITH UR;
//OS3550  EXEC PGM=OS3550
//IEMLOG    DD SYSOUT=*
//IEMAPI    DD *
*---+----1----+----2----+----3----+----4         ===>   Kommentar Re
SUBJECT    1 test counts
RECPLIST   OAS
SENDERID   A540769
SENDERIDCC Y
DOCTEXT
SSW:
*
to smtp = walter.keller@credit-suisse.com
*
*
SSW:

text vorher
//          DD DISP=OLD,DSN=*.SQL.SYSREC00
text nachher
DOCTEXTEND