OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-48
CALL show_gpi_status (ZGPI_ANY);
END;
-- Transfer out the root object
printf (" Call GPI_MT_TRANSFER_OUT_");
rc := GPI_MT_TRANSFER_OUT_ ( session,
outbound_object,
local_identifier,
local_identifier_len,
OM_FALSE, -- Retain
);
IF (( rc = OM_RC_SUCCESS ) OR ( rc = ZGPI_RC_WARNING )) THEN
BEGIN
printf (" --> was successful! ");
IF ( rc = ZGPI_RC_WARNING ) THEN
BEGIN
printf (" *********** WARNING! **********");
CALL show_gpi_status (ZGPI_ANY);
END;
-- Wait for the root object
printf (" Call GPI_MT_WAIT_");
interval := 30000D; -- Wait for 5 minutes
printf (" GPI_MT_WAIT_ is waiting for a message ");
rc := GPI_MT_WAIT_ ( session,
interval,
available,
);
IF (( rc = OM_RC_SUCCESS ) OR ( rc = ZGPI_RC_WARNING )) THEN
BEGIN
printf (" GPI_MT_WAIT_ --> " &
" was successful! ");
IF ( rc = ZGPI_RC_WARNING ) THEN
BEGIN
printf (" *********** WARNING! **********");
CALL show_gpi_status (ZGPI_ANY);
END;
IF ( available = OM_TRUE ) THEN
BEGIN
-- Transfer in the root object
printf (" Call GPI_MT_START_TRANSFER_IN_");
rc := GPI_MT_START_TRANSFER_IN_ ( session,
inbound_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! **********");
CALL show_gpi_status (ZGPI_ANY);
END;
-- Show the root object