PACKAGE BODY: SYS.DBMS_CLUSTDB

Source

1 PACKAGE BODY dbms_clustdb AS
2 
3 ----------------------------------------------------------------------
4 -- PUBLIC FUNCTIONS
5 ----------------------------------------------------------------------
6 
7 PROCEDURE validate IS
8 start_time DATE;
9 end_time   DATE;
10 option_val VARCHAR2(64);
11 g_null     CHAR(1);
12 BEGIN
13 
14    BEGIN
15       SELECT null INTO g_null FROM obj$ o, user$ u
16          WHERE o.owner#=u.user# AND u.name = 'PUBLIC'
17                AND o.name='GV$GES_STATISTICS';
18 --    valid if gv$ges_statistics exists;
19       SELECT value INTO option_val FROM v$option
20          WHERE parameter = 'Real Application Clusters';
21 --    check if RAC option has been linked in
22       IF option_val = 'TRUE' THEN
23          dbms_registry.valid('RAC');
24       ELSE
25          update registry$ set status = 9 where cid='RAC';
26          commit;
27       END IF;
28    EXCEPTION
29       WHEN NO_DATA_FOUND THEN
30       dbms_registry.invalid('RAC');
31    END;
32 END validate;
33 
34 END dbms_clustdb;