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:
From:
Keven Miller <[log in to unmask]>
Reply To:
Keven Miller <[log in to unmask]>
Date:
Fri, 8 Jun 2001 15:01:54 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (37 lines)
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