Hi
One thing I noticed, while you cannot OVERLAY an ascending and
descending array using the OVERLAY keyword, this seems to work...
D DS
D saiAscend 10I 0 DIM(100) ASCEND
D saiDescend 1 400I 0 DIM(100) DESCEND
D miIndex S 10I 0
/FREE
FOR miIndex = 1 TO %ELEM(saiAscend);
saiAscend(miIndex) = miIndex;
ENDFOR;
SORTA saiAscend;
SORTA saiDescend;
RETURN;
/END-FREE
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: 22 October 2008 16:14
To: RPG programming on the AS400 / iSeries
Subject: RE: Sorting arrays
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.
--
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.
--------------------------------------------------------
This message (including any attachments) is only for the use of the person(s) for whom it is intended. It may contain Mattel confidential and/or trade secret information. If you are not the intended recipient, you should not copy, distribute or use this information for any purpose, and you should delete this message and inform the sender immediately.
midrange.com
