At 04:17 AM 12/31/97 GMT, you wrote:

ENDSBS is one of those commands that goes out there and does it's own
thing.  You can not determine if the subsystem is down or not with a MONMSG
or even a wait.

What you can do is to do a shorter wait, and re-issue the ENDSBS command.
If the subsystem has ended, you should get a CPF1054 escape, and you now
know it's ok to proceed.  An example of such coding can be found by
retrieving the CL for QMNSAVE, but be cautious, this is an extremely
complicated CL program.  If memory serves me correctly, this program does
an ENDSBS *IMMED, and then monitors for a CPF1035.  In this case, the
reverse logic is used.  When it fails to get the CPF1035, it now knows that
the system has achieved a restricted state, and then it's OK to proceed.

Alternatively, there are APIs that do the equivalent of WRKACTJOB, but
these are not for the light of heart.

There is a TAATOOL called CVTWRKSBS.  If memory serves me correctly, this
tool is an old tool and was supplied in the free versions of TAA which used
to be found in QUSRTOOL.  If, I'm wrong, it is certainly in the versions
which we sell today.

Al


>Recent events have prompted me in looking beyond the AS/400's built-in
>backup facilities. 
>
>I currently have a skeleton for my own custom backup program -
>hopefully a CL-only solution. I'm reading a list of libraries to save
>from a file, ending SBS QINTER so no one can sign on, running the
>SAVLIB command for my libraries, and then restarting QINTER.
>
>I do have a few questions:
>
>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?
>
>2. What kind of error trapping should I use? I know a bit about CL but
>the MONMSG stuff is a little confusing at times.
>
>Thanks for any info,
> - lg -
>
>Loyd Goodbar
>MIS manager
>Las Vegas Casino
>Greenville, Mississippi
>+---
>| 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
>
>

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


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].