[firebase-br] Cursor

[Hélio Oliveira]

Bom dia Colegas!

Pesquisando na net a respeito, encontrei o exemplo abaixo, que demonstra 
como percorrer todos os registros do cursor usando while (1=1) do... daí 
vem minha pergunta, existe alguma forma de sabermos a quantidade de 
registros retornados na consulta que originou o cursor. A variável 
(row_count) na primeira passagem tem valor = 0.

execute block
returns (relation char(31), sysflag int)
as
declare cur cursor for
   (select rdb$relation_name, rdb$system_flag from rdb$relations);
begin
   open cur;
   while (1=1) do
   begin
     fetch cur into relation, sysflag;
     if (row_count = 0) then leave;
     suspend;
   end
   close cur;
end

[ ]'s,
Hélio Oliveira