SNAX/APC Management Programming Manual

Programming Example
111813 Tandem Computers Incorporated B–3
BEGIN
! This procedure opens $RECEIVE, reads the startup message,
! and then closes $RECEIVE.
STRUCT startup^msg;
BEGIN
! This is the standard startup message structure.
END;
INT receive^name[0:11] := ["$RECEIVE", 8 * [" "]],
rcv^num,
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; ! of startup
?PAGE "PROC: OPEN^SCP"
! **************************************************************
! * open^scp *
! **************************************************************
INT PROC open^scp;
BEGIN
! This procedure opens the SCP process, $ZNET, and checks for
! open errors.
INT scp^name[0:11] := ["$ZNET #ZSPI ", 4 * [" "]],
flags := 0,
error := 0;
CALL OPEN( scp^name, scp^file^num, flags );
IF < THEN
BEGIN ! There was an open error.
CALL FILEINFO( scp^file^num, error ); ! get error number
CALL DEBUG;
END;
RETURN error;
END; ! of open^scp
?PAGE "PROC: HANDLE^SPI^ERROR"
! **************************************************************
! * handle^spi^error *
! **************************************************************
PROC handle^spi^error( error^number );
INT error^number; ! the value returned by the SPI proc