PROCEDURE: SYS.DBMS_FEATURE_XSTREAM_OUT

Source

1 PROCEDURE dbms_feature_xstream_out
2       (feature_boolean  OUT  NUMBER,
3        aux_count        OUT  NUMBER,
4        feature_info     OUT  CLOB)
5 AS
6   num_capture                             NUMBER;
7   num_ds_capture                          NUMBER;
8   num_apply                               NUMBER;
9   feature_usage                           VARCHAR2(2000);
10   total_feature_usage                     NUMBER;
11 BEGIN
12   -- initialize
13   feature_boolean                  := 0;
14   aux_count                        := 0;
15   feature_info                     := NULL;
16   num_capture                      := 0;
17   num_ds_capture                   := 0;
18   num_apply                        := 0;
19   feature_usage                    := NULL;
20   total_feature_usage              := 0;
21 
22   select decode (count(*), 0, 0, 1) into num_capture
23      from dba_capture where UPPER(purpose) = 'XSTREAM OUT';
24 
25   select decode (count(*), 0, 0, 1) into num_ds_capture
26      from dba_capture where UPPER(purpose) = 'XSTREAM OUT' and
27                             UPPER(capture_type) = 'DOWNSTREAM';
28 
29   select decode (count(*), 0, 0, 1) into num_apply
30      from dba_apply where UPPER(purpose) = 'XSTREAM OUT';
31 
32 
33   total_feature_usage := num_capture + num_apply;
34 
35   feature_usage := feature_usage ||
36         'tcap:'                  || num_capture
37       ||' dscap:'                || num_ds_capture
38       ||' app:'                  || num_apply;
39 
40   feature_info   := to_clob(feature_usage);
41   if (total_feature_usage > 0) THEN
42       feature_boolean := 1;
43   end if;
44   if(num_capture > 0 ) THEN
45        aux_count      :=  aux_count+1;
46   end if;
47   if(num_apply > 0 ) THEN
48        aux_count      :=  aux_count+1;
49   end if;
50 
51 END dbms_feature_xstream_out;