REPORT ZLYHR01. DATA:TP1008 TYPE TABLE OF P1008, SP1008 TYPE P1008. SP1008-PLVAR = '01'. SP1008-OTYPE = 'O'. SP1008-OBJID = '50000106'. SP1008-INFTY = '1008'. SP1008-SUBTY = ''. SP1008-ISTAT = '1'. SP1008-BEGDA = '20161012'. SP1008-ENDDA = '99991231'. SP1008-VARYF = ''. SP1008-BUKRS = '1000'. SP1008-GSBER = '1010'. SP1008-WERKS = '1010'. SP1008-PERSA = '1000'. SP1008-KOKRS = '1000'. APPEND SP1008 TO TP1008. CALL FUNCTION 'RH_INSERT_INFTY' EXPORTING FCODE = 'INSE' "FCODE VTASK = 'D' "VTASK * ORDER_FLG = ORDER_FLG * COMMIT_FLG = COMMIT_FLG * AUTHY = AUTHY * PPPAR_IMP = PPPAR_IMP * KEEP_LUPD = KEEP_LUPD "VWMWF * WORKF_ACTV = WORKF_ACTV "VWMWF TABLES INNNN = TP1008 "IP1001 * ILFCODE = ILFCODE "VWMWF EXCEPTIONS NO_AUTHORIZATION = 01 ERROR_DURING_INSERT = 02 REPID_FORM_INITIAL = 03 CORR_EXIT = 04 BEGDA_GREATER_ENDDA = 05. IF SY-SUBRC = 0. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. WRITE 'YES'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. WRITE: 'NO'. ENDIF.
效果如下：
