oracle批量删除用户session存储过程脚本

create or replace procedure KILL_SESSION(OWNER IN VARCHAR2) IS cursor rs_table is select username,sid,serial# from v$session where username = OWNER; rs_table_row rs_table%ROWTYPE;

begin

for rs_table_row in rs_table loop
   dbms_output.put_line('alter system kill session  ' || '''' || rs_table_row.sid || ',' || rs_table_row.serial# || '''');
   execute immediate 'alter system kill session  ' || '''' || rs_table_row.sid || ',' || rs_table_row.serial# || '''';
 end loop;

end;