Library Cache Locks

Create Or Replace Force View Sys.Av_lock_lib_cache (Sid,
                                                    Lockmode,
                                                    Lockrequest,

                                                    Objectowner,
                                                    Objectname
                                                   )
As
   Select S.Sid, P.Kglpnmod Lockmode, P.Kglpnreq Lockrequest,
          B.Kglnaown Objectowner, B.Kglnaobj Objectname
     From X$kglpn P, X$kglob B, V$session S
    Where S.Saddr = P.Kglpnuse
      And P.Kglpnhdl = B.Kglhdadr
      And P.Kglpnhdl In (Select P1raw
                           From V$session_wait
                          Where Event Like '%library cache lock%');