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 =
.