create or replace PROCEDURE TestA
(a VARCHAR2,
b VARCHAR2
)
IS
    vs_str   VARCHAR2(10);
   
BEGIN
   
    INSERT INTO test_table_t VALUES(a);
   
    vs_str := b;
   
    TestB(bs_str);
   
    ROLLBACK;
   
END;

--将过程TestB(msg varchar2)定义为自治事务：

create or replace PROCEDURE TestB(msg varchar2)

IS
   
     PRAGMA autonomous_transaction;
   
BEGIN
   
    INSERT INTO test_table_t VALUES(msg);
   
    COMMIT;
   
END;

????? 这样，test_table_t中之前TestA过程写入的数据就会因为TestA过程的rollback而回滚掉。而因为TestA调用了被定义为自治事务的TestB，而且TestB也向表test_table_t中写入了数据b并做了commit操作。

????? 那么，TestA的rollback对TestB写入的数据就没有影响，而且TestB的commit对TestA的rollback也不会有影响。表test_table_t中会保留数据b。