.
    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.