OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-19
descriptor_list,
descriptor_count);
END; -- then
END; -- then
END; -- then
END; -- then
RETURN (local_rc);
END; -- End build_and_insert_ipm_object
?page
---------------------------------------------------------------------------
-- Function Name: build_and_insert_trace_object --
-- --
-- Arguments: root_id IN --
-- --
-- Return: Return code from the function call --
-- --
-- Description: This function creates the mh_c_external_trace_entry --
-- 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_trace_object (root_id);
INT(32) root_id;
BEGIN
INT
local_rc; -- Return code from the function call
INT(32)
descriptor_count := 5D, -- Count of the elements
local_object; -- Local object identifier
STRING .EXT data_buf_in[0:131]; -- Buffer for the string data
STRING .EXT data_buf_in_ptr; -- Pointer to the string data buffer
STRUCT
.EXT descriptor_list(OM_descriptor)[0:4]; -- Descriptor list
-- Initialize the descriptor list
@data_buf_in_ptr := @data_buf_in; -- Initialize the pointer
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;
descriptor_list[2].type := MH_T_PRMD_IDENTIFIER;
descriptor_list[2].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[2].value.z_string.length := 11D ;
@descriptor_list[2].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "DEVELOPMENT" -> @data_buf_in_ptr;
descriptor_list[3].type := MH_T_ACTION;