Re: RCLSTG from a CL Program

["Al Barsa" <barsa@xxxxxxxxxxxxxxxxxxx>]

You need to determine that you are the console, and that you are in a
restricted state.  You can determine that you are the console by comparing
your device to the system value QCONSOLE.  Once you are the console, you
can then issue the command:

ENDSBS *ALL *IMMED

you should then wait 15 seconds and reissue the same command.  If you get a
CPF1035 (sick, I did that by memory), you know that you have to re-loop,
because you have not yet gotten to a restricted state.  If you get no
escape message, you are there, and can go ahead with the RCLSTG.

To see a sample of this code (and this is not for the faint of heart), you
can to a RTVCLSRC on the IBM supplied program QMNSRBND, which is the IBM
supplied program that achieves a restricted state for a variety of IBM
supplied code, like save option 21.  WARNING:  NOT FOR THE FAINT OF HEART
IN CL.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com





                                                                                
                                                          
                      "Mark Phippard"                                           
                                                          
                      <MarkP@xxxxxxxxxxxxx        To:       Midrange Systems 
Technical Discussion <midrange-l@xxxxxxxxxxxx>               
                      om>                         cc:                           
                                                          
                      Sent by:                    Subject:  RCLSTG from a CL 
Program                                                      
                      midrange-l-bounces@x                                      
                                                          
                      idrange.com                                               
                                                          
                                                                                
                                                          
                                                                                
                                                          
                      03/28/2003 04:20 PM                                       
                                                          
                      Please respond to                                         
                                                          
                      Midrange Systems                                          
                                                          
                      Technical Discussion                                      
                                                          
                                                                                
                                                          
                                                                                
                                                          




Is it possible to write a CL that would look something like this:

PGM

RCLSTG
STSBS QCTL

ENDPGM


And then call that program from the Console and go home?  That way the
system would start back up when RCLSTG finished?

We are doing an OS/400 upgrade next weekend and I am trying to come up
with some ideas to help out the guy that has to do it.  We have no idea
how long this command will run and some of the messages on the list today
convinced us we should run this first as a safety measure.

Thanks

Mark




_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.