[firebase-br] Probelma na Procedure

[Lucio - UniData®]

Estou criando uma procedure para voutar uma valor de uma campo 
mais esta dando erro  

Unsiccessfil execution caused by an unavaliable resource 
Variable type (position 0) in EXECUTE STATEMENT 'SELECT DT_FERIADO FROM FERIADOS WHERE 
 DT_FERIADO = '25/12/2006'' INTO  does not match return. 
------------------------------------------------------------------------------------------------------
Procedure 

CREATE PROCEDURE EXECUTA_QUERY (
    P_CAMPO VARCHAR(50),
    P_TABELA VARCHAR(50),
    P_WHERE VARCHAR(800))
RETURNS (
    R_RETORNO VARCHAR(30))
AS
DECLARE VARIABLE W_SQL VARCHAR(1000);
begin
 W_SQL =  'SELECT '||:P_CAMPO||' FROM '||:P_TABELA||
          ' WHERE '|| :P_WHERE;

  EXECUTE STATEMENT :w_sql INTO :R_RETORNO;
  suspend;
end

----------------------------------------------------------------------------------------------------------
alguem tem ideia  do que acontece  
Obrigado !