-- name       : events.sql
-- date       : 14-Nov-2001
-- Author     : Pentest Limited
-- Description: Show which events have been set in this session
-- limitation : needs access to dbms_system
--
-- useage     : SQL> @events

set pages 50
set feed off
set verify off
set linesize 200

set serveroutput on size 100000

spool event.lis
declare
	ev	binary_integer:=0;
	stat	binary_integer:=0;
begin
	for ev in 10000..10999 loop
		sys.dbms_system.read_ev(ev,stat);
		if stat=1 then
			dbms_output.put_line('event :'||ev||' value :'||stat);
		end if;
	end loop;
end;
/
spool off