First of all, it's great to be back in the world of the 3000!  Now to the point:

The following code generates an Error 88, cannot recognize keyword in FORTRAN 66 (don't blame me, I inherited this application):

      IF (LOAN .EQ. "68DGS" .OR. LOAN .EQ. "68WHE" .OR.
     X    LOAN .EQ. "68WHF" .OR. LOAN .EQ. "68WHM" .OR.
     X    LOAN .EQ. "68WHN" .OR. LOAN .EQ. "68WHW" .OR.
     X    LOAN .EQ. "68WNF" .OR. LOAN .EQ. "68WNH" .OR.
     X    LOAN .EQ. "68WHK" .OR. LOAN .EQ. "68WNM" .OR.
     X    LOAN .EQ. "68WNX" .OR. LOAN .EQ. "68WRC" .OR.
     X    LOAN .EQ. "68WRV" .OR. LOAN .EQ. "68WRE" .OR.
     X    LOAN .EQ. "68WRK" .OR. LOAN .EQ. "68WRM" .OR.
     +    LOAN .EQ. "68WRU" .OR. LOAN .EQ. "68WRX") .OR.
     +   (HOME .EQ. "68DGS" .OR. HOME .EQ. "68WHE" .OR.
     X    HOME .EQ. "68WHF" .OR. HOME .EQ. "68WHM" .OR.
     X    HOME .EQ. "68WHN" .OR. HOME .EQ. "68WHW" .OR.
     X    HOME .EQ. "68WNF" .OR. HOME .EQ. "68WNH" .OR.
     X    HOME .EQ. "68WHK" .OR. HOME .EQ. "68WNM" .OR.
     X    HOME .EQ. "68WNX" .OR. HOME .EQ. "68WRC" .OR.
     X    HOME .EQ. "68WRV" .OR. HOME .EQ. "68WRE" .OR.
     X    HOME .EQ. "68WRK" .OR. HOME .EQ. "68WRM" .OR.
     X    HOME .EQ. "68WRU" .OR. HOME .EQ. "68WRX")
     X    GOTO 34

For this code, I get an error 185, undeclared array name, with the ^ pointing to the period after the first EQ:

      IF (LOAN .EQ. "68DGS" .OR. LOAN .EQ. "68WHE" .OR.
     X    LOAN .EQ. "68WHF" .OR. LOAN .EQ. "68WHM" .OR.
     X    LOAN .EQ. "68WHN" .OR. LOAN .EQ. "68WHW" .OR.
     X    LOAN .EQ. "68WNF" .OR. LOAN .EQ. "68WNH" .OR.
     X    LOAN .EQ. "68WHK" .OR. LOAN .EQ. "68WNM" .OR.
     X    LOAN .EQ. "68WNX" .OR. LOAN .EQ. "68WRC" .OR.
     X    LOAN .EQ. "68WRV" .OR. LOAN .EQ. "68WRE" .OR.
     X    LOAN .EQ. "68WRK" .OR. LOAN .EQ. "68WRM" .OR.
     +    LOAN .EQ. "68WRU" .OR. LOAN .EQ. "68WRX") .OR.
     +   (HOME .EQ. "68DGS" .OR. HOME .EQ. "68WHE" .OR.
     X    HOME .EQ. "68WHF" .OR. HOME .EQ. "68WHM" .OR.
     X    HOME .EQ. "68WHN" .OR. HOME .EQ. "68WHW" .OR.
     X    HOME .EQ. "68WNF" .OR. HOME .EQ. "68WNH" .OR.
     X    HOME .EQ. "68WHK" .OR. HOME .EQ. "68WNM" .OR.
     X    HOME .EQ. "68WNX" .OR. HOME .EQ. "68WRC" .OR.
     X    HOME .EQ. "68WRV" .OR. HOME .EQ. "68WRE" .OR.
     X    HOME .EQ. "68WRK" .OR. HOME .EQ. "68WRM" .OR.
     X    HOME .EQ. "68WRU" .OR. HOME .EQ. "68WRX") TYPE = "P"

For this code, I get an error 58, expected assignment operator:

      IF (LOAN .EQ. "68AK7" .OR. LOAN .EQ. "68AL7" .OR.
     X    LOAN .EQ. "68DBS" .OR. LOAN .EQ. "68W1P") .OR.
     X   (HOME .EQ. "68QK7" .OR. HOME .EQ. "68AL7" .OR.
     X    HOME .EQ. "68DBS" .OR. HOME .EQ. "68W1P") TYPE = "P"

If this list is anything like it was when I left it four years ago, I should have an answer before I go home at 3:00 PDT.  :-D


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

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 *