Здравствуйте!
Используем IDS 11.50 FC8.
1) На одном сервере создаем таблицу и SPL для доступа к ней:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
create database dbsrv1;
database dbsrv1;
grant dba to public;
create table test (i integer, val varchar(10));
insert into test values (1, 'aaa');
insert into test values (2, 'bbb');
insert into test values (3, 'ccc');
---------
create procedure get_val (_i integer)
returning varchar(10) as val
define _val varchar(10);
let _val = '';
select val into _val from test where i = _i;
return _val;
end procedure;
2) На другом сервере (другой хост! и соответственно другой инстанс) создаем SPL, в которой через динамический запрос делаем распределенный вызов spl из первого сервера:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
create database dbsrv2;
database dbsrv2;
grant dba to public;
------
------
create procedure get_test ()
returning varchar(10) as val
DEFINE _db varchar(100);
DEFINE _val varchar(100);
DEFINE dsql varchar(250);
Let _db = "dbsrv1@ol_tsr";
---------------------------------------
Let dsql = " execute procedure "||trim(_db)||":get_val(2)";
PREPARE stmt_id FROM dsql;
DECLARE cust_cur cursor FOR stmt_id;
OPEN cust_cur ;
FETCH cust_cur INTO _val;
CLOSE cust_cur;
FREE cust_cur ;
FREE stmt_id ;
---------------------------------------
return _val;
end procedure;
3) Теперь на втором же сервере запускаем на выполнение оберточную SPL:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
drop procedure call_test;
create procedure call_test()
define _val varchar(10);
define _ix integer;
for _ix = 1 to 1000000
execute procedure get_test() into _val;
end for;
end procedure;
execute procedure call_test();
В результате выполнения начинает выделяться shared memory на первом сервере. Затем съедается память windows первого сервера. (приложенный файл spl_1.gif).
Потом клиент на втором сервере, запустивший call_test() отваливается с ошибкой "Memory allocation failed during query processing" (приложенный файл spl_2.gif).
Лечится командой onmode -F на первом сервере (приложенный файл spl_3.gif).
Почему так происходит? Что можно изменить?
