OSI/MHS Management Programming Manual

Examples
OSI/MHS Management Programming Manual—424824-001
C-23
SPI Example in TAL
zCom^Err^Secur^Viol ->
Write^Term ( "Security violation ADDing MTA" );
zCom^Err^FS^Err ->
Write^Term ( "ZCom file system error ADDing MTA" );
zCom^Err^Obj^Alrdy^Def ->
Write^Term ( "ZCom object already defined ADDing MTA" );
OTHERWISE ->
Write^Term^With^Num ( "SPI retrieval error ADDing MTA",
RetCode );
END; -- case
END; -- if SSErr <> zSpi^Err^OK
RETURN (RetCode);
END; -- Add^MTA;
? PAGE "ListObjects Null "
-------------------------------------------------------------
--
-- LISTOBJ^NULL - Send LISTOBJECTS NULL command to list names
-- of all objects in this OSI/MHS subsystem.
--
-- GLOBALS. Term^Fn . File number of home terminal
-- Term^Buf . Buffer used for terminal I/O
-- Spi^Buffer . Buffer used to send SPI command
-- SSErr . Set to SPI error value
-- Mgr^Tkn^Name . On entry, contains MHS Manager
-- name
-- RetCode . Set to the retcode value in the
-- SPI response
-- INPUT. None
-- OUTPUT. None
--
-------------------------------------------------------------
INT PROC ListObj^Null;
BEGIN
Write^Term^Blank;
Write^Term ( "-> LISTOBJECTS NULL" );
CALL Init^Cmd^Buffer ( zCom^Cmd^ListObjects,
zCom^Obj^Null );
SSErr := SSPutTkn ( Spi^Buffer,
zSpi^Tkn^Manager,
Mgr^Tkn^Name );
IF (SSErr <> zSpi^Err^OK) THEN
BEGIN
Write^Term^With^Num ( "SSPutTkn failed", SSErr );
CALL Abend;
END;
RetCode := GetResponse^Loop;
RETURN (RetCode);
END; -- ListObj^Null