CLEAR:S_ORGEH.
DATA: sel_object TYPE objec,
sel_hrobject_tab LIKE hrobject OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'RH_OBJID_REQUEST'
EXPORTING
plvar = '01'
otype = 'O'
seark_begda = sy-datum
seark_endda = sy-datum
set_mode = 'X'
orgbeg = sy-datum
orgend = sy-datum
IMPORTING
sel_object = sel_object
TABLES
sel_hrobject_tab = sel_hrobject_tab
EXCEPTIONS
cancelled = 1
wrong_condition = 2
nothing_found = 3
internal_error = 4
illegal_mode = 5
OTHERS = 6.
IF sy-subrc EQ 0.
LOOP AT sel_hrobject_tab.
S_ORGEH-low = sel_hrobject_tab-objid.
APPEND S_ORGEH.
ENDLOOP.
ENDIF.
