zOs/JCL/MVEXTUNL

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//DEL      EXEC PGM=IEFBR14
//REC      DD  DISP=(MOD,DELETE),DSN=A540769.CMD.RZ4.REC
//PUN      DD  DISP=(MOD,DELETE),DSN=A540769.CMD.RZ4.PUN
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN  DD *
    DSN SYSTEM(DP4G)
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD SYSOUT=*
//SYSPUNCH DD  RECFM=FB,LRECL=80,
//             DISP=(NEW,CATLG),DSN=*.DEL.PUN,
//             SPACE=(TRK,(1,1)),MGMTCLAS=COM#A069
//SYSREC00 DD  DISP=(NEW,CATLG),DSN=*.DEL.REC,
//             SPACE=(CYL,(2,1000)),MGMTCLAS=COM#A069
//SYSIN      DD *                -- nur jedes 100te query
 select 'RZ4' rz, '?' dbSys, t.*,  current date load
     from oa1p.tAdmCmd t
;