CREATE OR REPLACE VIEW VW_MYOWNERSESSION_LHR
AS
SELECT * FROM V$SESSION WHERE USERNAME = USER;
CREATE OR REPLACE PUBLIC SYNONYM SYN_MYOWNERSESSION_LHR FOR SYS.VW_MYOWNERSESSION_LHR;
CREATE OR REPLACE PROCEDURE PRO_KILL_MYOWN_SESSION_LHR(P_INST IN NUMBER,
P_SID IN NUMBER,
P_SERIAL# IN NUMBER) IS
V_IGNORE PLS_INTEGER;
V_VERSION VARCHAR2(10);
V_INST_ID NUMBER;
BEGIN
SELECT COUNT(*)
INTO V_IGNORE
FROM GV$SESSION D
WHERE USERNAME = USER
AND SID = P_SID
AND SERIAL# = P_SERIAL#
AND D.INST_ID = P_INST;
SELECT SUBSTR(V.VERSION, 1, INSTR(V.VERSION, '.') - 1), V.INSTANCE_NUMBER
INTO V_VERSION, V_INST_ID
FROM V$INSTANCE V;
IF (V_IGNORE = 1) THEN
IF (V_VERSION = '10' AND V_INST_ID <> P_INST) THEN
RAISE_APPLICATION_ERROR(-20001,
'Please connect to 【INSTANCE:' || P_INST ||
'】,then retry!');
ELSIF (V_VERSION = '10' AND V_INST_ID = P_INST) THEN
EXECUTE IMMEDIATE 'ALTER SYSTEM DISCONNECT SESSION ''' || P_SID || ',' ||
P_SERIAL# || ''' IMMEDIATE';
ELSE
EXECUTE IMMEDIATE 'ALTER SYSTEM DISCONNECT SESSION ''' || P_SID || ',' ||
P_SERIAL# || ',@' || P_INST || ''' IMMEDIATE';
END IF;
ELSE
RAISE_APPLICATION_ERROR(-20002,
'You do not own session ''' || P_SID || ',' ||
P_SERIAL# ||',@' || P_INST || '''');
END IF;
END PRO_KILL_MYOWN_SESSION_LHR;
/
CREATE OR REPLACE PUBLIC SYNONYM PRO_KILL_SESSION_LHR FOR SYS.PRO_KILL_MYOWN_SESSION_LHR;
GRANT SELECT ON SYN_MYOWNERSESSION_LHR TO PUBLIC;
GRANT EXECUTE ON PRO_KILL_SESSION_LHR TO PUBLIC;
|