HP3000-L Archives

July 2002, Week 2

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:
Re: FTPLASTERR values
From:
Matt Hawrysko <[log in to unmask]>
Reply To:
Matt Hawrysko <[log in to unmask]>
Date:
Thu, 11 Jul 2002 15:16:28 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (40 lines) 
We use the FTPLASTERR as in the script below :

!JOB myJob,user/password.account/password;INPRI=12;&
!    OUTCLASS=6,12,1
!FILE WARN;DEV=310
!setjcw jcw = 0
!setjcw currday = hpday
!RUN FTP.ARPA.SYS
OPEN ftp.hp3k.org
USER ftpuser ftppass
cd /home
GET Thisfile.mpef
GET Thatfile.mpef
QUIT
!      if FTPLASTERR = 0 THEN
!STREAM Thisjob.JCL
!FCOPY FROM=;TO=FTPMSG
OK
:EOD
!      else
!FCOPY FROM=WARNMSGS;TO=*WARN;SUBSET=1231,1
!      endif
!      if currday < 7 then
!STREAM Thatjob.JCL;IN=1
!      endif
!      if currday = 7 then
!STREAM Thisjob.JCL;IN=2
!      endif
!EOJ

Note that we use the messg file to request a response to the job so it may
continue ...

Matt Hawrysko
[log in to unmask]
[log in to unmask]

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

ATOM RSS1 RSS2