---TOP99抓取
grant select,insert,update,delete on outln.ol$ to DBA_OWNER;
grant create any outline to DBA_OWNER;
grant drop any outline to DBA_OWNER;
grant alter any outline to DBA_OWNER;
grant select any table to DBA_OWNER;
grant update any table to DBA_OWNER;
grant delete any table to DBA_OWNER;
grant insert any table to DBA_OWNER;
grant execute on dbms_outln to DBA_OWNER;
grant select on v_$sqltext to DBA_OWNER;
grant select on v_$sql to DBA_OWNER;
grant select on dba_users to DBA_OWNER;
grant select on dba_outlines to DBA_OWNER;
-- Create table
create table DBA_OWNER.MY_TOP99_0215
(
sql_id varchar2(200),
HASH_VALUE NUMBER,
CHILD_NUMBER NUMBER,
PLAN_HASH_VALUE NUMBER,
PARSING_SCHEMA_ID NUMBER,
EXECUTIONS NUMBER,
CPU_PER_EXEC NUMBER,
GETS_PER_EXEC NUMBER,
SQLLEN NUMBER,
SQL_fullTEXT clob,
sql_plan_baselines varchar2(200)
)
tablespace DBADATA;
create or replace package DBA_OWNER.admin_outline is
Function get_sqltext(i_hash_value Number) Return clob;
Procedure get_topsql;
end admin_outline;
/
create or replace package body DBA_OWNER.admin_outline
Is
Function get_sqltext(i_hash_value Number)
Return clob
v_clob Clob;
v_hash_value Number := i_hash_value;
cursor c_sql is select sql_text from v$sqltext where hash_value = v_hash_value order by piece;
v_sqltext varchar2(100);
begin
open c_sql;
loop
fetch c_sql into v_sqltext;
exit when c_sql%NOTFOUND;
v_clob:=v_clob||v_sqltext;
end loop;
close c_sql;
Return v_clob; End get_sqltext;
Procedure get_topsql
Is
l_clob clob;
l_exist Number :=0;
l_sqllen Number;
Cursor l_Cur Is
with
a as (
select PARSING_SCHEMA_ID,
plan_hash_value,
hash_value,
length(sql_text) sqllen,
sql_text,
sql_id,
sql_plan_baseline,
child_number,
cpu_time,
buffer_gets,
executions,
sum(executions) over(partition by PARSING_SCHEMA_ID, plan_hash_value) as executions_by_plan,
sum(cpu_time) over(partition by PARSING_SCHEMA_ID, plan_hash_value) as cputime_by_plan,
sum(buffer_gets) over(partition by PARSING_SCHEMA_ID, plan_hash_value) as buffergets_by_plan,
sum(executions) over() as total_exec,
sum(cpu_time) over() as total_cpu,
sum(buffer_gets) over() as total_gets from v$sql
Where plan_hash_value <> 0
And upper(sql_text) Not Like 'INSERT%INTO%VALUES%'
And upper(sql_fulltext) Not Like 'SELECT%NEXTVAL FROM DUAL%'
And PARSING_SCHEMA_ID not in
(select user_id from dba_users where username in ('GGMGR', 'FOGLIGHT', 'SYS',
'SYSTEM', 'OUTLN', 'DBSNMP',
'WMSYS', 'CTXSYS', 'XDB', 'MDSYS',
'ORDPLUGINS', 'ORDSYS', 'OLAPSYS', 'HR', 'OE',
'SCOTT', 'DIP', 'TSMSYS',
'EXFSYS', 'LBACSYS', 'TRACESVR',
'AURORA$JIS$UTILITY$',
'OSE$HTTP$ADMIN',
'VERITAS_I3_ORCL', 'QUEST',
'SPOTLIGHT', 'I3_ORCL',
'PERFSTAT', 'DBA_OWNER', 'OVSEE',
'DBMON', 'DBCONN', 'DBQUA',
'DEPLOYOP', 'DMLBAK', 'DBSTATS',
'APPMGR', 'TOADEXP', 'GGDEPLOY',
'DBACOMM', 'FGLPA', 'SQLTXPLAIN'))), exec_by_plan_result as (
select e.*,round(e.pr/e.total_exec,5) as cumulate_exec_percent ,round(e.re,5) as exec_percent from
(select PARSING_SCHEMA_ID, plan_hash_value, hash_value,sqllen,sql_text,sql_id, sql_plan_baseline,child_number,cpu_time,buffer_gets,executions,executions_by_plan,
sum(executions) over(order by executions_by_plan desc,executions desc) pr,
RATIO_TO_REPORT(executions) OVER() as re,
total_exec
from a
order by executions_by_plan desc,executions desc) e) ,
exec_all_result as (
select e.*,round(e.pr/e.total_exec,5) as cumulate_exec_percent ,round(e.re,5) as exec_percent from (
select PARSING_SCHEMA_ID, plan_hash_value, hash_value,sqllen,sql_text,sql_id, sql_plan_baseline,child_number,cpu_time,buffer_gets,executions,
sum(executions) over(order by executions desc) pr,
order by executions desc) e),
cputime_by_plan_result as (
select c.*,round(c.pr/c.total_cpu,5) as cumulate_exec_percent,round(c.re,5) as exec_percent from
(select PARSING_SCHEMA_ID, plan_hash_value, hash_value,sqllen,sql_text,sql_id, sql_plan_baseline,child_number,cpu_time,buffer_gets,executions,cputime_by_plan,
sum(cpu_time) over(order by cputime_by_plan desc,cpu_time desc) pr,
RATIO_TO_REPORT(cpu_time) OVER() as re,
total_cpu
order by cputime_by_plan desc,cpu_time desc) c),
cputime_all_result as (
select c.*,round(c.pr/c.total_cpu,5) as cumulate_exec_percent ,round(c.re,5) as exec_percent from (
sum(cpu_time) over(order by cpu_time desc) pr,
order by cpu_time desc) c),
buffergets_by_plan_result as (
select b.*,round(b.pr/b.total_gets,5) as cumulate_exec_percent,round(b.re,5) as exec_percent from
(select PARSING_SCHEMA_ID, plan_hash_value, hash_value,sqllen,sql_text,sql_id, sql_plan_baseline,child_number,cpu_time,buffer_gets,executions,buffergets_by_plan,
sum(BUFFER_GETS) over(order by buffergets_by_plan desc,buffer_gets desc) pr,
RATIO_TO_REPORT(BUFFER_GETS) OVER() as re,
total_gets
order by BUFFERGETS_by_plan desc,BUFFER_GETS desc) b),
buffergets_all_result as (
select b.*,round(b.pr/b.total_gets,5) as cumulate_exec_percent ,round(b.re,5) as exec_percent from (
sum(BUFFER_GETS) over(order by BUFFER_GETS desc) pr,
order by BUFFER_GETS desc) b)
Select Distinct sql_id, PARSING_SCHEMA_ID,hash_value,child_number,plan_hash_value,executions,cpu_per_exec,gets_per_exec,sqllen,sql_text,sql_plan_baseline from (
select PARSING_SCHEMA_ID, plan_hash_value, hash_value,sqllen,sql_text,sql_id, sql_plan_baseline,child_number,cpu_time,buffer_gets,executions
,round(decode(executions,'0','-1',cpu_time/executions),2) cpu_per_exec,
round( decode(executions,'0','-1',buffer_gets/executions),2) gets_per_exec
from exec_by_plan_result
where cumulate_exec_percent<=0.99 union all
from cputime_by_plan_result
where cumulate_exec_percent<=0.99 union all
select PARSING_SCHEMA_ID, plan_hash_value, hash_value,sqllen,sql_text,sql_id, sql_plan_baseline,child_number,cpu_time,buffer_gets,executions
from buffergets_by_plan_result
where cumulate_exec_percent<=0.99 from exec_all_result
where cumulate_exec_percent<=0.99 from cputime_all_result
where cumulate_exec_percent<=0.99 from buffergets_all_result
where cumulate_exec_percent<=0.99
) ;
l_Rec l_Cur%Rowtype;
Begin
Open l_Cur;
Loop
Fetch l_Cur Into l_Rec;
Exit When l_Cur%Notfound;
Select Count(1) Into l_exist From MY_TOP99_0215 Where parsing_schema_id = l_rec.parsing_schema_id And hash_value = l_rec.hash_value and plan_hash_value=l_rec.plan_hash_value;
--如果已經存在,則跳過
If (l_exist > 0 ) Then
Null;
Else
If (l_Rec.Sqllen >= 900) Then
l_clob := Get_Sqltext(l_Rec.Hash_Value);
else
l_clob :=l_Rec.Sql_Text;
end if;
Insert Into MY_TOP99_0215(sql_id,Hash_Value,Child_Number,plan_hash_value,parsing_schema_id, Executions,Cpu_Per_Exec,Gets_Per_Exec, Sqllen,Sql_fullText, sql_plan_baselines)
Values
(l_rec.sql_id,l_Rec.Hash_Value,l_Rec.Child_Number,l_rec.plan_hash_value,l_rec.parsing_schema_id,l_Rec.Executions, l_Rec.Cpu_Per_Exec,l_Rec.Gets_Per_Exec, l_rec.sqllen,l_clob, l_rec.sql_plan_baseline);
End If;
l_exist :=0; End Loop;
Close l_cur;
Commit;
End get_topsql;
DBA_OWNE
Declare
l_jno Number;
l_instid Number;
l_nextdate Date := to_date('2016-02-15 23:10:00','yyyy-mm-dd hh24:mi:ss');
l_what Varchar2(300) :='DBA_OWNER.admin_outline.get_topsql;';
l_interval Varchar2(300) := 'trunc(Sysdate,''MI'')+1/48';
Begin
For stid In (Select inst_id From gv$instance)
Loop
dbms_job.submit(job => l_jno,what =>l_what ,next_date =>l_nextdate,interval =>l_interval,instance => stid.inst_id);
Commit;
End Loop;
End;
For stid In (Select job,Instance From Dba_Jobs Where what = l_what)
dbms_job.remove(job => stid.job);
![oracle中的start with connect by用法[圖]](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=)