Example 1
Add a prerequisite condition only the first time a message is issued. Track the number of times the message is issued using the %%A Global variable.
RL: IEF450I LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------+
ON MESSAGE = IEF450I
JNAME JOBM43 JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION JOB 'JOM43' ABENDED
DESCRIPTION
=================================================================
IF %%A EQ# 0
DO COND = JOBM43-ABENDED ODAT +
ENDIF
DO SET = %%A = %%A %%$PLUS 1 GLOBAL Y
DO
=================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 12.33.38
Example 2
If a job belonging to an owner with a specified prefix abends, notify the owner, and increase the owner’s abend counter by 1. If the owner has no abend counter, create one and set its value to 1.
RL: IEF450I LIB CTO.PROD.RULES TABLE: JOB
COMMAND ===> SCROLL===> CRSR
+------------------------------------------------------------------+
ON MESSAGE = IEF450I
JNAME JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION JOB ABENDED - NOTIFY OWNER AND INCREASE ABENDS COUNTER
DESCRIPTION
=================================================================
DO SET = %%PREF = %%SUBSTR %%$JOBNAME 1 3 GLOBAL N
IF %%OWNERID_%%PREF NE %%UNDEF
DO SET = %%OWNER = %%OWNERID_%%PREF GLOBAL N
DO SHOUT = TO TSO-%%OWNER URGENCY R SYSTEM CTO282I
MESSAGE %%MSG
IF %%ABENDS_%%OWNER NE %%$UNDEF
DO SET = %%ABENDS_%%OWNER = %%ABENDS_%%OWNER %%$PLUS 1 GLOBAL Y
ELSE
DO SET = %%ABENDS_%%OWNER = 1 GLOBAL Y
ENDIF
ENDIF
DO
=================================================================
FILL IN RULE DEFINITION. CMDS: EDIT, SCHED, OPT, SHPF 18.50.28
Example 3
Send a message to the operator if the CICSTEST job abends in CPU1.
RL: IEF450I LIB CTO.PROD.RULES TABLE: SAMPLE
COMMAND ===> SCROLL===> CRSR
-----------------------------------------------------------------------------
ON MESSAGE = IEF450I
JNAME JTYPE SMFID SYSTEM
ROUTE DESC CONSOLEID CONSOLE
APPEARED TIMES IN MINUTES And/Or/Not
OWNER IOAADMIN GROUP MODE PROD RUNTSEC
THRESHOLD
DESCRIPTION INFORM THE CICS MANAGER IF CICSTEST ABENDED IN CPU1
DESCRIPTION
===========================================================================
IF %%$SMFID EQ CPU1 AND %%$JOBNAME EQ CICSTEST
DO SHOUT = TO OPER URGENCY R SYSTEM CTO282I
MESSAGE CICSTEST ABENDED IN CPU1
ENDIF
DO
===========================================================================
DAYS DCAL
AND/OR
WDAYS ALL WCAL
MONTHS 1- Y 2- Y 3- Y 4- Y 5- Y 6- Y 7- Y 8- Y 9- Y 10- Y 11- Y 12- Y
DATES
CONFCAL SHIFT
ENVIRONMENT SMFID SYSTEM
===========================================================================
FILL IN RULE DEFINITION. CMDS: EDIT , SHPF , SCHED , OPT 14.19.04
Parent Topic |