Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide

OBJECTLIST
A-78
109759—Distributed Systems Network Management (DSNM) Subsystem Interface
Development Guide
DSNM Library Services
OBJECTLIST
OBJECTLIST is the name assigned to the input and output object lists by the
_COMMAND^CONTEXT^HEADER define.
Example
The following example gets a member off the input list and creates a member on the
output list:
STRUCT input^lm^def (*);
BEGIN
_INPUT^LM^HEADER;
...
END;
STRUCT output^lm^def (*);
BEGIN
_OUTPUT^LM^HEADER;
...
END;
STRUCT command^context^def (*);
BEGIN
_COMMAND^CONTEXT^HEADER;
INT .EXT inobj (input^lm^def);
INT .EXT outobj (output^lm^def);
END;
! Thread proc locals!
INT .EXT cx (command^context^def) = _THREAD^CONTEXT^ADDRESS;
INT .EXT in (input^def) := @cx._INPUT;
INT .EXT out (output^def) := @cx._OUTPUT;
.
.
! Get the next input object
IF _ISNULL( @cx.inobj := _GET^LM (in.OBJECTLIST))
THEN RETURN _RC^STOP; ! out of input list members
! Create output list member
IF _ISNULL (@cx.outobj := _PUT^LM (out.OBJECTLIST,,
$LEN (cx.outobj)))
THEN ... < out of available memory > ;
.
.