OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide
TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-21
END; -- then
END; -- then
RETURN (local_rc);
END; -- End build_and_insert_trace_object
?page
---------------------------------------------------------------------------
-- Function Name: build_and_insert_mtsid_object --
-- --
-- Arguments: root_id IN --
-- --
-- Return: Return code from the function call --
-- --
-- Description: This function creates the mh_c_mts_identifier --
-- with the initial value parameter set to FALSE. The --
-- function then inserts all the required attributes --
-- into the object. It then inserts the object into --
-- the root object. --
---------------------------------------------------------------------------
INT PROC build_and_insert_mtsid_object (root_id);
INT(32) root_id;
BEGIN
INT
local_rc; -- Return code from the function call
INT(32)
descriptor_count := 2D, -- Count of the elements
local_object; -- Local object identifier
STRING .EXT data_buf_in[0:131];
STRING .EXt data_buf_in_ptr;
---------------------------------------------------------------------
-- NOTE: The values below are hardcoded. We recommend using the --
-- values passed back in the environment object returned from--
-- the GPI_OPEN_ call. --
---------------------------------------------------------------------
STRUCT
.EXT descriptor_list(OM_descriptor)[0:1];
@data_buf_in_ptr := @data_buf_in;
descriptor_list[0].type := MH_T_ADMD_NAME;
descriptor_list[0].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[0].value.z_string.length := 11D;
@descriptor_list[0].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "POSTMASTER1" -> @data_buf_in_ptr;
descriptor_list[1].type := MH_T_COUNTRY_NAME;
descriptor_list[1].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[1].value.z_string.length := 2D;
@descriptor_list[1].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "US" -> @data_buf_in_ptr;
printf (" Create the object");
local_rc := GPI_OM_CREATE_ ( MH_C_MTS_IDENTIFIER,
OM_FALSE, -- Without defined intial values
local_object,
root_id, -- Root object identifier
); -- Session not necessary
IF (( local_rc = OM_RC_SUCCESS ) OR ( local_rc = ZGPI_RC_WARNING )) THEN
BEGIN