Internal - dynamic - field-symbols

Question

All,
This is my requirement
data in itab is
NAME     ,  COUNT ,  STRTDATE,  ENDDATE, durinmin.
a         123      10/1/08    10/1/08    12
a         123      10/2/08    10/5/08    30
a         123      10/3/08    10/8/08    15
b         123      10/1/08    10/1/08    12
b         123      10/2/08    10/5/08    30
b         123      10/3/08    10/8/08    15
to be displayed like
name   count   10/1/08     10/2/08  10/3/08
a     123      12          30        15
b     123      12          30        15
This is how I am coding...
DATA:
r_dyn_table TYPE REF TO data,
r_wa_dyn_table TYPE REF TO data,
r_dock_ctnr TYPE REF TO cl_gui_docking_container,
r_alv_grid TYPE REF TO cl_gui_alv_grid,
t_fieldcat1 TYPE lvc_t_fcat, "with cell color
t_fieldcat2 TYPE lvc_t_fcat, "without cell color
wa_fieldcat LIKE LINE OF t_fieldcat1,
wa_cellcolors TYPE LINE OF lvc_t_scol,
wa_is_layout TYPE lvc_s_layo.
FIELD-SYMBOLS:
<t_dyn_table> TYPE STANDARD TABLE,
<wa_dyn_table> TYPE ANY,
<t_cellcolors> TYPE lvc_t_scol,
<w_field> TYPE ANY.
data begin of itab
NAME     ,
  COUNT     ,
  STRTDATE,
  ENDDATE,
durinmin(6),
end of itab.
build catalog
form build_cat_for_table.
  data : fname(6) value 'Day'.
  data : cntr(3) type n, ctext(10).
  wa_fieldcat-fieldname = 'NAME'.
  wa_fieldcat-inttype = 'C'.
  wa_fieldcat-outputlen = '32'.
  wa_fieldcat-coltext = 'Name'.
  wa_fieldcat-seltext = wa_fieldcat-coltext.
  APPEND wa_fieldcat TO t_fieldcat1.
  wa_fieldcat-fieldname = 'Wtavgtime'.
  wa_fieldcat-inttype = 'C'.
  wa_fieldcat-outputlen = '6'.
  wa_fieldcat-coltext = 'Wt Avg Time'.
  wa_fieldcat-seltext = wa_fieldcat-coltext.
  APPEND wa_fieldcat TO t_fieldcat1.
*now add all the dates.
  loop at dtrange.
    cntr = 1.
    concatenate fname cntr into fname.
    ctext = dtrange-ddate.
    wa_fieldcat-fieldname = fname.
    wa_fieldcat-inttype = 'C'.
    wa_fieldcat-outputlen = '6'.
    wa_fieldcat-coltext = ctext.
    wa_fieldcat-seltext = wa_fieldcat-coltext.
    cntr = cntr + 1.
    clear fname.
    APPEND wa_fieldcat TO t_fieldcat1.
  endloop.
endform.
form fill_data.
data : fname(6) value 'Day'.
  data : cntr(3) type n, ctext(10).
  CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
  it_fieldcatalog = t_fieldcat1
  IMPORTING
  ep_table = r_dyn_table
  EXCEPTIONS
  generate_subpool_dir_full = 1
  OTHERS = 2.
  IF sy-subrc ne 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  ASSIGN r_dyn_table->* TO <t_dyn_table>.
  CREATE DATA r_wa_dyn_table LIKE LINE OF <t_dyn_table>.
  ASSIGN r_wa_dyn_table->* TO <wa_dyn_table>.
loop at itab.
  ASSIGN COMPONENT 'NAME' OF STRUCTURE <wa_dyn_table> TO <w_field>.
  <w_field> = itab-name.
  ASSIGN COMPONENT 'Wtavgtime' oF STRUCTURE <wa_dyn_table> TO <w_field>.
  <w_field> = itab-wtavgtime.
cntr = 0.
  do.
    cntr = 1.
    concatenate fname cntr into fname.
  assign component fname of structure <wa_dyn_table> to <w_field>.
  <w_field> = itab-
  enddo.
endform.
This is where I am stucked how to put the dates as the columns while displaying and then put the duration in the rows corresponding to the columns.
Any help is appriciated.
THERE ARE LOT OF EXAMPLES on forum but some how I am not able to grasp it in my code, may be my knowledge of field symbols falling short. I guess I need to use Header / field groups but not clicking me .
Thanks in advance.

Answer 1

Hi,
I changed ur code a little.... i dont know whether it will work or not...
But it will give u some idea...
1. when preparing the Fieldcatalog.
*now add all the dates.
LOOP AT dtrange.
*  cntr = 1.
*  CONCATENATE fname cntr INTO fname.
  fname = dtrange-ddate.    "---u may need to change this (but give a date here)
  ctext = dtrange-ddate.
  wa_fieldcat-fieldname = fname.
  wa_fieldcat-inttype = 'C'.
  wa_fieldcat-outputlen = '6'.
  wa_fieldcat-coltext = ctext.
  wa_fieldcat-seltext = wa_fieldcat-coltext.
  cntr = cntr + 1.
  CLEAR fname.
  APPEND wa_fieldcat TO t_fieldcat1.
ENDLOOP.
2. When adding values...
SORT itab BY name.
LOOP AT itab.
  ASSIGN COMPONENT 'NAME' OF STRUCTURE <wa_dyn_table> TO <w_field>.
  <w_field> = itab-name.
  ASSIGN COMPONENT 'Wtavgtime' OF STRUCTURE <wa_dyn_table> TO <w_field>.
  <w_field> = itab-wtavgtime.
  cntr = 0.
*  DO.
*    cntr = 1.
*    CONCATENATE fname cntr INTO fname.
*    ASSIGN COMPONENT fname OF STRUCTURE <wa_dyn_table> TO <w_field>.
  fname = itab-strtdate.                  "---same thing here
  ASSIGN COMPONENT fname OF STRUCTURE <wa_dyn_table> TO <w_field>.
  IF <w_field> IS ASSIGND.
    <w_field> = itab-durinmin.
  ENDIF.
  AT END OF name.
    MODIFY <t_dyn_table> FROM <wa_dyn_table>.
  ENDAT.
*  ENDDO.
ENDLOOP.