Re: Doing A reclaim Storage

[barsa@xxxxxxxxxxxxxxxxxxx]

The API is new.  The technique that I described worked in the early
releases of CPF.

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






                    Evan Harris
                    <spanner@ihug.co.nz       To:     midrange-l@midrange.com
                    >                         cc:
                    Sent by:                  Subject:     Re: Doing A reclaim 
Storage
                    midrange-l-admin@mi
                    drange.com


                    01/04/02 03:11 AM
                    Please respond to
                    midrange-l






Rob

you even have the same status message text as I have while waiting for the
subsystems to end...

Having said that I'd be interested in the reason (if any)  Al is
recommending the message rather than what is a rather straightforward API.

Regards
Evan Harris



>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


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