Itab in selbst angelegter Datenbank speichern

Code: Alles auswählen.

REPORT zcsvdaten2 NO STANDARD PAGE HEADING.

DATA: dateiname TYPE string,                       "Erstelle Variable vom Typ String
      dateitabelle TYPE filetable,                 "obligatorisch, 0 zeilige stringtabelle
      anzdat TYPE i,                               "Anzahl der Verarbeiteten Datein (-1 bei abbruch)
      temp TYPE i.




PARAMETER csvdatei TYPE filename OBLIGATORY.      "für die csv Datei


AT SELECTION-SCREEN ON VALUE-REQUEST FOR csvdatei.  "Erlaube F4-Auswahl

  CALL METHOD cl_gui_frontend_services=>file_open_dialog(   "Methode zur Auswahl der csv Datei
    EXPORTING
      window_title            = 'Datei auswählen'         "qol Anzeige
      default_filename        = '*.csv'                   "nur csv Dateien können gewählt werden
      file_filter             = '*.csv'
    CHANGING
      file_table              = dateitabelle        "obligatorisch Changing Parameter bestimmen
      rc                      = anzdat
    EXCEPTIONS                                       "exceptions nummerieren
      file_open_dialog_failed = 1                    "Wenn die Datei nicht geöffnet werden kann
      cntl_error              = 2                    "Kontrollfehler
      error_no_gui            = 3                    "Kein GUI
      not_supported_by_gui    = 4                    "Keine Unerstützung vom GUI
      OTHERS                  = 5 ).                 "anderes abfangen


  IF sy-subrc = 0.                                  "Wenn keine Exception ausgelöst wurde
    READ TABLE dateitabelle INTO csvdatei INDEX 1.  "schreibe Dateitabelle in den Parameter
  ENDIF.


START-OF-SELECTION.

  dateiname = csvdatei.                             "Dateiname wird zur ausgewählten csv Datei

  CALL FUNCTION 'GUI_UPLOAD'                       "Hochladen der Datei
    EXPORTING
      filename = dateiname                         "Die entsprechende Datei auswählen
    TABLES
      data_tab = dateitabelle.                             "Alles in dateitabelle speichern

END-OF-SELECTION.


  DESCRIBE TABLE dateitabelle LINES temp.
  IF temp = 1.
    WRITE: 'Es wurde eine Zeile der Datenbank hinzugefügt'.
  ELSEIF temp > 1.
    WRITE: 'Es wurden ' && temp && ' Zeilen der Datenbank hinzugefügt'.
  ELSE.
    WRITE: 'Fehler bei der Speicherung'.
  ENDIF.

Code: Alles auswählen.

Data: Dateitabelle2 like line of Dateitabelle

"...

  LOOP AT dateitabelle INTO dateitabelle2.
    INSERT INTO yomi VALUES dateitabelle2.  "Yomi ist der Name meiner Datenbank
  ENDLOOP.