用程序实现更新PO的价格

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.