Don

Your code doesn't pass the syntax checker.

>ACCESS *FAC904D LINK JFLIST TO REF-M-KEY OF D-PER-REF-DETL OPTIONAL
>
>SELECT IF INITIATIVE = REF-D-MATCH1 OF REF-M-KEY AND &
>  NOT RECORD REF-M-KEY EXISTS

The SELECT statement says "OF REF-M-KEY". I suspect this is a key while the
syntax requires that this be a file. Try it with "OF D-PER-REF-DETL"
instead.

Regards,
JWP

> -----Original Message-----
> From: Harrington, Don [SMTP:[log in to unmask]]
> Sent: Thursday, February 14, 2002 1:40 PM
> To:   [log in to unmask]
> Subject:      QUIZ Question
>
> OK gang, why can't I link the subfile to the dataset?
>
> Here's the QUIZ program that creates the subfile:
>
> ;FILE FAC904Z - REPORTS MJOB NOT REFERENCED IN D-PER-REF-DETL
>
> ;       History: $fac904z.qz $
>
> ACCESS MJOB
>
> SELECT IF JSTATUS <> "C" AND JSTATUS <> "X"
>
> SET REPORT LIMIT 35000
> SET SUBFILE NAME FAC904D
>
> DEFINE JFLIST CHAR*22 = "JOBFUNLIST            "
>
> SORT ON LOC ON JOB
>
> REPORT SUMMARY JOB LOC INITIATIVE JSTATUS JFLIST
>
> BUILD FAC904Z.EXE
>
> Here's the QUIZ program that reads the subfile:
>
> ;FILE FAC904ZA - REPORTS MJOB NOT REFERENCED IN D-PER-REF-DETL
>
> ;       History: $fac904za.qz $
>
> ACCESS *FAC904D LINK JFLIST TO REF-M-KEY OF D-PER-REF-DETL OPTIONAL
>
> SELECT IF INITIATIVE = REF-D-MATCH1 OF REF-M-KEY AND &
>   NOT RECORD REF-M-KEY EXISTS
>
> SET REPORT DEVICE PRINTER NAME FAC904R LIMIT 35000
> SET PAGE WIDTH 80 LENGTH 66
>
> SORT ON LOC ON JOB
>
> PAGE HEADING "FAC904Z" &
>   TAB 20 "MJOB NOT REFERENCED IN D-PER-REF-DETL" &
>   TAB 70 SYSDATE SKIP &
>   TAB 70 "PAGE:" SYSPAGE SKIP 2 &
>   TAB 5 "SITE" &
>   TAB 20 "JOB" &
>   TAB 30 "JSTATUS" SKIP 2
>
> FOOTING AT LOC SKIP 2
>
> REPORT TAB 6 LOC &
>   TAB 18 JOB &
>   TAB 33 JSTATUS
>
> BUILD FAC904ZA.EXE
>
> Here's the error I get:
>
> > USE FAC904Z NOL
> The file FAC904Z.EXE.PROD already exists. Ok to delete?Y
> > GO
>
> Records selected:  4070
> Records sorted:    4070
> Records written:   4070
>
> > USE FAC904ZA
> > ;FILE FAC904ZA - REPORTS MJOB NOT REFERENCED IN D-PER-REF-DETL
> >
> > ;       History: $fac904za.qz $
> >
> > ACCESS *FAC904D LINK JFLIST TO REF-M-KEY OF D-PER-REF-DETL OPTIONAL
> *E* Can't establish linkage to D-PER-REF-DETL.
>
> Obviously, I'm doing something wrong, but I can't figure out what.
>
> TIA,
> Don Harrington
> Sr. Systems Analyst
> Facilities Applications Support
> Shared Services Group
> The Boeing Company
> P.O. Box 3707 M/C 6C-AK
> Seattle, WA  98124-2207
> (v) 425-234-1145 (f) 425-234-0464 (p) 206-797-6360
>
> The opinions expressed in this e-mail reflect those of the sender.  They
> do
> not necessarily reflect the opinions of The Boeing Company unless
> specifically stated otherwise.
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *