[focus-l] Alternate view TABLE FILE
- From: Sandy Weller <wellergroup@xxxxxxxxx>
- To: informationbuilders-l@xxxxxxxxxxxxxxxxxxxx
- Date: Wed, 16 Jun 2004 14:44:09 -0700 (PDT)
Also known as an INDEXED view.
Running 7.2.5 under MVS
I get a FOC269 error tellng me
EQUALITY SCREENING TESTS MUST BE PROVIDED IN AN INDEXED VIEW
See below; I've got it.
Is it because I also have PC_YYM as a WHERE field?
Any other ideas.
Thanks
Sandy Weller
The MFD:
FILE=PCRSUM1,SUFFIX=FOC
SEGNAME=DATEINFO,SEGTYPE=S1,$
FIELD=PC_YYM ,,FORMAT=YYM ,INDEX=I,$
$
SEGNAME=CUST ,SEGTYPE=S1,PARENT=DATEINFO,$
FIELD=PC_SOLD_NBR ,,FORMAT=I6L,TITLE='SOLD,NBR',INDEX=I,$
$
SEGNAME=PRODUCT,SEGTYPE=S2,PARENT=CUST,$
FIELD=PC_VENDOR_NM ,,FORMAT=A10 ,TITLE='VENDOR,NAME',INDEX=I,$
FIELD=PC_PROD_CLS ,,FORMAT=A4 ,TITLE='PROD,CLS',INDEX=I,$
FIELD=PC_BIG_KEY ,,FORMAT=A20 ,TITLE='KEY,FOR,JOIN',INDEX=I,$
FIELD=GRS_SLS ,,FORMAT=P13.2C ,TITLE='GROSS,SALES',$
.
etc.
PC_BIG_KEY is a concatenation of SOLD_NBR VENDOR_NM PROD_CLS I need to be able
to get all records for upto 24 months.
My code looks like this:
-READ BKEYIN &BIGKEY.A20.
-*
TABLE FILE PCRSUM1.PC_BIG_KEY
PRINT
GRS_SLS
.
etc.
BY PC_YYM
BY PC_SOLD_NBR
BY PC_VENDOR_NM
BY PC_PROD_CLS
WHERE PC_BIG_KEY EQ '&BIGKEY' (Assigned above in -READ)
WHERE PC_YYM LE CY_YYM OR PC_YYM GE PY_YYMJ (defined above; not shown)
ON TABLE HOLD AS HISTDATA
END
-*
__________________________________
Do you Yahoo!?
New and Improved Yahoo! Mail - 100MB free storage!
http://promotions.yahoo.com/new_mail
Other related posts:
