OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-49
printf (" Call SHOW_MESSAGE ");
rc := print_root_object ( inbound_object );
IF (( rc = OM_RC_SUCCESS ) OR
( rc = ZGPI_RC_WARNING )) THEN
BEGIN
printf (" SHOW_MESSAGE --> " &
"was successful! ");
IF ( rc = ZGPI_RC_WARNING ) THEN
BEGIN
printf (" *********** WARNING! ");
printf ("**********");
CALL show_gpi_status (ZGPI_ANY);
END;
-- End transfer in
printf (" Call GPI_MT_FINISH_TRANSFER_IN_");
rc := GPI_MT_FINISH_TRANSFER_IN_
( session,
inbound_object,
OM_FALSE, -- Delete this msg
OM_FALSE, -- Finish only this msg
MH_REMOVE); -- Remove the object
IF (( rc = OM_RC_SUCCESS ) OR
( rc = ZGPI_RC_WARNING )) THEN
BEGIN
printf (" --> was successful! ");
IF ( rc = ZGPI_RC_WARNING ) THEN
BEGIN
printf (" *********** WARNING! ");
printf ("**********");
CALL show_gpi_status (ZGPI_ANY);
END;
END -- then
ELSE
BEGIN
printfd (" GPI_MT_FINISH_TRANSFER_IN_ " &
"failed! Error: ", rc );
CALL show_gpi_status (ZGPI_ANY);
END; -- else
END -- then
ELSE
BEGIN
printfd (" SHOW_MESSAGE failed! " &
"Error: ", rc );
CALL show_gpi_status (ZGPI_ANY);
END; -- else
END --then
ELSE
BEGIN
printfd (" GPI_MT_START_TRANSFER_IN_ " &
"failed! Error: ", rc );
CALL show_gpi_status (ZGPI_ANY);
END; -- else
END -- then
ELSE
BEGIN
printf (" *** No message available. ****");
END; -- else
END -- then