support/oracle
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
ea39d398ae2f10c155203ef0a025c362021efb55
oracle/vdh/enqwaits.sql
root 93039b8489 2026-03-12 20:23:15
2026-03-12 21:23:47 +01:00

466 lines
13 KiB
SQL
Raw Blame History

/**********************************************************************
* 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
Reference in New Issue View Git Blame Copy Permalink