F4

F4

*&---------------------------------------------------------------------*
*& Report Z_PF_TEST_F4 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT z_pf_test_f4 .
TYPE-POOLS: abap.
PARAMETERS: p_file TYPE filename.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

PERFORM f4_file
CHANGING
p_file.

START-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form f4_file
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_P_FILE text
*----------------------------------------------------------------------*
FORM f4_file
CHANGING e_file TYPE filename.

* local data-----------------------------------------------------------*

* function body--------------------------------------------------------*

DATA: l_fullpath TYPE string,
l_filename TYPE string,
l_path TYPE string,
l_user_action TYPE i,
l_extension TYPE string,
l_file_filter TYPE string,
l_def_file_name TYPE string,
l_encoding TYPE abap_encoding.
DATA: lt_file TYPE filetable,
ls_file LIKE LINE OF lt_file.
DATA: l_folder TYPE rlgrap-filename,
l_file_pc TYPE string.
DATA: l_rc TYPE i.
* function body--------------------------------------------------------*

* Download via frontend services class
l_path = 'C:\temp'.
l_extension = 'txt'.

CONCATENATE: cl_gui_frontend_services=>filetype_text
cl_gui_frontend_services=>filetype_xml
INTO l_file_filter.

CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title = '???'
default_extension = l_extension
file_filter = l_file_filter
initial_directory = l_path
multiselection = 'X'
CHANGING
file_table = lt_file
rc = l_rc
user_action = l_user_action
file_encoding = l_encoding
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.

IF sy-subrc <> 0.

RETURN.

ENDIF.

IF l_user_action <> cl_gui_frontend_services=>action_ok.

RETURN.

ENDIF.

READ TABLE lt_file INTO ls_file INDEX 1.
e_file = ls_file-filename.

ENDFORM. " f4_file