Working on table dynamically

Question

HI all ,
There is problem which i need to Move data from table one to table 2 with differnt structure the
for instance
table 1
pernr                                                             comments
123                            AAA
123                               BBB
123                                          CCC
456                              ZZZZ          
456                               TTTT
456                                         GGGG
456                                         SSSS
What I want :
table 2
pernr            line 1             line 2         line3
11               AAA                BBBB            CCCC
22               ZZZZ               TTTT            GGGG
The code :
TYPES:BEGIN OF ty_tab,
    pernr TYPE numc10,
    comments TYPE char10,
  END OF ty_tab.
DATA:it_emp_com TYPE TABLE OF ty_tab,
      ls_emp_com LIKE LINE OF it_emp_com.
TYPES:BEGIN OF ty_tab2,
    pernr TYPE numc10,
    line1 TYPE char10,
    line2 TYPE char10,
    line3 TYPE char10,
    line4 TYPE char10,
  END OF ty_tab2.
DATA: it_emp_com2 TYPE TABLE OF ty_tab2,
      ls_emp_com2 LIKE LINE OF it_emp_com.
ls_emp_com-pernr = 123.
ls_emp_com-comments = 'AAA'.
APPEND ls_emp_com TO it_emp_com.
ls_emp_com-pernr = 123.
ls_emp_com-comments = 'BBB'.
APPEND ls_emp_com TO it_emp_com.
ls_emp_com-pernr = 123.
ls_emp_com-comments = 'CCC'.
APPEND ls_emp_com TO it_emp_com.
ls_emp_com-pernr = 456.
ls_emp_com-comments = 'ZZZ'.
APPEND ls_emp_com TO it_emp_com.
ls_emp_com-pernr = 456.
ls_emp_com-comments = 'GGGG'.
APPEND ls_emp_com TO it_emp_com.
ls_emp_com-pernr = 456.
ls_emp_com-comments = 'CCCC'.
APPEND ls_emp_com TO it_emp_com.
ls_emp_com-pernr = 456.
ls_emp_com-comments = 'SSSS'.
APPEND ls_emp_com TO it_emp_com.
FIELD-SYMBOLS : <fs> TYPE any.
REFRESH : it_emp_com2.
DATA: v_flg TYPE n,
      v_field TYPE char20.
LOOP AT it_emp_com INTO ls_emp_com.
  AT NEW pernr.
    MOVE 1 TO v_flg.
  ENDAT.
  MOVE ls_emp_com-pernr TO ls_emp_com2-pernr.
  CONCATENATE 'LS_EMP_COM2-LINE' v_flg INTO v_field.
  CONDENSE v_field NO-GAPS.
  ASSIGN v_field TO <fs>.
  WRITE ls_emp_com-comments TO <fs>.
  v_flg = v_flg + 1.
  AT END OF pernr.
    CLEAR v_flg.
    APPEND ls_emp_com TO it_emp_com2.
  ENDAT.
ENDLOOP.
I try like this and i wont works
any idea what i miss here ?
Regards
Joy

Answer 1

Next and Final Part of Code
LOOP AT it_ty1 INTO wa_ty1.
  AT NEW pernr.
    wa_all_pernr-pernr = wa_ty1-pernr.
    APPEND wa_all_pernr to it_all_pernr.
    count_pernr = 0.
  ENDAT.
  add: 1 to count_pernr.
  at END OF pernr.
    IF max_pernr < count_pernr.
      max_pernr = count_pernr.
    ENDIF.
  ENDAT.
ENDLOOP.
CLEAR:it_fieldcatalog.
it_fieldcatalog-fieldname = 'PERNR'.
it_fieldcatalog-col_pos = 1.
it_fieldcatalog-outputlen = '10'.
APPEND it_fieldcatalog TO it_fieldcatalog.
column_no = 2.
count = 1.
DO max_pernr TIMES.
  clear: it_fieldcatalog.
  CONDENSE: count.
  CONCATENATE: 'line' count INTO column_name.
  it_fieldcatalog-fieldname = column_name.
  it_fieldcatalog-col_pos = column_no.
  it_fieldcatalog-outputlen = '15'.
  APPEND it_fieldcatalog TO it_fieldcatalog.
  add: 1 to column_no,
       1 to count.
ENDDO.
CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
    it_fieldcatalog           = it_fieldcatalog[]
  IMPORTING
    ep_table                  = it
  EXCEPTIONS
    generate_subpool_dir_full = 1
    others                    = 2.
assign it->* to <dyn_it>.
create data wa like line of <dyn_it> .
assign wa->* to <dyn_wa> .
LOOP AT it_all_pernr into wa_all_pernr.
  count_column = 2.
  count = 1.
  assign_val 'PERNR' wa_all_pernr-pernr.
  LOOP AT it_ty1 into wa_ty1 WHERE pernr = wa_all_pernr-pernr.
    CONDENSE: count.
    CONCATENATE: 'LINE' count INTO column_name.
    assign_val column_name wa_ty1-comments.
    add: 1 to count.
  ENDLOOP.
  APPEND <dyn_wa> to <dyn_it>.
  clear: <dyn_wa>.
ENDLOOP.
Reply me back in case of any Confusion about the Code.
Best Regards,
Faisal