Query to checking the locks in concurrent jobs

  SELECT DECODE (request, 0, 'holder: ', 'waiter: ') || sid sess,

         inst_id,

         id1,

         id2,

         lmode,

         request,

         TYPE

    FROM gv$lock

   WHERE (id1, id2, TYPE) IN (SELECT id1, id2, TYPE FROM gv$lock WHERE request > 0)

ORDER BY id1, request;