Communicator e3000 MPE/iX Release 6.5 (Non-Platform Software Release C.65.00 (30216-90291)

Chapter 5 137
Internet and Interoperability
Transact/iX Expanded B-Tree and File Open Enhancement
end;
.
.
.
var
data_buffer : data_record;
.
.
.
base_name := ' NAME; ';
password := 'PASS1 ';
mode := 1;
dbopen (base_name, password, mode, db_status_array);
{ check db_status_array }
.
.
.
strmove (2, base_name, 1, data_buffer.id_type, 1);
system_name := 'aci01 ';
data_size := 58;
tl_call_transact (system_name, addr(data_buffer),
data_size, return_status);
{ check Transact's return_status }
.
.
.
end.
Example: Transact Code - Subprogram
<< This code is compiled and added to the XL. >>
system aci01,base=name(,1,,PASSED); << NAME database is not opened >>
<< by Transact/iX. >>
define(item) x-item x(8):
name-id x(2):
name x(8):
address x(32):
phone x(8);
list x-item:
name-id,BASEID: << Home base assumed. >>
name, init:
address,init:
phone,init;
<< Use database ID from Pascal code to perform retrieval. >>
output(serial) employees, list=(name:phone);
exit