Re: Sorting an arrray data structure into a subfile

I think it will sort in the ascending order, which is already the case. In
short: works as designed.

If you want to sort the SFL you have to define a second subfield with the
DESCEND key word and based on the imnput of the user sort by the preferred
iIndex subfield

With regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 27-11-2009 at 16:42 David FOXWELL wrote:

Hi,

Having a hard time with this :

A subfile has to be modified so that it will display the results in the
reverse order.

I can't read the data differently before charging the SF so I'm putting it
into an array with the idea of sorting it and then copying to the subfile.

Some simplified code :

D wDS DS QUALIFIED
D InfoSF LIKEREC ( subfileRecord : *OUTPUT )

D DIM ( 50 ) DESCEND

D Index 3I 0 OVERLAY ( InfoSF : *NEXT )
D INZ ( *LOVAL )


The idea is load the arrays instead of the subfile with an index value
starting at 1.

Then a SORTA on wDS.Index will also sort wDS.InfoSF. Then I can read
through the arrays until I get a *LOVAL in the Index, writing wDS.InfoSF
to my subfile.

This will not work as the index seems to be sharing the space occupied by
the InfoSF.

When I debug I can see that the index is being updated by the subfile info
when the arrays are loaded :
SFRecNo +=1;
wDS.Index ( SFRecNo ) = SFRecNo;
wDS.InfoSF ( SFRecNo ).Field1;
wDS.InfoSF ( SFRecNo ).Field2;



What am I doing wrong?
--
This is the RPG programming on the IBM i / System i (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.