zOs/JCL/TSTCP

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00001000
//         MSGCLASS=T,TIME=1440,                                        00002000
//         NOTIFY=&SYSUID,REGION=0M                                     00003000
//*MAIN CLASS=LOG0                                                      00004000
//A        EXEC PGM=IEFBR14                                             00010000
//A          DD DISP=SHR,DSN=A540769.TMP.TEXT(EINS)                     00011000
//CP       EXEC PGM=IEBGENER                                            00030000
//SYSPRINT DD SYSOUT=*                                                  00040000
//SYSUT1   DD DISP=SHR,DSN=*.A.A                                        00050000
//SYSUT2   DD SYSOUT=*,DISP=(,PASS)                                     00060000
//*YSUT2   DD DISP=(NEW,CATLG,DELETE),DSN=&TO,LIKE=&FROM                00060000
//C2       EXEC PGM=IEBGENER                                            00030000
//SYSPRINT DD SYSOUT=*                                                  00040000
//SYSUT1   DD *                                                         00050000
   und jetzt kommt sysut1 ................
//         DD DISP=SHR,DSN=*.CP.SYSUT2                                  00050000
//         DD *
   und jetzt sind wir nach sysut1 ................
//*YSUT2   DD SYSOUT=*                                                  00060000
//SYSUT2   DD DISP=SHR,DSN=A540769.TMP.TEXW.AUDIT                       00060000