Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
That is quite easy.
This works with the other sort product, it should work with DFSORT as well:
Code: |
INREC IFTHEN=(WHEN=(1,3,CH,LT,5,3,CH),
BUILD=(1:1,80,1,3,5,3)),
IFTHEN=(WHEN=NONE,
BUILD=(1:1,80,5,3,1,3))
SORT FIELDS=(81,6,A),FORMAT=CH,EQUALS
OUTREC BUILD=(1:1,80)
SUM FIELDS=NONE |
|
|