Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Hi,
Check if this works:
| Code: |
//STEP050 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//*
//IN DD *
000001ABCD
000001DFRE
000001FDRE
000002GGTY
000003DERS
000003FRTE
//OUT DD SYSOUT=*
//*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(1,6,CH) KEEPNODUPS -
WITHEACH WITH(11,4) WITH(15,4) WITH(19,4) WITH(22,4) USING(CTL1)
/*
//CTL1CNTL DD *
INREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD,RESTART=(1,6))),
IFTHEN=(WHEN=(81,8,ZD,EQ,1),BUILD=(1,6,7:7,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,2),BUILD=(1,6,11:7,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,3),BUILD=(1,6,15:7,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,4),BUILD=(1,6,19:7,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,5),BUILD=(1,6,22:7,4))
/* |
OUT:
| Code: |
---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8-
********************************* TOP OF DATA **********************************
000001ABCDDFREFDRE
000002GGTY
000003DERSFRTE
******************************** BOTTOM OF DATA ******************************** |
|
|
