Re: ENDSBS *ALL in batch

In a word: No.  You can not bring the system to a controlled state (ENDSBS *ALL 
*IMMED)
from anything other than an interactive job logged into QSYS.  Generally, this 
is usually one
device, your console.

I am guessing you are wanting to do the exact same thing I wanted to do years 
ago,
create your own backup program to run nightly or weekly without someone having 
to
be there to baby sit it.

You have a few options.

The option we went with was writing this program and running it on Console when 
we
were done for the day, it would do the ENDSBS *ALL IMMED but I found it had
problems, so I would generally bring the system to a controlled state (ENDSBS 
*ALL *IMMED)
before hand, then run the program.

The program would back up the system (at the time, SAVSYS, SAVOBJ *NONSYS, 
SAVDLO,
but more is required now) and then do a PWRDWNSYS RESTART(*YES).  So, we would 
run
the program and walk away.  The next morning, the system would be back up after 
doing a backup.
One other thing I did was do a MONMSG after each SAV command and jump to the 
end of the
program where it brought the system back up. That way if there was a problem 
(tape not initialized,
bad tape, etc...) the system would still be up in the morning.

Your second option is to purchase a backup software to do this for you.  Robot 
comes to mind. I've
gotten numerous flyers for this backup program for the AS/400 for unmonitored 
backups and from what
I read it seemed to do what I wanted it to do. Unfortunately, TPTB didn't want 
to spend the $$$ for it.

Regards,

Jim Langston


Date: Mon, 21 Aug 2000 09:02:06 -0400
From: "Goodbar, Loyd (AFS-Water Valley)" <LGoodbar@afs.bwauto.com>
Subject: ENDSBS *ALL in batch

For our weekly backup program, we want to end the system to a restricted
condition. The program works great when run from a command line, but bombs
when run from the internal job scheduler (WRKJOBSCDE) or the advanced job
scheduler (GO JS). The error message I'm getting is:

4800 - ENDSBS SBS(*ALL) OPTION(*IMMED)
CPF1052 Escape 40 ENDSBS *ALL not allowed in current environment.
        ENDSBS *ALL is not allowed only from an interactive job that is
started from a *SIGNON workstation entry in the controlling subsystem.
ENDSBS *ALL is not allowed from a target pass-through job.

The job is submitted to the QCTL subsystem, running as user QSYSOPR.

Is there an easy way around this?

Thanks!
Loyd

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