Re: Doing A reclaim Storage

[rob@xxxxxxxxx]

Actually Al, I prefer:
...
             ENDSBS     SBS(*ALL) OPTION(*IMMED)
...
    /*
+
     | Verify that system is in restricted state.
+
    */
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Verifying that we are now in +
                          restricted state.') TOPGMQ(*EXT) +
                          MSGTYPE(*STATUS)
SbsCheck:
             CALL       PGM(QWCRSSTS) PARM(&RECEIVER &RECEIVERL +
                          &FORMAT &RESET &ERROR)

    /*
+
     | Restricted state flag is byte 31 (offset 30):
+
     |   0 = not in restricted state
+
     |   1 = restricted state
+
    */
             CHGVAR     VAR(&RSTDFLAG) VALUE(%SST(&RECEIVER 31 1))
             IF         COND(&RSTDFLAG *EQ '0') THEN(DO)
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('** +
                          Waiting for subsystems to end') +
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)
             DLYJOB     DLY(60)
             GOTO       CMDLBL(SbsCheck)
             ENDDO
...

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    barsa@barsaconsulti
                    ng.com                    To:     midrange-l@midrange.com
                    Sent by:                  cc:
                    midrange-l-admin@mi       Fax to:
                    drange.com                Subject:     Re: Doing A reclaim 
Storage


                    01/03/2002 10:53 AM
                    Please respond to
                    midrange-l







You need to write a program that does a ENDSBS *ALL *IMMED, and then keeps
re-executing the command (on a 15 second wait) doing a MONMSG CPF1035
(isn't it disgusting that I knew that without looking).

When you no longer get the CPF1035, you know that the restricted state has
been achieved, and you can start the RCLSTG.

You should probably restart the controlling subsystem upon completion.

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






                    "MARYLOU ATWELL"
                    <MATWELL@interboros       To:
<MIDRANGE-L@midrange.com>
                    d.org>                    cc:
                    Sent by:                  Subject:     Doing A reclaim
Storage
                    midrange-l-admin@mi
                    drange.com


                    01/03/02 10:07 AM
                    Please respond to
                    midrange-l






Good morning to you!   Hope all of the holidays were good for you.   My
question today is whether or not a CL program could be created to do the
reclaim storage.      I know that the system has to be in a restricted
state.   If there are any that use such a program, some hints would be
appreciated.  I have run it in the past, with me here babysitting it,
however, time would be better spent if I could just call it, and have it do
it, and bring the system back up.  Any ideas????

Thanks.


MaryLou Schoff-Atwell
IBM Certified Associate System Operator
Interboro School District
900 Washington Avenue
Prospect Park, PA  19076

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