oracle 批量杀死锁

vkddalilzs

declare
  cursor mycur is
    select s.sid
          ,s.serial#
      from v$session   s
          ,v$lock      l
          ,dba_objects o
     where l.sid = s.sid
       and l.id1 = o.object_id(+)
       and s.TERMINAL <> 'ELLIS-XIE'--排除当前连接的PL/DEV用户
       and S.USERNAME = 'EMS'; --指定schema
  newcount        number;
  kill_sesion_sql varchar(2000);
begin

  for cur in mycur loop
  
    --    select count(1)
    --      into newcount
    --      from v$locked_object a
    --          ,v$session       b
    --     where a.session_id = b.sid
    --       and b.sid = cur.sid
    --       and b.serial# = cur.serial#;
    --  
    --    if newcount >= 1 then
    kill_sesion_sql := 'alter system  kill session  ''' || cur.sid || ',' ||
                       cur.serial# || ''' ';
    dbms_output.put_line(kill_sesion_sql);
    execute immediate (kill_sesion_sql);
    --    end if;
  
  end loop;

end;