Error in field symbol

Question

Hi all,
i'm converting a field symbol table to internat table, where field symbol table structure is defined at runtime. for that i'm using
call method cl_alv_table_create=>create_dynamic_table
               exporting
                  it_fieldcatalog = ifc1
               importing
                  ep_table        = dy_table.
  assign dy_table->* to <dyn_table>.
  create data dy_line like line of <dyn_table>.
  assign dy_line->* to <dyn_wa>.
  LOOP AT <dyn_table> ASSIGNING <dyn_wa>.
  MOVE-CORRESPONDING <dyn_wa> TO dy_line.
  INSERT dy_line INTO TABLE dy_table.
  endloop.
where
data: dy_table type ref to data,
      dy_line  type ref to data,
But in execution time it show a error that dy_table is not a internal table.
pls give me ur suggestions.

Answer 1

Hi Ravish,
pls find yhe code, it;s throwing a error that dyn_table is not a internal table.
TABLES : SFLIGHT.
type-pools : abap.
field-symbols: <dyn_table> type standard table ,
               <dyn_wa>,
               <dyn_field>.
data: dy_table type ref to data,
      dy_line  type ref to data,
      xfc type lvc_s_fcat,
      ifc type lvc_t_fcat,
      IFC1 TYPE LVC_T_FCAT.
selection-screen begin of block b1 with frame.
parameters: p_table(30) type c default 'SFLIGHT'.
*FIELD-SYMBOLS <F> TYPE table p_table.
data : field(10) type c.
SELECT-OPTIONS : P_FIELD  FOR field.
selection-screen end of block b1.
start-of-selection.
  perform get_structure.
  perform get_selected_field.
  perform create_dynamic_itab.
  perform get_data.
  perform write_out.
form get_structure.
data : idetails type abap_compdescr_tab,
       xdetails type abap_compdescr.
data : ref_table_des type ref to cl_abap_structdescr.
  ref_table_des ?=
      cl_abap_typedescr=>describe_by_name( p_table ).
  idetails[] = ref_table_des->components[].
  loop at idetails into xdetails.
    clear xfc.
    xfc-fieldname = xdetails-name .
    xfc-datatype = xdetails-type_kind.
    xfc-inttype = xdetails-type_kind.
    xfc-intlen = xdetails-length.
    xfc-decimals = xdetails-decimals.
    append xfc to ifc.
  endloop.
endform.
form get_selected_field.
data: wa like line of ifc.
loop at ifc into wa.
if wa-fieldname in p_field.
append wa to ifc1.
endif.
sy-index = sy-index + 1.
endloop.
if ifc1 is initial .
MESSAGE e000 WITH 'This field is not available in table'.
endif.
endform.
form create_dynamic_itab.
  call method cl_alv_table_create=>create_dynamic_table
               exporting
                  it_fieldcatalog = ifc1
               importing
                  ep_table        = dy_table.
  assign dy_table->* to <dyn_table>.
  create data dy_line like line of <dyn_table>.
  assign dy_line->* to <dyn_wa>.
endform.
form get_data.
SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table>
FROM (p_table) UP TO 20 ROWS.
endform.
form write_out.
Write out data from table.
  loop at <dyn_table> into <dyn_wa>.
    do.
      assign component  sy-index
         of structure <dyn_wa> to <dyn_field>.
      if sy-subrc <> 0.
        exit.
      endif.
      if sy-index = 1.
        write:/ <dyn_field>.
      else.
        write: <dyn_field>.
      endif.
    enddo.
code for convert field symbol internal table to internal table.
  LOOP AT <dyn_table> ASSIGNING <dyn_wa>.
  MOVE-CORRESPONDING <dyn_wa> TO dy_line.
  INSERT dy_line INTO TABLE dy_table.                    <----
  Error point
  endloop.
  endform.