SELECT PERNR ENAME ORGEH
  FROM PA0001
  INTO TABLE GT_EMP
 WHERE BEGDA <= P_DATE
   AND ENDDA >= P_DATE.

LOOP AT GT_RT INTO GS_RT.
  CASE GS_RT-LGART.
    WHEN '/101'.
      GS_OUT-GROSS = GS_RT-BETRG.
  ENDCASE.
ENDLOOP.

CALL FUNCTION 'HR_READ_INFOTYPE'
  EXPORTING
    PERNR = GV_PERNR
    INFTY = '0008'
  TABLES
    INFTY_TAB = GT_P0008.

CALL TRANSACTION 'PA30'
  USING GT_BDC
  MODE 'N'
  MESSAGES INTO GT_MSG.

GET PERNR.
  PROVIDE * FROM P0001
    BETWEEN PN-BEGDA AND PN-ENDDA.
  ENDPROVIDE.

READ TABLE GT_T512T INTO GS_T512T
  WITH KEY LGART = GS_RT-LGART
  BINARY SEARCH.
IF SY-SUBRC = 0.
ENDIF.

SELECT-OPTIONS S_PERNR FOR PERNR-PERNR.
PARAMETERS P_ABKRS TYPE ABKRS.
START-OF-SELECTION.
  PERFORM GET_DATA.

FORM BDC_FIELD USING PV_FNAM PV_FVAL.
  GS_BDC-FNAM = PV_FNAM.
  GS_BDC-FVAL = PV_FVAL.
  APPEND GS_BDC TO GT_BDC.
ENDFORM.