SAP ABAP 删除预留

DATA: lv_yl  TYPE bapi2093_res_key-reserv_no.
DATA: lt_cd TYPE STANDARD TABLE OF bapi2093_res_item_change,
      ls_cd TYPE bapi2093_res_item_change.
DATA: lt_cdx TYPE STANDARD TABLE OF bapi2093_res_item_changex,
      ls_cdx TYPE bapi2093_res_item_changex.

DATA: lt_re  TYPE STANDARD TABLE OF bapiret2.

CLEAR lv_yl.

lv_yl = '0012512545'.

CLEAR: ls_cd,lt_cd[],ls_cdx,lt_cdx[].

ls_cd-res_item   = 1.
ls_cd-delete_ind = 'X'.
APPEND ls_cd TO lt_cd.

ls_cdx-res_item   = 1.
ls_cdx-delete_ind = 'X'.
APPEND ls_cdx TO lt_cdx.

CALL FUNCTION 'BAPI_RESERVATION_CHANGE'
  EXPORTING
    reservation               = lv_yl
*   TESTRUN                   =
*   ATPCHECK                  =
  TABLES
    reservationitems_changed  = lt_cd
    reservationitems_changedx = lt_cdx
*   RESERVATIONITEMS_NEW      =
    return                    = lt_re
*   EXTENSIONIN               =
  .

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
*   WAIT          =
* IMPORTING
*   RETURN        =
          .