begin

    begin

    savepoint  p1;

    ---------============

   在这里写删改差语句(SELECT 不行)每句以分号结尾:如 delete table_name where id='XX';

    ---------============  

      exception  --捕获异常

           when others then

           begin

              rollback to savepoint p1;  

               --- 提交事务

               return;

           end;

    

    

    end;

 commit;


end;