Доброе время суток.
При разработке процедуры появилась ошибка:
<<
Unsuccessful execution caused by system error that does not preclude successful of subsequent statements. Error while parsing procedure SP_TEST`s BLR. invalid request BLR at offset 181. context already in use (BLR error).
>>
Ниже приведен текст упрощенной тестовой процедуры, поясняющий проблему.
Если в процедуре строка
1.
-- if (c.id_1 between 2 and 3) then result=2;
закомментирована - процедура компилируется; если коммент убираем появляется ошибка.
Как я понял все дело в подзапросе (select t.id+1 from rdb$database) - если его убираем или переписываем например через функцию - ошибка исчезает(естественно в реальной процедуре реальный подзапрос к определенной таблице).
Т.е. какая-то странная ошибка при повторном чтении значения поля неявного курсора c?
Или я чего-то забыл?
Версия сервера: v3.0.1 x64.
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.
SET SQL DIALECT 3;
/******************************************************************************/
/*** Stored procedures ***/
/******************************************************************************/
SET TERM ^ ;
CREATE PROCEDURE SP_TESP
RETURNS (
RESULT SMALLINT)
AS
BEGIN
SUSPEND;
END^
SET TERM ; ^
/******************************************************************************/
/*** Tables ***/
/******************************************************************************/
CREATE TABLE TEST (
ID SMALLINT
);
/******************************************************************************/
/*** Stored procedures ***/
/******************************************************************************/
SET TERM ^ ;
ALTER PROCEDURE SP_TESP
RETURNS (
RESULT SMALLINT)
AS
begin
result = 0;
for select t.id,(select t.id+1 from rdb$database) as id_1
from test t
as cursor c
do begin
if (c.id_1 between 0 and 1) then result=1;
-- if (c.id_1 between 2 and 3) then result=2;
end
suspend;
end^
SET TERM ; ^
COMMIT WORK;
