- 最后登录
- 2015-3-2
- 在线时间
- 246 小时
- 威望
- 95
- 金钱
- 1510
- 注册时间
- 2011-10-14
- 阅读权限
- 50
- 帖子
- 152
- 精华
- 1
- 积分
- 95
- UID
- 33
|
57#
发表于 2013-3-4 10:20:55
ML 论坛里的所写的Oracle-base的脚本,由于某些原因(你懂的),给不会的童鞋贴在这里
-- -----------------------------------------------------------------------------------
-- File Name : http://www.oracle-base.com/dba/1 ... ple_awr_reports.sql
-- Author : DR Timothy S Hall
-- Description : Generates AWR reports for all snapsots between the specified start and end point.
-- Requirements : Access to the v$ views, UTL_FILE and DBMS_WORKLOAD_REPOSITORY packages.
-- Call Syntax : Create the directory with the appropriate path.
-- Adjust the start and end snapshots as required.
-- @generate_multiple_awr_reports.sql
-- Last Modified: 02/08/2007
-- -----------------------------------------------------------------------------------
CREATE OR REPLACE DIRECTORY awr_reports_dir AS '/tmp/';
DECLARE
-- Adjust before use.
l_snap_start NUMBER := 1;
l_snap_end NUMBER := 10;
l_dir VARCHAR2(50) := 'AWR_REPORTS_DIR';
l_last_snap NUMBER := NULL;
l_dbid v$database.dbid%TYPE;
l_instance_number v$instance.instance_number%TYPE;
l_file UTL_FILE.file_type;
l_file_name VARCHAR(50);
BEGIN
SELECT dbid
INTO l_dbid
FROM v$database;
SELECT instance_number
INTO l_instance_number
FROM v$instance;
FOR cur_snap IN (SELECT snap_id
FROM dba_hist_snapshot
WHERE instance_number = l_instance_number
AND snap_id BETWEEN l_snap_start AND l_snap_end
ORDER BY snap_id)
LOOP
IF l_last_snap IS NOT NULL THEN
l_file := UTL_FILE.fopen(l_dir, 'awr_' || l_last_snap || '_' || cur_snap.snap_id || '.htm', 'w', 32767);
FOR cur_rep IN (SELECT output
FROM TABLE(DBMS_WORKLOAD_REPOSITORY.awr_report_html(l_dbid, l_instance_number, l_last_snap, cur_snap.snap_id)))
LOOP
UTL_FILE.put_line(l_file, cur_rep.output);
END LOOP;
UTL_FILE.fclose(l_file);
END IF;
l_last_snap := cur_snap.snap_id;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
IF UTL_FILE.is_open(l_file) THEN
UTL_FILE.fclose(l_file);
END IF;
RAISE;
END;
/ |
|