無腦批量kill session

單例項無腦批量kill session

場景：測試或預生產產生大量死鎖時，採取無腦批量kill session操作指令碼。

備註：小工具備錄一下

單例項無腦批量kill session
declare cursor mycur is
select b.username,b.sid,b.serial#,logon_time
from v$locked_object a,v$session b
where a.session_id = b.sid order by b.logon_time;
newcount number;
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# order by b.logon_time;
if newcount>=1 then
execute immediate ( 'alter system kill session '''||cur.sid || ','|| cur.SERIAL# ||''' ');
end if;
end loop;
end;