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,3,0))||l.oracle_username User_name,o.owner,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 "已鎖物件名稱",--物件名稱(已經被鎖住)
LOCK_INFO.SUBOBJ_NAME as "已鎖子物件名稱",-- 子物件名稱(已經被鎖住)
SESS_INFO.MACHINE as "機器名稱",-- 機器名稱
LOCK_INFO.SESSION_ID as "會話ID",-- 會話SESSION_ID
SESS_INFO.SERIAL# as "會話SERIAL#",-- 會話SERIAL#
SESS_INFO.SPID as "OS系統的SPID",-- OS系統的SPID
(SELECT INSTANCE_NAME FROM V$INSTANCE) "實例名SID",--實例名SID
LOCK_INFO.ORA_USERNAME as "ORACLE用戶",-- ORACLE系統用戶名稱
LOCK_INFO.OS_USERNAME as "OS用戶",-- 作業系統用戶名稱
LOCK_INFO.PROCESS as "進程編號",-- 進程編號
LOCK_INFO.OBJ_ID as "對象ID",-- 對象ID
LOCK_INFO.OBJ_TYPE as "對象類型",-- 對象類型
SESS_INFO.logoN_TIME as "登錄時間",-- 登錄時間
SESS_INFO.PROGRAM as "程式名稱",-- 程式名稱
SESS_INFO.STATUS as "會話狀態",-- 會話狀態
SESS_INFO.LOCKWAIT as "等待鎖",-- 等待鎖
SESS_INFO.ACTION as "動作",-- 動作
SESS_INFO.CLIENT_INFO as "客戶資訊" -- 客戶資訊
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#';