RE: More automated backup

["Kempter, Eric" <EKempter@xxxxxxxxxx> (by way of David Gibbs <david@xxxxxxxxxxxx>)]

You could also skip the check.

1.  Execute your next command (SAVSYS??)
2.  Monitor for an abend (Subsystem xxx is still active).
3.  DLYJOB 5 minutes if abend occurs
4.  Retry the command
etc ...


Happy New Year.

Eric Kempter
Senior Programmer/Analyst
E-Mail:  EKempter@Smsocs.com

 -----Original Message-----
From: midrange-l-owner [SMTP:midrange.com!midrange-l-owner@mcs.com]
Sent: Tuesday, January 13, 1998 8:17 AM
To: MIDRANGE-L
Subject: Re: More automated backup

>1. After ENDSBS QINTER OPTION(*IMMED), I am issuing a DLYJOB 600 to
>wait for 10 minutes. How do I know if and when QINTER ends?

Monitoring for the 'Subsystem xxxx ended' message in
QSYSOPR is one option.  Another is to perform the
WRKSBSJOB SBS(XX) OUTPUT(*PRINT).   If the
subsystem is not active WRKSBSJOB will issue
CPF1003.

Or you could use the Work Management API QWCLASBS
(which lists active subsystems) or QWDRSBSD) which
returns specific information about a subsystem and I
believe includes number of active jobs and the status
of the subsystem.

I have used the WRKSBSJOB approach for years.  I wish
I had time to work with the API's on legacy programs :-)

Michael Crump
Technical Project Leader
Ball-Foster Glass Container Corp.


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


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