загрузка файла

PARAMETERS: p_file TYPE rlgrap-filename.
PARAMETERS: sap_file(250) TYPE c.
 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      field_name = 'P_FILE'
    IMPORTING
      file_name  = p_file.
 
START-OF-SELECTION.
 
  TYPES: BEGIN OF txt_line,
           data(8192) TYPE c,
         END OF txt_line.
 
  DATA: txt_table      TYPE TABLE OF txt_line WITH HEADER LINE,
        txt_tablesize  TYPE i.
  DATA: s_file TYPE string.
 
  s_file = p_file.
 
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename     = s_file
      filetype     = 'ASC'
      read_by_line = 'X'
    IMPORTING
      filelength   = txt_tablesize
    TABLES
      data_tab     = txt_table
    EXCEPTIONS
      OTHERS       = 11.
 
  OPEN DATASET sap_file FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
  LOOP AT txt_table .
    TRANSFER txt_table TO sap_file.
  ENDLOOP.
  CLOSE DATASET sap_file.