查詢 Oracle 使用者鎖的DLL SQL(轉)

　查詢 Oracle 使用者鎖的DLL SQL，這是Oracle DBA的常使用到的，也是我每天必用的指令碼之一；執行此指令碼之前請用SYS使用者登入：[@more@]

　查詢 Oracle 使用者鎖的DLL SQL，這是Oracle DBA的常使用到的，也是我每天必用的指令碼之一；執行此指令碼之前請用SYS使用者登入：
　　
　　create or replace procedure SYS.EEDBA_RPT_BLOCKING_SID IS
　　cursor C1 is
　　select s.username Usrname,
　　s.osuser osuser,
　　s.sid,
　　s.type lock_type,
　　decode(lr.lmode,0,'None', 2,'SS',3,'SX',4,'S',5,'SSX',6,'EX') Mode_Held,
　　lr.type,
　　s.process UnixID,
　　s.machine machine,
　　s.terminal,
　　s.status,
　　a.owner||'.'||a.object_name object_hold,
　　lr.block,
　　s.program,
　　s.logon_time
　　from all_objects a, v$locked_object o, v$session s, v$lock lr
　　where (id1,id2) in (
　　select id1,id2
　　from v$lock le
　　where le.request > 0 )
　　and s.sid = lr.sid
　　and s.sid = o.session_id
　　and a.object_id (+)= o.object_id
　　order by lr.id1, lr.id2, lr.block desc ;
　　counter number := 0 ;
　　begin
　　dbms_output.new_line;
　　dbms_output.put_line('Username OSUser SID Mode Type UNIX ID '||
　　' Machine Terminal Active Object Logon Application');
　　dbms_output.put_line('======== ====== === ==== ==== ======= '||
　　' ======= ======== ====== ====== ===== ===========');
　　for r1 in C1 loop
　　if r1.block > 0 and counter > 0 then
　　dbms_output.put_line('.');
　　dbms_output.put_line('.');
　　end if;
　　if r1.block = 0 then
　　dbms_output.put('+ ');
　　end if;
　　dbms_output.put(r1.Usrname);
　　dbms_output.put(' ');
　　dbms_output.put(r1.osuser);
　　dbms_output.put(' ');
　　dbms_output.put(r1.sid);
　　dbms_output.put(' ');
　　dbms_output.put(r1.Mode_Held);
　　dbms_output.put(' ');
　　dbms_output.put(r1.type);
　　dbms_output.put(' ');
　　dbms_output.put(r1.UnixID);
　　dbms_output.put(' ');
　　dbms_output.put(r1.machine);
　　dbms_output.put(' ');
　　dbms_output.put(r1.terminal);
　　dbms_output.put(' ');
　　dbms_output.put(r1.status);
　　dbms_output.put(' ');
　　dbms_output.put(r1.object_hold);
　　dbms_output.put(' ');
　　dbms_output.put(r1.logon_time);
　　dbms_output.put(' ');
　　dbms_output.put_line(r1.program);
　　counter := counter + 1;
　　end loop;
　　if counter = 0 then
　　dbms_output.put_line('.');
　　dbms_output.put_line('NO Blocking found');
　　end if;
　　dbms_output.put_line('.');
　　dbms_output.put_line('.');
　　dbms_output.put_line('End of report');
　　end EEDBA_RPT_BLOCKING_SID ;
　　/
　　grant execute on SYS.EEDBA_RPT_BLOCKING_SID to system
　　/