manyasahu wrote://JOB123 JOB (META0107),'MANYA',PRTY=15,
// MSGLEVEL=(1,1),CLASS=A,MSGCLASS=0
//JOBLIB DD DISP=SHR,DSN=TXXXXXX.MANYA.LOADLIB
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=TXXXX.GXXXXXX.BXXXXA(0),
// DISP=(SHR,KEEP,KEEP)
//IN2 DD DSN=TXXXX.GXXXXXX.BXXXX1B(0),
// DISP=(SHR,KEEP,KEEP)
//IN3 DD DSN=TXXXX.GXXXXXX.BXXXX1C(0),
// DISP=(SHR,KEEP,KEEP)
//IN4 DD DSN=TXXXX.GXXXXXX.BXXXXD(0),
// DISP=(SHR,KEEP,KEEP)
//**>> Use a MOD output file for //OUT
//OUT DD DISP=MOD,DSN=TXXXX.MANYA.COUNTOUT
//TOOLIN DD *
COPY FROM(IN1) USING(CTL1)
COPY FROM(IN2) USING(CTL2)
COPY FROM(IN3) USING(CTL3)
COPY FROM(IN4) USING(CTL4)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,
TRAILER1=('FILE1',5X,COUNT=(M10,LENGTH=5))
/*
//CTL2CNTL DD *
OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,
TRAILER1=('FILE2',5X,COUNT=(M10,LENGTH=5))
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,
TRAILER1=('FILE3',5X,COUNT=(M10,LENGTH=5))
/*
//CTL4CNTL DD *
OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,
TRAILER1=('FILE4',5X,COUNT=(M10,LENGTH=5))
/*
Return to DFSORT/ICETOOL/ICEGENER