数据库锁大于600秒的session的抓取

create or replace procedure moni_lock is 

 begin 

   insert /* +append */ 

   into moni_lock_block 

     select seq_mlb.nextval, mkb.* 

       from (select /*+rule*/ 

              do.OWNER || '.' || do.OBJECT_NAME, 

              vs.LAST_CALL_ET, 

              vs.USERNAME, 

              vs.OSUSER, 

              vs.MACHINE, 

              vs.PROGRAM, 

              vs.SID, 

              '(' || vs.SID || ',' || vs.SERIAL# || ')', 

              SYS_CONTEXT('USERENV', 'INSTANCE_NAME'), 

              sysdate, 

              vsq.SQL_TEXT 

               from v$lock          a, 

                    v$session       vs, 

                    v$locked_object vl, 

                    dba_objects     do, 

                    v$sqlarea       vsq 

              where exists (select 1 

                       from v$lock b 

                      where a.ID1 = b.ID1 

                        and a.ID2 = b.ID2 

                        and a.SID <> b.SID) 

                and vs.SQL_ADDRESS = vsq.ADDRESS(+) 

                and a.SID = vs.SID 

                and a.SID = vl.SESSION_ID 

                and vl.OBJECT_ID = do.OBJECT_ID 

                and a.BLOCK = 1 

                and vs.LAST_CALL_ET > 600 

              order by SID) mkb 

      where mkb.sid is not null; 

   commit; 

 end moni_lock;