Procédure Kill session #oracle #sql

Procédure Kill session.md

create or replace procedure sys.kill_session( p_sid in number, p_serial# in number )
as
begin
for x in ( select 1
from v$session
where username = 'USERNAME'
and sid = p_sid
and serial# = p_serial# )
loop
execute immediate 'alter system kill session ''' || p_sid || ',' || p_serial# || '''';
dbms_output.put_line( 'Kill session done' );
end loop;
end;
/
grant execute on sys.kill_session to USERNAME;
grant select on sys.v_$session to USERNAME;