OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-44
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 := 5D;
print_arr[0].type := MH_T_EXPLICIT_CONVERSION;
print_arr[1].type := MH_T_MTA_REPORT_REQUEST;
print_arr[2].type := MH_T_MTA_RESPONSIBILITY;
print_arr[3].type := MH_T_ORIGINATOR_REPORT_REQUEST;
print_arr[4].type := MH_T_RECIPIENT_NUMBER;
print_arr[0].text ':=' " Explicit Conversion: ";
print_arr[1].text ':=' " MTA Report Request: ";
print_arr[2].text ':=' " MTA Responsibility: ";
print_arr[3].text ':=' " Originator Report Request";
print_arr[4].text ':=' " Recipient Number: ";
printf (" Recipient Descriptors");
CALL print_attributes ( max_print_def,
print_arr,
descriptor_list_2,
actual_number_2);
-- Print subobject or name
max_print_def := 6D;
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_PRMD_NAME;
f_descriptor_list[3].type := MH_T_ORGANIZATION_NAME;
f_descriptor_list[4].type := MH_T_ORGANIZATIONAL_
UNIT_NME_1;
f_descriptor_list[5].type := MH_T_SURNAME;
print_arr[0].type := MH_T_ADMD_NAME;
print_arr[1].type := MH_T_COUNTRY_NAME;
print_arr[2].type := MH_T_PRMD_NAME;
print_arr[3].type := MH_T_ORGANIZATION_NAME;
print_arr[4].type := MH_T_ORGANIZATIONAL_UNIT_NME_1;
print_arr[5].type := MH_T_SURNAME;
print_arr[0].text ':=' " Admd Name: ";
print_arr[1].text ':=' " Country Name: ";
print_arr[2].text ':=' " Prmd Name: ";
print_arr[3].text ':=' " Organization Name: ";
print_arr[4].text ':=' " Organization Unit Name:";
print_arr[5].text ':=' " Surname: ";
printf (" OR Name");
CALL print_object ( MH_T_RECIPIENT_NAME,
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list_2,
actual_number_2);
END; -- then
END; -- for
END; -- then
END; -- then
END -- then
ELSE