Coding Each AOF Rule Type › UNIX System Services Rules › Example of a USS Rule

Example of a USS Rule

The following is an example of a USS message rule that informs System State Manager that the new IBM Web Server product is running in OMVS:

)USS IMW35361
)PROC
/* Inform SSM component that IBM web server running in OMVS has */
/* initialized (CURRENT_STATE = 'UP'). we'll also extract the   */
/*  USS process id and place it in the STCTBL table. This    */
/* ID will be used in the shutdown procedures of the server.    */
if USS.NODE = USS.SYNA then   /* Be sure msg from our system */
  do
    parse upper var USS.PROCESS PROCID '/' .  /* GET USS PROCESS ID */
                                 /* NEEDED TO STOP THIS PROCESS */
    /* Use OPS/REXX SQL host environment to update SSM table    */

    address SQL "UPDATE STCTBL SET CURRENT_STATE = 'UP',",
    "PROCESSID = "PROCID" WHERE NAME = 'WEBSERV'"
/* send a message to a remote UNICENTER server  */
    MSGTXT = 'OPSAUTO1 IBM WEB server initialized at 'TIME()
    address USS
    "WTO TEXT('"MSGTXT"') NODE(MAINUNI) "
  End
return