ibeautiful
SELECT substr(v$lock.sid,1,4) "SID", 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$SESSIONWHERE (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);