【SAP HCM】获取员工使用过的信息类型

FUNCTION ZHR_GET_PERSON_INFOTYPE.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_PERNR) TYPE  P0000-PERNR
*"  TABLES
*"      OT_PER_INFOCOUNT STRUCTURE  ZHRS_PER_INFO
*"----------------------------------------------------------------------
DATA: LT_T588B TYPE TABLE OF T588B WITH HEADER LINE.
DATA:ls_t777d        TYPE t777d.
DATA:lr_view_records TYPE REF TO data.
  FIELD-SYMBOLS: <ls_main_struc>   TYPE any,
                 <ls_view_struc>   TYPE any,
                 <lv_infty>        TYPE infty,
                 <lt_main_records> TYPE ANY TABLE,
                 <lt_view_records> TYPE ANY TABLE.
    DATA: lv_dbname       TYPE dbtabl.
DATA:LS_PERINFO TYPE ZHRS_PER_INFO.

SELECT * INTO TABLE LT_T588B FROM T588B
WHERE MNTYP = 'I' AND USERG = '28' AND MENUE LE '05'
AND MENUE GE '01'.
SORT LT_T588B BY infty.
DELETE ADJACENT DUPLICATES FROM LT_T588B COMPARING ALL FIELDS.
LOOP AT LT_T588B.
  IF LT_T588B-infty IS NOT INITIAL.
          CALL FUNCTION 'HR_T777D_READ'                          "ANDUNI
               EXPORTING
              infty = LT_T588B-INFTY
               IMPORTING
              t777d = ls_t777d.
lv_dbname = ls_t777d-dbtab.
          CREATE DATA lr_view_records TYPE STANDARD TABLE OF (ls_t777d-ppnnn). 
          ASSIGN lr_view_records->* TO <lt_view_records>.
          SELECT * FROM (lv_dbname) INTO CORRESPONDING FIELDS OF TABLE <lt_view_records>
                                    WHERE pernr EQ IV_PERNR
                                    AND   begda LE '99991231'
                                    AND   endda GE '18000101'
                                    ORDER BY PRIMARY KEY.
IF SY-SUBRC = 0 .
LS_PERINFO-infty = LT_T588B-INFTY.
LS_PERINFO-COUNT = lines( <lt_view_records> ).
APPEND LS_PERINFO  TO  OT_PER_INFOCOUNT.
ENDIF.
ENDIF.
ENDLOOP.
ENDFUNCTION.