× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.







As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.