Firebird - Cursores

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