PROCEDURE: SYS.DBMS_FEATURE_ZFS_STORAGE

Source

1 PROCEDURE DBMS_FEATURE_ZFS_STORAGE
2      ( feature_boolean  OUT  NUMBER,
3        aux_count        OUT  NUMBER,
4        feature_info     OUT  CLOB)
5 AS
6   feature_count NUMBER;
7   tsn           NUMBER;
8   stortype      NUMBER;
9   TYPE cursor_t         IS REF CURSOR;
10   cursor_objtype        cursor_t;
11   feature_usage         varchar2(1000);
12 BEGIN
13   -- initialize
14   feature_info      := NULL;
15   feature_count     := 0;
16 
17   OPEN cursor_objtype FOR q'[select ts# from sys.ts$]';
18 
19   LOOP
20     BEGIN
21       FETCH cursor_objtype INTO tsn;
22       EXIT WHEN cursor_objtype%NOTFOUND;
23       kdzstoragetype(tsn, stortype);
24       IF (stortype = 1) THEN
25         feature_count := feature_count + 1;
26       END IF;
27     END;
28   END LOOP;
29 
30   feature_usage := 'TS on ZFS: ' || to_char(feature_count);
31   feature_info := to_clob(feature_usage);
32 
33   if (feature_count > 0) then
34     feature_boolean := 1;
35   else
36     feature_boolean := 0;
37   end if;
38   aux_count       := feature_count;
39 END;