Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
Syam,
The following DFSORT/ICETOOL JCL will give you the desired results
| Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=your input 85 byte lrecl file,DISP=SHR
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
SPLICE FROM(IN) TO(T1) ON(94,8,CH) KEEPNODUPS WITHALL -
WITH(1,93) KEEPBASE USING(CTL1)
SORT FROM(T1) USING(CTL2)
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,
PARSE=(%=(ENDBEFR=C'%'),%01=(SUBPOS=6,FIXLEN=6))),
IFTHEN=(WHEN=INIT,OVERLAY=(110:%01,UFF,EDIT=(TTTTTT))),
IFTHEN=(WHEN=INIT,OVERLAY=(86:SEQNUM,8,ZD,SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,6,CH,EQ,C'NUMBER'),OVERLAY=(94:SEQNUM,8,ZD)),
IFTHEN=(WHEN=NONE,OVERLAY=(102:SEQNUM,8,ZD,
94:94,8,ZD,SUB,102,8,ZD,M11,LENGTH=8))
SORT FIELDS=(94,8,CH,A,110,6,CH,D)
/*
//CTL2CNTL DD *
OPTION EQUALS
SORT FIELDS=(110,6,CH,A,86,8,CH,A)
OUTFIL FNAMES=OUT,BUILD=(01,85)
/*
|
Hope this helps... |
|
