Lock monitor

SELECT
    a.sid, a.serial#, a.username, a.process, b.object_name, a.blocking_session blocker, a.event,
    DECODE(c.lmode,2,'RS',3,'RX',4,'S',5,'SRX',8,'X','NO') "TABLE LOCK",
    DECODE(a.command,2,'INSERT',3,'SELECT',6,'UPDATE',7,'DELETE',12,'DROP TABLE',26,'LOCK TABLE','UNknown') "SQL",
    DECODE(a.lockwait, NULL,'NO wait','Wait') "STATUS",
    'alter system kill session '''||a.sid||','||a.serial#||''' immediate;' as kill_command_input
    ,A.*
FROM
    v$session a, dba_objects b, v$lock c
WHERE
    a.sid=c.sid and b.object_id=c.id1
AND c.type in ('TM','TX');