OM批导用到的一些函数

	新增	修改	定界
1000	RH_OBJECT_CREATE	RH_INSERT_INFTY	RH_CUT_INFTY
1001	RH_INSERT_INFTY_1001_EXT	RH_INSERT_INFTY_1001_EXT	RH_CUT_INFTY_1001_EXT
9302	RH_INSERT_INFTY		RH_CUT_INFTY

DATA:lt_wplog TYPE TABLE OF wplog.

        CALL METHOD cl_hr_pnnnn_type_cast=>pnnnn_to_wplog
          EXPORTING
            pnnnn = p1000
          IMPORTING
            wplog = lt_wplog.
        APPEND lt_wplog.

  CALL FUNCTION 'RH_INSERT_INFTY'
    EXPORTING
      fcode               = 'INSE'
      vtask               = 'S'
      commit_flg          = ''
      authy               = ''
      repid               = sy-cprog
    TABLES
      innnn               = lt_wplog
    EXCEPTIONS
      no_authorization    = 1
      error_during_insert = 2
      repid_form_initial  = 3
      corr_exit           = 4
      begda_greater_endda = 5
      OTHERS              = 6.

***************************************************************

    DATA: wa_pspar type pspar.
    CLEAR wa_pspar.
    CLEAR p0001.
    READ TABLE p0001 WITH KEY pernr = lv_pernr BINARY SEARCH.
    MOVE-CORRESPONDING p0000 TO wa_pspar.
    wa_pspar-werks = lt_pernr-after_werks.
    wa_pspar-persg = p0001-persg.
    wa_pspar-persk = p0001-persk.
    wa_pspar-plans = lt_pernr-plans.
    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        infty         = '0000'
        number        = lv_pernr
        validityend   = '99991231'
        validitybegin = lv_datum
        record        = p0000
        operation     = 'INS'
        dialog_mode   = '0'
*nocommit      = 'X'
        secondary_record = wa_pspar     "副屏
      IMPORTING
        return        = ls_return.