Excel Upload and moving the data to dynamic itab

Question

Hi Folks,
I am building a fieldcatalog dynamically based on the table name and then creating a dynamic internal table based on the fieldcatalog.Now I have a excel sheet having the fields in the same structure as the fieldcatalog that I built.I want to upload the data in the excel to an internal table having the structure of the fieldcatalog I built.I am having a problem in moving the data from the excel to the itab (dynamic itab built based on the fieldcatalog)
1.Building the fieldcatalog.
data:gt_fieldcat    TYPE lvc_t_fcat.
  ls_fieldcat-tabname    = p_tabname.
  ls_fieldcat-fieldname  = p_fieldname.  
  ls_fieldcat-inttype    = 'C'.
  ls_fieldcat-outputlen  = wa_dfies-outputlen.   
  ls_fieldcat-coltext    = wa_dfies-fieldtext.
  APPEND: ls_fieldcat TO gt_fieldcat.
  CLEAR : ls_fieldcat.
2.Building the dynamic itab
DATA:gp_table       TYPE REF TO data.
FIELD-SYMBOLS: <gt_table> TYPE table,
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = gt_fieldcat
    IMPORTING
      ep_table        = gp_table.
  ASSIGN gp_table->* TO <gt_table>.
3.Now I have an excel with a similar structure with data.Uploading the excel data into itab.
DATA: g_t_xltab  TYPE STANDARD TABLE OF ty_xltab,
      it_rawdata TYPE truxs_t_text_data,
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
*     I_FIELD_SEPERATOR    =
      i_line_header        = 'X'
      i_tab_raw_data       = it_rawdata
      i_filename           = xls_filename
    TABLES
      i_tab_converted_data = g_t_xltab[]
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  Endif.
*Move the data that got uploaded from excel into
*respective internal tables.
    LOOP AT g_t_xltab
    here I want move the data into an internal table having the structure I built using
    the fieldcatalog/dynamic itab ie    <gt_table>.
    Endloop.
I tried using ASSIGN COMPONENT sy-index of <gt_table> and move-corresponding but in vain as I am not that much familiar with dynamic itab using field symbols.Kindly let me know how the excel data can be moved to dynamic itab.
Thanks,
K.Kiran.

Answer 1

Hi,
you can try some logic like this. Please note this is just an example
TYPE-POOLS:truxs.
TYPES:BEGIN OF ty_xltab,
      field TYPE string,
      END OF ty_xltab.
DATA:wa TYPE ty_xltab.
DATA:lv_len TYPE i.
DATA:startpos TYPE i.
FIELD-SYMBOLS:<fs_line> TYPE mara.
FIELD-SYMBOLS:<fs> TYPE ANY.
DATA: g_t_xltab  TYPE STANDARD TABLE OF ty_xltab,
      it_rawdata TYPE truxs_t_text_data.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
*     I_FIELD_SEPERATOR    =
      i_line_header        = 'X'
      i_tab_raw_data       = it_rawdata
      i_filename           = ' '
    TABLES
      i_tab_converted_data = g_t_xltab[]
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
IF sy-subrc  <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
startpos = 0.
LOOP AT g_t_xltab INTO wa.
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE <fs_line> TO <fs>.
    IF sy-subrc = 0.
      DESCRIBE FIELD <fs> OUTPUT-LENGTH lv_len.
      IF lv_len > 0.
        <fs> = wa-field+startpos(lv_len).
        startpos = startpos + lv_len.
      ENDIF.
    ELSE.
      append <fs_line> to <fs_tab>.
      EXIT.
    ENDIF.
  ENDDO.
ENDLOOP.
Sorry my answer is not for you requirement..Please Ignore.
Your solution can be easily solved by looking at the concept Assign component . Please search
Edited by: Keshav.T on Nov 7, 2011 1:42 PM