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掉；