为parameter 设置F4搜索帮助，选择文件下载路径

DATA: new_path      TYPE string,
      repid         TYPE syrepid,
      dynnr         TYPE sydynnr,
      lt_dynpfields TYPE TABLE OF dynpread,
      ls_dynpfields LIKE LINE OF lt_dynpfields.

PARAMETERS p_file  TYPE string  OBLIGATORY LOWER CASE . 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

* Get current value
    dynnr = sy-dynnr.
    repid = sy-repid.
    ls_dynpfields-fieldname = 'P_FILE'.
    APPEND ls_dynpfields TO lt_dynpfields.

    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        dyname               = repid
        dynumb               = dynnr
      TABLES
        dynpfields           = lt_dynpfields
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield  = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription  = 6
        invalid_parameter    = 7
        undefind_error       = 8
        double_conversion    = 9
        stepl_not_found      = 10
        OTHERS               = 11.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      EXIT.
    ENDIF.

    READ TABLE lt_dynpfields INTO ls_dynpfields INDEX 1.

    new_path = ls_dynpfields-fieldvalue.
    p_file = new_path.

    cl_gui_frontend_services=>directory_browse(
      EXPORTING
        window_title         = '选择下载EXCEL文件夹目录'
        initial_folder       = new_path
      CHANGING
        selected_folder      = new_path
      EXCEPTIONS
        cntl_error           = 1
        error_no_gui         = 2
        not_supported_by_gui = 3
        OTHERS               = 4
           ).
    cl_gui_cfw=>flush( ).
    CHECK new_path IS NOT INITIAL.
    p_file = new_path.