Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide

DSNM Library Services

Distributed Systems Network Management (DSNM) Subsystem Interface Development

Guide—109759 A-53

_FOBJECT^INIT

! Use state variables to return to this point after the

! _EV^IODONE event occurs

cx.outobj.FOBJ.Z^RESULT := < status of input object >;

! Since this completes the current output object, release it

_RELEASE^OUTPUT (cx.outobj);

! Enter subordinates and their status into output list

! (Assuming one CI communication returns all subordinates)

WHILE < more subordinate objects >

BEGIN

IF _ISNULL (@cx.outobj := _PUT^LM (out.OBJECTLIST,,

$LEN (cx.outobj)))

THEN ... < out of available memory > ;

! Next output object

! Since the output object is not the same as the input

! object, use the parent-fobject parameter:

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;

See Section 4, “DSNM Command Requirements,” for more information about

FOBJECT fields.