Re: Field Names in File Field

["Jim Franz" <jfranz@xxxxxxxxxxxx>]

it will be "CUST"

try         if z = 'CUST'
            EVAL OUTFILE = OUTFILE + %TRIM(CUST) +  X'05' + etc
jim
----- Original Message -----
From: "Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, July 31, 2003 12:14 PM
Subject: Field Names in File Field


> I have a file that holds the field names from multiple files. I was
> wanting to use these field names to control what is going into a flat
> file. So that if one was delete from file or added to file it would
> control what fields went into flat file.
>
>
> File holding values has three fields    X , Y , and Z. with X and Y as
> Keys and Z holding my field name from other files
> Example Z=CUST with CUST being field name from other file.
>
> I get all fields populated with values from their files.   CUST = 123
>
> If  I do an EVAL OUTFILE = OUTFILE + %TRIM(Z) + X'05' + etc.
>
> Will my value of %TRIM(Z) be CUST or 123. For some reason I think CUST.
>
> And if so has anyone done something like this or have examples.
>
> My mind is blank and
> I have no way to test on iSeries right now.
>
> Thanks
> Bill H
>
> Any thoughts, comments, or thumps on the Head excepted?!....
> _______________________________________________
> 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.
>
>