Distributed Systems Network Management (DSNM) Subsystem Interface Development Guide
Sample User-Written Code for SPIFFY Subsystem
Interface Process
D-12
109759—Distributed Systems Network Management (DSNM) Subsystem Interface
Development Guide
Sample I Process Program Code
Sample User-Written Code for SPIFFY Subsystem
Interface Process
The following is the user-written SPIFFY subsystem interface code, which, when
compiled, is bound in with the Tandem I process program frame code to create the
SPIFFY I process object file. This example does not illustrate the processing of any
state-change commands, nor does it illustrate how to handle command cancellation
(_EV^CANCEL).
?INSPECT,SYMBOLS,NOCODE,NOMAP,SAVEABEND
?SETTOG 1 ! Puts me in test mode
?SOURCE KDSNDEFS ( IPROCESS^DEFINITIONS )
BLOCK PRIVATE; ! My globals
-- Error cache
-- CONSTANT ZDSN-ERR-INTERNAL-ERR VALUE -34.
-- CONSTANT ZDSN-ERR-OBJTYPE-NOT-SUPPORTED VALUE -56.
-- CONSTANT ZDSN-ERR-CMD-NOT-SUPP VALUE -69.
-- CONSTANT ZDSN-ERR-UNSUPPORTED-BY-SUBSYS VALUE -77.
-- CONSTANT ZDSN-ERR-UNSUPPORTED-BY-I VALUE -78.
-- CONSTANT ZDSN-ERR-MISSING-OBJTYPE VALUE -81.
-- CONSTANT ZDSN-ERR-BADOBJTYPE VALUE -82.
! SPIFFY subsystem definitions
?SOURCE SPIFDEFS
---------------------------------------------------------------------
---------------------------------------------------------------------
-------------- Contents of SPIFDEFS ------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
! CODES.
LITERAL
! Types of objects
LEAST^LITTLE^THING, REACTOR = LEAST^LITTLE^THING,
BOILER, VALVE, CHAMBER, ASSEMBLY, COGWHEEL, GEAR, OTHER,
ALMOST^ANYTHING = OTHER, ANYTHING,
! States of objects
STOPPED, GOING, ! ASSEMBLY states
LOCKED, ROTATING, COASTING, IDLE, ! COGWHEEL and GEAR
! states
! Operations on objects
TELLABOUT, ! Operations for
! all objects
WARMUP, HEATUP, COOLOFF, SHUTOFF, ! REACTOR component
! operations
GO, DONTGO, ! ASSEMBLY operations
LOOSENUP, SPEEDUP, SLOWUP, LOCKUP, ! COGWHEEL and GEAR
! operations
! Characteristics of objects
BLACK, YELLOW, CYAN, MAGENTA, ! ASSEMBLY, COGWHEEL,
! GEAR in 4 colors
IRON, STEEL, COPPER, BRASS; ! made 4 ways
Note. Refer to Section A, “DSNM Library Services,” for detailed descriptions of the library
services that appear in this example.