zOs/JCL/SQLFOR

//A540769D  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=LOG,SYSTEM=S12
//FOR01    OUTPUT  CHARS=SC12,DEST=BJI6,
//             FORMDEF=EFA4,FORMS=7817,
//             PAGEDEF=A4Q08P
//S01      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//*YSPRINT  DD SYSOUT=*,DCB=(RECFM=FB,LRECL=133,BLKSIZE=13300)
//*                 ,OUTPUT=*.FOR01
//SYSPRINT  DD SYSOUT=* 2,OUTPUT=*.FOR01
//*SYSPRINT  DD DISP=(NEW,PASS),DCB=(RECFM=FBA,LRECL=133,BLKSIZE=13300)
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSINX   DD DISP=SHR,DSN=A540769.WK.SQL(TWK09TS)
//SYSIN    DD * DISP=SHR,DSN=DSN.DBADM.PERF(TOP99SU)
SELECT *
    FROM
       SYSIBM.SYSDUMMY1
UNION
SELECT *
    FROM
       SYSIBM.SYSDUMMY1 ;
--SELECT NAME FROM SYSIBM.SYSDATABASE;
SELECT *
    FROM
       SYSIBM.SYSDUMMY1 ;
//SYSINY   DD *
//********************* COPY OUTPUT
//
//CP       EXEC PGM=IEBGENER                                            00030000
//SYSPRINT DD SYSOUT=*                                                  00040000
//*YSUT1   DD DISP=OLD,DSN=A540769.TEST.OUT                             00050000
//SYSUT1   DD DISP=OLD,DSN=*.S01.SYSPRINT                               00050000
//SYSUT2   DD SYSOUT=2,OUTPUT=*.FOR01                                   00060000