Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
sril.kirshy,
The following DFSORT/ICETOOL JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
NEW: ABCDEFGH
N- 123
N- 234
N- 456
K- 345
K- 345
NEW: ABCDXXXX
N- 123
N- 234
N- 456
K- 345
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(81,8,CH) -
WITHALL WITH(1,80) KEEPBASE USING(CTL1)
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,4,CH,EQ,C'NEW:'),
OVERLAY=(81:SEQNUM,8,ZD,36,8)),
IFTHEN=(WHEN=NONE,
OVERLAY=(89:SEQNUM,8,ZD,
81:81,8,ZD,SUB,89,8,ZD,M11,LENGTH=8))
SORT FIELDS=COPY
OUTFIL FNAMES=OUT,
IFTHEN=(WHEN=(1,4,CH,EQ,C'NEW:'),BUILD=(01,80)),
IFTHEN=(WHEN=NONE,BUILD=(89,8,X,1,71))
/* |
|
|