declare
..
begin
  begin 
    delete from t_base_info where id=base_id;
    commit;
  exception 
   when others then
     dbms_output.put_line('错误信息');
     rollback;
  end ;
  begin 
    delete from t_segment_info where .......
    commit;
  exception 
   when others then
     dbms_output.put_line('错误信息');
     rollback;
  end ;
  begin 
    delete from t_relational_info where relation_from=base_id;
    commit;
  exception 
   when others then
     dbms_output.put_line('错误信息');
     rollback;
  end ;
  begin 
    delete from t_block_info where .......;
    commit;
  exception 
   when others then
     dbms_output.put_line('错误信息');
     rollback;
  end ;end;