OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-42
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list_2,
actual_number_2);
-- Print external trace entry
max_print_def := 5D;
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_IDENTIFIER;
f_descriptor_list[3].type := MH_T_ACTION;
f_descriptor_list[4].type := MH_T_ARRIVAL_TIME;
print_arr[0].type := MH_T_ADMD_NAME;
print_arr[1].type := MH_T_COUNTRY_NAME;
print_arr[2].type := MH_T_PRMD_IDENTIFIER;
print_arr[3].type := MH_T_ACTION;
print_arr[4].type := MH_T_ARRIVAL_TIME;
print_arr[0].text ':=' " Admd Name: ";
print_arr[1].text ':=' " Country Name: ";
print_arr[2].text ':=' " Prmd Identifier: ";
print_arr[3].text ':=' " Action: ";
print_arr[4].text ':=' " Arrival Time: ";
printf (" External Trace Entry");
CALL print_object ( MH_T_EXTERNAL_TRACE_INFO,
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list,
actual_number);
-- Print mts identifier
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_LOCAL_IDENTIFIER;
print_arr[0].type := MH_T_ADMD_NAME;
print_arr[1].type := MH_T_COUNTRY_NAME;
print_arr[2].type := MH_T_LOCAL_IDENTIFIER;
print_arr[0].text ':=' " Admd Name: ";
print_arr[1].text ':=' " Country Name: ";
print_arr[2].text ':=' " Local Identifier: ";
printf (" Mts Identifier");
CALL print_object ( MH_T_MTS_IDENTIFIER,
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list,
actual_number);
-- Print eits
max_print_def := 1D;
f_descriptor_list[0].type := MH_T_BUILTIN_EITS;
print_arr[0].type := MH_T_BUILTIN_EITS;
print_arr[0].text ':=' " Builtin Eits: ";
printf (" Eits");
CALL print_object ( MH_T_ORIGINAL_EITS,
max_print_def,
print_arr,
f_descriptor_list,
descriptor_list,