OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-40
print_arr[3].type := MH_T_CONTENT_TYPE;
print_arr[3].text ':=' " Content Type: ";
print_arr[4].type := MH_T_CONVERSION_PROHIBITED;
print_arr[4].text ':=' " Conversion Prohibited: ";
print_arr[5].type := MH_T_DISCLOSURE_ALLOWED;
print_arr[5].text ':=' " Disclosure Allowed: ";
print_arr[6].type := MH_T_PRIORITY;
print_arr[6].text ':=' " Priority: ";
local_rc := GPI_OM_EXAMINE_ ( root_id, -- Root object identifier
OM_TRUE, -- Values returned
0D, -- First element
MAX_DESCRIPTORS_32,
descriptor_list,
total_number,
actual_number,
string_buffer,
STRING_BUFFER_LEN,
actual_string_len,
total_string_len );
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 );
-- Include the class in the count
printfld (" Number of attributes: ", total_number - 1D);
-- Print all root attributes that aren't objects
CALL print_attributes ( max_print_def,
print_arr,
descriptor_list,
actual_number);
-- Print bilateral information
max_print_def := 3D;
f_descriptor_list[0].type := MH_T_ADMD_NAME;
f_descriptor_list[1].type := MH_T_COUNTRY_NAME;
f_descriptor_list[2].type := MH_T_INFORMATION;
print_arr[0].type := MH_T_ADMD_NAME;
print_arr[1].type := MH_T_COUNTRY_NAME;
print_arr[2].type := MH_T_INFORMATION;
print_arr[0].text ':=' " Admd Name: ";
print_arr[1].text ':=' " Country Name: ";
print_arr[2].text ':=' " Information: ";
printf (" Bilateral Information");
CALL print_object ( MH_T_BILATERAL_INFORMATION,
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list,
actual_number);
-- Print interpersonal message
max_print_def := 4D;
f_descriptor_list[0].type := IM_T_AUTO_FORWARDED;
f_descriptor_list[1].type := IM_T_IMPORTANCE;
f_descriptor_list[2].type := IM_T_SENSITIVITY;
f_descriptor_list[3].type := IM_T_SUBJECT;
print_arr[0].type := IM_T_AUTO_FORWARDED;