Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Raghavendra reddy P,
The following DFSORT JCl will give you the desired results.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
HDR
123
456
312
HDR
145
456
HDR
379
009
146
211
HDR
008
678
HDR
157
//FILE1 DD SYSOUT=*
//FILE2 DD SYSOUT=*
//FILE3 DD SYSOUT=*
//FILE4 DD SYSOUT=*
//FILE5 DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,3,CH,EQ,C'HDR'),
OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=NONE,
OVERLAY=(89:SEQNUM,8,ZD,
81:81,8,ZD,SUB,89,8,ZD,M11,LENGTH=8))
OUTFIL FNAMES=FILE1,INCLUDE=(81,8,ZD,EQ,1),
BUILD=(01,80)
OUTFIL FNAMES=FILE2,INCLUDE=(81,8,ZD,EQ,2),
BUILD=(01,80)
OUTFIL FNAMES=FILE3,INCLUDE=(81,8,ZD,EQ,3),
BUILD=(01,80)
OUTFIL FNAMES=FILE4,INCLUDE=(81,8,ZD,EQ,4),
BUILD=(01,80)
OUTFIL FNAMES=FILE5,INCLUDE=(81,8,ZD,EQ,5),
BUILD=(01,80)
/*
|
Hope this helps.. |
|