CREATE OR REPLACE PACKAGE Logs AS

  FieldSeparator CONSTANT VARCHAR2( 3 ) := '###';
  DefDateFormat VARCHAR2( 20 ) := 'DD.MM.YYYY HH24:MI';
  PROCEDURE WriteStr(String IN VARCHAR2);

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN VARCHAR2);  /* OVERLOAD */ 

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN DATE,
                         DateFormat IN VARCHAR2 DEFAULT DefDateFormat);  /* OVERLOAD */ 

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN NUMBER);  /* OVERLOAD */ 

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN CLOB);  /* OVERLOAD */ 

END Logs;
/

CREATE OR REPLACE PACKAGE BODY Logs AS

  PROCEDURE WriteStr(String IN VARCHAR2) IS
  BEGIN
    какая нибудь запись, в файл, таблицу или...
  END;

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN VARCHAR2)  /* OVERLOAD */  IS
  BEGIN
    WriteStr(FieldName || '=' || Value || FieldSeparator);
  END;

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN DATE,
                         DateFormat IN VARCHAR2 DEFAULT DefDateFormat)  /* OVERLOAD */  IS
  BEGIN
    WriteStr(FieldName || '=' || TO_CHAR(Value,DateFormat) || FieldSeparator);
  END;

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN NUMBER)  /* OVERLOAD */  IS
  BEGIN
    WriteStr(FieldName || '=' || TO_CHAR(Value) || FieldSeparator);
  END;

  PROCEDURE WriteField(FieldName IN VARCHAR2, Value IN CLOB)  /* OVERLOAD */  IS
  BEGIN
    WriteStr(FieldName || '=' || DBMS_LOB.SUBSTR(Value) || FieldSeparator);
  END;

END Logs;

CREATE OR REPLACE TRIGGER TrLogTriggersCreate AFTER CREATE OR ALTER OR DROP ON m_kus. SCHEMA
BEGIN
  DBMS_OUTPUT.enable( 4000 );
  IF ora_sysevent='DROP' THEN
    DBMS_OUTPUT.put_line('DROP TRIGGER TrLog' || ora_dict_obj_name || ';');
  ELSE
    DBMS_OUTPUT.put_line('CREATE OR REPLACE TRIGGER TrLog' || ora_dict_obj_name || ' AFTER INSERT OR UPDATE OR DELETE ON m_kus.' || ora_dict_obj_name);
    DBMS_OUTPUT.put_line(' BEGIN ');
    DBMS_OUTPUT.put_line(' IF INSERTING OR UPDATING THEN');
    FOR tcur IN (SELECT * FROM user_tab_columns WHERE TABLE_NAME=ora_dict_obj_name) LOOP
      DBMS_OUTPUT.put_line('  IF (INSERTING AND (:new.' || tcur.COLUMN_NAME || ' IS NOT NULL)) OR (UPDATING(' || tcur.COLUMN_NAME || ')) THEN');
      DBMS_OUTPUT.put_line('    Logs.WriteField("' || tcur.COLUMN_NAME || '", :new.' || tcur.COLUMN_NAME || ')');
      DBMS_OUTPUT.put_line('  END;');
    END LOOP;
    DBMS_OUTPUT.put_line(' ELSE');
    DBMS_OUTPUT.put_line('    Logs.WriteStr("Deleting odnako")');
    DBMS_OUTPUT.put_line(' END;');
    DBMS_OUTPUT.put_line(' END;/');
  END IF;
   --EXECUTE IMMEDIATE Command;
 
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.put_line('Trigger not [re]constructed!');
END;
/

  CREATE OR REPLACE MyDDL(Statement IN VARCHAR2)
  IS
  BEGIN
    EXECUTE IMMEDIATE Statement;
    как-нибудь захватить вывод и выполнить его...
  END;