Re: Sorting an arrray data structure into a subfile

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

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.