create or replace package trg is

Test pls_integer :=  123 ;

procedure CreateTrg(ATabName Varchar2);

end trg;
/
create or replace package body trg is
 
procedure CreateTrg(ATabName Varchar2)
is
pragma autonomous_transaction;
begin
  execute immediate
    'CREATE OR REPLACE TRIGGER T' || ATabName || Chr( 10 ) ||
    ' AFTER UPDATE ON ' || ATabName || Chr( 10 ) ||
    ' FOR EACH ROW' || Chr( 10 ) ||
    'begin' || Chr( 10 ) ||
    '  dbms_output.put_line(trg.Test);' || Chr( 10 ) ||
    'end;';
end;

end trg;
/
create table A(TABNAME VARCHAR2( 30 ));
create table T0(ID0 NUMBER);

CREATE OR REPLACE TRIGGER TA
 AFTER INSERT ON A
 FOR EACH ROW
begin
  trg.createTrg(:NEW.TabName);
end;
/
insert into a values('t0');
commit;

CREATE OR REPLACE TRIGGER Tt0
 AFTER UPDATE ON t0
 FOR EACH ROW
begin
  dbms_output.put_line(trg.Test);
end;