调用前准备工作；
准备完成后,用ABAP 代码实现测试
*&———————————————————————*
*& Report ZMM20220106
*&———————————————————————*
*&
*&———————————————————————*
report zmm20220106b.
DATA: lv_number like BAPIMEREQHEADER-PREQ_NO .
lv_number = ‘10000173’ .
CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’
EXPORTING
input = lv_number
IMPORTING
output = lv_number.
DATA: GS_PRITEM like BAPIMEREQITEMIMP .
DATA: GT_PRITEM like TABLE OF BAPIMEREQITEMIMP.
DATA: GS_PRITEMX LIKE BAPIMEREQITEMX .
DATA: GT_PRITEMX LIKE TABLE OF BAPIMEREQITEMX .
GS_PRITEM-PREQ_ITEM = ‘00010’ .
GS_PRITEM-REQ_BLOCKED = ‘1’ .
GS_PRITEM-REASON_BLOCKING = ‘用户取消订单’ .
APPEND GS_PRITEM to GT_PRITEM .
GS_PRITEMX-PREQ_ITEM = ‘00010’ .
GS_PRITEMX-REQ_BLOCKED = ‘X’ .
GS_PRITEMX-REASON_BLOCKING = ‘X’ .
APPEND GS_PRITEMX TO GT_PRITEMX .
DATA: gs_return like BAPIRET2 .
DATA : GT_RETURN LIKE TABLE OF BAPIRET2 .
DATA : ZMSG TYPE C LENGTH 100 .
DATA: lv_suc type c LENGTH 1 .
call function ‘BAPI_PR_CHANGE’
exporting
number = lv_number
* PRHEADER =
* PRHEADERX =
* TESTRUN =
* IMPORTING
* PRHEADEREXP =
TABLES
RETURN = GT_RETURN
PRITEM = GT_PRITEM
PRITEMX = GT_PRITEMX
* PRITEMEXP =
* PRITEMSOURCE =
* PRACCOUNT =
* PRACCOUNTPROITSEGMENT =
* PRACCOUNTX =
* PRADDRDELIVERY =
* PRITEMTEXT =
* PRHEADERTEXT =
* EXTENSIONIN =
* EXTENSIONOUT =
* PRVERSION =
* PRVERSIONX =
* ALLVERSIONS =
* PRCOMPONENTS =
* PRCOMPONENTSX =
* SERVICEOUTLINE =
* SERVICEOUTLINEX =
* SERVICELINES =
* SERVICELINESX =
* SERVICELIMIT =
* SERVICELIMITX =
* SERVICECONTRACTLIMITS =
* SERVICECONTRACTLIMITSX =
* SERVICEACCOUNT =
* SERVICEACCOUNTX =
* SERVICELONGTEXTS =
* SERIALNUMBER =
* SERIALNUMBERX =
.
LOOP AT gt_return into gs_return WHERE ID = ’06’ .
ZMSG = gs_return-TYPE && ‘_’ && GS_RETURN-MESSAGE .
lv_suc = gs_return-TYPE .
ENDLOOP .
if lv_suc eq ‘S’ .
call function ‘BAPI_TRANSACTION_COMMIT’.
MESSAGE ZMSG TYPE ‘S’ .
ENDIF .