Re: Sorting an array w/multiple fields

Keeping mine that if you define a 'qualified' data structure (as Booth 
suggests), you have to refer to the subfields that way.

eg:

my_ds   ds
        fieldA  5
        fieldB  7 0
        fieldC  5

in the calcs you have to say my_ds.fieldA       (note the dot)

Arthur J. Marino
Southern Container Corporation
(631) 231-0400 x133



"Booth Martin" <booth@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces+arthur.marino=so-container.com@xxxxxxxxxxxx
10/17/2005 11:30 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Sorting an array w/multiple fields






In the same sort of situation I finally resorted to having an Array which
was a data structure made up of  the three fields.

 

---------------------------------

Booth Martin

http://www.martinvt.com

---------------------------------

-------Original Message-------

 

From: RPG programming on the AS400 / iSeries

Date: 10/17/05 10:15:39

To: rpg400-l@xxxxxxxxxxxx

Subject: Sorting an array w/multiple fields

 

Hello:

 

I searched the archives & found some info on sorting arrays, but not

specifically what I need to do.  I need to build an array that contains 3

fields.  field one defined as 5 alpha, field two numeric 3,0 & field three

alpha 5

 

I need to sort the array by field one, field two, field three so the

sorted array would end up like:

 

AAAAA , 85- , XXXXX

AAAAA , 7, DDDDD

BBBBB,  3- , CCCCC

BBBBB , 4 , CCCCC

 

I saw some previous posts on using QSort, but I don't see an example on

how to sort by multiple fields using it.

 

Thanks in advance

 

 

Steve Jones

--

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.

 

.