Carlos Sierra - mystat
----------------------------------------------------------------------------------------
--
-- File name: mystat.sql
--
-- Purpose: Reports delta of current sessions stats before and after a SQL
--
-- Author: Carlos Sierra
--
-- Version: 2013/10/04
--
-- Usage: This scripts does not have parameters. It just needs to be executed
-- twice. First execution just before the SQL that needs to be evaluated.
-- Second execution right after.
--
-- Example: @mystat.sql
-- <any sql>
-- @mystat.sql
--
-- Description:
--
-- This script takes a snapshot of v$mystat every time it is executed. Then,
-- on first execution it does nothing else. On second execution it produces
-- a report with the gap between the first and second execution, and resets
-- all snapshots.
--
-- If you want to capture session statistics for one SQL, then execute this
-- script right before and after your SQL.
--
-- Notes:
--
-- This script uses the global temporary plan_table as a repository.
--
-- Developed and tested on 11.2.0.3
--
-- For a more robust tool use Tanel Poder snaper at
-- http://blog.tanelpoder.com
--
---------------------------------------------------------------------------------------
--
-- snap of v$mystat
INSERT INTO plan_table (
statement_id /* record_type */,
timestamp,
object_node /* class */,
object_alias /* name */,
cost /* value */)
SELECT 'v$mystat' record_type,
SYSDATE,
TRIM (',' FROM
TRIM (' ' FROM
DECODE(BITAND(n.class, 1), 1, 'User, ')||
DECODE(BITAND(n.class, 2), 2, 'Redo, ')||
DECODE(BITAND(n.class, 4), 4, 'Enqueue, ')||
DECODE(BITAND(n.class, 8), 8, 'Cache, ')||
DECODE(BITAND(n.class, 16), 16, 'OS, ')||
DECODE(BITAND(n.class, 32), 32, 'RAC, ')||
DECODE(BITAND(n.class, 64), 64, 'SQL, ')||
DECODE(BITAND(n.class, 128), 128, 'Debug, ')
)) class,
n.name,
s.value
FROM v$mystat s,
v$statname n
WHERE s.statistic# = n.statistic#;
--
DEF date_mask = 'YYYY-MM-DD HH24:MI:SS';
COL snap_date_end NEW_V snap_date_end;
COL snap_date_begin NEW_V snap_date_begin;
SET VER OFF PAGES 1000;
--
-- end snap
SELECT TO_CHAR(MAX(timestamp), '&&date_mask.') snap_date_end
FROM plan_table
WHERE statement_id = 'v$mystat';
--
-- begin snap (null if there is only one snap)
SELECT TO_CHAR(MAX(timestamp), '&&date_mask.') snap_date_begin
FROM plan_table
WHERE statement_id = 'v$mystat'
AND TO_CHAR(timestamp, '&&date_mask.') < '&&snap_date_end.';
--
COL statistics_name FOR A62 HEA "Statistics Name";
COL difference FOR 999,999,999,999 HEA "Difference";
--
-- report only if there is a begin and end snaps
SELECT (e.cost - b.cost) difference,
--b.object_node||': '||b.object_alias statistics_name
b.object_alias statistics_name
FROM plan_table b,
plan_table e
WHERE '&&snap_date_begin.' IS NOT NULL
AND b.statement_id = 'v$mystat'
AND b.timestamp = TO_DATE('&&snap_date_begin.', '&&date_mask.')
AND e.statement_id = 'v$mystat'
AND e.timestamp = TO_DATE('&&snap_date_end.', '&&date_mask.')
AND e.object_alias = b.object_alias /* name */
AND e.cost > b.cost /* value */
ORDER BY
--b.object_node,
b.object_alias;
--
-- report snaps
SELECT '&&snap_date_begin.' snap_date_begin,
'&&snap_date_end.' snap_date_end
FROM DUAL
WHERE '&&snap_date_begin.' IS NOT NULL;
--
-- delete only if report is not empty
DELETE plan_table
WHERE '&&snap_date_begin.' IS NOT NULL
AND statement_id = 'v$mystat';
-- end Andy Klock version
CREATE TABLE RUN_STATS
( "TEST_NAME" VARCHAR2(100),
"SNAP_TYPE" VARCHAR2(5),
"SNAP_TIME" DATE,
"STAT_CLASS" VARCHAR2(10),
"NAME" VARCHAR2(100),
"VALUE" NUMBER);
create or replace package snap_time is
-- Author : I604174
-- Created : 7/21/2014 2:46:05 PM
-- Purpose : Grabs timestamp and session stats
-- Code borrowed from Carlos Sierra's mystat.sql
-- http://carlos-sierra.net/2013/10/04/carlos-sierra-shared-scripts/
/*
grants:
grant select on v_$statname to i604174;
grant select on v_$mystat to i604174;
grant execute on i604174.snap_time to public;
create public synonym snap_time on i604174.snap_time;
create public synonym snap_time for i604174.snap_time;
*/
procedure begin_snap (p_run_name varchar2);
procedure end_snap (p_run_name varchar2);
end snap_time;
/
create or replace package body snap_time is
procedure begin_snap (p_run_name varchar2) is
l_sysdate date:=sysdate;
begin
-- snap time
insert into run_stats values (p_run_name,'BEGIN',l_sysdate,'SNAP','snap time',null);
-- snap mystat
insert into run_stats
SELECT p_run_name record_type,
'BEGIN',
l_sysdate,
TRIM (',' FROM
TRIM (' ' FROM
DECODE(BITAND(n.class, 1), 1, 'User, ')||
DECODE(BITAND(n.class, 2), 2, 'Redo, ')||
DECODE(BITAND(n.class, 4), 4, 'Enqueue, ')||
DECODE(BITAND(n.class, 8), 8, 'Cache, ')||
DECODE(BITAND(n.class, 16), 16, 'OS, ')||
DECODE(BITAND(n.class, 32), 32, 'RAC, ')||
DECODE(BITAND(n.class, 64), 64, 'SQL, ')||
DECODE(BITAND(n.class, 128), 128, 'Debug, ')
)) class,
n.name,
s.value
FROM v$mystat s,
v$statname n
WHERE s.statistic# = n.statistic#;
commit;
end begin_snap;
procedure end_snap (p_run_name varchar2) is
l_sysdate date:=sysdate;
begin
-- snap time
insert into run_stats values (p_run_name,'END',l_sysdate,'SNAP','snap time',null);
-- snap mystat
insert into run_stats
SELECT p_run_name record_type,
'END',
l_sysdate,
TRIM (',' FROM
TRIM (' ' FROM
DECODE(BITAND(n.class, 1), 1, 'User, ')||
DECODE(BITAND(n.class, 2), 2, 'Redo, ')||
DECODE(BITAND(n.class, 4), 4, 'Enqueue, ')||
DECODE(BITAND(n.class, 8), 8, 'Cache, ')||
DECODE(BITAND(n.class, 16), 16, 'OS, ')||
DECODE(BITAND(n.class, 32), 32, 'RAC, ')||
DECODE(BITAND(n.class, 64), 64, 'SQL, ')||
DECODE(BITAND(n.class, 128), 128, 'Debug, ')
)) class,
n.name,
s.value
FROM v$mystat s,
v$statname n
WHERE s.statistic# = n.statistic#;
commit;
end end_snap;
end snap_time;
/
/*
Usage:
exec snap_time.begin_snap('Test 1.1')
run something
exec snap_time.end_snap('Test 1.1')
get time differences:
select test_name, begin_snap_time, end_snap_time, round((end_snap_time - begin_snap_time)* 1440,2) duration_minutes from (
select test_name, snap_type, lag(snap_time,1,null) over (order by test_name,snap_time) begin_snap_time,
snap_time end_snap_time
from run_stats
where name = 'snap time'
order by test_name, snap_time)
where snap_type = 'END'
order by test_name, begin_snap_time;
*/
![]()
