oracle查询锁表与解锁情况提供解决方案

SELECT /*+ rule */ s.username,
decode(l.type,'TM','TABLE LOCK',
'TX','ROW LOCK',
NULL) LOCK_LEVEL,
o.owner,o.object_name,o.object_type,
s.sid,s.serial#,s.terminal,s.machine,s.program,s.osuser
FROM v$session s,v$lock l,dba_objects o
WHERE l.sid = s.sid
AND l.id1 = o.object_id(+)
AND s.username is NOT NULL

SELECT /*+ rule */ lpad(' ',decode(l.xidusn ,0,3,0))||l.oracle_username User_name, o.owner,o.object_name,o.object_type,s.sid,s.serial#
FROM v$locked_object l,dba_objects o,v$session s
WHERE l.object_id=o.object_id
AND l.session_id=s.sid
ORDER BY o.object_id,xidusn DESC

alter system kill session 'sid,serial#'

select LOCK_INFO.OWNER || '.' || LOCK_INFO.OBJ_NAME as "已?i物件名?Q", --物件名?Q(已?被?i住)
LOCK_INFO.SUBOBJ_NAME as "已?i子物件名?Q", -- 子物件名?Q(已?被?i住)
SESS_INFO.MACHINE as "?C器名?Q", -- ?C器名?Q
LOCK_INFO.SESSION_ID as "???ID", -- ???SESSION_ID
SESS_INFO.SERIAL# as "???SERIAL#", -- ???SERIAL#
SESS_INFO.SPID as "OS系?y的SPID", -- OS系?y的SPID
(SELECT INSTANCE_NAME FROM V$INSTANCE) "??例名SID", --??例名SID
LOCK_INFO.ORA_USERNAME as "ORACLE用??", -- ORACLE系?y用?裘??Q
LOCK_INFO.OS_USERNAME as "OS用??", -- 作?I系?y用?裘??Q
LOCK_INFO.PROCESS as "?M程??", -- ?M程??
LOCK_INFO.OBJ_ID as "?ο?ID", -- ?ο?ID
LOCK_INFO.OBJ_TYPE as "?ο箢?型", -- ?ο箢?型
SESS_INFO.LOGON_TIME as "登??r?g", -- 登??r?g
SESS_INFO.PROGRAM as "程式名?Q", -- 程式名?Q
SESS_INFO.STATUS as "?????B", -- ?????B
SESS_INFO.LOCKWAIT as "等待?i", -- 等待?i
SESS_INFO.ACTION as "?幼?", -- ?幼?
SESS_INFO.CLIENT_INFO as "客?糍Y?" -- 客?糍Y?
from (select obj.OWNER as OWNER,
obj.OBJECT_NAME as OBJ_NAME,
obj.SUBOBJECT_NAME as SUBOBJ_NAME,
obj.OBJECT_ID as OBJ_ID,
obj.OBJECT_TYPE as OBJ_TYPE,
lock_obj.SESSION_ID as SESSION_ID,
lock_obj.ORACLE_USERNAME as ORA_USERNAME,
lock_obj.OS_USER_NAME as OS_USERNAME,
lock_obj.PROCESS as PROCESS
from (select *
from all_objects
where object_id in (select object_id from v$locked_object)) obj,
v$locked_object lock_obj
where obj.object_id = lock_obj.object_id) LOCK_INFO,
(select SID,
SERIAL#,
LOCKWAIT,
STATUS,
(select spid from v$process where addr = a.paddr) spid,
PROGRAM,
ACTION,
CLIENT_INFO,
LOGON_TIME,
MACHINE
from v$session a) SESS_INFO
where LOCK_INFO.SESSION_ID = SESS_INFO.SID
order by LOCK_INFO.SESSION_ID;

select sql_text
from v$sqltext
where address in (select sql_address from v$session where sid = &sid)
order by piece;

ALTER SYSTEM KILL SESSION '???ID,???SERIAL#';