× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I don't have a qsort example, and I will someday build one, but here's an
idea. If the sort order is always left-to-right, I wonder if you could
overlay a large char array, with each elem the size of the DS, and just use
SORTA. I am not sure if the numeric field would sort right, but it's worth a
try.

i.e. if the DS looked like
5A
3P 0
5A

then declare a pointer
pArray * Inz(%Addr(Array))

And a char array
Overlaid 12A Based(pArray)

then just use SORTA on the Overlaid array. Might be worth a try.

On 10/17/05, sjones@xxxxxxxxxxxxxx <sjones@xxxxxxxxxxxxxx> wrote:
>
> 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.
>
>
>


--
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
"If all you have is a hammer, all your problems begin to look like nails"

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.