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