Example 1
During IPL, when the $HASP479 message appears with a request for a reply, always answer Y. Notice the use of the string search within the message and the use of the %%REPLY AutoEdit variable (the reply number).
RL: $HASP479 LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON MESSAGE = $HASP479
JNAME JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not A
ON STRING = REPLY COL 065 - 090
JNAME CICS* JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION REPLY TO MSG 'UNABLE TO OBTAIN CKPT LOCK'
DESCRIPTION
===========================================================================
DO COMMAND = R %%REPLY,Y
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE N
DO
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 14.35.47
Example 2
During IPL, when the IST020I message (VTAM INITIALIZATION COMPLETE) appears, start TSO and CICS.
RL: IST020I LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON MESSAGE = IST020I
JNAME JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION VTAM INITIALIZATION COMPLETE
DESCRIPTION START TSO AND CICS REGIONS AFTER VTAM WAS INITIALIZED
DESCRIPTION
===========================================================================
DO COMMAND = S TSO
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE N
DO COMMAND = S CICSPROD
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE N
DO COMMAND = S CICSTEST
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE N
DO
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 14.38.00
Example 3
Check spool utilization periodically. Issue the $DSPL command and analyze the response. If spool utilization is greater than 60%, then add the SPOOL-OVERLOADED STAT condition. If spool utilization is less than 60%, then delete the SPOOL-OVERLOADED STAT condition.
RL: SPOOLCHK LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON EVENT = SPOOLCHK
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION CHECK SPOOL UTILIZATION
DESCRIPTION
===========================================================================
DO COMMAND = $DSPL
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE Y WAITRESP Y TIMEOUT
RESPMSG
ENDMSG
DO SET = %%A = %%$W2 %%$M1 GLOBAL N
IF %%A GT# 60
DO COND = SPOOL-OVERLOADED STAT +
ELSE
DO COND = SPOOL-OVERLOADED STAT -
ENDIF
DO
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 15.17.16
Example 4
Implement a user-defined command to check if a specific job is active. The rule issues the DA jobname z/OS operator command in command-response mode. The second word of the response message will contain the job name if the job is executing. After all response messages have been analyzed, the rule "shouts" the job status to the operator.
RL: CHKACT* LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON COMMAND = CHKACT*
JNAME JTYPE SMFID SYSTEM USERID
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION CHECK IF A SPECIFIC JOB IS ACTIVE
DESCRIPTION
===========================================================================
DO SET = %%JSTAT = INACTIVE GLOBAL N
DO COMMAND = D A,%%V2
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE Y WAITRESP Y TIMEOUT
RESPMSG
IF %%$W2 %%$M* EQ %%$V2
DO SET = %%JSTAT = ACTIVE GLOBAL N
ENDIF
DO DISPLAY = SUPPRESS A ROUTE DESC CONSOLEID CONSOLE
SYSTEM
NEWTEXT
ENDMSG
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE JOB %%$V2 IS %%JSTAT
DO
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 15.26.53
Example 5
Issue a MODIFY command to CICS to check system availability. Issue a warning message if CICS does not respond within a specified period.
RL: CHECK LIB CTO.PROD.RULES TABLE: TEST1
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
ON EVENT = CHECK
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION ISSUE A MODIFY COMMAND to CICS. ISSUE WARNING IF NO RESPONSE.
DESCRIPTION
===========================================================================
DO COMMAND = F CICS,CEMT I
WAIT CONSOLEID CONSOLE SYSTEM
WAITMODE Y WAITRESP Y TIMEOUT 0240 0010
RESPMSG MESSAGE1
IF %%$LINES EQ# 0
DO SHOUT = TO TSO-SYSMGR URGENCY R SYSTEM CTO282I
MESSAGE CICS DOES NOT REPLY TO COMMANDS
ENDIF
DO
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 15.17.16
Parent Topic |