Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
Sambhaji,
The following DFSORT JCL will give you the desired results.
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0000001
05D1
05D2
05D3
05D4
0900006
0000002
05D5
05D6
05D7
0900005
0000003
05D8
05D9
0900005
//OUTPUT DD SYSOUT=*
//ERROR DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(91:1,2)),
IFTHEN=(WHEN=GROUP,BEGIN=(1,2,ZD,EQ,0),PUSH=(81:ID=5,SEQ=5)),
IFTHEN=(WHEN=(1,2,ZD,EQ,9),OVERLAY=(91:C'YY',1,80),HIT=NEXT),
IFTHEN=(WHEN=(1,2,ZD,EQ,9,AND,86,5,ZD,NE,3,5,ZD),OVERLAY=(91:C'NN'))
SORT FIELDS=(81,5,CH,A,91,2,CH,A)
OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(1,2,ZD,EQ,9),PUSH=(91:91,82))
OUTFIL FNAMES=OUTPUT,REMOVECC,BUILD=(1,80),
INCLUDE=(91,2,CH,EQ,C'YY',AND,1,2,ZD,NE,9),
SECTIONS=(81,5,TRAILER3=(93,80))
OUTFIL FNAMES=ERROR,REMOVECC,BUILD=(1,80),
INCLUDE=(91,2,CH,EQ,C'NN',AND,1,2,ZD,NE,9),
SECTIONS=(81,5,TRAILER3=(93,80))
/* |
|
|
