Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide

The Command Thread Source Environment
3-10
109759—Distributed Systems Network Management (DSNM) Subsystem Interface
Development Guide
I Process Development Process
STRING .ciname[0:ZDSN^MAX^CICLASS-1] := [“xxxxxxx ”];
STRING .ssname[0:ZDSN^MAX^SUBSYS-1] := [“xxxxxxx ”];
END BLOCK;
?SOURCE KDSNDEFS (IPROCESS^GLOBALS)
?NOLIST, SOURCE EXTDECS0 ( ... )
?LIST
?SOURCE KDSNDEFS (IPROCESS^EXTDECS)
_THREAD^PROC(MYPROC1); FORWARD;
_THREAD^PROC(MYPROC2); FORWARD;
INT PROC _STARTUP (cx^length, in^lm^length) EXTENSIBLE;
INT .cx^length, .in^lm^length;
BEGIN
cx^length := $LEN(cx^def);
in^lm^length := $LEN(in^lm^def);
IF _ISNULL (@ci^config := _ADD^CI (ciname)) THEN
RETURN ZDSN^ERR^INTERNAL^ERR;
IF _ISNULL (@ss^config := _ADD^SUBSYS (ssname)) THEN
RETURN ZDSN^ERR^INTERNAL^ERR;
RETURN ZDSN^ERR^NOERR;
END;
INT PROC _STARTUP^MODE (component, testmode,
accept^startup^component,
subject)
EXTENSIBLE;
STRING .EXT component; -- ZDSN^DDL^COMPONENT^DEF,
INT .EXT testmode;
INT .EXT accept^startup^component;
STRING .EXT subject;
BEGIN
< move subsystem name to COMPONENT >
testmode := _COMPILED^IN^TESTMODE;
accept^startup^component := 1;
RETURN ZDSN^ERR^NOERR;
END;
_THREAD^PROC(_COMMAND^PROC);
BEGIN
INT .EXT cx (cx^def) = _THREAD^CONTEXT^ADDRESS;
...
_END^THREAD^PROC;
< other command thread procedures >