Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/10)
//OUT DD DSN=... output file (FB/30)
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(1,5,CH) WITHEACH KEEPNODUPS -
WITH(12,4) WITH(17,4) WITH(22,4) WITH(27,4) USING(CTL1)
/*
//CTL1CNTL DD *
OPTION COPY
INREC IFOUTLEN=30,
IFTHEN=(WHEN=INIT,OVERLAY=(31:SEQNUM,1,ZD,RESTART=(1,5))),
IFTHEN=(WHEN=(31,1,ZD,EQ,2),OVERLAY=(12:7,4)),
IFTHEN=(WHEN=(31,1,ZD,EQ,3),OVERLAY=(17:7,4)),
IFTHEN=(WHEN=(31,1,ZD,EQ,4),OVERLAY=(22:7,4)),
IFTHEN=(WHEN=(31,1,ZD,EQ,5),OVERLAY=(27:7,4))
/*
|
|
|
