Expand Management Programming Manual

COMMANDS AND RESPONSES
Examples of Commands and Responses
! External declarations for GUARDIAN procedures
?nolist, source $system.system.extdecs(OPEN, CLOSE, WRITEREAD,
? DEBUG, FILEINFO, INITIALIZER);
?list
! External declarations for SPI procedures
?nolist, source $system.system.extdecs0(SSGET, SSGETTKN, SSINIT,
? SSMOVE, SSMOVETKN, SSNULL, SSPUT, SSPUTTKN)
?list
! ***************************************************************
! * open^scp *
! ***************************************************************
INT PROC open^scp;
BEGIN
! This procedure opens the SCP process, which is named $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
! ***************************************************************
! * handle^spi^error *
! ***************************************************************
PROC handle^spi^error(error^number);
INT error^number; ! value returned by SPI procedure
BEGIN
! Handle errors in calls on SPI procedures
END; ! of handle^spi^error
7-126