This command makes rules eligible to run, causing the )INIT sections of those rules to execute.
The ENABLE command sets the RC variable to zero. Unless the NOOUTPUT keyword has been explicitly or implicitly specified, the external data queue contains the results of any SAY statements in the )INIT section of the rule. These results appear as OPS1000I messages.
This command has the following format:
ADDRESS AOF "ENABLE keywords" [ruleset|ruleset.rule|*DYNAMIC.rule[STEM(stemname)]] [SYSTEM(ALL|EXT|sysnames)] [SYSWAIT(seconds)] [OUTPUT|NOOUTPUT]
Note: If you specify *DYNAMIC.rule, you may also specify the STEM(stemname) keyword.
Specifies the stem name of the variables.
Use STEM when the rules that you want to enable are dynamic rules whose source text is contained in REXX stem variables.
The value of stemname can be up to 84 bytes long and does not need to end with a period. CA OPS/MVS recognizes the end of the source text of the rule when it encounters a null stem variable value or a stem variable that is undefined or uninitialized. A rule that is constructed in stem variables can have a maximum length of 255 characters per stem variable. If you omit the STEM keyword, CA OPS/MVS retrieves the source text of the rule from the external data queue; this is the default. The maximum length of lines in the external data queue is 255.
Note: Non-dynamic rules (at least at the time they are enabled), have a one-to-one correspondence with a member in a rule set. Dynamic rules, in contrast, exist only in storage.
Examples: ENABLE Command
ADDRESS AOF "ENABLE"
ADDRESS AOF "ENABLE ruleset"
ADDRESS AOF "ENABLE ruleset.rule"
ADDRESS AOF "ENABLE ruleset.rule", "SYSTEM(MVS1,MVS4)"
QUEUE ")CMD TESTCMD" QUEUE ")INIT" QUEUE " entries = 0" QUEUE ")PROC" QUEUE " entries = entries + 1" QUEUE " IF entries // 10 = 0 THEN" QUEUE " SAY 'Rule TESTRULE has been entered 'entries' times'" QUEUE " return 'accept' " QUEUE " SAY 'Rule TESTRULE total entries = 'entries " ADDRESS AOF "ENABLE *DYNAMIC.TESTRULE" . . "DISABLE *DYNAMIC.TESTRULE"
STEMVAR.1 = ")CMD TESTCMD"
STEMVAR.2 = ")INIT"
STEMVAR.3 = " entries = 0"
STEMVAR.4 = ")PROC"
STEMVAR.5 = " entries = entries + 1"
STEMVAR.6 = " IF entries // 10 = 0
THEN"
STEMVAR.7 = " SAY 'Rule TESTRULE has been entered 'entries' times'"
STEMVAR.8 = " return 'accept' "
STEMVAR.9 = " SAY 'Rule TESTRULE total entries = 'entries "
ADDRESS AOF
"ENABLE *DYNAMIC.TESTRULE
STEM(STEMVAR)"
.
.
"DISABLE *DYNAMIC.TESTRULE"
| Copyright © 2012 CA. All rights reserved. | Tell Technical Publications how we can improve this information |