PROCEDURE: SYS.DBMS_FEATURE_RA_OWNER

Source

1 PROCEDURE dbms_feature_ra_owner
2       (feature_boolean OUT number,
3        aux_count       OUT number,
4        info            OUT clob)
5 AS
6    owner     VARCHAR2(100);
7 
8 BEGIN
9 
10    EXECUTE IMMEDIATE
11    'BEGIN ' ||
12    'SELECT dbms_rai_owner INTO :owner FROM DUAL; ' ||
13    'EXCEPTION ' ||
14    '   WHEN OTHERS THEN ' ||
15    '   :owner := NULL; ' ||
16    'END;' USING OUT owner;
17 
18    IF (owner IS NOT NULL) THEN
19       feature_boolean := 1;
20    ELSE
21       feature_boolean := 0;
22    END IF;
23 
24    aux_count := NULL;
25    info := NULL;
26 
27 END dbms_feature_ra_owner;