OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-15
"object");
descriptor_count := 1D;
descriptor_list[0].type := IM_T_THIS_IPM;
descriptor_list[0].syntax := OM_S_OBJECT;
descriptor_list[0].value.object.padding := 0D;
descriptor_list[0].value.object.object := local_object;
local_rc := GPI_OM_INSERT_ ( object_id, -- Object identifier from
-- the layer above
IGNORED_FOR_SINGLE_VALUED_ATT,
descriptor_list,
descriptor_count);
END; -- then
END; -- then
RETURN (local_rc);
END; -- End build_and_insert_ipmid_object
?page
---------------------------------------------------------------------------
-- Function Name: build_and_insert_txtbody_object --
-- --
-- Arguments: root_id IN --
-- object_id IN --
-- --
-- Return: Return code from the function call --
-- --
-- Description: This function creates the im_c_ia5_text_body_part --
-- 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 im_c_interpersonal_message object. --
---------------------------------------------------------------------------
INT PROC build_and_insert_txtbody_object ( root_id, object_id );
INT(32) root_id; -- Root object identifier
INT(32) object_id; -- Object identifier from the
-- layer above
BEGIN
INT local_rc; -- Return code from the function call
INT(32)
descriptor_count := 1D, -- Count of the elements
element_number, -- Length of the actual string
local_object, -- Local object identifier
string_offset; -- String offset for the GPI_OM_WRITE_
STRING .EXT data_string[0:79]; -- Data string for the GPI_OM_WRITE_
STRUCT
.EXT descriptor_list(OM_descriptor)[0:1];
descriptor_list[0].type := IM_T_REPERTOIRE;
descriptor_list[0].syntax := OM_S_ENUMERATION;
descriptor_list[0].value.enumeration := IM_IA5 ;
printf (" Create the object");
local_rc := GPI_OM_CREATE_ ( IM_C_IA5_TEXT_BODY_PART, -- Class of the
-- object
OM_FALSE, -- Without defined initial
-- values
local_object,
root_id, -- Root object identifier
); -- Session not necessary