Re: SST In Logical FIle with Select

Hello again,

I just created a quick and dirty LF that works.

Here is the DDS.

A R ITEMASEA PFILE(ITEMASA)
A*
A MOLD I SST(ITNBR 2 4)
a TEXT('Mold')
a COLHDG('Mold')
A ITNBR
A ITCLS
A*
A* KEY FIELD
A*
A K MOLD
A K ITNBR
A* Selection
A S MOLD COMP(EQ '7629')
A O ALL
A*


Here is a snippet of the file using DBU.


Record# Mold Item number Item class
12425 7629 F7629150 COKO
13260 7629 F7629160 COKO
11269 7629 07629000 CCJL
11270 7629 07629001 CCJL
13343 7629 07629002 CCJL
13344 7629 07629003 CCJL
11358 7629 07629010 COKO
11359 7629 07629011 COKO
11272 7629 07629100 COKO
12629 7629 07629150 COKO
13203 7629 07629151 COKO
13707 7629 07629160 COKO

The only records in my LF have the Mold Number ads 7629.

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