Dynamic field names in ALV (referencing to the month)

Question

Hi,
I have 12 fields in my ALV, named Monthly Sales 1, Monthly Sales 2 and so on until Monthly Sales 12.
Monthly Sales 12 corresponds to the current month and Monthly Sales 1 is the current month minus 11 months (in terms of the month.)
So the user has requested that instead of Monthly Sales 12, it should display M 06/2007 as the field name.
Or Monthly Sales 11 should display M 05/2007 and so on.
How can this be done?
Please help.
Points will be awarded and all responses will be greatly appreciated.
Thanks,
John

Answer 1

Hi,
I have done some coding for this which is as follows:
TYPE-POOLS : abap, slis.
DATA : BEGIN OF itab OCCURS 0,
        month1 TYPE char2,
        month2 TYPE char2,
        month3 TYPE char2,
        month4 TYPE char2,
        month5 TYPE char2,
        month6 TYPE char2,
        month7 TYPE char2,
        month8 TYPE char2,
        month9 TYPE char2,
        month10 TYPE char2,
        month11 TYPE char2,
        month12 TYPE char2,
        month13 TYPE char2,
       END OF itab.
DATA wa LIKE LINE OF itab.
DATA : it_fieldcat     TYPE     slis_t_fieldcat_alv WITH HEADER LINE.
DATA : is_layout     TYPE     slis_layout_alv.
DATA : len TYPE i VALUE 0,
        text TYPE string,
        date TYPE sy-datum,
        index TYPE numc3.
DATA : ref_table_des TYPE REF TO cl_abap_structdescr.
DATA : l_t_fields TYPE abap_compdescr_tab.
DATA : fs_fields  TYPE abap_compdescr.
*To get the fields of internal table
ref_table_des ?=
        cl_abap_typedescr=>describe_by_data( wa ).
APPEND LINES OF ref_table_des->components TO l_t_fields.
DESCRIBE TABLE l_t_fields LINES len.
DO len TIMES.
  index = sy-index - 1.
  CLEAR date.
  READ TABLE l_t_fields INTO fs_fields INDEX sy-index.
  CALL FUNCTION 'CCM_GO_BACK_MONTHS'
    EXPORTING
      currdate   = sy-datum
      backmonths = index
    IMPORTING
      newdate    = date.
  CONCATENATE date4(2) date0(4) INTO text SEPARATED BY '/'.
  it_fieldcat-fieldname = fs_fields-name.
  it_fieldcat-tabname = 'ITAB'.
  it_fieldcat-seltext_l = text.
  APPEND it_fieldcat.
ENDDO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    it_fieldcat   = it_fieldcat[]
  TABLES
    t_outtab      = itab[]
  EXCEPTIONS
    program_error = 1
    OTHERS        = 2.
I feel this is bit generic.
Copy & execute this program.
Reward if its useful.
Regards,
Sail