create function tune_advisor(p_sql IN CLOB) RETURN VARCHAR2 IS
  --
  task VARCHAR2(100);
  --
BEGIN
--
--Creates an advisor task.
--
  task := dbms_sqltune.create_tuning_task(sql_text => p_sql);
--
--Execute a previously created tuning task
--
  dbms_sqltune.execute_tuning_task(task_name => task);
  --
  return(task);
END tune_advisor;
/