oracle pl/sql kill指定用户的session

在上一篇文章：shell 脚本kill oracle 数据库指定用户中，由于暂时无法实现：需要本地服务器（应用所在的服务器）去远程的机器（数据库所在的服务器）执行该脚本的要求，改成在初始化脚本的时候，kill指定用户的session，脚本如下：

CREATE OR REPLACE PROCEDURE killSpecialSchemaSession
IS
   ls_sql           VARCHAR2 (1000);






   CURSOR session_cursor
   IS
      SELECT SID, SERIAL#
        FROM v$session
       WHERE username = 'SCOTT' ;


   session_record   session_cursor%ROWTYPE;
BEGIN
   FOR session_record IN session_cursor
   LOOP
      ls_sql :=
            'alter system kill session '
         || ''''
         || session_record.sid
         || ','
         || session_record.SERIAL#
         || '''';


      EXECUTE IMMEDIATE ls_sql;


      DBMS_OUTPUT.
       put_line (
            'session_record.SERIAL#：'
         || session_record.SERIAL#
         || ' session_record.sid: '
         || session_record.sid);
   END LOOP;
END;
/

注：在试验过程中，本来想传入schema作为参数，这样比较灵活，不用每次都改这个过程，但是发现有问题，用变量插入的方式，会讲当前用户（比如是sys用户执行该过程），则连当前用户的session也会kill掉；