HP3000-L Archives

February 2002, Week 4

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:
Where's the flaw in this logic?
From:
Michael Hone <[log in to unmask]>
Reply To:
Michael Hone <[log in to unmask]>
Date:
Thu, 28 Feb 2002 15:47:25 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (38 lines) 
 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 *

ATOM RSS1 RSS2