Thanks to everybody for their contributions. I'm all straightened out now.
Michael
-----Original Message-----
From: John Overton [mailto:[log in to unmask]]
Sent: Thursday, February 28, 2002 3:58 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Where's the flaw in this logic?
Because on Line 71 you are using an ELSEIF. It was already TRUE on line 55,
so the ELSEIF, is by definition FALSE.
John
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
Behalf Of Michael Hone
Sent: Thursday, February 28, 2002 3:47 PM
To: [log in to unmask]
Subject: [HP3000-L] Where's the flaw in this logic?
55 : IF FINFO ("HOUD1.PUB",0) THEN
56 *** EXPRESSION TRUE
57 : IF FINFO ("HOUD1.PUB","INTCREATED")=!HPYYYYMMDD THEN
58 *** EXPRESSION TRUE
59 : IF FINFO ("HOUD1.PUB",19) > 0 THEN
60 *** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
61 /ENDIF
62 : PURGE HOUD2.PUB
63 : PURGE HOUD3.PUB
64 : COPY HOUD1.PUB,HOUD2.PUB
65 : RUN EDITOR.PUB.SYS<HOUDINI2.USERSTR2
66 : RUN FTP.ARPA.SYS<HOUDINI3.USERSTR2
67 : ENDIF
68 *** RESUME EXECUTION OF COMMANDS
69 : ENDIF
70 :
71 : ELSEIF FINFO ("HOUD1.PUB",0) THEN
72 *** COMMANDS IGNORED UNTIL MATCHING ENDIF
73 : IF FINFO ("HOUD1.PUB","INTCREATED")=!HPYYYYMMDD THEN
74 : IF FINFO ("HOUD1.PUB",19) = 0 THEN
75 : PURGE HOUD1.PUB
76 : BUILD HOUD1.PUB;REC=-80,,F,ASCII;DISC=5000
77 : ENDIF
78 : ENDIF
79 : ENDIF
80 *** RESUME EXECUTION OF COMMANDS
Why does "IF FINFO ("HOUD1.PUB",0) THEN" prove true on line 55 but false on
line 71? (the file does exist, by the way)
Thanks,
Michael
* 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|