Pasted

CREATE OR ALTER PROCEDURE SP_LISTA_CIDADES
RETURNS (
   TXT_CIDADE VARCHAR(100)
)
AS
BEGIN
 
   FOR
      SELECT
         FIRST 50
         C.CODCIDADE AS CODIGO,
         C.DESCCIDADE
      FROM CIDADE C
      ORDER BY
         C.DESCCIDADE
      AS cursor curCIDADE
   do BEGIN
 
      TXT_CIDADE = :curCIDADE.CODIGO || ' - ' || :curCIDADE.DESCCIDADE;
 
      suspend;
   END
 
END