DATA: zresult TYPE swhactor OCCURS 0 WITH HEADER LINE.
      data: tmpobjec type objec  OCCURS 0 WITH HEADER LINE.
      data: tmpstruc type struc OCCURS 0 WITH HEADER LINE.
      CALL FUNCTION 'RH_STRUC_GET'
        EXPORTING
          act_otype              = 'O'
          act_objid              = zobjec-objid
          act_wegid              = 'bossonly'
*          ACT_INT_FLAG           = 1
*          act_plvar              = '01'
          act_begda              = zbegda
          act_endda              = zbegda
*    ACT_TDEPTH             = 0
*    ACT_TFLAG              = 'X'
*    ACT_VFLAG              = 'X'
*    AUTHORITY_CHECK        = 'X'
*    TEXT_BUFFER_FILL       = 'X'
*    BUFFER_MODE            = 'F'
*  IMPORTING
*    ACT_PLVAR              =
        TABLES
          result_tab             = zresult
    RESULT_OBJEC           = tmpobjec
    RESULT_STRUC           = tmpstruc
        EXCEPTIONS
         no_plvar_found         = 1
         no_entry_found         = 2
         OTHERS                 = 3
                .
*     IF sy-subrc <> 0.
*
*     ENDIF.
      LOOP AT zresult WHERE otype = 'P'.
        MOVE zresult-objid TO zsap_division-spe_tab.
        EXIT.
      ENDLOOP.

      SELECT SINGLE * FROM t778a CLIENT SPECIFIED        "#EC CI_CLIENT
                                 WHERE mandt  EQ rhas_client
                                   AND wegid EQ cw_wegid.