Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
mazahar,
The following DFSORT JCL will give you the desired results
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input VB file,DISP=SHR
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//OUT3 DD SYSOUT=*
//OUT4 DD SYSOUT=*
//OUT5 DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,SEQNUM,8,ZD,RESTART=(22,10),2X,5)),
IFTHEN=(WHEN=GROUP,BEGIN=(5,8,ZD,EQ,1),PUSH=(13:ID=2))
OUTFIL FNAMES=OUT1,BUILD=(1,4,15),INCLUDE=(13,2,ZD,LE,2)
OUTFIL FNAMES=OUT2,BUILD=(1,4,15),
INCLUDE=(13,2,ZD,GT,2,AND,13,2,ZD,LE,4)
OUTFIL FNAMES=OUT3,BUILD=(1,4,15),
INCLUDE=(13,2,ZD,GT,4,AND,13,2,ZD,LE,6)
OUTFIL FNAMES=OUT4,BUILD=(1,4,15),
INCLUDE=(13,2,ZD,GT,6,AND,13,2,ZD,LE,8)
OUTFIL FNAMES=OUT5,BUILD=(1,4,15),SAVE
//* |
|
|
