Скрипт для получения сессий блокирующих таблицы (Oracle)

Выводит сессии которые блокируют таблицы:

select distinct ddl.session_id,
                s.SERIAL#,
                ddl.owner,
                ddl.name,
                ddl.mode_held,
                ddl.mode_requested,
                s.username,
                s.status
  from dba_dml_locks ddl, v$session s
 where ddl.session_id = s.SID