Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide

Sample User-Written Code for SPIFFY Subsystem
Interface Process
D-18
109759—Distributed Systems Network Management (DSNM) Subsystem Interface
Development Guide
Sample I Process Program Code
! Return cmd flags for HMOD value
INT SUBPROC hmodflags (xhmod);
INT xhmod;
BEGIN
CASE xhmod OF
BEGIN
ZDSN^HMOD^ONLY -> RETURN c^cmdobj;
ZDSN^HMOD^SUBONLY -> RETURN c^subobj;
OTHERWISE -> RETURN c^cmdobj + c^subobj;
END;
END;
! Return cmd flags for SMOD value
INT SUBPROC smodflags (xsmod);
INT xsmod;
BEGIN
CASE xsmod OF BEGIN
ZDSN^SMOD^RED -> RETURN c^redstate;
ZDSN^SMOD^GREEN -> RETURN c^greenstate;
ZDSN^SMOD^NOT^RED -> RETURN c^greenstate + c^yellowstate;
ZDSN^SMOD^NOT^GREEN -> RETURN c^redstate + c^yellowstate;
OTHERWISE -> RETURN c^redstate + c^yellowstate +
c^greenstate + c^anystate;
END;
END;
! Return cmd flags for EMOD value
INT SUBPROC emodflags (xemod);
INT xemod;
BEGIN
CASE xemod OF
BEGIN
ZDSN^EMOD^SUPPRESS -> RETURN c^errsuppress;
ZDSN^EMOD^DETAIL -> RETURN c^errdetail;
OTHERWISE -> RETURN 0;
END;
END;
! Return cmd flags for RMOD value
INT SUBPROC rmodflags (xrmod);
INT xrmod;
BEGIN
RETURN IF xrmod = ZDSN^RMOD^DETAIL THEN c^replydetail
ELSE 0;
END;
! Return cmd flags for AMOD value
INT SUBPROC amodflags (xamod);
INT xamod;
BEGIN
RETURN IF xamod = ZDSN^AMOD^RESET THEN c^resetstats
ELSE 0;
END;