Re: Tie Breaker in SORTA

[Booth Martin <booth@xxxxxxxxxxxx>]

Why are the sequence numbers identical?  Sequence, by definition, 
suggests that there will be no duplicate numbers.  Perhaps things are 
not working exacyly as you expected?


On 6/6/2014 2:10 PM, Ashwani Singh 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