Re: Loading an array from multiple fields in a record

No mention of a pre-run time array?

Coding a Prerun-Time Array
In addition to the essential array specifications, you can also
code the following
specifications or keywords for prerun-time arrays.
On the definition specifications, you can specify
v The name of the file with the array input data, using the
FROMFILE keyword.
v The name of a file to which the array is written at the
end of the program, using
the TOFILE keyword.
v The number of elements per input record, using the PERRCD
keyword.
v The external format of numeric array data using the EXTFMT
keyword.
v An alternating format using the ALT keyword.
Note: The integer or unsigned format cannot be specified for
arrays defined with
more than ten digits.
On the file-description specifications, you can specify a T in
position 18 for the file
with the array input data.

* Prerun-time array. ARE, which is to be read from file DISKIN,

* has 250 character elements (12 elements per record). Each
* element is five positions long. The size of each record
* is 60 (5*12). The elements are arranged in ascending sequence.
DARE S 5A
DIM(250) PERRCD(12) ASCEND
D
FROMFILE(DISKIN)

On Thu, Sep 30, 2010 at 1:36 PM, Alan Shore <AlanShore@xxxxxxxx> wrote:

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.


--
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.