[ABAP] HR-Infotypen lesen

DATA: lv_pernr TYPE pa0002-pernr.

SELECT-OPTIONS: s_pernr FOR lv_pernr.
SELECT-OPTIONS: s_date FOR sy-datum.

START-OF-SELECTION .

  DATA: it_p0002 TYPE TABLE OF p0002 WITH DEFAULT KEY.

  CALL FUNCTION 'HR_READ_INFOTYPE'
    EXPORTING
      tclas           = 'A'    " A - Mitarbeiter, B - Bewerber
      pernr           = s_pernr-low
      infty           = '0002' " Infotyp muss mit der Rückgabetabelle für infty_tab korresponieren (z.B. infty = '0002', infty_tab = it_p0002 (TYPE TABLE OF p0002 WITH DEFAULT KEY))
      begda           = s_date-low
      endda           = s_date-high
    TABLES
      infty_tab       = it_p0002
    EXCEPTIONS
      infty_not_found = 1
      OTHERS          = 2.

  IF sy-subrc = 0.
    cl_demo_output=>display( it_p0002 ).
  ENDIF.