OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-26
@descriptor_list[0].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "POSTMASTER1" -> @data_buf_in_ptr;
descriptor_list[1].type := MH_T_COUNTRY_NAME;
descriptor_list[1].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[1].value.z_string.length := 2D ;
@descriptor_list[1].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "US" -> @data_buf_in_ptr;
descriptor_list[2].type := MH_T_PRMD_NAME;
descriptor_list[2].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[2].value.z_string.length := 11D ;
@descriptor_list[2].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "DEVELOPMENT" -> @data_buf_in_ptr;
descriptor_list[3].type := MH_T_ORGANIZATION_NAME;
descriptor_list[3].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[3].value.z_string.length := 4D ;
@descriptor_list[3].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "MTA1" -> @data_buf_in_ptr;
descriptor_list[4].type := MH_T_ORGANIZATIONAL_UNIT_NME_1;
descriptor_list[4].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[4].value.z_string.length := 7D ;
@descriptor_list[4].value.z_string.elements := @data_buf_in_ptr;
data_buf_in_ptr ':=' "GWUSERS" -> @data_buf_in_ptr;
descriptor_list[5].type := MH_T_SURNAME;
descriptor_list[5].syntax := OM_S_PRINTABLE_STRING;
descriptor_list[5].value.z_string.length := 6D ;
@descriptor_list[5].value.z_string.elements := @data_buf_in_ptr;
-- Change value for second recipient descriptor
IF ( flag = SECOND ) THEN
data_buf_in_ptr ':=' "UAGW12" -> @data_buf_in_ptr
ELSE
data_buf_in_ptr ':=' "UAGW11" -> @data_buf_in_ptr;
printf (" Create the object ");
local_rc := GPI_OM_CREATE_ ( MH_C_OR_NAME,
OM_FALSE, -- Without defined intial values
local_object,
root_id, -- Root object identifier
); -- Session not necessary
IF (( local_rc = OM_RC_SUCCESS ) OR ( local_rc = ZGPI_RC_WARNING )) THEN
BEGIN
IF ( local_rc = ZGPI_RC_WARNING ) THEN
printfd (" WARNING! number: ", local_rc );
printf (" Insert all required attributes ");
local_rc := GPI_OM_INSERT_ ( local_object,
IGNORED_FOR_SINGLE_VALUED_ATT,
descriptor_list,
descriptor_count);
IF (( local_rc = OM_RC_SUCCESS ) OR (local_rc = ZGPI_RC_WARNING)) THEN
BEGIN
IF ( local_rc = ZGPI_RC_WARNING ) THEN
printfd (" WARNING! number: ", local_rc );