|
What key are you going to sort on Booth?
Regardless - the only way it can be made to work with SortA is if:
a) The required keys are contiguous in the DS
b) The keys are in the correct sequence (i.e. high order followed by low order) and
c) Are both alpha since they must be redefined as alpha to meet SortAs single key requirement.
None of these conditions are in play here as far as I can see.
On 2014-06-06, at 4:19 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:
Would something like this also work?Jon Paris
D UDFNoListN DS Qualified
D UDFNoEntry 50 DIM(100)
D UDFNoListS 44 Overlay(UDFNoEntry:*Next)
D UDFNoAppSeq 6S 0 INZ(*hival)Overlay(UDFNoEntry:*Next)
D Field1 nn Overlay(UDFNoAppSeq)
D Field2 nn Overlay(UDFNOAppSeq *next)
D etc...
On 6/6/2014 2:58 PM, Jon Paris wrote:
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 ,Jon Paris
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.
www.partner400.com
www.SystemiDeveloper.com
Booth Martin
www.martinvt.com
(802)461-5349
Skype: booth.martin
No matter where you go, there you are. -- Buckaroo Banzai
--
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.
www.partner400.com
www.SystemiDeveloper.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.