The following examples show the response to a request events.
)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
)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 */
|
Copyright © 2011 CA.
All rights reserved.
|
|