Создаю следующую процедуру где создаю временную таблицу и вывожу результать с помощью курсора

create procedure myTemp()
result set 1
language sql
begin
declare vr_sum decimal(15,2);
declare vr_g33a char(4);
declare vr_summa decimal(15,2);
declare global temporary table session.temp1 like t_st2006 on commit preserve rows not logged
in usertemp1;
declare myCursor1 cursor for select char(g33a,4), sum(g46) from t_st2006 where g01a='ЭК' and
g54d between '2006-01-01' and '2006-12-31' group by char(g33a,4);
declare myCursor cursor with return for select * from session.temp1;
select sum(g46) into vr_summa from t_st2006 where g01a='ЭК' and g54d between '2006-01-0' and '2006-12-31';
open myCursor1;
while sqlcode=000 do
fetch myCursor1 into vr_g33a, vr_sum;
if vr_sum>=vr_summa then insert into session.temp1 select * from t_st2006
where char(g33a, 4)=vr_g33a and g54d between '2006-01-0' and '2006-12-31';
end if;
end while;
close myCursor1;
open myCursor;
end@

Вроди все ОК, но процессор командной строки ругается на:
SQL0104N Обнаружен неправильный элемент "<cursor declaration>" после текста "". Список правильных элементов: "<SQL statement>". LINE NUMBER=9. SQLSTATE=42601

TORTНельзя объвлять сначала временные таблицы, а потом курсор. Есть правила в порядке объявления...

Какова порядок объявления? Если вставить объявление временной таблицы после курсора коммандная строка ругается на:

SQL0204N Имя "SESSION.TEMP1" не было определено. LINE NUMBER=9
SQLSTATE=42704

create procedure myTemp()
result set 1
language sql
begin
declare vr_sum decimal(15,2);
declare vr_g33a char(4);
declare vr_summa decimal(15,2);
declare myCursor1 cursor for select char(g33a,4), sum(g46) from t_st2006 where g01a='ЭК' and
g54d between '2006-01-01' and '2006-12-31' group by char(g33a,4);
declare myCursor cursor with return for select * from session.temp1;
declare global temporary table session.temp1 like t_st2006 on commit preserve rows not logged
in usertemp1;
select sum(g46) into vr_summa from t_st2006 where g01a='ЭК' and g54d between '2006-01-0' and '2006-12-31';
open myCursor1;
while sqlcode=000 do
fetch myCursor1 into vr_g33a, vr_sum;
if vr_sum>=vr_summa then insert into session.temp1 select * from t_st2006
where char(g33a, 4)=vr_g33a and g54d between '2006-01-0' and '2006-12-31';
end if;
end while;
close myCursor1;
open myCursor;
end@

TORTЯ динамически делал:
declare c1 cursor for s1;
set SQL_CMD = "SELECT FIELD1 FROM SESSION.MYTABLE";
PREPARE s1 from SQL_CMD;
open c1;
.......................
вот что-то вроде этого
Спасибо за совет кажется все работает ОК!!!. Процедура откомпилировался успешно но при вызове статус возврата = 0;
Для проверки создал в БД настоящую таблицу temp1. Вызвал процедуру но результат не вышел на экран. Посмотрел в БД таблица temp1 заполнена данными. В чем же причина? Вроде бы курсор открыт для выводы результата.

Вот скрипт:

Забыл еще один вопрос задать. Как использовать sqlcode для цикла вместо счетчика что бы после окончание строк в курсоре, цикл завершилась.
Sqlcode является ключевым словом или ее где то надо объявить?

Mark Barinstein Don VinNiЗабыл еще один вопрос задать. Как использовать sqlcode для цикла вместо счетчика что бы после окончание строк в курсоре, цикл завершилась.
Sqlcode является ключевым словом или ее где то надо объявить?

1.
С курсорами обычно работают так:
Если очередной fetch позиционирует курсор за последней записью, то управление передастся handler'у, который выставит флаг и передаст управление в ту же точку, откуда этот handler был вызван.

2.
Если хотите использовать временные таблицы "статически" в курсорах, то перед созданием процедуры в этой же сессии задекларируйте эту временную таблицу.
Компилятору нужны метаданные временной таблицы для компиляции.

P.S.:
А вообще в вашем случае можно одним insert ... select обойтись и не городить циклов, курсоров - быстрее работать будет...

create procedure myTemp()
result set 1
language sql
begin
declare vr_sum decimal(15,2);
declare vr_g33a char(4);
declare vr_summa decimal(15,2);
declare vr_count smallint;
declare SQL_CMD varchar(100);
declare myCursor1 cursor for select char(g33a,4), sum(g46) from t_st2006 where g01a='ЭК' and g54d between '2006-01-01' and '2006-12-31' group by char(g33a,4);
declare myCursor cursor with return for s1;
declare global temporary table session.temp1 like t_st2006 on commit preserve rows not logged in usertemp1;
set SQL_CMD='select * from session.temp1';
prepare s1 from SQL_CMD;
select count(distinct char(g33a,4)) into vr_count from t_st2006 where char(g33a,4)=any(select char(g33a,4) from t_st2006 where g01a='ЭК' and g54d between '2006-01-01' and '2006-12-31' group by char(g33a,4));
select sum(g46) into vr_summa from t_st2006 where g01a='ЭК' and g54d between '2006-01-01' and '2006-12-31';
open myCursor1;
while vr_count<>0 do
set vr_count=vr_count-1;
fetch myCursor1 into vr_g33a, vr_sum;
if vr_sum>=vr_summa then insert into session.temp1 select * from t_st2006 where char(g33a, 4)=vr_g33a and g54d between '2006-01-01' and '2006-12-31' and g01a='ЭК ';
end if;
end while;
close myCursor1;
open myCursor;
end@

Объявил временную таблицу. Откомпелировалься нормально. Вызвал процедуру call myTemp Но результат пустой.
Попробывал с обичным таблицой она запольняется и показывает результат работы.

С курсорами обычно работают так:


Про CONTINUE HANDLER где можно узнать подробнее. В основном использую для справки SQL 8.2 Referance vol 2, но ненашел про CONTINUE HANDLER

Don VinNi
С курсорами обычно работают так:


Про CONTINUE HANDLER где можно узнать подробнее. В основном использую для справки SQL 8.2 Referance vol 2, но ненашел про CONTINUE HANDLER

Вопрос про CONTINUE HANDLER отподает!

Спасибо всем за помощь! Тема закрыто.