Oracle | DBMS_DDL

Oracle DBMS_DDL_INTERNAL Version 21c

General Information

Library Note

Morgan's Library Page Header

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.

Purpose Support package for DBMS_DDL

AUTHID DEFINER

Dependencies

DBMS_DDL	DBMS_TRIGGER_LIB	USER$
DBMS_STANDARD	DBMS_UTILITY	V$PARAMETER
DBMS_SYS_ERROR	TRIGGER$	_CURRENT_EDITION_OBJ

Documented No

Security Model Owned by SYS with no privileges granted.

Source {ORACLE_HOME}/rdbms/admin/prvthddl.plb

Subprograms

CHECK_TRIGGER_FIRING_PROPERTY	GEN_NEW_OBJECT_ID	SWAP_BOOTSTRAP
COMPAT_OK	IS_DDL_TRIGGER

CHECK_TRIGGER_FIRING_PROPERTY

Undocumented dbms_ddl_internal.check_trigger_firing_property( trig_owner IN VARCHAR2, trig_name IN VARCHAR2, canon_owner OUT VARCHAR2, canon_oname OUT VARCHAR2, p_property IN OUT NUMBER, unsupported_trig OUT BOOLEAN);

conn uwclass/uwclass@pdbdev

      

      
        
          CREATE OR REPLACE TRIGGER t_trig

            BEFORE UPDATE

            ON airplanes

            BEGIN

              NULL;

            END t_trig;

            /
        
      
      

      conn sys@pdbdev as sysdba

      

      set serveroutput on

      

      
        
          DECLARE

             co VARCHAR2(30);

             cn VARCHAR2(30);

             pp NUMBER(10) := 0;

             ut BOOLEAN;

            BEGIN

              dbms_ddl_internal.check_trigger_firing_property('UWCLASS', 'T_TRIG', co, cn,pp,  ut);

            

              dbms_output.put_line(co);

              dbms_output.put_line(cn);

              dbms_output.put_line(TO_CHAR(pp));

            

              IF ut THEN

                dbms_output.put_line('TRUE');

              ELSE

                dbms_output.put_line('FALSE');

              END IF;

            END;

            /

COMPAT_OK

Undocumented dbms_ddl_internal.compat_ok(rcompat IN NUMBER) RETURN BOOLEAN;

set serveroutput on

      

      BEGIN

        IF dbms_ddl_internal.compat_ok(11) THEN

          dbms_output.put_line('TRUE');

        ELSE

          dbms_output.put_line('FALSE');

        END IF;

      

        IF dbms_ddl_internal.compat_ok(12) THEN

          dbms_output.put_line('TRUE');

        ELSE

          dbms_output.put_line('FALSE');

        END IF;

      END;

      /

GEN_NEW_OBJECT_ID

Used to generate object identifiers dbms_ddl_internal.gen_new_object_id RETURN BINARY_INTEGER;

SELECT dbms_ddl_internal.gen_new_object_id

      FROM dual;

IS_DDL_TRIGGER

Returns true of the trigger is a DDL Event Trigger dbms_ddl_internal.is_ddl_trigger(sys_evts IN NUMBER) RETURN BOOLEAN;

conn sys@pdbdev as sysdba

      

      desc trigger$

      

      SELECT sys_evts, type#, COUNT(*)

      FROM trigger$

      GROUP BY sys_evts, type#

      ORDER BY 1;

      

      -- from sql.bsq

      type# number not null, /* trigger type: */

      /*  0 = BEFORE TABLE, 1 = BEFORE ROW, 2 = AFTER TABLE, 3 = AFTER ROW */

      /* 4 = INSTEAD OF TRIGGER */

      -- also see dba_triggers in catprc.sql

      

      set serveroutput on

      

      
        
          BEGIN

              IF dbms_ddl_internal.is_ddl_trigger(31) THEN

                dbms_output.put_line('TRUE');

              ELSE

                dbms_output.put_line('FALSE');

              END IF;

            END;

            /
        
      
      

      
        
          BEGIN

              IF dbms_ddl_internal.is_ddl_trigger(32) THEN

                dbms_output.put_line('TRUE');

              ELSE

                dbms_output.put_line('FALSE');

              END IF;

            END;

            /

SWAP_BOOTSTRAP

Undocumented. Used in the script utlmmig.sql dbms_ddl_internal.swap_bootstrap(replacement_tbl_name IN VARCHAR2);

TBD