Internal table to field symbol

Question

hi all,
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.
*data : dyn_itab2 type ANY table.
selection-screen begin of block b1 with frame.
parameters: p_table(30) type c.
selection-screen end of block b1.
start-of-selection.
BREAK-POINT.
perform get_structure.
perform create_dynamic_itab.
perform get_data.
PERFORM OUTPUT.
*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.
Get the structure of the table.
ref_table_des ?=
cl_abap_typedescr=>describe_by_name( p_table ).
idetails = ref_table_des->components.
*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 create_dynamic_itab.
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.
here i want  to assighn the structure of dy_table to internal atble.
assign dy_table->* to <dyn_table>.
Create dynamic work area and assign to FS
create data dy_line like line of <dyn_table>.
assign dy_line->* to <dyn_wa>.
endform.
form get_data.
Select Data from table.
select * into table <dyN_table> UP TO 10 ROWS
from (p_table).
endform.
Write out data from table.
FORM OUTPUT.
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.
endloop.
ENDFORM.
how can i achieve this one.
regards
siva

Answer 1

Hi,
Check this Code ...
LOOP AT <dyn_table> INTO <dyn_wa>.
    DO.
      ASSIGN COMPONENT sy-index
      OF STRUCTURE <dyn_wa> TO <fs_field> .
      IF sy-subrc NE 0.
        EXIT.
      ENDIF.
      IF sy-index = 1.
        WRITE:/ <fs_field>.
      ELSE.
        WRITE: <fs_field>.
      ENDIF.
    ENDDO.
  ENDLOOP.
For reference check below code
DATA: it_fieldcat        TYPE lvc_t_fcat                         . " Field catalog
DATA: wa_fieldcat  LIKE LINE OF it_fieldcat. " Field catalog
DATA: it_dyn_table      TYPE REF TO data,     " Dynamic table
      it_wa_dyn_table   TYPE REF TO data.     " Dynamic table
*       Field sysmbols           Begin with <fs>                      *
FIELD-SYMBOLS:  <fs_dyn_table>       TYPE STANDARD TABLE, " Dynamic tbale
                <fs_dyn_table_temp>  TYPE ANY           , " Dynamic tbale
                <fs_field>           TYPE ANY           , " Temp field for data assignment
                <fs_field_temp>      TYPE ANY           . " Temp field for data assignment
*       Macro                                                         *
* Macro Defination
* Building field catalog using macro defination
DEFINE m_fieldcat.
  wa_fieldcat-fieldname   = &1.
  wa_fieldcat-scrtext_l   = &2.
  wa_fieldcat-coltext     = &2.
  wa_fieldcat-no_zero     = &3.
  wa_fieldcat-hotspot     = &4.
  wa_fieldcat-outputlen   = &5.
  wa_fieldcat-emphasize   = &6.
* Appending workarea to internal table
  append wa_fieldcat to it_fieldcat.
  clear wa_fieldcat.
END-OF-DEFINITION.
*&      Form  f005_prepare_field_catalog
*       text
form f005_prepare_field_catalog .
  REFRESH: it_fieldcat.
* Build the field catalog
  m_fieldcat text-007 text-008 c_blank  c_blank c_30 c_blank.
  m_fieldcat text-009 text-010 c_blank  c_blank c_30 c_blank.
  SORT it_final_temp BY equnr point.
  SORT it_final BY equnr point psort idate.
  w_date1 = so_date-low.
* Loop to generate grid column at run time
* Loop - Till the lower date not equal to higer date
  WHILE so_date-high GE w_date1.
* Changing date into actual date format using edit mask
    WRITE w_date1 TO w_var4 USING EDIT MASK '__-__-____'.
    m_fieldcat w_var4 w_var4 c_flag c_blank c_12 c_blank.
    w_date1 = w_date1 + c_count.
    CLEAR w_var4.
  ENDWHILE.
*&      Form  f007_create_dynamic_table
*       text: Create dynamic table
form f007_create_dynamic_table .
* Call method to create dynamic internal table
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_fieldcat
    IMPORTING
      ep_table                  = it_dyn_table
    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.
  SORT it_final_temp BY equnr point.
  SORT it_final BY equnr point psort idate.
  ASSIGN it_dyn_table->* TO <fs_dyn_table>.
  CREATE DATA it_wa_dyn_table LIKE LINE OF <fs_dyn_table>.
  ASSIGN it_wa_dyn_table->* TO <fs_dyn_table_temp>.
  IF it_final_temp IS NOT INITIAL.
    LOOP AT it_final_temp INTO wa_final_temp.
* Assign equipment number and it's field data to field symbols (Dynamic table)
* Assign field name to field symbol
      ASSIGN text-007 TO <fs_field_temp>.
* Assign component name and it's value to dynamic table
      ASSIGN COMPONENT <fs_field_temp> OF STRUCTURE <fs_dyn_table_temp> TO <fs_field>.
* Assign equipment number value to field symbol
      <fs_field> = wa_final_temp-equnr.
* Assign Short Description and it's field data to field symbols (Dynamic table)
* Assign field name to field symbol
      ASSIGN text-009 TO <fs_field_temp>.
* Assign component name and it's value to dynamic table
      ASSIGN COMPONENT <fs_field_temp> OF STRUCTURE <fs_dyn_table_temp> TO <fs_field>.
* Assign short description value to field symbol
      <fs_field> = wa_final_temp-psort.
* Loop to assign value of run time generated column.
      IF it_final IS NOT INITIAL.
        LOOP AT it_final INTO wa_final WHERE equnr = wa_final_temp-equnr
                                        AND point = wa_final_temp-point.
          w_date1 = wa_final-idate.
          WRITE w_date1 TO w_var4 USING EDIT MASK '__-__-____'.
          ASSIGN w_var4 TO <fs_field_temp>.
          ASSIGN COMPONENT <fs_field_temp> OF STRUCTURE <fs_dyn_table_temp> TO <fs_field>.
          <fs_field> = wa_final-cdiff.
          CLEAR: wa_final, w_var4, w_date1.
        ENDLOOP.
      ENDIF.
      CLEAR: wa_final_temp.
* Assign field symbol temporary table to final dynamic table
      APPEND <fs_dyn_table_temp> TO <fs_dyn_table>.
      CLEAR: <fs_dyn_table_temp>.
    ENDLOOP.
  ENDIF.
endform.                    " f007_create_dynamic_table