[firebase-br] O que esta errado aqui neste select ?

[diogo em smartsistemas.com.br]

fiz uma procedure para me retornar o saldo de uma banco...

CREATE PROCEDURE SALDOBANCARIO (
    COD_BANCO INTEGER)
RETURNS (
    SALDO DOUBLE PRECISION)
AS
DECLARE VARIABLE VALOR DOUBLE PRECISION;
DECLARE VARIABLE TIPO CHAR(10);
begin
  SALDO = 0;
  for select B.VALOR, E.TIPO from BANCARIO B, EVENTOBANCARIO E
      where B.COD_EVENTOBANCARIO = E.CODIGO and
            B.COD_BANCO = :COD_BANCO
            into :VALOR, :TIPO do
  begin
    if (:TIPO = 'C') then
      SALDO = SALDO + :VALOR;
    else
      SALDO = SALDO - :VALOR;
  end
  suspend;
end



depois estou fazendo um select relacionado com a procedure e esta me retornando este erro:

select B.DESCRICAO, S.SALDO
from SALDOBANCARIO S, BANCO B
where S.COD_BANCO = B.CODIGO

Unsuccessful execution caused by a system error that precludes
successful execution of subsequent statements.
Dynamic SQL Error.
parameter mismatch for procedure SALDOBANCARIO.