Example

When the SHUTTSO command is issued, ask the operator if the shift supervisor has been notified about the pending shutdown. Repeat the question to the operator every 30 seconds until a reply is received (RC=4). Depending on the reply, either continue the shutdown or cancel it.

Figure 140 DO ASKOPER Parameter Example

RL: SHUTTSO    LIB CTO.PROD.RULES                               TABLE: TEST1

COMMAND ===>                                                    SCROLL===> CRSR

+-----------------------------------------------------------------------------+

  ON COMMAND  = SHUTTSO

     JNAME          JTYPE         SMFID        SYSTEM       USERID

     ROUTE          DESC          CONSOLEID    CONSOLE

     APPEARED     TIMES IN      MINUTES                          And/Or/Not

  OWNER IOAADMIN GROUP                         MODE PROD    RUNTSEC

  THRESHOLD

  DESCRIPTION

  ===========================================================================

  DO DISPLAY  = SUPPRESS Y ROUTE     DESC    CONSOLEID    CONSOLE

     SYSTEM

  DO SHOUT    = TO OPER              URGENCY R SYSTEM           CTO282I

     MESSAGE TSO IS BEING SHUT DOWN. SHIFT SUPERVISOR MUST BE NOTIFIED.

  DO SET      = %%RC = 4                                            GLOBAL  N

  WHILE    %%RC NE# 0

  DO ASKOPER  = HAVE YOU NOTIFIED SHIFT SUPERVISOR ? REPLY 'YES' OR 'CANCEL'

       ROUTE      CONSOLEID    CONSOLE                          TIMEOUT 0030

  IF       (%%$ASKRC EQ# 4) AND ((%%$RPLYTXT EQ YES) OR (%%$RPLYTXT EQ CANCEL))

  DO SET      = %%RC = 0                                            GLOBAL  N

  ENDIF

  ENDWHILE

  IF       %%$RPLYTXT EQ YES

  DO COMMAND  = P TSO

     WAIT        CONSOLEID    CONSOLE          SYSTEM

     WAITMODE   N

  FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF                  18.46.46