SELECT SINGLE pernr INTO l_pernr  FROM PA0001 WHERE plans = 12345678 and begda <=sy-datum and endda >= sy-datum.
    CALL FUNCTION HR_READ_INFOTYPE
        ......

    SELECT a~begda a~endda a~nachn a~vorna a~midnm INTO TABLE lt_data FROM PA0001 as b JOIN PA0002  as a  ON a~pernr = b~pernr WHERE b~plans = 12345678 and  b~begda <=sy-datum and b~endda >= sy-datum.
    DELETE lt_data WHERE endda < sy-datum or begda > sy-datum.

CALL FUNCTION 'RH_STRUC_GET'
          EXPORTING
            act_otype  = 'S'
            act_objid  = '500000038'
            act_wegid  = 'A008'
            act_endda  = sy-datum
          TABLES
            result_tab = lt_rmp_pernr.

        READ TABLE lt_rmp_pernr INTO ls_rmp_pernr INDEX 1.
        CHECK sy-subrc = 0.

        call FUNCTION 'HR_READ_INFOTYPE'
          EXPORTING
            pernr     = ls_rmp_pernr-OBJID
            infty     = '0002'
            begda     = sy-datum
            endda     = sy-datum
          TABLES
            infty_tab = lt_p0002.

        READ TABLE lt_p0002 INTO ls_p0002 INDEX 1.
        CHECK sy-subrc = 0.

        concatenate ls_p0002-NACHN  ls_p0002-VORNA  ls_p0002-MIDNM into ls_entity-FIO SEPARATED BY space.