PROCEDURE: SYS.DBMS_FEATURE_XSTREAM_IN

Source

1 PROCEDURE dbms_feature_xstream_in
2       (feature_boolean  OUT  NUMBER,
3        aux_count        OUT  NUMBER,
4        feature_info     OUT  CLOB)
5 AS
6   num_apply                               NUMBER;
7   feature_usage                           VARCHAR2(2000);
8 BEGIN
9   -- initialize
10   feature_boolean                  := 0;
11   aux_count                        := 0;
12   feature_info                     := NULL;
13   num_apply                        := 0;
14   feature_usage                    := NULL;
15 
16   select decode (count(*), 0, 0, 1) into num_apply
17      from dba_apply where UPPER(purpose) = 'XSTREAM IN';
18 
19   feature_usage := feature_usage ||
20         'app:'                   || num_apply;
21 
22   feature_info   := to_clob(feature_usage);
23   if (num_apply > 0) THEN
24       feature_boolean := 1;
25       aux_count      :=  aux_count+1;
26   end if;
27 
28 END dbms_feature_xstream_in;