HR开发 获取信息类型数据

TABLES: PERNR .
INFOTYPES: 0000, 0001 .

START-OF-SELECTION.

GET PERNR .
    LOOP AT P0000 WHERE ...
        ...
    ENDLOOP.
    LOOP AT P0001 WHERE ...
        ...
    ENDLOOP.

TABLES: PERNR, T001P.
INFOTYPES: 0000, 0001 .

GET PERNR .
  RP_PROVIDE_FROM_FRST P0000 SPACE PN-BEGDA PN-ENDDA.
  IF PNP-SW-FOUND = 1.
    
  ENDIF.
  
  RP_PROVIDE_FROM_FRST P0001 SPACE PN-BEGDA PN-ENDDA.
  RP-READ-T001P P0001-WERKS P0001-BTRTL SPACE.
  WRITE T001P-BTEXT.

INFOTYPES: 0000, 0001 .
DATA RETURN LIKE SY-SUBRC.

CALL FUNCTION ‘HR_READ_INFOTYPE‘
  EXPORTING
*   TCLAS                 = ‘A‘
    PERNR                 = PERNR
    INFTY                 = ‘0000‘
*   BEGDA                 = ‘18000101‘
*   ENDDA                 = ‘99991231‘
*   BYPASS_BUFFER         = ‘ ‘
*   LEGACY_MODE           = ‘ ‘
  IMPORTING
    SUBRC                 = RETURN
  TABLES
    INFTY_TAB             = P0000
  EXCEPTIONS
    INFTY_NOT_FOUND       = 1
    OTHERS                = 2
          .

获取雇佣日期

INFOTYPES: 0000 .
DATA GV_HDATE TYPE SY-DATUM.

CALL FUNCTION ‘RP_GET_HIRE_DATE‘
  EXPORTING
    PERSNR                = PERNR
    CHECK_INFOTYPES       = ‘0000‘
*   DATUMSART             = ‘01‘
*   STATUS2               = ‘3‘
*   P0016_OPTIONEN        = ‘ ‘
  IMPORTING
    HIREDATE              = GV_HDATE
          .