RE: More automated backup

["York, Albert" <albert.york@xxxxxxxxxxxxxx>]

This is the solution we use. It is simple and will not waste any time. 

ENDSBS      SBS(QINTER) OPTION(*IMMED)               
MONMSG     MSGID(CPF1054) EXEC(GOTO CMDLBL(NOTACTIVE))           
ALCOBJ       OBJ((QINTER *SBSD *EXCL)) WAIT(900)      
MONMSG     MSGID(CPF1002) EXEC(ERROR)                  

>----------
>From:  Al Barsa, Jr.[SMTP:barsa2@ibm.net]
>Sent:  Friday, January 16, 1998 7:22 AM
>To:    MIDRANGE-L@midrange.com
>Subject:       Re: More automated backup
>
>At 04:20 AM 1/15/98 GMT, you wrote:
>>On Tue, 13 Jan 1998 22:46:39 -0600, Neil Palmer <npalmer@NxTrend.com>
>>wrote:
>>
>>>     I've never seen QINTER wait more than 10 minutes before ending
>>>when
>>>     usind ENDSBS QINTER *IMMED.
>>>
>I thought I answered this before.  On most systems, 10 minutes is much too
>long.  If you have a system with 5000 interactive jobs in QINTER, 10
>minutes will not be enough.
>
>What you need to do is:
>
>       ENDSBS QINTER *IMMED
>       DLYJOB DLY(15)
>LOOP:  ENDSBS QINTER *IMMED
>       MONMSG CPF1054 EXEC(GO CONTINUE)
>       MONMSG CPF0000
>       GOTO LOOP
>CONTINUE:
>
>This will waste the minimum amount of time.
>
>Al
>
>
>
>Al Barsa, Jr. - Account for Midrange-L
>Barsa Consulting, LLC. 
>400 > 390
>
>Phone: 914-251-9400
>Fax:   914-251-9406
>
>
>
>
>
>Private mail should be sent to barsa@ibm.net
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
>| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---
>uucp
>
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---