Re: Sorting an arrray data structure into a subfile

[Booth Martin <booth@xxxxxxxxxxxx>]

If "reverse order" is the only issue then why bother sorting?  Just do 
your for loop for reading the array & loading the subfile from SFLNBR 
downto 1?

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?
>