为什么编译不过呢???
zqhnf 2002-09-25 06:32:05 CREATE OR REPLACE PROCEDURE SP_KILL_SESSION
AS
V_DATE VARCHAR2(11);
V_SID NUMBER;
V_SERIAL# NUMBER;
v_mm varchar2(40);
CURSOR CUR_KILL_SESSION IS
SELECT SID,SERIAL# FROM V$SESSION
WHERE TO_CHAR(LOGON_TIME,'YYYY/MM/DD') LIKE V_DATE;
BEGIN
SELECT TO_CHAR(SYSDATE - 1,'YYYY/MM/DD') into V_DATE FROM DUAL;
OPEN CUR_KILL_SESSION;
LOOP
FETCH CUR_KILL_SESSION INTO V_SID,V_SERIAL#;
EXIT WHEN CUR_KILL_SESSION%NOTFOUND;
v_mm:=to_char(v_sid)||','||to_char(v_serial#);
if v_mm is not null or v_mm<>'' then
ALTER SYSTEM KILL SESSION 'v_mm';
end if;
END LOOP;
CLOSE CUR_KILL_SESSION;
END;