OSI/MHS Management Programming Manual

Examples
OSI/MHS Management Programming Manual—424824-001
C-19
SPI Example in TAL
-- Mgr^Tkn^Name . Contains the MHS Manager
-- name on entry; used to
-- construct SPI command
-- MTA^Add^Params^Map . Token map for ADD MTA
-- parameters
-- MTA^Params^Map . Token map for MTA operation
-- parameters
-- RetCode . Set to the retcode value in
-- the SPI response
-- INPUT. None
-- OUTPUT. None
--
-------------------------------------------------------------
INT PROC Add^MTA;
BEGIN
INT DataList^Index;
INT .ObjName [0:132];
STRING .S^ObjName := @ObjName '<<' 1;
Write^Term^Blank;
Write^Term ( "-> ADD MTA" );
CALL Init^Cmd^Buffer ( zCom^Cmd^Add,
zCom^Obj^Mta );
S^ObjName [2] ':=' ["MTAX"];
-- 1234567890123
ObjName [0] := 4;
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;
SSErr := SSPutTkn( Spi^Buffer,
zCom^Tkn^ObjName,
ObjName );
IF (SSErr <> zSpi^Err^OK) THEN
BEGIN
Write^Term^With^Num ( "SSPutTkn failed", SSErr );
CALL Abend;
END;
--
-- Initialize the MTA ADD PARAMS structure to null values.
--
SSErr := SSNull( MTA^Add^Params^Map,
Mta^Add^Params);
IF (SSErr <> zSpi^Err^OK) THEN
BEGIN
Write^Term^With^Num ( "SSNull failed", SSErr );
CALL Abend;
END;
-- Set structure fields with the initial attributes values
-- Set the MTA name
MTA^Add^Params.zits^mta^name.zlength := 12;
MTA^Add^Params.zits^mta^name.zstring ':=' "MTAISTHENAME";