Thanks for that catch, John, but that doesn't solve my original problem.
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.
-----Original Message-----
From: Pickering, John (NORBORD) [mailto:[log in to unmask]]
Sent: Thursday, February 14, 2002 10:51 AM
To: 'Harrington, Don'; [log in to unmask]
Cc: 'Powerhouse List'
Subject: RE: QUIZ Question
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 *
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: [log in to unmask]
Subscribe: "subscribe" in message body to [log in to unmask]
Unsubscribe: "unsubscribe" in message body to
[log in to unmask]
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|