Re: Loading an array from multiple fields in a record

Try this:
D InFields        DS
D  Field01
D  Field02 
.
.
.
.
D Field24
D WkArray  (defined like Field01) dim(24) Overlay(InFields)


This will cause the array to overlay the storage for your database fields.


Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions
Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical
Solutions Implementer V5R3

  
 






________________________________
From: Jim Essinger <dilbernator@xxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Thu, September 30, 2010 1:27:14 PM
Subject: Loading an array from multiple fields in a record

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