Oracle下批量生成ADDM报告

绝地灬酷狼 2022-08-14 04:50 164阅读 0赞

之前写过一篇文章 [Oracle 批量生成AWR报告][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][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

[Oracle _AWR]: http://blog.csdn.net/stevendbaguo/article/details/8716423
[username_password_servername]: mailto:fwms4hz/fwms4hz@10.10.15.230