Well, it turns out that, not only is REF-M-KEY not a defined key in the
dictionary, it's not a defined key in the database, either! It IS an
OMNIDEX key, but we're not sure if we're on a version of QUIZ that can
access Third Party Indexes (TPIs).
Thanks for the help anyway, everyone.
Later,
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: Edis, Bob [mailto:[log in to unmask]]
Sent: Thursday, February 14, 2002 11:28 AM
To: PowerHouse List (E-mail)
Subject: RE: QUIZ Question
Don
If this is a non-relational DBMS, and I assume so from the use of '-'
instead of '_' in the record and column names, the link requires that you
join on an index segment/field.
Your code here indicates that D-PER-REF-DETL is the record name and
REF-M-KEY is an index field.
ACCESS *FAC904D LINK JFLIST TO REF-M-KEY OF D-PER-REF-DETL OPTIONAL
Here the code is saying the 'REF-M-KEY' is a file name.
SELECT IF INITIATIVE = REF-D-MATCH1 OF REF-M-KEY AND &
NOT RECORD REF-M-KEY EXISTS
Maybe I'm completely mistaken but shouldn't it be:
SELECT IF initiative = ref-d-match1 OF d-per-ref-detl
AND NOT RECORD d-per-ref-detl EXISTS ?
Also the logic would always prove FALSE as the conditions are mutually
exclusive. I.e. it the record doesn't exist then initiative will NEVER
match data that doesn't exist.
Regards,
Blue
-----Original Message-----
From: Harrington, Don [mailto:[log in to unmask]]
Sent: Thursday, February 14, 2002 1:13 PM
To: 'Kathy Konek'
Cc: PowerHouse-L (E-mail); HP3000-L (E-mail)
Subject: RE: QUIZ Question
Kathy;
Here you go:
- SHOW RECORD D-PER-REF-DETL
02/14/02 ISDS FACILITIES SYSTEMS Page 1
R E C O R D R E P O R T
For DICTIONARY: PHD
Record: D-PER-REF-DETL
of File: PERDB1
Organization: DETAIL
Type: TURBOIMAGE
Open: D-PER-REF-DETL of PERDB1.DB
Description:
Used to store miscellaneous information
<file owner: M Goodwin >
Record Size: 110 Bytes
-- Record Contents --
Item Type Size Occ Offset
REF-M-KEY CHARACTER 22 0
REF-D-MATCH1 CHARACTER 10 22
REF-D-MATCH2 CHARACTER 4 32
REF-D-DESC CHARACTER 40 36
REF-D-COMMENT CHARACTER 30 76
REF-D-SITE CHARACTER 4 106
Maybe the key isn't defined? I'll look into that.
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: Kathy Konek [mailto:[log in to unmask]]
Sent: Thursday, February 14, 2002 10:59 AM
To: 'Harrington, Don'
Subject: RE: QUIZ Question
Can we get a QSHOW on D-PER-REF-DETL or Show Items or something with the
file format?
Thanks
-----Original Message-----
From: Harrington, Don [mailto:[log in to unmask]]
Sent: Thursday, February 14, 2002 10:40 AM
To: PowerHouse-L (E-mail)
Cc: HP3000-L (E-mail)
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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
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 *
|
