Coding Each AOF Rule Type › Time Limit-Exceeding Rules

Time Limit-Exceeding Rules

Time limit-exceeding (TLM) rules provide the ability to intercept events that exceed a time limit when either processor usage or continuous wait time limits for a batch job or address space are exceeded. An extension to the exceeded time limit may be granted to prevent the usual termination of the job or address space. The major benefit of TLM rules is the ability to write the equivalent of an IEFUTL SMF exit in OPS/REXX, rather than assembly language, and to use the power of OPS/REXX facilities for making time limit extension decisions.

Example: TLM Rule

Assume that a privileged set of TSO users are not subject to the SMF continuous wait time limit when they leave their sessions unattended. A TLM rule may be installed to extend their session limits each time the wait time limit is exceeded up to a maximum of ten times.

)TLM *
)INIT
/* Create a STATIC variable with a list of privileged TSO users.*/
/* This variable will be compared against the TLM.JOBNAME TLM   */
/* environmental variable which indicates who just exceeded the */
/* limit.                                                       */
GoodGuys = 'OPER1 SYSPRG1 NETPRG1'
)PROC
/* Verify data from tlm event variables that this is a TSO user */
/* that has exceeded the defined wait limits. If it is, then    */
/* check to see if it is one of the users in the good_guys list */
/* and increase limit if we haven't done it 10 times yet.       */
if TLM.LIMIT = 'WAIT' & TLM.SUBSYS = 'TSO' & ,
 WORDPOS(TLM.JOBNAME,GoodGuys) > 0 & ,
 TLM.WAITCOUNT < 10 then ,
  do
    TLM.EXTEND = 3600                 /* Extend session 1 hour  */
    return "EXTEND"
  end
return "NORMAL"                       /* Let system cancel them */
)END