Search help for filename+path

Question

Hello,
When i need to get a file name and its path , i use the f.m. "WS_FILENAME_GET" that popup an explorer window.
I'm looking for a search help that do the same, so i can link it to a data element .
Thank you,
koby

Answer 1

Hi Keshav,
I built it!
I made a search help with function-exit.
How do i publish it as a wiki?
The function-exit is:
FUNCTION yf4if_shlp_exit_filepath.
""Local interface:
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCT
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     VALUE(SHLP) TYPE  SHLP_DESCR
*"     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
EXIT immediately, if you do not want to handle this step
  IF callcontrol-step <> 'SELONE' AND
     callcontrol-step <> 'SELECT' AND
     " AND SO ON
     callcontrol-step <> 'DISP'.
    EXIT.
  ENDIF.
STEP SELONE  (Select one of the elementary searchhelps)
This step is only called for collective searchhelps. It may be used
to reduce the amount of elementary searchhelps given in SHLP_TAB.
The compound searchhelp is given in SHLP.
If you do not change CALLCONTROL-STEP, the next step is the
dialog, to select one of the elementary searchhelps.
If you want to skip this dialog, you have to return the selected
elementary searchhelp in SHLP and to change CALLCONTROL-STEP to
either to 'PRESEL' or to 'SELECT'.
  IF callcontrol-step = 'SELONE'.
  PERFORM SELONE .........
    EXIT.
  ENDIF.
STEP PRESEL  (Enter selection conditions)
This step allows you, to influence the selection conditions either
before they are displayed or in order to skip the dialog completely.
If you want to skip the dialog, you should change CALLCONTROL-STEP
to 'SELECT'.
Normaly only SHLP-SELOPT should be changed in this step.
  IF callcontrol-step = 'PRESEL'.
  PERFORM PRESEL ..........
    callcontrol-step = 'SELECT'.
    EXIT.
  ENDIF.
STEP SELECT    (Select values)
This step may be used to overtake the data selection completely.
To skip the standard seletion, you should return 'DISP' as following
step in CALLCONTROL-STEP.
Normally RECORD_TAB should be filled after this step.
Standard function module F4UT_RESULTS_MAP may be very helpfull in this
step.
  IF callcontrol-step = 'SELECT'.
    callcontrol-step = 'DISP'.
   EXIT. "Don't process STEP DISP additionally in this call.
  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.
    TYPE-POOLS  shlp.
    DATA : i_parameter TYPE     shlpfield,
           i_shlp_tab     TYPE      shlp_descr_tab_t  ,
           i_record_tab     TYPE TABLE OF seahlpres  WITH HEADER LINE   ,
           i_shlp     TYPE     TABLE OF shlp_descr_t WITH HEADER LINE,
    i_callcontrol     TYPE TABLE OF      ddshf4ctrl WITH HEADER LINE.
    DATA: gt_filetab TYPE filetable,
          gs_file TYPE file_table,
          gv_rc TYPE i.
    DATA : l_filename TYPE TABLE OF LINKLINE.
    CALL METHOD cl_gui_frontend_services=>file_open_dialog
      EXPORTING
        multiselection = space
      CHANGING
        file_table     = gt_filetab
        rc             = gv_rc.
    LOOP AT gt_filetab INTO gs_file.
    ENDLOOP.
    APPEND gs_file-filename TO l_filename.
    record_tab[] = l_filename[].
    CALL FUNCTION 'F4UT_PARAMETER_RESULTS_PUT'
      EXPORTING
        parameter         = 'FILENAME'
      TABLES
        shlp_tab          = shlp_tab
        record_tab        = record_tab
      CHANGING
        shlp              = shlp
        callcontrol       = callcontrol
      EXCEPTIONS
        parameter_unknown = 1
        OTHERS            = 2.
    IF sy-subrc <> 0.
    ENDIF.
    callcontrol-step = 'RETURN'.
    EXIT.
  ENDIF.
ENDFUNCTION.