In a multi-component index, adding a DESCENDING sort on the last field results in XREF considering all fields as "SORT-ACCESS", is this correct ?
Main.p
compile order.p xref "order.xref".
def var lcc as longchar no-undo.
def var ilines as int no-undo.
def var ic as int no-undo.
copy-lob from file "order.xref" to lcc.
ilines = num-entries( lcc, "~n" ).
do ic = 1 to ilines:
message string( entry( ic, lcc, "~n" ) ).
end.
order.p
message "ascending".
for each OrderLine
where OrderLine.OrderNum = 10000
no-lock
by OrderLine.OrderNum
by OrderLine.LineNum
:
message OrderLine.LineNum.
end.
message "descending".
for each OrderLine
where OrderLine.OrderNum = 10000
no-lock
by OrderLine.OrderNum
by OrderLine.LineNum descending
:
message OrderLine.LineNum.
end.
Output
order.p order.p 1 COMPILE order.p
order.p order.p 1 CPINTERNAL UTF-8
order.p order.p 1 CPSTREAM UTF-8
order.p order.p 1 STRING "ascending" 9 NONE TRANSLATABLE
order.p order.p 3 STRING "OrderLine" 9 NONE UNTRANSLATABLE
order.p order.p 3 ACCESS sport.OrderLine OrderNum
order.p order.p 3 ACCESS sport.OrderLine OrderNum
order.p order.p 3 ACCESS sport.OrderLine LineNum
order.p order.p 3 SEARCH sport.OrderLine OrderLine
order.p order.p 10 ACCESS sport.OrderLine LineNum
order.p order.p 14 STRING "descending" 10 NONE TRANSLATABLE
order.p order.p 16 ACCESS sport.OrderLine OrderNum
order.p order.p 16 ACCESS sport.OrderLine OrderNum
order.p order.p 16 ACCESS sport.OrderLine LineNum
order.p order.p 16 SEARCH sport.OrderLine OrderLine
order.p order.p 16
SORT-ACCESS sport.OrderLine OrderNumorder.p order.p 16
SORT-ACCESS sport.OrderLine LineNumorder.p order.p 23 ACCESS sport.OrderLine LineNum
