Re: Problem with array sorting

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 ?