How to fill Dynamic work area or field symbol?

Question

HI All,
I have created dynamic work area(field symbol) by using following code. Now I want to fill the work area with values which are there in other internal table.
* Create dynamic internal table/structure
  call method cl_alv_table_create=>create_dynamic_table
    exporting
      it_fieldcatalog = it_fieldcat
    importing
      ep_table        = dyn_table.
  assign dyn_table->* to <fs_table>.
* Create dynamic work area and assign to Field Symbol
  create data dyn_line like line of <fs_table>.
  assign dyn_line->* to <fs_wa>.
My <FS_WA> contains:
ROW1
ROW2
ROW3
ROW4 as fields in it without having any data.
I have other internal table.. where I have FIELDS and Data like following:
FIELD1  FIELD2   FIELD3
ID1 ROW1 A1
ID1 ROW2 A2
ID1 ROW3 A3
ID1 ROW4 A4
ID2 ROW1 B1
ID2 ROW2 B2
ID2 ROW3 B3
ID3 ROW1 C4
Important thing that I have to share with you is... Source table of my Internal table and Source structure to create my dynamic table are same.
This dynamic table has fields... with "FIELD2" values.
Thanks,
Naveen.I

Answer 1

Create a dynamic internal table
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = lt_fcat
    IMPORTING
      ep_table        = lt_dy_table.
Create dynamic work area and assign to FS
  ASSIGN lt_dy_table->* TO <fs_dyn_table>.
  CREATE DATA lt_dy_line LIKE LINE OF <fs_dyn_table>.
  ASSIGN lt_dy_line->* TO <fs_dyn_wa>.
Define WA
  CREATE DATA dref TYPE (iv_struc_name).
  ASSIGN dref->* TO <fs_final>.
Populate dynamic table from the file
  OPEN DATASET iv_path FOR INPUT IN TEXT MODE ENCODING DEFAULT.
  IF sy-subrc = 0.
    DO.
      READ DATASET iv_path INTO ls_str.
      IF sy-subrc <> 0.
        ev_failed = abap_true.
        EXIT.
      ENDIF.
      SPLIT ls_str AT ';' INTO TABLE lt_dyn_tab.  " columns
      LOOP AT lt_dyn_tab INTO ls_dyn_tab.
        READ TABLE lt_struc_fld INTO ls_struc_fld INDEX sy-tabix.
        IF sy-subrc EQ 0.
          MOVE ls_struc_fld-fieldname TO ls_fieldname.
          ASSIGN COMPONENT ls_fieldname OF STRUCTURE <fs_dyn_wa> TO <fs_val>.
          IF sy-subrc = 0.
            <fs_val> = ls_dyn_tab.
          ENDIF.
          ASSIGN COMPONENT ls_fieldname OF STRUCTURE <fs_final> TO <fs_val>.
          IF sy-subrc = 0.
            <fs_val> = ls_dyn_tab.
          ENDIF.
        ENDIF.
      ENDLOOP.
      APPEND <fs_dyn_wa> TO <fs_dyn_table>.
      APPEND <fs_final> TO et_table.
      UNASSIGN: <fs_val>.
    ENDDO.
  ENDIF.
  CLOSE DATASET iv_path.