-- Code Depot -- Oracle Tuning Power Scripts -- With 100+ High Performance SQL Sc

ripts -- ISBN 0-9744486-7-2 -- *************************************************

***** -- ******************************************************
---------rem rem rem rem
CPU_TIME.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] ************************************************* CPU_TIME
.SQL Mike Ault heading 'Statistic' heading 'Value'
col name col value
ttitle 'CPU Related Statistics' spool cpu_stats select name,value from v$sysstat
where upper(name) like '%CPU%' ; spool off clear columns ttitle off
---------CPU.SQL ************************************************* Copyright 2005 by Ramp
ant TechPress This script is free for non-commercial purposes with no warranties
. Use at your own risk. To license this script for a commercial purpose, contact
[email protected] ************************************************* CPU.SQL Mike
Ault SQL by CPU Usage (v$sqlarea) sql_text format a40 word_wrapped heading 'SQL|
Text' cpu_time heading 'CPU|Time'
rem rem rem rem rem rem column column

column elapsed_time heading 'Elapsed|Time' column disk_reads heading 'Disk|Reads

' column buffer_gets heading 'Buffer|Gets' column rows_processed heading 'Rows|P
rocessed' set pages 55 lines 132 ttitle 'SQL By CPU Usage' spool cpu select * fr
om (select sql_text, cpu_time/1000000000 cpu_time, elapsed_time/1000000000 elaps
ed_time, disk_reads, buffer_gets, rows_processed from v$sqlarea order by cpu_tim
e desc, disk_reads desc ) where rownum < 21 / spool off set pages 22 lines 80 tt
itle off
---------ENQUEUES9i.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
rem rem ENQUEUES9i.SQL rem Mike Ault rem ttitle 'Enqueues Report' spool enqueues
prompt Enqueues col name format a25 col lock format a4 heading 'Lock' col gets
format 9,999,999 heading 'Gets' col waits format 9,999,999 heading 'Waits' col M
ode format a4 SELECT * FROM v$sysstat WHERE class=4 ; SELECT chr(bitand(p1,-1677
7216)/16777215)|| chr(bitand(p1, 16711680)/65535) "Lock", to_char( bitand(p1, 65
535) ) "Mode" FROM v$session_wait WHERE event = 'enqueue' /

Prompt Enqueue Stats select * from v$enqueue_stat where cum_wait_time>0 order by

cum_wait_time desc / spool off ttitle off
---------events.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] ************************************************* sid event
total_waits total_timeouts time_waited average_wait username HEADING HEADING HEA
DING HEADING HEADING HEADING HEADING Sid Event Total|Waits Total|Timeouts Time|W
aited Average|Wait User FORMAT a40
COLUMN COLUMN COLUMN COLUMN COLUMN COLUMN COLUMN
BREAK ON username ttitle "Session Events By User" SPOOL events SET LINES 132 PAG
ES 59 VERIFY OFF FEEDBACK OFF SELECT username, event, total_waits,total_timeouts
, time_waited,average_wait FROM sys.v_$session_event a, sys.v_$session b WHERE a
.sid= b.sid ORDER BY 1; SPOOL OFF PAUSE Press Enter to continue CLEAR COLUMNS CL
EAR BREAKS SET LINES 80 PAGES 22 VERIFY ON FEEDBACK ON TTITLE OFF
-SYS_EVENTS_PCT.sql -- ************************************************* -- Copy
right 2005 by Rampant TechPress

------rem rem rem rem rem rem rem rem col col col col col col col col col
This script is free for non-commercial purposes with no warranties. Use at your
own risk. To license this script for a commercial purpose, contact info@rampant.
cc ************************************************* SYS_EVENTS_PCT.SQL Mike Aul
t This report shows the major events in the database and their contribution to o
verall response time. event format a30 heading 'Event Name' waits format 999,999
,999 heading 'Total|Waits' average_wait format 999,999,999 heading 'Average|Wait
s' time_waited format 999,999,999 heading 'Time Waited' total_time new_value div
ide_by noprint value new_value val
noprint percent format 999.990 heading 'Percent
|Of|Non-Idle Waits' duration new_value millisec noprint p_of_total heading 'Perc
ent|of Total|Uptime' format 999.9999
set lines 132 feedback off verify off pages 50 select to_number(sysdate-startup_
time)*86400*1000 duration from v$instance ; select sum(time_waited) total_time f
rom v$system_event where total_waits-total_timeouts>0 and event not like 'SQL*Ne
t%' and event not like 'smon%' and event not like 'pmon%' and event not like 'rd
bms%' and event not like 'PX%' and event not like 'sbt%' and event not in ('gcs
remote message','ges remote message', 'virtual circuit status','dispatcher timer
') ; select value from v$sysstat where name ='CPU used when call started' ; ttit
le 'System Events Percent' break on report compute sum of time_waited on report
spool sys_events select name event, 0 waits, 0 average_wait, value time_waited,
value/(&&divide_by+&&val)*100 Percent, value/&&millisec*100 p_of_total from v$sy
sstat where name ='CPU used when call started'

union select event, total_waits-total_timeouts waits, time_waited/(total_waits-t

otal_timeouts) average_wait, time_waited, time_waited/(&&divide_by+&&val)*100 Pe
rcent, time_waited/&&millisec*100 P_of_total from v$system_event where total_wai
ts-total_timeouts > 0 and event not like 'SQL*Net%' and event not like 'smon%' a
nd event not like 'pmon%' and event not like 'rdbms%' and event not like 'PX%' a
nd event not like 'sbt%' and event not in ('gcs remote message','ges remote mess
age', 'virtual circuit status','dispatcher timer') and time_waited > 0 order by
percent desc ; spool off clear columns ttitle off clear computes clear breaks
---------SYS_EVENTS.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
rem rem SYS_EVENTS.SQL rem Mike Ault rem set pagesize 100 col event format a30 h
eading col waits format 999,999,999 heading col average_wait format 999,999,999
heading col time_waited format 999,999,999 heading ttitle 'System Events' break
on report compute sum of time_waited on report spool sys_events
'Event Name' 'Total|Waits' 'Average|Waits' 'Time Waited'
select event, total_waits-total_timeouts waits, time_waited/(total_waits-total_t
imeouts) average_wait, time_waited from v$system_event where total_waits-total_t
imeouts>0

event not like 'SQL*Net%' event not like 'smon%' event not like 'pmon%' event no
t like 'rdbms%' event not like '%control%' event not like 'LGWR%' and event not
like 'PX%' order by time_waited desc / spool off clear columns ttitle off
and and and and and and
--------rem rem rem rem
************************************************* Copyright 2005 by Rampant Tech
Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc ************************************************* SEE_4031.SQL Mike Aul
t kghlurcr kghlutrn kghlufsh kghluops kghlunfu kghlunfs heading heading heading
heading heading heading "RECURRENT|CHUNKS" "TRANSIENT|CHUNKS" "FLUSHED|CHUNKS" "
PINS AND|RELEASES" "ORA-4031|ERRORS" "LAST ERROR|SIZE"
column column column column column column
ttitle 'Report on 4031 events (SYS user only)' spool cpu_stats select kghlurcr,
kghlutrn, kghlufsh, kghluops, kghlunfu, kghlunfs from sys.x$kghlu where inst_id
= userenv('Instance') ; spool off clear columns ttitle off

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc *************************************************
rem rem Mike Ault rem rem snap_delta_sys_events_pct90.sql rem rem Function: Calc
ulates the delta values between statspacks for events rem then shows what they c
ontribute to the overall wait picture rem rem total response time=wait time+cpu
time (divide_by+val) rem ttitle off col event format a30 heading 'Event Name' co
l waits format 999,999,999 heading 'Total|Waits' col average_wait format 999,999
,999 heading 'Average|Waits' col time_waited format 999,999,999 heading 'Time Wa
ited' col percent format 999.990 heading 'Percent|Of|Non-Idle Waits' col p_of_to
tal format 999.9999 heading 'Percent|of Total|Uptime' rem rem col total_time new
_value divide_by noprint col value new_value val noprint col duration new_value
sec noprint rem set lines 132 feedback off verify off pages 50 rem rem Number of
seconds since startup (duration->sec) rem 86400 is number of seconds in a day,
total available time is elapsed*number of cpus rem select to_number(sysdate-a.st
artup_time)*86400*to_number(b.value) duration from v$instance a, v$parameter b w
here b.name='cpu_count'; rem rem Total seconds of waiting (total_time->divide_by
) rem in 9.0 this was in microseconds, so we divide by 1000000 to get to rem sec
onds rem select sum(b.time_waited_micro-a.time_waited_micro)/1000000 total_time
from stats$system_event a, stats$system_event b where (b.total_waits-b.total_tim
eouts)-(a.total_waits-a.total_timeouts)>0 and a.event not like 'SQL*Net%' and a.
event not like 'smon%' and a.event not like 'pmon%' and a.event not like 'rdbms%
' and a.event not like 'PX%' and a.event not like 'sbt%' and a.event not in ('gc
s remote message','ges remote message', 'virtual circuit status','dispatcher tim
er') and a.snap_id=&&first_snap_id

and b.snap_id=&&sec_snap_id and a.event=b.event ; rem rem CPU seconds between sn

ap 1 and snap 2 (value->val) rem as placed in table the view they are millisecon
ds rem divide by 1000 to correct to seconds rem select b.value-a.value/1000 valu
e from stats$sysstat a, stats$sysstat b where a.name ='CPU used when call starte
d' and b.name ='CPU used when call started' and a.snap_id=&&first_snap_id and b.
snap_id=&&sec_snap_id; rem ttitle 'Snap &&first_snap_id to &&sec_snap_id System
Events Percent' break on report compute sum of time_waited on report spool snap&
&first_snap_id'_to_'&&sec_snap_id'_sys_events' rem rem Now for the report, first
we get CPU contribution, then the waits rem select 'CPU used when call started'
event, 0 waits, 0 average_wait, &&val time_waited, (&&val/(&&divide_by+&&val))*
100 Percent, (&&val/1000/(&&sec))*100 p_of_total from dual union select a.event,
(b.total_waits-b.total_timeouts)-(a.total_waits-a.total_timeouts) waits, ((b.ti
me_waited_micro-a.time_waited_micro)/1000000)/((b.total_waits-b.tota l_timeouts)
-(a.total_waits-a.total_timeouts)) average_wait, (b.time_waited_micro-a.time_wai
ted_micro)/1000000 time_waited, ((b.time_waited_micro-a.time_waited_micro)/10000
00/(&&divide_by+&&val))*1 00 Percent, (((b.time_waited_micro-a.time_waited_micro
)/1000000)/&&sec)*100 P_of_tota l from stats$system_event a, stats$system_event
b where (b.total_waits-b.total_timeouts)-(a.total_waits-a.total_timeouts)>0 and
a.event not like 'SQL*Net%' and a.event not like 'smon%' and a.event not like 'p
mon%' and a.event not like 'rdbms%' and a.event not like 'PX%' and a.event not l
ike 'sbt%' and a.event not in ('gcs remote message','ges remote message', 'virtu
al circuit status','dispatcher timer') and b.time_waited_micro-a.time_waited_mic
ro>0 and a.snap_id=&&first_snap_id and b.snap_id=&&sec_snap_id and a.event=b.eve
nt order by percent desc / spool off clear columns ttitle off clear computes cle
ar breaks undef first_snap_id

undef sec_snap_id
---------wt_events_int_10g.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************

select event , waits "Waits" , time "Wait Time (s)" , pct*100 "Percent of Total"
, waitclass "Wait Class" from (select e.event_name event
, e.total_waits waits , (e.time_waited_micro - nvl(b.time_waited_micro,0))/100000 0 time , (e.ti
me_waited_micro - nvl(b.time_waited_micro,0))/ (select sum(e1.time_waited_micro
- nvl(b1.time_waited_mic ro,0)) from dba_hist_system_event b1 , dba_hist_system_
event e1 where b1.snap_id(+) = b.snap_id and e1.snap_id = e.snap_id
and b1.dbid
d e1.dbid = e.dbid and b1.instance_number(+) = b.instance_number and e1.instance
_number = e.instance_number and b1.event_id(+) = e1.event_id and e1.total_waits
> nvl(b1.total_waits,0) and e1.wait_class <> 'Idle' ) pct , e.wait_class waitcla
ss from dba_hist_system_event b , dba_hist_system_event e where b.snap_id(+) = &
pBgnSnap and e.snap_id = &pEndSnap and b.dbid(+) = &pDbId and e.dbid = &pDbId
and b
.instance_number(+) = &pInstNum
and e.instance_number = &pInstNum and b.event_id(+)
= e.event_id
and e.total_waits > nvl(b.total_waits,0) and e.wait_class <> 'Idle'
time desc, waits desc )
------enq_stat_int_10g.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk.

-- To license this script for a commercial purpose, -- contact [email protected] - ************************************************* select ety Enqueue , reqs "R
equests", sreq "Successful Gets", freq "Failed Gets", waits "Waits", wttm "Wait
Time (s)", awttm "Average Wait Time(ms)" from ( select /*+ ordered */ e.eq_type
|| '-' || to_char(nvl(l.name,' ')) || decode( upper(e.req_reason) , 'CONTENTION'
, null , '-', null , ' ('||e.req_reason||')') ety , e.total_req# - nvl(b.total_r
eq#,0) reqs , e.succ_req# - nvl(b.succ_req#,0) sreq , e.failed_req# - nvl(b.fail
ed_req#,0) freq , e.total_wait# - nvl(b.total_wait#,0) waits , (e.cum_wait_time
- nvl(b.cum_wait_time,0))/1000 wttm , decode( (e.total_wait# - nvl(b.total_wait#
,0)) , 0, to_number(NULL) , ( (e.cum_wait_time - nvl(b.cum_wait_time,0)) / (e.to
tal_wait# - nvl(b.total_wait#,0)) ) ) awttm from dba_hist_enqueue_stat e , dba_h
ist_enqueue_stat b , v$lock_type l where b.snap_id(+) = &pBgnSnap and e.snap_id
= &pEndSnap and b.dbid(+) = &pDbId and e.dbid = &pDbId and b.dbid(+) = e.dbid an
d b.instance_number(+) = &pInstNum and e.instance_number = &pInstNum and b.insta
nce_number(+) = e.instance_number and b.eq_type(+) = e.eq_type and b.req_reason(
+) = e.req_reason and e.total_wait# - nvl(b.total_wait#,0) > 0 and l.type(+) = e
.eq_type order by wttm desc, waits desc)
---------sys_time_model_int_10g.sql ************************************************* Cop
yright 2005 by Rampant TechPress This script is free for non-commercial purposes
with no warranties. Use at your own risk. To license this script for a commerci
al purpose, contact [email protected] ********************************************
*****
column "Statistic Name" format A40

column "Time (s)" format 999,999 column "Percent of Total DB Time" format 999,99
9 select e.stat_name "Statistic Name" , (e.value - b.value)/1000000 "Time (s)" ,
decode( e.stat_name,'DB time' , to_number(null) , 100*(e.value - b.value) )/ (
select nvl((e1.value - b1.value),-1) from dba_hist_sys_time_model e1 , dba_hist_
sys_time_model b1 where b1.snap_id = b.snap_id and e1.snap_id = e.snap_id and b1
.dbid
= b.dbid and e1.dbid = e.dbid and b1.instance_number = b.instance_number a
e_number = e.instance_number and b1.stat_name = 'DB time' and b1.stat_id = e1.sta
t_id ) "Percent of Total DB Time" from dba_hist_sys_time_model e , dba_hist_sys_
time_model b where and and and and and and and order b.snap_id e.snap_id b.dbid e.
dbid b.instance_number e.instance_number b.stat_id e.value - b.value > 0 by 2 de
sc; = = = = = = = &pBgnSnap &pEndSnap &pDbId &pDbId &pInst_Num &pInst_Num e.stat
_id
---------ash_enqueues.sql ************************************************* Copyright 200
5 by Rampant TechPress This script is free for non-commercial purposes with no w
arranties. Use at your own risk. To license this script for a commercial purpose
, contact [email protected] ************************************************* begi
n_interval_time req_reason cum_wait_time total_req# total_wait# failed_req# form
at a10 format a25 head CUM|WAIT|TIME head TOTAL|REQ# head TOTAL|WAIT# head FAILE
D|REQ#
column column column column column column
select begin_interval_time, eq_type, req_reason, total_req#,

total_wait#, succ_req#, failed_req#, cum_wait_time from dba_hist_enqueue_stat nat

ural join dba_hist_snapshot where cum_wait_time > 0 order by begin_interval_time
, cum_wait_time;
---------globiostats.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select name, value from sys.v_$sysstat where name in ('consistent changes', 'con
sistent gets', 'db block changes', 'db block gets', 'physical reads', 'physical
writes', 'sorts (disk)', 'user commits', 'user rollbacks' ) order by 1;
---------buffratio.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************
select 100 -

100 * (round ((sum (decode (name, 'physical reads', value, 0)) sum (decode (name
, 'physical reads direct', value, 0)) sum (decode (name, 'physical reads direct
(lob)', value, 0))) / (sum (decode (name, 'session logical reads', value, 1)) ),
3)) hit_ratio from sys.v_$sysstat where name in ('session logical reads', 'physica
l reads direct (lob)', 'physical reads', 'physical reads direct');
---------syswaits.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] *************************************************
select event, total_waits, round(100 * (total_waits / sum_waits),2) pct_waits, t
ime_wait_sec, round(100 * (time_wait_sec / greatest(sum_time_waited,1)),2) pct_t
ime_waited, total_timeouts, round(100 * (total_timeouts / greatest(sum_timeouts,
1)),2) pct_timeouts, average_wait_sec from (select event, total_waits, round((ti
me_waited / 100),2) time_wait_sec, total_timeouts, round((average_wait / 100),2)
average_wait_sec from sys.v_$system_event where event not in ('lock element cle
anup', 'pmon timer', 'rdbms ipc message', 'rdbms ipc reply', 'smon timer',

'SQL*Net message from client', 'SQL*Net break/reset to client', 'SQL*Net message to

client', 'SQL*Net more data from client', 'dispatcher timer', 'Null event', 'parall
el query dequeue wait', 'parallel query idle wait - Slaves', 'pipe get', 'PL/SQL lo
ck timer', 'slave wait', 'virtual circuit status', 'WMON goes to sleep') and event n
ot like 'DFS%' and event not like 'KXFX%'), (select sum(total_waits) sum_waits, s
um(total_timeouts) sum_timeouts, sum(round((time_waited / 100),2)) sum_time_wait
ed from sys.v_$system_event where event not in ('lock element cleanup', 'pmon timer'
, 'rdbms ipc message', 'rdbms ipc reply', 'smon timer', 'SQL*Net message from client
', 'SQL*Net break/reset to client', 'SQL*Net message to client', 'SQL*Net more data
from client', 'dispatcher timer', 'Null event', 'parallel query dequeue wait', 'par
allel query idle wait - Slaves', 'pipe get', 'PL/SQL lock timer', 'slave wait', 'vir
tual circuit status', 'WMON goes to sleep') and event not like 'DFS%' and event not
like 'KXFX%') order by 2 desc, 1 asc;
---------rem
fileio.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] *************************************************

rem NAME: fileio.sql rem rem FUNCTION: Reports on the file io status of all of t
he rem datafiles in the database. rem rem Mike Ault rem column sum_io1 new_value
st1 noprint column sum_io2 new_value st2 noprint column sum_io new_value divide
_by noprint column Percent format 999.999 heading 'Percent|Of IO' column brratio
format 999.99 heading 'Block|Read|Ratio' column bwratio format 999.99 heading '
Block|Write|Ratio' column phyrds heading 'Physical | Reads' column phywrts headi
ng 'Physical | Writes' column phyblkrd heading 'Physical|Block|Reads' column phy
blkwrt heading 'Physical|Block|Writes' column name format a30 heading 'File|Name
' column file# format 9999 heading 'File' column dt new_value today noprint TTIT
LE 'FILE I/O Status' select to_char(sysdate,'ddmonyyyyhh24miss') dt from dual; s
et feedback off verify off lines 132 pages 60 sqlbl on trims on rem select nvl(s
um(a.phyrds+a.phywrts),0) sum_io1 from sys.v_$filestat a; select nvl(sum(b.phyrd
s+b.phywrts),0) sum_io2 from sys.v_$tempstat b; select &st1+&st2 sum_io from dua
l; rem title 'File IO Statistics Report' spool fileio&&today select a.file#,b.na
me, a.phyrds, a.phywrts, (100*(a.phyrds+a.phywrts)/&divide_by) Percent, a.phyblk
rd, a.phyblkwrt, (a.phyblkrd/greatest(a.phyrds,1)) brratio, (a.phyblkwrt/greates
t(a.phywrts,1)) bwratio from sys.v_$filestat a, sys.v_$dbfile b where a.file#=b.
file# union select c.file#,d.name, c.phyrds, c.phywrts, (100*(c.phyrds+c.phywrts
)/&divide_by) Percent, c.phyblkrd, c.phyblkwrt,(c.phyblkrd/greatest(c.phyrds,1))
brratio, (c.phyblkwrt/greatest(c.phywrts,1)) bwratio from sys.v_$tempstat c, sy
s.v_$tempfile d where c.file#=d.file# order by 1 / spool off set feedback on ver
ify on lines 80 pages 22

clear columns ttitle off ---------io_sec.sql ***********************************

************** Copyright 2005 by Rampant TechPress This script is free for non-c
ommercial purposes with no warranties. Use at your own risk. To license this scr
ipt for a commercial purpose, contact [email protected] **************************
***********************
rem rem NAME: io_sec.sql rem rem FUNCTION: PL/SQL to calculate IO/sec data rem M
ike Ault rem set serveroutput on declare cursor get_io is select nvl(sum(a.phyrd
s+a.phywrts),0) sum_io1,to_number(null) sum_io2 from sys.gv_$filestat a union se
lect to_number(null) sum_io1, nvl(sum(b.phyrds+b.phywrts),0) sum_io2 from sys.gv
_$tempstat b; now date; elapsed_seconds number; sum_io1 number; sum_io2 number;
sum_io12 number; sum_io22 number; tot_io number; tot_io_per_sec number; fixed_io
_per_sec number; temp_io_per_sec number; begin open get_io; for i in 1..2 loop f
etch get_io into sum_io1, sum_io2; if i = 1 then sum_io12:=sum_io1; else sum_io2
2:=sum_io2; end if; end loop; select sum_io12+sum_io22 into tot_io from dual; se
lect sysdate into now from dual; select ceil((now-max(startup_time))*(60*60*24))
into elapsed_seconds from gv$ins tance; fixed_io_per_sec:=sum_io12/elapsed_seco
nds; temp_io_per_sec:=sum_io22/elapsed_seconds; tot_io_per_sec:=tot_io/elapsed_s
econds; dbms_output.put_line('Elapsed Sec :'||to_char(elapsed_seconds, '9,999,99
9.99')); dbms_output.put_line('Fixed IO/SEC:'||to_char(fixed_io_per_sec,'9,999,9
99.99')); dbms_output.put_line('Temp IO/SEC :'||to_char(temp_io_per_sec, '9,999,
999.99'));

dbms_output.put_line('Total IO/SEC:'||to_char(tot_io_Per_Sec, '9,999,999.99'));

end; /
---------IO_TIMING.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************
rem IO_TIMING.SQL rem rem Purpose: Calculate IO timing values for datafiles rem
rem MIKE AULT rem col name format a30 set lines 132 pages 45 ttitle 'IO Timing A
nalysis' spool io_time select f.FILE# ,d.name,PHYRDS,PHYWRTS,READTIM/PHYRDS,WRIT
ETIM/PHYWRTS from v$filestat f, v$datafile d where f.file#=d.file# order by read
tim/phyrds desc / spool off ttitle off clear col
---------Snapfileio.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
rem rem NAME: snapfileio.sql rem rem FUNCTION: Reports on the file io status of
all of the rem datafiles in the database. rem Mike Ault rem column sum_io1 new_v
alue st1 noprint column sum_io2 new_value st2 noprint column sum_io new_value di
vide_by noprint column Percent format 999.999 heading 'Percent|Of IO' column brr
atio format 999.99 heading 'Block|Read|Ratio' column bwratio format 999.99 headi
ng 'Block|Write|Ratio'

column phyrds heading 'Physical | Reads' column phywrts heading 'Physical | Writ
es' column phyblkrd heading 'Physical|Block|Reads' column phyblkwrt heading 'Phy
sical|Block|Writes' column filename format a45 heading 'File|Name' column file#
format 9999 heading 'File' set feedback off verify off lines 132 pages 60 sqlbl
on trims on rem select nvl(sum(a.phyrds+a.phywrts),0) sum_io1 from stats$filesta
txs a where snap_id=&&snap; select nvl(sum(b.phyrds+b.phywrts),0) sum_io2 from s
tats$tempstatxs b where snap_id=&&snap; select &st1+&st2 sum_io from dual; rem t
title132 'Snap&&snap File IO Statistics Report' spool fileio&&snap select a.file
name, a.phyrds, a.phywrts, (100*(a.phyrds+a.phywrts)/&divide_by) Percent, a.phyb
lkrd, a.phyblkwrt, (a.phyblkrd/greatest(a.phyrds,1)) brratio, (a.phyblkwrt/great
est(a.phywrts,1)) bwratio from stats$filestatxs a where a.snap_id=&&snap union s
elect c.filename, c.phyrds, c.phywrts, (100*(c.phyrds+c.phywrts)/&divide_by) Per
cent, c.phyblkrd, c.phyblkwrt,(c.phyblkrd/greatest(c.phyrds,1)) brratio, (c.phyb
lkwrt/greatest(c.phywrts,1)) bwratio from stats$tempstatxs c where c.snap_id=&&s
nap order by 1 / spool off pause Press enter to continue set feedback on verify
on lines 80 pages 22 clear columns ttitle off undef snap
---------physpctio.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************

select sid, username, round(100 * total_user_io/total_io,2) tot_io_pct from (sel

ect b.sid sid, nvl(b.username,p.name) username, sum(value) total_user_io from sys
.v_$statname c, sys.v_$sesstat a, sys.v_$session b, sys.v_$bgprocess p where a.st
atistic#=c.statistic# and p.paddr (+) = b.paddr and b.sid=a.sid and c.name in ('
physical reads', 'physical writes', 'physical writes direct', 'physical reads di
rect', 'physical writes direct (lob)', 'physical reads direct (lob)') group by b
.sid, nvl(b.username,p.name)), (select sum(value) total_io from sys.v_$statname c
, sys.v_$sesstat a where a.statistic#=c.statistic# and c.name in ('physical reads
', 'physical writes', 'physical writes direct', 'physical reads direct', 'physic
al writes direct (lob)', 'physical reads direct (lob)')) order by 3 desc; --------totpctio.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* SID,
USERNAME, ROUND(100 * TOTAL_USER_IO/TOTAL_IO,2) TOT_IO_PCT FROM
SELECT

(SELECT b.SID SID, nvl(b.USERNAME,p.NAME) USERNAME, SUM(VALUE) TOTAL_USER_IO FRO

M sys.V_$STATNAME c, sys.V_$SESSTAT a, sys.V_$SESSION b, sys.v_$bgprocess p WHER
E a.STATISTIC#=c.STATISTIC# and p.paddr (+) = b.paddr and b.SID=a.SID and c.NAME
in ('physical reads','physical writes',
'consistent changes','consistent gets', 'd
b block gets','db block changes', 'physical writes direct', 'physical reads dire
ct', 'physical writes direct (lob)', 'physical reads direct (lob)') GROUP BY b.S
ID, nvl(b.USERNAME,p.name)), (select sum(value) TOTAL_IO from sys.V_$STATNAME c,
sys.V_$SESSTAT a WHERE a.STATISTIC#=c.STATISTIC# and c.NAME in ('physical reads
','physical writes', 'consistent changes', 'consistent gets','db block gets', 'd
b block changes', 'physical writes direct', 'physical reads direct',
'physical writes
direct (lob)', 'physical reads direct (lob)')) ORDER BY 3 DESC;
---------topiousers.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select b.sid sid, decode (b.username,null,e.name,b.username) user_name, d.spid o
s_id, b.machine machine_name,

to_char(logon_time,'mm/dd/yy hh:mi:ss pm') logon_time, (sum(decode(c.name,'physi

cal reads',value,0)) + sum(decode(c.name,'physical writes',value,0)) + sum(decod
e(c.name, 'physical writes direct',value,0)) + sum(decode(c.name, 'physical writ
es direct (lob)',value,0)) + sum(decode(c.name, 'physical reads direct (lob)',va
lue,0)) + sum(decode(c.name, 'physical reads direct',value,0))) total_physical_i
o, (sum(decode(c.name,'db block gets',value,0)) + sum(decode(c.name, 'db block c
hanges',value,0)) + sum(decode(c.name,'consistent changes',value,0)) + sum(decod
e(c.name,'consistent gets',value,0)) ) total_logical_io, 100 *(round ((sum (deco
de 100 (c.name, 'physical reads', value, 0)) sum (decode (c.name, 'physical read
s direct', value, 0))) / (sum (decode (c.name, 'db block gets', value, 1)) + sum
(decode (c.name, 'consistent gets', value, 0))),3)) hit_ratio, sum(decode(c.nam
e,'sorts (disk)',value,0)) disk_sorts, sum(decode(c.name,'sorts (memory)',value,
0)) memory_sorts, sum(decode(c.name,'sorts (rows)',value,0)) rows_sorted, sum(de
code(c.name,'user commits',value,0)) commits, sum(decode(c.name,'user rollbacks'
,value,0)) rollbacks, sum(decode(c.name,'execute count',value,0)) executions, su
m(decode(c.name,'physical reads',value,0)) physical_reads, sum(decode(c.name,'db
block gets',value,0)) db_block_gets, sum(decode(c.name,'consistent gets',value,
0)) consistent_gets, sum(decode(c.name,'consistent changes',value,0)) consistent
_changes from sys.v_$sesstat a, sys.v_$session b, sys.v_$statname c, sys.v_$proce
ss d, sys.v_$bgprocess e where a.statistic#=c.statistic# and b.sid=a.sid

and d.addr = b.paddr and e.paddr (+) = b.paddr and c.name in ('physical reads',
'physical writes', 'physical writes direct', 'physical reads direct', 'physical
writes direct (lob)', 'physical reads direct (lob)', 'db block gets', 'db block
changes', 'consistent changes', 'consistent gets', 'sorts (disk)', 'sorts (memor
y)', 'sorts (rows)', 'user commits', 'user rollbacks', 'execute count' ) group b
y b.sid, d.spid, decode (b.username,null,e.name,b.username), b.machine, to_char(
logon_time,'mm/dd/yy hh:mi:ss pm') order by 6 desc;
---------DBWR_STAT.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************
rem rem dbwr_stat.sql rem Mike Ault rem col name format a46 heading 'DBWR Statis
tic' col stat format 9,999,999,999,999 heading 'Statistic Value' set pages 40 tt
itle 'DBWR Statistic Report' spool dbwr_stat select a.name,a.stat from (select n
ame, value stat from v$sysstat where name not like '%redo%' and name not like '%
remote%') a where (a.name like 'DBWR%' or a.name like '%buffer%' or a.name like
'%write%' or name like '%summed%') union select class name, count "value" from v
$waitstat where class='data block'

union select name||' '||to_char(block_size/1024)||' hit ratio' name, round(((1 (physical_reads / (db_block_gets + consistent_gets))) * 100),3) s tat from V$bu
ffer_pool_statistics union select name||' '||to_char(block_size/1024)||' free bu
ffer wait' name,free_buffer _wait stat from V$buffer_pool_statistics union selec
t name||' '||to_char(block_size/1024)||' buffer busy wait' name,buffer_busy _wai
t stat from V$buffer_pool_statistics union select name||' '||to_char(block_size/
1024)||' write complete wait' name,write_co mplete_wait stat from V$buffer_pool_
statistics / spool off set pages 22 ttitle off
---------10g_filehist.sql ************************************************* Copyright 200
5 by Rampant TechPress This script is free for non-commercial purposes with no w
arranties. Use at your own risk. To license this script for a commercial purpose
, contact [email protected] ************************************************* begi
n_time, end_time, a.file_id, file_name, average_read_time, average_write_time, p
hysical_reads, physical_writes, physical_block_reads, physical_block_writes
select
from sys.v_$filemetric_history a, sys.dba_data_files b where a.file_id = b.file_
id order by 1,3
-10g_filehistogram.sql -- ************************************************* -- C
opyright 2005 by Rampant TechPress -- This script is free for non-commercial pur
poses

-----with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
**** b.file_id, file_name, singleblkrdtim_milli, singleblkrds
select
from sys. v_$file_histogram a, sys.dba_data_files b where a.file# = b.file_id or
der by 1
---------seg_top_logreads_10g.sql ************************************************* Copyr
ight 2005 by Rampant TechPress This script is free for non-commercial purposes w
ith no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] **********************************************
***
select object_name "Object Name" , tablespace_name "Tablespace Name" , object_ty
pe "Object Type" , logical_reads_total "Logical Reads" , ratio "%Total" from( se
lect n.owner||'.'||n.object_name||decode(n.subobject_name,null,null,'.'||n.sub o
bject_name) object_name , n.tablespace_name , case when length(n.subobject_name)
< 11 then n.subobject_name else substr(n.subobject_name,length(n.subobject_name
)-9) end subobject_name , n.object_type , r.logical_reads_total , round(r.ratio
* 100, 2) ratio from dba_hist_seg_stat_obj n , (select * from (select e.dataobj#
, e.obj# , e.dbid , e.logical_reads_total - nvl(b.logical_reads_total, 0) log i
cal_reads_total , ratio_to_report(e.logical_reads_total - nvl(b.logical_rea ds_t
otal, 0)) over () ratio
from dba_hist_seg_stat e

, dba_hist_seg_stat b where b.snap_id = 2694 and e.snap_id = 2707 and b.dbid = 37

933856 and e.dbid = 37933856 and b.instance_number = 1 and e.instance_number = 1
and e.obj#
= b.obj# and e.dataobj# = b.dataobj# and e.logical_reads_total - nvl(b.
logical_reads_total, 0) > 0 order by logical_reads_total desc) d where rownum <=
100) r where n.dataobj# = r.dataobj# and n.obj# = r.obj# and n.dbid = r.dbid ) o
rder by logical_reads_total desc
---------db_tbsp_io_10g.sql ************************************************* Copyright 2
005 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpo
se, contact [email protected] ************************************************* tb
sp Tablespace ios "I/O Activity" e.tsname tbsp sum (e.phyrds - nvl(b.phyrds,0))
+ sum (e.phywrts - nvl(b.phywrts,0)) ios dba_hist_filestatxs e dba_hist_filestat
xs b b.snap_id(+) = &pBgnSnap e.snap_id = &pEndSnap b.dbid(+) = &pDbId e.dbid =
&pDbId b.dbid(+) = e.dbid b.instance_number(+) = &pInstNum e.instance_number = &
pInstNum b.instance_number(+) = e.instance_number b.file# = e.file# ( (e.phyrds nvl(b.phyrds,0) ) + (e.phywrts - nvl(b.phywrts,0)) ) > 0 by e.tsname
select , From ( select , from , where and and and and and and and and and
group union select e.tsname tbsp , sum (e.phyrds - nvl(b.phyrds,0)) + sum (e.phyw
rts - nvl(b.phywrts,0)) ios from dba_hist_tempstatxs e , dba_hist_tempstatxs b wh
ere b.snap_id(+) = &pBgnSnap

e.snap_id = &pEndSnap b.dbid(+) = &pDbId e.dbid = &pDbId b.dbid(+) = e.dbid b.in

stance_number(+) = &pInstNum e.instance_number = &pInstNum b.instance_number(+)
= e.instance_number b.file# = e.file# ( (e.phyrds - nvl(b.phyrds,0) ) + (e.phywr
ts - nvl(b.phywrts,0) ) ) > 0 group by e.tsname )
and and and and and and and and and
---------wait_time_detail_10g.sql ************************************************* Copyr
ight 2005 by Rampant TechPress This script is free for non-commercial purposes w
ith no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] **********************************************
***
prompt prompt This will compare values from dba_hist_waitstat with prompt detail
information from dba_hist_active_sess_history. prompt set pages 999 set lines 8
0 break on snap_time skip 2 col col col col col col snap_time file_name object_t
ype object_name wait_count time heading heading heading heading heading heading
'Snap|Time' 'File|Name' 'Object|Type' 'Object|Name' 'Wait|Count' 'Time' format f
ormat format format format format a20 a40 a10 a20 999,999 999,999
select to_char(begin_interval_time,'yyyy-mm-dd hh24:mi') snap_time, -- file_name
, object_type, object_name, wait_count, time from dba_hist_waitstat wait, dba_hi
st_snapshot snap, dba_hist_active_sess_history ash, dba_data_files df, dba_objec
ts obj where wait.snap_id = snap.snap_id and wait.snap_id = ash.snap_id

and df.file_id = ash.current_file# and obj.object_id = ash.current_obj# and wait

_count > 50 order by to_char(begin_interval_time,'yyyy-mm-dd hh24:mi'), file_nam
e ;
---------phys_disk_reads_10g.sql ************************************************* Copyri
ght 2005 by Rampant TechPress This script is free for non-commercial purposes wi
th no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] ***********************************************
**
break on begin_interval_time skip 2 column phyrds format 999,999,999 column begi
n_interval_time format a25 select begin_interval_time, filename, phyrds from dba
_hist_filestatxs natural join dba_hist_snapshot ;
---------rpt_10g_sysstat.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] *************************************************
prompt prompt This will query the dba_hist_sysstat view to display all values pr
ompt that exceed the value specified in prompt the "where" clause of the query.
prompt set pages 999

break on snap_time skip 2 accept stat_name char prompt 'Enter Statistic Name: ';
accept stat_value number prompt 'Enter Statistics Threshold value: '; col snap_
time col value format a19 format 999,999,999
select to_char(begin_interval_time,'yyyy-mm-dd hh24:mi') snap_time, value from d
ba_hist_sysstat natural join dba_hist_snapshot where stat_name = '&stat_name' an
d value > &stat_value order by to_char(begin_interval_time,'yyyy-mm-dd hh24:mi')
;
---------hot_write_files_10g.sql ************************************************* Copyri
ght 2005 by Rampant TechPress This script is free for non-commercial purposes wi
th no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] ***********************************************
**
prompt prompt This will identify any single file who's write I/O prompt is more
than 25% of the total write I/O of the database. prompt set pages 999 break on s
nap_time skip 2 col filename col phywrts col snap_time format a40 format 999,999
,999 format a20
select to_char(begin_interval_time,'yyyy-mm-dd hh24:mi') snap_time, filename, ph
ywrts from dba_hist_filestatxs natural join dba_hist_snapshot where phywrts > 0

and phywrts * 4 > ( select avg(value) all_phys_writes from dba_hist_sysstat natu

ral join dba_hist_snapshot where stat_name = 'physical writes' and value > 0 ) o
rder by to_char(begin_interval_time,'yyyy-mm-dd hh24:mi'), phywrts desc ;
---------rpt_sysstat_hr_10g.sql ************************************************* Copyrig
ht 2005 by Rampant TechPress This script is free for non-commercial purposes wit
h no warranties. Use at your own risk. To license this script for a commercial p
urpose, contact [email protected] ************************************************
*
prompt prompt prompt This will query the dba_hist_sysstat view to prompt display
average values by hour of the day prompt set pages 999 break on snap_time skip
2 accept stat_name char prompt 'Enter Statistics Name: '; col snap_time col avg_
value format a19 format 999,999,999
select to_char(begin_interval_time,'hh24') snap_time, avg(value) avg_value from
dba_hist_sysstat natural join dba_hist_snapshot where stat_name = '&stat_name' g
roup by to_char(begin_interval_time,'hh24') order by

to_char(begin_interval_time,'hh24') ;
---------rpt_sysstat_dy_10g.sql ************************************************* Copyrig
ht 2005 by Rampant TechPress This script is free for non-commercial purposes wit
h no warranties. Use at your own risk. To license this script for a commercial p
urpose, contact [email protected] ************************************************
*
prompt prompt This will query the dba_hist_sysstat view to display prompt averag
e values by day-of-the-week prompt set pages 999 accept stat_name char prompt 'E
nter Statistic Name: '; col snap_time col avg_value format a19 format 999,999,99
9
select to_char(begin_interval_time,'day') snap_time, avg(value) avg_value from d
ba_hist_sysstat natural join dba_hist_snapshot where stat_name = '&stat_name' gr
oup by to_char(begin_interval_time,'day') order by decode( to_char(begin_interva
l_time,'day'), 'sunday',1, 'monday',2, 'tuesday',3, 'wednesday',4, 'thursday',5,
'friday',6, 'saturday',7 ) ;
-reads_10g.sql -- ************************************************* -- Copyright
2005 by Rampant TechPress -- This script is free for non-commercial purposes

-----with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
****
break on begin_interval_time skip 2 column phyrds format 999,999,999 column begi
n_interval_time format a25 select begin_interval_time, filename, phyrds from dba
_hist_filestatxs natural join dba_hist_snapshot;
-snapfileio_10g.sql -- ************************************************* -- Copy
right 2005 by Rampant TechPress -- This script is free for non-commercial purpos
es -- with no warranties. Use at your own risk. --- To license this script for a
commercial purpose, -- contact [email protected] -- *****************************
******************** rem rem NAME: snapfileio.sql rem FUNCTION: Reports on the f
ile io status of all of the rem FUNCTION: datafiles in the database for a single
snapshot. column column column column column column column column column column
column column sum_io1 new_value st1 noprint sum_io2 new_value st2 noprint sum_i
o new_value divide_by noprint Percent format 999.999 heading 'Percent|Of IO' brr
atio format 999.99 heading 'Block|Read|Ratio' bwratio format 999.99 heading 'Blo
ck|Write|Ratio' phyrds heading 'Physical | Reads' phywrts heading 'Physical | Wr
ites' phyblkrd heading 'Physical|Block|Reads' phyblkwrt heading 'Physical|Block|
Writes' filename format a45 heading 'File|Name' file# format 9999 heading 'File'
set feedback off verify off lines 132 pages 60 sqlbl on trims on select nvl(sum(
a.phyrds+a.phywrts),0) sum_io1 from dba_hist_filestatxs a where snap_id=&&snap;

select nvl(sum(b.phyrds+b.phywrts),0) sum_io2 from dba_hist_tempstatxs b where s

nap_id=&&snap; select &st1+&st2 sum_io from dual; rem @title132 'Snap&&snap File
I/O Statistics Report' spool rep_out\&db\fileio&&snap select a.filename, a.phyr
ds, a.phywrts, (100*(a.phyrds+a.phywrts)/&divide_by) Percent, a.phyblkrd, a.phyb
lkwrt, (a.phyblkrd/greatest(a.phyrds,1)) brratio, (a.phyblkwrt/greatest(a.phywrt
s,1)) bwratio from dba_hist_filestatxs a where a.snap_id=&&snap union select c.f
ilename, c.phyrds, c.phywrts, (100*(c.phyrds+c.phywrts)/&divide_by) Percent, c.p
hyblkrd, c.phyblkwrt,(c.phyblkrd/greatest(c.phyrds,1)) brratio, (c.phyblkwrt/gre
atest(c.phywrts,1)) bwratio from dba_hist_tempstatxs c where c.snap_id=&&snap or
der by 1 / spool off pause Press enter to continue set feedback on verify on lin
es 80 pages 22 clear columns ttitle off undef snap
-snapdeltafileio_awr.sql -- ************************************************* -Copyright 2005 by Rampant TechPress -- This script is free for non-commercial p
urposes -- with no warranties. Use at your own risk. --- To license this script
for a commercial purpose, -- contact [email protected] -- ************************
************************* rem rem NAME: snapdeltafileio_awr.sql rem rem FUNCTION
: Reports on the file io status of all of rem FUNCTION: the datafiles in the dat
abase across rem FUNCTION: two snapshots. rem HISTORY:

rem WHO rem Mike Ault rem

WHAT Created
WHEN 11/19/03
column sum_io1 new_value st1 noprint column sum_io2 new_value st2 noprint column
sum_io new_value divide_by noprint column Percent format 999.999 heading 'Perce
nt|Of IO' column brratio format 999.99 heading 'Block|Read|Ratio' column bwratio
format 999.99 heading 'Block|Write|Ratio' column phyrds heading 'Physical | Rea
ds' column phywrts heading 'Physical | Writes' column phyblkrd heading 'Physical
|Block|Reads' column phyblkwrt heading 'Physical|Block|Writes' column filename f
ormat a45 heading 'File|Name' column file# format 9999 heading 'File' set feedba
ck off verify off lines 132 pages 60 sqlbl on trims on select nvl(sum((b.phyrdsa.phyrds)+(b.phywrts-a.phywrts)),0) sum_io1 from dba_hist_filestatxs a, dba_hist
_filestatxs b where a.snap_id=&&first_snap_id and b.snap_id=&&sec_snap_id and a.
filename=b.filename; select nvl(sum((b.phyrds-a.phyrds)+(b.phywrts-a.phywrts)),0
) sum_io2 from dba_hist_tempstatxs a, dba_hist_tempstatxs b where a.snap_id=&&fi
rst_snap_id and b.snap_id=&&sec_snap_id and a.filename=b.filename; select &st1+&
st2 sum_io from dual; rem @title132 'Snap &&first_snap_id to &&sec_snap_id File
I/O Statistics Report' spool rep_out\&db\fileio'&&first_snap_id'_to_'&&sec_snap_
id' select a.filename, b.phyrds -a.phyrds phyrds, b.phywrts-a.phywrts phywrts, (
100*((b.phyrds-a.phyrds)+(b.phywrts-a.phywrts))/&divide_by) Percent, b.phyblkrda.phyblkrd phyblkrd, b.phyblkwrt-a.phyblkwrt phyblgwrt, ((b.phyblkrd-a.phyblkrd
)/greatest((b.phyrds-a.phyrds),1)) brratio, ((b.phyblkwrt-a.phyblkwrt)/greatest(
(b.phywrts-a.phywrts),1)) bwratio from dba_hist_filestatxs a, dba_hist_filestatx
s b where a.snap_id=&&first_snap_id and b.snap_id=&&sec_snap_id and a.filename=b
.filename union select c.filename, d.phyrds-c.phyrds phyrds, d.phywrts-c.phywrts
phywrts, (100*((d.phyrds-c.phyrds)+(d.phywrts-c.phywrts))/&divide_by) Percent,
d.phyblkrd-c.phyblkrd phyblkrd, d.phyblkwrt-c.phyblkwrt phyblgwrt, ((d.phyblkrdc.phyblkrd)/greatest((d.phyrds-c.phyrds),1)) brratio, ((d.phyblkwrt-c.phyblkwrt)
/greatest((d.phywrts-c.phywrts),1)) bwratio from dba_hist_tempstatxs c, dba_hist
_tempstatxs d

where c.snap_id=&&first_snap_id and d.snap_id=&&sec_snap_id and c.filename=d.fil

ename order by 1 / spool off pause Press enter to continue set feedback on verif
y on lines 80 pages 22 clear columns ttitle off undef first_snap_id undef sec_sn
ap_id
---------awr_physrds.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
break on begin_interval_time skip 1 column phyrds
format 999,999,999 column begin_int
erval_time format a25 column file_name format a45 select begin_interval_time, fi
lename, phyrds from dba_hist_filestatxs natural join dba_hist_snapshot order by
begin_interval_time ;
---------latchdet.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] ************************************************* name,
select

gets, round(misses*100/decode(gets,0,1,gets),2) misses, round(spin_gets*100/deco

de(misses,0,1,misses),2) spins, immediate_gets igets, round(immediate_misses*100
/ decode(immediate_gets,0,1,immediate_gets),2) imisses, sleeps from sys.v_$latch
order by 2 desc;
---------Latch_sleep.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
REM REM Script to determine sleeps for latches REM M. R. Ault 2005 REM col name
format a30 heading 'Latch Name' col gets format 99,999,999,999 heading 'Gets' co
l misses format 9,999,999,999 heading 'Misses' col sleeps format 999,999,999 hea
ding 'Sleeps' set pages 55 ttitle80 'Latches Contention Report' spool latches_co
n select name,gets,misses,sleeps from v$latch where gets>0 and misses>0 order by
g ets desc / spool off clear columns ttitle off
---------waiters.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* busername
wusername bsession_id wsession_id FORMAT a10 FORMAT a10 HEADING HEADING HEADING
HEADING 'Holding|User' 'Waiting|User' 'Holding|SID' 'Waiting|SID'
COLUMN COLUMN COLUMN COLUMN

COLUMN COLUMN COLUMN COLUMN COLUMN

mode_held mode_requested lock_id1 lock_id2 type
FORMAT FORMAT FORMAT FORMAT
a10 999999 999999 a15
HEADING HEADING HEADING HEADING HEADING
'Mode|Held' 'Mode|Requested' 'Lock|ID1' 'Lock|ID2' 'Lock|Type'
SET LINES 132 PAGES 59 FEEDBACK OFF ECHO OFF ttitle 'Processes Waiting on Locks
Report' SPOOL waiters SELECT holding_session bsession_id, waiting_session wsessi
on_id, b.username busername, a.username wusername, c.lock_type type, mode_held,
mode_requested, lock_id1, lock_id2 FROM sys.v_$session b, sys.dba_waiters c, sys
.v_$session a WHERE c.holding_session=b.sid and c.waiting_session=a.sid ; SPOOL
OFF PAUSE press Enter to continue CLEAR COLUMNS SET LINES 80 PAGES 22 FEEDBACK O
N TTITLE OFF
---------blockers.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] ************************************************* username
session_id mode_held mode_requested lock_id1 lock_id2 type FORMAT a10 FORMAT FO
RMAT FORMAT FORMAT a10 a10 a10 a10 HEADING HEADING HEADING HEADING HEADING HEADI
NG HEADING 'Holding|User' 'SID' 'Mode|Held' 'Mode|Requested' 'Lock|ID1' 'Lock|ID
2' 'Lock|Type'
COLUMN COLUMN COLUMN COLUMN COLUMN COLUMN COLUMN
SET LINES 132 PAGES 59 FEEDBACK OFF ECHO OFF ttitle 'Sessions Blocking Other Ses
sions Report' SPOOL blockers

SELECT a.session_id, username, type, mode_held, mode_requested, lock_id1, lock_i

d2 FROM sys.v_$session b, sys.dba_blockers c, sys.dba_lock a WHERE c.holding_ses
sion=a.session_id AND c.holding_session=b.sid ; SPOOL OFF PAUSE press Enter to c
ontinue CLEAR COLUMNS SET LINES 80 PAGES 22 FEEDBACK ON
---------ddl_lock.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] ************************************************* owner se
ssion_id mode_held mode_requested type name FORMAT FORMAT FORMAT FORMAT FORMAT F
ORMAT a7 9999 a7 a7 a20 a21 HEADING 'User' HEADING 'SID XE "SID" ' HEADING 'Lock
|Mode|Held' HEADING 'Lock|Mode|Request' HEADING 'Type|Object' HEADING 'Object|Na
me'
COLUMN COLUMN COLUMN COLUMN COLUMN COLUMN
SET FEEDBACK OFF ECHO OFF PAGES 48 LINES 79 ttitle 'Report on All DDL Locks Held
' SPOOL ddl_lock SELECT NVL(owner,'SYS') owner, session_id, name, type, mode_hel
d, mode_requested FROM sys.dba_ddl_locks ORDER BY 1,2,3 ; SPOOL OFF PAUSE press
Enter/return to continue

CLEAR COLUMNS SET FEEDBACK ON PAGES 22 LINES 80 TTITLE OFF

---------dml_lock.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] ************************************************* owner se
ssion_id mode_held mode_requested FORMAT a8 FORMAT a10 FORMAT a10 HEADING 'User'
HEADING 'SID XE "SID" ' HEADING 'Mode|Held' HEADING 'Mode|Requested'
COLUMN COLUMN COLUMN COLUMN
SET FEEDBACK OFF ECHO OFF PAGES 59 LINES 80 ttitle 'Report on All DML Locks Held
' SPOOL dml_lock SELECT NVL(owner,'SYS') owner, session_id, name, mode_held, mod
e_requested FROM sys.dba_dml_locks ORDER BY 2 ; SPOOL OFF PAUSE press Enter to c
ontinue CLEAR COLUMNS SET FEEDBACK ON PAGES 22 LINES 80 TTITLE OFF
---------int_lock.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] ************************************************* username
session_id lock_type mode_held FORMAT a10 FORMAT a27 FORMAT a10 HEADING HEADING
HEADING HEADING 'Lock|Holder' 'User|SID' 'Lock Type' 'Mode|Held'
COLUMN COLUMN COLUMN COLUMN

COLUMN mode_requested FORMAT a10 COLUMN lock_id1 FORMAT a30 COLUMN lock_id2 FORM
AT a10
HEADING 'Mode|Requested' HEADING 'Lock/Cursor|ID1' HEADING 'Lock|ID2'
PROMPT 'ALL is all types or modes' ACCEPT lock PROMPT 'Enter Desired Lock Type:
' ACCEPT mode PROMPT 'Enter Lock Mode: ' SET LINES 132 PAGES 59 FEEDBACK OFF ECH
O OFF VERIFY OFF BREAK ON username ttitle 'Report on Internal Locks Mode: &mode
Type: &lock' SPOOL int_locks SELECT NVL(b.username,'SYS') username, session_id,l
ock_type,mode_held, mode_requested,lock_id1,lock_id2 FROM sys.dba_lock_internal
a, sys.v_$session b WHERE UPPER(mode_held) like UPPER('%&mode%') OR UPPER('&mode
')='ALL' AND UPPER(lock_type) like UPPER('%&lock%') OR UPPER(mode_held) like UPP
ER('%&mode%') OR UPPER('&mode')='ALL' AND UPPER('&lock')='ALL' AND a.session_id=
b.sid ORDER BY 1,2 ; SPOOL OFF PAUSE press Enter to continue SET LINES 80 PAGES
22 FEEDBACK ON VERIFY ON CLEAR COLUMNS CLEAR BREAKS UNDEF LOCK UNDEF MODE
---------Waits_file.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
REM REM Waits per Datafile report REM M. Ault 2005 REM

col col col col col

name format a66 heading 'Data File Name' count format 999,999,999 heading 'Wait|
Count' file# heading 'File#' format 9,999 wait_time heading 'Time' ratio heading
'Time|Count' format 999.99
set pages 47 compute sum of count on report break on
tafile' set lines 132 spool waits_file SELECT file#,
, time/count ratio FROM x$kcbfwait, v$datafile WHERE
Order By count DESC / spool off clear columns clear
es 22 lines 80

report ttitle 'Waits Per Da

name, count, time wait_time
indx + 1 = file# AND time>0
computes ttitle off set pag

---------Waits_file.sql ************************************************* Copyright 2005

by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
col name format a50 heading 'Data File Name' col count format 999,999,999 headin
g 'Wait|Count' col file# heading 'File#' format 9,999 col wait_time heading 'Tim
e' col ratio heading 'Time|Count' format 999.99 set pages 47 compute sum of coun
t on report break on report ttitle 'Waits Per Datafile' set lines 132 spool wait
s_file SELECT file#, name, count, time wait_time, time/count ratio FROM x$kcbfwa
it, v$datafile WHERE indx + 1 = file# AND time>0 Order By count DESC / spool off
clear columns

clear computes ttitle off set pages 22 lines 80

---------10g_sysclasssum.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] ************************************************* w
ait_class, total_waits, round(100 * (total_waits / sum_waits),2) pct_waits, roun
d((time_waited / 100),2) time_waited_secs, round(100 * (time_waited / sum_time),
2) pct_time
select
from (select wait_class, total_waits, time_waited from v$system_wait_class where
wait_class != 'Idle'), (select sum(total_waits) sum_waits, sum(time_waited) sum
_time from v$system_wait_class where wait_class != 'Idle') order by 5 desc
---------10g_sysclasshist.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] *************************************************
col Time format a20 HEADING 'Time' col wait_class format a20 HEADING 'Wait Class
' col time_waited format 999,999,999.99 HEADING 'Time Waited' select b.wait_clas
s, to_char(a.end_time,'YYYY-MON-DD HH') Time,

sum(round((a.time_waited / 100),2)) time_waited from sys.v_$waitclassmetric_hist

ory a, sys.v_$system_wait_class b where a.wait_class# = b.wait_class# and b.wait
_class != 'Idle' group by wait_class, to_char(a.end_time,'YYYY-MON-DD HH') order
by 1,2
---------10g_waithist.sql ************************************************* Copyright 200
5 by Rampant TechPress This script is free for non-commercial purposes with no w
arranties. Use at your own risk. To license this script for a commercial purpose
, contact [email protected] ************************************************* roun
d((wait_time_milli / 1000),4) wait_time_secs, wait_count
select from sys.v_$event_histogram where event = 'db file scattered read' order
by 2
---------wt_events_int_10g.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select event , waits "Waits" , time "Wait Time (s)" , pct*100 "Percent of Total"
, waitclass "Wait Class" from (select e.event_name event , e.total_waits - nvl(
b.total_waits,0) waits , (e.time_waited_micro - nvl(b.time_waited_micro,0))/1000
00 0 time , (e.time_waited_micro - nvl(b.time_waited_micro,0))/ (select sum(e1.t
ime_waited_micro - nvl(b1.time_waited_mic ro,0)) from dba_hist_system_event b1 ,
dba_hist_system_event e1 where b1.snap_id(+) = b.snap_id and e1.snap_id = e.sna
p_id

and and and and and and and ) pct

b1.dbid(+) e1.dbid b1.instance_number(+) e1.instance_number b1.event_id(+) e1.to
tal_waits e1.wait_class
= b.dbid = e.dbid = b.instance_number = e.instance_number = e1.event_id > nvl(b1
.total_waits,0) <> 'Idle'
, e.wait_class waitclass from dba_hist_system_event b , dba_hist_system_event e
where b.snap_id(+) = &pBgnSnap and e.snap_id = &pEndSnap and b.dbid(+) = &pDbId
and e.dbid = &pDbId
and b.instance_number(+) = &pInstNum
and e.instance_number = &pIns
tNum and b.event_id(+) = e.event_id and e.total_waits > nvl(b.total_waits,0) and
e.wait_class <> 'Idle' order by time desc, waits desc )
---------sys_event_int_10g.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select event "Event Name", waits "Waits", timeouts "Timeouts", time "Wait Time (
s)", avgwait "Avg Wait (ms)", waitclass "Wait Class" from (select e.event_name ev
ent , e.total_waits - nvl(b.total_waits,0) waits , e.total_timeouts - nvl(b.tota
l_timeouts,0) timeouts , (e.time_waited_micro - nvl(b.time_waited_micro,0))/1000
000 time , decode ((e.total_waits - nvl(b.total_waits, 0)), 0, to_number(NULL) ,
((e.time_waited_micro - nvl(b.time_waited_micro,0))/1000) / (e.total _waits - n
vl(b.total_waits,0)) ) avgwait , e.wait_class waitclass from dba_hist_system_eve
nt b ,
dba_hist_system_event e where b.snap_id(+) = &pBgnSnap

and e.snap_id and b.dbid(+) and e.dbid and b.instance_number(+) and e.instance_n
umber and b.event_id(+) and e.total_waits and e.wait_class order by time desc, w
aits desc
= &pEndSnap = &pDbId = &pDbId = &pInstNum = &pInstNum = e.event_id > nvl(b.total
_waits,0) <> 'Idle' )
---------wait_stat_int_10g.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
e.class "E.CLASS" e.wait_count - nvl(b.wait_count,0) "Waits" e.time
- nvl(b.time,0)
"Total Wait Time (cs)" (e.time - nvl(b.time,0)) / (e.wait_count - nvl(b.wait_cou
nt,0)) "Avg Time (cs)" dba_hist_waitstat b dba_hist_waitstat e b.snap_id = &pBgn
Snap e.snap_id = &pEndSnap b.dbid = &pDbId e.dbid = &pDbId b.dbid = e.dbid b.ins
tance_number = &pInstNum e.instance_number = &pInstNum b.instance_number = e.ins
tance_number b.class = e.class b.wait_count < e.wait_count by 3 desc, 2 desc
select , , , from ,

where and and and and and and and and and order

---------ash_waitclass_waits.sql ************************************************* Copyri

ght 2005 by Rampant TechPress This script is free for non-commercial purposes wi
th no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] ***********************************************
**
break on begin_time skip 1 column wait_class format a15

select begin_time, wait_class, average_waiter_count, dbtime_in_wait from dba_his

t_waitclassmet_history where dbtime_in_wait >10 order by begin_time, wait_class,
average_waiter_count DESC;
---------latch_int_10g.sql ************************************************* Copyright 20
05 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpos
e, contact [email protected] *************************************************

select e.latch_name "Latch Name" , e.gets - b.gets "Get Requests" , to_number(de

code(e.gets, b.gets, null, (e.misses - b.misses) * 100/(e.gets - b.gets))) "Perc
ent Get Misses" , to_number(decode(e.misses, b.misses, null, (e.sleeps - b.sleep
s)/(e.misses - b.misses))) "Avg Sleeps / Miss" , (e.wait_time - b.wait_time)/100
0000 "Wait Time (s)" , e.immediate_gets - b.immediate_gets "No Wait Requests" ,
to_number(decode(e.immediate_gets, b.immediate_gets, null, (e.immediate_misses b.immediate_misses) * 100 / (e.immediate_gets - b.immediate_gets))) "Percent No
Wa it Miss" from dba_hist_latch b , dba_hist_latch e where b.snap_id
= &pBgnSnap a
ap_id = &pEndSnap and b.dbid = &pDbId and e.dbid = &pDbId and b.dbid = e.dbid an
d b.instance_number = &pInstNum and e.instance_number = &pInstNum and b.instance
_number = e.instance_number and b.latch_hash = e.latch_hash and e.gets - b.gets
> 0 order by 1, 4
-latch_miss_int_10g.sql -- ************************************************* -Copyright 2005 by Rampant TechPress

------This script is free for non-commercial purposes with no warranties. Use at your
own risk. To license this script for a commercial purpose, contact info@rampant.
cc ************************************************* latchname "Latch Name", nwm
isses "No Wait Misses", sleeps "Sleeps", waiter_sleeps "Waiter Sleeps" e.parent_n
ame||' '||e.where_in_code latchname e.nwfail_count - nvl(b.nwfail_count,0) nwmis
ses e.sleep_count - nvl(b.sleep_count,0) sleeps e.wtr_slp_count - nvl(b.wtr_slp_
count,0) waiter_sleeps dba_hist_latch_misses_summary b dba_hist_latch_misses_sum
mary e b.snap_id(+) = &pBgnSnap e.snap_id = &pEndSnap b.dbid(+) = &pDbId e.dbid
= &pDbId b.dbid(+) = e.dbid b.instance_number(+) = &pInstNum e.instance_number =
&pInstNum b.instance_number(+) = e.instance_number b.parent_name(+) = e.parent_
name b.where_in_code(+) = e.where_in_code e.sleep_count > nvl(b.sleep_count,0) b
y 1, 3 desc
select
From ( select , , , from , where and and and and and and and and and and )

order

---------wait_time_detail_10g.sql ************************************************* Copyr

ight 2005 by Rampant TechPress This script is free for non-commercial purposes w
ith no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] **********************************************
***
prompt prompt This will compare values from dba_hist_waitstat with prompt detail
information from dba_hist_active_sess_history. prompt set pages 999 set lines 8
0 break on snap_time skip 2 col col col col snap_time file_name object_type obje
ct_name heading heading heading heading 'Snap|Time' 'File|Name' 'Object|Type' 'O
bject|Name' format format format format a20 a40 a10 a20

col wait_count col time

heading 'Wait|Count' format 999,999 heading 'Time' format 999,999
select to_char(begin_interval_time,'yyyy-mm-dd hh24:mi') snap_time, -- file_name
, object_type, object_name, wait_count, time from dba_hist_waitstat wait, dba_hi
st_snapshot snap, dba_hist_active_sess_history ash, dba_data_files df, dba_objec
ts obj where wait.snap_id = snap.snap_id and wait.snap_id = ash.snap_id and df.f
ile_id = ash.current_file# and obj.object_id = ash.current_obj# and wait_count >
50 order by to_char(begin_interval_time,'yyyy-mm-dd hh24:mi'), file_name ;
---------resource_waits.sql ************************************************* Copyright 2
005 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpo
se, contact [email protected] *************************************************
select ash.event, sum(ash.wait_time + ash.time_waited) ttl_wait_time from v$acti
ve_session_history ash where ash.sample_time between sysdate - 60/2880 and sysda
te group by ash.event order by 2;
-user_waiting.sql

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc *************************************************
select sess.sid, sess.username, sum(ash.wait_time + ash.time_waited) wait_time f
rom v$active_session_history ash, v$session sess where ash.sample_time > sysdate
-1 and ash.session_id = sess.sid group by sess.sid, sess.username order by 3; <
ash_list_events.sql -- ************************************************* -- Copy
right 2005 by Rampant TechPress -- This script is free for non-commercial purpos
es -- with no warranties. Use at your own risk. --- To license this script for a
commercial purpose, -- contact [email protected] -- *****************************
******************** break on wait_class skip 1 column event_name format a40 col
umn wait_class format a20 select wait_class, event_name from dba_hist_event_name
order by wait_class, event_name;
-------ash_event_rollup.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pur
pose,

-- contact [email protected] -- *************************************************

ttitle 'High waits on events|Rollup by hour' column column column column column
mydate heading event total_waits time_waited total_timeouts 'Yr. Mo Dy Hr' forma
t format heading 'tot waits' format heading 'time wait' format heading 'timeouts
' format a13; a30; 999,999; 999,999; 9,999;

break on to_char(snap_time,'yyyy-mm-dd') skip 1; select to_char(e.sample_time,'yy

yy-mm-dd HH24') mydate, e.event, count(e.event)
total_waits, sum(e.time_waite
v$active_session_history e where e.event not like '%timer' and e.event not like
'%message%' and e.event not like '%slave wait%' having count(e.event) > 100 gro
up by to_char(e.sample_time,'yyyy-mm-dd HH24'), e.event order by 1 ;
---------ash_event_hist.sql ************************************************* Copyright 2
005 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpo
se, contact [email protected] *************************************************
select swh.seq#, sess.sid, sess.username username, swh.event event, swh.p1, swh.
p2 from v$session sess, v$session_wait_history swh where

sess.sid = 74 and sess.sid = swh.sid order by swh.seq#;

---------ash_sql.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] *************************************************
select h.sql_id, s.sql_text from dba_hist_active_sess_history h, v$sql s where h
.session_id = 74 AND h.sql_id = s.sql_id AND TRUNC(h.sample_time) = TRUNC(SYSDAT
E) AND s.sql_fulltext like %orders% ;
---------ash_event_count.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] *************************************************
select h.sql_id, count(*) from dba_hist_active_sess_history h, v$sql s where h.s
ql_id = s.sql_id and s.sql_fulltext like %orders% having

count(*) > 1 group by h.sql_id order by 2 DESC;

---------wait_time_detail.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pur
pose, contact [email protected] *************************************************
set pages 999 set lines 80 break on snap_time skip 2 col col col col col col sna
p_time file_name object_type object_name wait_count time heading heading heading
heading heading heading 'Snap|Time' 'File|Name' 'Object|Type' 'Object|Name' 'Wa
it|Count' 'Time' format format format format format format a20 a40 a10 a20 999,9
99 999,999
select to_char(begin_interval_time,'yyyy-mm-dd hh24:mi') snap_time, -- file_name
, object_type, object_name, wait_count, time from dba_hist_waitstat wait, dba_hi
st_snapshot snap, dba_hist_active_sess_history ash, dba_data_files df, dba_objec
ts obj where wait.snap_id = snap.snap_id and wait.snap_id = ash.snap_id and df.f
ile_id = ash.current_file# and obj.object_id = ash.current_obj# and wait_count >
50 order by to_char(begin_interval_time,'yyyy-mm-dd hh24:mi'), file_name ;

---------ash_wait_time.sql ************************************************* Copyright 20

05 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpos
e, contact [email protected] *************************************************
select TO_CHAR(h.sample_time,'HH24') "Hour", Sum(h.wait_time/100) "Total Wait Ti
me (Sec)" from v$active_session_history h, v$event_name n where h.session_state
= 'ON CPU' and h.session_type = 'FOREGROUND' and h.event_id = n.EVENT_ID and n.w
ait_class <> 'Idle' group by TO_CHAR(h.sample_time,'HH24');
---------ash_total_wait_time_dy.sql ************************************************* Cop
yright 2005 by Rampant TechPress This script is free for non-commercial purposes
with no warranties. Use at your own risk. To license this script for a commerci
al purpose, contact [email protected] ********************************************
*****
select TO_CHAR(h.sample_time,'Day') "Hour", sum(h.wait_time/100) "Total Wait Tim
e (Sec)" from v$active_session_history h, v$event_name n where h.session_state =
'ON CPU' and h.session_type = 'FOREGROUND' and h.event_id = n.EVENT_ID and n.wai
t_class <> 'Idle' group by

TO_CHAR(h.sample_time,'Day');
---------ash_total_wait_time.sql ************************************************* Copyri
ght 2005 by Rampant TechPress This script is free for non-commercial purposes wi
th no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] ***********************************************
**
select h.event "Wait Event", SUM(h.wait_time/100) "Wait Time (Sec)" from v$activ
e_session_history h, v$event_name n where h.session_state = 'ON CPU' and h.sessi
on_type = 'FOREGROUND' and h.event_id = n.EVENT_ID and to_char(h.sample_time,'HH
24') = '12' and n.wait_class <> 'Idle' group by h.event order by 2 DESC;
---------ash_file_wait_time_dy.sql ************************************************* Copy
right 2005 by Rampant TechPress This script is free for non-commercial purposes
with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
****
select f.file_name Data File , COUNT(*) Wait Number , SUM(h.time_waited) Total T
ime Waited from v$active_session_history h, dba_data_files f where h.current_fil
e# = f.file_id

group by f.file_name order by 3 DESC;

---------ash_wait_time_sum.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select e.name "Wait Event", SUM(h.wait_time + h.time_waited) "Total Wait Time" f
rom v$active_session_history h, v$event_name e where h.event_id = e.event_id and
e.wait_class <> 'Idle' group by e.name order by 2 DESC;
---------ash_total_wait_time_dy.sql ************************************************* Cop
yright 2005 by Rampant TechPress This script is free for non-commercial purposes
with no warranties. Use at your own risk. To license this script for a commerci
al purpose, contact [email protected] ********************************************
*****
select s.sid, s.username, sum(h.wait_time + h.time_waited) "total wait time" fro
m v$active_session_history h, v$session s, v$event_name e where h.session_id = s
.sid and e.event_id = h.event_id and e.wait_class <> 'Idle'

and s.username IS NOT NULL group by s.sid, s.username order by 3;

---------ash_hot_objects.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] *************************************************
select o.owner, o.object_name, o.object_type, SUM(h.wait_time + h.time_waited) "
total wait time" from v$active_session_history h, dba_objects o, v$event_name e
where h.current_obj# = o.object_id and e.event_id = h.event_id and e.wait_class
<> 'Idle' group by o.owner, o.object_name, o.object_type order by 4 DESC;
---------ash_latch.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************
break on begin_interval_time skip 1 column begin_interval_time format a25 column
latch_name format a40

select begin_interval_time, latch_name, gets, misses, sleeps from dba_hist_latch

natural join dba_hist_snapshot where (misses + sleeps ) > 0 order by begin_inte
rval_time, misses DESC, sleeps DESC ;
---------ash_trend.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************
break on begin_interval_time skip 0 column stat_name format a25 select begin_int
erval_time, new.stat_name, (new.value - old.value) Difference from dba_hist_sys_
time_model old, dba_hist_sys_time_model new, dba_hist_snapshot ss where new.stat
_name = old.stat_name and new.snap_id = ss.snap_id and old.snap_id = ss.snap_id
- 1 and new.stat_name like '%&stat_name%' order by begin_interval_time;
-pid.sql

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc *************************************************
COLUMN terminal FORMAT a10 HEADING 'Terminal' COLUMN program FORMAT a30 HEADING
'Program' COLUMN pid FORMAT 9999 HEADING 'Process|ID' COLUMN sid FORMAT 9999 HEA
DING 'Session|ID' COLUMN osuser FORMAT A15 HEADING 'Operating|System|User' COLUM
N spid FORMAT A7 HEADING 'OS|Process|ID' COLUMN serial# FORMAT 99999 HEADING 'Se
rial|Number' SET LINES 132 PAGES 58 BREAK ON username COMPUTE COUNT OF pid ON us
ername ttitle "Oracle Processes" SPOOL cur_proc SELECT NVL(a.username,'Null') us
ername, b.pid, a.sid, DECODE(a.terminal,'?','Detached',a.terminal) terminal, b.p
rogram, b.spid, a.osuser, a.serial# FROM v$session a, v$process b WHERE a.PADDR =
b.ADDR ORDER by a.username, b.pid ; SPOOL OFF CLEAR BREAKS CLEAR COLUMNS SET PA
GES 22 TTITLE OFF PAUSE Press Enter to continue
---------topsess.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] *************************************************

select 'top physical i/o process' category, sid, username, total_user_io amt_use
d, round(100 * total_user_io/total_io,2) pct_used from (select b.sid sid, nvl(b.
username,p.name) username, sum(value) total_user_io from sys.v_$statname c, sys.
v_$sesstat a, sys.v_$session b, sys.v_$bgprocess p where a.statistic#=c.statisti
c# and p.paddr (+) = b.paddr and b.sid=a.sid and c.name in ('physical reads','ph
ysical writes', 'physical reads direct', 'physical reads direct (lob)', 'physica
l writes direct', 'physical writes direct (lob)') group by b.sid, nvl(b.username
,p.name) order by 3 desc), (select sum(value) total_io from sys.v_$statname c, s
ys.v_$sesstat a where a.statistic#=c.statistic# and c.name in ('physical reads',
'physical writes', 'physical reads direct', 'physical reads direct (lob)',
direct', 'physical writes direct (lob)')) where rownum < 2 union all select 'top
logical i/o process', sid, username, total_user_io amt_used, round(100 * total_
user_io/total_io,2) pct_used from (select b.sid sid, nvl(b.username,p.name) user
name, sum(value) total_user_io from sys.v_$statname c, sys.v_$sesstat a, sys.v_$
session b, sys.v_$bgprocess p

'physi

where a.statistic#=c.statistic# and p.paddr (+) = b.paddr and b.sid=a.sid and c.

name in ('consistent gets','db block gets') group by b.sid, nvl(b.username,p.nam
e) order by 3 desc), (select sum(value) total_io from sys.v_$statname c, sys.v_$
sesstat a where a.statistic#=c.statistic# and c.name in ('consistent gets','db b
lock gets')) where rownum < 2 union all select 'top memory process', sid, userna
me, total_user_mem, round(100 * total_user_mem/total_mem,2) from (select b.sid s
id, nvl(b.username,p.name) username, sum(value) total_user_mem from sys.v_$statn
ame c, sys.v_$sesstat a, sys.v_$session b, sys.v_$bgprocess p where a.statistic#=
c.statistic# and p.paddr (+) = b.paddr and b.sid=a.sid and c.name in ('session p
ga memory','session uga memory') group by b.sid, nvl(b.username,p.name) order by
3 desc), (select sum(value) total_mem from sys.v_$statname c, sys.v_$sesstat a
where a.statistic#=c.statistic# and c.name in ('session pga memory','session uga
memory') ) where rownum < 2 union all select 'top cpu process', sid, username,

total_user_cpu, round(100 * total_user_cpu/greatest(total_cpu,1),2) from (select

b.sid sid, nvl(b.username,p.name) username, sum(value) total_user_cpu from sys.
v_$statname c,
sys.v_$sesstat a, sys.v_$session b, sys.v_$bgprocess p where a.statist
ic#=c.statistic# and p.paddr (+) = b.paddr and b.sid=a.sid and c.name = 'CPU use
d by this session' group by b.sid, nvl(b.username,p.name) order by 3 desc), (sel
ect sum(value) total_cpu from sys.v_$statname c, sys.v_$sesstat a where a.statis
tic#=c.statistic# and c.name = 'CPU used by this session' ) where rownum < 2;
-topsessdet.sql -- ************************************************* -- Copyrigh
t 2005 by Rampant TechPress -- This script is free for non-commercial purposes - with no warranties. Use at your own risk. --- To license this script for a com
mercial purpose, -- contact [email protected] -- *********************************
**************** select * from (select b.sid sid, decode (b.username,null,e.name
,b.username) user_name, d.spid os_id, b.machine machine_name,
to_char(logon_time,'mm/
dd/yy hh:mi:ss pm') logon_time, (sum(decode(c.name,'physical reads',value,0)) +
sum(decode(c.name,'physical writes',value,0)) + sum(decode(c.name,'physical writ
es direct',value,0)) + sum(decode(c.name,'physical writes direct (lob)',value,0)
) + sum(decode(c.name,'physical reads direct (lob)',value,0))

+ sum(decode(c.name,'physical reads direct',value,0))) total_physical_io, (sum(d

ecode(c.name,'db block gets',value,0)) + sum(decode(c.name,'db block changes',va
lue,0)) + sum(decode(c.name,'consistent changes',value,0)) + sum(decode(c.name,'
consistent gets',value,0)) ) total_logical_io, 100 100 *
(round ((sum (decode (c.name
, 'physical reads', value, 0)) sum (decode (c.name, 'physical reads direct', val
ue, 0))) / (sum (decode (c.name, 'db block gets', value, 1)) + sum (decode (c.na
me, 'consistent gets', value, 0)) ),3)) hit_ratio, (sum(decode(c.name,'session p
ga memory',value,0))+ sum(decode(c.name,'session uga memory',value,0)) ) total_m
emory_usage, sum(decode(c.name,'parse count (total)',value,0)) parses,
sum(decode(c.n
ame,'CPU used by this session',value,0)) total_cpu, sum(decode(c.name,'parse tim
e cpu',value,0)) parse_cpu, sum(decode(c.name,'recursive cpu usage',value,0)) re
cursive_cpu, sum(decode(c.name,'CPU used by this session',value,0)) sum(decode(c
.name,'parse time cpu',value,0)) sum(decode(c.name,'recursive cpu usage',value,0
)) other_cpu, sum(decode(c.name,'sorts (disk)',value,0)) disk_sorts, sum(decode(
c.name,'sorts (memory)',value,0)) memory_sorts, sum(decode(c.name,'sorts (rows)'
,value,0)) rows_sorted, sum(decode(c.name,'user commits',value,0)) commits, sum(
decode(c.name,'user rollbacks',value,0)) rollbacks, sum(decode(c.name,'execute c
ount',value,0)) executions, sum(decode(c.name,'physical reads',value,0)) physica
l_reads, sum(decode(c.name,'db block gets',value,0)) db_block_gets, sum(decode(c
.name,'consistent gets',value,0)) consistent_gets, sum(decode(c.name,'consistent
changes',value,0)) consistent_changes from sys.v_$sesstat a, sys.v_$session b,
sys.v_$statname c, sys.v_$process d, sys.v_$bgprocess e where a.statistic#=c.sta
tistic# and b.sid=a.sid and d.addr = b.paddr and e.paddr (+) = b.paddr and c.nam
e in ('physical reads', 'physical writes', 'physical writes direct', 'physical r
eads direct', 'physical writes direct (lob)', 'physical reads direct (lob)',

'db block gets', 'db block changes', 'consistent changes', 'consistent gets', 's
ession pga memory', 'session uga memory', 'parse count (total)', 'CPU used by th
is session', 'parse time cpu', 'recursive cpu usage',
'sorts (disk)', 'sorts (memor
y)', 'sorts (rows)', 'user commits', 'user rollbacks', 'execute count' ) group b
y b.sid, d.spid, decode (b.username,null,e.name,b.username), b.machine, to_char(
logon_time,'mm/dd/yy hh:mi:ss pm') order by 6 desc);
---------sesswaits.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* b.sid,
decode(b.username,NULL,c.name,b.username) process_name, event, a.total_waits, ro
und((a.time_waited / 100),2) time_wait_sec,a.total_timeouts, round((average_wait
/ 100),2) average_wait_sec, round((a.max_wait / 100),2) max_wait_sec FROM sys.v
_$session_event a, sys.v_$session b, sys.v_$bgprocess c
SELECT
WHERE event NOT IN ('lock element cleanup', 'pmon timer', 'rdbms ipc message', 's
mon timer',

'SQL*Net message from client', 'SQL*Net break/reset to client', 'SQL*Net message

to client', 'SQL*Net more data to client', 'dispatcher timer', 'Null event', 'p
arallel query dequeue wait',
'parallel query idle wait - Slaves', 'pipe get', 'PL/
SQL lock timer', 'slave wait', 'virtual circuit status', 'WMON goes to sleep' )
and event NOT LIKE 'DFS%' and event NOT LIKE 'KXFX%' and a.sid = b.sid and b.padd
r = c.paddr (+) order by 4 desc;
---------csesswaits.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* a.sid,
decode(b.username,NULL,c.name,b.username) process_name, a.event, a.seconds_in_w
ait, a.wait_time, a.state, a.p1text, a.p1, a.p1raw, a.p2text, a.p2, a.p2raw, a.p
3text, a.p3, a.p3raw FROM sys.v_$session_wait a, sys.v_$session b, sys.v_$bgproc
ess c
SELECT
WHERE event NOT IN ('lock element cleanup', 'pmon timer', 'rdbms ipc message',

'smon timer', 'SQL*Net message from client', 'SQL*Net break/reset to client', 'S
QL*Net message to client', 'SQL*Net more data to client', 'dispatcher timer', 'N
ull event', 'parallel query dequeue wait', 'parallel query idle wait - Slaves',
'pipe get',
'PL/SQL lock timer', 'slave wait', 'virtual circuit status', 'WMON goes to
sleep' ) and event NOT LIKE 'DFS%' and event NOT LIKE 'KXFX%' and a.sid = b.sid
and b.paddr = c.paddr (+) order by 4 desc;
---------sesshitrate.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* b.sid
sid, decode (b.username,null,e.name,b.username) user_name, d.spid os_id, b.mach
ine machine_name, to_char(logon_time,'mm/dd/yy hh:mi:ss pm') logon_time, 100 - 1
00 * (round ((sum (decode (c.name, 'physical reads', value, 0)) sum (decode (c.n
ame, 'physical reads direct', value, 0)) sum(decode (c.name, 'physical reads dir
ect (lob)', value, 0))) / (sum (decode (c.name, 'db block gets', value, 1)) + su
m (decode (c.name, 'consistent gets', value, 0))),3)) hit_ratio
select
from sys.v_$sesstat a,

sys.v_$session b, sys.v_$statname c,

sys.v_$process d, sys.v_$bgprocess e where a.statistic#=c.statistic# and b.sid=a

.sid and d.addr = b.paddr and e.paddr (+) = b.paddr and c.name in ('physical rea
ds', 'physical reads direct', 'physical writes direct (lob)', 'physical reads di
rect (lob)', 'db block gets', 'consistent gets') group by
b.sid, d.spid, decode (b.u
sername,null,e.name,b.username), b.machine, to_char(logon_time,'mm/dd/yy hh:mi:s
s pm') order by 6 desc;
-sqlhitrate.sql -- ************************************************* -- Copyrigh
t 2005 by Rampant TechPress -- This script is free for non-commercial purposes - with no warranties. Use at your own risk. --- To license this script for a com
mercial purpose, -- contact [email protected] -- *********************************
**************** select sql_text , b.username , 100 - round(100 * a.disk_reads/g
reatest(a.buffer_gets,1),2) hit_ratio from sys.v_$sqlarea a, sys.all_users b whe
re a.parsing_user_id=b.user_id and b.username not in ('SYS','SYSTEM') order by 3
desc;
-memhog.sql -- ************************************************* -- Copyright 20
05 by Rampant TechPress -- This script is free for non-commercial purposes

-----with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
**** sid, username, round(total_user_mem/1024,2) mem_used_in_kb, round(100 * tot
al_user_mem/total_mem,2) mem_percent
select
from (select b.sid sid, nvl(b.username,p.name) username, sum(value) total_user_m
em from sys.v_$statname c, sys.v_$sesstat a, sys.v_$session b, sys.v_$bgprocess
p where a.statistic#=c.statistic# and p.paddr (+) = b.paddr and b.sid=a.sid and
c.name in ('session pga memory','session uga memory') group by b.sid, nvl(b.user
name,p.name)), (select sum(value) total_mem from sys.v_$statname c, sys.v_$sesst
at a where a.statistic#=c.statistic# and c.name in ('session pga memory','sessio
n uga memory')) order by 3 desc;
---------bgact.sql ************************************************* Copyright 2005 by Ra
mpant TechPress This script is free for non-commercial purposes with no warranti
es. Use at your own risk. To license this script for a commercial purpose, conta
ct [email protected] *************************************************
select name, value from sys.v_$sysstat where

(name like '%DBWR%' or name in ('dirty buffers inspected', 'summed dirty queue l
ength', 'write requests')) or (name like '%redo%') order by 1;
---------archhist.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] *************************************************
select to_char(completion_time,'mm/dd/yy') completion_time, count(*) log_count f
rom sys.v_$archived_log where sysdate - completion_time < 31 group by to_char(co
mpletion_time,'mm/dd/yy') order by 1 desc;
-rolldet.sql -- ************************************************* -- Copyright 2
005 by Rampant TechPress -- This script is free for non-commercial purposes -- w
ith no warranties. Use at your own risk. --- To license this script for a commer
cial purpose, -- contact [email protected] -- ************************************
************* select name, round ((rssize / 1024), 2) size_kb, shrinks, extends,
gets, waits, writes, xacts, status,

round ((hwmsize / 1024), 2) hw_kb

(a.usn = b.usn) order by name;

from sys.v_$rollstat a, sys.v_$rollname b where

---------10g_sesswaitclass.sql ************************************************* Copyrigh

t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
a.sid, b.username, a.wait_class, a.total_waits, round((a.time_waited / 100),2)
time_waited_secs
select
from sys.v_$session_wait_class a, sys.v_$session b where b.sid = a.sid and b.use
rname is not null and a.wait_class != 'Idle' order by 1,2,5 desc
---------10g_last10waits.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] ************************************************* a
.seq# wait_number, a.event, c.wait_class wait_class, round((a.wait_time / 100),2
) wait_time_secs, a.p1text,
select

a.p1, a.p2text, a.p2, a.p3text, a.p3 from sys.v_$session_wait_history a, sys.v_$

session b, sys.v_$event_name c where a.sid = b.sid and a.event# = c.event# and b
.sid = 249 order by 1,3
---------10g_usertime.sql ************************************************* Copyright 200
5 by Rampant TechPress This script is free for non-commercial purposes with no w
arranties. Use at your own risk. To license this script for a commercial purpose
, contact [email protected] ************************************************* a.si
d, b.username, a.stat_name, round((a.value / 1000000),3) time_secs
select
from sys.v_$sess_time_model a, sys.v_$session b where a.sid = b.sid and b.sid =
< enter SID > order by 4 desc
---------histsesstime.sql ************************************************* Copyright 200
5 by Rampant TechPress This script is free for non-commercial purposes with no w
arranties. Use at your own risk. To license this script for a commercial purpose
, contact [email protected] *************************************************
select

sess_id, username, program, sess_time, round(100 * (sess_time / total_time),2) p

ct_time_waited from (select a.session_id sess_id, decode(session_type,'BACKGROUN
D',session_type,c.username) username, a.program program, sum(a.time_waited) sess
_time from sys.v_$active_session_history a, sys.v_$event_name b, sys.dba_users c
where a.event# = b.event# and a.user_id = c.user_id and sample_time > '23-SEP-0
4 12:00:00 AM' and sample_time < '25-SEP-04 12:00:00 AM' group by a.session_id,
decode(session_type,'BACKGROUND',session_type,c.username), a.program), (select s
um(a.time_waited) total_time from sys.v_$active_session_history a, sys.v_$event_
name b where a.event# = b.event# and sample_time > '23-SEP-04 12:00:00 AM' and s
ample_time < '25-SEP-04 12:10:00 AM' ) order by 5 desc
---------bg_event_int_10g.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pur
pose, contact [email protected] *************************************************
select event "Event Name", waits "Waits", timeouts "Timeouts", time "Wait Time (
s)", avgwait "Avg Wait (ms)", waitclass "Wait Class" from (select e.event_name e
vent , e.total_waits - nvl(b.total_waits,0) waits

, e.total_timeouts - nvl(b.total_timeouts,0) timeouts , (e.time_waited_micro - n

vl(b.time_waited_micro,0))/1000000 time , decode ((e.total_waits - nvl(b.total_w
aits, 0)), 0, to_number(NULL) , ((e.time_waited_micro - nvl(b.time_waited_micro,
0))/1000) / (e.total _waits - nvl(b.total_waits,0)) ) avgwait , e.wait_class wai
tclass from
dba_hist_bg_event_summary b , dba_hist_bg_event_summary e where b.snap_i
d(+) = &pBgnSnap and e.snap_id = &pEndSnap and b.dbid(+) = &pDbId
and e.dbid = &pDbId
d b.instance_number(+) = &pInstNum and e.instance_number = &pInstNum and b.event
_id(+) = e.event_id and e.total_waits > nvl(b.total_waits,0) and e.wait_class <>
'Idle' ) order by time desc, waits desc
---------globaccpatt.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select name, value from sys.v_$sysstat where name in ('table scans (cache partit
ions)', 'table scans (direct read)', 'table scans (long tables)', 'table scans (
rowid ranges)', 'table scans (short tables)', 'table fetch by rowid', 'table fet
ch continued row') order by 1;
-chaincnt.sql -- *************************************************

-------Copyright 2005 by Rampant TechPress This script is free for non-commercial purpo
ses with no warranties. Use at your own risk. To license this script for a comme
rcial purpose, contact [email protected] *****************************************
******** count(*)
select from sys.tab$ where chncnt > 0;
---------chainpct.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] *************************************************
select round(100 * (chained_row_fetches / total_fetches),2) pct_chain_access fro
m (select value as chained_row_fetches from sys.v_$sysstat a where name = 'table
fetch continued row'), (select sum(value) as total_fetches from sys.v_$sysstat
where name in ('table fetch by rowid', 'table scan rows gotten'));
----------chaintables.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* chain
ed_rows.sql

-- FUNCTION: Show percentage of chained rows -- tables must have been analyzed - MRA -column "Chain Percent" format 999.99 column table_name heading 'Table|Nam
e' column chain_cnt heading 'Chained|Rows' column num_rows heading 'Row|Count' s
et pages 47 set feedback off ttitle 'Chained Rows Report' spool chained_rows sel
ect table_name,chain_cnt, num_rows, chain_cnt/num_rows*100 "Chain Percent" fr om
dba_tables where chain_cnt>1 and owner not in ('SYS','SYSTEM'); spool off ttitl
e off
---------maxext8.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* owner, de
code(partition_name,NULL,segment_name,segment_name || '.' || partition_name) seg
ment_name, segment_type, extents, max_extents, initial_extent, next_extent, tabl
espace_name
select
from sys.dba_segments where max_extents - extents <= 5 and segment_type <> 'CACH
E' order by 1,2,3;
-objdef.sql -- *************************************************

-------Copyright 2005 by Rampant TechPress This script is free for non-commercial purpo
ses with no warranties. Use at your own risk. To license this script for a comme
rcial purpose, contact [email protected] *****************************************
********
select a.owner, a.segment_name, a.segment_type, a.tablespace_name, a.next_extent
, max(c.bytes) max_contig_space from sys.dba_segments a, sys.dba_free_space c wh
ere a.tablespace_name = c.tablespace_name and a.next_extent > (select max(bytes)
from sys.dba_free_space b where a.tablespace_name = b.tablespace_name and b.tab
lespace_name = c.tablespace_name) group by a.owner, a.segment_name, a.tablespace
_name, a.segment_type, a.next_extent
---------tabreorg8.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* /*+ RUL
E */ owner, segment_name table_name, segment_type, round(bytes/1024,2) table_kb,
num_rows, blocks, empty_blocks, hwm highwater_mark, avg_used_blocks,
select

greatest(round(100 * (nvl(hwm - avg_used_blocks,0) / greatest(nvl(hwm,1),1) ),2)

,0) block_inefficiency, chain_pct, max_extent_pct, extents, max_extents, decode(
greatest(max_free_space next_extent,0),0,'n','y') can_extend_space, next_extent,
max_free_space, o_tablespace_name tablespace_name from (select a.owner owner, s
egment_name, segment_type, bytes, num_rows, a.blocks blocks, b.empty_blocks empt
y_blocks, a.blocks - b.empty_blocks - 1 hwm, decode(round((b.avg_row_len * num_r
ows * (1 + (pct_free/100))) / c.blocksize,0),0,1,round((b.avg_row_len * num_rows
* (1 + (pct_free/100))) / c.blocksize,0)) + 2 avg_used_blocks, round(100 * (nvl
(b.chain_cnt,0) / greatest(nvl(b.num_rows,1),1)),2) chain_pct, a.extents extents
, round(100 * (a.extents / a.max_extents),2) max_extent_pct, a.max_extents max_e
xtents, b.next_extent next_extent, b.tablespace_name o_tablespace_name from sys.
dba_segments a, sys.dba_all_tables b, sys.ts$ c where ( a.owner = b.owner ) and
( segment_name = table_name ) and ( ( segment_type = 'TABLE ) ) and b.tablespace
_name = c.name union all select a.owner owner, segment_name || '.' || b.partition_
name, segment_type, bytes, b.num_rows, a.blocks blocks, b.empty_blocks empty_blo
cks, a.blocks - b.empty_blocks - 1 hwm, decode(round((b.avg_row_len * b.num_rows
* (1 + (b.pct_free/100))) / c.blocksize,0),0,1,round((b.avg_row_len * b.num_row
s * (1 + (b.pct_free/100))) / c.blocksize,0)) + 2 avg_used_blocks, round(100 * (
nvl(b.chain_cnt,0) / greatest(nvl(b.num_rows,1),1)),2)

chain_pct, a.extents extents, round(100 * (a.extents / a.max_extents),2) max_ext

ent_pct, a.max_extents max_extents, b.next_extent, b.tablespace_name o_tablespac
e_name from sys.dba_segments a, sys.dba_tab_partitions b, sys.ts$ c, sys.dba_tab
les d where ( a.owner = b.table_owner ) and ( segment_name = b.table_name ) and
( ( segment_type = TABLE PARTITION' ) ) and b.tablespace_name = c.name and d.owne
r = b.table_owner and d.table_name = b.table_name and a.partition_name = b.parti
tion_name), ( select tablespace_name f_tablespace_name, max(bytes) max_free_spac
e from sys.dba_free_space group by tablespace_name) where f_tablespace_name = o_
tablespace_name and greatest(round(100 * (nvl(hwm - avg_used_blocks,0) / greates
t(nvl(hwm,1),1) ),2),0) > 25 order by 10 desc, 1 asc,2 asc
-idxreorg8.sql -- ************************************************* -- Copyright
2005 by Rampant TechPress -- This script is free for non-commercial purposes -with no warranties. Use at your own risk. --- To license this script for a comm
ercial purpose, -- contact [email protected] -- **********************************
*************** select /*+ RULE */ owner, segment_name index_name, segment_type,
round(bytes/1024,2) index_kb, num_rows, clustering_factor, blevel, blocks, max_
extent_pct, extents, max_extents, decode(greatest(max_free_space next_extent,0),
0,'n','y') can_extend_space,

next_extent, max_free_space, o_tablespace_name from (select a.owner owner, segme

nt_name, segment_type, bytes, num_rows, b.clustering_factor, b.blevel, a.blocks
blocks, a.extents extents, round(100 * (a.extents / a.max_extents),2) max_extent
_pct, a.max_extents max_extents, b.next_extent next_extent, b.tablespace_name o_
tablespace_name from sys.dba_segments a, sys.dba_indexes b, sys.ts$ c where ( a.o
wner = b.owner ) and ( segment_name = index_name ) and ( ( segment_type = 'INDEX
' ) ) and b.tablespace_name = c.name union all select a.owner owner, segment_name
|| '.' || b.partition_name, segment_type, bytes, b.num_rows, b.clustering_factor
, b.blevel, a.blocks blocks, a.extents extents, round(100 * (a.extents / a.max_e
xtents),2) max_extent_pct, a.max_extents max_extents, b.next_extent, b.tablespace_
name o_tablespace_name from sys.dba_segments a, sys.dba_ind_partitions b, sys.ts
$ c, sys.dba_indexes d where ( a.owner = b.index_owner ) and ( segment_name = b.
index_name ) and ( ( segment_type = INDEX PARTITION' ) ) and b.tablespace_name =
c.name and d.owner = b.index_owner and d.index_name = b.index_name and a.partit
ion_name = b.partition_name), ( select tablespace_name f_tablespace_name, max(by
tes) max_free_space

from sys.dba_free_space group by tablespace_name) where f_tablespace_name = o_ta

blespace_name order by 1,2;
---------cfb_ratio.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************
-- Mike Ault -column table_name format a20 heading 'Table|Name' column index_nam
e format a20 heading 'Index|Name' column dirty_blocks heading 'Dirty|Blocks' col
umn clustering_factor heading 'Clustering|Factor' column cfb_ratio heading 'Clus
tering Factor|To Blocks Ratio' format 99,999.99 column owner format a15 heading
'Owner' ttitle 'Clustering Factor to Block Ratio Report' set lines 132 verify of
f pages 55 feedback off break on owner on table_name spool rep_out\&&database\cf
b_ratio select t.owner,t.table_name,i.index_name, t.num_rows, t.blocks dirty_blo
cks,i.cl ustering_factor, i.clustering_factor/decode(t.blocks,0,decode(i.cluster
ing_factor,0,1,i.clusterin g_factor),t.blocks) cfb_ratio, i.blevel from dba_tabl
es t, dba_indexes i where t.owner=i.table_owner and t.table_name=i.table_name an
d t.owner not in ('SYS','SYSTEM','DBAUTIL','OUTLN','DBSNMP','SPOTLIGHT','PERFS T
AT','RMAN','IWATCH') order by t.owner,i.clustering_factor/decode(t.blocks,0,deco
de(i.clustering_facto r,0,1,i.clustering_factor),t.blocks) desc,t.table_name,i.i
ndex_name / spool off set lines 80 pages 22 feedback on verify on clear columns
ttitle off rem and i.clustering_factor/decode(t.blocks,0,decode(i.clustering_fac
tor,0,1,i.c lustering_factor),t.blocks)>10
-toptables.sql -- *************************************************

-------Copyright 2005 by Rampant TechPress This script is free for non-commercial purpo
ses with no warranties. Use at your own risk. To license this script for a comme
rcial purpose, contact [email protected] *****************************************
********

select table_owner "table owner", table_name "table name", command "command issu
ed", 0 - executions "executions", disk_reads "disk reads", gets "buffer gets", r
ows_processed "rows processed" from (select distinct executions, command, table_
owner, table_name,
gets, rows_processed, disk_reads from (select decode (a.command
, 'insert ' , 3,'select ', 6, 'update ' , 7, 'delete ' , 26,'table lock ') comma
nd , c.owner table_owner, c.name table_name , sum(a.disk_reads) disk_reads , sum
(0 - a.executions) executions , sum(a.buffer_gets) gets , sum(a.rows_processed)
rows_processed from sys.v_$sql a , sys.v_$object_dependency b , sys.v_$db_object_
cache c where a.command_type in (2,3,6,7,26)and b.from_address = a.address and b.
to_owner = c.owner and b.to_name= c.name and c.type = 'table' and c.owner not in
('SYS','SYSTEM') group by a.command_type , c.owner , c.name ) ) where rownum <=
100;
-largescan9i.sql

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc *************************************************
select table_owner, table_name, table_type, size_kb, statement_count, reference_
count, executions, executions * reference_count total_scans from (select a.objec
t_owner table_owner, a.object_name table_name, b.segment_type table_type, b.byte
s / 1024 size_kb, sum(c.executions ) executions, count( distinct a.hash_value )
statement_count, count( * ) reference_count from sys.v_$sql_plan a, sys.dba_segm
ents b, sys.v_$sql c where a.object_owner (+) = b.owner and a.object_name (+) =
b.segment_name and b.segment_type IN ('TABLE', 'TABLE PARTITION') and a.operatio
n LIKE '%TABLE%' and a.options = 'FULL' and a.hash_value = c.hash_value and b.by
tes / 1024 > 1024 group by a.object_owner, a.object_name, a.operation, b.bytes /
1024, b.segment_type order by 4 desc, 1, 2 );
-awr_sql_object_char.sql

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc ************************************************* format a13 format a15
format a25 format 9,999,999 format 9,999,999
col c1 heading Owner col c2 heading Object|Type col c3 heading Object|Name col c
4 heading Average|CPU|Cost col c5 heading Average|IO|Cost break on c1 skip 2 bre
ak on c2 skip 2 select p.object_owner c1, p.object_type c2, p.object_name
c3, avg(
p.cpu_cost) c4, avg(p.io_cost) c5 from dba_hist_sql_plan p where p.object_name i
s not null and p.object_owner <> 'SYS' group by p.object_owner, p.object_type, p
.object_name order by 1,2,4 desc ;
---------awr_sql_object_char_detail.sql *************************************************
Copyright 2005 by Rampant TechPress This script is free for non-commercial purp
oses with no warranties. Use at your own risk. To license this script for a comm
ercial purpose, contact [email protected] ****************************************
*********
accept tabname prompt Enter Table Name: col c0 heading Begin|Interval|time col c
1 heading Owner format a8 format a10

col col col col

c2 c3 c4 c5
heading heading heading heading
Object|Type Object|Name Average|CPU|Cost Average|IO|Cost
format format format format
a10 a15 9,999,999 9,999,999

break on c1 skip 2 break on c2 skip 2 select to_char(sn.begin_interval_time,'mmdd hh24') c0, p.object_owner c1, p.object_type c2, p.object_name c3, avg(p.cpu_c
ost) c4, avg(p.io_cost)
c5 from dba_hist_sql_plan p, dba_hist_sqlstat st, db
ere p.object_name is not null and p.object_owner <> 'SYS' and p.object_name = 'C
USTOMER_DETS' and p.sql_id = st.sql_id and st.snap_id = sn.snap_id group by to_c
har(sn.begin_interval_time,'mm-dd hh24'), p.object_owner, p.object_type, p.objec
t_name order by 1,2,3 desc ;
---------awr_nested_join_alert.sql ************************************************* Copy
right 2005 by Rampant TechPress This script is free for non-commercial purposes
with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
**** c1 c2 c3 c4 c5 heading heading heading heading heading Date Nested|Loops|Co
unt Rows|Processed Disk|Reads CPU|Time format format format format format a20 99
,999,999 99,999,999 99,999,999 99,999,999
col col col col col

accept nested_thr char prompt Enter Nested Join Threshold: ttitle Nested Join Th
reshold|&nested_thr
select to_char(sn.begin_interval_time,'yy-mm-dd hh24') c1, count(*) c2, sum(st.r
ows_processed_delta)
c3, sum(st.disk_reads_delta) c4, sum(st.cpu_time_delta)
apshot sn, dba_hist_sql_plan p, dba_hist_sqlstat st where st.sql_id = p.sql_id a
nd sn.snap_id = st.snap_id and p.operation = NESTED LOOPS having count(*) > &has
h_thr group by begin_interval_time;
---------awr_sql_index.sql ************************************************* Copyright 20
05 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpos
e, contact [email protected] *************************************************
col c0 heading Begin|Interval|time format a8 col c1 heading Index|Name format a2
0 col c2 heading Disk|Reads format 99,999,999 col c3 heading Rows|Processed form
at 99,999,999 select to_char(s.begin_interval_time,'mm-dd hh24') c0, p.object_na
me
c1, sum(t.disk_reads_total) c2, sum(t.rows_processed_total) c3 from dba_hist_sql
_plan p, dba_hist_sqlstat t, dba_hist_snapshot s where p.sql_id = t.sql_id and t
.snap_id = s.snap_id and

p.object_type like '%INDEX%' group by to_char(s.begin_interval_time,'mm-dd hh24'

), p.object_name order by c0,c1,c2 desc ;
-awr_sql_index_access.sql --************************************************* -Copyright 2005 by Rampant TechPress Inc. -- Free for non-commercial use! -- To
license, e-mail [email protected] -- *********************************************
*** col col col col c1 c2 c3 c4 heading heading heading heading Begin|Interval|T
ime format a20 Index|Range|Scans format 999,999 Index|Unique|Scans format 999,99
9 Index|Full|Scans format 999,999
select r.c1 c1, r.c2 c2, u.c2 c3, f.c2 c4 from ( select to_char(sn.begin_interva
l_time,'yy-mm-dd hh24') c1, count(1)
c2 from dba_hist_sql_plan p, dba_hist_sqlstat
s, dba_hist_snapshot sn where p.object_owner <> 'SYS' and p.operation like '%IN
DEX%' and p.options like '%RANGE%' and p.sql_id = s.sql_id and s.snap_id = sn.sn
ap_id group by to_char(sn.begin_interval_time,'yy-mm-dd hh24') order by 1 ) r, (
select to_char(sn.begin_interval_time,'yy-mm-dd hh24') c1, count(1) c2 from dba
_hist_sql_plan p, dba_hist_sqlstat s, dba_hist_snapshot sn

where p.object_owner <> 'SYS' and p.operation like '%INDEX%' and p.options like
'%UNIQUE%' and p.sql_id = s.sql_id and s.snap_id = sn.snap_id group by to_char(s
n.begin_interval_time,'yy-mm-dd hh24') order by 1 ) u, ( select to_char(sn.begin
_interval_time,'yy-mm-dd hh24') c1, count(1) c2 from dba_hist_sql_plan p, dba_hi
st_sqlstat s, dba_hist_snapshot sn where p.object_owner <> 'SYS' and p.operation
like '%INDEX%' and p.options like '%FULL%' and p.sql_id = s.sql_id and s.snap_i
d = sn.snap_id group by to_char(sn.begin_interval_time,'yy-mm-dd hh24') order by
1 ) f where r.c1 = u.c1 and r.c1 = f.c1 ;
---------awr_sql_object_avg_dy.sql ************************************************* Copy
right 2005 by Rampant TechPress This script is free for non-commercial purposes
with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
**** format a30 format a15 format 99,999,999
col c1 heading Object|Name col c2 heading Week Day col c3 heading Invocation|Cou
nt

break on c1 skip 2 break on c2 skip 2 select decode(c2,1,'Monday',2,'Tuesday',3,

'Wednesday',4,'Thursday',5,'Friday',6,'Satu rday',7,'Sunday') c2, c1, c3 from (
select p.object_name c1, to_char(sn.end_interval_time,'d') c2, count(1) c3 from
dba_hist_sql_plan p, dba_hist_sqlstat s, dba_hist_snapshot sn where p.object_own
er <> 'SYS' and p.sql_id = s.sql_id and s.snap_id = sn.snap_id group by p.object
_name, to_char(sn.end_interval_time,'d') order by c2,c1 ) ;
---------usage_hr.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] *************************************************
col c1 heading Begin|Interval|time format a20 col c2 heading Search Columns form
at 999 col c3 heading Invocation|Count format 99,999,999 break on c1 skip 2 acce
pt idxname char prompt Enter Index Name: ttitle select Invocation Counts for ind
ex|&idxname

to_char(sn.begin_interval_time,'yy-mm-dd hh24') c1, p.search_columns c2, count(*

) c3 from dba_hist_snapshot sn, dba_hist_sql_plan p, dba_hist_sqlstat st where s
t.sql_id = p.sql_id and sn.snap_id = st.snap_id and p.object_name = &idxname' gr
oup by begin_interval_time,search_columns;
---------awr_access_counts.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
ttile Table Access|Operation Counts|Per Snapshot Period col col col col c1 c2 c3
c4 heading heading heading heading Begin|Interval|time format a20 Operation for
mat a15 Option format a15 Object|Count format 999,999
break on c1 skip 2 break on c2 skip 2 select to_char(sn.begin_interval_time,'yymm-dd hh24') c1, p.operation c2, p.options c3, count(1) c4 from dba_hist_sql_pla
n p, dba_hist_sqlstat s, dba_hist_snapshot sn where p.object_owner <> 'SYS' and
p.sql_id = s.sql_id and s.snap_id = sn.snap_id group by to_char(sn.begin_interva
l_time,'yy-mm-dd hh24'), p.operation, p.options

order by 1,2,3;
---------awr_sql_full_scans.sql ************************************************* Copyrig
ht 2005 by Rampant TechPress This script is free for non-commercial purposes wit
h no warranties. Use at your own risk. To license this script for a commercial p
urpose, contact [email protected] ************************************************
*

col c1 heading Begin|Interval|Time format a20 col c2 heading Index|Table|Scans f

ormat 999,999 col c3 heading Full|Table|Scans format 999,999 select i.c1 c1, i.c
2 c2, f.c2 c3 from ( select to_char(sn.begin_interval_time,'yy-mm-dd hh24') c1, c
ount(1) c2 from dba_hist_sql_plan p, dba_hist_sqlstat s, dba_hist_snapshot sn wh
ere p.object_owner <> 'SYS' and p.operation like '%TABLE ACCESS%' and p.options
like '%INDEX%' and p.sql_id = s.sql_id and s.snap_id = sn.snap_id group by to_ch
ar(sn.begin_interval_time,'yy-mm-dd hh24') order by 1 ) i, ( select to_char(sn.b
egin_interval_time,'yy-mm-dd hh24') c1, count(1)
c2 from dba_hist_sq
t_snapshot sn where p.object_owner <> 'SYS' and

p.operation like '%TABLE ACCESS%' and p.options = 'FULL' and p.sql_id = s.sql_id
and s.snap_id = sn.snap_id group by to_char(sn.begin_interval_time,'yy-mm-dd hh
24') order by 1 ) f where i.c1 = f.c1 ;
---------awr_full_table_scans.sql ************************************************* Copyr
ight 2005 by Rampant TechPress This script is free for non-commercial purposes w
ith no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] **********************************************
***
ttile Large Full-table scans|Per Snapshot Period col c1 heading Begin|Interval|t
ime col c4 heading FTS|Count break on c1 skip 2 break on c2 skip 2 select to_cha
r(sn.begin_interval_time,'yy-mm-dd hh24') c1, count(1) c4 from dba_hist_sql_plan
p, dba_hist_sqlstat s, dba_hist_snapshot sn, dba_segments o where p.object_owner
<> 'SYS' and p.object_owner = o.owner and p.object_name = o.segment_name and o.
blocks > 1000 and p.operation like '%TABLE ACCESS%' and p.options like '%FULL%'
and p.sql_id = s.sql_id format a20 format 999,999

and s.snap_id = sn.snap_id group by to_char(sn.begin_interval_time,'yy-mm-dd hh2

4') order by 1;
---------awr_sql_access_hr.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
ttile Large Tabe Full-table scans|Averages per Hour col c1 heading Day|Hour col
c2 heading FTS|Count break on c1 skip 2 break on c2 skip 2 select to_char(sn.beg
in_interval_time,'hh24') c1, count(1) c2 from dba_hist_sql_plan p, dba_hist_sqls
tat s, dba_hist_snapshot sn, dba_segments o where p.object_owner <> 'SYS' and p.
object_owner = o.owner and p.object_name = o.segment_name and o.blocks > 1000 an
d p.operation like '%TABLE ACCESS%' and p.options like '%FULL%' and p.sql_id = s
.sql_id and s.snap_id = sn.snap_id group by to_char(sn.begin_interval_time,'hh24
') order by 1; format a20 format 999,999

---------awr_sql_access_day.sql ************************************************* Copyrig

ht 2005 by Rampant TechPress This script is free for non-commercial purposes wit
h no warranties. Use at your own risk. To license this script for a commercial p
urpose, contact [email protected] ************************************************
*
ttile Large Table Full-table scans|Averages per Week Day col c1 heading Week|Day
col c2 heading FTS|Count break on c1 skip 2 break on c2 skip 2 select to_char(s
n.begin_interval_time,'day') c1, count(1) c2 from dba_hist_sql_plan p, dba_hist_
sqlstat s, dba_hist_snapshot sn, dba_segments o where p.object_owner <> 'SYS' an
d p.object_owner = o.owner and p.object_name = o.segment_name and o.blocks > 100
0 and p.operation like '%TABLE ACCESS%' and p.options like '%FULL%' and p.sql_id
= s.sql_id and s.snap_id = sn.snap_id group by to_char(sn.begin_interval_time,'
day') order by 1; format a20 format 999,999
------awr_sql_scan_sums.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk.

-- To license this script for a commercial purpose, -- contact [email protected] - ************************************************* col col col col c1 c2 c3 c4
heading heading heading heading Begin|Interval|Time
format Large|Table|Full Table|Sca
format Small|Table|Full Table|Scans format Total|Index|Scans
format a20 999,999 99
,999

select f.c1 c1, f.c2 c2, s.c2 c3, i.c2 c4 from ( select to_char(sn.begin_interva
l_time,'yy-mm-dd hh24') c1, count(1) c2 from dba_hist_sql_plan p, dba_hist_sqlst
at s, dba_hist_snapshot sn, dba_segments o where p.object_owner <> 'SYS' and p.o
bject_owner = o.owner and p.object_name = o.segment_name and o.blocks > 1000 and
p.operation like '%TABLE ACCESS%' and p.options like '%FULL%' and p.sql_id = s.
sql_id and s.snap_id = sn.snap_id group by to_char(sn.begin_interval_time,'yy-mm
-dd hh24') order by 1 ) f, ( select to_char(sn.begin_interval_time,'yy-mm-dd hh2
4') c1, count(1)
c2 from dba_hist_sql_plan p, dba_hist_sqlstat s, d
re p.object_owner <> 'SYS' and p.object_owner = o.owner and p.object_name = o.se
gment_name

and o.blocks < 1000 and p.operation like '%INDEX%' and p.sql_id = s.sql_id and s
.snap_id = sn.snap_id group by to_char(sn.begin_interval_time,'yy-mm-dd hh24') o
rder by 1 ) s, ( select to_char(sn.begin_interval_time,'yy-mm-dd hh24') c1, coun
t(1)
c2 from dba_hist_sql_plan p, dba_hist_sqlstat s, dba_hist_snapshot sn
'SYS' and p.operation like '%INDEX%' and p.sql_id = s.sql_id and s.snap_id = sn
.snap_id group by to_char(sn.begin_interval_time,'yy-mm-dd hh24') order by 1 ) i
where f.c1 = s.c1 and f.c1 = i.c1 ;
---------awr_sql_full_scans_avg_dy.sql *************************************************
Copyright 2005 by Rampant TechPress This script is free for non-commercial purpo
ses with no warranties. Use at your own risk. To license this script for a comme
rcial purpose, contact [email protected] *****************************************
********
format a20 col c1 heading Begin|Interval|Time col c2 heading Index|Table|Scans f
ormat 999,999 col c3 heading Full|Table|Scans format 999,999 select i.c1 c1, i.c
2 c2, f.c2 c3

from ( select to_char(sn.begin_interval_time,'day') c1, count(1) c2 from dba_his

t_sql_plan p, dba_hist_sqlstat s, dba_hist_snapshot sn where p.object_owner <> '
SYS' and p.operation like '%TABLE ACCESS%' and p.options like '%INDEX%' and p.sq
l_id = s.sql_id and s.snap_id = sn.snap_id group by to_char(sn.begin_interval_ti
me,'day') order by 1 ) i, ( select to_char(sn.begin_interval_time,'day') c1, cou
nt(1) c2 from dba_hist_sql_plan p, dba_hist_sqlstat s, dba_hist_snapshot sn wher
e p.object_owner <> 'SYS' and p.operation like '%TABLE ACCESS%' and p.options =
'FULL' and p.sql_id = s.sql_id and s.snap_id = sn.snap_id group by to_char(sn.be
gin_interval_time,'day') order by 1 ) f where i.c1 = f.c1 ;
-------ash_hot_objects.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose,

-- contact [email protected] -- *************************************************

select o.owner, o.object_name, o.object_type, SUM(h.wait_time + h.time_waited) "
total wait time" from v$active_session_history h, dba_objects o, v$event_name e
where h.current_obj# = o.object_id and e.event_id = h.event_id and e.wait_class
<> 'Idle' group by o.owner, o.object_name, o.object_type order by 4 DESC;
---------sgasize.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* db_size_i
n_mb - db_caches db_buffers_in_mb, db_caches db_caches_mb, fixed_size_in_mb, lb_
size_in_mb, sp_size_in_mb, lp_size_in_mb, jp_size_in_mb
select
from (select round (max(a.bytes) / 1024 / 1024, 2) db_size_in_mb from sys.v_$sga
stat a where (a.name = 'db_block_buffers' or a.name = 'buffer_cache')), (select n
vl(round (sum (b.value) / 1024 / 1024, 2),0) db_caches from sys.v_$parameter b wh
ere b.name like '%k_cache_size'), (select

round (sum (b.bytes) / 1024 / 1024, 2) fixed_size_in_mb from sys.v_$sgastat b whe

re b.name = 'fixed_sga'), (select round (sum (c.bytes) / 1024 / 1024, 2) lb_size
_in_mb from sys.v_$sgastat c where c.name= 'log_buffer' ), (select round (sum (d.
value) / 1024 / 1024, 2) sp_size_in_mb from sys.v_$parameter d where d.name = 'sh
ared_pool_size'), (select round (sum (e.value) / 1024 / 1024, 2) lp_size_in_mb f
rom sys.v_$parameter e where e.name = 'large_pool_size' ), (select round (sum (f.
value) / 1024 / 1024, 2) jp_size_in_mb from sys.v_$parameter f where f.name = 'ja
va_pool_size');
---------memsnap.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* buffer_hi
t_ratio, percent_shared_pool_free, lib_cache_hit_ratio, object_reloads, dd_cache
_hit_ratio, redo_log_space_waits, redo_log_space_wait_time, mem_sort_ratio, pars
e_execute_ratio, buffer_busy_waits, latch_miss_ratio
select
from (select 100 100 *

(round ((sum (decode (name, 'physical reads', value, 0)) sum (decode (name, 'phy
sical reads direct', value, 0)) sum (decode (name, 'physical reads direct (lob)'
, value, 0))) / (sum (decode (name, 'session logical reads', value, 1))),3)) buf
fer_hit_ratio from sys.v_$sysstat where name in ('session logical reads', 'physica
l reads direct (lob)', 'physical reads', 'physical reads direct')), (select roun
d (100 * (free_bytes / shared_pool_size), 2) percent_shared_pool_free from (sele
ct sum (bytes) free_bytes from sys.v_$sgastat where name = 'free memory' and poo
l = 'shared pool'), (select value shared_pool_size from sys.v_$parameter where n
ame = 'shared_pool_size')), (select 100 - round ((sum (reloads) / sum (pins)) *
100, 2) lib_cache_hit_ratio from sys.v_$librarycache), (select 100 - round ((sum
(getmisses) / (sum (gets) + sum (getmisses)) * 100), 2) dd_cache_hit_ratio from
sys.v_$rowcache), (select round ( (100 * b.value) / decode ((a.value + b.value)
, 0, 1, (a.value + b.value)),
2)mem_sort_ratio from v$sysstat a, v$sysstat b where a.n
me = 'sorts (disk)' and b.name = 'sorts (memory)'), (select round(100 * (sum (sy
s.v_$latch.misses) / sum (sys.v_$latch.gets)),2) latch_miss_ratio from sys.v_$latc
h), (select round (100 * (a.value - b.value) / decode (a.value, 0, 1, a.value),
2) parse_execute_ratio from sys.v_$sysstat a, sys.v_$sysstat b

where a.name = 'execute count' and b.name = 'parse count (hard)'), (select nvl(su
m(total_waits),0) buffer_busy_waits from sys.v_$system_event a, sys.v_$event_nam
e b where a.event = 'buffer busy waits' and a.event (+) = b.name), (select sum(r
eloads) object_reloads from sys.v_$librarycache), (select value redo_log_space_w
aits from sys.v_$sysstat where name = 'redo log space requests'), (select value
redo_log_space_wait_time from sys.v_$sysstat where name = 'redo log space wait t
ime');
---------poolhit.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* name, 100
* (1 - (physical_reads / (db_block_gets + consistent_gets))) hit_ratio
select
from

sys.v$buffer_pool_statistics where db_block_gets + consistent_gets > 0;

-cacheadvice.sql -- ************************************************* -- Copyrig

ht 2005 by Rampant TechPress -- This script is free for non-commercial purposes

-----with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
**** size_for_estimate, buffers_for_estimate, estd_physical_read_factor, estd_ph
ysical_reads
select
from sys.v_$db_cache_advice where name = 'DEFAULT'and block_size = (select value
from sys.v_$parameter
where name = 'db_block_size') and advice_status = 'ON';
---------cacheobjcnt.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* decod
e(cachehint, 0, 'default', 1, 'keep', 2, 'recycle', null) cache, count(*) object
s
select
from sys.seg$ s where s.user# in (select user# from sys.user$ where name not in
('sys','system')) group by decode(cachehint, 0, 'default', 1, 'keep', 2, 'recycl
e', null) order by 1;

---------buffutl.sql ************************************************* Copyright 2005 by

Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* 'free' bu
ffer_state, nvl(sum(blocksize) / 1024 ,0) amt_kb
select from sys.x$bh a, sys.ts$ b where state = 0 and a.ts# = b.ts# union all se
lect 'read/mod' buffer_state, nvl(sum(blocksize) / 1024 ,0) amt_kb from sys.x$bh
a, sys.ts$ b where state = 1 and
a.ts# = b.ts# union all select 'read/notmod', nvl
(sum(blocksize) / 1024 ,0) amt_kb from sys.x$bh a, sys.ts$ b where state = 2 and
a.ts# = b.ts# union all select 'being read' buffer_state,
nvl(sum(blocksize) / 1024
,0) amt_kb from sys.x$bh a, sys.ts$ b where state = 3 and a.ts# = b.ts# order b
y 1;
-libdet.sql

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc ************************************************* namespace, gets, round
(gethitratio*100,2) gethitratio, pins, round(pinhitratio*100,2) pinhitratio, rel
oads, invalidations
select
from sys.v_$librarycache order by 1;
---------libwait.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* b.name, n
vl(max(a.total_waits),0)
select from sys.v_$system_event a, sys.v_$event_name b where a.event (+) = b.nam
e and b.name in ('latch free','library cache load lock', 'library cache lock','l
ibrary cache pin') group by b.name
-------libobj.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose,

-- contact [email protected] -- *************************************************

select owner, name, type, sharable_mem, loads, executions, locks, pins, kept from
sys.v_$db_object_cache order by type asc;
---------dictdet.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* parameter
, usage, gets, getmisses, 100 - round((getmisses/ (gets + getmisses) * 100),2) h
it_ratio
select
from sys.v_$rowcache where gets + getmisses <> 0 order by 5 desc;
---------shared_pool.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select sum(a.bytes)/(1024*1024) shared_pool_used,

max(b.value)/(1024*1024) shared_pool_size XE "shared_pool_size" , max(b.value)/(

1024*1024))-((sum(a.bytes)/(1024*1024)) shared_pool_avail, (sum(a.bytes)/max(b.v
alue))*100 shared_pool_pct from v$sgastat a, v$parameter b where a.pool = shared
pool and a.name != free memory and b.name='shared_pool_size XE "shared_pool_siz
e" ';
---------sql_summary.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
create or replace view sql_summary as select username, sharable_mem, persistent_
mem, runtime_mem from sys.v_$sqlarea a, dba_users b where a.parsing_user_id = b.
user_id;
---------sqlsum.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] ************************************************* areas shar
able persistent runtime username format format format format 999,999,999 999,999
,999 999,999,999 a15 heading heading heading heading heading Used|Areas Shared|B
ytes Persistent|Bytes Runtime|Bytes "User"
column column column column column

column mem_sum
format 999,999,999
heading Mem|Sum
ttitle "Users SQL Area Memory Use" spool sqlsum set pages 59 lines 80 break on r
eport compute compute compute compute sum sum sum sum of of of of sharable on re
port persistent on report runtime on report mem_sum on report
select username, sum(sharable_mem) Sharable, sum( persistent_mem) Persistent, su
m( runtime_mem) Runtime , count(*) Areas, sum(sharable_mem+persistent_mem+runtim
e_mem) Mem_sum from sql_summary group by username order by 2; spool off pause Pr
ess enter to continue clear columns clear breaks set pages 22 lines 80 ttitle of
f
-sqlmem.sql -- ************************************************* -- Copyright 20
05 by Rampant TechPress -- This script is free for non-commercial purposes -- wi
th no warranties. Use at your own risk. --- To license this script for a commerc
ial purpose, -- contact [email protected] -- *************************************
************ column sql_text format a60 heading Text word_wrapped column sharabl
e_mem heading Shared|Bytes column persistent_mem
heading Persistent|Bytes column loa
ds heading Loads column users format a15 heading "User" column executions headin
g "Executions" column users_executing heading "Used By" ttitle "Users SQL Area M
emory Use" spool sqlmem set long 2000 pages 59 lines 132 break on users compute
sum of sharable_mem on users compute sum of persistent_mem on users compute sum
of runtime_mem on users

select username users, sql_text, Executions, loads, users_executing, sharable_mem

, persistent_mem from sys.v_$sqlarea a, dba_users b where a.parsing_user_id = b.
user_id and b.username like upper('%&user_name%') order by 3 desc,1; spool off pa
use Press enter to continue clear columns clear computes clear breaks set pages
22 lines 80
---------sql_garbage.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
REM View to sort SQL into GOOD and GARBAGE REM CREATE OR REPLACE VIEW sql_garbag
e AS SELECT b.username users, SUM(a.sharable_mem+a.persistent_mem) Garbage, TO_N
UMBER(null) good FROM sys.v_$sqlarea a, dba_users b WHERE (a.parsing_user_id = b
.user_id and a.executions<=1) GROUP BY b.username UNION SELECT DISTINCT b.userna
me users, TO_NUMBER(null) garbage, SUM(c.sharable_mem+c.persistent_mem) Good FRO
M dba_users b, sys.v_$sqlarea c WHERE (b.user_id = c.parsing_user_id and c.execu
tions>1) GROUP BY b.username; column garbage format a14 heading 'Non-Shared SQL'
column good format a14 heading 'Shared SQL' column good_percent format a14 head
ing 'Percent Shared' column users format a14 heading users column nopr noprint s
et feedback off ttitle 'Shared Pool Utilization' spool sql_garbage select 1 nopr
, a.users users, to_char(a.garbage,'9,999,999,999') garbage, to_char(b.good,'9,9
99,999,999') good, to_char((b.good/(b.good+a.garbage))*100,'9,999,999.999') good
_percent from sql_garbage a, sql_garbage b

where a.users=b.users and a.garbage is not null and b.good is not null union sel
ect 2 nopr, '-------------' users, '--------------' garbage, '--------------' go
od, '--------------' good_percent from dual union select 3 nopr, to_char(count(a
.users)) users, to_char(sum(a.garbage),'9,999,999,999') garbage, to_char(sum(b.g
ood),'9,999,999,999') good, to_char(((sum(b.good)/(sum(b.good)+sum(a.garbage)))*
100), '9,999,999.999') good_percent from sql_garbage a, sql_garbage b where a.us
ers=b.users and a.garbage is not null and b.good is not null order by 1,3 desc /
spool off
---------similar_sql.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
set lines 140 pages 55 verify off feedback off col num_of_times heading 'Number|
Of|Repeats' col SQL heading 'SubString width - &&chars Characters' col username
format a15 heading 'User' ttitle 'Similar SQL' spool similar_sql&&chars select b
.username,substr(a.sql_text,1,&&chars) SQL, count(a.sql_text) num_of_tim es from
v$sqlarea a, dba_users b where a.parsing_user_id=b.user_id group by b.username,
substr(a.sql_text,1,&&chars) having count(a.sql_text)>&&num_ repeats order by co
unt(a.sql_text) desc / spool off undef chars undef num_repeats clear columns set
lines 80 pages 22 verify on feedback on ttitle off
-Flush_it_proc.sql

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc *************************************************
CREATE OR REPLACE PROCEDURE flush_it( p_free IN NUMBER, num_runs IN NUMBER) IS CURSOR get_share IS SELECT LEAST(MAX(b.value)/(1024*1024),SUM(a.bytes)/(1024*102
4)) FROM v$sgastat a, v$parameter b WHERE (a.pool='shared pool' AND a.name <> ('fr
ee memory')) AND b.name = 'shared_pool_size'; -CURSOR get_var IS SELECT value/(102
4*1024) FROM v$parameter WHERE name = 'shared_pool_size'; -CURSOR get_time IS SELEC
T sysdate FROM dual; --- Following cursors from Steve Adams Nice_flush -CURSOR r
eused_cursors IS SELECT address || ',' || hash_value FROM sys.v_$sqlarea WHERE e
xecutions > num_runs; cursor_string varchar2(30); -CURSOR cached_sequences IS SE
LECT sequence_owner, sequence_name FROM sys.dba_sequences WHERE cache_size > 0;
sequence_owner varchar2(30); sequence_name varchar2(30); -CURSOR candidate_objec
ts IS SELECT kglnaobj, decode(kglobtyp, 6, 'Q', 'P') FROM sys.x_$kglob WHERE ins
t_id = userenv('Instance') AND kglnaown = 'SYS' AND kglobtyp in (6, 7, 8, 9); ob
ject_name varchar2(128); object_type char(1); --- end of Steve Adams Cursors -to
days_date DATE; mem_ratio NUMBER; share_mem NUMBER; variable_mem NUMBER; cur INT
EGER; sql_com VARCHAR2(60); row_proc NUMBER;

-BEGIN OPEN get_share; OPEN get_var; FETCH get_share INTO share_mem; FETCH get_var I
NTO variable_mem; mem_ratio:=share_mem/variable_mem; IF mem_ratio>p_free/100 THEN - - Following keep sections from Steve Adams nice_flush - BEGIN OPEN reused_cursors;
LOOP FETCH reused_cursors INTO cursor_string; EXIT WHEN reused_cursors%notfound;
sys.dbms_shared_pool.keep(cursor_string, 'C'); END LOOP; END; BEGIN OPEN cached_s
equences; LOOP FETCH cached_sequences INTO sequence_owner, sequence_name; EXIT W
HEN cached_sequences%notfound; sys.dbms_shared_pool.keep(sequence_owner || '.' |
| sequence_name, 'Q'); END LOOP; END; BEGIN OPEN candidate_objects; LOOP FETCH cand
idate_objects INTO object_name, object_type; EXIT WHEN candidate_objects%notfoun
d; sys.dbms_shared_pool.keep('SYS.' || object_name, object_type); END LOOP; END; - - end of Steve Adams section -cur:=DBMS_SQL.OPEN_CURSOR; sql_com:='ALTER SYSTEM F
LUSH SHARED_POOL'; DBMS_SQL.PARSE(cur,sql_com,dbms_sql.v7); row_proc:=DBMS_SQL.E
XECUTE(cur); DBMS_SQL.CLOSE_CURSOR(cur); OPEN get_time; FETCH get_time INTO toda
ys_date; INSERT INTO dba_running_stats VALUES ( 'Flush of Shared Pool',1,35,toda
ys_date,0 ); COMMIT; END IF; END flush_it;
-Gen_keep.sql
-- *************************************************

-------Copyright 2005 by Rampant TechPress This script is free for non-commercial purpo
ses with no warranties. Use at your own risk. To license this script for a commer
cial purpose, contact [email protected] ******************************************
*******
set lines 132 feedback off verify off set pages 0 spool keep_them.sql select 'ex
ecute dbms_shared_pool.keep('||chr(39)||OWNER||'.'||name||chr(39)||', '|| chr(39
)|| decode(type,'PACKAGE','P','PROCEDURE','P','FUNCTION','P','SEQUENCE','Q', 'TR
IGGER','R')||chr(39)||')' from v$db_object_cache where type not in ('NOT LOADED','
NON-EXISTENT','VIEW','TABLE', 'INVALID TYPE','CURSOR','PACKAGE BODY') and executi
ons>loads and executions>1 and kept='NO' order by owner,namespace,type,execution
s desc / spool off
---------keep_them.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* dbms_sh
ared_pool.keep('APPS.WF_PARAMETER_T','') dbms_shared_pool.keep('APPS.WF_EVENT_T'
,'') dbms_shared_pool.keep('APPS.WF_AGENT_T','') dbms_shared_pool.keep('APPS.BOS
S_GET_EMP_NAME','P') dbms_shared_pool.keep('APPS.BEN_PEN_BUS','P') dbms_shared_p
ool.keep('APPS.PAY_ELE_SHD','P') dbms_shared_pool.keep('APPS.PSB_HR_POPULATE_DAT
A_PVT','P') dbms_shared_pool.keep('APPS.BEN_ENROLLMENT_ACTION_ITEMS','P') dbms_s
hared_pool.keep('APPS.FND_REQUEST_SET','P') dbms_shared_pool.keep('APPS.BOSS_REC
EIPT','P') dbms_shared_pool.keep('APPS.BEN_ELIG_DPNT_WHO','R') dbms_shared_pool.
keep('APPS.BEN_ELIG_PER_ELCTBL_CHC_WHO','R') dbms_shared_pool.keep('APPS.BEN_ELI
G_PER_OPT_F_WHO','R') dbms_shared_pool.keep('APPS.GHR_PAY_ELEMENT_ENTVAL_F_AFIUD
','R') dbms_shared_pool.keep('APPS.BEN_ENRT_RT_WHO','R') dbms_shared_pool.keep('
APPS.BEN_ELIG_PER_F_WHO','R')
execute execute execute execute execute execute execute execute execute execute
execute execute execute execute execute execute

---------ddcache.sql ************************************************* Copyright 2005 by

Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] *************************************************
ttitle "DD Cache Hit Ratio" spool ddcache SELECT (SUM(getmisses)/SUM(gets))*100
RATIO FROM v$rowcache; spool off pause Press enter to continue ttitle off
---------bufobjwaits.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* owner
, object_name, object_type, value waits
select
from sys.v_$segment_statistics where (statistic_name = 'buffer busy waits' and v
alue > 0) order by 1,2;
------libcachhist.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk.

-- To license this script for a commercial purpose, -- contact [email protected] - ************************************************* select to_char(end_time, 'YY
YY-MON-DD HH:MI:SS') end_time, value, metric_unit from sys.v_$sysmetric_history
where metric_name = 'Library Cache Hit Ratio' order by 1
---------lib_cache_int_10g.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select b.namespace "Name Space" , e.gets - b.gets "Get Requests" , to_number(dec
ode(e.gets,b.gets,null, 100 - (e.gethits - b.gethits) * 100/(e.gets - b.gets)))
"Get Pct Miss" , e.pins - b.pins "Pin Requests" , to_number(decode(e.pins,b.pins
,null, 100 - (e.pinhits - b.pinhits) * 100/(e.pins - b.pins))) "Pin Pct Miss" ,
e.reloads - b.reloads "Reloads" , e.invalidations - b.invalidations "Invalidatio
ns" from dba_hist_librarycache b , dba_hist_librarycache e where b.snap_id = &pBg
nSnap and e.snap_id = &pEndSnap and b.dbid = &pDbId and e.dbid = &pDbId and b.db
id = e.dbid and b.instance_number = &pInstNum and e.instance_number = &pInstNum
and b.instance_number = e.instance_number and b.namespace = e.namespace
----rowcache_int_10g.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk.

--- To license this script for a commercial purpose, -- contact [email protected]

-- ************************************************* select param "Parameter", g
ets "Get Requests", getm "Pct Miss", scans "Scan Requests", scanm "Pct Miss", mo
ds "Mod Req", usage "Final Usage" From (select lower(b.parameter) param , e.gets
- b.gets gets , to_number(decode(e.gets,b.gets,null, (e.getmisses - b.getmisses
) * 100/(e.gets - b.gets)))
getm , e.scans - b.scans scans , to_number(decode(e.sc
ans,b.scans,null, (e.scanmisses - b.scanmisses) * 100/(e.scans - b.scans))) scan
m , e.modifications - b.modifications
mods , e.usage usage from dba_hist_rowcache_su
mmary b , dba_hist_rowcache_summary e where b.snap_id = &pBgnSnap and e.snap_id =
&pEndSnap and b.dbid = &pDbId and e.dbid = &pDbId and b.dbid = e.dbid and b.ins
tance_number = &pInstNum and e.instance_number = &pInstNum and b.instance_number
= e.instance_number and b.parameter = e.parameter and e.gets - b.gets > 0 ) orde
r by param;
---------Buf_pool_int_10g.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pur
pose, contact [email protected] *************************************************
select name , numbufs "Number of Buffers" , buffs "Buffer Gets" , conget "Consis
tent Gets" , phread "Physical Reads" , phwrite "Physical Writes" , fbwait "Free
Buffer Waits" , bbwait "Buffer Busy Waits"

, wcwait "Write Complete Waits" , poolhr "Pool Hit %" From (select e.name , e.se
t_msize numbufs , decode( e.db_block_gets - nvl(b.db_block_gets,0) + e.consistent
_gets - nvl(b.consistent_gets,0) , 0, to_number(null) , (100* (1 - ( (e.physical
_reads - nvl(b.physical_reads,0))
/ ( e.db_block_gets - nvl(b.db_block_gets,0)
ets - nvl(b.consistent_gets,0)) ) ) ) )
poolhr , e.db_block_gets - nvl(b.d
stent_gets - nvl(b.consistent_gets,0) buffs , e.consistent_gets - nvl(b.consiste
nt_gets,0) conget , e.physical_reads - nvl(b.physical_reads,0) phread , e.physic
al_writes - nvl(b.physical_writes,0) phwrite , e.free_buffer_wait - nvl(b.free_b
uffer_wait,0) fbwait , e.write_complete_wait - nvl(b.write_complete_wait,0) wcwa
it , e.buffer_busy_wait - nvl(b.buffer_busy_wait,0) bbwait from dba_hist_buffer_
pool_stat b , dba_hist_buffer_pool_stat e where b.snap_id(+) = &pBgnSnap and e.sn
ap_id = &pEndSnap and b.dbid(+) = &pDbId and e.dbid
= &pDbId and b.dbid(+) = e.dbi
nstance_number(+) = &pInst_Num and e.instance_number = &pInst_Num and b.instance
_number(+) = e.instance_number and b.id(+) = e.id) order by 1
---------rpt_10g_lib_miss.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pur
pose, contact [email protected] *************************************************
set lines 80; set pages 999; column column column column mydate heading 'Yr. Mo
Dy Hr.' format a16 c1 heading "execs" format 9,999,999 c2 heading "Cache Misses|
While Executing" format 9,999,999 c3 heading "Library Cache|Miss Ratio" format 9
99.99999
break on mydate skip 2;

select to_char(sn.end_interval_time,'yyyy-mm-dd HH24') mydate, sum(new.pins-old.

pins) c1, sum(new.reloads-old.reloads) c2, sum(new.reloads-old.reloads)/ sum(new.
pins-old.pins) library_cache_miss_ratio from dba_hist_librarycache old, dba_hist
_librarycache new, dba_hist_snapshot sn where new.snap_id = sn.snap_id and old.s
nap_id = new.snap_id-1 and old.namespace = new.namespace group by to_char(sn.end
_interval_time,'yyyy-mm-dd HH24') ;
---------rpt_bhr_awr_hr.sql ************************************************* Copyright 2
005 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpo
se, contact [email protected] *************************************************
set pages 999; column bhr format 9.99 column mydate heading 'yr. mo dy Hr.' sele
ct to_char(snap_time,'HH24') mydate, avg( (((new.consistent_gets-old.consistent_
gets)+ (new.db_block_gets-old.db_block_gets))(new.physical_reads-old.physical_re
ads)) / ((new.consistent_gets-old.consistent_gets)+ (new.db_block_gets-old.db_bl
ock_gets)) ) bhr from dba_hist_buffer_pool_stat old, dba_hist_buffer_pool_stat n
ew, dba_hist_sga sn where new.name in ('DEFAULT','FAKE VIEW') and new.name = old
.name and new.snap_id = sn.snap_id

and old.snap_id = sn.snap_id-1 and new.consistent_gets > 0 and old.consistent_ge

ts > 0 having avg( (((new.consistent_gets-old.consistent_gets)+ (new.db_block_ge
ts-old.db_block_gets))(new.physical_reads-old.physical_reads)) / ((new.consisten
t_gets-old.consistent_gets)+ (new.db_block_gets-old.db_block_gets)) ) < 1 group
by to_char(snap_time,'HH24') ;
--------rpt_bhr_awr_dy.sql ************************************************* Copyright 2
005 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpo
se, contact [email protected] *************************************************
set pages 999; column bhr format 9.99 column mydate heading 'yr. mo dy Hr.' sele
ct to_char(end_interval_time,'day') mydate, avg( (((new.consistent_gets-old.cons
istent_gets)+ (new.db_block_gets-old.db_block_gets))(new.physical_reads-old.phys
ical_reads)) / ((new.consistent_gets-old.consistent_gets)+ (new.db_block_gets-ol
d.db_block_gets)) ) bhr from dba_hist_buffer_pool_stat old, dba_hist_buffer_pool
_stat new, dba_hist_snapshot sn where new.name in ('DEFAULT','FAKE VIEW') and ne
w.name = old.name and new.snap_id = sn.snap_id and

old.snap_id = sn.snap_id-1 and new.consistent_gets > 0 and old.consistent_gets >

0 having avg( (((new.consistent_gets-old.consistent_gets)+ (new.db_block_gets-o
ld.db_block_gets))(new.physical_reads-old.physical_reads)) / ((new.consistent_ge
ts-old.consistent_gets)+ (new.db_block_gets-old.db_block_gets)) ) < 1 group by t
o_char(end_interval_time,'day') ;
---------get_keep_pool_awr.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select 'alter table '||p.owner||'.'||p.name||' storage (buffer_pool keep);' from
dba_tables t, dba_segments s, dba_hist_sqlstat a, (select distinct pl.sql_id, p
l.object_owner owner, pl.object_name name from dba_hist_sql_plan pl where pl.ope
ration = 'TABLE ACCESS' and pl.options = 'FULL') p where a.sql_id = p.sql_id and
t.owner = s.owner and t.table_name = s.segment_name and t.table_name = p.name a
nd t.owner = p.owner and t.owner not in ('SYS','SYSTEM')

and t.buffer_pool <> 'KEEP' having s.blocks < 50 group by p.owner, p.name, t.num
_rows, s.blocks UNION -- *******************************************************
**** -- Next, get the index names -- *******************************************
**************** select 'alter index '||owner||'.'||index_name||' storage (buffe
r_pool keep);' from dba_indexes where owner||'.'||table_name in ( select p.owner
||'.'||p.name from dba_tables t, dba_segments s, dba_hist_sqlstat a, (select distin
ct pl.sql_id, pl.object_owner owner, pl.object_name name from dba_hist_sql_plan
pl where pl.operation = 'TABLE ACCESS' and pl.options = 'FULL') p where a.sql_id
= p.sql_id and t.owner = s.owner and t.table_name = s.segment_name and t.table_
name = p.name and t.owner = p.owner and t.owner not in ('SYS','SYSTEM') and t.bu
ffer_pool <> 'KEEP' having s.blocks < 50 group by p.owner, p.name, t.num_rows, s
.blocks )

---------userscans.sql ************************************************* Copyright 2005 b

y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* sid, us
ername, total_user_scans, round(100 * total_user_scans/total_scans,2) pct_scans
select
from (select b.sid sid, nvl(b.username,p.name) username, sum(value) total_user_s
cans from sys.v_$statname c, sys.v_$sesstat a, sys.v_$session b,
sys.v_$bgprocess
p where a.statistic#=c.statistic# and p.paddr (+) = b.paddr and b.sid=a.sid and
c.name = 'table scans (long tables)' group by b.sid, nvl(b.username,p.name) orde
r by 3 desc), (select sum(value) total_scans from sys.v_$statname c, sys.v_$sesst
at a where a.statistic#=c.statistic# and c.name = 'table scans (long tables)');
-scatwait.sql -- ************************************************* -- Copyright
2005 by Rampant TechPress -- This script is free for non-commercial purposes -with no warranties. Use at your own risk. --- To license this script for a comme
rcial purpose, -- contact [email protected] -- ***********************************
************** select

b.sid, nvl(b.username,c.name) username, b.machine, a.total_waits, round((a.time_

waited / 100),2) time_wait_sec,a.total_timeouts, round((average_wait / 100),2) a
verage_wait_sec, round((a.max_wait / 100),2) max_wait_sec from sys.v_$session_ev
ent a, sys.v_$session b, sys.v_$bgprocess c where event = 'db file scattered read
' and a.sid = b.sid and c.paddr (+) = b.paddr order by 3 desc, 1 asc;
---------9ilarge_scanusers.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
c.username username, count(a.hash_value) scan_count
select from sys.v_$sql_plan a, sys.dba_segments b, sys.dba_users c, sys.v_$sql d
where a.object_owner (+) = b.owner and a.object_name (+) = b.segment_name and b
.segment_type in ('TABLE', 'TABLE PARTITIOn') and a.operation like '%TABLE%' and
a.options = 'FULL' and c.user_id = d.parsing_user_id and d.hash_value = a.hash_
value and b.bytes / 1024 > 1024 group by c.username order by 2 desc;

---------curriosql.sql ************************************************* Copyright 2005 b

y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* sid, us
ername, sql_text
select
from sys.v_$sqltext a, sys.v_$session b where b.sql_address = a.address and b.si
d = (select sid from (select b.sid sid, nvl(b.username,p.name) username, sum(val
ue) total_user_io from sys.v_$statname c, sys.v_$sesstat a, sys.v_$session b, sy
s.v_$bgprocess p where a.statistic#=c.statistic# and p.paddr (+) = b.paddr and b
.sid=a.sid and c.name in ('physical reads','physical writes', 'physical reads di
rect', 'physical reads direct (lob)', 'physical writes direct', 'physical writes
direct (lob)') group by b.sid, nvl(b.username,p.name) order by 3 desc) where ro
wnum < 2) order by a.piece;
-cartsession.sql

--------************************************************* Copyright 2005 by Rampant Tech

Press This script is free for non-commercial purposes with no warranties. Use at
your own risk. To license this script for a commercial purpose, contact info@ra
mpant.cc ************************************************* username, count(disti
nct c.hash_value) nbr_stmts
select from sys.v_$sql a,
sys.dba_users b, sys.v_$sql_plan c where a.parsing_user_
id = b.user_id and options = 'cartesian' and operation like '%join%' and a.hash_
value = c.hash_value group by username order by 2 desc;
---------cartsql.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* *
select from sys.v_$sql where hash_value in (select hash_value from sys.v_$sql_pl
an where options = 'CARTESIAN' and operation LIKE '%JOIN%' ) order by hash_value
;

---------top9isql.sql ************************************************* Copyright 2005 by

Rampant TechPress This script is free for non-commercial purposes with no warra
nties. Use at your own risk. To license this script for a commercial purpose, co
ntact [email protected] ************************************************* sql_text
, username , disk_reads_per_exec, buffer_gets_per_exec, buffer_gets , disk_read
s, parse_calls , sorts , executions , loads, rows_processed , hit_ratio, first_l
oad_time , sharable_mem , persistent_mem , runtime_mem, cpu_time_secs, cpu_time_
secs_per_execute, elapsed_time_secs, elapsed_time_secs_per_execute, address, has
h_value
select
from (select sql_text , b.username , round((a.disk_reads/ decode(a.executions,0,
1,a.executions)),2) disk_reads_per_exec, a.disk_reads , a.buffer_gets , round((a
.buffer_gets/ decode(a.executions,0,1,a.executions)),2) buffer_gets_per_exec, a.
parse_calls , a.sorts , a.executions , a.loads, a.rows_processed , 100 - round(1
00 * a.disk_reads/ greatest(a.buffer_gets,1),2) hit_ratio, a.first_load_time , s
harable_mem , persistent_mem , runtime_mem, round(cpu_time / 1000000,3) cpu_time
_secs, round((cpu_time / 1000000)/ decode(a.executions,0,1,a.executions),3)

cpu_time_secs_per_execute, round(elapsed_time / 1000000,3) elapsed_time_secs, ro

und((elapsed_time /
1000000)/decode(a.executions,0,1,a.executions),3) elapsed_time_
secs_per_execute, address, hash_value from sys.v_$sqlarea a, sys.all_users b whe
re a.parsing_user_id=b.user_id and b.username not in ('SYS','SYSTEM') order by 3
desc) where rownum < 21;
---------fullsql.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] *************************************************
select sql_text from sys.v_$sqltext where hash_value = <enter hash value for sql
statement> order by piece;
---------9icartcount.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* count
(distinct hash_value) cartesian_statements, count(*) total_cartesian_joins
select

from sys.v_$sql_plan where options = 'CARTESIAN' and operation like '%JOIN%';

---------9icartsql.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* *
select from sys.v_$sql where hash_value in (select hash_value from sys.v_$sql_plan
here options = 'CARTESIAN' AND operation LIKE '%JOIN%' ) order by hash_value;
---------9itabscan.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* sql_tex
t, total_large_scans, executions, executions * total_large_scans sum_large_scans
select
from (select sql_text,

count(*) total_large_scans, executions from sys.v_$sql_plan a, sys.dba_segments

b, sys.v_$sql c where a.object_owner (+) = b.owner a.object_name (+) = b.segment
_name b.segment_type in ('TABLE', 'TABLE PARTITION') a.operation like '%TABLE%'
a.options = 'FULL' c.hash_value = a.hash_value b.bytes / 1024 > 1024 by sql_text
, executions) order by 4 desc; and and and and and and group
---------9iplanstats.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no wa
rranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* opera
tion, options, object_owner, object_name, executions, last_output_rows, last_cr_
buffer_gets, last_cu_buffer_gets, last_disk_reads, last_disk_writes, last_elapse
d_time
select
from sys.v_$sql_plan a, sys.v_$sql_plan_statistics b where a.hash_value = b.hash
_value and a.id = b.operation_id and a.hash_value = <enter hash value> order by
a.id;

---------plan9i.sql ************************************************* Copyright 2005 by R

ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] *************************************************
set echo off; set feedback on set pages 999; column nbr_FTS column num_rows colu
mn blocks column owner column name column ch format format format format format
format 999,999 999,999,999 999,999 a14; a24; a1;
column object_owner heading "Owner" format a12; column ct heading "# of SQL sele
cts" format 999,999; select object_owner, count(*) ct from v$sql_plan where obje
ct_owner is not null group by object_owner order by ct desc ; --spool access.lst
; set heading off; set feedback off; set heading on; set feedback on; ttitle 'fu
ll table scans and counts| |The "K" indicates that the table is in th e KEEP Poo
l (Oracle8).' select p.owner, p.name, t.num_rows, -- ltrim(t.cache) ch, decode(t
.buffer_pool,'KEEP','Y','DEFAULT','N') K, s.blocks blocks, sum(a.executions) nbr
_FTS from dba_tables t, dba_segments s, v$sqlarea a, (select distinct

address, object_owner owner, object_name name from v$sql_plan where operation =

'TABLE ACCESS' and options = 'FULL') p where a.address = p.address and t.owner =
s.owner and t.table_name = s.segment_name and t.table_name = p.name and t.owner
= p.owner and t.owner not in ('SYS','SYSTEM') having sum(a.executions) > 9 grou
p by p.owner, p.name, t.num_rows, t.cache, t.buffer_pool, s.blocks order by sum(
a.executions) desc; column column column column nbr_RID num_rows owner name form
at format format format 999,999,999 999,999,999 a15; a25;
ttitle 'Table access by ROWID and counts' select p.owner, p.name, t.num_rows, su
m(s.executions) nbr_RID from dba_tables t, v$sqlarea s, (select distinct address
, object_owner owner, object_name name from v$sql_plan where operation = 'TABLE
ACCESS' and options = 'BY ROWID') p where s.address = p.address and t.table_name
= p.name and t.owner = p.owner having sum(s.executions) > 9

group by p.owner, p.name, t.num_rows order by sum(s.executions) desc; --********

***************************************** -- Index Report Section --************
************************************* column column column column column column
nbr_scans num_rows tbl_blocks owner table_name index_name format format format f
ormat format format 999,999,999 999,999,999 999,999,999 a9; a20; a20;
ttitle 'Index full scans and counts' select p.owner, d.table_name, p.name index_
name, seg.blocks tbl_blocks, sum(s.executions) nbr_scans from dba_segments seg,
v$sqlarea s, dba_indexes d, (select distinct address, object_owner owner, object
_name name from v$sql_plan where operation = 'INDEX' and options = 'FULL SCAN')
p where d.index_name = p.name and s.address = p.address and d.table_name = seg.s
egment_name and seg.owner = p.owner having sum(s.executions) > 9 group by p.owne
r, d.table_name, p.name, seg.blocks order by sum(s.executions) desc; ttitle 'Ind
ex range scans and counts' select p.owner, d.table_name, p.name index_name, seg.
blocks tbl_blocks, sum(s.executions) nbr_scans

from dba_segments seg, v$sqlarea s, dba_indexes d, (select distinct address, obj

ect_owner owner, object_name name from v$sql_plan where operation = 'INDEX' and
options = 'RANGE SCAN') p where d.index_name = p.name and s.address = p.address
and d.table_name = seg.segment_name and seg.owner = p.owner having sum(s.executi
ons) > 9 group by p.owner, d.table_name, p.name, seg.blocks order by sum(s.execu
tions) desc; ttitle 'Index unique scans and counts' select p.owner, d.table_name
, p.name index_name, sum(s.executions) nbr_scans from v$sqlarea s, dba_indexes d
, (select distinct address, object_owner owner, object_name name from v$sql_plan
where operation = 'INDEX' and options = 'UNIQUE SCAN') p where d.index_name = p
.name and s.address = p.address having sum(s.executions) > 9 group by p.owner, d
.table_name, p.name order by sum(s.executions) desc;

---------9iexpl.sql ************************************************* Copyright 2005 by R

ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] ************************************************* lpad(' ',l
evel-1)||operation||' '||options||' '|| object_name "Plan", cost, cardinality, b
ytes, io_cost, cpu_cost from sys.v_$sql_plan connect by prior id = parent_id and
prior hash_value = hash_value start with
id = 0 and hash_value = <enter hash value>
order by id;
select
---------9iltabscan.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select table_owner, table_name, table_type, size_kb, statement_count, reference_
count, executions, executions * reference_count total_scans from (select a.objec
t_owner table_owner,

a.object_name table_name, b.segment_type table_type, b.bytes / 1024 size_kb, sum

(c.executions ) executions, count( distinct a.hash_value ) statement_count, coun
t( * ) reference_count from sys.v_$sql_plan a, sys.dba_segments b, sys.v_$sql c
where a.object_owner (+) = b.owner and a.object_name (+) = b.segment_name and b.
segment_type in ('TABLE', 'TABLE PARTITION') and a.operation like '%TABLE%' and
a.options = 'FULL' and a.hash_value = c.hash_value and b.bytes / 1024 > 1024 gro
up by a.object_owner, a.object_name, a.operation, b.bytes / 1024, b.segment_type
order by 4 desc, 1, 2 );
---------9iunused_indx.sql ************************************************* Copyright 20
05 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpos
e, contact [email protected] *************************************************
select distinct a.object_owner table_owner, a.object_name table_name, b.segment_
type table_type, b.bytes / 1024 size_kb, d.index_name from sys.v_$sql_plan a, sy
s.dba_segments b, sys.dba_indexes d where a.object_owner (+) = b.owner and a.obj
ect_name (+) = b.segment_name and b.segment_type in ('TABLE', 'TABLE PARTITION')
and a.operation like '%TABLE%' and a.options = 'FULL' and b.bytes / 1024 > 1024
and b.segment_name = d.table_name and b.owner = d.table_owner order by 1, 2;

-high_sql_buf_gets.sql -- ************************************************* -- Co
pyright 2005 by Rampant TechPress -- This script is free for non-commercial purp
oses -- with no warranties. Use at your own risk. --- To license this script for
a commercial purpose, -- contact [email protected] -- ***************************
********************** select sql_id , buffer_gets_total "Buffer Gets" , executi
ons_total "Executions" , buffer_gets_total/executions_total "Gets / Exec" , pct*
100 "% Total" , cpu_time_total/1000000 "CPU Time (s)" , elapsed_time_total/10000
00 "Elapsed Time (s)" , module "SQL Module" , stmt "SQL Statement" from (select
e.sql_id sql_id , e.buffer_gets_total - nvl(b.buffer_gets_total,0) buffer_gets_t
ot al , e.executions_total - nvl(b.executions_total,0) executions_total , (e.buf
fer_gets_total - nvl(b.buffer_gets_total,0))/ ( select e1.value - nvl(b1.value,0
) from dba_hist_sysstat b1 , dba_hist_sysstat e1 where b1.snap_id(+) = b.snap_id a
nd e1.snap_id = e.snap_id and b1.dbid(+) = b.dbid
and e1.dbid = e.dbid and b1.inst
er(+) = b.instance_number and e1.instance_number = e.instance_number and b1.stat
_id = e1.stat_id and e1.stat_name = 'session logical reads' ) pct , e.elapsed_ti
me_total - nvl(b.elapsed_time_total,0) elapsed_time_ total , e.cpu_time_total nvl(b.cpu_time_total,0) cpu_time_total
, e.module , t.sql_text stmt from dba_hist_sqls
tat e , dba_hist_sqlstat b , dba_hist_sqltext t where b.snap_id(+) = @pBgnSnap a
nd b.dbid(+) = e.dbid and b.instance_number(+) = e.instance_number and b.sql_id(
+) = e.sql_id and e.snap_id = &pEndSnap and e.dbid = &pDBId and e.instance_numbe
r = &pInstNum and (e.executions_total - nvl(b.executions_total,0)) > 0 and t.sql
_id = b.sql_id )

order by 2 desc
---------top_sql_waits.sql ************************************************* Copyright 20
05 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpos
e, contact [email protected] *************************************************
select ash.user_id, u.username, sqla.sql_text, sum(ash.wait_time + ash.time_wait
ed) wait_time from v$active_session_history ash, v$sqlarea sqla, dba_users u whe
re ash.sample_time > sysdate-1 and ash.sql_id = sqla.sql_id and ash.user_id = u.
user_id group by ash.user_id, sqla.sql_text, u.username order by 4;
---------obj_wait_ash.sql ************************************************* Copyright 200
5 by Rampant TechPress This script is free for non-commercial purposes with no w
arranties. Use at your own risk. To license this script for a commercial purpose
, contact [email protected] *************************************************
select obj.object_name, obj.object_type, ash.event, sum(ash.wait_time + ash.time
_waited) wait_time from v$active_session_history ash,

dba_objects obj where ash.sample_time > sysdate -1 and ash.current_obj# = obj.ob

ject_id group by obj.object_name, obj.object_type, ash.event order by 4 desc;
---------awr_high_scan_sql.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select c.username username, count(a.hash_value) scan_count from sys.v_$sql_plan
a, sys.dba_segments b, sys.dba_users c, sys.v_$sql d where a.object_owner (+) =
b.owner and a.object_name (+) = b.segment_name and b.segment_type IN ('TABLE', '
TABLE PARTITION') and a.operation like '%TABLE%' and a.options = 'FULL' and c.us
er_id = d.parsing_user_id and d.hash_value = a.hash_value and b.bytes / 1024 > 1
024 group by c.username order by 2 desc ;

---------awr_high_resource_sql.sql ************************************************* Copy

right 2005 by Rampant TechPress This script is free for non-commercial purposes
with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
****
select sql_text, username, disk_reads_per_exec, buffer_gets, disk_reads, parse_c
alls, sorts, executions, rows_processed, hit_ratio, first_load_time, sharable_me
m, persistent_mem, runtime_mem, cpu_time, elapsed_time, address, hash_value from
(select sql_text , b.username , round((a.disk_reads/decode(a.executions,0,1, a.ex
ecutions)),2) disk_reads_per_exec, a.disk_reads , a.buffer_gets , a.parse_calls
, a.sorts , a.executions , a.rows_processed , 100 - round(100 * a.disk_reads/gre
atest(a.buffer_gets,1),2) hit_ratio, a.first_load_time , sharable_mem , persiste
nt_mem , runtime_mem, cpu_time, elapsed_time, address, hash_value from sys.v_$sql
area a, sys.all_users b where a.parsing_user_id=b.user_id and b.username not in
('sys','system') order by 3 desc)

where rownum < 21

---------awr_cartesian_sum.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select count(distinct hash_value) carteisan_statements, count(*) total_cartesian
_joins from sys.v_$sql_plan where options = 'CARTESIAN' and operation like '%JOI
N%'
---------awr_sql_cartesian.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
select * from sys.v_$sql where hash_value in (select hash_value from sys.v_$sql_
plan where options = 'CARTESIAN' and operation LIKE '%JOIN%' ) order by hash_val
ue;

---------awr_large_scan_count.sql ************************************************* Copyr

ight 2005 by Rampant TechPress This script is free for non-commercial purposes w
ith no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] **********************************************
***
select sql_text, total_large_scans, executions, executions * total_large_scans s
um_large_scans from (select sql_text, count(*) total_large_scans, executions from
sys.v_$sql_plan a, sys.dba_segments b, sys.v_$sql c where a.object_owner (+) = b
.owner and a.object_name (+) = b.segment_name and b.segment_type IN ('TABLE', 'T
ABLE PARTITION') and a.operation LIKE '%TABLE%' and a.options = 'FULL' and c.has
h_value = a.hash_value and b.bytes / 1024 > 1024 group by sql_text, executions)
order by 4 desc ;
-------awr_sqlstat_deltas.sql ************************************************* Copyrig
ht 2005 by Rampant TechPress This script is free for non-commercial purposes wit
h no warranties. Use at your own risk. To license this script for a commercial p
urpose,

-- contact [email protected] -- *************************************************

col col col col col col col col c1 c2 c3 c4 c5 c6 c7 c8 heading heading heading
heading heading heading heading heading Begin|Interval|time SQL|ID Exec|Delta Bu
ffer|Gets|Delta Disk|Reads|Delta IO Wait|Delta Application|Wait|Delta Concurrenc
y|Wait|Delta format format format format format format format format a8 a13 9,99
9 9,999 9,999 9,999 9,999 9,999
break on c1 select to_char(s.begin_interval_time, mm-dd hh24 ) c1, sql.sql_id c2
, sql.executions_delta c3, sql.buffer_gets_delta c4, sql.disk_reads_delta c5, sq
l.iowait_delta c6, sql.apwait_delta c7, sql.ccwait_delta c8 from dba_hist_sqlsta
t sql, dba_hist_snapshot s where s.snap_id = sql.snap_id order by c1, c2 ;
---------awr_sqlstat_deltas_detail.sql *************************************************
Copyright 2005 by Rampant TechPress This script is free for non-commercial purpo
ses with no warranties. Use at your own risk. To license this script for a comme
rcial purpose, contact [email protected] *****************************************
******** c1 c2 c3 c4 c5 c6 c7 c8 c9 heading heading heading heading heading head
ing heading heading heading Begin|Interval|time Exec|Delta Buffer|Gets|Delta Dis
k|Reads|Delta IO Wait|Delta App|Wait|Delta Cncr|Wait|Delta CPU|Time|Delta Elpsd|
Time|Delta format format format format format format format format format a8 999
,999 999,999 9,999 9,999 9,999 9,999 999,999 999,999
col col col col col col col col col
accept sqlid prompt Enter SQL ID:

ttitle
time series execution for|&sqlid
break on c1 select to_char(s.begin_interval_time, mm-dd hh24 ) c1, sql.execution
s_delta c2, sql.buffer_gets_delta c3, sql.disk_reads_delta c4, sql.iowait_delta
c5, sql.apwait_delta c6, sql.ccwait_delta c7, sql.cpu_time_delta c8, sql.elapsed
_time_delta c9 from dba_hist_sqlstat sql, dba_hist_snapshot s where s.snap_id = s
ql.snap_id and sql_id = &sqlid order by c1 ;
---------awr_high_cost_sql.sql ************************************************* Copyrigh
t 2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pu
rpose, contact [email protected] *************************************************
format a13 format 9,999,999 format a200
col c1 heading SQL|ID col c2 heading Cost col c3 heading SQL Text select p.sql_i
d c1, p.cost c2, to_char(s.sql_text) c3 from dba_hist_sql_plan p, dba_hist_sqlte
xt s where p.id = 0 and p.sql_id = s.sql_id and p.cost is not null

order by p.cost desc ;

---------awr_sql_details.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] ************************************************* P
lease enter SQL ID: format format format format format a20 a20 a25 999,999 999,9
99
accept sqlid prompt col col col col col c1 c2 c3 c4 c5 heading heading heading h
eading heading
Operation Options Object|Name Search Columns Cardinality
select operation c1, options c2, object_name c3, search_columns c4, cardinality
c5 from dba_hist_sql_plan p where p.sql_id = '&sqlid' order by p.id;
---------awr_hash_join_alert.sql ************************************************* Copyri
ght 2005 by Rampant TechPress This script is free for non-commercial purposes wi
th no warranties. Use at your own risk. To license this script for a commercial
purpose, contact [email protected] ***********************************************
** format a20 format 99,999,999 format 99,999,999
col c1 heading Date col c2 heading Hash|Join|Count col c3 heading Rows|Processed

col c4 heading col c5 heading

Disk|Reads CPU|Time
format 99,999,999 format 99,999,999
accept hash_thr char prompt ttitle
Enter Hash Join Threshold:
Hash Join Threshold|&hash_thr

select to_char(sn.begin_interval_time,'yy-mm-dd hh24') c1, count(*) c2, sum(st.r

ows_processed_delta)
c3, sum(st.disk_reads_delta) c4, sum(st.cpu_time_delt
hot sn, dba_hist_sql_plan p, dba_hist_sqlstat st where st.sql_id = p.sql_id and
sn.snap_id = st.snap_id and p.operation = 'HASH JOIN' having count(*) > &hash_th
r group by begin_interval_time;
---------plan10g.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] *************************************************
spool plan.lst set echo off set feedback on set pages 999; column nbr_FTS column
num_rows column blocks column owner column name column ch column time format 99
,999 format 999,999 format 9,999 format a10; format a30; format a1; heading "Sna
pshot Time"
format a15 format a12;
column object_owner heading "Owner"

column ct break on time

heading "# of SQL selects" format 999,999;
select object_owner, count(*) ct from dba_hist_sql_plan where object_owner is no
t null group by object_owner order by ct desc ; --spool access.lst; set heading
on; set feedback on; ttitle 'full table scans and counts| |The "K" indicates tha
t the table is in th e KEEP Pool (Oracle8).' select to_char(sn.end_interval_time
,'mm/dd/rr hh24') time, p.owner, p.name, t.num_rows, -- ltrim(t.cache) ch, decod
e(t.buffer_pool,'KEEP','Y','DEFAULT','N') K, s.blocks blocks, sum(a.executions_d
elta) nbr_FTS from dba_tables t, dba_segments s, dba_hist_sqlstat a, dba_hist_sn
apshot sn, (select distinct pl.sql_id, object_owner owner, object_name name from
dba_hist_sql_plan pl where operation = 'TABLE ACCESS' and options = 'FULL') p w
here a.snap_id = sn.snap_id and a.sql_id = p.sql_id and t.owner = s.owner and t.
table_name = s.segment_name and t.table_name = p.name and

t.owner = p.owner and t.owner not in ('SYS','SYSTEM') having sum(a.executions_de

lta) > 1 group by to_char(sn.end_interval_time,'mm/dd/rr hh24'),p.owner, p.name,
t.num_rows, t. cache, t.buffer_pool, s.blocks order by 1 asc; column column col
umn column nbr_RID num_rows owner name format format format format 999,999,999 9
99,999,999 a15; a25;
ttitle 'Table access by ROWID and counts' select to_char(sn.end_interval_time,'m
m/dd/rr hh24') time, p.owner, p.name, t.num_rows, sum(a.executions_delta) nbr_RI
D from dba_tables t, dba_hist_sqlstat a, dba_hist_snapshot sn, (select distinct
pl
.sql_id, object_owner owner, object_name name from dba_hist_sql_plan pl where op
eration = 'TABLE ACCESS' and options = 'BY USER ROWID') p where a.snap_id = sn.s
nap_id and a.sql_id = p.sql_id and t.table_name = p.name and t.owner = p.owner h
aving sum(a.executions_delta) > 9 group by to_char(sn.end_interval_time,'mm/dd/r
r hh24'),p.owner, p.name, t.num_rows order by 1 asc; --*************************
************************ -- Index Report Section --*****************************
******************** column nbr_scans format 999,999,999 column num_rows format
999,999,999 column tbl_blocks format 999,999,999

column owner format a9; column table_name format a20; column index_name format a
20; ttitle 'Index full scans and counts' select to_char(sn.end_interval_time,'mm
/dd/rr hh24') time, p.owner, d.table_name, p.name index_name, seg.blocks tbl_blo
cks, sum(s.executions_delta) nbr_scans from dba_segments seg, dba_indexes d, dba
_hist_sqlstat s, dba_hist_snapshot sn, (select distinct pl.sql_id, object_owner
owner, object_name name from dba_hist_sql_plan pl where operation = 'INDEX' and
options = 'FULL SCAN') p where d.index_name = p.name and s.snap_id = sn.snap_id
and s.sql_id = p.sql_id and d.table_name = seg.segment_name and seg.owner = p.ow
ner having sum(s.executions_delta) > 9 group by to_char(sn.end_interval_time,'mm
/dd/rr hh24'),p.owner, d.table_name, p.name, seg.blocks order by 1 asc; ttitle '
Index range scans and counts' select to_char(sn.end_interval_time,'mm/dd/rr hh24
') time, p.owner, d.table_name, p.name index_name, seg.blocks tbl_blocks, sum(s.
executions_delta) nbr_scans from dba_segments seg, dba_hist_sqlstat s, dba_hist_
snapshot sn, dba_indexes d, (select distinct

pl.sql_id, object_owner owner, object_name name from dba_hist_sql_plan pl where

operation = 'INDEX' and options = 'RANGE SCAN') p where d.index_name = p.name an
d s.snap_id = sn.snap_id and s.sql_id = p.sql_id and d.table_name = seg.segment_
name and seg.owner = p.owner having sum(s.executions_delta) > 9 group by to_char
(sn.end_interval_time,'mm/dd/rr hh24'),p.owner, d.table_name, p.name, seg.blocks
order by 1 asc; ttitle 'Index unique scans and counts' select to_char(sn.end_in
terval_time,'mm/dd/rr hh24') time, p.owner, d.table_name, p.name index_name, sum
(s.executions_delta) nbr_scans from dba_hist_sqlstat s, dba_hist_snapshot sn, db
a_indexes d, (select distinct pl.sql_id, object_owner owner, object_name name fr
om dba_hist_sql_plan pl where operation = 'INDEX' and options = 'UNIQUE SCAN') p
where d.index_name = p.name and s.snap_id = sn.snap_id and s.sql_id = p.sql_id
having sum(s.executions_delta) > 9 group by to_char(sn.end_interval_time,'mm/dd/
rr hh24'),p.owner, d.table_name, p.name order by 1 asc;

spool off
---------spacesum8i.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select tablespace_name, autoextend, round ((total_space / 1024 / 1024), 2) as to
tal_space, round ((total_free_space / 1024 / 1024), 2) as total_free, round (((t
otal_space - total_free_space) / 1024 / 1024), 2) as used_space, to_char ( nvl (
round ( (100 * sum_free_blocks / sum_alloc_blocks),2),0)) || '%' as pct_free fro
m (select tablespace_name, max (autoextensible) autoextend,
sum (blocks) sum_alloc_
blocks, sum (bytes) as total_space from dba_data_files group by tablespace_name)
, (select b.tablespace_name fs_ts_name, nvl (sum (bytes), 0) as total_free_space
, sum (blocks) as sum_free_blocks from dba_free_space a, dba_tablespaces b where
a.tablespace_name (+) = b.tablespace_name group by b.tablespace_name, status) wh
ere tablespace_name = fs_ts_name union all select d.tablespace_name, autoextend,
round ((a.bytes / 1024 / 1024), 2), round ((a.bytes / 1024 / 1024) (nvl (t.byte
s, 0) / 1024 / 1024), 2),

round (nvl (t.bytes, 0) / 1024 / 1024, 2), to_char (100 - (nvl (t.bytes / a.byte
s * 100, 0)), '990.00') from sys.dba_tablespaces d, (select tablespace_name, max
(autoextensible) autoextend, sum (bytes) bytes from dba_temp_files group by tab
lespace_name) a, (select tablespace_name, sum (bytes_cached) bytes from sys.v_$t
emp_extent_pool group by tablespace_name) t where and and and order d.tablespace_n
ame = a.tablespace_name (+) d.tablespace_name = t.tablespace_name (+) d.extent_m
anagement like 'LOCAL' d.contents like 'TEMPORARY' by 1;
---------datafileae.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] ************************************************* b.file
_name, b.tablespace_name, decode(c.inc,null,'no','yes') autoextend from sys.dba_
data_files b, sys.filext$ c
select
where c.file# (+)= b.file_id

order by 2, 1;

-tsfrag.sql -- ************************************************* -- Copyright 20

05 by Rampant TechPress -- This script is free for non-commercial purposes

-----with no warranties. Use at your own risk. To license this script for a commercia
l purpose, contact [email protected] *********************************************
****
select tablespace_name, count(*) free_chunks, decode(round((max(bytes) / 1024000
),2),null,0, round((max(bytes) / 1024000),2)) largest_chunk,
nvl(round(sqrt(max(bloc
ks)/sum(blocks))* (100/sqrt(sqrt(count(blocks)) )),2),0) fragmentation_index fro
m sys.dba_free_space group by tablespace_name order by 2 desc, 1;
---------dffrag.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] ************************************************* b.file_nam
e, b.tablespace_name, nvl(round(sqrt(max(a.blocks)/ sum(a.blocks))*(100/sqrt(sqr
t(count(a.blocks)) )),2),0) fragmentation_index, decode(c.inc,null,'no','yes') a
utoextend, count (*) free_chunks, decode ( round ((max (a.bytes) / 1024000), 2),
null, 0, round ((max (a.bytes) / 1024000), 2)) largest_chunk from sys.dba_free_
space a, sys.dba_data_files b, sys.filext$ c
select
where b.tablespace_name = a.tablespace_name (+) and c.file# (+)= a.file_id and b.
file_id = a.file_id (+) group by b.file_name, decode(c.inc,null,'no','yes'), b.ta
blespace_name order

by 5 desc, 1;
---------tsmap8.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] ************************************************* 'free spac
e' object_owner, ' ' object_type, ' ' object_name, file_id, block_id, bytes / 10
24 size_kb, blocks
select
from sys.dba_free_space where tablespace_name = <:tablespace name> union all sel
ect owner, segment_type, decode (partition_name,null,segment_name,segment_name |
| '.' || partition_name), file_id,
block_id, bytes / 1024, blocks from sys.dba_exten
ts where tablespace_name = <:tablespace name> order by 4,5;
---------maxext8.sql ************************************************* Copyright 2005 by
Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] *************************************************

select owner, decode(partition_name,NULL,segment_name,segment_name || '.' || par

tition_name) segment_name, segment_type, extents, max_extents, initial_extent, n
ext_extent, tablespace_name from sys.dba_segments where max_extents - extents <=
5 and segment_type <> 'CACHE' order by 1,2,3;
---------objdef.sql ************************************************* Copyright 2005 by R
ampant TechPress This script is free for non-commercial purposes with no warrant
ies. Use at your own risk. To license this script for a commercial purpose, cont
act [email protected] *************************************************
select a.owner, a.segment_name, a.segment_type, a.tablespace_name, a.next_extent
, max(c.bytes) max_contig_space from sys.dba_segments a, sys.dba_free_space c wh
ere a.tablespace_name = c.tablespace_name and a.next_extent > (select max(bytes)
from sys.dba_free_space b where a.tablespace_name = b.tablespace_name and b.tab
lespace_name = c.tablespace_name) group by a.owner, a.segment_name, a.tablespace
_name, a.segment_type, a.next_extent

---------awr_list_seg_block_space.sql ************************************************* C
opyright 2005 by Rampant TechPress This script is free for non-commercial purpos
es with no warranties. Use at your own risk. To license this script for a commer
cial purpose, contact [email protected] ******************************************
*******
drop type BlckFreeSpaceSet; drop type BlckFreeSpace; create type BlckFreeSpace a
s object ( seg_owner varchar2(30), seg_type varchar2(30), seg_name varchar2(100), fs
1 number, fs2 number, fs3 number, fs4 number, fb number ); create type BlckFreeSpaceS
et as table of BlckFreeSpace; create or replace function BlckFreeSpaceFunc (seg_
owner IN varchar2, seg_type in varchar2 default null) return BlckFreeSpaceSet pi
pelined is outRec BlckFreeSpace := BlckFreeSpace(null,null,null,null,null,null,n
ull,null ); fs1_b number; fs2_b number; fs3_b number; fs4_b number; fs1_bl numbe
r; fs2_bl number; fs3_bl number; fs4_bl number; fulb number; fulbl number; u_b n
umber; u_bl number; begin for rec in (select s.owner,s.segment_name,s.segment_ty
pe from dba_segments s w here owner = seg_owner and segment_type = nvl(seg_type,
segment_type) ) loop dbms_space.space_usage ( segment_owner => rec.owner, segmen
t_name => rec.segment_name, segment_type => rec.segment_type, fs1_bytes => fs1_b
,

fs1_blocks
fs2_bytes fs2_blocks fs3_bytes fs3_blocks fs4_bytes fs4_blocks full_byt
es full_blocks unformatted_blocks unformatted_bytes );
=> => => => => => => => => => =>
fs1_bl, fs2_b, fs2_bl, fs3_b, fs3_bl, fs4_b, fs4_bl, fulb, fulbl, u_bl, u_b
outRec.seg_owner := rec.owner; outRec.seg_type := rec.segment_type; outRec.seg_n
ame := rec.segment_name; outRec.fs1 outRec.fs2 outRec.fs3 outRec.fs4 outRec.fb :
= := := := := fs1_bl; fs2_bl; fs3_bl; fs4_bl; fulbl;
Pipe Row (outRec); end loop; return; end; /
---------awr_report_seg_block_space.sql *************************************************
Copyright 2005 by Rampant TechPress This script is free for non-commercial purp
oses with no warranties. Use at your own risk. To license this script for a comm
ercial purpose, contact [email protected] ****************************************
*********
col seg_owner heading 'Segment|Owner' format a10 col seg_type heading 'Segment|T
ype' format a10 col seg_name heading 'Segment|Name' format a30 col col col col c
ol fs1 fs2 fs3 fs4 fb heading heading heading heading heading '0-25%|Free Space'
'25-50%|Free Space' '50-75%|Free Space' '75-100%|Free Space' 'Full|Blocks' form
at format format format format 9,999 9,999 9,999 9,999 9,999
accept user_name prompt break on seg_owner select
Enter Segment Owner:

* from Table ( BlckFreeSpaceFunc ('&user_name', 'TABLE' ) ) order by fs4 desc ;

---------awr_estimate_index_cost.sql ************************************************* Co
pyright 2005 by Rampant TechPress This script is free for non-commercial purpose
s with no warranties. Use at your own risk. To license this script for a commerc
ial purpose, contact [email protected] *******************************************
******
declare u_bytes number; a_bytes number; begin dbms_space.create_index_cost ( ddl
=> 'create index stats$sysstat_idx on stats$sysstat '|| '(value) tablespace sys
aux', used_bytes => u_bytes, alloc_bytes => a_bytes ); dbms_output.put_line ('Us
ed Bytes = '|| u_bytes); dbms_output.put_line ('Allocated Bytes = '|| a_bytes);
end; /
---------workspace_status.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pur
pose, contact [email protected] *************************************************
WORKSPACE FORMAT a10 HEADING 'Workspace' owner FORMAT a10 HEADING 'Owner' freeze
_status FORMAT a8 HEADING 'Freeze|Status' resolve_status FORMAT a8 HEADING 'Reso
lve|Status' parent_workspace FORMAT a10 HEADING 'Parent|Workspace' freeze_mode F
ORMAT a8 HEADING 'Freeze|Mode'
COLUMN COLUMN COLUMN COLUMN COLUMN COLUMN
ttitle 'Workspace Status'

spool workspace_status select workspace, NVL(parent_workspace,'NONE') parent_wor

kspace, owner, freeze_status, NVL(freeze_mode,'NONE') freeze_mode, resolve_statu
s from dba_workspaces ; spool off ttitle off
---------pga_advice.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
ttitle 'PGA Target Advice Report' set lines 80 pages 47 spool pga_advice SELECT
round(PGA_TARGET_FOR_ESTIMATE/1024/1024) target_mb, ESTD_PGA_CACHE_HIT_PERCENTAG
E cache_hit_perc, ESTD_OVERALLOC_COUNT FROM v$pga_target_advice / spool off ttit
le off
---------dbagranted.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select grantee from sys.dba_role_privs where

granted_role = 'DBA' and grantee not in ('SYS','SYSTEM');

---------sensprivs.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] *************************************************
select grantee, privilege, admin_option from sys.dba_sys_privs where (privilege l
ike '%ANY%' or privilege like '%DROP%' or privilege in ('ALTER SYSTEM', 'ALTER T
ABLESPACE', 'BECOME USER', 'UNLIMITED TABLESPACE')) and grantee not in ('SYS','SY
STEM') and grantee not in (select role from sys.dba_roles) union all select gran
tee, privilege, admin_option from sys.dba_sys_privs where (privilege like '%ANY%
' or privilege like '%DROP%' or privilege in ('ALTER SYSTEM', 'ALTER TABLESPACE'
, 'BECOME USER', 'UNLIMITED TABLESPACE')) and

grantee not in ('SYS','SYSTEM') and grantee in (select role from sys.dba_roles w

here role not in ('DBA', 'AQ_ADMINISTRATOR_ROLE', 'IMP_FULL_DATABASE', 'SNMPAGEN
T', 'OEM_MONITOR', 'EXP_FULL_DATABASE'));
---------badstorage.sql ************************************************* Copyright 2005
by Rampant TechPress This script is free for non-commercial purposes with no war
ranties. Use at your own risk. To license this script for a commercial purpose,
contact [email protected] *************************************************
select a.name username,'system as default' privilege from sys.user$ a, sys.ts$ d
ts, sys.ts$ tts where (a.datats# = dts.ts# and a.tempts# = tts.ts#) and (dts.nam
e = 'SYSTEM' or tts.name = 'SYSTEM') and a.name not in ('SYS', 'SYSTEM') union s
elect username,'system quotas' from sys.dba_ts_quotas where tablespace_name = 's
ystem' and username not in ('SYS', 'SYSTEM') union select grantee,'unlimited tab
lespace' from dba_sys_privs where privilege = 'unlimited tablespace' and grantee
not in ('SYS', 'SYSTEM') order by 1;

---------totuserspace.sql ************************************************* Copyright 200

5 by Rampant TechPress This script is free for non-commercial purposes with no w
arranties. Use at your own risk. To license this script for a commercial purpose
, contact [email protected] *************************************************
owner,
round((byte_count / 1024 / 1024),2) space_used_mb, round(100 * (byte_count / to
t_bytes),2) pct_of_database
select
from (select owner , sum(bytes) as byte_count from sys.dba_segments where segmen
t_type not in ('TEMPORARY','CACHE') group by owner order by 2 desc), (select sum
(bytes) as tot_bytes from sys.dba_segments);
---------sortusage.sql ************************************************* Copyright 2005 b
y Rampant TechPress This script is free for non-commercial purposes with no warr
anties. Use at your own risk. To license this script for a commercial purpose, c
ontact [email protected] ************************************************* tablesp
ace_name, current_users, total_extents, used_extents, free_extents, max_used_siz
e, max_sort_size
select
from sys.v_$sort_segment order by 1;

---------sortdet.sql ************************************************* Copyright 2005 by

Rampant TechPress This script is free for non-commercial purposes with no warran
ties. Use at your own risk. To license this script for a commercial purpose, con
tact [email protected] ************************************************* sql_text,
sid, c.username, machine, tablespace, extents, blocks
select
from sys.v_$sort_usage a, sys.v_$sqlarea b, sys.v_$session c where
a.sqladdr = b.a
ddress and a.sqlhash = b.hash_value and a.session_addr = c.saddr order by sid;
---------metric_summary.sql ************************************************* Copyright 2
005 by Rampant TechPress This script is free for non-commercial purposes with no
warranties. Use at your own risk. To license this script for a commercial purpo
se, contact [email protected] *************************************************
select metric_name Metric Name , metric_unit "Metric Unit", minval "Minimum Valu
e", maxval "Maximum Value", average "Average Value" from DBA_HIST_SYSMETRIC_SUMM
ARY where snap_id = &pEndSnap and dbid = &pDbId

and instance_number
= &pInstNum
---------sys_stat_int_10g.sql ************************************************* Copyright
2005 by Rampant TechPress This script is free for non-commercial purposes with
no warranties. Use at your own risk. To license this script for a commercial pur
pose, contact [email protected] *************************************************
e.stat_name "Statistic Name" e.value - b.value "Total" round((e.value - b.value)
/ select avg( extract( day from (e1.end_interval_time-b1.end_interval_time) )*24
*6 extract( hour from (e1.end_interval_time-b1.end_interval_time) )*60*6
select , , ( 0*60+ 0+

extract( minute from (e1.end_interval_time-b1.end_interval_time) )*60 + extract(

second from (e1.end_interval_time-b1.end_interval_time)) ) from dba_hist_snapsh
ot b1 ,dba_hist_snapshot e1 where b1.snap_id = b.snap_id and e1.snap_id = e.snap
_id and b1.dbid = b.dbid and e1.dbid = e.dbid and b1.instance_number = b.instanc
e_number and e1.instance_number = e.instance_number and b1.startup_time = e1.sta
rtup_time and b1.end_interval_time < e1.end_interval_time ),2) "Per Second" from
dba_hist_sysstat b , dba_hist_sysstat e where b.snap_id = &pBgnSnap and e.snap_id
= &pEndSnap and b.dbid = &pDbId and e.dbid = &pDbId and b.instance_number = &pIn
stNum and e.instance_number = &pInstNum and b.stat_id
= e.stat_id and e.stat_name not
( 'logons current' , 'opened cursors current' , 'workarea memory allocated' ) a
nd e.value >= b.value and e.value > 0 order by 1 asc

---------os_stat_int_10g.sql ************************************************* Copyright

2005 by Rampant TechPress This script is free for non-commercial purposes with n
o warranties. Use at your own risk. To license this script for a commercial purp
ose, contact [email protected] *************************************************
select e.stat_name "Statistic Name" , decode(e.stat_name, 'NUM_CPUS', e.value, e
.value - b.value) "Total" , decode( instrb(e.stat_name, 'BYTES'), 0, to_number(n
ull) , round((e.value - b.value)/( select avg( extract( day from (e1.end_interva
l_time-b1.end_interval_time) )*24*6 0*60+ extract( hour from (e1.end_interval_ti
me-b1.end_interval_time) )*60*6 0+ extract( minute from (e1.end_interval_time-b1.
end_interval_time) )*60+ extract( second from (e1.end_interval_time-b1.end_inter
val_time)) ) from dba_hist_snapshot b1 ,dba_hist_snapshot e1 where b1.snap_id =
b.snap_id and e1.snap_id = e.snap_id and b1.dbid = b.dbid and e1.dbid = e.dbid a
nd b1.instance_number = b.instance_number and e1.instance_number = e.instance_nu
mber and b1.startup_time
= e1.startup_time and b1.end_interval_time < e1.end_inter
val_time ),2)) "Per Second" from dba_hist_osstat b , dba_hist_osstat e where b.sna
p_id = &pBgnSnap and e.snap_id = &pEndSnap and b.dbid = &pDbId and e.dbid = &pDb
Id and b.instance_number = &pInstNum and e.instance_number = &pInstNum and b.sta
t_id = e.stat_id and e.value >= b.value and e.value > 0 order by 1 asc