Author: Abid Hasan
Posted: Thu Aug 11, 2016 5:10 pm (GMT 5.5)
Hello Kevin,
A simple method can be (assuming LRECL=80); tested on DFSORT, should work with SyncSORT too:
Giving:
_________________
Thanks.
Posted: Thu Aug 11, 2016 5:10 pm (GMT 5.5)
Hello Kevin,
A simple method can be (assuming LRECL=80); tested on DFSORT, should work with SyncSORT too:
| Code: |
OMIT COND=(1,1,CH,EQ,C'9') INREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,1), PUSH=(81:ID=1)), IFTHEN=(WHEN=(1,1,CH,EQ,C'1'), BUILD=(1,81,82:SEQNUM,2,ZD)) SORT FIELDS=(81,3,CH,A) SUM FIELDS=NONE OUTFILE REMOVECC, BUILD=(1,80), TRAILER1=(C'9 ',COUNT-1=(M11,LENGTH=9)) |
Giving:
| Code: |
0 20160607 1XXXXXXX1 1XXXXXXX2 1XXXXXXX3 1XXXXXXX1 1XXXXXXX1 1XXXXXXX2 9 000000006 |
_________________
Thanks.