Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide

DSNM Library Services
Distributed Systems Network Management (DSNM) Subsystem Interface Development
Guide—109759 A-49
FOBJECT
! Create output list member
IF _ISNULL (@cx.outobj := _PUT^LM (out.OBJECTLIST,,
$LEN (cx.outobj)))
THEN ... < out of available memory > ;
.
.
IF (error := _FOBJECT^INIT (cx.outobj.FOBJ,,
cx.inobj.FOBJ))
THEN ... < error exit > ;
cx.outobj.FOBJ.Z^RESULT := < status of subordinate >;
cx.outobj.FOBJ.Z^OBJTYPE ':=' < type of subordinate >;
cx.outobj.FOBJ.Z^OBJNAME ':=' < name of subordinate >;
_RELEASE^OUTPUT (cx.outobj);
.
.
END;