Oracle 在其他阶段删除末尾的记录

  insert into table_1 ( ...
  commit ;       -- Needed as this table's primary key is referenced as a foreign key by the second table
  v_flag_first_table_inserted := 'Y' ;    -- Initially set as 'n'

  insert into table_2 ( ...
  commit ;
  v_flag_second_table_inserted := 'Y' ;    -- Initially set as 'n'

  EXCEPTION
    when others then
    pr_internal_delete_first_table_if_needed ;
    raise_application_error ( ...

...
 
     pr_internal_delete_first_table_if_needed is begin  -- DEFINED EARLIER IN THE PROCEDURE
       if ( v_flag_first_table_inserted  = 'Y' and 
            v_flag_second_table_inserted = 'n' ) then
         delete table_1 where table_1_pk = ...
         commit:
       end if ;
     end ;

create table t1 (
  x int primary key
);
create table t2 (
  x int primary key
);

insert into t2 values (1);
commit;

select * from t1;

no rows selected

select * from t2;

X  
1  

create or replace procedure p ( p int ) as
begin
  insert into t1 values (p);  
  insert into t2 values (p);  
end p;
/

exec p(1);

ORA-00001: unique constraint (CHRIS.SYS_C0052933) violated

select * from t1;

no rows selected

select * from t2;

X  
1