Populate data from itab to dynamic internal table

Question

Hi All,
I have internal table it_tab with below data
"-----internal table it_tab data
1 0000123 GBP DA S 6265.45
2 0000123 GBP DA H 240.51
3 0000123 GBP DA S 35.82
4 0000123 GBP D1 H 281.85
5 0000123 GBP D1 S 23.41
6 0000123 GBP D1 S 34.23
7 0000123 GBP RV H 97.02
8 0000123 GBP RV S 52.90
9 0000123 GBP RV S 148.31
I have created dynamic internal table <t_dyn_table> using field-symbol based in dynamic fieldcatelog it_fldcat, using below code
Create dynamic internal table and assign to Field Symbol
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_fldcat
    IMPORTING
      ep_table                  = it_dynamic_table
    EXCEPTIONS
      generate_subpool_dir_full = 1
      others                    = 2.
  IF sy-subrc eq 0.
    ASSIGN it_dynamic_table->* TO <t_dyn_table>.
Create dynamic work area and assign to Field Symbol
    CREATE DATA it_newline LIKE LINE OF <t_dyn_table>.
    ASSIGN it_newline->* TO <wa_dyn>.
  ENDIF.
Now I want to put the data from it_tab to <t_dyn_table> as shown below
Customer ___DAS ___D1S___RVS___DAH___D1H___RVH___DAT____D1T____RVT
0000123____6265.45__________________________________6265.45
0000123________________________240.51_______________240.51
0000123____35.82____________________________________35.82
Please help me out, Thanks in Advance
Thanks & Regards
Sekhar
Thanks in Advance
Sekhar

Answer 1

Hi Sekhar_tech,
Hope this helps. I made the code in notepad may have any syntax errors but the idea of the code is.
  loop at it_tab into wa_tab.
    UNASSIGN  <wa_dyn>.
    ASSIGN it_newline->* TO <wa_dyn>.
    if <wa_dyn> is assigned.
      UNASSIGN <lf_field_Value>.        
      ASSIGN COMPONENT 'CUSTOMER' OF STRUCTURE
                       <wa_dyn> TO <lf_field_value>. 
      IF <lf_field_Value> IS ASSIGNED.
         <lf_field_value> = wa_tab-customer.
      ENDIF.    
      UNASSIGN <lf_field_Value>.        
      ASSIGN COMPONENT 'DAS' OF STRUCTURE
                       <wa_dyn> TO <lf_field_value>. 
      IF <lf_field_Value> IS ASSIGNED.
         <lf_field_value> = wa_tab-das.
      ENDIF.    
#same logic to other fields...
#The final step
      APPEND <wa_dyn> TO <t_dyn_table>.
    endif.
  endloop.
Regards
Bruno Xavier.