create or replace trigger NOMBRE_DEL_DISPARADOR
before ddl on ESQUEMA_A_AUDITAR.schema
...

-- Creación del espacio de tablas. Los ficheros de datos se crean en ASM (en este caso).
create tablespace auditoria datafile '+DATA_PRODUCCION'
size 100m logging extent management local segment space management auto
;

-- Creación del usario y esquema.
create user auditoria
identified by "***" account unlock
default tablespace auditoria quota unlimited on auditoria temporary tablespace temp
;

-- Otorgamiento del permiso para iniciar sesión.
grant connect to auditoria;

-- Establecimiento del esquema por defecto para esta sesión.
alter session set current_schema = auditoria;

-- Creación de la tabla de auditoría.
create table add_auditoria_dll (
  add_id number generated always as identity (start with 1 increment by 1),
  add_ts timestamp with time zone default systimestamp not null,
  add_remoto_usu varchar2(50) null,
  add_remoto_sistema_nom varchar2(100) null, 
  add_remoto_sistema_ip varchar2(15) not null,
  add_remoto_sistema_term varchar2(100) null,
  add_bd_usu_identif varchar2(128) not null, -- sys_context('USERENV','CURRENT_USER').
  add_bd_usu_destino varchar2(128) not null, -- ora_login_user.
  add_bd_obj_tipo varchar2(30) null,         -- ora_dict_obj_type.
  add_bd_obj_propietario varchar2(128) null, -- ora_dict_obj_owner.
  add_bd_obj_nom varchar2(128) null,         -- ora_dict_obj_name.
  add_bd_evento varchar2(50) null,           -- ora_sysevent.
  add_bd_sql long null,
  constraint add_pk primary key (add_id)
);

-- Creación de índices para un correcto rendimiento.
create index add_i_ts on add_auditoria_dll(add_ts);
create index add_i_remoto_usu on add_auditoria_dll(add_remoto_usu);
create index add_i_remoto_sistema_nom on add_auditoria_dll(add_remoto_sistema_nom);
create index add_i_remoto_sistema_ip on add_auditoria_dll(add_remoto_sistema_ip);
create index add_i_bd_usu_identif on add_auditoria_dll(add_bd_usu_identif);
create index add_i_bd_usu_destino on add_auditoria_dll(add_bd_usu_destino);
create index add_i_bd_obj_tipo on add_auditoria_dll(add_bd_obj_tipo);
create index add_i_bd_obj_propietario on add_auditoria_dll(add_bd_obj_propietario);
create index add_i_bd_obj_nom on add_auditoria_dll(add_bd_obj_nom);
create index add_i_bd_evento on add_auditoria_dll(add_bd_evento);

declare
  -- Conjunto de esquemas que se incluyen en la monitorización de DDL (mediante expresiones regulares).
  -- «^.*$» indica que se incluyen todos los esquemas.
  esquemas_incluidos long := '^.*$';

  -- Esquema excluidos (los de sistema y otros especificados).
  -- Si no divide en varias expresiones se produce error ORA-12733.
  esquemas_excluidos1 long :=
    '^(XS\$NULL|SYS|SYS.*|XDB|WMSYS|SPATIAL.*|OUTLN|ORD(SYS|PLUGINS|DATA)|ORACLE_OCM|OLAPSYS|' ||
    'OJVMSYS|MDSYS|JSON_TEST|CTXSYS|APPQOSSYS|ANONYMOUS|LBACSYS|DBSWUSER|SCOTT|' ||
    'APEX_PUBLIC_USER|APEX_050000|AUDSYS|DBSFWUSER|' ||
    'REMOTE_SCHEDULER_AGENT|SI_INFORMTN_SCHEMA|MDDATA|APPQOSSYS)$'
  ;
  esquemas_excluidos2 long :=
    '^(USUARIO_EXCLUIDO_01|USUARIO_EXCLUIDO_02|USUARIO_EXCLUIDO_03|' ||
    'TMP.*|TEST|.*CURSO.*|AUDITORIA|VMWARE.*)$'
  ;

  -- Conjunto de esquemas excluidos (sobre los ya incluidos),
  -- en la forma de «TIPO_DE_OBJETO~ESQUEMA~NOMBRE» (separados por «~»),
  -- cada uno de estos en forma de expresión regular.
  objetos_de_esquemas_excluidos long :=
    '^(VIEW~ESQUEMA_01~.*|TABLE~ESQUEMA_02~TABLA_TEMPORAL.*|VIEW.*~ESQUEMA_03~V[0-9_]+)$'
  ;

  -- Operacionaes excluidas a nivel global especificadas mediante expresiones regulares.
  operaciones_excluidas long :=
    '^(ANALYZE)$'
  ;

  -- Roles de usuarios que no serán auditados ni limitados,
  -- especificados en forma de expresión regular.
  roles_excluidos long := '^(DBA|CDB_DBA|OEM_MONITOR|DV_MONITOR)$';

  -- Esquemas en los que no se permiten modificaciones especificados mediante expresioens regulares.
  esquemas_no_modificables_por_usuarios long :=
    '^(ESQUEMA_04|ESQUEMA_05)$'
    --'^(ninguno)$' -- Esta especificación no limita la modificación de ningún esquema.
  ;

  -- Plantilla del disparador que se creará para cada esquema.
  -- El contenido de la forma «{...}» será sustituído por la parte específica de cada esquema.
  disparador long := '
create or replace trigger
  auditoria.aud_ddl_{esquema}
before ddl on {esquema}.schema disable
declare
  sql_dato long := '''';
  sql_dato_lista dbms_standard.ora_name_list_t;
  sql_dato_num_elementos binary_integer;
  error varchar2(256) := null;
  auditar char(1) := ''s'';
begin
  -- Restricciones de ejecución.
  if ora_dict_obj_type = ''TRIGGER'' and ora_dict_obj_name = ''AUD_INSPECCION_DDL'' then
    error := ''No está permitido DDL sobre el disparador AUD_INSPECCION_DDL.'';
  end if;
  {esquema_no_modificable}
  if error is not null then
    raise_application_error(-20000, ''ERROR: '' || error);
  end if;
  {objeto_excluido}
  -- Si se trata de operación excluida, se indica.
  if regexp_like(ora_sysevent, ''' || operaciones_excluidas || ''') then
    auditar := ''n'';
  end if;

  -- Registro de la instrucción.
  if auditar = ''s'' then
    sql_dato_num_elementos := ora_sql_txt(sql_dato_lista);
    for sql_dato_elemento in 1 .. sql_dato_num_elementos 
    loop
      sql_dato := sql_dato || sql_dato_lista(sql_dato_elemento);
    end loop;
    insert into auditoria.add_auditoria_dll (
      add_remoto_usu,
      add_remoto_sistema_nom,
      add_remoto_sistema_ip,
      add_remoto_sistema_term,
      add_bd_usu_identif,
      add_bd_usu_destino,
      add_bd_obj_tipo,
      add_bd_obj_propietario,
      add_bd_obj_nom,
      add_bd_evento,
      add_bd_sql
    ) values (
      sys_context(''USERENV'',''OS_USER''),
      sys_context(''USERENV'',''HOST''), 
      sys_context(''USERENV'',''IP_ADDRESS''),
      sys_context(''USERENV'',''TERMINAL''),
      sys_context(''USERENV'',''CURRENT_USER''),
      ora_login_user,
      ora_dict_obj_type,
      ora_dict_obj_owner,
      ora_dict_obj_name,
      ora_sysevent,
      sql_dato
    );
    -- No es preciso hacer commit por es implícito a la instrucción ddl.
    -- commit;
  end if;
-- Si se produce un error, debe mostrarse (o no, según decisión del DBA).
--exception
--  when others then
--    null;
end;
'
  ;

  -- Código para el disparador en caso de que el esquema no sea modificable.
  ddl_esquema_no_modificable long := '
  -- Este usaurio no puede modificar objectos de su esquema.
  error :=
    ''Por seguridad e implicaciones con otros esquemas/aplicaciones, no está permitido '' ||
    ''la modificación de objetos de este esquema por usuarios.''
  ;  
  ';

  -- Código para el disparador en caso de que el objeto esté excluido de la auditoría.
  ddl_objeto_excluido long := '
  -- Objectos excluidos.
  if regexp_like(ora_dict_obj_type || ''~'' || ora_dict_obj_owner || ''~'' || ora_dict_obj_name, ''' ||
  objetos_de_esquemas_excluidos || ''') then
    auditar := ''n'';
  end if;
  ';

  s long;
begin
  dbms_output.enable(null);

  -- Eliminación de disparadores de auditoría previos (todos con la intención de recrear todo).
  dbms_output.put_line('Eliminación de disparadores.');
  for d in (select * from dba_objects where owner = 'AUDITORIA' and object_type = 'TRIGGER' and object_name like 'AUD_DDL_%') loop
    dbms_output.put_line('  eliminando: ' || d.object_name);
    execute immediate 'drop trigger auditoria."' || d.object_name || '"'; 
  end loop;

  -- Otorgamiento de permisos a cada esquema auditado para la inserción de registros
  -- de auditoría en la tabla de auditoría y creación de disparador para cada esquema auditado.
  dbms_output.put_line('Otorgando permisos para escritura de auditorías y creando disparadores.');
  for u in (
    -- Selección de esquemas que cumplan con la especificación de inclusión/exclusión.
    select distinct u.username
    from dba_users u
    where
      regexp_like(u.username, esquemas_incluidos) and
      (not (
          regexp_like(u.username, esquemas_excluidos1) or
          regexp_like(u.username, esquemas_excluidos2)
        )
      ) and
      u.username not in (
        select ug.grantee
        from dba_role_privs ug
        where regexp_like(ug.granted_role, roles_excluidos)
      )
    order by u.username
  ) loop
    dbms_output.put_line(u.username);

    -- Otorgamiento del permiso de inserción.
    execute immediate 'grant insert on auditoria.add_auditoria_dll to ' || u.username;
    dbms_output.put_line('  Permiso otorgado.');

    -- Generación del texto del disparador. Se sustituyen los textos específicos del
    -- esquema en la plantilla del disparador.
    s := disparador;
    s := replace(s, '{esquema}', u.username);
    if regexp_like(u.username, esquemas_no_modificables_por_usuarios) then
      s := replace(s, '{esquema_no_modificable}', ddl_esquema_no_modificable);
    else
      s := replace(s, '{esquema_no_modificable}', '');
    end if;
    if regexp_like(
      u.username,
      '^(' ||
      regexp_replace(
        regexp_replace(
          objetos_de_esquemas_excluidos, '([^~]*)~([^~]*)~([^~]*)', '\2|', 1, 0
        ),
        '^(.*).$', '\1'
      ) ||
      ')$'
    ) then
      dbms_output.put_line('  Añadiendo exclusión de objetos para este esquema.');
      s := replace(s, '{objeto_excluido}', ddl_objeto_excluido);
    else
      s := replace(s, '{objeto_excluido}', '');
    end if;
    --dbms_output.put_line(s);

    -- Creación del disparador (deshabilitado por si hay errores).
    begin
      execute immediate s;
    exception
      when others then null;
    end;
    dbms_output.put_line('  Disparador auditoria.aud_ddl_' || u.username || ' creado deshabilitado.');

    -- Si se llega aquí, todo es correcto. Habilitación del disparador.
    execute immediate 'alter trigger auditoria.aud_ddl_' || u.username || ' enable';
    dbms_output.put_line('  Disparador habilitado.');
    dbms_output.put_line('');
  end loop;
end;

> select * from auditoria.add_auditoria_dll 

 #   | ADD_ID | ADD_TS                        | ADD_REMOTO_USU | ADD_REMOTO_SISTEMA_NOM  | ADD_REMOTO_SISTEMA_IP | ADD_REMOTO_SISTEMA_TERM | ADD_BD_USU_IDENTIF | ADD_BD_USU_DESTINO | ADD_BD_OBJ_TIPO | ADD_BD_OBJ_PROPIETARIO | ADD_BD_OBJ_NOM                 | ADD_BD_EVENTO | ADD_BD_SQL                                                                                            |
-----+--------+-------------------------------+----------------+-------------------------+-----------------------+-------------------------+--------------------+--------------------+-----------------+------------------------+--------------------------------+---------------+-------------------------------------------------------------------------------------------------------+
 1   |    641 | 2021-02-25 12:17:48.501 +0100 | usuario_01     | SISTEMA_01              | ***(omitida)***       | unknown                 | AUDITORIA          | ESQUEMA_12         | TABLE           | ESQUEMA_12             | TABLA_01                       | ALTER         | ALTER TABLE TABLA_01 ADD (ATRIB_01 CHAR )                                                            |
 2   |    642 | 2021-02-25 12:17:48.696 +0100 | usuario_01     | SISTEMA_01              | ***(omitida)***       | unknown                 | AUDITORIA          | ESQUEMA_12         | TABLE           | ESQUEMA_12             | TABLA_01                       | ALTER         | ALTER TABLE TABLA_01 ADD (ATRIB_02 TIMESTAMP )                                                       |
 ...