zOs/JCL/T

//A540769W JOB (CP00,KE50),'DB2 ADMIN',                                 00010019
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020019
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021019
//UNLOAD   EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00022019
//SYSTSIN  DD *                                                         00023019
    DSN SYSTEM(DP4G)                                                    00024019
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')                                   00025019
//SYSTSPRT DD SYSOUT=*                                                  00026019
//SYSPRINT DD SYSOUT=*                                                  00027019
//SYSUDUMP DD SYSOUT=*                                                  00028019
//SYSTERM  DD SYSOUT=*                                                  00029019
//SYSPUNCH DD  SYSOUT=*,RECFM=FB,LRECL=80                               00030019
//SYSREC00 DD DISP=(NEW,CATLG,DELETE),RECFM=FB,LRECL=133,               00040019
//             SPACE=(CYL,(1,50),RLSE),MGMTCLAS=COM#A031,               00050019
//             DSN=A540769.TMP.TT                                       00060019
//SYSIN      DD *                                                       00070019
select char('xdoc,summary,$dbsys,' || char(current timestamp)           00080019
            , 130)                                                      00090019
    from sysibm.sysdummy1                                               00100019
;                                                                       00110019