× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



You have two choices, the grunt way, as you've described it already in your
original note, and to use SQL and build the select statement, something
like:
 SELECT EFV FROM INVMST into :BUYR

I recently worked on trying to create the following:

Eval  BUYR = GetFieldValue('EFV')

However, programmically it isn't known how to do that with RPG IV and the
ILE environment, aside from using SQL or some other dynamic query tool.

-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.

-----Original Message-----
From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of Mark
Allen
Sent: Tuesday, October 25, 2005 9:37 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Populating fields based on field name in a file

I have a "rules" file whichcontains the following fields:
 
MFD - master field name (a field name in file MMST)
MFV - value for field name above 
EFL - environment file name (could be 1 of 7 for example INVMST)
EFD - environment field name (field name from file named above i.e. DEPT)
EFV - environment field value (value for field name above)
 
the user selects a record in the MMST file (ie. SKU: 12345) and it shoudl
then populate based on the rules each fo the fields/values in the
appropriate environment file:
 
Example:
 
Rules file:
 
MFD=CORG
MFV=US
EFL=INVMST
EFD=BUYR
EFV=123
 So if the CORG field='US' in the SKU record selected from the MMST file I
want the BUYR field in INVMST to be set to 123
 
What I have "tentatively" done (and I don't like it) is shown as a "small
snippet" below, FYI In the MMST file I have 20+ fields and I have (as of
right now) 7 environment files which have multiple (5-50 approx. fields)
 
IF MFD='CORG' and CORG (a fld in MMST) = MFV and EFD='BUYR'
eval BUYR=EFV
endif
 
My "befuddled" mind right now sees that I would ahve to this the above for
EVERY field in in every file??
 
Gotta be an easier way???????????//
 

                
---------------------------------
 Yahoo! FareChase - Search multiple travel sites in one click.  

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.