862 lines
39 KiB
SQL
862 lines
39 KiB
SQL
--------------------------------------------------------------------------------
|
||
--
|
||
-- File name: snapper.sql
|
||
-- Purpose: An easy to use Oracle session-level performance snapshot utility
|
||
--
|
||
-- NB! This script does NOT require creation of any database objects!
|
||
--
|
||
-- This is very useful for ad-hoc performance diagnosis in environments
|
||
-- with restrictive change management processes, where creating
|
||
-- even temporary tables and PL/SQL packages is not allowed or would
|
||
-- take too much time to get approved.
|
||
--
|
||
-- All processing is done by few sqlplus commands and an anonymous
|
||
-- PL/SQL block, all that's needed is SQLPLUS access (and if you want
|
||
-- to output data to server-side tracefile then execute rights on
|
||
-- DBMS_SYSTEM).
|
||
--
|
||
-- The output is formatted the way it could be easily post-processed
|
||
-- by either Unix string manipulation tools or loaded to spreadsheet.
|
||
--
|
||
--
|
||
-- Author: Tanel Poder
|
||
-- Copyright: (c) Tanel Poder - http://www.tanelpoder.com - All rights reserved.
|
||
--
|
||
--------------------------------------------------------------------------------
|
||
--
|
||
-- The Session Snapper v2.02
|
||
-- (c) Tanel Poder ( http://www.tanelpoder.com )
|
||
--
|
||
--
|
||
-- +-----=====O=== Welcome to The Session Snapper! (Yes, you are looking at a cheap ASCII
|
||
-- / imitation of a fish and a fishing rod.
|
||
-- | Nevertheless the PL/SQL code below the
|
||
-- | fish itself should be helpful for quick
|
||
-- | catching of relevant Oracle performance
|
||
-- | information.
|
||
-- | So I wish you happy... um... snapping?
|
||
-- | )
|
||
-- | ......
|
||
-- | iittii,,....
|
||
-- <20> iiffffjjjjtttt,,
|
||
-- ..;;ttffLLLLffLLLLLLffjjtt;;..
|
||
-- ..ttLLGGGGGGLLffLLLLLLLLLLLLLLffjjii,, ..ii,,
|
||
-- ffGGffLLLLLLjjttjjjjjjjjffLLLLLLLLLLjjii.. ..iijj;;....
|
||
-- ffGGLLiittjjttttttiittttttttttffLLLLLLGGffii.. ;;LLLLii;;;;..
|
||
-- ffEEGGffiittiittttttttttiiiiiiiittjjjjffLLGGLLii.. iiLLLLLLttiiii,,
|
||
-- ;;ffDDLLiiiitt,,ttttttttttttiiiiiiiijjjjjjffLLLLffttiiiiffLLGGLLjjtttt;;..
|
||
-- ..ttttjjiitt,,iiiiiittttttttjjjjttttttttjjjjttttjjttttjjjjffLLDDGGLLttii..
|
||
-- iittiitttt, ;;iittttttttjjjjjjjjjjttjjjjjjffffffjjjjjjjjjjLLDDGGLLtt;;..
|
||
-- jjjjttttii:. ..iiiiffLLGGLLLLLLLLffffffLLLLLLLLLLLLLLLLffffffLLLLLLfftt,,
|
||
-- iittttii,,;;,,ttiiiiLLLLffffffjjffffLLLLLLLLffLLffjjttttttttttjjjjffjjii..
|
||
-- ,,iiiiiiiiiittttttiiiiiiiiiijjffffLLLLLLLLffLLffttttttii;;;;iiiitttttttt;;..
|
||
-- ..iittttttffffttttiiiiiiiiiittttffjjjjffffffffttiittii:: ....,,;;iittii;;
|
||
-- ..;;iittttttttttttttttiiiiiittttttttttjjjjjjtttttt;; ..;;ii;;..
|
||
-- ..;;;;iittttttjjttiittttttttttttttjjttttttttii.. ....
|
||
-- ....;;;;ttjjttttiiiiii;;;;;;iittttiiii..
|
||
-- ..;;ttttii;;.... ..;;;;....
|
||
-- ..iiii;;..
|
||
-- ..;;,,
|
||
-- ....
|
||
--
|
||
--
|
||
-- Usage:
|
||
--
|
||
-- snapper.sql <out|trace[,pagesize=X][,gather=[s][t][w][l][e]]> <seconds_in_snap> <snapshot_count> <sid(s)_to_snap>
|
||
--
|
||
-- out - use dbms_output.put_line() for output
|
||
-- trace - write output to server process tracefile
|
||
-- (you must have execute permission on sys.dbms_system.ksdwrt() for that,
|
||
-- you can use both out and trace parameters together if you like )
|
||
-- pagesize - display header lines after X snapshots. if pagesize=0 don't display
|
||
-- any headers. pagesize=-1 will display a terse header only once
|
||
-- gather - if omitted, gathers all statistics
|
||
-- - if specified, then gather following:
|
||
-- s - Session Statistics from v$sesstat
|
||
-- t - Session Time model info from v$sess_time_model
|
||
-- w - Session Wait statistics from v$session_event and v$session_wait
|
||
-- l - instance Latch get statistics ( gets + immediate_gets )
|
||
-- e - instance Enqueue lock get statistics
|
||
-- b - buffer get Where statistics (instance-wide)
|
||
-- a - All above
|
||
--
|
||
-- sinclude - if specified, then show only V$SESSTAT stats which match the
|
||
-- LIKE pattern of sinclude (REGEXP_LIKE in 10g+)
|
||
-- linclude - if specified, then show only V$LATCH latch stats which match the
|
||
-- LIKE pattern of linclude (REGEXP_LIKE in 10g+)
|
||
-- tinclude - if specified, then show only V$SESS_TIME_MODEL stats which match the
|
||
-- LIKE pattern of tinclude (REGEXP_LIKE in 10g+)
|
||
-- winclude - if specified, then show only V$SESSION_EVENT wait stats which match the
|
||
-- LIKE pattern of winclude (REGEXP_LIKE in 10g+)
|
||
--
|
||
-- you can combine above parameters in any order, separate them by commas
|
||
-- (and don't use spaces as otherwise they are treated as following parameters)
|
||
--
|
||
-- <seconds_in_snap> - the number of seconds between taking snapshots
|
||
-- <snapshot_count> - the number of snapshots to take ( maximum value is power(2,31)-1 )
|
||
--
|
||
-- <sids_to_snap> can be either one sessionid, multiple sessionids separated by
|
||
-- commas or a SQL statement which returns a list of SIDs (if you need spaces
|
||
-- in that parameter text, enclose it in double quotes).
|
||
--
|
||
-- if you want to snap ALL sids, use "select sid from v$session" as value for
|
||
-- <sids_to_snap> parameter
|
||
--
|
||
--
|
||
-- Examples:
|
||
--
|
||
-- @snapper out 1 1 515
|
||
-- (Output one 1-second snapshot of session 515 using dbms_output and exit
|
||
-- Wait, v$sesstat and v$sess_time_model statistics are reported by default)
|
||
--
|
||
-- @snapper out,gather=w 1 1 515
|
||
-- (Output one 1-second snapshot of session 515 using dbms_output and exit
|
||
-- only Wait event statistics are reported)
|
||
--
|
||
-- @snapper out,gather=st 1 1 515
|
||
-- (Output one 1-second snapshot of session 515 using dbms_output and exit
|
||
-- only v$sesstat and v$sess_Time_model statistics are gathered)
|
||
--
|
||
-- @snapper trace,gather=stw,pagesize=0 10 90 117,210,313
|
||
-- (Write 90 10-second snapshots into tracefile for session IDs 117,210,313
|
||
-- all statistics are reported, do not print any headers)
|
||
--
|
||
-- @snapper trace 900 999999999 "select sid from v$session"
|
||
-- (Take a snapshot of ALL sessions every 15 minutes and write the output to trace,
|
||
-- loop (almost) forever )
|
||
--
|
||
-- @snapper out,trace 300 12 "select sid from v$session where username='APPS'"
|
||
-- (Take 12 5-minute snapshots of all sessions belonging to APPS user, write
|
||
-- output to both dbms_output and tracefile)
|
||
--
|
||
-- Notes:
|
||
--
|
||
-- Snapper does not currently detect if a session with given SID has
|
||
-- ended and been recreated between snapshots, thus it may report bogus
|
||
-- statistics for such sessions. The check and warning for that will be
|
||
-- implemented in a future version.
|
||
--
|
||
--------------------------------------------------------------------------------
|
||
|
||
set termout off tab off verify off linesize 299
|
||
|
||
|
||
-- Get parameters
|
||
define snapper_options="&1"
|
||
define snapper_sleep="&2"
|
||
define snapper_count="&3"
|
||
define snapper_sid="&4"
|
||
|
||
-- The following code is required for making this script "dynamic" as due
|
||
-- different Oracle versions, script parameters or granted privileges some
|
||
-- statements might not compile if not adjusted properly.
|
||
|
||
define _IF_ORA10_OR_HIGHER="--"
|
||
define _IF_ORA11_OR_HIGHER="--"
|
||
define _IF_LOWER_THAN_ORA11="--"
|
||
define _IF_DBMS_SYSTEM_ACCESSIBLE="/* dbms_system is not accessible" /*dummy*/
|
||
define _IF_X_ACCESSIBLE="--"
|
||
|
||
col snapper_oraversion noprint new_value _SNAPPER_ORAVERSION
|
||
col snapper_ora10higher noprint new_value _IF_ORA10_OR_HIGHER
|
||
col snapper_ora11higher noprint new_value _IF_ORA11_OR_HIGHER
|
||
col snapper_ora11lower noprint new_value _IF_LOWER_THAN_ORA11
|
||
col dbms_system_accessible noprint new_value _IF_DBMS_SYSTEM_ACCESSIBLE
|
||
col x_accessible noprint new_value _IF_X_ACCESSIBLE
|
||
col snapper_sid noprint new_value snapper_sid
|
||
|
||
-- this block determines whether dbms_system.ksdwrt is accessible to us
|
||
-- dbms_describe is required as all_procedures/all_objects may show this object
|
||
-- even if its not executable by us (thanks to o7_dictionary_accessibility=false)
|
||
|
||
var v varchar2(100)
|
||
var x varchar2(10)
|
||
|
||
declare
|
||
|
||
o sys.dbms_describe.number_table;
|
||
p sys.dbms_describe.number_table;
|
||
l sys.dbms_describe.number_table;
|
||
a sys.dbms_describe.varchar2_table;
|
||
dty sys.dbms_describe.number_table;
|
||
def sys.dbms_describe.number_table;
|
||
inout sys.dbms_describe.number_table;
|
||
len sys.dbms_describe.number_table;
|
||
prec sys.dbms_describe.number_table;
|
||
scal sys.dbms_describe.number_table;
|
||
rad sys.dbms_describe.number_table;
|
||
spa sys.dbms_describe.number_table;
|
||
|
||
tmp number;
|
||
|
||
begin
|
||
|
||
begin
|
||
execute immediate 'select count(*) from x$kcbwh where rownum = 1' into tmp;
|
||
:x:= ' '; -- x$ tables are accessible, so dont comment any lines out
|
||
exception
|
||
when others then null;
|
||
end;
|
||
|
||
sys.dbms_describe.describe_procedure(
|
||
'DBMS_SYSTEM.KSDWRT', null, null,
|
||
o, p, l, a, dty, def, inout, len, prec, scal, rad, spa
|
||
);
|
||
|
||
-- we never get to following statement if dbms_system is not accessible
|
||
-- as sys.dbms_describe will raise an exception
|
||
:v:= '-- dbms_system is accessible';
|
||
|
||
exception
|
||
when others then null;
|
||
end;
|
||
/
|
||
|
||
|
||
select
|
||
decode(substr(banner, instr(banner, 'Release ')+8,1), '1', '', '--') snapper_ora10higher,
|
||
decode(substr(banner, instr(banner, 'Release ')+8,2), '11','', '--') snapper_ora11higher,
|
||
decode(substr(banner, instr(banner, 'Release ')+8,2), '11','--', '') snapper_ora11lower,
|
||
nvl(:v, '/* dbms_system is not accessible') dbms_system_accessible,
|
||
nvl(:x, '--') x_accessible
|
||
from
|
||
v$version
|
||
where
|
||
rownum=1;
|
||
|
||
set termout on serverout on size 1000000 format wrapped
|
||
|
||
-- main()
|
||
|
||
declare
|
||
|
||
-- forward declarations
|
||
procedure output(p_txt in varchar2);
|
||
procedure fout;
|
||
|
||
function tptformat( p_num in number,
|
||
p_stype in varchar2 default 'STAT',
|
||
p_precision in number default 2,
|
||
p_base in number default 10,
|
||
p_grouplen in number default 3
|
||
)
|
||
return varchar2;
|
||
function getopt( p_parvalues in varchar2,
|
||
p_extract in varchar2,
|
||
p_delim in varchar2 default ','
|
||
)
|
||
return varchar2;
|
||
|
||
-- type, constant, variable declarations
|
||
|
||
-- trick for holding 32bit UNSIGNED event and stat_ids in 32bit SIGNED PLS_INTEGER
|
||
pls_adjust constant number(10,0) := power(2,31) - 1;
|
||
|
||
type srec is record (stype varchar2(4), sid number, statistic# number, value number );
|
||
type stab is table of srec index by pls_integer;
|
||
s1 stab;
|
||
s2 stab;
|
||
|
||
type snrec is record (stype varchar2(4), statistic# number, name varchar2(64));
|
||
type sntab is table of snrec index by pls_integer;
|
||
sn_tmp sntab;
|
||
sn sntab;
|
||
|
||
type sestab is table of v$session%rowtype index by pls_integer;
|
||
|
||
g_sessions sestab;
|
||
g_empty_sessions sestab;
|
||
|
||
g_count_statname number;
|
||
g_count_eventname number;
|
||
|
||
i number;
|
||
a number;
|
||
b number;
|
||
|
||
c number;
|
||
delta number;
|
||
changed_values number;
|
||
pagesize number:=99999999999999;
|
||
missing_values_s1 number := 0;
|
||
missing_values_s2 number := 0;
|
||
disappeared_sid number := 0;
|
||
d1 date;
|
||
d2 date;
|
||
lv_gather varchar2(1000);
|
||
lv_header_string varchar2(1000);
|
||
lv_data_string varchar2(1000);
|
||
|
||
-- output column configuration
|
||
output_header number := 0; -- 1=true 0=false
|
||
output_username number := 1; -- v$session.username
|
||
output_sid number := 1; -- sid
|
||
output_time number := 0; -- time of snapshot start
|
||
output_seconds number := 0; -- seconds in snapshot (shown in footer of each snapshot too)
|
||
output_stype number := 1; -- statistic type (WAIT,STAT,TIME,ENQG,LATG,...)
|
||
output_sname number := 1; -- statistic name
|
||
output_delta number := 1; -- raw delta
|
||
output_delta_s number := 0; -- raw delta normalized to per second
|
||
output_hdelta number := 0; -- human readable delta
|
||
output_hdelta_s number := 1; -- human readable delta normalized to per second
|
||
output_percent number := 1; -- percent of total time/samples
|
||
output_pcthist number := 1; -- percent of total visual bar (histogram)
|
||
|
||
/*---------------------------------------------------
|
||
-- proc for outputting data to trace or dbms_output
|
||
---------------------------------------------------*/
|
||
procedure output(p_txt in varchar2) is
|
||
begin
|
||
|
||
if (getopt('&snapper_options', 'out') is not null)
|
||
or
|
||
(getopt('&snapper_options', 'out') is null and getopt('&snapper_options', 'trace') is null)
|
||
then
|
||
dbms_output.put_line(p_txt);
|
||
end if;
|
||
|
||
-- The block below is a sqlplus trick for conditionally commenting out PL/SQL code
|
||
&_IF_DBMS_SYSTEM_ACCESSIBLE
|
||
if getopt('&snapper_options', 'trace') is not null then
|
||
sys.dbms_system.ksdwrt(1, p_txt);
|
||
sys.dbms_system.ksdfls;
|
||
end if;
|
||
-- */
|
||
end; -- output
|
||
|
||
/*---------------------------------------------------
|
||
-- proc for outputting data, utilizing global vars
|
||
---------------------------------------------------*/
|
||
procedure fout is
|
||
l_output_username VARCHAR2(30);
|
||
begin
|
||
|
||
-- output( 'DEBUG, Entering fout(), b='||to_char(b)||' sn(s2(b).statistic#='||s2(b).statistic# );
|
||
-- output( 'DEBUG, In fout(), a='||to_char(a)||' b='||to_char(b)||' s1.count='||s1.count||' s2.count='||s2.count||' s2.count='||s2.count);
|
||
|
||
if output_username = 1 then
|
||
begin
|
||
l_output_username := substr(nvl( g_sessions(s2(b).sid).username, substr(g_sessions(s2(b).sid).program, instr(g_sessions(s2(b).sid).program,'(')) ), 1,30);
|
||
exception
|
||
when no_data_found then l_output_username := 'error';
|
||
when others then raise;
|
||
end;
|
||
end if;
|
||
|
||
output( CASE WHEN output_header = 1 THEN 'SID= ' END
|
||
|| CASE WHEN output_sid = 1 THEN to_char(s2(b).sid,'999999')||', ' END
|
||
|| CASE WHEN output_username = 1 THEN rpad(CASE s2(b).sid WHEN -1 THEN ' ' ELSE l_output_username END, 10)||', ' END
|
||
|| CASE WHEN output_time = 1 THEN to_char(d1, 'YYYYMMDD HH24:MI:SS')||', ' END
|
||
|| CASE WHEN output_seconds = 1 THEN to_char(case (d2-d1) when 0 then &snapper_sleep else (d2-d1) * 86400 end, '9999999')||', ' END
|
||
|| CASE WHEN output_stype = 1 THEN s2(b).stype||', ' END
|
||
|| CASE WHEN output_sname = 1 THEN rpad(sn(s2(b).statistic#).name, 40, ' ')||', ' END
|
||
|| CASE WHEN output_delta = 1 THEN to_char(delta, '999999999999')||', ' END
|
||
|| CASE WHEN output_delta_s = 1 THEN to_char(delta/(case (d2-d1) when 0 then &snapper_sleep else (d2-d1) * 86400 end),'999999999')||', ' END
|
||
|| CASE WHEN output_hdelta = 1 THEN lpad(tptformat(delta, s2(b).stype), 10, ' ')||', ' END
|
||
|| CASE WHEN output_hdelta_s = 1 THEN lpad(tptformat(delta/(case (d2-d1) when 0 then &snapper_sleep else (d2-d1)* 86400 end ), s2(b).stype), 10, ' ')||', ' END
|
||
|| CASE WHEN output_percent = 1 THEN CASE WHEN s2(b).stype IN ('TIME','WAIT') THEN to_char(delta/CASE (d2-d1) WHEN 0 THEN &snapper_sleep ELSE (d2-d1) * 86400 END / 10000, '9999.9')||'%,' END END
|
||
|| CASE WHEN output_pcthist = 1 THEN CASE WHEN s2(b).stype IN ('TIME','WAIT') THEN rpad(' '||rpad('|', ceil(round(delta/CASE (d2-d1) WHEN 0 THEN &snapper_sleep ELSE (d2-d1) * 86400 END / 100000,1))+1, '@'),12,' ')||'|' END END
|
||
);
|
||
|
||
end;
|
||
|
||
/*---------------------------------------------------
|
||
-- function for converting large numbers to human-readable format
|
||
---------------------------------------------------*/
|
||
function tptformat( p_num in number,
|
||
p_stype in varchar2 default 'STAT',
|
||
p_precision in number default 2,
|
||
p_base in number default 10, -- for KiB/MiB formatting use
|
||
p_grouplen in number default 3 -- p_base=2 and p_grouplen=10
|
||
)
|
||
return varchar2
|
||
is
|
||
begin
|
||
|
||
if p_stype in ('WAIT','TIME') then
|
||
|
||
return
|
||
round(
|
||
p_num / power( p_base , trunc(log(p_base,abs(p_num)))-trunc(mod(log(p_base,abs(p_num)),p_grouplen)) ), p_precision
|
||
)
|
||
|| case trunc(log(p_base,abs(p_num)))-trunc(mod(log(p_base,abs(p_num)),p_grouplen))
|
||
when 0 then 'us'
|
||
when 1 then 'us'
|
||
when p_grouplen*1 then 'ms'
|
||
when p_grouplen*2 then 's'
|
||
when p_grouplen*3 then 'ks'
|
||
when p_grouplen*4 then 'Ms'
|
||
else '*'||p_base||'^'||to_char( trunc(log(p_base,abs(p_num)))-trunc(mod(log(p_base,abs(p_num)),p_grouplen)) )||' us'
|
||
end;
|
||
|
||
else
|
||
|
||
return
|
||
round(
|
||
p_num / power( p_base , trunc(log(p_base,abs(p_num)))-trunc(mod(log(p_base,abs(p_num)),p_grouplen)) ), p_precision
|
||
)
|
||
|| case trunc(log(p_base,abs(p_num)))-trunc(mod(log(p_base,abs(p_num)),p_grouplen))
|
||
when 0 then ''
|
||
when 1 then ''
|
||
when p_grouplen*1 then 'k'
|
||
when p_grouplen*2 then 'M'
|
||
when p_grouplen*3 then 'G'
|
||
when p_grouplen*4 then 'T'
|
||
when p_grouplen*5 then 'P'
|
||
when p_grouplen*6 then 'E'
|
||
else '*'||p_base||'^'||to_char( trunc(log(p_base,abs(p_num)))-trunc(mod(log(p_base,abs(p_num)),p_grouplen)) )
|
||
end;
|
||
|
||
end if;
|
||
|
||
end; -- tptformat
|
||
|
||
/*---------------------------------------------------
|
||
-- simple function for parsing arguments from parameter string
|
||
---------------------------------------------------*/
|
||
function getopt( p_parvalues in varchar2,
|
||
p_extract in varchar2,
|
||
p_delim in varchar2 default ','
|
||
) return varchar2
|
||
is
|
||
ret varchar(1000) := NULL;
|
||
begin
|
||
|
||
-- dbms_output.put('p_parvalues = ['||p_parvalues||'] ' );
|
||
-- dbms_output.put('p_extract = ['||p_extract||'] ' );
|
||
|
||
if lower(p_parvalues) like lower(p_extract)||'%'
|
||
or lower(p_parvalues) like '%'||p_delim||lower(p_extract)||'%' then
|
||
|
||
ret :=
|
||
nvl (
|
||
substr(p_parvalues,
|
||
instr(p_parvalues, p_extract)+length(p_extract),
|
||
case
|
||
instr(
|
||
substr(p_parvalues,
|
||
instr(p_parvalues, p_extract)+length(p_extract)
|
||
)
|
||
, p_delim
|
||
)
|
||
when 0 then length(p_parvalues)
|
||
else
|
||
instr(
|
||
substr(p_parvalues,
|
||
instr(p_parvalues, p_extract)+length(p_extract)
|
||
)
|
||
, p_delim
|
||
) - 1
|
||
end
|
||
)
|
||
, chr(0) -- in case parameter was specified but with no value
|
||
);
|
||
|
||
else
|
||
ret := null; -- no parameter found
|
||
end if;
|
||
|
||
-- dbms_output.put_line('ret = ['||ret||']');
|
||
|
||
return ret;
|
||
|
||
end; -- getopt
|
||
|
||
/*---------------------------------------------------
|
||
-- proc for getting session list with username, osuser, machine etc
|
||
---------------------------------------------------*/
|
||
procedure get_sessions is
|
||
tmp_sessions sestab;
|
||
begin
|
||
|
||
select
|
||
*
|
||
bulk collect into
|
||
tmp_sessions
|
||
from
|
||
v$session
|
||
where
|
||
sid in (&snapper_sid);
|
||
|
||
g_sessions := g_empty_sessions;
|
||
|
||
for i in 1..tmp_sessions.count loop
|
||
g_sessions(tmp_sessions(i).sid) := tmp_sessions(i);
|
||
end loop;
|
||
|
||
end; -- get_sessions
|
||
|
||
/*---------------------------------------------------
|
||
-- proc for querying performance data into collections
|
||
---------------------------------------------------*/
|
||
procedure snap( p_snapdate in out date, p_stats in out stab ) is
|
||
|
||
lv_include_stat varchar2(1000) := nvl( lower(getopt('&snapper_options', 'sinclude=' )), '%');
|
||
lv_include_latch varchar2(1000) := nvl( lower(getopt('&snapper_options', 'linclude=' )), '%');
|
||
lv_include_time varchar2(1000) := nvl( lower(getopt('&snapper_options', 'tinclude=' )), '%');
|
||
lv_include_wait varchar2(1000) := nvl( lower(getopt('&snapper_options', 'winclude=' )), '%');
|
||
|
||
|
||
begin
|
||
p_snapdate := sysdate;
|
||
|
||
select *
|
||
bulk collect into p_stats
|
||
from (
|
||
select 'STAT' stype, sid, statistic# - pls_adjust statistic#, value
|
||
from v$sesstat
|
||
where sid in (&snapper_sid)
|
||
and (lv_gather like '%s%' or lv_gather like '%a%')
|
||
and statistic# in (select /*+ no_unnest */ statistic# from v$statname
|
||
where lower(name) like '%'||lv_include_stat||'%'
|
||
&_IF_ORA10_OR_HIGHER or regexp_like (name, lv_include_stat, 'i')
|
||
)
|
||
--
|
||
union all
|
||
select
|
||
'WAIT', sw.sid,
|
||
en.event# + (select count(*) from v$statname) + 1 - pls_adjust,
|
||
nvl(se.time_waited_micro,0) + ( decode(se.event||sw.state, sw.event||'WAITING', sw.seconds_in_wait, 0) * 1000000 ) value
|
||
from v$session_wait sw, v$session_event se, v$event_name en
|
||
where sw.sid = se.sid
|
||
and se.event = en.name
|
||
and se.sid in (&snapper_sid)
|
||
and (lv_gather like '%w%' or lv_gather like '%a%')
|
||
and event# in (select event# from v$event_name
|
||
where lower(name) like '%'||lv_include_wait||'%'
|
||
&_IF_ORA10_OR_HIGHER or regexp_like (name, lv_include_wait, 'i')
|
||
)
|
||
--
|
||
&_IF_ORA10_OR_HIGHER union all
|
||
&_IF_ORA10_OR_HIGHER select 'TIME' stype, sid, stat_id - pls_adjust statistic#, value
|
||
&_IF_ORA10_OR_HIGHER from v$sess_time_model
|
||
&_IF_ORA10_OR_HIGHER where sid in (&snapper_sid)
|
||
&_IF_ORA10_OR_HIGHER and (lv_gather like '%t%' or lv_gather like '%a%')
|
||
&_IF_ORA10_OR_HIGHER and stat_id in (select stat_id from v$sys_time_model
|
||
&_IF_ORA10_OR_HIGHER where lower(stat_name) like '%'||lv_include_time||'%'
|
||
&_IF_ORA10_OR_HIGHER or regexp_like (stat_name, lv_include_time, 'i')
|
||
&_IF_ORA10_OR_HIGHER )
|
||
--
|
||
union all
|
||
select 'LATG', -1 sid,
|
||
l.latch# +
|
||
(select count(*) from v$statname) +
|
||
(select count(*) from v$event_name) +
|
||
1 - pls_adjust statistic#,
|
||
l.gets + l.immediate_gets value
|
||
from v$latch l
|
||
where
|
||
(lv_gather like '%l%' or lv_gather like '%a%')
|
||
and latch# in (select latch# from v$latchname
|
||
where lower(name) like '%'||lv_include_latch||'%'
|
||
&_IF_ORA10_OR_HIGHER or regexp_like (name, lv_include_latch, 'i')
|
||
)
|
||
--
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 union all
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 select 'BUFG', -1 sid,
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 s.indx +
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 (select count(*) from v$statname) +
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 (select count(*) from v$event_name) +
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 (select count(*) from v$latch) +
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 1 - pls_adjust statistic#,
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 s.why0+s.why1+s.why2 value
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 from x$kcbsw s, x$kcbwh w
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 where
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 s.indx = w.indx
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 and s.why0+s.why1+s.why2 > 0
|
||
&_IF_X_ACCESSIBLE &_IF_LOWER_THAN_ORA11 and (lv_gather like '%b%' or lv_gather like '%a%')
|
||
--
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER union all
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER select 'BUFG', -1 sid,
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER sw.indx +
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER (select count(*) from v$statname) +
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER (select count(*) from v$event_name) +
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER (select count(*) from v$latch) +
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER 1 - pls_adjust statistic#,
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER why.why0+why.why1+why.why2+sw.other_wait value
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER from
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER x$kcbuwhy why,
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER x$kcbwh dsc,
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER x$kcbsw sw
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER where
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER why.indx = dsc.indx
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER and why.why0 + why.why1 + why.why2 + sw.other_wait > 0
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER and dsc.indx = sw.indx
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER and why.indx = sw.indx
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER -- deliberate cartesian join
|
||
&_IF_X_ACCESSIBLE &_IF_ORA11_OR_HIGHER and (lv_gather like '%b%' or lv_gather like '%a%')
|
||
--
|
||
union all
|
||
select 'ENQG', -1 sid,
|
||
ascii(substr(e.eq_type,1,1))*256 + ascii(substr(e.eq_type,2,1)) +
|
||
(select count(*) from v$statname) +
|
||
(select count(*) from v$event_name) +
|
||
(select count(*) from v$latch) +
|
||
&_IF_X_ACCESSIBLE (select count(*) from x$kcbwh) +
|
||
1 - pls_adjust statistic#,
|
||
e.total_req# value
|
||
from v$enqueue_stat e
|
||
where
|
||
(lv_gather like '%e%' or lv_gather like '%a%')
|
||
) snapper_stats
|
||
order by sid, stype, statistic#;
|
||
end snap;
|
||
|
||
|
||
begin
|
||
|
||
pagesize := nvl( getopt('&snapper_options', 'pagesize=' ), pagesize);
|
||
--output ( 'Pagesize='||pagesize );
|
||
|
||
-- determine which statistics to collect
|
||
lv_gather := case nvl( lower(getopt ('&snapper_options', 'gather=')), 'stw')
|
||
when 'all' then 'stw'
|
||
else nvl( lower(getopt ('&snapper_options', 'gather=')), 'stw')
|
||
end;
|
||
|
||
--lv_gather:=getopt ('&snapper_options', 'gather=');
|
||
--output('lv_gather='||lv_gather);
|
||
|
||
|
||
|
||
if pagesize > 0 then
|
||
output(' ');
|
||
output('-- Session Snapper v2.02 by Tanel Poder ( http://www.tanelpoder.com )');
|
||
output(' ');
|
||
--output('-- ');
|
||
|
||
end if;
|
||
|
||
-- initialize statistic and event name array
|
||
-- fetch statistic names with their adjusted IDs
|
||
select *
|
||
bulk collect into sn_tmp
|
||
from (
|
||
select 'STAT' stype, statistic# - pls_adjust statistic#, name
|
||
from v$statname
|
||
where (lv_gather like '%s%' or lv_gather like '%a%')
|
||
--
|
||
union all
|
||
select 'WAIT',
|
||
event# + (select count(*) from v$statname) + 1 - pls_adjust, name
|
||
from v$event_name
|
||
where (lv_gather like '%w%' or lv_gather like '%a%')
|
||
--
|
||
&_IF_ORA10_OR_HIGHER union all
|
||
&_IF_ORA10_OR_HIGHER select 'TIME' stype, stat_id - pls_adjust statistic#, stat_name name
|
||
&_IF_ORA10_OR_HIGHER from v$sys_time_model
|
||
&_IF_ORA10_OR_HIGHER where (lv_gather like '%t%' or lv_gather like '%a%')
|
||
--
|
||
union all
|
||
select 'LATG',
|
||
l.latch# +
|
||
(select count(*) from v$statname) +
|
||
(select count(*) from v$event_name) +
|
||
1 - pls_adjust statistic#,
|
||
name
|
||
from v$latch l
|
||
where (lv_gather like '%l%' or lv_gather like '%a%')
|
||
--
|
||
&_IF_X_ACCESSIBLE union all
|
||
&_IF_X_ACCESSIBLE select 'BUFG',
|
||
&_IF_X_ACCESSIBLE indx +
|
||
&_IF_X_ACCESSIBLE (select count(*) from v$statname) +
|
||
&_IF_X_ACCESSIBLE (select count(*) from v$event_name) +
|
||
&_IF_X_ACCESSIBLE (select count(*) from v$latch) +
|
||
&_IF_X_ACCESSIBLE 1 - pls_adjust statistic#,
|
||
&_IF_X_ACCESSIBLE kcbwhdes name
|
||
&_IF_X_ACCESSIBLE from x$kcbwh
|
||
&_IF_X_ACCESSIBLE where (lv_gather like '%b%' or lv_gather like '%a%')
|
||
--
|
||
union all
|
||
select 'ENQG',
|
||
ascii(substr(e.eq_type,1,1))*256 + ascii(substr(e.eq_type,2,1)) +
|
||
(select count(*) from v$statname) +
|
||
(select count(*) from v$event_name) +
|
||
(select count(*) from v$latch) +
|
||
&_IF_X_ACCESSIBLE (select count(*) from x$kcbwh) +
|
||
1 - pls_adjust statistic#,
|
||
eq_type
|
||
from (
|
||
select es.eq_type
|
||
&_IF_ORA10_OR_HIGHER ||' - '||lt.name
|
||
eq_type,
|
||
total_req#
|
||
from
|
||
v$enqueue_stat es
|
||
&_IF_ORA10_OR_HIGHER , v$lock_type lt
|
||
&_IF_ORA10_OR_HIGHER where es.eq_type = lt.type
|
||
) e
|
||
where (lv_gather like '%e%' or lv_gather like '%a%')
|
||
) snapper_statnames
|
||
order by stype, statistic#;
|
||
|
||
-- store these into an index_by array organized by statistic# for fast lookup
|
||
--output('sn_tmp.count='||sn_tmp.count);
|
||
--output('lv_gather='||lv_gather);
|
||
for i in 1..sn_tmp.count loop
|
||
-- output('i='||i||' statistic#='||sn_tmp(i).statistic#);
|
||
sn(sn_tmp(i).statistic#) := sn_tmp(i);
|
||
end loop;
|
||
|
||
|
||
-- main sampling loop
|
||
for c in 1..&snapper_count loop
|
||
|
||
-- print header if required
|
||
lv_header_string :=
|
||
CASE WHEN output_header = 1 THEN 'HEAD,' END
|
||
|| CASE WHEN output_sid = 1 THEN ' SID,' END
|
||
|| CASE WHEN output_username = 1 THEN ' USERNAME ,' END
|
||
|| CASE WHEN output_time = 1 THEN ' SNAPSHOT START ,' END
|
||
|| CASE WHEN output_seconds = 1 THEN ' SECONDS,' END
|
||
|| CASE WHEN output_stype = 1 THEN ' TYPE,' END
|
||
|| CASE WHEN output_sname = 1 THEN rpad(' STATISTIC',41,' ')||',' END
|
||
|| CASE WHEN output_delta = 1 THEN ' DELTA,' END
|
||
|| CASE WHEN output_delta_s = 1 THEN ' DELTA/SEC,' END
|
||
|| CASE WHEN output_hdelta = 1 THEN ' HDELTA,' END
|
||
|| CASE WHEN output_hdelta_s = 1 THEN ' HDELTA/SEC,' END
|
||
|| CASE WHEN output_percent = 1 THEN ' %TIME,' END
|
||
|| CASE WHEN output_pcthist = 1 THEN ' GRAPH ' END
|
||
;
|
||
|
||
|
||
if pagesize > 0 and mod(c-1, pagesize) = 0 then
|
||
output(rpad('-',length(lv_header_string),'-'));
|
||
output(lv_header_string);
|
||
output(rpad('-',length(lv_header_string),'-'));
|
||
else
|
||
if pagesize = -1 and c = 1 then
|
||
|
||
output(lv_header_string);
|
||
|
||
end if;
|
||
end if;
|
||
|
||
|
||
if c = 1 then
|
||
|
||
get_sessions;
|
||
snap(d1,s1);
|
||
|
||
else
|
||
|
||
get_sessions;
|
||
d1 := d2;
|
||
s1 := s2;
|
||
|
||
end if; -- c = 1
|
||
|
||
dbms_lock.sleep( (&snapper_sleep - (sysdate - d1)) );
|
||
-- dbms_lock.sleep( (&snapper_sleep - (sysdate - d1))*1000/1024 );
|
||
|
||
get_sessions;
|
||
snap(d2,s2);
|
||
|
||
-- manually coded nested loop outer join for calculating deltas
|
||
-- why not use a SQL join? this would require creation of PL/SQL
|
||
-- collection object types, but Snapper does not require any changes
|
||
-- to the database, so any custom object types are out!
|
||
changed_values := 0;
|
||
missing_values_s1 := 0;
|
||
missing_values_s2 := 0;
|
||
|
||
-- remember last disappeared SID so we woudlnt need to output a warning
|
||
-- message for each statistic row of that disappeared sid
|
||
disappeared_sid := 0;
|
||
|
||
i :=1; -- iteration counter (for debugging)
|
||
a :=1; -- s1 array index
|
||
b :=1; -- s2 array index
|
||
|
||
while ( a <= s1.count and b <= s2.count ) loop
|
||
|
||
delta := 0; -- don't print
|
||
|
||
case
|
||
when s1(a).sid = s2(b).sid then
|
||
|
||
case
|
||
when s1(a).statistic# = s2(b).statistic# then
|
||
|
||
delta := s2(b).value - s1(a).value;
|
||
if delta != 0 then fout(); end if;
|
||
|
||
a := a + 1;
|
||
b := b + 1;
|
||
|
||
when s1(a).statistic# > s2(b).statistic# then
|
||
|
||
delta := s2(b).value;
|
||
if delta != 0 then fout(); end if;
|
||
|
||
b := b + 1;
|
||
|
||
when s1(a).statistic# < s2(b).statistic# then
|
||
|
||
output('ERROR, s1(a).statistic# < s2(b).statistic#, a='||to_char(a)||' b='||to_char(b)||' s1.count='||s1.count||' s2.count='||s2.count||' s2.count='||s2.count);
|
||
a := a + 1;
|
||
b := b + 1;
|
||
|
||
else
|
||
output('ERROR, s1(a).statistic# ? s2(b).statistic#, a='||to_char(a)||' b='||to_char(b)||' s1.count='||s1.count||' s2.count='||s2.count||' s2.count='||s2.count);
|
||
a := a + 1;
|
||
b := b + 1;
|
||
|
||
end case; -- s1(a).statistic# ... s2(b).statistic#
|
||
|
||
when s1(a).sid > s2(b).sid then
|
||
|
||
delta := s2(b).value;
|
||
if delta != 0 then fout(); end if;
|
||
|
||
b := b + 1;
|
||
|
||
when s1(a).sid < s2(b).sid then
|
||
|
||
if disappeared_sid != s2(b).sid then
|
||
output('WARN, Session has disappeared during snapshot, ignoring SID='||to_char(s2(b).sid)||' debug(a='||to_char(a)||' b='||to_char(b)||' s1.count='||s1.count||' s2.count='||s2.count||' s2.count='||s2.count||')');
|
||
end if;
|
||
disappeared_sid := s2(b).sid;
|
||
a := a + 1;
|
||
|
||
else
|
||
output('ERROR, Should not be here, SID='||to_char(s2(b).sid)||' a='||to_char(a)||' b='||to_char(b)||' s1.count='||s1.count||' s2.count='||s2.count||' s2.count='||s2.count);
|
||
|
||
end case; -- s1(a).sid ... s2(b).sid
|
||
|
||
i:=i+1;
|
||
|
||
if delta != 0 then
|
||
|
||
changed_values := changed_values + 1;
|
||
|
||
end if; -- delta != 0
|
||
|
||
end loop; -- while ( a <= s1.count and b <= s2.count )
|
||
|
||
|
||
if pagesize > 0 and changed_values > 0 then output('-- End of snap '||to_char(c)||', end='||to_char(d2, 'YYYY-MM-DD HH24:MI:SS')||', seconds='||to_char(case (d2-d1) when 0 then &snapper_sleep else round((d2-d1) * 86400, 1) end)); output(''); end if;
|
||
|
||
end loop; -- for c in 1..snapper_count
|
||
|
||
end;
|
||
/
|
||
|
||
undefine snapper_oraversion
|
||
undefine snapper_sleep
|
||
undefine snapper_count
|
||
undefine snapper_sid
|
||
undefine snapper_options
|
||
undefine _IF_ORA10_OR_HIGHER
|
||
undefine _IF_ORA11_OR_HIGHER
|
||
undefine _IF_LOWER_THAN_ORA11
|
||
undefine _IF_DBMS_SYSTEM_ACCESSIBLE
|
||
undefine _IF_X_ACCESSIBLE
|
||
col snapper_ora10higher clear
|
||
col snapper_ora11higher clear
|
||
col snapper_ora11lower clear
|
||
col dbms_system_accessible clear
|
||
|
||
set serverout off
|