预留修改BAPI

REPORT y_badi_reserve_test.

DATA:l_rsnum TYPE bapi2093_res_key-reserv_no.
DATA:lt_item   TYPE TABLE OF bapi2093_res_item_change,
     ls_item   TYPE bapi2093_res_item_change,
     lt_itemx  TYPE TABLE OF bapi2093_res_item_changex,
     ls_itemx  TYPE bapi2093_res_item_changex,
     lt_return TYPE TABLE OF bapiret2.

PARAMETERS:p_rsnum TYPE resb-rsnum.
PARAMETERS:p_rspos TYPE resb-rspos.


START-OF-SELECTION.

  MOVE p_rsnum TO l_rsnum.

  ls_item-res_item = p_rspos.
  ls_item-entry_qnt = '1'.
  ls_item-delete_ind = 'X'.

  ls_itemx-res_item = p_rspos.
  ls_itemx-entry_qnt = 'X'.
  ls_itemx-delete_ind = 'X'.

  APPEND ls_item TO lt_item.
  APPEND ls_itemx TO lt_itemx.

  CALL FUNCTION 'BAPI_RESERVATION_CHANGE'
    EXPORTING
      reservation               = l_rsnum
*     TESTRUN                   =
*     ATPCHECK                  =
    TABLES
      reservationitems_changed  = lt_item
      reservationitems_changedx = lt_itemx
*     RESERVATIONITEMS_NEW      =
      return                    = lt_return
*     EXTENSIONIN               =
    .

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

*     EXPORTING
*       WAIT          =
*     IMPORTING
*       RETURN        =
  .