PROCEDURE: SYS.DBMS_FEATURE_MOVE_DATAFILE

Source

1 procedure DBMS_FEATURE_MOVE_DATAFILE
2     (feature_boolean  OUT  NUMBER,
3      aux_count        OUT  NUMBER,
4      feature_info     OUT  CLOB)
5 AS
6     feature_usage      varchar2(1000);
7     use_omd_primary    varchar2(5);
8     use_pri            number;
9 
10 begin
11     -- initialize
12     feature_boolean := 0;
13     aux_count := 0;
14     use_omd_primary := 'FALSE';
15 
16     execute immediate 'select DI2MVUSE_PRI from X$KCCDI2'
17       into use_pri;
18     if (use_pri > 0) then
19       use_omd_primary := 'TRUE';
20       feature_boolean := 1;
21     end if;
22 
23     if (feature_boolean = 1) then
24         feature_usage :=
25                 'Online Move Datafile on primary used: '
26              || upper(use_omd_primary)
27         ;
28         feature_info := to_clob(feature_usage);
29     else
30         feature_info := to_clob('Online Move Datafile usage not detected');
31     end if;
32 end;