at selection-screen on value-request for p_objid.
perform f_help_objid_single using 'S' '' '' '' 'P_OBJID' 'F_AUTHORITY_CHECK'.
form f_help_objid_single using i_otype
i_rsign
i_relat
i_sclas
i_fieldname
i_form.
data: lw_objec type objec.
field-symbols: <fs_field> type any.
call function 'RH_OBJID_REQUEST'
exporting
plvar = '01'
otype = i_otype
seark_begda = sy-datum
seark_endda = sy-datum
dynpro_repid = sy-repid
dynpro_dynnr = sy-dynnr
callback_prog = sy-repid