Help in killing session!

[nilodp]

I need a code when you open a screen!

The forms get the session of the session and in the button to leave the code to kill this same session!

Any tips ????

Thanks!

Select all

select v.USERNAME, v.PROGRAM, v.OSUSER, v.STATUS, v.SID from v$session v

[Trevisolli]

Whenever Forms open?
If that is, throw it When-New-Form-Instance
later, with EXECUTE IMMEDIATE I believe that you can give KILL SESSION

Anything, send it there.

[vindalencio]

Here we have a forms that has a block based on this guy:

Select all

SELECT Upper(c.osuser)   unix, 
       Upper(c.username) ora, 
       c.logon_time      Logon, 
       To_char(c.sid)    sid, 
       Upper(c.status)   STATUS, 
       d.sql_text        SQL_Text, 
       c.program         PROGRAM, 
       c.MODULE          MODULE, 
       c.terminal        terminal, 
       c.process         processo, 
       c.serial#         serial, 
       Nvl(p.spid, '')   spid 
FROM   v$sql d, 
       v$session c, 
       v$process p 
WHERE  d.address = c.sql_address 
       AND p.addr(+) = c.paddr /*order by c.LOGON_TIME, c.username, c.terminal*/ 
GROUP  BY c.logon_time, 
          Upper(c.username), 
          c.terminal, 
          Upper(c.osuser), 
          To_char(c.sid), 
          Upper(c.status), 
          d.sql_text, 
          c.program, 
          c.MODULE, 
          c.process, 
          c.serial#, 
          Nvl(p.spid, '') 

and a button that kills the session with this code:

Select all

Declare 
	la_Alert        Alert; 
	ln_Alert_Button Number; 
	lc_Message      Varchar2(100); 
Begin 
	lc_Message := 'KILLING SESSION ' || :BLK_CONNECTED.SID || '...'; 
	la_Alert := Find_Alert('AL_SURE'); 
	Set_Alert_Property(la_Alert, ALERT_MESSAGE_TEXT, lc_Message); 
	ln_Alert_Button := Show_Alert(la_Alert); 
	-- 
	If ln_Alert_Button = 88 -->> Ok 
	Then 
		Forms_DDL('Alter System Kill Session '||''''||:BLK_CONNECTED.SID||','||:BLK_CONNECTED.SERIAL||''''||' Immediate'); 
		Prc_Change_UserToNormal; 
		Go_Block('BLK_CONNECTED'); 
		Message('Session Killed - Press Refresh'); Pause; 
		--Execute_Query; 
	End If; 
END;

works well

[schnu]

If you want via pl / sql has this code here tb

Select all

col usuario    format a39 
col SESSAO     format a9 
col schema     format a13 
col MODULO     format a18 
col TITULO     format a30 
col PROGRAM    format a60 
col ACAO       format a20 
col sid_serial format a10 
select SCHEMANAME                                                                       schema 
,      lower( replace( SUBSTR(MACHINE,1,25), ' ', '' ) ) || '\' ||  
       replace( decode(AUDSID,userenv('sessionid'),upper( OSUSER ), lower( OSUSER ) ), ' ', '' ) usuario 
,      decode(AUDSID,userenv('sessionid'),rpad(AUDSID,length(AUDSID)+2,'<-' ),AUDSID)   sessao 
,      substr( MODULE, 1, 18 )  MODULO 
,      substr( Action, 1, 30 )  TITULO 
,      SID || ',' || SERIAL# sid_serial 
,      decode( command,'0','IDLE', 
                       '1','CREATE TABLE', 
                       '2','INSERT', 
                       '3','SELECT', 
                       '4','CREATE CLUSTER', 
                       '5','ALTER CLUSTER', 
                       '6','UPDATE', 
                       '7','DELETE', 
                       '8','DROP CLUSTER', 
                       '9','CREATE INDEX', 
                       '10','DROP INDEX', 
                       '11','ALTER INDEX', 
                       '12','DROP TABLE', 
                       '13','CREATE SEQUENCE', 
                       '14','ALTER SEQUENCE', 
                       '15','ALTER TABLE', 
                       '16','DROP SEQUENCE', 
                       '17','GRANT', 
                       '18','REVOKE', 
                       '19','CREATE SYNONYM', 
                       '20','DROP SYNONYM', 
                       '21','CREATE VIEW', 
                       '22','DROP VIEW', 
                       '23','VALIDATE INDEX', 
                       '24','CREATE PROCEDURE', 
                       '25','ALTER PROCEDURE', 
                       '26','LOCK TABLE', 
                       '27','NO OPERATION', 
                       '28','RENAME', 
                       '29','COMMENT', 
                       '30','AUDIT', 
                       '31','NOAUDIT', 
                       '32','CREATE DATABASE LINK', 
                       '33','DROP DATABASE LINK', 
                       '34','CREATE DATABASE', 
                       '35','ALTER DATABASE', 
                       '36','CREATE ROLLBACK SEGMENT', 
                       '37','ALTER ROLLBACK SEGMENT', 
                       '38','DROP ROLLBACK SEGMENT', 
                       '39','CREATE TABLESPACE', 
                       '40','ALTER TABLESPACE', 
                       '41','DROP TABLESPACE', 
                       '42','ALTER SESSION', 
                       '43','ALTER USE', 
                       '44','COMMIT', 
                       '45','ROLLBACK', 
                       '46','SAVEPOINT', 
                       '47','PL/SQL EXECUTE', 
                       '48','SET TRANSACTION', 
                       '49','ALTER SYSTEM SWITCH LOG', 
                       '50','EXPLAIN', 
                       '51','CREATE USER', 
                       '52','CREATE ROLE', 
                       '53','DROP USER', 
                       '54','DROP ROLE', 
                       '55','SET ROLE', 
                       '56','CREATE SCHEMA', 
                       '57','CREATE CONTROL FILE', 
                       '58','ALTER TRACING', 
                       '59','CREATE TRIGGER', 
                       '60','ALTER TRIGGER', 
                       '61','DROP TRIGGER', 
                       '62','ANALYZE TABLE', 
                       '63','ANALYZE INDEX', 
                       '64','ANALYZE CLUSTER', 
                       '65','CREATE PROFILE', 
                       '66','DROP PROFILE', 
                       '67','ALTER PROFILE', 
                       '68','DROP PROCEDURE', 
                       '69','DROP PROCEDURE', 
                       '70','ALTER RESOURCE COST', 
                       '71','CREATE SNAPSHOT LOG', 
                       '72','ALTER SNAPSHOT LOG', 
                       '73','DROP SNAPSHOT LOG', 
                       '74','CREATE SNAPSHOT', 
                       '75','ALTER SNAPSHOT', 
                       '76','DROP SNAPSHOT', 
                       '79','ALTER ROLE', 
                       '85','TRUNCATE TABLE', 
                       '86','TRUNCATE COUSTER', 
                       '88','ALTER VIEW', 
                       '91','CREATE FUNCTION', 
                       '92','ALTER FUNCTION', 
                       '93','DROP FUNCTION', 
                       '94','CREATE PACKAGE', 
                       '95','ALTER PACKAGE', 
                       '96','DROP PACKAGE', 
                       '97','CREATE PACKAGE BODY', 
                       '98','ALTER PACKAGE BODY', 
                       '99','DROP PACKAGE BODY',COMMAND) Acao 
,      SUBSTR(TO_CHAR( LOGON_TIME,'DD/MM/YYYY HH24:MI:SS' ), 1, 20 ) HORARIO_CONEXAO 
,      STATUS 
from v$session 
where OSUSER not like '%SYSTEM%' 
and   SCHEMANAME not like '%SYS%' 
order by SCHEMANAME 
,        OSUSER 
,        STATUS 
,        AUDSID 
/ 
undefine columns 
 
alter system kill session '&SID_SERIAL' 
/