venerdì 21 ottobre 2016

Leggere un file CSV

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
TYPES: BEGIN OF kcde_intern_struc.
         INCLUDE STRUCTURE kcde_cells.
TYPES: END OF kcde_intern_struc.
TYPES: kcde_intern TYPE kcde_intern_struc OCCURS 0.

DATA: gt_input    TYPE kcde_intern,
      gs_input    LIKE LINE OF gt_input.

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
PARAMETERS: pa_flcl TYPE localfile.

*----------------------------------------------------------------------*
* PROGRAM BODY                                                         *
*----------------------------------------------------------------------*
START-OF-SELECTION.

  CALL FUNCTION 'KCD_CSV_FILE_TO_INTERN_CONVERT'
    EXPORTING
      i_filename      = pa_flcl
      i_separator     = ';'
    TABLES
      e_intern        = gt_input
    EXCEPTIONS
      upload_csv      = 1
      upload_filetype = 2
      OTHERS          = 3.

Nessun commento: