PROCEDURE: SYS.DBMS_FEATURE_DBFS_HS

Source

1 PROCEDURE dbms_feature_dbfs_hs
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_hierarchical_stores number;
9 BEGIN
10   -- initialize
11   feature_boolean := 0;
12   aux_count := 0;
13   num_hierarchical_stores := 0;
14 
15   -- check existence of content stores of HS sub-types
16   BEGIN
17     execute immediate 'SELECT COUNT(*)  FROM sys.dbfs_hs$_fs'
18       INTO num_hierarchical_stores;
19   EXCEPTION
20     WHEN table_not_found THEN NULL;
21   END;
22 
23   feature_boolean := num_hierarchical_stores;
24   IF feature_boolean <> 0
25   THEN
26     feature_info := to_clob('DBFS HS in use. ' ||
27                               num_hierarchical_stores ||
28                               ' DBFS hierarchical stores detected.');
29   ELSE
30     feature_info := to_clob('DBFS HS feature not in use.');
31   END IF;
32 END;