Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide

Sample I Process Program Code

Distributed Systems Network Management (DSNM) Subsystem Interface Development

Guide—109759 D-27

Sample User-Written Code for SPIFFY Subsystem

Interface Process

_THREAD^PROC (action^cmd^proc);

BEGIN

-- ...

_END^THREAD^PROC;

---------------------------------------------------------------------

-------------- Command Thread Termination Proc ----------------------

---------------------------------------------------------------------

_THREAD^TERMINATION^PROC (_COMMAND^TERMINATION^PROC);

BEGIN

INT .EXT cx (cx^def) = _THREAD^CONTEXT^ADDRESS;

INT .EXT inobj (object^lm^def);

! Free our lists and return leaving the thread's original

! termination code (_THREAD^TERMINATION^CODE) unchanged.

! Leave freeing the official input and output lists to the frame.

CALL _DEALLOCATE^LIST (cx.things);

CALL _DEALLOCATE^LIST (cx.other^things);

CALL _CLOSE^CI (cx.spif);

RETURN _RC^NULL;

_END^THREAD^TERMINATION^PROC;