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