Coding Each AOF Rule Type › Automatic Restart Management Rules › Debug an ARM Rule

Debug an ARM Rule

The following example assumes:

• A System State Manager resource table for all CICS regions exists on all systems in a sysplex.
• The resource table entries for CICS regions that are not running on each system have a mode of INACTIVE.
• If one of the systems fail, ARM restarts the CICS region from the failing system on one of the other systems.
• The System State Manager on the new system allows ARM to restart the transferred CICS region; however, System State Manager will handle any subsequent restarts.
• An action entry table for CURRENT=UP DESIRED=UPARM will reset the desired state to UP.

Example: Debug an ARM Rule

)ARM CICS*
)PROC
  if arm.fromsys <> arm.tosys then  /* CICS region transfer */
    do
      address SQL "Update CICS_TABLE Set CURRENT_STATE='DOWN',",
        "DESIRED_STATE='UPARM', MODE='ACTIVE',",
        "Where JOBNAME='"arm.jobname"' And ",
        "MODE='INACTIVE'"
      return "NORMAL"                 /* Let ARM do 1st start */
  End
  /* Local system restart */
  address SQL "Select NAME From CICS_TABLE",
     "Where JOBNAME='"arm.jobname"' And",
     "MODE='ACTIVE'"
  if rc=0 & sqlcode=0 then           /* Found in SSM table    */
    return "SUPPRESS"                /* SSM will do restart   */
  return "NORMAL"                    /* Not under SSM control */
  )END

Note: For debugging techniques that you can use with all AOF rules, see the chapter “Code and Debug AOF Rules.”