PROCEDURE: SYS.DBMS_FEATURE_DBFS_SFS

Source

1 PROCEDURE dbms_feature_dbfs_sfs
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_sf_stores          number;
9 BEGIN
10   -- initialize
11   feature_boolean := 0;
12   aux_count := 0;
13   num_sf_stores := 0;
14 
15   -- check existence of SecureFile stores (POSIX file-systems)
16   BEGIN
17     execute immediate 'SELECT COUNT(*) FROM sys.dbfs_sfs$_fs'
18       INTO num_sf_stores;
19   EXCEPTION
20     WHEN table_not_found THEN NULL;
21   END;
22 
23   feature_boolean := num_sf_stores;
24   IF feature_boolean <> 0
25   THEN
26     feature_info := to_clob('DBFS SFS feature in use. ' ||
27                               num_sf_stores ||
28                               ' DBFS SF stores detected.');
29   ELSE
30     feature_info := to_clob('DBFS SFS feature is not in use.');
31   END IF;
32 END;