Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide

DSNM Library Services
Distributed Systems Network Management (DSNM) Subsystem Interface Development
Guide—109759 A-105
_REPORT^STARTUP^ERROR
Example
INT PROC _STARTUP (cxl, inputl) EXTENSIBLE;
INT .cxl, .inputl;
BEGIN
STRING errtext[0:29] :=["Invalid SPIFFY configuration",0];
cxl := $LEN (cx^def); ! Command thread context length
inputl := $LEN (object^lm^def); ! Frame input object
! list member length
! Get CI and subsystem configurations
IF _ISNULL (@spifmon := _ADD^CI (spifclass))
OR _ISNULL (@spiffy := _ADD^SUBSYS (spifsys))
THEN CALL _REPORT^STARTUP^ERROR (0, _EMS^EVENT^FATAL,
errtext);
RETURN ZDSN^ERR^NOERR;
END;