批量生成awr报告

       自动生成awr脚本，@awrrpt_batch.sql start_snap end_snap 或>@awrrpt_batch.sql，生成文件在数据库服务器directory的DATA_PUMP_DIR中，可惜不能远程生成。

/*
usage:
1、noninteractive:
SQL>@awrrpt_batch.sql start_snap end_snap
2、interactive:
SQL>@awrrpt_batch.sql
*/
set serveroutput on;
set feedback off;
set linesize 120;
prompt ***************************************************************;
prompt usage:;
prompt 1、noninteractive:SQL>@awrrpt_batch.sql start_snap end_snap;
prompt 2、interactive   :SQL>@awrrpt_batch.sql；
prompt ***************************************************************;
pause press enter to continue or ctrl-c to exit.;
col snap_id for 999999999;
col startup_time for a30;
col begin_interval_time for a30;
col end_interval_time for a30;
select snap_id,startup_time,begin_interval_time,end_interval_time from dba_hist_snapshot order by snap_id;
exec dbms_output.put_line(chr(13)||chr(10)||'please enter start and end snap_id:');
declare
v_dbid number;
v_instance number;
v_b_id number;
v_e_id number;
v_code number;
v_errm varchar2(300);
v_sql varchar2(300);
v_html varchar2(20000);
cur_awrrpt_html SYS_REFCURSOR;
cur_snapshot SYS_REFCURSOR;
fileID utl_file.file_type;
v_filename varchar2(30);
v_snap_id number;
v_startup_time timestamp(3);
v_begin_snap_time timestamp(3);
v_end_snap_time   timestamp(3);
v_dpath varchar2(60);
begin
v_b_id:=&1;
v_e_id:=&2;
dbms_output.put_line(chr(13)||chr(10)||'awrrpt report files:');
for k in v_b_id..v_e_id-1 loop
v_filename:='awrrpt_'||k||'_'||(k+1)||'.html';
fileID:=utl_file.fopen('DATA_PUMP_DIR',v_filename,'a',32767);
select dbid into v_dbid from v$database;
select instance_number into v_instance from v$instance;
v_sql:='select output from table(dbms_workload_repository.awr_report_html('||v_dbid||','||v_instance||','||k||','||(k+1)||',8))';
open cur_awrrpt_html for v_sql;
loop
exit when cur_awrrpt_html%notfound;
fetch cur_awrrpt_html into v_html;
utl_file.put_line(fileID,v_html);
end loop;
utl_file.fclose(fileID);
execute immediate 'select directory_path from dba_directories where directory_name=:dname' into v_dpath using 'DATA_PUMP_DIR';
dbms_output.put_line(v_dpath||v_filename);
end loop;
exception
when others then
v_code:=SQLCODE;
v_errm:=SQLERRM;
dbms_output.put_line('ERROR CODE'||v_code||':'||v_errm);
end;
/

附：生成awr报告实际起作用的函数
select output from table(dbms_workload_repository.awr_report_text(dbid,db_num,bsnid,esnid,l_options));
select output from table(dbms_workload_repository.awr_report_html(dbid,db_num,bsnid,esnid,l_options));
select output from table(dbms_workload_repository.awr_report_html(1311728654,1,2853,2854,0));