PARAMETERS : p_filenm LIKE ibipparms-path OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_filenm.
DATA: lv_canceled TYPE boolean.
DATA: lv_file_name TYPE string.
TRY.
cl_rsan_ut_files=>f4( EXPORTING
i_applserv = abap_true " Dateiauswahl vom Appl.-Server holen, sonst GUI
i_title = 'Dateiauswahl auf dem Applikationsserver'
i_gui_extension = ''
i_gui_ext_filter = ''
i_applserv_logical = abap_false
i_applserv_al11 = abap_true
IMPORTING
e_canceled = lv_canceled
CHANGING
c_file_name = lv_file_name ).
IF lv_canceled NE abap_true.
p_filenm = lv_file_name.
ENDIF.
CATCH cx_root INTO DATA(e_text).
MESSAGE e_text->get_text( ) TYPE 'I'.
ENDTRY.