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