Sorting an arrray data structure into a subfile

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?