RE: Three questions:

Thanks! I have for the moment abandoned trying to ENDSBS *ALL *IMMED in
a CL program. Does ENDSBS *ALL *IMMED give the same results as ending
all subsystems by hand (except the controlling one)? Would that also
result in the message stating the system is restricted?

> -----Original Message-----
> From: Glenn Gundermann [SMTP:ggundermann@rachisholm.com]
> Sent: Sunday, October 04, 1998 5:48 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: Three questions:
> 
> Loyd,
> 
> Am I too late for this one?  Was it already answered?  Here's my
> solution anyway;
> 
> You can retrieve the controlling subsystem name from the system value
> QCTLSBSD.
> You can call program QMNSBS to retrieve which subsystem you are
> running in.
> Then compare the two.
> 
> You can tell if the system is in restricted state by monitoring for
> CPF3785 on
> the SAVSYS, SAVLIB *NONSYS or whatever command you are using that
> requires
> restricted state and keep looping until okay.
> 
> Here's a cut from my nightly backup program.
> 
> dcl &cnt &dec 3,0
> dcl &cnta *char 3
> dcl &sbs *char 10
> dcl &ctlsbsd *char 20
> 
> rtvsysval qctlsbsd &ctlsbsd /* retrieve controlling subsystem name */
> call qmnsbs parm(&sbs  '  '    '  ') /* retrieve subsystem name job is
> active */
> 
> if cond(&sbs *ne %sst(&ctlsbsd 1 10)) then(do)
> sndpgmmsg msgid(cpf9897) msgf(qcpfmsg) msgdta('Job is not in
> controlling
> subsystem' *bcat %sst(&ctlsbsd 1 10) *tcat '.') msgtype(*escape)
> enddo
> 
> endsbs *all *immed
> 
> wait:
> chgvar &cnt &cnt+1
> chgvar &cnta &cnt
> sndpgmmsg msgid(cpf9897) msgf(qcpfmsg) msgdta('Waiting 30 seconds for
> all
> subsystems to end.  Attempt number' *bcat &cnta *cat '.') topgmq(*ext)
> msgtype(*status)
> 
> savsys dev(&dev) expdate(&expdate) endopt(*leave)
> monmsg msgid(cpf3785) exec(goto wait) /* not all subsystems ended. */
> .....
> 
> Glenn Gundermann
> Ronald A. Chisholm Limited
> Toronto
> 
> 
+---
| 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
+---