×
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.
Here is the layout for a LF that we have, and it has been working for
years.
A R ITEMASEA PFILE(ITEMASA)
A*
A MOLD I SST(ITNBR 2 4)
a TEXT('Mold')
a COLHDG('Mold')
A ITNBR
A RECID
A INVFG
A LOLEV
A NOSLC
A NOPWU
A NODET
A NOROP
A RACNO
A FOTAB
A ITDSC
A*
A* KEY FIELD
A*
A K MOLD
A K ITNBR
A* Selection
A S ITCLS COMP(NE 'TOOL')
A O ALL
A*
HTH
Thanx,
Nick
Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct (320) 679-6683
Toll free (800) 388-2155 ext. 6683
Fax (320) 679-4516
nick_radich@xxxxxxxxxxxxxx
From: "Shannon ODonnell" <sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Date: 02/23/2012 04:04 PM
Subject: SST In Logical FIle with Select
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
Hi,
It's been a really long time since I needed to do this and my skills are
rusty. I could use some knowledgeable help!
I have physical file that contains a something like 10 fields in it. In
one field, that is 6 characters long, I need to check the first two
characters of that field and then only include records where the first two
characters contain a specific value.
I thought I could use the SST and then a Select in the logical but it's
not
working. Instead I am getting all the records in that file, not just the
ones with the derived field containing a specific value.
This is my source and it doesn't work.
Physical File named File1:
R RFILE
FIELD1 1a
FIELD2 2a
FIELD3 3a
FIELD4 4a
FIELD5 5a
FIELD6 6a
FIELD7 7a
FIELD8 8a
FIELD9 9a
FIELD10 10a
K FIELD1
K FIELD2
Logical file:
R RFILE PFILE(FILE1)
FIELD1
FIELD2
FIELD6
FIELD8
FIELD10
DRVFLD I SST(FIELD6 1 2)
K FIELD1
K FIELD10
S DRVFLD COMP(EQ 'EV')
How do I code the logical so that it only pulls records where the derived
field DRVFLD = 'EV'?
Thanks!
Shannon O'Donnell
As an Amazon Associate we earn from qualifying purchases.
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.