RE: SST In Logical FIle with Select

Shannon,

I'm at a loss because the method you used to code the SST( and Select is
exactly what I have used, and it "seemed" to work. I.e., I never
noticed/found a problem.

My only suggestion is that you re-evaluate the result of the CRTLF.

Jerry C. Adams
IBM i Programmer/Analyst
There are only so many ulcers in the world, and I make certain that other
people get them. -George Steinbrenner
--
A&K Wholesale
Murfreesboro, TN
615-867-5070


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Shannon ODonnell
Sent: Thursday, February 23, 2012 4:04 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: SST In Logical FIle with Select

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





--
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.