ECC 6.0 internal table dump

Question

Hi,
I am passing a database table from selection screen(Eg T001) and build dynamic internal table and get the data from table and put into dynamic internal table.
I am getting dump in below code.
LOOP AT <dyn_table> INTO <dyn_wa>.
   wa_result-line = <dyn_wa>.
   APPEND wa_result TO i_result.
   CLEAR wa_result.
ENDLOOP.
Can anybody please execute the below progra and try to help me to put data into normal internal table i_result from dynamic internal table.
Full points will be given to useful answer.
Thanks in advance for your help.
Thanks and Regards,
Suresh.
REPORT Z_dynamic_internal_table.
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.
TYPES: BEGIN OF t_result,
       line(1024) TYPE c,
      END OF t_result.
DATA: i_result TYPE TABLE OF t_result,
     wa_result TYPE t_result.
DATA: tablename(16) TYPE c.
DATA: cond(80) TYPE c.
PARAMETERS: tabnam(8) TYPE c.
tablename = tabnam.
PERFORM get_structure USING tablename.
PERFORM create_dynamic_itab USING tablename.
PERFORM get_data USING tablename cond.
PERFORM write_out USING tablename.
*&      Form  get_structure
      text
FORM get_structure USING tablename.
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( tablename ).
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.                    "get_structure
*&      Form  create_dynamic_itab
      text
FORM create_dynamic_itab USING tablename.
*----Create dynamic internal table and assign to fs
CALL METHOD cl_alv_table_create=>create_dynamic_table
   EXPORTING
     it_fieldcatalog = ifc
   IMPORTING
     ep_table        = dy_table.
CREATE DATA dy_table TYPE STANDARD TABLE OF (tablename).
ASSIGN dy_table->* TO <dyn_table>.
*----Create dynamic work area and assign to fs
CREATE DATA dy_line TYPE (tablename).
ASSIGN dy_line->* TO <dyn_wa>.
ENDFORM.                    "create_dynamic_itab
*&      Form  get_data
      text
FORM get_data USING tablename cond.
*----Select data from table.           .
SELECT * INTO CORRESPONDING FIELDS OF TABLE <dyn_table>
            FROM (tablename) WHERE (cond).
ENDFORM.                    "get_data
*&      Form  WRITE_OUT
      text
-->  p1        text
<--  p2        text
FORM write_out USING tablename .
LOOP AT <dyn_table> INTO <dyn_wa>.
   wa_result-line = <dyn_wa>.
   APPEND wa_result TO i_result.
   CLEAR wa_result.
ENDLOOP.
ENDFORM.                    " WRITE_OUT

Answer 1

Hi,
       Check the below code, it may be useful.
data:it_grnchk  TYPE TABLE OF ty_grnchk WITH NON-UNIQUE KEY mblnr_i bwart_i.
FIELD-SYMBOLS: <l_table> TYPE  STANDARD TABLE,
                           <l_line>  TYPE ANY,<wa_grn>  TYPE ty_grnchk, <l_field> TYPE ANY,
CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
   I_STYLE_TABLE             =
    it_fieldcatalog           = it_fcat
   I_LENGTH_IN_BYTE          =
  IMPORTING
    EP_TABLE                  = new_table
   E_STYLE_FNAME             =
EXCEPTIONS
   GENERATE_SUBPOOL_DIR_FULL = 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.
ASSIGN new_table->* TO <l_table>.
CREATE DATA new_line LIKE LINE OF <l_table>.
ASSIGN new_line->* TO <l_line>.
ASSIGN new_line->* TO <t_line>.
***********assigning dynamic Internal table  vlaues to normal internal table
LOOP AT <l_table> INTO <l_line>.
         ASSIGN COMPONENT sy-index OF STRUCTURE <l_line> TO <l_field>.
         MOVE-CORRESPONDING <l_field> TO <wa_grn>.
         APPEND <wa_grn> TO it_grnchk.
    ENDLOOP.
IF useful.......................
Regards,
S.Senthil kumar