快速收集ADDM性能报告的脚本

declare
begin_time_date date := to_date('20141109 15:00:00', 'yyyymmdd hh24:mi:ss') ;
end_time_date   date := to_date('20141109 19:00:00', 'yyyymmdd hh24:mi:ss') ;


begin
  dbms_output.put_line('set linesize 100');
  dbms_output.put_line('set pagesize 50000');
  dbms_output.put_line('set head off');
  dbms_output.put_line('serveroutput ON SIZE UNLIMITED ');
  dbms_output.put_line('spool addm.txt');
  for r in (select *
              from sys.WRM$_SNAPSHOT t
             where t.begin_interval_time >=begin_time_date                  
               and t.begin_interval_time<= end_time_date 
             order by t.snap_id, t.instance_number)
  
   loop
    dbms_output.put_line('declare 
    id number ;
    name varchar2(100) ;
    v_dec varchar2(200) :='||'''addm_'||to_char(r.snap_id)||'_'||to_char(r.snap_id+1)||''';');
    dbms_output.put_line( 'begin ') ;
    dbms_output.put_line( 'dbms_advisor.create_task(''ADDM'',id,name,v_dec,null);');
    dbms_output.put_line( 'dbms_advisor.set_task_parameter(name, '||'''START_SNAPSHOT'','||r.snap_id||');') ;
    dbms_output.put_line( 'dbms_advisor.set_task_parameter(name, ' ||'''END_SNAPSHOT'','||to_char(r.snap_id+1)||');') ;
    dbms_output.put_line( 'dbms_advisor.set_task_parameter(name, '||'''INSTANCE'','||r.instance_number||');') ;
    dbms_output.put_line( 'dbms_advisor.set_task_parameter(name, '||'''DB_ID'','||r.dbid||');') ;
    dbms_output.put_line( 'dbms_advisor.execute_task(name); ') ;
    dbms_output.put_line('dbms_output.put_line('||'''#spool addm_' || r.instance_number || '_' ||
                         r.snap_id || '_' || (r.snap_id + 1) || '.txt'');');
    dbms_output.put_line('dbms_output.put_line('||'''#select dbms_advisor.get_task_report('''''''||'||name||'''''','||'''''TEXT'''',''''TYPICAL'''') from dual ;'');');                         
                         
     
                         
    dbms_output.put_line('dbms_output.put_line(''#spool off'');');
    dbms_output.put_line('end ; 
    /');
  end loop;
  dbms_output.put_line('spool off');
end;






--clear
select 'exec dbms_advisor.delete_task('''||x.task_name||''');'
from dba_advisor_tasks x