1 DO 2 TIMES. 2 IF sy-index = 1. 3 lv_wait = ‘X‘. 4 ELSE. 5 lv_wait = ‘‘. 6 ENDIF. 7 CALL FUNCTION ‘BAPI_PO_CREATE1‘ 8 EXPORTING 9 poheader = gs_head 10 poheaderx = gs_headx 11 * POADDRVENDOR = 12 * TESTRUN = 13 * MEMORY_UNCOMPLETE = 14 * MEMORY_COMPLETE = 15 * POEXPIMPHEADER = 16 * POEXPIMPHEADERX = 17 * VERSIONS = 18 * NO_MESSAGING = 19 * NO_MESSAGE_REQ = 20 * NO_AUTHORITY = 21 * NO_PRICE_FROM_PO = 22 IMPORTING 23 exppurchaseorder = lv_po 24 TABLES 25 return = gt_return 26 poitem = gt_items 27 poitemx = gt_itemx. 28 IF lv_po IS NOT INITIAL . 29 CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘ 30 EXPORTING 31 wait = lv_wait "‘X‘ 32 * IMPORTING 33 * RETURN = 34 . 35 SELECT SINGLE * INTO wa 36 FROM ekko 37 WHERE ebeln = lv_po. 38 IF sy-subrc EQ 0. 39 WRITE: ‘Oh Yes, the PO has been inserted into database now‘, /. 40 ELSE. 41 WRITE: ‘Come on, The update process is running still‘, /. 42 ENDIF. 43 ENDIF. 44 CLEAR wa. 45 CLEAR lv_po. 46 ENDDO.
COMMIT WORK AND WAIT 是在WAIT什么,布布扣,bubuko.com
原文:http://www.cnblogs.com/ruingy/p/3594696.html