Re: Problem with array sorting

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

The way I would handle it would be to add an additional character to  
the id while loading the array. E = 1, T = 3, Other = 2.  Then sort on  
that combined key rather than just the Id. DS layout would look  
something like this:

     D infoStuff       ds
     D   array                             Dim(1000)
     D     sortId                     6a   overlay(array)
     D     id                         5a   overlay(sortId)
     D     idGroup                    1a   overlay(sortId: *next)
     D     category                   1a   overlay(array: *next)
     D     otherField                10a   overlay(array: *next)

The SortA sortId should do the job for you.

For that matter you could just duplicate the category code and replace  
all non E and T characters with any character between the two in the  
collating sequence (.e.g. "O" for "Other"?).


Jon Paris

www.Partner400.com
www.SystemiDeveloper.com



On Jul 5, 2010, at 11:40 AM, rpg400-l-request@xxxxxxxxxxxx wrote:

> So, for each id, there are n lines of text to write out.
>
> Now the contents of the array must be written out respecting a  
> particular category order :
>
> 1 category = E
> 2 category <> E and <> T
> 3 category T
>
> Have I a better way to do this other than just repeating the loop  
> twice and thus doing 600 array reads instead of 200 ?