Re: File Fields as array elements

You could do something like this:

d fileds e ds extname(filename)

d workds e ds extname(filename)
prefix(w)
d sales 7p 0 dim(53)
overlay(workds: 12) (start pos of first sales field)
d cost 7p 0 dim(53)
overlay(workds: 200)

read the file data into the fileds data structure and then set workds =
fileds to load the arrays.

Just make sure that the fields and arrays are the same (packed, signed,
etc.) and this should work.

Gene

On Feb 13, 2008 9:29 AM, Mike Roderick <Mike.Roderick@xxxxxxxxxxxxxxx>
wrote:

The layout is Sales1-53 then cost1-53... so consecutive
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gene Burns
Sent: February-13-08 10:46 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: File Fields as array elements

What is the file structure? Are the fields alternating, (sales, cost,
rebate, sales, cost, rebate, ...) or are they consecutive (sales1,
sales2,
sales3, ...)?

Gene

On Feb 13, 2008 8:00 AM, Mike Roderick <Mike.Roderick@xxxxxxxxxxxxxxx>
wrote:

In RPG, is there a way to refer to a field in a file by its relative
position in the file?

E.g. File with 10 fields use array element FIELD(5) to get to 5th
field.

I have a file with 53 weekly buckets for a number of different pieces

of

information(sales, cost, rebates, etc) so there are > 300 fields.



I know I can define an array in the I specs and list the fields one at

a

time but is there any other mechanism I can use that would allow me to
access the fields in the order they exist in the file(using array like
syntax). Maybe a Data structure or SQL?



Any thoughts would be appreciated



Thanks,

Mike






____________________________________

This email message is intended for the use of the individual to which

it

is addressed and may contain confidential and privileged information.

Any

unauthorized distribution or disclosure is prohibited. If you have

received

this message in error, please contact the sender immediately and

delete it

from your system.


--
This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (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 AS400 / iSeries (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.