DATA:
          lw_appraiser       TYPE hrhap_apper
          ,lw_couch TYPE hrhap_others
          ,lw_actor           TYPE swhactor
          , test_objid TYPE p1001-objid.

  DATA: lt_1001  TYPE TABLE OF p1001,
        lw_1001  TYPE  p1001,
        lv_pernr TYPE prelp-pernr.


  FIELD-SYMBOLS: <fs_cont> TYPE swcont.

  READ TABLE ac_container ASSIGNING <fs_cont> WITH KEY element = 'TEST_OBJID'.
  test_objid = <fs_cont>-value.


  CALL FUNCTION 'RH_READ_INFTY_1001'
    EXPORTING
      plvar            = '01'
      otype            = 'S'
      objid            = test_objid
      istat            = '1'
      begda            = '19000101'
      endda            = '99991231'
    TABLES
      i1001            = lt_1001
*     OBJECTS          =
    EXCEPTIONS
      nothing_found    = 1
      wrong_condition  = 2
      wrong_parameters = 3
      OTHERS           = 4.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
  IF lt_1001 IS NOT INITIAL.
    LOOP AT lt_1001 INTO lw_1001 WHERE relat = 'ZZ1'.

      lv_pernr = lw_1001-sobid.

      CLEAR lw_actor.
      lw_actor-otype = 'US'.
      lw_actor-objid = zcl_demo_utility=>get_userid( lv_pernr = lv_pernr ).
      APPEND lw_actor TO actor_tab.
    ENDLOOP.
  ENDIF.