RE: Populating fields based on field name in a file

Mark,
I'm not sure if this is what you mean, but it appears as though this is
similar to a "registry" or "INI file" technique used on other platforms.
Where there isn't really a known context for the field values or they are
simply "defaults" or "last used" settings for an application.
In this case, you may need to create a registry or file that contains the
defaults. 
Once you identify the root value under which you want store your data, you
can store whatever you want, include "sub values" (often called "subkeys"). 
Some systems use a file hierarchy to store subvalues, such as this:
MFD\MFV\EFL
Or
\MFD\MFV\EFL
...depending on your favorite convention. 

I don't see you in our customer file for RPG xTools, which has this kind of
interface built into it and is used to store "last used" setting as well as
"defaults" for various applications.
So your choices are... obvious. "Make, Buy, or Steal"
That is, write it yourself, buy something that already does what you need,
or come up with another solution. 

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


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mark Allen
Sent: Tuesday, October 25, 2005 10:23 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Populating fields based on field name in a file

Not just based on SKU could be for example if this SKU in MMST field
Brand="RAYBAN" then in file INVMST field Buyer=99
 
hope that makes sense

Holden Tommy <Tommy.Holden@xxxxxxxxxxxxxxxxx> wrote:
First off I have to assume that you are trying to display default values
based on the SKU. The model below would require excessive (& hard to
maintain) coding to accomplish this or using dynamic SQL which for this
purpose (IMO would perform very poorly...) or use a different model. 

What you *could* possibly do is this:
Create a defaults table
Keyed by MFD,MFV,EFL

With the fields:
MFD, MFV,EFL, RCDDTA(which holds the entire record defaults)

In your program define an externally defined DS of the file name (use a
prefix to make life easier...) you are grabbing defaults for
Chain the defaults file & eval the external DS with RCDDTA.

HTH

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces+tommy.holden=hcahealthcare.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+tommy.holden=hcahealthcare.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. 
--
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.