MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » October 2004

Re: is this same as savsys21?



fixed

Thank you.  Not that I am using IASP's, but it's nice to know. 

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Al Barsa <barsa@xxxxxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/29/2004 04:05 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Re: is this same as savsys21?







What GO SAVE 21 does is to do the following:

1.    Bring down all subsystems.
2.    Determine what IASPs are *AVAILABLE to save.
3.    SAVSYS
4.    SAVLIB *NONSYS ASPDEV(*SYSBAS)
5.    SAVDLO
6.    SAV with all the bullshit parameters ASPDEV(*SYSBAS)

The following steps occur in alphabetic order for each of the IASPs that
are *AVAILABLE:

7.    SAVLIB *NONSYS ASPDEV(name)
8.    SAV with all the bullshit parameters ASPDEV(name)

Then:

9.    RTVSYSVAL QCTLSBSD
10.   Start that subsystem

You can retrieve the programs that do this in QSYS.  Look for QMNRSTE,
QMNSAVE and QMNSRBND.  Please note that this is not CL 101, so not for the
faint of heart.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

"i" comes before "p", "x" and "z"
e gads

Our system's had more names than Elizabeth Taylor!

914-251-1234
914-251-9406 fax

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



 
             rob@xxxxxxxxx 
             Sent by: 
             midrange-l-bounce                                          To 

             s@xxxxxxxxxxxx            Midrange Systems Technical 
                                       Discussion 
                                       <midrange-l@xxxxxxxxxxxx> 
             10/29/2004 03:46                                           cc 

             PM 
                                                                   Subject 

                                       Re: is this same as savsys21? 
             Please respond to 
             Midrange Systems 
                 Technical 
                Discussion 
             <midrange-l@midra 
                 nge.com> 
 
 




I wish you wouldn't call it "savsys21".  Kinda confuses it with a simple
SAVSYS, don't you think?

>From the online help:

This option runs the following command

    ENDSBS SBS(*ALL) OPTION(*IMMED)
    SAVSYS
    SAVLIB LIB(*NONSYS) ACCPTH(*YES)
    SAVDLO DLO(*ALL) FLR(*ANY)
    SAV OBJ(('/*') ('/QSYS.LIB' *OMIT)
      ('/QDLS' *OMIT) UPDHST(*YES)
    STRSBS SBSD(controlling-subsystem)

How do they "Save available IASP's" Al?

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Jerry <jdraper@xxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/29/2004 01:23 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

Fax to

Subject
is this same as savsys21?






After performing a controlled shutdown to a restricted state the following
commands are run in a cl pgm.

/* STEP 3:   SAVE ALL SYSTEM AND NON-SYSTEM LIBRARIES               */

SAVSYS     DEV(&DEVICE) ENDOPT(*LEAVE) CLEAR(*ALL) +
                          DTACPR(*NO) /* Save the system stuff */

SAVLIB     LIB(*NONSYS) DEV(&DEVICE) ENDOPT(*LEAVE) +
                          CLEAR(*AFTER) ACCPTH(*YES) DTACPR(*NO) /* +
                          Save the user stuff */

 /* STEP 4:   SAVE ALL DOCUMENTATION OBJECTS                         */
 /********************************************************************/
SAVDLO     DLO(*ALL) DEV(&DEVICE) ENDOPT(*LEAVE) +
                           CLEAR(*AFTER) DTACPR(*NO) /* Save the +
                           documents */

/* STEP 5:   SAVE ALL FILE SYSTEM OBJECTS NOT ALREADY SAVED         */
 /********************************************************************/
SAV        DEV('/QSYS.LIB/HACTPD00.DEVD') OBJ(('/*' +
                           *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' +
                           *OMIT)) ENDOPT(*UNLOAD) UPDHST(*YES) /* +


Is this sequence equivalent to a savsys21 from the go save menu>

TIA,


Jerry Draper



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


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



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







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact