Re: Using the field-name itself

define the fields in a data structure and then redefine them as an array:

D DS
D $rates
D rate01 overlay($rates:*next)
D rate02 overlay($rates:*next)
D rate03 overlay($rates:*next)
D rate04 overlay($rates:*next)
D rate05 overlay($rates:*next)
D rate06 overlay($rates:*next)
D rate07 overlay($rates:*next)
D rate08 overlay($rates:*next)
D rate09 overlay($rates:*next)
D rate10 overlay($rates:*next)
D rate11 overlay($rates:*next)
D rate12 overlay($rates:*next)
D morates like(rate01) inz(0) dim(12)
D overlay($rates)

c eval rate = morates(month)

On Mon, Jul 14, 2008 at 2:42 PM, Adam West <adamster@xxxxxxxxx> wrote:

HI Is there a way to refer to a field, by its name, in RPG ILE? I have a legacy file that contains rates by month. For each month, there is a field, RATE01, RATE02, etc.

I would like to be able to check the name of tbe field and then know that I need to find say RATE07 since we are in July.

TIA,
Adam



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