emsproc: PROCEDURE
   /* zex1711n */
   /* EMSPROC to display various subsystem events in */
   /* distinctive colors                             */
   SAY EMSPROC starting
   DO FOREVER
      EMSREAD
      IF &$ems.spi \= "" THEN DO
         /* Get the owner, subsystem, and version,*/
         /* number from the SSID */
         PARSE VARS=(&owner,&subsys,&version),
            DELIM='.' DATA=&$ems.spi.tandem.zspi_tkn_ssid
         SELECT
            WHEN &owner = TANDEM AND &subsys = EMS THEN
               EMSCONT COLOR=RED
            WHEN &owner = TANDEM AND &subsys = NNM THEN
               EMSCONT COLOR=PINK
            WHEN &owner = TANDEM AND &subsys = PATHWAY THEN
               EMSCONT COLOR=TURQUOISE
            WHEN &owner = TANDEM AND &subsys = SNAX THEN
               EMSCONT COLOR=YELLOW
            WHEN &owner = TANDEM AND &subsys = DNS THEN
               EMSCONT COLOR=WHITE
            OTHERWISE
               EMSCONT
         END /*select*/
         END /*do*/
      ELSE
         EMSCONT
   END /*do forever */
END emsproc