types kpp_intern_40 type standard table of kpp_intern_40_struc
заменить на
types kpp_intern_40 type hashed table of kpp_intern_40_struc .
а в свою очередь
data:i_intern    TYPE hashed table of kpp_intern_40_struc
with unique key  row  col.

FORM separated_to_intern_convert TABLES i_tab TYPE 
kcdu_srecs
                      >>>   i_intern    TYPE kpp_intern_40
      Заменить на i_intern   
                                 USING  i_separator TYPE c.

  DATA: l_sic_tabix TYPE sy-tabix,
        l_sic_col   TYPE kcdehead-col,
        l_fdpos     TYPE sy-fdpos,
        ls_tab      LIKE LINE OF i_tab,
        ls_intern   LIKE LINE OF i_intern.

  REFRESH i_intern.

  LOOP AT i_tab INTO ls_tab.
    l_sic_tabix = sy-tabix.
    l_sic_col = 0.
    WHILE ls_tab CA i_separator.
      l_fdpos = sy-fdpos.
      l_sic_col = l_sic_col + 1.
      PERFORM line_to_cell_separat TABLES i_intern
                                   USING  ls_tab l_sic_tabix l_sic_col
                                          i_separator l_fdpos.
    ENDWHILE.
    IF ls_tab <> space.
      CLEAR ls_intern.
      ls_intern-row = l_sic_tabix.
      ls_intern-col = l_sic_col + 1.
      ls_intern-value = ls_tab.
      APPEND ls_intern TO i_intern.
      Заменить на
      Insert ls_intern To table i_intern.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "SEPARATED_TO_INTERN_CONVERT

FORM line_to_cell_separat TABLES i_intern    TYPE kpp_intern_40
                          USING  i_line      TYPE ANY
                                 i_row       TYPE sy-tabix
                                 ch_cell_col TYPE kcdehead-col
                                 i_separator TYPE c
                                 i_fdpos     TYPE sy-fdpos.

  DATA: l_string  TYPE kcde_sender_struc,
        l_sic_int TYPE i,
        ls_intern LIKE LINE OF i_intern.

  CLEAR ls_intern.
  l_sic_int = i_fdpos.
  ls_intern-row = i_row.
  l_string = i_line.
  ls_intern-col = ch_cell_col.
* csv Dateien mit separator in Zelle: --> ;"abc;cd";
  IF ( i_separator = ';' OR  i_separator = ',' ) AND
       l_string(1) = c_esc.
    PERFORM line_to_cell_esc_sep USING l_string
                                       l_sic_int
                                       i_separator
                                       ls_intern-value.
  ELSE.
    IF l_sic_int > 0.
      ls_intern-value = i_line(l_sic_int).
    ENDIF.
  ENDIF.
  IF l_sic_int > 0.
    APPEND ls_intern TO i_intern.
  ENDIF.
  l_sic_int = l_sic_int + 1.
  i_line = i_line+l_sic_int.
ENDFORM.                    "LINE_TO_CELL_SEPARAT