I have a while loop for an FTP we do to the IBM EDI network.  The loop is
supposed to try every 30 seconds to connect and transfer the file if there
is a failure.  In the real example, there is a failure except the unexpected
message of "variable name encountered, but variable is not defined (cierr
9805) comes up.

What's wrong that I'm not seeing (must be visions of tacos and enchiladas)?

:COMMENT ************************************
:COMMENT * STEP 8, SEND FUNCTIONAL ACK      *
:COMMENT *         BACK TO IBM              *
:COMMENT ************************************
:COMMENT TRANSMIT TO IBM NETWORK WITH FTP
:PURGE FTPIN,TEMP
      ^
File "FTPIN.DATABASE.EDITRAN" not found.  No purge done. (CIWARN 383)
:BUILD FTPIN;REC=-80,,F,ASCII;DISC=100;TEMP
:ECHO USER XXXX.XXXXX XXXXX >>FTPIN
:ECHO BINARY >>FTPIN
:ECHO DEBUG >>FTPIN
:ECHO EXITONERROR >>FTPIN
:ECHO CD EDI >>FTPIN
:ECHO SITE CONFIRM 1 >>FTPIN
:ECHO SITE EDIREPLIES 2 >>FTPIN
:ECHO SITE EDIALIASONLY 1 >>FTPIN
:ECHO PUT IBMSEND.DATABASE >>FTPIN
:ECHO QUIT >>FTPIN
:SETJCW FTPOK 0
:WHILE FTPOK = 0
*** EXPRESSION TRUE
:    SETJCW CIERROR 0
:    SETJCW JCW 0
:    DELETEVAR FTP@
:    FTP IBMNETWORK<FTPIN


File Transfer Protocol [A0009F05] (C) Hewlett-Packard Co. 1990
220 ieftp5 IE-FTP server (v4r1m0.d) ready on system USA.
Connected to IBMNETWORK (NN.NN.NNN.74).  (FTPINFO 40)
ftp> USER XXXX.XXXXX XXXXX
331 Enter Password.
421 Communications dropped to Information Exchange - session terminated.
Cannot connect to host:   (FTPERR 9)
ftp> BINARY
Not connected.  (FTPERR 8)
ftp> DEBUG
Debugging on (debug=1).  (FTPINFO 24)
ftp> EXITONERROR
ExitOnError mode on.  (FTPINFO 33)
ftp> CD EDI
Not connected.  (FTPERR 8)


:    IF JCW = 0 AND CIERROR = 0 AND FTPLASTERR = 0 THEN
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
/ENDIF
:        SETJCW FTPOK 1
:    ELSE
*** RESUME EXECUTION OF COMMANDS
:        SHOWVAR FTP@
FTPLASTERR = -8
FTPXFERFILES = 0
FTPREQFILES = 0
FTPREPLACE = TRUE
FTPLASTREPLY = 421 Communications dropped to Information Exchange - session
term

FTPLASTMSG = Not connected.  (FTPERR 8)
:        PAUSE 30
:    ENDIF
:ENDWHILE
 ^
Variable name encountered, but variable is not defined.
 (CIERR 9805)
Error executing commands in WHILE loop. (CIERR 10310)
REMAINDER OF JOB FLUSHED.
CPU sec. = 3680.  elapsed min. = 97.  MON, NOV 12, 2001,  4:39 AM.

Mike Berkowitz
Guess? Inc.

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