RE: Arrays

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Rick,

Yes, you can access each overlay field as an array (with subscripting).
Better yet, SORTA Array2 will sort the contents on $CTData in Array2 order.
That means you can sort a datastructure dynamically on any subfield.  Pretty
nifty for Subfile displays.  Oh, make sure to add an "INZ(*All'9')" and
"Ascend" to $CTData (base array) if you intend to have a varying number of
rows in the data-set.  That keeps unused records in the array at the end
(and out of the way) after you SORTA.

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



> -----Original Message-----
> From: Richard B Baird [mailto:rbaird@esourceconsulting.com]
> Sent: Thursday, July 25, 2002 8:22 AM
> To: rpg400-l@midrange.com
> Subject: RE: Arrays
>
>
>
> Eric & Rob,
>
> That's cool! I assume that because you mapped your overlays
> to an array, it
> turns those field names into arrays too without having to 'dim' them?
>
> and you can reference those fields with subscripting?
>
> ahhh, the things you learn.
>
> rick
>
> -------code snippet-------
> D $Array          DS
> D   $CTData                           CTDATA
> D                                     Dim(5)
> D
> D   $Array1                      5S 0 Overlay($CTData:1)
> D   $Array2                      6A   Overlay($CTData:*Next)
> D   $Array3                      5S 0 Overlay($CTData:*Next)
>
> **
> 12345ABCDEF98765
> 12345ABCDEF98765
> 12345ABCDEF98765
> 12345ABCDEF98765
> 12345ABCDEF98765
>