zOs/JCL/ROUTEX
//A540769Z JOB (CP00,KE50) 00010000
//****ROUTE XEQ RR2 00020000
//****A540769Z NJB (CP00,KE50) 00030000
//*MAIN CLASS=LOG 00040000
//S1 EXEC PGM=IEFBR14, 00050000
// PARM=' conv;say a b ;; ; num z y;drei;vier ;fuenf' 00060000
//S2 EXEC PGM=IEBGENER 00070000
//SYSPRINT DD SYSOUT=* 00080000
//SYSUT1 DD * 00090000
output zwei - sysout=* dest=RR2 00100000
zwei zeilen vier
//*SYSUT2 DD SYSOUT=*,DEST=RR2 00110000
//SYSUT2 DD DISP=(NEW,PASS),LIKE=A540769.DBX.CDL,DSN=&&S2OUT 00120000
//SYSIN DD * 00130001
GENERATE MAXNAME=2
MEMBER NAME=(TESTIEB2) 01
//S3 EXEC PGM=IEBGENER 00070000
//SYSPRINT DD SYSOUT=* 00080000
//SYSUT1 DD * 00090000
output drei - sysout=* dest=RR2 00100000
2 drei zeilen vier
3 drei zeilen
//*SYSUT2 DD SYSOUT=*,DEST=RR2 00110000
//SYSUT2 DD DISP=(OLD,PASS),LIKE=A540769.DBX.CDL,DSN=&&S2OUT 00120000
//SYSIN DD * 00130001
GENERATE MAXNAME=2
MEMBER NAME=(TESTIEB3) 01
//CP EXEC PGM=IEBCOPY
//SYSIN DD *
COPY INDD=SYSUT1,OUTDD=SYSUT2
SELECT MEMBER=((TESTIEB2,,R), -
(TESTIEB3,,R))
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=(OLD,DELETE),DSN=&&S2OUT
//SYSUT2 DD DISP=SHR,DSN=A540769.DBX.CDL