Example 1
Using nested DO WHILE and DO ENDWHILE statements, check each word in each message line to determine whether or not the specified volume is mounted.
RL: FINDVOL* LIB CTO.PROD.RULES TABLE: TEST1
COMMAND ===> SCROLL===> CRSR
+--------------------------------------------------------------------------+
ON COMMAND = FINDVOL*
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 ISSUING COMMAND D U,DASD,ONLINE
DO COMMAND = D U,DASD,ONLINE
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE Y WAITRESP Y TIMEOUT
RESPMSG
DO SET = %%FLAG = 0 GLOBAL N
DO SET = %%I = 1 GLOBAL N
WHILE %%I LE# %%$LINES
DO SET = %%J = 1 GLOBAL N
WHILE %%J LE# %%$WORDS %%$M%%I
DO SET = %%T = %%$W%%J %%$M%%I GLOBAL N
IF %%T EQ %%$V2
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE AFFIRMATIVE - %%$V2 IS MOUNTED
DO SET = %%FLAG = 1 GLOBAL N
DO SET = %%I = 9999 GLOBAL N
ENDIF
DO SET = %%J = %%J %%$PLUS 1 GLOBAL N
ENDWHILE
DO SET = %%I = %%I %%$PLUS 1 GLOBAL N
ENDWHILE
IF %%FLAG EQ# 0
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE NEGATIVE - %%$V2 IS NOT MOUNTED
ENDIF
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 18.44.01
Example 2
When command SHUTTSO 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.
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
Parent Topic |