execute block
returns (
   CODCIDADE integer,
   DESCCIDADE varchar(50)
)
as

declare cur cursor for (
   Select CODCIDADE,DESCCIDADE from CIDADE
);

begin
  open cur;

  while (1=1) do
  begin
    fetch cur into :CODCIDADE, :DESCCIDADE;

    if (row_count = 0) then
      leave;

    suspend;

  end

  close cur;
end