建立JOB定期清理KILLED的SESSION

SQL code
--作用：建立JOB定期清理KILLED的SESSION
--注意：此脚本必须以SYS用户授予当前用户select on v_$session权限
--创建JOB
DECLARE
n_job NUMBER;
BEGIN 
dbms_job.submit(job => n_job, 
what => 'BEGIN
FOR rc IN (SELECT sid,serial# FROM v$session WHERE status = ''KILLED'') LOOP
EXECUTE IMMEDIATE ''ALTER SYSTEM KILL SESSION '''':sid,:serial#'''' IMMEDIATE'' USING rc.sid,rc.serial#;
END LOOP;
END;',
next_date =>SYSDATE, --现在开始
INTERVAL => 'SYSDATE+10/(24*3600)'); --每10秒执行一次 
COMMIT; 
END;
/
--移除JOB
BEGIN
DBMS_JOB.REMOVE(65);
COMMIT;
END;
/
--确认是否正常运行
SELECT last_sec,failures FROM user_jobs WHERE job = 65;