[Home] [Help]
PROCEDURE: SYS.DBMS_FEATURE_BA_OWNER
Source
1 PROCEDURE dbms_feature_ba_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_ba_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_ba_owner;