ABAP 读取服务器CSV文件到内表

DATA: BEGIN OF gs_data ,
    cola TYPE string,
    colb TYPE string,
    ...
  END OF gs_data,
  gt_data LIKE TABLE OF gs_data.

DATA lv_file LIKE rlgrap-filename VALUE '///'.
DATA lo_csv TYPE REF TO cl_rsda_csv_converter.
DATA lv_cpcodepage TYPE cpcodepage.
DATA lv_csv().
DATA lv_cpcodepage TYPE cpcodepage.

CALL METHOD cl_rsda_csv_converter=>create
*  EXPORTING
*    i_delimiter = C_DEFAULT_DELIMITER
*    i_separator = C_DEFAULT_SEPARATOR
      RECEIVING
        r_r_conv    = lo_csv.
OPEN DATASET lv_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
  IF sy-subrc = .
    DO.
      READ DATASET lv_file INTO lv_csv.
      IF sy-subrc = .
        CLEAR gs_data.
*        去除CSV每一行结尾的换行符#
        CALL FUNCTION 'NLS_GET_FRONTEND_CP'
          EXPORTING
            langu                 = sy-langu
          IMPORTING
            frontend_codepage     = lv_cpcodepage
          EXCEPTIONS
            illegal_syst_codepage =
            no_frontend_cp_found  =
            internal_or_db_error  =
            OTHERS                = .
        CALL FUNCTION 'SCP_REPLACE_STRANGE_CHARS'
          EXPORTING
            intext            = lv_csv
            inter_cp          = lv_cpcodepage
            replacement       =
          IMPORTING
            outtext           = lv_csv
          EXCEPTIONS
            invalid_codepage  =
            codepage_mismatch =
            internal_error    =
            cannot_convert    =
            fields_not_type_c =
            OTHERS            = .
        CALL METHOD lo_csv->csv_to_structure
          EXPORTING
            i_data   = lv_csv
          IMPORTING
            e_s_data = gs_data.
        APPEND gs_data TO gt_data.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.
    CLOSE DATASET lv_file.
  ELSE.
    MESSAGE 'Cannot open file！' TYPE 'E' .