DATA: ls_headinx LIKE bapisdh1x,
lt_return TYPE TABLE OF bapiret2,
ls_return TYPE bapiret2.
CLEAR: ls_headinx .
ls_headinx-updateflag = ‘D’.
CALL FUNCTION ‘BAPI_SALESORDER_CHANGE’
EXPORTING
salesdocument = pv_vbeln
order_header_inx = ls_headinx
TABLES
return = lt_return.
CLEAR pv_msgtxt.
LOOP AT lt_return INTO ls_return
WHERE type = ‘E’
OR type = ‘A’.
IF pv_msgtxt NS ls_return-message.
CONCATENATE pv_msgtxt ls_return-message INTO pv_msgtxt SEPARATED BY '/' .
ENDIF.
ENDLOOP.
IF pv_msgtxt IS INITIAL .
COMMIT WORK AND WAIT .
ELSE.
ROLLBACK WORK.
ENDIF.