OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-18
descriptor_list[2].type := IM_T_SENSITIVITY;
descriptor_list[2].syntax := OM_S_ENUMERATION;
descriptor_list[2].value.enumeration := IM_NOT_SENSITIVE ;
descriptor_list[3].type := IM_T_SUBJECT;
descriptor_list[3].syntax := OM_S_TELETEX_STRING;
descriptor_list[3].value.z_string.length := 10D ;
data_buf_in ':=' "MY SUBJECT";
@descriptor_list[3].value.z_string.elements := @data_buf_in;
printf (" Create the object");
local_rc := GPI_OM_CREATE_ ( IM_C_INTERPERSONAL_MESSAGE,
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
IF ( local_rc = ZGPI_RC_WARNING ) THEN
printfd (" WARNING! number: ", local_rc );
printf (" Insert all the required attributes");
local_rc := GPI_OM_INSERT_ ( local_object,
IGNORED_FOR_SINGLE_VALUED_ATT,
descriptor_list,
descriptor_count);
IF (( local_rc = OM_RC_SUCCESS ) or (local_rc = ZGPI_RC_WARNING)) THEN
BEGIN
IF ( local_rc = ZGPI_RC_WARNING ) THEN
printfd (" WARNING! number: ", local_rc );
printf (" Object IA5 TEXT BODY PART");
local_rc := build_and_insert_txtbody_object (root_id,local_object);
IF (( local_rc = OM_RC_SUCCESS ) OR
( local_rc = ZGPI_RC_WARNING )) THEN
BEGIN
IF ( local_rc = ZGPI_RC_WARNING ) THEN
printfd (" WARNING! number: ", local_rc );
printf (" Object IPM IDENTIFIER");
local_rc := build_and_insert_ipmid_object (root_id,local_object);
IF (( local_rc = OM_RC_SUCCESS ) OR
( local_rc = ZGPI_RC_WARNING )) THEN
BEGIN
IF ( local_rc = ZGPI_RC_WARNING ) THEN
printfd (" WARNING! number: ", local_rc );
printf (" " &
"Insert the object into the root object");
descriptor_count := 1D;
descriptor_list[0].type := MH_T_CONTENT;
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_(root_id, -- Root object identifier
IGNORED_FOR_SINGLE_VALUED_ATT,