John,

Your ftp commands are getting consumed in the first cycle of the while
loop. Try the following:

!setvar ftpcheck 1
!
!echo exitonerror > ftpcmd
!echo open qc6nt >> ftpcmd
!echo user testuser somepass >> ftpcmd
!echo :setvar ftpcheck !ftplasterr
!
!while ftpcheck <> 0 do
!  ftp.arpa.sys < ftpcmd
!  pause 300
!  endwhile

regards,
 
Robert W.Mills
Systems Development Manager
Windsong Services
(020) 8309 3604

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of John Bawden
Sent: 20 April 2005 17:36
To: [log in to unmask]
Subject: [HP3000-L] FTP question

Fellow Listers,

I have a job that runs early on Sunday morning and frequently it cannot
connect to one of our Wintel servers and aborts, holding up my JMS
sequence until I make my system check later in the day. This doesn't
always happen and the network team hasn't been able to find any reason
why the job couldn't connect and the connection is okay when I rerun it
about 6 hours later. Changing the start time is not a good option.
I've tried to develop a test of the connection at the start of the job
in a while do loop and have the job pause 5 minutes and exit the loop
when the FTP will finally connect. Here's my test routine:
!
!setvar ftplasterr 1
!while ftplasterr <> 0 do
!ftp.arpa.sys
 exitonerror
 open qc6nt
 user testuser somepass
!pause 300
!endwhile
!
and it works okay for the first iteration but hits the endwhile after
the pause and keeps on going instead of looping. I think it might have
something to do with the FTPLASTERR variable but can't see it. Anyone
done anything like this or have a way to get this to work?
TIA

John Bawden
QualChoice

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

* 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 *