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

REPORT ZLYHR01.

DATA:TP1008 TYPE TABLE OF P1008,
     SP1008 TYPE P1008.

SP1008-PLVAR = ''.
SP1008-OTYPE = 'O'.
SP1008-OBJID = ''.
SP1008-INFTY = ''.
SP1008-SUBTY = ''.
SP1008-ISTAT = ''.
SP1008-BEGDA = ''.
SP1008-ENDDA = ''.
SP1008-VARYF = ''.
SP1008-BUKRS = ''.
SP1008-GSBER = ''.
SP1008-WERKS = ''.
SP1008-PERSA = ''.
SP1008-KOKRS = ''.
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    =
    ERROR_DURING_INSERT =
    REPID_FORM_INITIAL  =
    CORR_EXIT           =
    BEGDA_GREATER_ENDDA = .
IF SY-SUBRC = .
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT = 'X'.
  WRITE 'YES'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  WRITE: 'NO'.
ENDIF.

效果如下：