Архив форумов ЦИТФорума

[Doctor216]

у меня стоит интербейс6. Создаю хранимую процедуру и пытаюсь в ней описать курсор. что не получаетв чем трабла?
тескт:
set term !! ;
create procedure get_usadr (iuser integer)
returns (saddr varchar(100))
as
declare variable i integer;
declare variable bflag integer;
declare cod_adr cursor for select ladrtda from tdadres where (lvidtda=1)and(lustda=:iuser);
begin
open cod_adr;

fetch first cod_adr into :i;
bflag = 1;
while (::fetch_status=0)and(bflag=1)
begin
execute procedure get_addr :i returning_values :saddr;

if (:saddr != "") then bflag=0;

fetch next cod_adr into :i;
end;

close cod_adr;
end !!
set term ; !!

ошибка -104: declare cod_adr cursor for select ladrtda from tdadres where (lvidtda=1)and(lustda=:iuser);

описание курсора.
помгите