REPORT ZTEST004. TABLES : EKPO. DATA : RETURN TYPE BAPIRET2_TT WITH HEADER LINE, POITEM TYPE BAPIMEPOITEM_TP WITH HEADER LINE, POITEMX TYPE BAPIMEPOITEMX_TP WITH HEADER LINE. PARAMETERS : P_EBELN LIKE EKKO-EBELN OBLIGATORY, P_EBELP LIKE EKPO-EBELP OBLIGATORY. START-OF-SELECTION. POITEM-PO_ITEM = P_EBELP. POITEM-CALCTYPE = 'B'. APPEND POITEM. POITEMX-PO_ITEM = P_EBELP. POITEMX-CALCTYPE = 'X'. APPEND POITEMX. CALL FUNCTION 'BAPI_PO_CHANGE' EXPORTING PURCHASEORDER = P_EBELN TABLES RETURN = RETURN POITEM = POITEM POITEMX = POITEMX. READ TABLE RETURN WITH KEY TYPE = 'E'. IF SY-SUBRC <> 0 . COMMIT WORK AND WAIT. ENDIF. CALL FUNCTION 'SUSR_DISPLAY_LOG' EXPORTING DISPLAY_IN_POPUP = 'X' * LOG_TITLE = * DISPLAY_IN_SUBSCREEN = TABLES * IT_LOG_SPROT = IT_LOG_BAPIRET2 = RETURN EXCEPTIONS PARAMETER_ERROR = 1 OTHERS = 2. IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF.
