test

FUNCTION Z_INFOTYPE_9912.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  TABLES
*"      IM_PERNRS_SELOPT STRUCTURE  SELOPT
*"      EX_TAB_INFTY STRUCTURE  P9912
*"----------------------------------------------------------------------

TYPES :
  BEGIN OF t_pernr,
    pernr TYPE pernr-pernr,
  END OF t_pernr.

* Create Internal table & work Area

  DATA it_pernr TYPE TABLE OF t_pernr.
  DATA wa_pernr TYPE t_pernr.
  DATA tm_tab_infty LIKE TABLE OF ex_tab_infty WITH HEADER LINE.


  SELECT DISTINCT pernr
    FROM pa9912
    INTO CORRESPONDING FIELDS OF TABLE it_pernr
    WHERE pernr IN im_pernrs_selopt.


* Loop through all the personnal no to get the complete info.
  LOOP AT it_pernr INTO wa_pernr.

    CALL FUNCTION 'HR_READ_INFOTYPE'
      EXPORTING
*       TCLAS                 = 'A'
        PERNR                 = wa_pernr-pernr
        INFTY                 = '9912'
*       BEGDA                 = '18000101'
*       ENDDA                 = '99991231'
*       BYPASS_BUFFER         = ' '
*       LEGACY_MODE           = ' '
*     IMPORTING
*       SUBRC                 =
      TABLES
        INFTY_TAB             = tm_tab_infty
*     EXCEPTIONS
*       INFTY_NOT_FOUND       = 1
*       OTHERS                = 2
              .
    IF SY-SUBRC <> 0.
* Implement suitable error handling here
    ENDIF.

* Add the data got to the temp table then clear it.
 APPEND LINES OF tm_tab_infty TO ex_tab_infty.
 CLEAR tm_tab_infty[].

 ENDLOOP.



ENDFUNCTION.