vasilisНо я бы зашел с другой стороны - почему все таки память так сильно растет ? Может надо копнуть в сторону приложений и memory lack ?
В этом направлении работы тоже ведутся :)
Один и тот же С-шный код (в части взаимодействия с sql-базой), но выполняющий разные процедуры, работает с разными результатами.
Два бинарника аллокируют по 200К-300К на сессию и дальше объем памяти на их сессиях не растет.
А вот еще два...
В худшем случае за одно выполнение процедуры на сервере на сессии увеличивается объем потребляемой памяти на порядка 100К. Похоже на утечки в самом сервере.
Я уже процедуру и так и сяк переписывал, выкинул часть спорного кода, но все равно память расходуется.
Ладно, гулять так гулять :) , вот пример худшего сценария. Смысл процедуры - выбирает из таблицы часть записей во временную таблицу и по выбранным полям меняет в изначальной таблице несколько полей. Возвращает приложению число подготовленных записей.
Было: 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.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
create procedure T_Get_Ch (
) returning integer as CRows;
define CommitMe integer;
define rc integer;
define t_TId like LOData.TID;
define t_LId like LOData.LId;
define t_ModuleId like LOData.ModuleId;
define t_Port like LOData.Port;
define t_IP like LOData.IP;
define t_LCDt like LOData.LCDt;
define t_Host like LOData.Host;
define t_LimTimeOut like LOData.LimTimeOut;
define t_CfgVer like LOData.CfgVer;
set lock mode to wait 3 ;
begin
on exception in (- 535 ) -- Already in transaction
let CommitMe= 0 ;
end exception with resume;
let CommitMe= 1 ;
begin work;
end;
begin
define vSQL, vISAM integer;
define vMES varchar( 250 );
on exception set vSQL, vISAM, vMES
if CommitMe!= 0 then rollback work; end if;
raise exception vSQL, vISAM, vMES;
end exception;
begin
on exception in (- 310 , - 958 ) -- Table already exists
delete from t_t_ch; let rc= 1 ;
end exception with resume;
let rc= 0 ;
create temp table t_t_ch (
TId integer,
LId integer,
ModuleId integer,
Port integer,
IP numeric( 10 , 0 ),
NCDt integer,
HostName varchar( 128 ),
TimeOut integer,
CfgVer smallint
) with no log;
if rc== 0 then
create index I_tmp_t_cfg on t_t_ch(moduleid,Lid);
end if;
end;
let t_LCDt=dbinfo('utc_current');
let rc= 0 ;
foreach cur1 for
select o.TID, o.LId, o.ModuleId, nvl(o.Port, 0 ), o.ip, o.host, o.LimTimeOut, o.CfgVer
into t_TID, t_LId, t_ModuleId, t_Port, t_IP, t_Host, t_LimTimeOut, t_CfgVer
from LOData o
where o.ModType='T' and o.Status in ( 0 , 1 ) and o.CMode='Y' and o.CStatus='G'
insert into t_t_ch(TID, LId, ModuleId, Port, IP, NCDt, HostName, TimeOut, CfgVer)
values(t_TID, t_LId, t_ModuleId, t_Port, t_IP, t_LCDt, t_Host, t_LimTimeOut, t_CfgVer);
update LOData set (CStatus, CNum, CDt)=
('W', 1 , t_LCDt)
where current of cur1;
let rc=rc+ 1 ;
end foreach;
update statistics low for table t_t_ch;
if CommitMe!= 0 then commit work; end if;
end;
return rc;
end procedure;
Жрало по 100К за один запуск.
Стал искать. Сперва убрал создание индекса и апдейт статистики перед отдачей таблицы приложению.
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.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
create procedure T_Get_Ch (
) returning integer as CRows;
define CommitMe integer;
define rc integer;
define t_TId like LOData.TID;
define t_LId like LOData.LId;
define t_ModuleId like LOData.ModuleId;
define t_Port like LOData.Port;
define t_IP like LOData.IP;
define t_LCDt like LOData.LCDt;
define t_Host like LOData.Host;
define t_LimTimeOut like LOData.LimTimeOut;
define t_CfgVer like LOData.CfgVer;
set lock mode to wait 3 ;
begin
on exception in (- 535 ) -- Already in transaction
let CommitMe= 0 ;
end exception with resume;
let CommitMe= 1 ;
begin work;
end;
begin
define vSQL, vISAM integer;
define vMES varchar( 250 );
on exception set vSQL, vISAM, vMES
if CommitMe!= 0 then rollback work; end if;
raise exception vSQL, vISAM, vMES;
end exception;
begin
on exception in (- 310 , - 958 ) -- Table already exists
delete from t_t_ch;
end exception with resume;
create temp table t_t_ch (
TId integer,
LId integer,
ModuleId integer,
Port integer,
IP numeric( 10 , 0 ),
NCDt integer,
HostName varchar( 128 ),
TimeOut integer,
CfgVer smallint
) with no log;
end;
let t_LCDt=dbinfo('utc_current');
let rc= 0 ;
foreach cur1 for
select o.TID, o.LId, o.ModuleId, nvl(o.Port, 0 ), o.ip, o.host, o.LimTimeOut, o.CfgVer
into t_TID, t_LId, t_ModuleId, t_Port, t_IP, t_Host, t_LimTimeOut, t_CfgVer
from LOData o
where o.ModType='T' and o.Status in ( 0 , 1 ) and o.CMode='Y' and o.CStatus='G'
insert into t_t_ch(TID, LId, ModuleId, Port, IP, NCDt, HostName, TimeOut, CfgVer)
values(t_TID, t_LId, t_ModuleId, t_Port, t_IP, t_LCDt, t_Host, t_LimTimeOut, t_CfgVer);
update LOData set (CStatus, CNum, CDt)=
('W', 1 , t_LCDt)
where current of cur1;
let rc=rc+ 1 ;
end foreach;
if CommitMe!= 0 then commit work; end if;
end;
return rc;
end procedure;
Жрать стало сразу на порядок меньше, но точно сейчас не скажу сколько и при каждом запуске или нет.
Дальше стал искать наугад. Пределал создание временной таблицы:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
begin
on exception in (- 206 ) -- table not found
create temp table t_t_ch (
TId integer,
LId integer,
ModuleId integer,
Port integer,
IP numeric( 10 , 0 ),
NCDt integer,
HostName varchar( 128 ),
TimeOut integer,
CfgVer smallint
) with no log;
end exception with resume;
delete from t_t_ch;
end;
Не помогло. Избавился от foreach-а, получил такой вариант: 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.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
create procedure T_Get_Ch (
) returning integer as CRows;
define CommitMe integer;
define rc integer;
define t_TId like LOData.TID;
define t_LId like LOData.LId;
define t_ModuleId like LOData.ModuleId;
define t_Port like LOData.Port;
define t_IP like LOData.IP;
define t_LCDt like LOData.LCDt;
define t_Host like LOData.Host;
define t_LimTimeOut like LOData.LimTimeOut;
define t_CfgVer like LOData.CfgVer;
set lock mode to wait 3 ;
begin
on exception in (- 535 ) -- Already in transaction
let CommitMe= 0 ;
end exception with resume;
let CommitMe= 1 ;
begin work;
end;
begin
define vSQL, vISAM integer;
define vMES varchar( 250 );
on exception set vSQL, vISAM, vMES
if CommitMe!= 0 then rollback work; end if;
raise exception vSQL, vISAM, vMES;
end exception;
begin
on exception in (- 206 ) -- table not found
create temp table t_t_ch (
TId integer,
LId integer,
ModuleId integer,
Port integer,
IP numeric( 10 , 0 ),
NCDt integer,
HostName varchar( 128 ),
TimeOut integer,
CfgVer smallint
) with no log;
end exception with resume;
delete from t_t_ch;
end;
let t_LCDt=dbinfo('utc_current');
insert into t_t_ch(TID, LId, ModuleId, Port, IP, NCDt, HostName, TimeOut, CfgVer)
select o.TID, o.LId, o.ModuleId, nvl(o.Port, 0 ), o.IP, t_LCDt, o.Host, o.LimTimeOut, o.CfgVer
from LOData o
where o.ModType='T' and o.Status in ( 0 , 1 ) and o.CMode='Y' and o.CStatus='G';
let rc=DBINFO('sqlca.sqlerrd2');
if rc> 0 then
update LOData set (CStatus, CNum, CSent)=('W', 1 , t_LCDt)
where LId in (select LId from t_t_ch);
end if;
if CommitMe!= 0 then commit work; end if;
end;
return rc;
end procedure;
В таком варианте - холостые запуски процедуры - когда из LOData ничего не выбирается и не апдейтится, память не жрет. Но если там хоть одна запись выбирается - сессия "дожирает" 4К памяти.
Клиентских сессий много, таких приложений - тоже. Память поедается аж бегом :(
memory leak в самом сервере? И что делать с этим дальше? |
