That's pretty much the way that I do it. However, part of Booth's requirement was to sort ascending OR descending. SORTA sorts the array based upon the array's definition in the D-specs. So it would seem that, as records are retrieved from the table, they would have to be loaded into two arrays, and then sort the one that means the ASC/DSC criteria and load the subfile from there. Loading the second array shouldn't have a noticeable effect on response time.
Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of jdavis@xxxxxxxx
Sent: Wednesday, October 22, 2008 9:49 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Sorting arrays
I would use a DS array, this way I can sort by any of the subfields
D Display_Scrn DS Qualified Inz
D Scrn_Field Dim(200)
D President 25 Overlay(Scrn_Field:1)
D Color 10 Overlay(Scrn_Field:*Next)
D Number 6 Overlay(Scrn_Field:*Next)
D Ocean 20 Overlay(Scrn_Field:*Next)
D Contient 25 Overlay(Scrn_Field:*Next)
Keep count of how many Elements have been populated.
Sort by president -
SortA %SubArr(Scrn_Field.President:1 :Number_of_Elements);
Sort by Color -
SortA %SubArr(Scrn_Field.Color:1 :Number_of_Elements);
Sort by Number -
SortA %SubArr(Scrn_Field.Number:1 :Number_of_Elements);
Sort by Ocean -
SortA %SubArr(Scrn_Field.Ocean:1 :Number_of_Elements);
Sort by Contient -
SortA %SubArr(Scrn_Field.Contient:1 :Number_of_Elements);
Repopulate your screen and display
Jeff Davis
Programmer
Dental Network of America
2 Transam Plaza Drive, Suite 500
Oakbrook Terrace, IL. 60181
630.691.0336
**********
The information contained in this communication is confidential, private, proprietary, or otherwise privileged and is intended only for the use of the addressee. Unauthorized use, disclosure, distribution or copying is strictly prohibited and may be unlawful. If you have received this communication in error, please notify the sender immediately at (312)653-6000 in Illinois; (800)835-8699 in New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in Texas.
**********
--
This is the RPG programming on the AS400 / 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.
midrange.com
