I tried Paul Christidis' suggestion and it worked great.
I also tried putting the FTP commands into a permanent file and then using
that as the STDIN, but FTP kept giving me a "Not connected. (FTPERR 8)"
error. When I put the commands into a temp file as suggested by Paul, it
worked with no problem.
Thanks to all who responded.
Jim.
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Vance, Jeff H (Cupertino)
Sent: Friday, May 12, 2006 5:22 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] I/O read error in FTP stream job
I replied to James privately but Paul's reply reminded me that inline
data in jobs does not work inside a WHILE loop. Paul's solution works
best. (I would also use variables instead of JCWs just to keep the CI
in native mode.)
Jeff Vance, vCSY
> -----Original Message-----
> From: HP-3000 Systems Discussion
> [mailto:[log in to unmask]] On Behalf Of Paul H Christidis
> Sent: Friday, May 12, 2006 1:46 PM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] I/O read error in FTP stream job
>
> James,
>
> The problem is do to the 'in-line' FTP commands. Try the following
> 'rearranged' stream file:
>
> !JOB FTPRECV,EDIMGR.EDITRAN,FTPRECV;PRI=DS;OUTCLASS=LP,1
> !COMMENT
> **************************************************************
> !COMMENT *
> !COMMENT * PUT A LIST OF THE FILENAMES ON THE FTP SERVER INTO A FILE
> !COMMENT *
> !COMMENT
> **************************************************************
> !PURGE FTPFILES
> !FILE FTPFILES,NEW; REC=-80,,F,ASCII; NOCCTL; TEMP
> !ECHO OPEN xxx.xxx.xxx.xxx >>ftpstdin
> !ECHO USER user password >>ftpstdin
> !ECHO BINARY >>ftpstdin
> !ECHO EXITONERROR >>ftpstdin
> !ECHO CD \Customer\IN >>ftpstdin
> !ECHO LS >>ftpstdin
> !ECHO QUIT >>ftpstdin
> !SETJCW FTPOK 0
> !WHILE FTPOK = 0
> ! SETJCW CIERROR 0
> ! SETJCW JCW 0
> ! RUN FTP.ARPA.SYS;stdin=ftpstdin;STDLIST=*FTPFILES
> ! SAVE FTPFILES
> ! IF JCW = 0 AND CIERROR = 0 AND FTPLASTERR = 0 THEN
> ! SETJCW FTPOK 1
> ! ELSE
> ! SHOWVAR FTP@
> ! PAUSE 30
> ! ENDIF
> !ENDWHILE
>
> Regards
> Paul Christidis
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
This e-mail is intended solely for the person or entity to which it is addressed and may contain confidential and/or privileged information. Any review, dissemination, copying, printing, forwarding or other use of this e-mail by persons or entities other than the addressee is prohibited. If you have received this e-mail in error, please contact the sender immediately and delete the material from your computer. Opinions, conclusions and other information in this message that do not relate to the official business of TB Woods Incorporated shall be understood as neither given or endorsed by it.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
