Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide
_ADD^CI
A-6
109759—Distributed Systems Network Management (DSNM) Subsystem Interface
Development Guide
DSNM Library Services
Example
< in global definitions >
INT .EXT scp (_CI^DEF);
INT .EXT snaxcdf (_SUBSYS^DEF);
STRING .scpclass[0:ZDSN^MAX^CICLASS-1] := [“SCP “];
STRING .cdf[0:ZDSN^MAX^SUBSYS-1] := [“SNAXCDF “];
< within _STARTUP procedure >
.
.
IF _ISNULL (@scp := _ADD^CI (scpclass)) THEN
RETURN ZDSN^ERR^INTERNAL^ERR;
IF _ISNULL (@snaxcdf := _ADD^SUBSYS (cdf)) THEN
RETURN ZDSN^ERR^INTERNAL^ERR;
.
.
< within _COMMAND^PROC procedure >
.
.
CALL _OPEN^CI (scp, ... );
.
.