The following is an example of a rule that responds to an EOM event. The rule detects a VTAM failure and displays a highlighted message. This would be a catchall rule to detect if VTAM ended; individual MSG rules would not be needed.
)EOM VTAM
)INIT
/* Initialize a flag variable to be used in the )PROC section */
/* to determine if system is being shutdown. */
GLVTEMP1.SYSSHUT.STAT = 'N'
)PROC
/* Only do this if we are not shutting down the system. If we are */
/* shutting down the system, then our shutdown procedures will set */
/* this flag glvtemp variable to Y so that this code won't fire */
SHUTDOWN = OPSVALUE('GLVTEMP1.SYSSHUT.STAT','O') /* get value */
if SHUTDOWN = 'Y' then return /* get out */
address WTO /* OPS/REXX Host environment to issue msgs */
"MSGID(OPSAUTO1) TEXT('VTAM HAS ENDED ABNORNALLY') HILITE Route(1)"
)END
|
Copyright © 2011 CA.
All rights reserved.
|
|