[firebase-br] Concatenação ?????

[Fábio Roberto Paschoalini]

Gostaria de concatenar os códigos em uma string e utiliza-los em um where

exemplo:

----------------------------------------------------------------------------
Set Term ^ ;

Procedure IsBrobol
(Input: integer)

Returns
(OutPut: Integer )

as
Declare Variable sCidades VarChar(500);
declare variable iCid integer;
begin
  For Select CodCidade
      From Cidade
      into :iCid
  do
  begin
    if (:sCidades <> '') then
       sCidades = (:sCidades || ', ' || Cast(:iCid as varCHar(10)) );
    else
       sCidades = Cast(:iCid as varCHar(10))

  end

  Select Isbrobol
    From Cidade_Pais
   where
         Cidade_Pais.CodigoCidade in (:sCidades);

end ^

Set Term ; ^

-------------------------------------------------------------------

Eu tentei implementar algo igual a procedure acima, mas ocorria um erro muito loco
no debugger e não depurava a procedure.

Alguém poderia me ajudar?



Atenciosamente,

Fábio Roberto Paschoalini
e-mail: Fabio.sialog em pop.com.br
Cargo: Desenvolvedor
Empresa: Sialog - Automação e Logistica