AOF Rule Structure › Structure of an AOF Rule › )TERM—Termination Section

)TERM—Termination Section

The termination section of a rule specifies the actions that the rule takes when an attempt is made to disable it. This section can contain actions of varying complexity.

Use the termination section to do the following:

• Re-initialize or reset global variables, RDF tables, or both.
• Record information about the activity of a rule. This information may have been accumulated in static or global variables.
• Prevent disabling of a rule using the AOF RETURN statement.

Note: The execution of the )TERM section of any rule type is a disable rule event. The REXX stem variable, DIS., is reserved for future disable event environment variables. Any use of the DIS. stem in any )TERM section of a rule will result in a REXX improper variable use error and cause the rule not to be disabled.

The termination section is optional. If included, the termination section always follows these sections:

• Event description
• Initialization section (if it exists)
• Processing section (if it exists)

Use this format when coding the termination section:

)TERM
/* Insert termination section actions */

Example: )TERM Section

The termination section in the following example allows the rule to be disabled only at CA OPS/MVS shutdown. In addition, it sends a message to the OPSLOG with the value of the static variable TABENDS, which was calculated during the )PROC section of the rule.

)MSG IEF450I
)INIT
/* This code will fire ONCE when the rule is enabled */
if OPSINFO('SMFID') <> 'SYSA' then
  return 'REJECT'
TABENDS = 0

)PROC
/* This code will fire each time AOF detects an IEF450I */
/*  message event on the system.                        */

TABENDS = TABENDS + 1
if MSG.JOBNAME <> 'PRDCICSA' then
  return
parse var MSG.TEXT . 'ABEND=' ABEND
CONSOLE = OPSINFO('MSTCONSNM')
ADDRESS WTO
"MSGID(OPSAUTO1) TEXT('PRDCICSA ABEND CODE",
"("ABEND" at "TIME()" ') HILITE CNNAME("CONSOLE")"

)TERM
/* This code will fire ONCE when the rule is disabled */
if OPSINFO('PRODUCTSTATUS') <> 'TERM' then
  return 'REJECT'
MSG = 'OPSAUTO1 total IEF450I ABENDS = 'TABENDS 
LOGTOTALS = OPSSEND('*','B',MSG)