Assigning fields(data) to field symbos of table

Question

Hi All,
  Though there is lot of material available on the concept of field symbols I could not apply the logic of it to my problem. Hence posting this query.
I am creating dynamic internal table and want to populate that internal table with other itab.
i have created Field symbols now how to populate the part of the other itab to field symbols which
points to other itab.
My code is like
data : p_intab LIKE dfies-tabname .
data : begin of wbs occurs 0,
     wbs type c,
        objnr type proj-objnr,
       end of wbs.
FIELD-SYMBOLS :
  <fs_tab> LIKE LINE OF tab_info,
Output Structure****
  <it_disptab> TYPE table .
p_intab = fieldcatalog.
    ASSIGN p_intab TO <fs_tab>-tabname .
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
         EXPORTING
              i_structure_name = <fs_tab>-tabname
         CHANGING
              ct_fieldcat      = it_grid_fcat.
*Creating internal table
    CALL METHOD cl_alv_table_create=>create_dynamic_table
       EXPORTING
           it_fieldcatalog           = it_grid_fcat
       IMPORTING
           ep_table                  = dref.
    ASSIGN  dref->* TO <it_disptab>.
    PERFORM populate_grid_data .
  CALL METHOD grid->set_table_for_first_display
      EXPORTING
        is_layout           = struct_grid_lset
      CHANGING
        it_outtab             =  <it_disptab>
        it_fieldcatalog       =  it_grid_fcat
    .      " Period
form populate_grid_data.
*i want to populate the fields of dynamic internal table <it_disptab>
with wbs
endform.
*once i display it to user he will edit the values that i want to save it back to transperant table from fields symbols <it_disptab>.
Best Regards
Sandeep

Answer 1

Hi Sandeep,
within your form routine you can do the following:
form populate_grid_data.
*i want to populate the fields of dynamic internal table <it_disptab>
with wbs
1. create work area for your table
data: l_lineref type ref to data.
field-symbols: <l_line> type any.
create data l_lineref like line of <it_disptab>.
assign l_lineref->* to <l_line>.
case you have identical named fields
move corresponding wbs to <l_line>.
append <l_line> to <it_disptab>.
case the fieldnames are different
field-symbols: <fs_target1>,
               <fs_target2>.
assign component 'Fieldname' of structure <l_line>
    to <fs_target1>.
<fs_target1> = wbs-wbs.
assign component 'Fieldname' of structure <l_line>
    to <fs_target2>.
<fs_target2> = wbs-objnr.
append <l_line> to <it_disptab>.
endform.
Hope it helps.
regards
Siggi