at selection-screen on value-request for p_e_obj.
data: iobjec type objec occurs 0 with header line.

  call function 'RH_OBJID_REQUEST'
       exporting
            mode            = 'X'
            plvar           = '01'
            otype           = 'E'
            set_mode        = ''
            seark_begda     = sy-datum
            seark_endda     = sy-datum

       tables
            sel_objects     = iobjec
       exceptions
            cancelled       = 1
            wrong_condition = 2
            nothing_found   = 3
            illegal_mode    = 4
            internal_error  = 5
            others          = 6.

  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  else.
    read table iobjec index 1.
    p_e_obj = iobjec-objid.
  endif.