In bugsuite.at: SORT WITH DEFAULT DESCENDING KEY
With a data definition:
01 TAB1.
05 ROW1 OCCURS 1 TO 4 DEPENDING CNT1
DESCENDING TAB1-NR.
10 TAB1-NR PIC 99.
a sort statement
SORT ROW1
should default to a descending sort...and does not.