PROCEDURE: SYS.DBMS_FEATURE_AUDIT_OPTIONS

Source

1 PROCEDURE dbms_feature_audit_options
2      ( feature_boolean  OUT  NUMBER,
3        aux_count        OUT  NUMBER,
4        feature_info     OUT  CLOB)
5 AS
6    uniaud_linkon        NUMBER;
7    system_audit_options NUMBER;
8    object_audit_options NUMBER;
9    audit_trail          VARCHAR2(100);
10    feature_usage        VARCHAR2(1000);
11 BEGIN
12 
13   -- Initialize
14   feature_boolean       := 0;
15   aux_count             := 0;
16   feature_info          := NULL;
17   system_audit_options  := 0;
18   object_audit_options  := 0;
19 
20   -- Check if 'uniaud_on' is linked
21   select count(*) into uniaud_linkon from v$option
22     where parameter like '%Unified Auditing%' and value = 'TRUE';
23 
24   -- Get the value of 'audit_trail' parameter
25   select UPPER(value) into audit_trail from v$parameter
26     where UPPER(name) = 'AUDIT_TRAIL';
27 
28   -- If Unified auditing is ON, then Audit options(OLD) are always disabled
29   if ((uniaud_linkon = 0) AND (audit_trail != 'NONE')) then
30     feature_boolean := 1;
31   end if;
32 
33   select count(*) into system_audit_options from audit$;
34   select count(*) into object_audit_options from dba_obj_audit_opts;
35 
36   feature_usage := 'AUDIT_TRAIL=' || audit_trail || '; ' ||
37    'Number of system audit options=' || to_char(system_audit_options) || '; '||
38    'Number of object audit options=' || to_char(object_audit_options);
39   feature_info := to_clob(feature_usage);
40 
41 END dbms_feature_audit_options;