*&---------------------------------------------------------------------* *& Report Z01 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT z01. DATA lv_header TYPE bapimereqheader. DATA lv_headerx TYPE bapimereqheaderx. lv_header-pr_type = 'NB'. lv_headerx-pr_type = 'X'. DATA wa_item TYPE bapimereqitemimp. DATA wa_itemx TYPE bapimereqitemx. DATA t_item TYPE TABLE OF bapimereqitemimp. DATA t_itemx TYPE TABLE OF bapimereqitemx. wa_item-material = 'A01'. wa_itemx-material = 'X'. wa_item-plant = '8010'. wa_itemx-plant = 'X'. wa_item-pur_group = '001'. wa_itemx-pur_group = 'X'. wa_item-quantity = '999'. wa_itemx-quantity = 'X'. APPEND wa_item TO t_item. APPEND wa_itemx TO t_itemx. DATA return TYPE TABLE OF bapiret2. DATA lv_number TYPE bapimereqheader-preq_no. CALL FUNCTION 'BAPI_PR_CREATE' EXPORTING prheader = lv_header prheaderx = lv_headerx * TESTRUN = IMPORTING number = lv_number * PRHEADEREXP = TABLES return = return pritem = t_item pritemx = t_itemx * 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 = . CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X' * IMPORTING * RETURN = . COMMIT WORK AND WAIT. WRITE lv_number.