REg Upload of data through Flat file ..... .XLS or .TXT or .CSV

Question

Hi,
I am trying to upload flat file data using the FM GUI_UPLOAD for .TXT file and
FM TEXT_CONVERT_XLS_TO_SAP for .Xls and .csv files
My internal table is as follows
TYPES : BEGIN OF ty_f64,
                 field(255) type c,
              END OF ty_f64.
data : it_f64 type table of ty_f64.
Example Flat file data is as follows
H     20112008     DR     0001     20112008     INR
L     01     61     1000          
L     50     41000     1000          
H     20112008     DR     0001     20112008     INR
L     01     61     1000          
L     50     41000     500          
L     50     41000     400          
L     50     41000     100          
My problem is that only the first field i.e H or L is getting updated into my internal table but I want whole record to be the content in one row
i.e in RUN TIME I see the internal table data as
H
L
L
H
L
L
L
regards
Prasanth

Answer 1

Check the below code
REPORT  ZSRK_073                            .
CLASS CL_ABAP_CHAR_UTILITIES DEFINITION LOAD.
TYPES : BEGIN OF TY_F64,
                 FIELD(255) TYPE C,
              END OF TY_F64.
DATA : IT_F64 TYPE TABLE OF TY_F64,
       WA_F64 TYPE TY_F64.
TYPES : BEGIN OF TY_HEADER,
       RECNO TYPE I,
       INDICATOR,
       BLDAT TYPE BLDAT,
       BLART TYPE BLART,
       BUKRS TYPE BUKRS,
       BUDAT TYPE BUDAT,
       WAERS TYPE WAERS,
       END OF TY_HEADER.
TYPES : BEGIN OF TY_ITEM,
        RECNO TYPE I,
        INDICATOR,
        NEWBS TYPE NEWBS,
        NEWKO TYPE NEWKO,
        WRBTR(16), " TYPE WRBTR,
        END OF TY_ITEM.
TYPES : BEGIN OF TY_TAB,
        F1,
        F2(10),
        F3(17),
        F4(17),
        F5(10),
        F6(5),
        END OF TY_TAB.
DATA : IT_HEADER TYPE TABLE OF TY_HEADER ,
       IT_ITEM TYPE TABLE OF TY_ITEM,
       WA_HEADER TYPE TY_HEADER,
       WA_ITEM TYPE TY_ITEM,
       IT_TAB TYPE TABLE OF TY_TAB,
       WA_TAB TYPE TY_TAB.
DATA : L_REC TYPE I,
       FLAG.
CONSTANTS : C_HTAB TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.
DATA : FNAME TYPE STRING VALUE 'C:\TTT1.xls',
       L_FILE LIKE RLGRAP-FILENAME.
IF FNAME CS '.TXT'.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME = FNAME
      FILETYPE = 'ASC'
    TABLES
      DATA_TAB = IT_F64.
  PERFORM SPLIT_TEXT_TABLE TABLES IT_F64.
ELSEIF FNAME CS '.XLS'.
  L_FILE = FNAME.
  PERFORM UPLOAD_XLSFILE TABLES IT_TAB
                         USING L_FILE.
  PERFORM SPLIT_XLS_TABLE TABLES IT_TAB.
ELSEIF FNAME CS '.CSV' .
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME = FNAME
      FILETYPE = 'ASC'
    TABLES
      DATA_TAB = IT_F64.
  PERFORM SPLIT_CSV_TABLE TABLES IT_F64.
ENDIF.
*&      Form  UPLOAD_XLSFILE
      text
-->  p1        text
<--  p2        text
FORM UPLOAD_XLSFILE TABLES P_TABLE
                    USING P_FILE.
  DATA : L_INTERN TYPE KCDE_CELLS OCCURS 0 WITH HEADER LINE.
  DATA : L_INDEX TYPE I.
  DATA : L_START_COL TYPE I VALUE '1',
         L_START_ROW TYPE I VALUE '1',
         L_END_COL TYPE I VALUE '256',
         L_END_ROW TYPE I VALUE '65536'.
  FIELD-SYMBOLS : <FS>.
  CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      FILENAME                = P_FILE
      I_BEGIN_COL             = L_START_COL
      I_BEGIN_ROW             = L_START_ROW
      I_END_COL               = L_END_COL
      I_END_ROW               = L_END_ROW
    TABLES
      INTERN                  = L_INTERN
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.
  IF SY-SUBRC <> 0.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE : / 'File Error'.
    EXIT.
  ENDIF.
  IF L_INTERN[] IS INITIAL.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE : / 'No Data Uploaded'.
    EXIT.
  ELSE.
    SORT L_INTERN BY ROW COL.
    LOOP AT L_INTERN.
      MOVE L_INTERN-COL TO L_INDEX.
      ASSIGN COMPONENT L_INDEX OF STRUCTURE P_TABLE TO <FS>.
      MOVE L_INTERN-VALUE TO <FS>.
      AT END OF ROW.
        APPEND P_TABLE.
        CLEAR P_TABLE.
      ENDAT.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " UPLOAD_XLSFILE
*&      Form  SPLIT_TEXT_TABLE
      text
     -->P_IT_F64  text
FORM SPLIT_TEXT_TABLE  TABLES   IT_F64 .
  LOOP AT IT_F64 INTO WA_F64.
    IF WA_F64+0(1) = 'H'.
      SPLIT WA_F64 AT C_HTAB INTO      WA_HEADER-INDICATOR
                                       WA_HEADER-BLDAT
                                       WA_HEADER-BLART
                                       WA_HEADER-BUKRS
                                       WA_HEADER-BUDAT
                                       WA_HEADER-WAERS.
      CLEAR FLAG.
      IF FLAG EQ SPACE.
        L_REC = L_REC + 1.
        WA_HEADER-RECNO = L_REC.
        FLAG = 'X'.
      ENDIF.
      APPEND WA_HEADER TO IT_HEADER.
      CLEAR WA_HEADER.
    ELSEIF WA_F64+0(1) = 'L'.
      SPLIT WA_F64 AT C_HTAB INTO    : WA_ITEM-INDICATOR
                                        WA_ITEM-NEWBS
                                        WA_ITEM-NEWKO
                                        WA_ITEM-WRBTR.
      IF FLAG EQ 'X'.
        WA_ITEM-RECNO = L_REC.
      ENDIF.
      APPEND WA_ITEM TO IT_ITEM.
      CLEAR WA_ITEM.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " SPLIT_TEXT_TABLE
*&      Form  SPLIT_xls_TABLE
      text
     -->P_IT_TAB  text
FORM SPLIT_XLS_TABLE  TABLES   IT_TAB .
  LOOP AT IT_TAB INTO WA_TAB.
    IF WA_TAB-F1 = 'H'.
      WA_HEADER-INDICATOR = WA_TAB-F1.
      WA_HEADER-BLDAT = WA_TAB-F2.
      WA_HEADER-BLART = WA_TAB-F3.
      WA_HEADER-BUKRS = WA_TAB-F4.
      WA_HEADER-BUDAT = WA_TAB-F5.
      WA_HEADER-WAERS = WA_TAB-F6.
      CLEAR FLAG.
      IF FLAG EQ SPACE.
        L_REC = L_REC + 1.
        WA_HEADER-RECNO = L_REC.
        FLAG = 'X'.
      ENDIF.
      APPEND WA_HEADER TO IT_HEADER.
      CLEAR WA_HEADER.
    ELSEIF WA_TAB-F1 = 'L'.
      WA_ITEM-INDICATOR = WA_TAB-F1.
      WA_ITEM-NEWBS = WA_TAB-F2.
      WA_ITEM-NEWKO = WA_TAB-F3.
      WA_ITEM-WRBTR = WA_TAB-F4.
      IF FLAG EQ 'X'.
        WA_ITEM-RECNO = L_REC.
      ENDIF.
      APPEND WA_ITEM TO IT_ITEM.
      CLEAR WA_ITEM.
    ENDIF.
    CLEAR WA_TAB.
  ENDLOOP.
ENDFORM.                    " SPLIT_xls_TABLE
*&      Form  SPLIT_CSV_TABLE
      text
     -->P_IT_F64  text
FORM SPLIT_CSV_TABLE  TABLES   IT_F64 .
  LOOP AT IT_F64 INTO WA_F64.
    IF WA_F64+0(1) = 'H'.
      SPLIT WA_F64 AT '|' INTO      WA_HEADER-INDICATOR
                                       WA_HEADER-BLDAT
                                       WA_HEADER-BLART
                                       WA_HEADER-BUKRS
                                       WA_HEADER-BUDAT
                                       WA_HEADER-WAERS.
      CLEAR FLAG.
      IF FLAG EQ SPACE.
        L_REC = L_REC + 1.
        WA_HEADER-RECNO = L_REC.
        FLAG = 'X'.
      ENDIF.
      APPEND WA_HEADER TO IT_HEADER.
      CLEAR WA_HEADER.
    ELSEIF WA_F64+0(1) = 'L'.
      SPLIT WA_F64 AT '|' INTO    : WA_ITEM-INDICATOR
                                        WA_ITEM-NEWBS
                                        WA_ITEM-NEWKO
                                        WA_ITEM-WRBTR.
      IF FLAG EQ 'X'.
        WA_ITEM-RECNO = L_REC.
      ENDIF.
      APPEND WA_ITEM TO IT_ITEM.
      CLEAR WA_ITEM.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " SPLIT_CSV_TABLE