PROCEDURE: SYS.DBMS_FEATURE_EXADATA

Source

1 procedure DBMS_FEATURE_EXADATA
2     (feature_boolean  OUT  NUMBER,
3      num_cells        OUT  NUMBER,
4      feature_info     OUT  CLOB)
5 AS
6   feature_usage          varchar2(1000);
7 begin
8   -- initialize
9   num_cells := 0;
10   feature_boolean := 0;
11   feature_info := to_clob('EXADATA usage not detected');
12   feature_usage := '';
13 
14   num_cells := sys.dbms_registry.num_of_exadata_cells();
15 
16   if num_cells > 0
17   then
18 
19     feature_boolean := 1;
20 
21     feature_usage := feature_usage||':cells:'||num_cells;
22 
23     feature_info := to_clob(feature_usage);
24 
25   end if;
26 
27 end;