Your defines must follow the access statement....
I think it should work then.....

mc

-----Original Message-----
From: Harrington, Don [mailto:[log in to unmask]]
Sent: Friday, July 27, 2001 3:51 PM
To: [log in to unmask]
Subject: [HP3000-L] Quiz Conundrum


Gang;

A coworker of mine is having difficulty with the Quiz code shown below.
We've looked at this with a number of pairs of eyes and can see nothing
wrong.  Any help you can provide would be greatly appreciated.  LOC is an X2
filed in an Image database.  We're concerned with the first error only.  The
second error is a result of the first.  We've tried various permutations of
item order and parenthesis.

TIA,
Don Harrington
Sr. Programmer/Analyst
FacApps Support
Facilities Computing Services
Standard Services Group
The Boeing Company
PO Box 3707 M/C 6C-AK
Seattle, WA  98124-2207
(v) 425-234-1145  (f) 425-234-0464  (p) 206-797-6360
Location: 7-42.1, 1C3-2

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.


>
>
> > DEF NAME-MS CHAR*25 = PARM PROMPT "Enter 'Send to' User: "
> > DEF MY-SITE CHAR*1 = PARM PROMPT "Enter Site: "
> > DEF MY-SKILL CHAR*3 = PARM PROMPT "Enter Skill Code: "
> > ACC DENG                                                            &
> >   LINK PROJ OF DENG TO PROJ OF DETABLE                              &
> >   LINK JOB OF DENG TO JOB OF MJOB                                   &
> >   LINK ENGSUPV OF DENG TO SUPV OF MCREW
> >
> > SEL IF (MY-SITE = LOC[1:1] OR MY-SITE = "@" OR MY-SITE = " ") AND   &
>           ^^^^^^^
> *E* Expected:  NOT  (  RECORD  SETSYSTEMVAL  DELETESYSTEMVAL  VALIDPATTERN
>       MATCHPATTERN  MATCHUSER  <number>  <string>  MISSING  NULL
CHARACTERS
>       LOGONID  PORTID  SYSDATE  SYSTIME  SYSNAME  SYSDATETIME  SIGNONUSER
>       SIGNONGROUP  SIGNONACCOUNT  <qualifier>  <item>
> >       (SKILL OF DENG = MY-SKILL OR MY-SKILL = "@" OR MY-SKILL = " ")
>         ^
> *E* Expected:  ACCESS  SQL  DECLARE  BUILD  CHOOSE  OMNIDEX  DEFINE  EDIT
>       DISPLAY  EXECUTE  EXIT  FINAL  FOOTING  GO  HEADING  INITIAL  PAGE
>       QSHOW  QUIT  CANCEL  REPORT  NOREPORT  SAVE  SELECT  AND  SET  SHOW
>       SORT  SORTED  USE  REVISE  HELP
> >
>

* 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 *