[Home] [Help]
PROCEDURE: SYS.DBMS_FEATURE_XSTREAM_STREAMS
Source
1 PROCEDURE dbms_feature_xstream_streams
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 num_prop NUMBER;
10 feature_usage VARCHAR2(2000);
11 total_feature_usage NUMBER;
12 BEGIN
13 -- initialize
14 feature_boolean := 0;
15 aux_count := 0;
16 feature_info := NULL;
17 num_capture := 0;
18 num_ds_capture := 0;
19 num_apply := 0;
20 num_prop := 0;
21 feature_usage := NULL;
22 total_feature_usage := 0;
23
24 select decode (count(*), 0, 0, 1) into num_capture
25 from dba_capture where UPPER(purpose) = 'XSTREAM STREAMS';
26
27 select decode (count(*), 0, 0, 1) into num_ds_capture
28 from dba_capture where UPPER(purpose) = 'XSTREAM STREAMS' and
29 UPPER(capture_type) = 'DOWNSTREAM';
30
31 select decode (count(*), 0, 0, 1) into num_apply
32 from dba_apply where UPPER(purpose) = 'XSTREAM STREAMS';
33
34 select decode (count(*), 0, 0, 1) into num_prop from dba_propagation;
35
36 total_feature_usage := num_capture + num_apply + num_prop;
37
38 feature_usage := feature_usage ||
39 'tcap:' || num_capture
40 ||' dscap:' || num_ds_capture
41 ||' app:' || num_apply
42 ||' prop:' || num_prop;
43
44 feature_info := to_clob(feature_usage);
45 if (total_feature_usage > 0) THEN
46 feature_boolean := 1;
47 end if;
48 if(num_capture > 0 ) THEN
49 aux_count := aux_count+1;
50 end if;
51 if(num_apply > 0 ) THEN
52 aux_count := aux_count+1;
53 end if;
54 if(num_prop > 0 ) THEN
55 aux_count := aux_count+1;
56 end if;
57
58 END dbms_feature_xstream_streams;