-------------------------------------------------------------------------------- -- -- 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,,.... -- ¿ 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 - 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) -- -- - the number of seconds between taking snapshots -- - the number of snapshots to take ( maximum value is power(2,31)-1 ) -- -- 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 -- 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