RE: Three questions:

[Neil Palmer <npalmer@xxxxxxxxxxx>]

Loyd,

1)  I would guess an API would be available to retrieve this
information, but I have not looked into it.
2) Yes ENDSBS *ALL, or ENDSYS, will run from an interactive job.  You
can't run it in a batch job (well, you probably could, but      your
batch job would also be ended).
2)  You could monitor for the CPF0968 sent to QSYSOPR when the system
ends to a restricted state, or you could just do an     ENDSYS *IMMED,
wait a few minutes,  then SAVSYS and check for a CPF3785 Escape message,
and go into a wait      loop retrying SAVSYS for maybe 15 minutes until
the system ends to a restricted state & SAVSYS is successful.

If you would like a copy of the backup program I use for this same
purpose, e-mail me privately.



Neil Palmer                                AS/400~~~~~      
NxTrend Technology - Canada   ____________          ___  ~     
Thornhill, Ontario,  Canada   |OOOOOOOOOO| ________  o|__||=   
Phone: (905) 731-9000  x238   |__________|_|______|_|______)   
Cell.: (416) 565-1682  x238    oo      oo   oo  oo   OOOo=o\   
Fax:   (905) 731-9202       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
mailto:NPalmer@NxTrend.com    AS/400  The Ultimate Business Server      
http://www.NxTrend.com

> -----Original Message-----
> From: Goodbar, Loyd (AFS-Water Valley) [SMTP:LGoodbar@afs.bwauto.com]
> Sent: Monday, August 24, 1998 3:51 PM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      Three questions:
> 
> Maybe these are easier (and different) questions:
> 1.    I'd like a CL program to know which subsystem it's running in.
> What's the best way to obtain that information. RTVJOBA doesn't appear
> to have that information. I could receive the job submission messages,
> but they'd only show which job queue it was submitted to.
> 2.    In an effort to streamline our weekly backup processes, I've
> been trying to create a single CL that will do the backup for us. I've
> been trying to ENDSBS *ALL.  Will ENDSBS *ALL run through an
> interactive
> CL? I know I can't submit that CL to batch (even in the controlling
> subsystem) because an error message occurs. So, can I programmatically
> ENDSBS *ALL in interactive and/or batch?
> 3.    In that CL program, how would I know when the system is
> restricted? Is there an API I can call or must I do a WRKSBS
> OUTPUT(*PRINT) and massage the spoolfile?
> 
>                               Thanks in advance,
> Loyd Goodbar
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@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 subscribe to this list send email to MIDRANGE-L-SUB@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
+---