程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Oracle數據庫 >> Oracle教程 >> Oracle下批量生成ADDM報告

Oracle下批量生成ADDM報告

編輯:Oracle教程

Oracle下批量生成ADDM報告


之前寫過一篇文章 Oracle 批量生成AWR報告,我們之前每天監控AWR報告,及時消除性能隱患。現在又多了一種手段,生成ADDM報告,聽取下Oracle的建議未嘗不可。
ADDM能發現定位的問題包括:
.操作系統內存頁入頁出問題
.由於Oracle負載和非Oracle負載導致的CPU瓶頸問題
.導致不同資源負載的Top SQL語句和對象——CPU消耗、IO帶寬占用、潛在IO問題、RAC內部通訊繁忙
.按照PLSQL和JAVA執行時間排的Top SQL語句.
.過多地連接 (login/logoff).
.過多硬解析問題——由於shared pool過小、書寫問題、綁定大小不適應、解析失敗原因引起的。
.過多軟解析問題
.索引查詢過多導致資源爭用.
.由於用戶鎖導致的過多的等待時間 (通過包dbms_lock加的鎖)
.由於DML鎖導致的過多等待時間(例如鎖住表了)
.由於管道輸出導致的過多等待時間(如通過包dbms_pipe.put進行管道輸出)
.由於並發更新同一個記錄導致的過多等待時間(行級鎖等待)
.由於ITL不夠導致的過多等待時間(大量的事務操作同一個數據塊)
.系統中過多的commit和rollback(logfile sync事件).
.由於磁盤帶寬太小和其他潛在問題(如由於logfile太小導致過多的checkpoint,MTTR設置問題,過多的undo操作等等)導致的IO性能問題I
.對於DBWR進程寫數據塊,磁盤IO吞吐量不足
.由於歸檔進程無法跟上redo日至產生的速度,導致系統變慢
.redo數據文件太小導致的問題
.由於擴展磁盤分配導致的爭用
.由於移動一個對象的高水位導致的爭用問題
.內存太小問題——SGA Target, PGA, Buffer Cache, Shared Pool
.在一個實例或者一個機群環境中存在頻繁讀寫爭用的熱塊
.在一個實例或者一個機群環境中存在頻繁讀寫爭用的熱對象
.RAC環境中內部通訊問題
.LMS進程無法跟上導致鎖請求阻塞
.在RAC環境中由於阻塞和爭用導致的實例傾斜
.RMAN導致的IO和CPU問題
.Streams和AQ問題
.資源管理等待事件

使用方法: 在E盤下面建立addm的目錄,將三個文件放入到其中addm.cmd、addm.sql、myaddm.sql.

前提連上的用戶需要被賦予兩個權限。

grant select any dictionary to user;-----user為生產數據庫賬號

grant advisor to user;-------user為生產數據庫賬號

1. 文件名:addm.cmd

內容: cmd.exe /c sqlplus username/password@servername @addm.sql

2. 文件名: addm.sql

內容:

@@E:\addm\myaddm.sql 0 8
@@E:\addm\myaddm.sql 8 12
@@E:\addm\myaddm.sql 12 14
@@E:\addm\myaddm.sql 14 18
@@E:\addm\myaddm.sql 18 24
exit

3. 文件名: myaddm.sql

內容:

 

set echo off;
set veri off;
set feedback off;
set termout on;
set heading off;
set linesize 300;
var dbid number;
var inst_num number;
var bid number;
var eid number;
var bhour varchar2(10);
var ehour varchar2(10);
var task_name varchar2(40);
begin
:bhour := &1;
:ehour := &2;
if(length(:bhour)=1)
then :bhour := '0'||:bhour;
end if;
if(length(:ehour)=1)
then :ehour := '0'||:ehour;
end if;
end;
/
begin
select min(snap_id) into :bid from dba_hist_snapshot s
where (to_char(sysdate-1 , 'yyyy-mm-dd') || ' ' ||:bhour) <=
to_char(s.end_interval_time, 'yyyy-mm-dd HH24')
and (to_char(sysdate-1 , 'yyyy-mm-dd') || ' ' ||:ehour) >=
to_char(s.end_interval_time, 'yyyy-mm-dd HH24');
select max(snap_id) into :eid from dba_hist_snapshot s
where (to_char(sysdate-1 , 'yyyy-mm-dd') || ' ' ||:bhour) <=
to_char(s.end_interval_time, 'yyyy-mm-dd HH24')
and (to_char(sysdate-1 , 'yyyy-mm-dd') || ' ' ||:ehour) >=
to_char(s.end_interval_time, 'yyyy-mm-dd HH24');
if(:ehour=24)
then select max(snap_id) into :eid from dba_hist_snapshot s where (to_char(sysdate,'yyyy-mm-dd')||' 00') =to_char(s.end_interval_time,'yyyy-mm-dd HH24');
end if;
select dbid into :dbid from v$database;
select instance_number into :inst_num from v$instance;
end;
/


column report_name new_value report_name noprint;
select 'PMS_'||:inst_num||'_'||to_char(sysdate-1 ,'yyyymmdd')||'_'||:bhour||'-'||:ehour||'.txt' report_name from dual;
begin
declare
id number;
name varchar2(100);
descr varchar2(500);
BEGIN
name := '';
descr := 'ADDM run: snapshots [' || :bid || ', '
|| :eid || '], instance ' || :inst_num
|| ', database id ' || :dbid;
dbms_advisor.create_task('ADDM',id,name,descr,null);
:task_name := name;
dbms_advisor.set_task_parameter(name, 'START_SNAPSHOT', :bid);
dbms_advisor.set_task_parameter(name, 'END_SNAPSHOT', :eid);
dbms_advisor.set_task_parameter(name, 'INSTANCE', :inst_num);
dbms_advisor.set_task_parameter(name, 'DB_ID', :dbid);
dbms_advisor.execute_task(name);
end;
end;
/


spool &report_name;
set long 1000000 pagesize 0 longchunksize 1000
column get_clob format a80
select dbms_advisor.get_task_report(:task_name, 'TEXT', 'TYPICAL')
from dual;
spool off;
prompt
prompt End of Report
prompt Report written to &report_name.


set termout on;
clear columns sql;
ttitle off;
btitle off;
repfooter off;
undefine report_name

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved