Code:
.
CALL FUNCTION 'TH_USER_LIST'
TABLES
list = lt_pers
usrlist = lt_perslist
* EXCEPTIONS
* AUTH_MISSSING = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
* CALL FUNCTION 'ZSM_FM_GET_PERNR_BY_UNAME'
* EXPORTING
* it_uname = lv_uname
* IMPORTING
* ET_PERNR = lv_pernr
LOOP AT lt_perslist INTO ls_pers.
lv_uname = ls_pers-bname.
CALL FUNCTION 'RP_GET_PERNR_FROM_USERID'
EXPORTING
begda = sy-datum
endda = sy-datum
usrid = lv_uname
usrty = '0105'
IMPORTING
usr_pernr = lv_pernr
EXCEPTIONS
retcd = 1
OTHERS = 2.
.
ls_pers_tab-pernr = lv_pernr.
ls_pers_tab-uname = ls_pers-bname.
ls_pers_tab-comp = ls_pers-term.
ls_pers_tab-time = ls_pers-zeit.
APPEND ls_pers_tab TO lt_pers_tab.
ENDLOOP.
"check_user
CLEAR ls_pers_tab.
LOOP AT lt_pers_tab INTO ls_pers_tab.
lv_member_pernr = ls_pers_tab-pernr.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
* TCLAS = 'A'
pernr = lv_member_pernr
infty = '9024'
* BEGDA = '18000101'
* ENDDA = '99991231'
* BYPASS_BUFFER = ' '
* LEGACY_MODE = ' '
* IMPORTING
* SUBRC =
TABLES
infty_tab = lt_pa
EXCEPTIONS
infty_not_found = 1
OTHERS = 2
.
LOOP AT lt_pa INTO ls_pa
WHERE zzinvent_num <> ls_pers_tab-comp AND zzcmv = 'Ноутбук'.
ENDLOOP.
IF sy-subrc = 0.
* Implement suitable error handling here
APPEND ls_pers_tab TO mt_outtab.
ENDIF.
ENDLOOP.
ENDMETHOD.
решил вот так