Re: Sorting an array w/multiple fields

Use the following example

D                              ds
D      Myarray                                                   15
dim(10)
D      Field1                                                         5
overlay(myarray:1)
D      Field2                                                         5s  0
overlay(myarray:6)
D      Field3                                                         5
overlay(myarray:11)

then use

C                          sorta                     Myarray



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx








                                                                       
             sjones@hpproducts                                         
             .net                                                      
             Sent by:                                                   To
             rpg400-l-bounces@         <rpg400-l@xxxxxxxxxxxx>         
             midrange.com                                               cc
                                                                       
                                                                   Subject
             10/17/2005 11:09          Sorting an array w/multiple fields
             AM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       




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.