ACE Director Alum Daniel Morgan, founder of Morgan's Library, is scheduling
complimentary technical Workshops on Database Security for the first 30
Oracle Database customers located anywhere in North America, EMEA, LATAM, or
APAC that send an email to
asra_us@oracle.com. Request a Workshop for
your organization today.
Returns the root OF the diana OF a libunit, given name AND user
Name will be first folded TO upper CASE IF NOT IN quotes, ELSE stripped OF quotes
diutil.get_d(
name IN VARCHAR2,
usr IN VARCHAR2,
dbname IN VARCHAR2,
dbowner IN VARCHAR2,
status IN OUT ub4,
nod OUT ptnod,
libunit_type IN NUMBER := libunit_type_spec,
load_source IN NUMBER := load_source_no);
Returns the root OF the diana OF a libunit, given name AND usr.
Name will be first folded TO upper CASE IF NOT IN quotes, ELSE stripped OF quotes. Will trace synonym links.
diutil.get_diana(
name IN VARCHAR2,
usr IN VARCHAR2,
dbname IN VARCHAR2,
dbowner IN VARCHAR2,
status IN OUT ub4,
nod IN OUT ptnod,
libunit_type IN NUMBER := libunit_type_spec,
load_source IN NUMBER := load_source_no);
Translates 3-valued NUMBER encoding to BOOLEAN for use in sending BOOLEAN parameter / RETURN VALUES between pls v1 (client) AND pls v2.
Since sqlnet has no BOOLEAN bind variable TYPE, we encode booleans AS false = 0, true = 1, NULL = NULL FOR network transfer AS NUMBER
diutil.int_to_bool(n IN NUMBER)
RETURN BOOLEAN;
set serveroutput on
DECLARE
i PLS_INTEGER := 1;
BEGIN
IF diutil.int_to_bool(i) THEN
dbms_output.put_line('First it is TRUE');
i := 0;
IF NOT diutil.int_to_bool(i) THEN
dbms_output.put_line('Then it is FALSE');
END IF;
ELSE
dbms_output.put_line('FALSE');
END IF;
END;
/
Returns the text OF a subprogram source (describe).
diutil.subptxt(
name IN VARCHAR2,
subname IN VARCHAR2,
usr IN VARCHAR2,
dbname IN VARCHAR2,
dbowner IN VARCHAR2,
txt IN OUT VARCHAR2,
status IN OUT ub4);
Clear text source code in package body
Thanks to Maxim Demenko for pointing me to this package
-- note also SYS functions SUBPTXT and SUBPTXT2 --