OSI/AS Management Programming Manual

Management Program Example
Sample Programs
056785 Tandem Computers Incorporated C–5
INT .receive^name [0:11]
:= ["$RECEIVE", 8 * [" "]];
INT rcv^num;
INT count^read;
CALL Open( receive^name, rcv^num );
IF <> THEN CALL Debug;
CALL Read( rcv^num,
Startup^msg,
$LEN( Startup^msg ),
Count^Read );
IF <> THEN CALL Debug;
CALL Close( rcv^num );
END; -- PROC Startup
? PAGE "Open SCP process"
-------------------------------------------------------------
--
-- Open^SCP - Open the SCP $ZNET process.
--
-- GLOBALS: SCP^File^Num : Set in this procedure
-- Term^fn : Must be set before
-- Message4 : SCP Open Error msg
-- INPUT: None
-- OUTPUT: File-system error code from OPEN
--
-------------------------------------------------------------
INT PROC Open^SCP;
BEGIN
INT .SCP^name [0:11]
:= ["$ZNET #ZSPI ", 4 * [" "]];
INT Open^Error := 0;
-- Open the $ZNET process.
CALL Open( SCP^name, SCP^fn );
IF <> THEN
BEGIN
-- Get OPEN error number.
CALL FileInfo( SCP^fn, Open^Error );
CALL Write( Term^fn, Message4[1], Message4[0] );
END;
RETURN Open^Error;
END; -- PROC Open^SCP
? PAGE "Initialize SPI Command Buffer "
-------------------------------------------------------------
--
-- INIT^CMD^BUFFER - Initialize the SPI command buffer