Oracleロックを削除する方法（方法の簡単な分析）

SELECT
   c.owner,c.object_name,c.object_type, b.sid, b.serial#, b.status, b.osuser, b.machine
FROM
   v$locked_object a ,all_objects c ,v$session b
WHERE
   b.sid = a.session_id AND a.object_id = c.object_id;

SELECT SID,SERIAL# FROM V$SESSION WHERE AUDSID = USERENV('SESSIONID');

ALTER SYSTEM KILL SESSION 'sid,serial#' IMMEDIATE;

CREATE OR REPLACE PROCEDURE kill_locks_table (p_username IN VARCHAR2, p_table_name IN VARCHAR2) IS
  l_obj_id NUMBER;
  l_sess_id NUMBER;
  l_serial# NUMBER;
  l_locktype VARCHAR2(32);
BEGIN
  SELECT object_id INTO l_obj_id 
    FROM dba_objects 
   WHERE object_name = p_table_name and owner = p_username and object_type in ('TABLE', 'INDEX');

  FOR l_rec IN (SELECT session_id, lock_type, mode_held 
                     FROM v$locked_object 
                    WHERE object_id = l_obj_id) LOOP
    l_sess_id := l_rec.session_id;
    l_locktype := l_rec.lock_type || ' ' || l_rec.mode_held;
    SELECT serial# INTO l_serial# FROM v$session WHERE sid = l_sess_id;
    dbms_output.put_line('Killing session ' || l_sess_id || ' serial# ' || l_serial# || ' which is holding lock: ' || l_locktype);
    EXECUTE IMMEDIATE 'alter system kill session ''' || l_sess_id || ',' || l_serial# || '''';
  END LOOP;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    dbms_output.put_line('No locks found for ' || p_table_name);
END kill_locks_table;

call kill_locks_table('用户名', '对象名');