substr(username,1,12) "UserName",

　　substr(object_name,1,25) "ObjectName",

　　v$lock.type "LockType",

　　decode(rtrim(substr(lmode,1,4)),

　　'2','Row-S (SS)','3','Row-X (SX)',

　　'4','Share', '5','S/Row-X (SSX)',

　　'6','Exclusive', 'Other' ) "LockMode",

　　substr(v$session.program,1,25) "ProgramName"

　　FROM V$LOCK,SYS.DBA_OBJECTS,V$SESSION

　　WHERE (OBJECT_ID = v$lock.id1

　　AND v$lock.sid = v$session.sid

　　AND username IS NOT NULL

　　AND username NOT IN ('SYS','SYSTEM')

　　AND SERIAL# != 1);

　　select a.sid, a.SERIAL#, b.spid, a.status, a.PROGRAM

　　from v$session a, V$PROCESS b

　　where a.paddr=b.ADDR

　　order by a.sid;

　　alter system kill session '200,68' immediate;