Upload CSV Files Into Internal Table

REPORT  ZRRSAMPLE.

TYPES: BEGIN OF ttab,
  rec(1000) TYPE c,
END OF ttab.

TYPES: BEGIN OF tdat,
  fld1(10) TYPE c,
  fld2(10) TYPE c,
  fld3(10) TYPE c,
END OF tdat.

DATA: itab TYPE TABLE OF ttab WITH HEADER LINE.
DATA: idat TYPE TABLE OF tdat WITH HEADER LINE.

DATA: file_str TYPE string.

PARAMETERS: p_file TYPE localfile.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      static    = 'X'
    CHANGING
      file_name = p_file.

START-OF-SELECTION.

  file_str = p_file.

  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = file_str
    TABLES
      data_tab                = itab
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.


  LOOP AT itab.

    CLEAR idat.
    SPLIT itab-rec AT ',' INTO idat-fld1
    idat-fld2
    idat-fld3.
    APPEND idat.

  ENDLOOP.


  LOOP AT idat.

    WRITE:/ idat-fld1, idat-fld2, idat-fld3.

  ENDLOOP.