HCM 信息类型操做日志提取

  CALL FUNCTION 'HR_INFOTYPE_LOG_GET_LIST'
    EXPORTING
      begda              = '18000101'
      endda              = '99991231'
    TABLES
      pernr_tab          = gt_pernr_tab
      infty_tab          = gt_infty_tab
      infty_logg_key_tab = gt_pa_log_list
      datum_tab          = gt_datum_tab
      uname_tab          = gt_uname_tab.


  LOOP AT gt_pa_log_list INTO pa_log_stru.
    MOVE-CORRESPONDING pa_log_stru TO lo-key.
    rp_imp_c4 la lo-key.
*    MOVE pcl4-srtfd TO lo-key.
*    tabna+1(4) = lo-key-infty.
    CLEAR itab.
    itab-pernr = pa_log_stru-pernr.
    itab-infty = pa_log_stru-infty.
    itab-udate = pa_log_stru-bdate.
    itab-utime = pa_log_stru-btime.
    itab-uname = pa_log_stru-uname.

    IF p_noinit IS NOT INITIAL.
      DELETE belege WHERE olddt IS INITIAL AND newdt IS INITIAL.
    ENDIF.

    LOOP AT header WHERE subty IN p_lgart.

      itab-subty = header-subty.
      itab-opera = header-opera.
      itab-begda = header-begda.
      itab-endda = header-endda.
*      itab-psno = header-splkz.


      LOOP AT belege WHERE splkz = header-splkz.
        itab-ovalue = belege-olddt.
        itab-nvalue = belege-newdt.

        READ TABLE ddftx_tab WITH KEY fieldname = belege-field.
        itab-field = belege-field.
        itab-fieldt = ddftx_tab-scrtext_m.

        IF p_noeq IS NOT INITIAL.
          IF itab-ovalue <> itab-nvalue.
            APPEND itab.
          ENDIF.
        ELSE.
          APPEND itab.
        ENDIF.
        CLEAR: itab-field,itab-fieldt,itab-ovalue,itab-nvalue.
      ENDLOOP.
    ENDLOOP.

  ENDLOOP.