RE: Tie Breaker in SORTA

You have only sorted on the sequence, it is not defined how to sequence ties. It is up to you to define that if you want a certain order.

Scott

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ashwani Singh
Sent: Friday, June 06, 2014 1:11 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Tie Breaker in SORTA


Hello ,

I have code where I need to sort a DS array basis of a sequence field..

D UDFNoListN DS Qualified
D UDFNoEntry 50 DIM(100)
D UDFNoListS 44 Overlay(UDFNoEntry:*Next)
D UDFNoAppSeq 6S 0 INZ(*hival)Overlay(UDFNoEntry:*Next)


SORTA UDFNoAppSeq;

With this input
UDFNOLISTN.UDFNOLISTS(1) = 'XXFIV01 XX Rate XXFIV01 ¬A1' 050002

UDFNOLISTN.UDFNOLISTS(2) = 'XXFIV05 XxFIV05 XXFIV05 ¬A1' 050003

UDFNOLISTN.UDFNOLISTS(3) = 'XXTHI01 XXTHI01 XXTHI01­ A1' 050001

UDFNOLISTN.UDFNOLISTS(4) = 'XXSEV01 XXXX Rate XXSEV01 "P1' 050002

UDFNOLISTN.UDFNOLISTS(5) = 'XXSEV02 XXSEV02 XXSEV02 "P1' 050999

Output

UDFNOLISTN.UDFNOLISTS(3) = 'XXTHI01 XXTHI01 XXTHI01­ A1' 050001
UDFNOLISTN.UDFNOLISTS(4) = 'XXSEV01 XXXX Rate XXSEV01 "P1' 050002
UDFNOLISTN.UDFNOLISTS(1) = 'XXFIV01 XX Rate XXFIV01 ¬A1' 050002

I would have expected element 1 above 4 but its not ? Any particular reason...

Etc..

Thanks,
Ashwani Singh