Fórum Stored Procedure não funciona! #60988

SET TERM ^ ;

CREATE OR ALTER PROCEDURE GERAXML (
    I_TABELA CHAR(100)) 
AS
DECLARE VARIABLE V_TABELA VARCHAR(200);
BEGIN
  FOR
    SELECT
      TRIM(F.RDB$RELATION_NAME)
    FROM
      RDB$RELATION_FIELDS F
    WHERE
      F.RDB$FIELD_NAME = ´FK_´||:I_TABELA
    AND
      F.RDB$RELATION_NAME NOT LIKE ´V¬´
    INTO :V_TABELA
  DO
  BEGIN
    INSERT INTO TABELAXML
      SELECT
            ´<NODE TEXT="´||TRIM(F.RDB$FIELD_NAME)||´"/>´
      FROM
        RDB$RELATION_FIELDS F
      WHERE
        F.RDB$RELATION_NAME = :V_TABELA;
  END
END^

SET TERM ; ^

GRANT INSERT ON TABELAXML TO PROCEDURE GERAXML;

GRANT EXECUTE ON PROCEDURE GERAXML TO SYSDBA;