Hi Jim
try the following
d Row1 ds
d Field1 7 2
d Field2 7 2
d Field3 7 2
d Field4 7 2
d Field5 7 2
.
.
.
d Field24 7 2
D Fieldind 7 2 DIM(24) OVERLAY(Row1)
where the names Field1 through Field24 are the same names and size etc as
those fields on the file
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
Jim Essinger
<dilbernator@gmai
l.com> To
Sent by: "RPG programming on the IBM i /
rpg400-l-bounces@ System i" <rpg400-l@xxxxxxxxxxxx>
midrange.com cc
Subject
09/30/2010 01:29 Loading an array from multiple
PM fields in a record
Please respond to
RPG programming
on the IBM i /
System i
<rpg400-l@midrang
e.com>
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.
midrange.com
