RE: SST In Logical FIle with Select

"it doesn't work" because if I read it in my program or I spin through it
with DFU...I get all the data, not the selected records only.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of CRPence
Sent: Thursday, February 23, 2012 5:37 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: SST In Logical FIle with Select

I do not see any issue with the given PF and LF sources [well...
after correcting the alignment and case] for achieving the stated as-desired
results. How was "it doesn't work" concluded? A simple CL request to
RUNQRY *N QRYFILE((thelib/TheLF)) should verify selection; though not
ordering.

FWiW: The "omit all" mentioned elsewhere, is implicit for the given DDS;
refer to the DSPFD of the LF that was created. I thought the "Expanded
Source" for the DDS listing included that too, but from a test to mimic the
given, I did not see the implied OMIT expanded.

Regards, Chuck

On 23-Feb-2012 14:03 , Shannon ODonnell wrote:

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 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'?

--
This is the RPG programming on the IBM i / System i (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.