Oracle – Selecionar objetos em lock/locado

SELECT d.OBJECT_ID,

      substr(OBJECT_NAME, 1, 20),

      l.SESSION_ID,

      l.ORACLE_USERNAME,

      l.LOCKED_MODE

 from v$locked_object l, dba_objects d

where d.OBJECT_ID = l.OBJECT_ID;