Re: Loading an array from multiple fields in a record

Hi Jim,

This is how I do it (I try to minimize the OVERLAY keyword, it just makes it easier to update the DS later, if necessary)

D myDS ds
D field01
D field01
.
.
D field23
D field24
D field like(field01) dim(24)
D overlay(myDS)


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