RE: File Fields as array elements

Would something like this work.

FWEEKYLFILEif e K DISK

d idx S 3S 0
d wait S 1A
d weekPtr S * Inz(%Addr(sales1))
d dsWeekData DS Based(weekPtr)
d Dim(53)
d sales 11s 2 Overlay(dsWeekData)
d cost 11s 2 Overlay(dsWeekData : *NEXT)
d rebates 11s 2 Overlay(dsWeekData : *NEXT)


/FREE

Read WEEKLYFILE;
For idx = 1 To %Elem(dsWeekData);
Dsply dsWeekData[idx].sales ' ' wait;
Dsply dsWeekData[idx].cost ' ' wait;
Dsply dsWeekData[idx].rebates ' ' wait;
EndFor;
Eval *INLR = *ON;
/END-FREE

(This is untested)...

Rob

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mike Roderick
Sent: February 13, 2008 9:01 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: File Fields as array elements

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.