SELECT /*+ ORDERED */
       lo.kglnaobj AS object ,
       decode( ll.kgllkmod , 0 , 'none' , 1 , 'null' , 2 , 'share' , 3 , 'exclusive' , ll.kgllkmod ) AS currentlockmode ,
       decode( ll.kgllkreq , 0 , 'none' , 1 , 'null' , 2 , 'share' , 3 , 'exclusive' , ll.kgllkreq ) AS requestlockmode ,
       ll.kgllktype
       TYPE   ,
       s.schemaname holderschema ,
       s.program holderprogram ,
       s.module holdermodule
FROM   dba_kgllock ll ,
       x$kglob lo ,
       v$session s
WHERE  ll.kgllkhdl = lo.kglhdadr
AND    ll.kgllkuse = s.saddr
AND    ll.kgllkreq > 0 ;