Re: monitor for restricted state condition

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
That was a lousy link.

    /*     +
     | Clear message queue QSYSOPR.  Later we will check for message     +
     | that system has ended to restricted condition.  CPF0968.     +
    */
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Clearing message queue QSYSOPR') +
                          TOPGMQ(*EXT) MSGTYPE(*STATUS)
             CLRMSGQ    MSGQ(QSYSOPR)

             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Bringing system down to +
                          restricted state') TOPGMQ(*EXT) +
                          MSGTYPE(*STATUS)
             ENDSBS     SBS(*ALL) OPTION(*IMMED)

    /*     +
     | Run cleanup.  Change job to take default replies to messages.     +
     | Especially for those pesky journal messages.     +
    */
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Running +
                          downtime cleanup') TOPGMQ(*EXT) +
                          MSGTYPE(*STATUS)
             CHGJOB     INQMSGRPY(*DFT)
             CALL       PGM(DOWNTIME)

    /*     +
     | Change job back to original message handling.     +
    */
             CHGJOB     INQMSGRPY(&INQMSGRPY)


    /*     +
     | 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




John Ross <jross-ml@netshare400.com>
Sent by: midrange-l-admin@midrange.com
05/28/2002 02:19 PM
Please respond to midrange-l


        To:     midrange-l@midrange.com
        cc:
        Fax to:
        Subject:        Re: monitor for restricted state condition


http://archive.midrange.com/midrange-l/199911/msg01750.html

John Ross

At 03:07 PM 5/28/02 -0400, you wrote:
>I'm almost certain this has been discussed before, but an archive search
>turned up nothing.  If someone has the direct link, please let me know.

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