OSI/MHS Management Programming Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

731

732

733

734

735

736

737

738

739

740

Examples

OSI/MHS Management Programming Manual—424824-001

C-20

SPI Example in TAL

-- Set the ISO country name

MTA^Add^Params.zisocountry.zlength := 2;

MTA^Add^Params.zisocountry.zstring ':=' "US";

-- Set the ADMD

MTA^Add^Params.zadmd.zlength := 8;

MTA^Add^Params.zadmd.zstring ':=' "MTA2ADMD";

-- Set the PRMD

MTA^Add^Params.zprmd.zlength := 8;

MTA^Add^Params.zprmd.zstring ':=' "MTA2PRMD";

-- Initialize the MTA PARAMS structure to null values.

SSErr := SSNull( MTA^params^map,

MTA^Params);

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

BEGIN

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

CALL Abend;

END;

-- Initial elements of MTA^PARAMS

-- Specify validation required

MTA^Params.zvalidation^required.zflag := zMHS^Val^Boolean^True;

-- Specify passwords

MTA^Params.zour^logon.zlength := 12;

MTA^Params.zour^logon.zstring ':=' "MTA2OURLOGON";

MTA^Params.zits^logon.zlength := 12;

MTA^Params.zits^logon.zstring ':=' "MTA2ITSLOGON";

MTA^Params.zour^logon^rsp.zlength := 0;

MTA^Params.zits^logon^rsp.zlength := 0;

-- Set other configuration parameters

MTA^Params.zapplic^context := zMHS^Val^Applic^Context^Tp4;

MTA^Params.zdialog^mode := zMHS^Val^Dialog^Mode^Mono;

MTA^Params.zmax^msg^len := 20000d;

MTA^Params.zlocal^initiate.zflag := zMHS^Val^Boolean^True;

MTA^Params.zremote^initiate.zflag := zMHS^Val^Boolean^True;

MTA^Params.zpassw^server.zflag := zMHS^Val^Boolean^False;

MTA^Params.zabs^syntax^id := 0;

-- Set remote PSAP address

MTA^Params.zrempselector1.zlength := 0;

MTA^Params.zremsselector1.zlength := 0;

MTA^Params.zremtselector1.zlength := 0;

MTA^Params.zremnsap1.zlength := 2;

MTA^Params.zremnsap1.zstring ':=' "52";

-- Set local PSAP address

MTA^Params.zlocpselector1.zlength := 0;

MTA^Params.zlocsselector1.zlength := 0;

MTA^Params.zloctselector1.zlength := 0;

MTA^Params.zlocnsap1.zlength := 2;

MTA^Params.zlocnsap1.zstring ':=' "51";

-- Specify remaining PSAP addresses as unused

MTA^Params.zrempselector2.zlength := 0;

MTA^Params.zremsselector2.zlength := 0;

MTA^Params.zremtselector2.zlength := 0;

MTA^Params.zremnsap2.zlength := 0;