AS/400 QUICK Record Selection

[Daniel Mielke]

Hello All,

I need help in selecting records for display.  I want to select specific
records from a primary file based on records in associated reference files.

TEMP t-RAT-NAME char*20
TEMP t-RATLET-DOB zoned*8

FILE RATS occurs 9
	select if 0 ne index(RATNAME of RATS,trunc(t-RAT-NAME)) &
	and RATLET-DOB of RATLETS eq t-RATLET-DOB
	
FILE RATLETS reference
	access via RAT-NO using RAT-NO of RATS

;There may be no RATLETS for a given RAT
;There is no index for RATNAME so the GET statement will be SEQUENTIAL

QUICK gives an Error stating that it can't find RATLET-DOB, and rightly so,
it hasn't been declared yet.  How do I control the selection of a RATS
record based on data in the referenced file RATLETS?

I was thinking of modifying the FIND or POSTFIND procedures, but I'm not
sure how to start.

Help!

> BUY. HOLD. AND PROSPER.
> 
> Daniel Mielke
> Senior User Analyst
> AIC Limited
> 1-888-710-4242 (4614)
> dmielke@aicfunds.com
> www.aicfunds.com
> 
>