PROCEDURE: SYS.DBMS_FEATURE_DBFS_CONTENT

Source

1 PROCEDURE dbms_feature_dbfs_content
2     (feature_boolean  OUT  NUMBER,
3        aux_count        OUT  NUMBER,
4        feature_info     OUT  CLOB)
5 AS
6   table_not_found        exception;
7   PRAGMA EXCEPTION_INIT(table_not_found, -942);
8   num_content_stores     number;
9 BEGIN
10   -- initialize
11   feature_boolean    := 0;
12   aux_count          := 0;
13   num_content_stores := 0;
14 
15   -- check existence of content stores
16   BEGIN
17     execute immediate 'SELECT COUNT(*) FROM sys.dbfs$_stores'
18       INTO num_content_stores;
19   EXCEPTION
20     WHEN table_not_found THEN NULL;
21   END;
22 
23   feature_boolean := num_content_stores;
24   IF feature_boolean <> 0
25   THEN
26     feature_info := to_clob('DBFS Content feature in use. ' ||
27                                num_content_stores ||
28                                ' DBFS Content stores detected.');
29   ELSE
30     feature_info := to_clob('DBFS Content feature not in use.');
31   END IF;
32 END;