IBM Mainframe Forum

//S1    EXEC  PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//IN1 DD DSN=...  input file1
//IN2 DD DSN=...  input file2
//IN3 DD DSN=...  input file3
...
//RPT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(RPT) USING(CTL1)
COPY FROM(IN2) TO(RPT) USING(CTL2)
COPY FROM(IN3) TO(RPT) USING(CTL3)
...
//CTL1CNTL DD *
  OUTFIL FNAMES=RPT,REMOVECC,NODETAIL,BUILD=(30X),
    TRAILER1=('DSN1 -',COUNT=(M10,LENGTH=8),' RECORDS')
//CTL2CNTL DD *
  OUTFIL FNAMES=RPT,REMOVECC,NODETAIL,BUILD=(30X),
    TRAILER1=('DSN2 -',COUNT=(M10,LENGTH=8),' RECORDS')
//CTL3CNTL DD *
  OUTFIL FNAMES=RPT,REMOVECC,NODETAIL,BUILD=(30X),
    TRAILER1=('DSN3 -',COUNT=(M10,LENGTH=8),' RECORDS')
...