OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-41
print_arr[1].type := IM_T_IMPORTANCE;
print_arr[2].type := IM_T_SENSITIVITY;
print_arr[3].type := IM_T_SUBJECT;
print_arr[0].text ':=' " Auto Forward: ";
print_arr[1].text ':=' " Importance: ";
print_arr[2].text ':=' " Sensitivity: ";
print_arr[3].text ':=' " Subject: ";
printf (" Interpersonal Message");
CALL print_object ( MH_T_CONTENT,
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list,
actual_number);
-- Print subobject identifier and text body
exist := search_descriptor ( MH_T_CONTENT,
descriptor_list,
actual_number);
IF ( exist > -1 ) THEN
BEGIN
local_rc :=
GPI_OM_EXAMINE_( descriptor_list[exist].value.object.object,
OM_TRUE, -- Values returned
0D, -- First element
MAX_DESCRIPTORS_32,
descriptor_list_2,
total_number_2,
actual_number_2,
string_buffer_2,
STRING_BUFFER_LEN,
actual_string_len_2,
total_string_len_2 );
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 );
max_print_def := 2D;
f_descriptor_list[0].type := IM_T_REPERTOIRE;
f_descriptor_list[1].type := IM_T_TEXT;
print_arr[0].type := IM_T_REPERTOIRE;
print_arr[1].type := IM_T_TEXT;
print_arr[0].text ':=' " Repertoire: ";
print_arr[1].text ':=' " Text: ";
printf (" IA5 Text Body Part");
CALL print_object ( IM_T_BODY,
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list_2,
actual_number_2);
-- Print IPM identifier
max_print_def := 1D;
f_descriptor_list[0].type := IM_T_USER_RELATIVE_IDENTIFIER;
print_arr[0].type := IM_T_USER_RELATIVE_IDENTIFIER;
print_arr[0].text ':=' " User Relative Id.: ";
printf (" IPM Identifier");
CALL print_object ( IM_T_THIS_IPM,