Instead of
CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'
IMPORTING
E_ORDER_KEY = IS_ORDER_KEY
ES_BAPIRETURN = ES_BAPIRETURN
E_ERROR_OCCURRED = E_ERROR_OCCURRED
* TABLES
* ET_ORD_KEY_MAP = ET_ORD_KEY_MAP
* ET_BAPIRETURN = ET_BAPIRETURN
Code like this:
if ES_BAPIRETURN-message is initial.
CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'.
COMMIT WORK AND WAIT.
endif.