HP3000-L Archives

June 2001, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Cannot Recognize Keyword
From:
"Harrington, Don" <[log in to unmask]>
Reply To:
Harrington, Don
Date:
Fri, 8 Jun 2001 14:38:37 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (63 lines) 
Keven;

That worked great!

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.




-----Original Message-----
From: Keven Miller [mailto:[log in to unmask]]
Sent: Friday, June 08, 2001 2:02 PM
To: Harrington, Don; [log in to unmask]
Subject: RE: [HP3000-L] Cannot Recognize Keyword


I believe all FTN IF conditions need to be inside parins "()"
Each of these statments would need an outer set to contain the complete
conditional
      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


> _____________________________________________________________
> Keven Miller   mailto:[log in to unmask]   http://www.exegesys.com
>
>
>
---------------------------------------------------
Plan now to attend the
eXegeSys eRP Users Conference 2001, Oct. 1-4, Downtown SLC.
Register today by visiting www.exegesys.com/welcome.htm

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2