Re: Loading an array from multiple fields in a record

[Booth Martin <booth@xxxxxxxxxxxx>]

How about something like this:


 D            ds
 D WkArray                dim(24)
 D  Field01               overlay(WkArray)
 D  Field02               overlay(WkArray: *next)
 .
 .
 .
 .
 D  Field24               overlay(WkArray: *next)


On 9/30/2010 12:27 PM, Jim Essinger wrote:
> Greetings!
>
> I am a former (reformed) COBOL programmer still trying to re-learn RPG
> (learned and used RPG II) and upgrade my knowledge to include the newer
> functionality.  I have searched the archives, but have not found a good way
> to do this.
>
> I have a file with records that contain 24 contiguous fields with like
> information.  They are all dollar amounts. From one record I need to load an
> array so that field01 becomes array element 1, field02 becomes array element
> 1 and so on.
>
> Is there an easy way in RPG to accomplish this?
>
> I have tried to create a DS with like;
>
>
> D ds
> D InFields
> D  Field01
> D  Field02
> .
> .
> .
> .
> D  Field24
>
> D ds
> D WkArray  (defined like Field01) dim(24)
>
> Then I have tried several ways to get the data structure InFields to load
> each field into the array WkArray.  All with no luck.
>
> Any thoughts?
>
> Thanks!
>
> Jim