PROCEDURE: SYS.DBMS_FEATURE_IDH

Source

1 procedure DBMS_FEATURE_IDH
2     (feature_boolean  OUT  NUMBER,
3      aux_count        OUT  NUMBER,
4      feature_info     OUT  CLOB)
5 AS
6   feature_usage          varchar2(1000);
7   cursor c1 is select grantee,granted_role
8                       from dba_role_privs where
9                       granted_role = 'DBHADOOP' and grantee != 'SYS';
10 begin
11   -- initialize
12   aux_count := 0;
13   feature_boolean := 0;
14   feature_info := to_clob('In-Database Hadoop usage not detected');
15   feature_usage := '';
16 
17   for i in c1
18   loop
19     aux_count := aux_count + 1;
20   end loop;
21 
22   if aux_count > 0
23   then
24     feature_boolean := 1;
25     feature_usage := feature_usage||':DBHADOOP users:'||aux_count;
26     feature_info := to_clob(feature_usage);
27   end if;
28 
29 end;