Get Session Locks (Oracle)

session_locks.sql

SELECT
    l.inst_id,  
    SUBSTR(L.ORACLE_USERNAME,1,8) ORA_USER,   
    SUBSTR(L.SESSION_ID,1,3) SID,  
    S.serial#,  
    SUBSTR(O.OWNER||'.'||O.OBJECT_NAME,1,40) OBJECT, P.SPID OS_PID,  
    DECODE(L.LOCKED_MODE,
        0, 'NONE',  
        1, 'NULL',  
        2, 'ROW SHARE',  
        3, 'ROW EXCLUSIVE',  
        4, 'SHARE',  
        5, 'SHARE ROW EXCLUSIVE',  
        6, 'EXCLUSIVE',  
    NULL) LOCK_MODE  
FROM
    sys.GV_$LOCKED_OBJECT L  
    , DBA_OBJECTS O  
    , sys.GV_$SESSION S  
    , sys.GV_$PROCESS P  
WHERE
    L.OBJECT_ID = O.OBJECT_ID
    AND L.INST_ID = S.INST_ID
    AND L.SESSION_ID = S.SID
    AND S.INST_ID = P.INST_ID
    AND S.PADDR = P.ADDR(+)
ORDER BY
    L.INST_ID;