解锁表

DECLARE
  V_SID   v$session.SID%type;
  V_SERID v$session.SERIAL#%type;

  cursor luck is
    select b.sid, b.serial# ser
      from v$locked_object a, v$session b
     where a.session_id = b.sid
       and sid in (select a.SESSION_ID
                     from v$locked_object a, dba_objects b
                    where b.object_id = a.object_id)
     order by b.logon_time;

BEGIN

  for c in luck loop
    /* fetch luck
    into V_SID, V_SERID;*/
    V_SID   := c.sid;
    V_SERID := c.ser;
    execute immediate 'alter system kill session ''' || v_sid || ',' ||
                      V_SERID || '''';
    exit when luck%notfound;
  
  end loop;
exception
  when others then
    dbms_output.put_line('plase rollback' || sqlcode);
  rollback;
  -- close luck;
END;

因为突然断网，突然中断导致一些table锁住不能再次操作，只有释放这个table