[firebase-br] Erro no SQL Dinamico

[Suporte Sinapse Informática]

  Senhores,

  Eu criei uma procedure com SQL dinâmico. Ela retorna um erro que eu nunca vi. O código é simples. Vejam abaixo:

      For
        SELECT rNOME_TABELA FROM SP_CAMPOS_TABELA
        WHERE rNOME_CAMPO='NUM_FRE'
        Into :vNOME_TABELA
      Do
      Begin
        rERROS=0;

        vSQL='UPDATE '||:vNOME_TABELA||' SET NUM_FRE='''||:NUM_FRE_NOVO||''''||
            ' WHERE NUM_FRE='''||:NUM_FRE_ANT||'''';

        EXECUTE STATEMENT :vSQL;

         WHEN SQLCODE -924 DO
         BEGIN
           rERROS = -924;
           SUSPEND;
         END
      End

  A procedure SP_CAMPOS_TABELA retorna as tabelas que possui o campo informado no campo rNOME_CAMPO. A procedure compila normalmente, porém durante a execução aparece o seguinte erro: TOO MANY RECURSION LEVELS OF EXECUTE STATEMENT.

  Alguém tem alguma idéia?

  Agradeço desde já pela ajuda,

  CARLOS HENRIQUE MEIRELES
  SUPORTE SINAPSE