Re: Field Names

["Buddy McClean" <Buddy.McClean@xxxxxxxxxxxx>]

Thanks Nathan, that's really nice. I would need to reserve that solution for when my research and education budget goes up. 

> > > Nathan Andelin <nandelin@xxxxxxxxx> 6/7/2019 10:30 AM >>>
As an alternative to RLA op codes, we switched to RLA procedures, which are
wrappers around I/O functions exported from service program QC2IO, which
offer a dynamic syntax. We have a procedure named rlaColGet() that returns
the value of any field, in any file, given a file name, field name, and key
value. Hence:

field2_name = rlaColGet(file1_name : field1_name : key1_value);
field2_value = rlaColGet(file2_name : field2_name : key2_value);

Then, you can use field2_value in calculations.

On Fri, Jun 7, 2019 at 8:33 AM Buddy McClean <Buddy.McClean@xxxxxxxxxxxx>
wrote:

> Good Day,
>
> Perhaps a silly question and an obvious answer, but I seem to have a bit
> of fog about it.
>
> What is the best way to translate a field that contains the name of
> another field to be able to reference the second field. Other than do a
> bunch of compares.
>
> DCL-S Field1 char(8) INZ('FIELD2')
>
> To be able to use FIELD2 in calculations. FIELD2 is an actual field in a
> record, but I only have the literal name of the field.
>
>
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com