Coding Each AOF Rule Type › Request Rules › Examples: REQ Rules

Examples: REQ Rules

The following examples show the response to request events.

• Example 1: The following is an example of a rule that responds to a request event. The rule allows a TSO user to cancel any other TSO user who has the same user ID prefix.

  )REQ CANTSO
  )PROC
  /************************************************************/
  /* Allow users in the same group to cancel each other's      */
  /* TSO ids. Invoke this REQ rule from TSO by entering:      */
  /*  OPSREQ CANTSO userid from any TSO command line          */
  /************************************************************/
  USERID = TRANSLATE(WORD(REQ.TEXT,2))       /* passed userid */
  
  /* See if this users TSO id is the same as the passed userid*/
  
  if SUBSTR(USERID,1,4) = SUBSTR(OPSINFO(JOBNAME),1,4) then
    do
      address OPER
      'COMMAND(C U='USERID') NOOUTPUT'         /* OK to cancel */
    end
  else 
    say 'You are not authorized to cancel user 'USERID
  

• Example 2: The following is an example of a rule that responds to a request event. The rule obtains and displays various system-related data.

  )REQ SYSINFO
  )PROC
  /***************************************************************/
  /* TSO users can invoke this REQ rule by entering:             */
  /*  OPSREQ SYSINFO from any TSO command line                   */
  /* This rule will collect and display various system info      */
  /* by invoking various OPS/REXX functions.                     */
  /***************************************************************/
   SYSPLEX_INFO = OPSYSPLX('I','S')       /* SYSPLEX information */
   say '***Number of systems in PLEX = 'SYSPLEX_INFO
   do while QUEUED() > 0
     pull EDQ
     say 'PLEX info='EDQ
   end
  
  CMD = OPSIPL('IEASYS','CMD')      /* COMMNDxx used in last IPL */
   say 'COMMNDxx members used for this IPL='cmd
  
  say 'CPUID   = 'OPSINFO('CPUID')             /* CPUID          */
  say 'DFSMSVERSION  = 'OPSINFO('DFSMSVERSION')/* DFSMSVERSION   */
  say 'SYSTEM IPL DATE = 'OPSINFO('IPLDATE')   /* IPL DATE       */
  say 'IPL VOLSER NAME = 'OPSINFO('IPLVOLSER') /* IPL VOLSER     */
  say 'IPL TYPE  = 'OPSINFO('IPLTYPE')         /* IPL TYPE       */
  say 'SYSTEM IPL TIME = 'OPSINFO('IPLTIME')   /* IPL TIME       */