OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-10
printfd (" WARNING from GPI_STATUS_! number: ", local_rc );
END;
printf (" Error Information ");
printf (" ================= ");
printfd (" Request type: ", request_type);
printfd (" Session: ", local_session);
printfd (" Client RETURN code: ", old_status);
printfd (" Error class: ", error_class);
printfd (" Primary code: ", primary_code);
printfd (" Secondary code: ", secondary_code);
printfd (" Qualifier code: ", error_qualifier);
printfd (" Error source: ", error_source);
printf (" Info - buffer:");
IF ( total_info_len > 0 ) THEN
BEGIN
printfd (" Total info buffer size: ", total_info_len);
-- access info buffer memory only if a buffer was provided
IF (actual_info_len > 0 ) THEN
BEGIN
@buffer_ptr := @buffer;
DO
BEGIN
CALL print_info_buffer (buffer_ptr,structure_size);
actual_info_len := actual_info_len - structure_size;
IF ( actual_info_len > 0 ) THEN
BEGIN
-- Add calculation for second buffer
@buffer_ptr := @buffer_ptr + $UDBL(structure_size);
END -- then
END
UNTIL ( actual_info_len <= 0 );
END;
IF ( total_info_len > ZGPI_MAX_STATUS_BUF_LEN ) THEN
BEGIN
printf (" The size of the info buffer is too small");
printf (" to get all of the information. ");
END -- then
END -- then
ELSE
BEGIN
printf (" No Info - buffer present");
END; -- else
END -- then
ELSE
BEGIN
printfd (" GPI_STATUS_ failed! Error: ", local_rc );
END; -- else
END; -- End show_gpi_status
?page
--------------------------------------------------------------------------
-- Function Name: search_descriptor --
-- --
-- Arguments: type IN --
-- att_list IN --
-- number IN --
-- --
-- Return: Position of the type in the descriptor list --
-- ( -1 if no element is found) --
-- --