DATA: lt_bp001   TYPE TABLE OF bp001,
        lt_bp001_x TYPE TABLE OF bp001_x,
        lt_return  TYPE TABLE OF bapiret2,
        ls_return  TYPE bapiret2.

  DATA: lv_date TYPE sy-datum,
        lv_time TYPE sy-uzeit.

  "字段更新标识
  lt_bp001_x = VALUE #( ( vbund = abap_true ) ).

  "统一时间日期
  lv_date = sy-datum.
  lv_time = sy-uzeit.

  "BP001表更新数据
  lt_bp001 = VALUE #( ( ps_bp001 ) ).

  CALL FUNCTION 'FS_API_BP001_CHANGE'
    EXPORTING
      iv_partner = ps_bp001-partner
    TABLES
      it_bp001   = lt_bp001
      it_bp001_x = lt_bp001_x
      et_return  = lt_return.

  IF line_exists( lt_return[ type = 'E' ] ).
    ROLLBACK WORK.
  ELSE.
    COMMIT WORK AND WAIT.
  ENDIF.