Pasted

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