OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-47
local_identifier[0:31]; -- Local identifier string that uniquely
-- identifies the transferred out object
INT
gateway_password_len := 7, -- Length of the gateway password
mhs_mgr_name_len := 4; -- Length of the mhs_mgr_name
-- Call the initialize procedure to set up output
CALL gpiex_init;
printf (" *******************************");
printf (" * Program example is starting *");
printf (" *******************************");
-- Initialize the GPI system
printf (" Call GPI_INITIALIZE_");
rc := GPI_INITIALIZE_ ();
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;
-- Open a session
printf (" Call GPI_OPEN_");
rc := GPI_OPEN_ ( gateway_name,
gateway_instance_name,
session,
environment_object,
mhs_mgr_name,
mhs_mgr_name_len,
gateway_password,
gateway_password_len);
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;
-- Build root object
printf (" Call BUILD_ROOT_OBJECT ");
rc := build_root_object (session,outbound_object);
IF (( rc = OM_RC_SUCCESS ) OR ( rc = ZGPI_RC_WARNING )) THEN
BEGIN
printf (" BUILD_ROOT_OBJECT --> was successful!");
IF ( rc = ZGPI_RC_WARNING ) THEN
BEGIN
printf (" *********** WARNING! **********");