//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/124)
//IN2 DD DSN=... input file2 (FB/2)
//CTL2CNTL DD DSN=&&C2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
// DD *
OUTFIL FNAMES=OUT2,SAVE
/*
//OUT1 DD DSN=... output file1 (FB/124)
//OUT2 DD DSN=... output file2 (FB/124)
//TOOLIN DD *
COPY FROM(IN2) USING(CTL1)
COPY FROM(IN1) USING(CTL2)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=CTL2CNTL,REMOVECC,
HEADER1=(' OUTFIL FNAMES=OUT1,INCLUDE=(1,1,CH,NE,1,1,CH,OR,'),
BUILD=(C' 17,2,CH,EQ,C''',1,2,C''',OR,',80:X),
TRAILER1=(' 1,1,CH,NE,1,1,CH)')
/*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/124)
//IN2 DD DSN=... input file2 (FB/2)
//CTL2CNTL DD DSN=&&C2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
// DD *
OUTFIL FNAMES=OUT2,SAVE
/*
//OUT1 DD DSN=... output file1 (FB/124)
//OUT2 DD DSN=... output file2 (FB/124)
//TOOLIN DD *
COPY FROM(IN2) USING(CTL1)
COPY FROM(IN1) USING(CTL2)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=CTL2CNTL,REMOVECC,
HEADER1=(' OUTFIL FNAMES=OUT1,INCLUDE=(1,1,CH,NE,1,1,CH,OR,'),
BUILD=(C' 17,2,CH,EQ,C''',1,2,C''',OR,',80:X),
TRAILER1=(' 1,1,CH,NE,1,1,CH)')
/*