Re: Loading an array from multiple fields in a record

Here's my preferred method...

d myDS ds
d FieldData
d Field01 Overlay(FieldData)
d Field02 Overlay(FieldData:*NEXT)
d Field03 Overlay(FieldData:*NEXT)
d Field04 Overlay(FieldData:*NEXT)
<...>
d FieldArray Overlay(FieldData) Dim(24)
d like(Field01)

You don't need technically need the FieldData grouping field, but I
agree with Jon that it makes things clearer.
http://www.ibmsystemsmag.com/ibmi/february03/enewsletterexclusive/8073p2.aspx



HTH,
Charles


On Thu, Sep 30, 2010 at 1:27 PM, Jim Essinger <dilbernator@xxxxxxxxx> 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
--
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.