select-options:
komis for objec-objid no-extension no intervals.

at selection-screen on value-request for komis-low.
  call function 'RH_OBJID_REQUEST_46A'
   exporting
     plvar                   = '01'
     otype                   = 'P'
     seark                   = '*'
*     SEARK_BEGDA             = $LOW_DATE
*     SEARK_ENDDA             = $HIGH_DATE
*     WITHOUT_RSIGN           =
*     WITHOUT_RELAT           =
*     WITHOUT_SCLAS           =
     dynpro_repid            = sy-repid
     dynpro_dynnr            = '1000'
*     DYNPRO_PLVARFIELD       = ' '
*     DYNPRO_OTYPEFIELD       = ' '
*     DYNPRO_SEARKFIELD       = ' '
*     SEARK_OTEXT             = ' '
*     CALLBACK_PROG           = ' '
*     CALLBACK_FORM           = ' '
*     RESTRICT_FB             = ' '
*     RESTRICT_DATA           = ' '
*     LANGU                   = SY-LANGU
*     LANGU_MODE              = ' '
     set_mode                = 'X'
*     SELECT_MESSAGE          = 'X'
*     NO_NEW_ENTRIES          = ' '
*     NO_SEARK_POPUP          = ' '
*     ORGBEG                  = SY-DATUM
*     ORGEND                  = SY-DATUM
*     WIN_TITLE               = ' '
*     APP_DATA                = ' '
*     OM_CALL                 = ' '
   importing
     sel_object              = sel_object
*     SEL_MODE                =
*   TABLES
*     OTYPE_TABLE             =
*     CONDITION               =
*     BASE_OBJECTS            =
*     SEL_OBJECTS             =
*     MARKED_OBJECTS          =
*     F4_LIST                 =
   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.
  endif.
  komis-low = sel_object-objid.

SELECTION-SCREEN BEGIN OF LINE .
  SELECT-OPTIONS: PNPOBJID FOR PERNR-ORGEH NO-DISPLAY.
  SELECTION-SCREEN PUSHBUTTON 1(53) objid USER-COMMAND clik  .
SELECTION-SCREEN END OF LINE.

INITIALIZATION.
AT SELECTION-SCREEN .

    CASE sscrfields.
      WHEN 'CLIK'.
       CALL FUNCTION 'RP_PNP_ORGSTRUCTURE'
         EXPORTING
            begda  = endDT
            endda  = ENDDT
         TABLES
            pobjid = pnpobjid.
    ENDCASE.

AT SELECTION-SCREEN OUTPUT.