QUIZ Question

Thu, 14 Feb 2002 13:28:00 -0600

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:don.harrington@boeing.com]
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:KKONEK@thecreek.com]
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:don.harrington@boeing.com]
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: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
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: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.