if callcontrol-step = 'DISP'.
    data: lv_plvar type objec-plvar,
          re_objec like objec.
    call function 'RH_OBJID_REQUEST'
      exporting
        plvar             = lv_plvar
        otype             = 'S'
        seark_begda       = '20000101'
        seark_endda       = '99991231'
        dynpro_repid      = sy-repid
        dynpro_dynnr      = sy-dynnr
        dynpro_searkfield = 'P0001-PLANS'
      importing
        sel_object        = re_objec
      exceptions
        cancelled         = 1
        wrong_condition   = 2
        nothing_found     = 3
*       illegal_mode      = 4
        internal_error    = 5
        others            = 6.
    refresh record_tab.
    record_tab-string = re_objec-realo.
    append record_tab.
  endif.

*"----------------------------------------------------------------------
* STEP DISP     (Display values)
*"----------------------------------------------------------------------
* This step is called, before the selected data is displayed.
* You can e.g. modify or reduce the data in RECORD_TAB
* according to the users authority.
* If you want to get the standard display dialog afterwards, you
* should not change CALLCONTROL-STEP.
* If you want to overtake the dialog on you own, you must return
* the following values in CALLCONTROL-STEP:
* - "RETURN" if one line was selected. The selected line must be
*   the only record left in RECORD_TAB. The corresponding fields of
*   this line are entered into the screen.
* - "EXIT" if the values request should be aborted
* - "PRESEL" if you want to return to the selection dialog
* Standard function modules F4UT_PARAMETER_VALUE_GET and
* F4UT_PARAMETER_RESULTS_PUT may be very helpfull in this step.
  IF CALLCONTROL-STEP = 'DISP'.
*   PERFORM AUTHORITY_CHECK TABLES RECORD_TAB SHLP_TAB
*                           CHANGING SHLP CALLCONTROL.
    EXIT.
  ENDIF.

CALLCONTROL-STEP = 'RETURN'