Re: An RPG question....

There has been significant discussion on this in the
comp.sys.ibm.as400.misc news group.  The short answer is that there
isn't any easy way to do this other than the code you supplied.

Without know exactly how your database is structured or exactly what you
are trying to do, you might want to look into using SQL and
interrogating the system data dictionary (SYSTEM.TABLES, SYSTEM.COLUMNS,
etc.).  But IMHO, unless you are trying to write an extremely generalize
solution or utility, this is more trouble that it is worth.

Sam

----- Original Message -----
From: "Chris Proctor" <cproctor@gartsports.com>
To: "CODE400-L (E-mail)" <CODE400-L@midrange.com>
Sent: Monday, September 03, 2001 2:04 PM
Subject: An RPG question....


This message is in MIME format. Since your mail reader does not
understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Hi all,

Sorry to post this question here, but I believe a ton of you are coding
ILE
RPG on your 400s. My question is, if I have a field in a file that has
the
value of "acctno" and that is the name of a field in another file. Is it
possible to retrieve the value of acctno in the other file without
something
stupid like:

if field="acctno"
eval fldvalue = acctno
end if

I'd prefer something magical, like:
eval fldvalue = %valueof(field)

but I've looked and unfortunately, %valueof() isn't something IBM has
come
up with. It'd be cool though, huh?

Does anyone have any suggestions (short of "Don't post stupid questions
here")

Thanks,

Chris
_______________________________________________
This is the CODE/400 Discussion & Support (CODE400-L) mailing list
To post a message email: CODE400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/code400-l
or email: CODE400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/code400-l.