We had a "code" file at my previous employer that served the same purpose as
what you want. Sample fields & data below. Data is 128 free format.
TYPE Char(10) // "STATE"
VALUE CHAR(10) // "CA"
DATA CHAR(128) // "CALIFORNIA"
TYPE Char(10) // "CARRIER"
VALUE CHAR(10) // "UPS"
DATA CHAR(128) // "UNITED PARCEL SERVICE"
The only downside was you had to convert numeric values if needed but that
easily worked around.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Thursday, July 26, 2012 12:50 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: can I set up a multi-format logical file in DDS with one key
field having a default fixed value?
Yes I understand that LF's don't contain data. But I would like a "read" to
return data, and some of the data I would like to be fixed by its format
name.
I have 20 files, but lets say 2 files for discussion.
STATEFL
StateCode stateDesc
CA CALIFORNIA
FL FLORIDA
TX TEXAS
CARRIERFL
CarrierCode CarrierDesc
FEXED FEDERAL EXPRESS
UPS UNITED PARCEL SERVICE
USPS US POSTAL SERVICE
I would like to build a multi-format LF so that I can load the 2 keys
"CARRIER" and "UPS" and return the description "UNITED PARCEL SERVICE".
Using the same LF, I would also like to be able to load the keys "STATE" and
"FL" and return the description "FLORIDA".
Is this possible to accomplish?
Something like:
R STATEFLr PFILE(STATEFL)
GROUP DFT('STATE')
StateCode 10 COLHDG('KEY')
StateDesc 50 COLHDG('DESC')
K GROUP
K StateCode
R CarrierCode PFILE(CARRIERFL)
GROUP DFT('CARRIER')
CarrierCode COLHDG('KEY')
CarrierDesc COLHDG('DESC')
K GROUP
K CarrierCode
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Carel Teijgeler
Sent: Thursday, July 26, 2012 2:13 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: can I set up a multi-format logical file in DDS with one key
field having a default fixed value?
Joel,
LF do not contain data, they have sequenced referrences to RRNs in the PF
based on the key. So, what is the use to give a field in the selected lists
of fields a value?
Regards,
Carel Teijgeler
*********** REPLY SEPARATOR ***********
On 26-7-2012 at 18:43 Stone, Joel wrote:
The fixed key value would be different for each records format.
R ADMNOFFR PFILE(ADMNOFF)
GROUP DFT('ADMNOFF')
ADMNOFC 10 COLHDG('KEY')
ADMNOFC1 50 COLHDG('DESC')
K ADMNOFC
K ADMNOFC1
This attempt returns error "Keyword 'DFT' not valid for this file type."
______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
-----
Geen virus gevonden in dit bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 10.0.1382 / Virusdatabase: 2437/5156 - datum van uitgifte:
07/26/12
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
________________________________________________________________________
This inbound email has been scanned for all viruses by the MessageLabs
SkyScan
service.
________________________________________________________________________
______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit
http://www.symanteccloud.com
______________________________________________________________________
midrange.com
