Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Aneesh,
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 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(1,4,CH) -
WITH(1,83) WITHALL KEEPBASE USING(CTL1)
SORT FROM(T1) USING(CTL2)
//CTL1CNTL DD *
SORT FIELDS=(1,4,CH,A,84,9,CH,D)
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,3,ZD,RESTART=(1,4))),
IFTHEN=(WHEN=(81,3,ZD,EQ,11),OVERLAY=(84:6,9))
OUTFIL FNAMES=T1,BUILD=(1,83),
OMIT=(81,3,ZD,GT,10,AND,(06,9,CH,NE,84,9,CH))
//CTL2CNTL DD *
OPTION EQUALS
SORT FIELDS=(1,4,CH,A,81,3,CH,A)
OUTFIL FNAMES=OUT,BUILD=(1,80)
/*
|
Hope this helps...
Cheers
Kolusu |
|