Re: Tie Breaker in SORTA

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

When sorting (using most any facility) initial sequence is rarely guaranteed to be maintained. So whenever two records have the same key the sequence in which they appear in the final result is indeterminate.

If you want them to retain original sequence, or indeed use any secondary key, then you need to use a method that allows for multiple keys - such as the qsort API. There is an example of how to use this in the RPG Redbook "Who Knew ..." http://www.redbooks.ibm.com/redbooks/pdfs/sg245402.pdf


On 2014-06-06, at 3:10 PM, Ashwani Singh <Ashwani.Singh@xxxxxxxxxx> wrote:

> 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
> Technical Analyst
> Global Services
> Fiserv
> Office:  + 1 – 407 – 513 - 5394
> Mobile: +91-976-579-7691
> Toll Free (Office): +1-811--301-9471 x4743 www.fiserv.com P Please consider the environment before printing this e-mail
>
>
> -- 
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com