OSI/MHS Management Programming Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

Examples

OSI/MHS Management Programming Manual—424824-001

C-21

SPI Example in TAL

MTA^Params.zlocpselector2.zlength := 0;

MTA^Params.zlocsselector2.zlength := 0;

MTA^Params.zloctselector2.zlength := 0;

MTA^Params.zlocnsap2.zlength := 0;

MTA^Params.zrempselector3.zlength := 0;

MTA^Params.zremsselector3.zlength := 0;

MTA^Params.zremtselector3.zlength := 0;

MTA^Params.zremnsap3.zlength := 0;

MTA^Params.zlocpselector3.zlength := 0;

MTA^Params.zlocsselector3.zlength := 0;

MTA^Params.zloctselector3.zlength := 0;

MTA^Params.zlocnsap3.zlength := 0;

MTA^Params.zrempselector4.zlength := 0;

MTA^Params.zremsselector4.zlength := 0;

MTA^Params.zremtselector4.zlength := 0;

MTA^Params.zremnsap4.zlength := 0;

MTA^Params.zlocpselector4.zlength := 0;

MTA^Params.zlocsselector4.zlength := 0;

MTA^Params.zloctselector4.zlength := 0;

MTA^Params.zlocnsap4.zlength := 0;

MTA^Params.zrempselector5.zlength := 0;

MTA^Params.zremsselector5.zlength := 0;

MTA^Params.zremtselector5.zlength := 0;

MTA^Params.zremnsap5.zlength := 0;

MTA^Params.zlocpselector5.zlength := 0;

MTA^Params.zlocsselector5.zlength := 0;

MTA^Params.zloctselector5.zlength := 0;

MTA^Params.zlocnsap5.zlength := 0;

MTA^Params.zrempselector6.zlength := 0;

MTA^Params.zremsselector6.zlength := 0;

MTA^Params.zremtselector6.zlength := 0;

MTA^Params.zremnsap6.zlength := 0;

MTA^Params.zlocpselector6.zlength := 0;

MTA^Params.zlocsselector6.zlength := 0;

MTA^Params.zloctselector6.zlength := 0;

MTA^Params.zlocnsap6.zlength := 0;

MTA^Params.zrempselector7.zlength := 0;

MTA^Params.zremsselector7.zlength := 0;

MTA^Params.zremtselector7.zlength := 0;

MTA^Params.zremnsap7.zlength := 0;

MTA^Params.zlocpselector7.zlength := 0;

MTA^Params.zlocsselector7.zlength := 0;

MTA^Params.zloctselector7.zlength := 0;

MTA^Params.zlocnsap7.zlength := 0;

-- Set X121 country code

MTA^Params.zx121country.zlength := 3;

MTA^Params.zx121country.zstring ':=' "310";

-- Set country name

MTA^Params.zcountryname.zlength := 21;

MTA^Params.zcountryname.zstring ':=' "UNITEDSTATESOFAMERICA";

SSErr := SSPut( Spi^Buffer,

MTA^Add^Params^Map,

MTA^Add^Params );

IF (SSErr <> zSpi^Err^OK) THEN

BEGIN

Write^Term^With^Num ( "SSPut failed", SSErr );

CALL Abend;

END;