How to get list header in ECC6.0 of ALV reports ?

Question

Hello i want to display header in ALV reports this the code what i am using..
*ALV TOP-OF-PAGE DECLATRACTION
DATA : W_LISTHEADER TYPE SLIS_LISTHEADER,
       T_LISTHEADER TYPE SLIS_T_LISTHEADER.
**PUPULATING TOP-OF-PAGE.
  w_LISTHEADER-TYP = 'H'.
  W_LISTHEADER-INFO = 'Report for Sales'.
  APPEND W_LISTHEADER TO T_LISTHEADER.
  CLEAR W_LISTHEADER.
It is working fine in SAP4.7 version but in ECC6.0 it is not working where i have to do changes..
Thks

Answer 1

Hi,
Try the top-of-page by using events, like
Data Declaration
TYPE-POOLS: slis.
TABLES: mara.
TYPES: BEGIN OF i_mara,
       matnr LIKE mara-matnr,
       mtart LIKE mara-mtart,
       meins LIKE mara-meins,
       groes LIKE mara-groes,
       volum LIKE mara-volum,
       END OF i_mara.
DATA: it_mara TYPE STANDARD TABLE OF i_mara INITIAL SIZE 0.
ALV Data Declaration
DATA: fldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      i_events TYPE slis_t_event,
      w_events LIKE LINE OF i_events,
      i_repid TYPE sy-repid.
DATA: i_comment TYPE slis_t_listheader,
      wa_comment TYPE slis_listheader.
START-OF-SELECTION.
  PERFORM data_retrieval.
  PERFORM bld_fldcat.
  PERFORM call_events.
  PERFORM display_alv_report.
*&      Form  CALL_EVENTS
      text
FORM call_events.
W_events-name = slis_ev_top_of_page.
W_events-form = 'TOP-OF-PAGE'.
append W_events  to i_events.
clear W_events .
ENDFORM.                    "CALL_EVENTS
Build field catalog for ALV
FORM bld_fldcat.
  fldcat-fieldname = 'MATNR'.
  fldcat-seltext_m = 'MATERIAL NUMBER'.
  fldcat-col_pos = 0.
  APPEND fldcat TO fldcat.
  CLEAR fldcat.
  fldcat-fieldname = 'MTART'.
  fldcat-seltext_m = 'MATERIAL TYPE'.
  fldcat-emphasize = 'C111'.
  APPEND fldcat TO fldcat.
  CLEAR fldcat.
  fldcat-fieldname = 'MEINS'.
  fldcat-seltext_m = 'UNIT OF MEASURE'.
  APPEND fldcat TO fldcat.
  CLEAR fldcat.
  fldcat-fieldname = 'GROES'.
  fldcat-seltext_m = 'SIZE'.
  APPEND fldcat TO fldcat.
  CLEAR fldcat.
  fldcat-fieldname = 'VOLUM'.
  fldcat-seltext_m = 'VOLUME'.
  APPEND fldcat TO fldcat.
  CLEAR fldcat.
ENDFORM.                    "BLD_FLDCAT
Display report using ALV List
FORM display_alv_report.
  i_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     i_callback_program             = I_REPID
     it_fieldcat                    = fldcat[]
     i_save                         = 'A'
     it_events                      = i_events
    TABLES
      t_outtab                       = it_mara
EXCEPTIONS
   PROGRAM_ERROR                  = 1
   OTHERS                         = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    "DISPLAY_ALV_REPORT
Retrieve data from MARA table and populate itab IT_MARA
FORM data_retrieval.
  SELECT matnr mtart meins groes volum
  INTO TABLE it_mara FROM mara UP TO 50 ROWS.
ENDFORM.                    "DATA_RETRIEVAL
*&      Form  TOP_OF_PAGE
      text
FORM TOP-OF-PAGE.
  CLEAR i_comment[].
  wa_comment-typ = 'H'.
  wa_comment-info = 'TOP OF PAGE' .    "SY-PAGNO.
  APPEND wa_comment TO i_comment.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = i_comment.
ENDFORM.                    "GENERATE_USERCOMMAND_FOOTER
Regards,
Chandu