Subject: | |
From: | |
Reply To: | |
Date: | Thu, 27 Apr 2000 19:09:18 GMT |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
I would appreciate anyone who can tell me why this jobstream is
failing (on ENDWHILE).
I do not understand why the job is not encountering the ENDWHILE. I
even placed a CONTINUE before it but it did not help.
Any hints would be appreciated.
Thanks,
Jim..
: SETVAR OKFLAG 1
: WHILE NOT FINFO("STOPBF",0) OR OKFLAG <> 1 DO
*** EXPRESSION TRUE
: CHGROUP BFIN
: PURGE FTPCMDS,TEMP
^
File "FTPCMDS.BFIN.MANMAN" not found. No purge done. (CIWARN 383)
: ECHO EXITONERROR >> FTPCMDS
: ECHO OPEN 194.6.6.168 >> FTPCMDS
: ECHO USER FTPBF PRAXX >> FTPCMDS
: ECHO CD \BFIN >> FTPCMDS
: ECHO ASCII >> FTPCMDS
: ECHO MGET * >> FTPCMDS
: ECHO MDELETE * >> FTPCMDS
: ECHO QUIT >> FTPCMDS
: RUN FTP.ARPA.SYS;STDIN=FTPCMDS
File Transfer Protocol [A0008S33] (C) Hewlett-Packard Co. 1990
ftp> EXITONERROR
ExitOnError mode on. (FTPINFO 33)
ftp> OPEN 194.6.6.168
220 hound_dog Microsoft FTP Service (Version 4.0).
Connected to 194.6.6.168. (FTPINFO 40)
ftp> USER FTPBF PRAXX
331 Password required for FTPBF.
230 User FTPBF logged in.
Remote system type is Windows_NT.
ftp> CD \BFIN
250 CWD command successful.
ftp> ASCII
200 Type set to A.
ftp> MGET *
200 PORT command successful.
150 Opening ASCII mode data connection for file list.
226 Transfer complete.
30 bytes received in 0.01 seconds (4.88 Kbytes/sec)
200 PORT command successful.
150 Opening ASCII mode data connection for A0000005(82 bytes).
226 Transfer complete.
82 bytes received in 0.00 seconds (26.69 Kbytes/sec)
200 PORT command successful.
150 Opening ASCII mode data connection for A0000006(82 bytes).
226 Transfer complete.
82 bytes received in 0.00 seconds (20.02 Kbytes/sec)
200 PORT command successful.
150 Opening ASCII mode data connection for A0000007(82 bytes).
226 Transfer complete.
82 bytes received in 0.00 seconds (20.02 Kbytes/sec)
ftp> MDELETE *
200 PORT command successful.
150 Opening ASCII mode data connection for file list.
226 Transfer complete.
30 bytes received in 0.00 seconds (5.86 Kbytes/sec)
250 DELE command successful.
250 DELE command successful.
250 DELE command successful.
ftp> QUIT
221
END OF PROGRAM
: IF !FTPLASTERR <> 0 THEN
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
/ENDIF
: SHOWVAR FTP@
: IF !FTPLASTERR = 9 OR !FTPLASTERR = 59 THEN
: TELL #S638 ** FTP IS DOWN **
: EXIT
: ENDIF
: IF FINFO("STOPBF",0) THEN
: TELL #S638 ** JOB STREAM IS FINISHED **
: TELL #S638 ** FOUND A STOP FILE **
: EXIT
: ENDIF
: ENDIF
*** RESUME EXECUTION OF COMMANDS
: IF !FTPLASTERR = 0 THEN
*** EXPRESSION TRUE
: TELL #S638 ** WOULD HAVE RUN T900! **
:COMMENT PURGE @.BFIN
: CONTINUE
: PAUSE 3
: ENDIF
:COMMENT
:COMMENT
: IF OKFLAG = 1 THEN
*** EXPRESSION TRUE
: CHGROUP BFOUT
: PURGE FTPCMDS,TEMP
^
File "FTPCMDS.BFOUT.MANMAN" not found. No purge done. (CIWARN 383)
: ECHO EXITONERROR >> FTPCMDS
: ECHO OPEN 194.6.6.168 >> FTPCMDS
: ECHO USER FTPBF PRAXX >> FTPCMDS
: ECHO CD \BFOUT >> FTPCMDS
: ECHO ASCII >> FTPCMDS
: ECHO MDELETE * >> FTPCMDS
: ECHO MPUT * >> FTPCMDS
: ECHO QUIT >> FTPCMDS
: RUN FTP.ARPA.SYS;STDIN=FTPCMDS
File Transfer Protocol [A0008S33] (C) Hewlett-Packard Co. 1990
ftp> EXITONERROR
ExitOnError mode on. (FTPINFO 33)
ftp> OPEN 194.6.6.168
220 hound_dog Microsoft FTP Service (Version 4.0).
Connected to 192.6.1.160. (FTPINFO 40)
ftp> USER FTPBF PRAXX
331 Password required for FTPBF.
230 User FTPBF logged in.
Remote system type is Windows_NT.
ftp> CD \BFOUT
250 CWD command successful.
ftp> ASCII
200 Type set to A.
ftp> MDELETE *
200 PORT command successful.
150 Opening ASCII mode data connection for file list.
226 Transfer complete.
0 bytes received in 0.00 seconds (NaN Kbytes/sec)
ftp> MPUT *
200 PORT command successful.
150 Opening ASCII mode data connection for A0000005.
226 Transfer complete.
82 bytes sent in 0.00 seconds (80.08 Kbytes/sec)
ftp> QUIT
221
END OF PROGRAM
: IF !FTPLASTERR <> 0 THEN
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
/ENDIF
: SHOWVAR FTP@
: IF !FTPLASTERR = 9 OR !FTPLASTERR = 59 THEN
: TELL #S638 ** FTP IS DOWN **
: EXIT
: ENDIF
: IF FINFO("STOPBF",0) THEN
: TELL #S638 ** JOB STREAM IS FINISHED **
: TELL #S638 ** FOUND A STOP FILE **
: EXIT
: ENDIF
: ENDIF
*** RESUME EXECUTION OF COMMANDS
: IF !FTPLASTERR = 0 THEN
*** EXPRESSION TRUE
: TELL #S638 ** DELETEING FILES! **
: CONTINUE
: PURGE @.BFOUT
1 files matched
1 selected. 1 succeeded. 0 failed.
: CONTINUE
: ENDIF
: PAUSE 10
: CONTINUE
: ENDWHILE
This ENDWHILE command does not have a corresponding WHILE.
The ENDWHILE is ignored. (CIWARN 10303)
:COMMENT
:COMMENT
: IF OKFLAG <> 1 THEN
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
/ENDIF
: TELL #S638 ** OKFLAG WAS SET TO FALSE BY TR900
: ENDIF
*** RESUME EXECUTION OF COMMANDS
: IF FINFO ("STOPBF",0) THEN
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE
/ENDIF
: TELL #S638 ** FOUND A STOP FILE, EXITING JOB STREAM
: ENDIF
*** RESUME EXECUTION OF COMMANDS
:EOJ
CPU sec. = 4. elapsed min. = 1. THU, APR 27, 2000, 2:59 PM.
|
|
|