466 lines
13 KiB
MySQL
466 lines
13 KiB
MySQL
|
/**********************************************************************
|
||
|
|
* File: enqwaits.sql
|
||
|
|
* Type: SQL*Plus script
|
||
|
|
* Author: Tim Gorman (Evergreen Database Technologies, Inc.)
|
||
|
|
* Date: 15jan01
|
||
|
|
*
|
||
|
|
* Description:
|
||
|
|
*
|
||
|
|
* This report is intended to provide a complete picture of the
|
||
|
|
* dependencies that ensue when session-based enqueues cause other
|
||
|
|
* sessions to "wait" (or be "blocked").
|
||
|
|
*
|
||
|
|
* Modifications:
|
||
|
|
* TGorman 15jan01 written
|
||
|
|
*********************************************************************/
|
||
|
|
REM
|
||
|
|
REM If your installation is running Oracle Apps R11+, then leave the following
|
||
|
|
REM two substitution variables containing blank values.
|
||
|
|
REM
|
||
|
|
REM If your database is not running Oracle Apps, then assign the string "/*"
|
||
|
|
REM (i.e. start comment) to the substitution variable START_ORACLE_APPS_CODE and
|
||
|
|
REM the string "*/" (i.e. end comment) to the substitution variables
|
||
|
|
REM END_ORACLE_APPS_CODE.
|
||
|
|
REM
|
||
|
|
define START_ORACLE_APPS_CODE=""
|
||
|
|
define END_ORACLE_APPS_CODE=""
|
||
|
|
|
||
|
|
spool enqwaits
|
||
|
|
set echo on feedback on timing on termout off
|
||
|
|
create or replace procedure enqwaits
|
||
|
|
(b_GetRelatedSessions in boolean default FALSE)
|
||
|
|
is
|
||
|
|
--
|
||
|
|
cursor get_sqltext(in_address in raw)
|
||
|
|
is
|
||
|
|
select SQL_TEXT
|
||
|
|
from SYS.V_$SQLTEXT
|
||
|
|
where ADDRESS = in_address
|
||
|
|
order by PIECE;
|
||
|
|
--
|
||
|
|
cursor get_waiters
|
||
|
|
is
|
||
|
|
select SID,
|
||
|
|
TYPE,
|
||
|
|
DECODE(TYPE,
|
||
|
|
'BL','Buffer hash table',
|
||
|
|
'CF','Control File Transaction',
|
||
|
|
'CI','Cross Instance Call',
|
||
|
|
'CS','Control File Schema',
|
||
|
|
'CU','Bind Enqueue',
|
||
|
|
'DF','Data File',
|
||
|
|
'DL','Direct-loader index-creation',
|
||
|
|
'DM','Mount/startup db primary/secondary instance',
|
||
|
|
'DR','Distributed Recovery Process',
|
||
|
|
'DX','Distributed Transaction Entry',
|
||
|
|
'FI','SGA Open-File Information',
|
||
|
|
'FS','File Set',
|
||
|
|
'IN','Instance Number',
|
||
|
|
'IR','Instance Recovery Serialization',
|
||
|
|
'IS','Instance State',
|
||
|
|
'IV','Library Cache InValidation',
|
||
|
|
'JQ','Job Queue',
|
||
|
|
'KK','Redo Log "Kick"',
|
||
|
|
'LS','Log Start/Log Switch',
|
||
|
|
'MB','Master Buffer hash table',
|
||
|
|
'MM','Mount Definition',
|
||
|
|
'MR','Media Recovery',
|
||
|
|
'PF','Password File',
|
||
|
|
'PI','Parallel Slaves',
|
||
|
|
'PR','Process Startup',
|
||
|
|
'PS','Parallel Slaves Synchronization',
|
||
|
|
'RE','USE_ROW_ENQUEUE Enforcement',
|
||
|
|
'RT','Redo Thread',
|
||
|
|
'RW','Row Wait',
|
||
|
|
'SC','System Commit Number',
|
||
|
|
'SH','System Commit Number HWM',
|
||
|
|
'SM','SMON',
|
||
|
|
'SQ','Sequence Number',
|
||
|
|
'SR','Synchronized Replication',
|
||
|
|
'SS','Sort Segment',
|
||
|
|
'ST','Space Transaction',
|
||
|
|
'SV','Sequence Number Value',
|
||
|
|
'TA','Transaction Recovery',
|
||
|
|
'TD','DDL enqueue',
|
||
|
|
'TE','Extend-segment enqueue',
|
||
|
|
'TM','DML enqueue',
|
||
|
|
'TS','Temporary Segment',
|
||
|
|
'TT','Temporary Table',
|
||
|
|
'TX','Transaction',
|
||
|
|
'UL','User-defined Lock',
|
||
|
|
'UN','User Name',
|
||
|
|
'US','Undo Segment Serialization',
|
||
|
|
'WL','Being-written redo log instance',
|
||
|
|
'WS','Write-atomic-log-switch global enqueue',
|
||
|
|
'XA','Instance Attribute',
|
||
|
|
'XI','Instance Registration',
|
||
|
|
decode(substr(TYPE,1,1),
|
||
|
|
'L','Library Cache ('||substr(TYPE,2,1)||')',
|
||
|
|
'N','Library Cache Pin ('||substr(TYPE,2,1)||')',
|
||
|
|
'Q','Row Cache ('||substr(TYPE,2,1)||')',
|
||
|
|
'????')) LOCK_TYPE,
|
||
|
|
REQUEST,
|
||
|
|
DECODE(REQUEST,
|
||
|
|
0, '',
|
||
|
|
1, 'Null',
|
||
|
|
2, 'Sub-Share',
|
||
|
|
3, 'Sub-Exclusive',
|
||
|
|
4, 'Share',
|
||
|
|
5, 'Share/Sub-Excl',
|
||
|
|
6, 'Exclusive',
|
||
|
|
'<Unknown>') MODE_REQUESTED,
|
||
|
|
ID1,
|
||
|
|
ID2
|
||
|
|
from SYS.V_$LOCK
|
||
|
|
where REQUEST > 0
|
||
|
|
and LMODE = 0;
|
||
|
|
--
|
||
|
|
cursor get_blockers(in_type in varchar2,
|
||
|
|
in_id1 in number,
|
||
|
|
in_id2 in number,
|
||
|
|
in_sid in number)
|
||
|
|
is
|
||
|
|
select SID,
|
||
|
|
TYPE,
|
||
|
|
DECODE(TYPE,
|
||
|
|
'BL','Buffer hash table',
|
||
|
|
'CF','Control File Transaction',
|
||
|
|
'CI','Cross Instance Call',
|
||
|
|
'CS','Control File Schema',
|
||
|
|
'CU','Bind Enqueue',
|
||
|
|
'DF','Data File',
|
||
|
|
'DL','Direct-loader index-creation',
|
||
|
|
'DM','Mount/startup db primary/secondary instance',
|
||
|
|
'DR','Distributed Recovery Process',
|
||
|
|
'DX','Distributed Transaction Entry',
|
||
|
|
'FI','SGA Open-File Information',
|
||
|
|
'FS','File Set',
|
||
|
|
'IN','Instance Number',
|
||
|
|
'IR','Instance Recovery Serialization',
|
||
|
|
'IS','Instance State',
|
||
|
|
'IV','Library Cache InValidation',
|
||
|
|
'JQ','Job Queue',
|
||
|
|
'KK','Redo Log "Kick"',
|
||
|
|
'LS','Log Start/Log Switch',
|
||
|
|
'MB','Master Buffer hash table',
|
||
|
|
'MM','Mount Definition',
|
||
|
|
'MR','Media Recovery',
|
||
|
|
'PF','Password File',
|
||
|
|
'PI','Parallel Slaves',
|
||
|
|
'PR','Process Startup',
|
||
|
|
'PS','Parallel Slaves Synchronization',
|
||
|
|
'RE','USE_ROW_ENQUEUE Enforcement',
|
||
|
|
'RT','Redo Thread',
|
||
|
|
'RW','Row Wait',
|
||
|
|
'SC','System Commit Number',
|
||
|
|
'SH','System Commit Number HWM',
|
||
|
|
'SM','SMON',
|
||
|
|
'SQ','Sequence Number',
|
||
|
|
'SR','Synchronized Replication',
|
||
|
|
'SS','Sort Segment',
|
||
|
|
'ST','Space Transaction',
|
||
|
|
'SV','Sequence Number Value',
|
||
|
|
'TA','Transaction Recovery',
|
||
|
|
'TD','DDL enqueue',
|
||
|
|
'TE','Extend-segment enqueue',
|
||
|
|
'TM','DML enqueue',
|
||
|
|
'TS','Temporary Segment',
|
||
|
|
'TT','Temporary Table',
|
||
|
|
'TX','Transaction',
|
||
|
|
'UL','User-defined Lock',
|
||
|
|
'UN','User Name',
|
||
|
|
'US','Undo Segment Serialization',
|
||
|
|
'WL','Being-written redo log instance',
|
||
|
|
'WS','Write-atomic-log-switch global enqueue',
|
||
|
|
'XA','Instance Attribute',
|
||
|
|
'XI','Instance Registration',
|
||
|
|
decode(substr(TYPE,1,1),
|
||
|
|
'L','Library Cache ('||substr(TYPE,2,1)||')',
|
||
|
|
'N','Library Cache Pin ('||substr(TYPE,2,1)||')',
|
||
|
|
'Q','Row Cache ('||substr(TYPE,2,1)||')',
|
||
|
|
'????')) LOCK_TYPE,
|
||
|
|
LMODE,
|
||
|
|
DECODE(LMODE,
|
||
|
|
0, '--Waiting--',
|
||
|
|
1, 'Null',
|
||
|
|
2, 'Sub-Share',
|
||
|
|
3, 'Sub-Exclusive',
|
||
|
|
4, 'Share',
|
||
|
|
5, 'Share/Sub-Excl',
|
||
|
|
6, 'Exclusive',
|
||
|
|
'<Unknown>') MODE_HELD,
|
||
|
|
ID1,
|
||
|
|
ID2
|
||
|
|
from SYS.V_$LOCK
|
||
|
|
where TYPE = in_type
|
||
|
|
and ID1 = in_id1
|
||
|
|
and ID2 = in_id2
|
||
|
|
and SID <> in_sid
|
||
|
|
and LMODE > 0
|
||
|
|
and REQUEST = 0;
|
||
|
|
--
|
||
|
|
cursor get_related_sessions(in_sid in number)
|
||
|
|
is
|
||
|
|
select S.SID,
|
||
|
|
S.SERIAL# SNBR,
|
||
|
|
S.LOGON_TIME,
|
||
|
|
S.USERNAME,
|
||
|
|
S.SQL_ADDRESS,
|
||
|
|
S.STATUS,
|
||
|
|
S.OSUSER,
|
||
|
|
P.SPID,
|
||
|
|
T.XIDUSN || '.' || T.XIDSLOT || '.' || T.XIDSQN TXN_ID,
|
||
|
|
T.STATUS TXN_STATUS,
|
||
|
|
T.START_TIME TXN_START_TIME,
|
||
|
|
T.USED_UBLK,
|
||
|
|
T.USED_UREC
|
||
|
|
from SYS.V_$SESSION S1,
|
||
|
|
SYS.V_$SESSION S,
|
||
|
|
SYS.V_$PROCESS P,
|
||
|
|
SYS.V_$TRANSACTION T
|
||
|
|
where S1.SID = in_sid
|
||
|
|
and S.PADDR = S1.PADDR
|
||
|
|
and P.ADDR = S1.PADDR
|
||
|
|
and T.ADDR (+) = S1.TADDR
|
||
|
|
order by decode(S.SID, in_sid, 0, S.SID);
|
||
|
|
--
|
||
|
|
cursor get_dml_locks(in_sid in number)
|
||
|
|
is
|
||
|
|
select o.OWNER,
|
||
|
|
o.OBJECT_TYPE type,
|
||
|
|
o.OBJECT_NAME name,
|
||
|
|
decode(l.LMODE,
|
||
|
|
0, 'REQUESTED=' ||
|
||
|
|
DECODE(l.REQUEST,
|
||
|
|
0, '--Waiting--',
|
||
|
|
1, 'Null',
|
||
|
|
2, 'Sub-Share',
|
||
|
|
3, 'Sub-Exclusive',
|
||
|
|
4, 'Share',
|
||
|
|
5, 'Share/Sub-Excl',
|
||
|
|
6, 'Exclusive',
|
||
|
|
'<Unknown>'),
|
||
|
|
'HELD=' ||
|
||
|
|
DECODE(l.LMODE,
|
||
|
|
0, '--Waiting--',
|
||
|
|
1, 'Null',
|
||
|
|
2, 'Sub-Share',
|
||
|
|
3, 'Sub-Exclusive',
|
||
|
|
4, 'Share',
|
||
|
|
5, 'Share/Sub-Excl',
|
||
|
|
6, 'Exclusive',
|
||
|
|
'<Unknown>')) lmode
|
||
|
|
from sys.V_$LOCK l,
|
||
|
|
sys.DBA_OBJECTS o
|
||
|
|
where l.sid = in_sid
|
||
|
|
and l.type = 'TM'
|
||
|
|
and o.object_id = l.id1;
|
||
|
|
--
|
||
|
|
v_waiter_username varchar2(30);
|
||
|
|
v_blocker_username varchar2(30);
|
||
|
|
v_errcontext varchar2(80);
|
||
|
|
v_errmsg varchar2(300);
|
||
|
|
--
|
||
|
|
begin
|
||
|
|
--
|
||
|
|
v_errcontext := 'open/fetch get_waiters';
|
||
|
|
for w in get_waiters loop
|
||
|
|
--
|
||
|
|
dbms_output.put_line('.');
|
||
|
|
v_errcontext := 'open/fetch get_related_sessions (waiters)';
|
||
|
|
for rw in get_related_sessions(w.sid) loop
|
||
|
|
--
|
||
|
|
if w.sid = rw.sid then
|
||
|
|
--
|
||
|
|
v_waiter_username := rw.username;
|
||
|
|
--
|
||
|
|
&&START_ORACLE_APPS_CODE
|
||
|
|
v_errcontext := 'query waiters OraApps user info';
|
||
|
|
begin
|
||
|
|
select u.user_name
|
||
|
|
into v_waiter_username
|
||
|
|
from apps.fnd_logins l,
|
||
|
|
apps.fnd_user u
|
||
|
|
where l.spid = rw.spid
|
||
|
|
and l.login_name = rw.osuser
|
||
|
|
and l.end_time is null
|
||
|
|
and l.start_time =
|
||
|
|
(select max(ll.start_time)
|
||
|
|
from apps.fnd_logins ll
|
||
|
|
where ll.spid = l.spid
|
||
|
|
and ll.end_time is null)
|
||
|
|
and u.user_id = l.user_id;
|
||
|
|
exception
|
||
|
|
when no_data_found then
|
||
|
|
v_waiter_username := '';
|
||
|
|
when too_many_rows then
|
||
|
|
null;
|
||
|
|
end;
|
||
|
|
&&END_ORACLE_APPS_CODE
|
||
|
|
--
|
||
|
|
v_errcontext := 'PUT_LINE waiters session/lock info';
|
||
|
|
dbms_output.put_line(substr('Waiter: SID=' || rw.sid ||
|
||
|
|
' (' || rw.status || '), Logged on at ' ||
|
||
|
|
to_char(rw.logon_time,'DD-MON HH24:MI'),1,78));
|
||
|
|
dbms_output.put_line('....... REQUESTED LOCK|MODE=' ||
|
||
|
|
w.type || ' (' || w.lock_type ||
|
||
|
|
') | ' || w.mode_requested ||
|
||
|
|
' (' || w.id1 || ',' || w.id2 || ')');
|
||
|
|
dbms_output.put_line('....... AppsUser=' || v_waiter_username);
|
||
|
|
dbms_output.put_line('....... OS PID=' || rw.spid);
|
||
|
|
--
|
||
|
|
else
|
||
|
|
--
|
||
|
|
if b_GetRelatedSessions = FALSE then
|
||
|
|
--
|
||
|
|
exit; -- ...exit from "get_related_sessions" cursor loop
|
||
|
|
--
|
||
|
|
end if;
|
||
|
|
--
|
||
|
|
v_errcontext := 'PUT_LINE related waiters session info';
|
||
|
|
dbms_output.put_line(substr('... Related waiting SID=' ||
|
||
|
|
rw.sid || ' (' || rw.status ||
|
||
|
|
'), Logged on at ' ||
|
||
|
|
to_char(rw.logon_time,'DD-MON HH24:MI'),1,78));
|
||
|
|
--
|
||
|
|
end if;
|
||
|
|
--
|
||
|
|
dbms_output.put_line('.... TXN ID=' || rw.txn_id ||
|
||
|
|
' (' || rw.txn_status || ') started=' ||
|
||
|
|
rw.txn_start_time || ' undo=' || rw.used_ublk || 'b/' ||
|
||
|
|
rw.used_urec || 'r');
|
||
|
|
--
|
||
|
|
v_errcontext := 'open/fetch get_dml_locks (waiters)';
|
||
|
|
for d in get_dml_locks(rw.sid) loop
|
||
|
|
--
|
||
|
|
dbms_output.put_line(substr('....... DML Lock: ' ||
|
||
|
|
d.owner || '.' || d.name || ' (' || d.type || ') - LOCK ' ||
|
||
|
|
d.lmode,1,78));
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close get_dml_locks (waiters)';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_dml_locks (waiters)" cursor loop */
|
||
|
|
--
|
||
|
|
dbms_output.put_line('.... SQL Statement currently executing:');
|
||
|
|
v_errcontext := 'open/fetch waiters get_sqltext';
|
||
|
|
for t in get_sqltext(rw.sql_address) loop
|
||
|
|
--
|
||
|
|
dbms_output.put_line('....... ' || t.sql_text);
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close waiters get_sqltext';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_sqltext" cursor loop */
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close get_related_sessions (waiters)';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_related_sessions (waiters)" cursor loop */
|
||
|
|
--
|
||
|
|
v_errcontext := 'open/fetch get_blockers';
|
||
|
|
for b in get_blockers(w.type, w.id1, w.id2, w.sid) loop
|
||
|
|
--
|
||
|
|
v_errcontext := 'open/fetch get_related_sessions (blockers)';
|
||
|
|
for rb in get_related_sessions(b.sid) loop
|
||
|
|
--
|
||
|
|
if b.sid = rb.sid then
|
||
|
|
--
|
||
|
|
v_blocker_username := rb.username;
|
||
|
|
--
|
||
|
|
&&START_ORACLE_APPS_CODE
|
||
|
|
v_errcontext := 'query blockers OraApps user info';
|
||
|
|
begin
|
||
|
|
select u.user_name
|
||
|
|
into v_blocker_username
|
||
|
|
from apps.fnd_logins l,
|
||
|
|
apps.fnd_user u
|
||
|
|
where l.spid = rb.spid
|
||
|
|
and l.login_name = rb.osuser
|
||
|
|
and l.end_time is null
|
||
|
|
and l.start_time =
|
||
|
|
(select max(ll.start_time)
|
||
|
|
from apps.fnd_logins ll
|
||
|
|
where ll.spid = l.spid
|
||
|
|
and ll.end_time is null)
|
||
|
|
and u.user_id = l.user_id;
|
||
|
|
exception
|
||
|
|
when no_data_found then
|
||
|
|
v_blocker_username := '';
|
||
|
|
when too_many_rows then
|
||
|
|
null;
|
||
|
|
end;
|
||
|
|
&&END_ORACLE_APPS_CODE
|
||
|
|
--
|
||
|
|
v_errcontext := 'PUT_LINE blockers session/lock info';
|
||
|
|
dbms_output.put_line(substr('==>BLOCKER: SID=' || rb.sid ||
|
||
|
|
',' || rb.snbr ||
|
||
|
|
' (' || rb.status || '), Logged on at ' ||
|
||
|
|
to_char(rb.logon_time,'DD-MON HH24:MI'),1,78));
|
||
|
|
dbms_output.put_line('........... HELD LOCK|MODE=' ||
|
||
|
|
b.type || ' (' || b.lock_type ||
|
||
|
|
') | ' || b.mode_held);
|
||
|
|
dbms_output.put_line('........... AppsUser=' ||
|
||
|
|
v_blocker_username);
|
||
|
|
dbms_output.put_line('........... OS PID=' || rb.spid);
|
||
|
|
--
|
||
|
|
else
|
||
|
|
--
|
||
|
|
if b_GetRelatedSessions = FALSE then
|
||
|
|
--
|
||
|
|
exit; -- ...exit from "get_related_sessions" cursor loop
|
||
|
|
--
|
||
|
|
end if;
|
||
|
|
--
|
||
|
|
v_errcontext := 'PUT_LINE related blockers session info';
|
||
|
|
dbms_output.put_line(substr('...... Related BLOCKER: SID='
|
||
|
|
|| rb.sid || ' (' || rb.status ||
|
||
|
|
'), Logged on at ' ||
|
||
|
|
to_char(rb.logon_time,'DD-MON HH24:MI'),1,78));
|
||
|
|
--
|
||
|
|
end if;
|
||
|
|
--
|
||
|
|
dbms_output.put_line('....... TXN ID=' || rb.txn_id ||
|
||
|
|
' (' || rb.txn_status || ') started=' ||
|
||
|
|
rb.txn_start_time || ' undo=' || rb.used_ublk || 'b/' ||
|
||
|
|
rb.used_urec || 'r');
|
||
|
|
--
|
||
|
|
v_errcontext := 'open/fetch get_dml_locks (blockers)';
|
||
|
|
for d in get_dml_locks(rb.sid) loop
|
||
|
|
--
|
||
|
|
dbms_output.put_line(substr('........... DML Lock: ' ||
|
||
|
|
d.owner || '.' || d.name || ' (' || d.type || ') - LOCK ' ||
|
||
|
|
d.lmode,1,78));
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close get_dml_locks (blockers)';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_dml_locks (blockers)" cursor loop */
|
||
|
|
--
|
||
|
|
dbms_output.put_line('....... SQL currently executing (not necessarily the blocking SQL):');
|
||
|
|
v_errcontext := 'open/fetch get_sqltext (blockers)';
|
||
|
|
for t in get_sqltext(rb.sql_address) loop
|
||
|
|
--
|
||
|
|
dbms_output.put_line('........... ' || t.sql_text);
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close get_sqltext (blockers)';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_sqltext (blockers)" cursor loop */
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close get_related_sessions (blockers)';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_related_sessions (blockers)" cursor loop */
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close get_blockers';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_blockers" cursor loop */
|
||
|
|
--
|
||
|
|
v_errcontext := 'fetch/close get_waiters';
|
||
|
|
--
|
||
|
|
end loop; /* end of "get_waiters" cursor loop */
|
||
|
|
--
|
||
|
|
exception
|
||
|
|
when others then
|
||
|
|
v_errmsg := substr(sqlerrm, 1, 300);
|
||
|
|
raise_application_error(-20001, v_errcontext||': '||v_errmsg);
|
||
|
|
end enqwaits;
|
||
|
|
/
|
||
|
|
set termout on
|
||
|
|
show errors
|
||
|
|
spool off
|