HR函数学习03——维护信息类型1008

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.