Everyone responding has asked for me to give more details, so here is the JCL:

!JOB CHP5999A,DBA.BACKUPS,REACT;OUTCLASS=LP,1
!COMMENT The HP5 partial backup runs from 4:00-5:00 AM, so if it is
!COMMENT after 3:00 AM wait until 5:00 AM to do the copy.
!IF HPHOUR = 3 OR HPHOUR = 4
! SETVAR MYPAUSE (60 * (5 - HPHOUR) - HPMINUTE) * 60
! ECHO PAUSE !MYPAUSE
! PAUSE !MYPAUSE
!ENDIF
!SHOWTIME
!
!SETVAR TIMECNT 0
!SETJCW CIERROR 0
!CONTINUE
!DSLINE HP5;OPEN
!WHILE CIERROR <> 0
! SETVAR TIMECNT TIMECNT + 2
! IF TIMECNT > 60
!  UNABLE TO COMMUNICATE TO HP5
! ENDIF
! PAUSE 120
! SETJCW CIERROR 0
! CONTINUE
! DSLINE HP5;OPEN
(24/69) Continue?
!ENDWHILE
!SHOWTIME
!
!REMOTE HELLO REMOTEB,DBA.REACTDEV;PRI=DS
!CONTINUE
!REMOTE MPEX.PUB.VESOFT "YESPURGE [log in to unmask]@",1
!WHILE NOT FINFO("BU999FL.REACT",0)
! PAUSE 60
! ECHO PAUSED...
!ENDWHILE
!
!SETVAR TIMECNT 0
!SETJCW CIERROR 0
!CONTINUE
!DSCOPY BU999FL.REACT TO @.BACKUP2:HP5;FCODE=-21074;REP
!WHILE CIERROR <> 0
! SETVAR TIMECNT TIMECNT + 2
! IF TIMECNT > 60
!  UNABLE TO COMMUNICATE TO HP5
! ENDIF
! PAUSE 120
! SETJCW CIERROR 0
! CONTINUE
(47/69) Continue?
! DSCOPY BU999FL.REACT TO @.BACKUP2:HP5;FCODE=-21074;REP
!ENDWHILE
!
!IF FINFO("BU999DB.REACT",0)
!SETVAR TIMECNT 0
!SETJCW CIERROR 0
!CONTINUE
!DSCOPY BU999DB.REACT TO @.BACKUP:HP5;FCODE=-21074;REP
!WHILE CIERROR <> 0
! SETVAR TIMECNT TIMECNT + 2
! IF TIMECNT > 60
!  UNABLE TO COMMUNICATE TO HP5
! ENDIF
! PAUSE 120
! SETJCW CIERROR 0
! CONTINUE
! DSCOPY BU999DB.REACT TO @.BACKUP:HP5;FCODE=-21074;REP
!ENDWHILE
!ENDIF
!
!DSCOPY [log in to unmask] TO @.PUB:HP5;REP
!REMOTE BYE
!EOJ
:

































>Return-Path: <[log in to unmask]>
>From: [log in to unmask]
>Date: Thu, 7 Nov 1996 11:41:12 -0500
>Subject: Re: DSCOPY Error Checking
>To: Cherryl Ball <[log in to unmask]>
>Content-Description: cc:Mail note part
>Content-Length: 1506
>
>I do not have an answer for your question, but I'm curious:
>
>What do you mean "copies RoadRunner files from production to test"?
>What RoadRunner files?
>
>Leonard Berkowitz
>RIAG Group (Warren, Gorham & Lamont)
>
>
>______________________________ Reply Separator
_________________________________
>Subject: DSCOPY Error Checking
>Author:  Cherryl Ball <[log in to unmask]> at Internet-Exchange
>Date:    11/06/96 4:30 PM
>
>
>Does anyone know of a way to check for disk space conditions doing a DSCOPY
>from one HP to another?
>My weekly backup process copies my RoadRunner files from production to test.
>We have had disk space
>problems for the last two weeks.  The job appears to loop forever until it
>finally abends.  There are
>a few files that I transfer.  I would like the job to fail on the initiating
>HP as soon as a disk
>space problem is encountered.
>
>
>Thanks in advance for any response
>       _________________________________________________
>>     / )| Cherryl Ball       [log in to unmask]     |( \
>>    / / | 1201 Elm Street    audix 1-214-658-5845     | \ \
>>  _( (_ | Suite 1004D        pager 1-214-781-4473     | _) )_
>> (((\ \>| /->                  fax 1-214-658-3922 <-\  | </ /)))
>> (\\\\ \|/ /_______________________________________\ \_/ ////)
>>  \       /          Mobil Oil Corporation          \       /
>>   \    _/       HP3000 Database Administrator       \_    /
>>   /   /              Dallas, Texas 75270             \   \
>>  /___/  ============================================  \___\
>>
>
>
       _________________________________________________
>     / )| Cherryl Ball       [log in to unmask]     |( \
>    / / | 1201 Elm Street    audix 1-214-658-5845     | \ \
>  _( (_ | Suite 1004D        pager 1-214-781-4473     | _) )_
> (((\ \>| /->                  fax 1-214-658-3922 <-\  | </ /)))
> (\\\\ \|/ /_______________________________________\ \_/ ////)
>  \       /          Mobil Oil Corporation          \       /
>   \    _/       HP3000 Database Administrator       \_    /
>   /   /              Dallas, Texas 75270             \   \
>  /___/  ============================================  \___\
>