How to display values in top of page in ALV report

Question

Hai,
  This is my billing report program, i developed that object by using ALV but i could not able to use Top-of-page. please any one correct my code,
*& Report  ZE0232_ALV_BILLING                                          *
report  ze0232_alv_billing.
type-pools: slis.
data: repid like sy-repid.
data: fieldcatalog type slis_t_fieldcat_alv,
      wa_fieldcatalog type slis_fieldcat_alv.
data : ievent type slis_t_event,
wevent type slis_alv_event.
data: sal_text like tvkot-vtext,
      DIS_TEXT LIKE TVTWT-VTEXT,
      DIV_TEXT LIKE TSPAT-VTEXT.
tables: vbrk.
data: begin of i_vbrk occurs 0,
      vbeln like vbrk-vbeln,
      fkdat like vbrk-fkdat,
      erdat like vbrk-erdat,
      kunrg like vbrk-kunrg,
      name1 like kna1-name1,
      netwr like vbrk-netwr,
      stext like tvkot-vtext,
      dtext like tvtwt-vtext,
      divtext like tspat-vtext,
      end of i_vbrk.
selection-screen begin of block billing with frame.
parameters: salesorg like vbrk-vkorg.
select-options: dischanl for vbrk-vtweg,
                division for vbrk-spart,
                bildat for vbrk-fkdat.
selection-screen end of block billing.
select vbeln fkdat erdat kunrg netwr from vbrk into corresponding fields of table i_vbrk where vkorg = salesorg
                                                                                and vtweg in dischanl
                                                                                and spart in division
                                                                                and fkdat in bildat.
select vtext from tvkot into sal_text where vkorg = salesorg and spras = 'EN'.
endselect.
select vtext from TVTWT into DIS_text where VTWEG IN dischanl and spras = 'EN'.
endselect.
select vtext from TSPAT into DIV_text where SPART IN DIVISION and spras = 'EN'.
endselect.
loop at i_vbrk.
  move: sal_text to i_vbrk-stext,
        DIS_TEXT TO I_VBRK-DTEXT,
        DIV_TEXT TO I_VBRK-DIVTEXT.
  modify i_vbrk.
endloop.
perform get_fieldcatalog.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
    i_callback_program                = repid
  I_GRID_TITLE                      =
    i_callback_top_of_page            = 'TOPS'
    it_fieldcat                       = fieldcatalog
  tables
    t_outtab                          = i_vbrk
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.
*&      Form  GET_FIELDCATALOG
      text
<b>form tops.
  write :/ 'Hai Welcome'.
endform.                    "tops</b>&----
*&      Form  get_fieldcatalog
      text
form get_fieldcatalog.
  wa_fieldcatalog-col_pos = '1'.
  wa_fieldcatalog-fieldname = 'VBELN'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'SALES DOCUMENT'.
WA_fieldcatalog-rollname  = 'VBELN'.
  wa_fieldcatalog-hotspot   = 'X'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '2'.
  wa_fieldcatalog-fieldname = 'FKDAT'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'BILL DATE'.
WA_fieldcatalog-rollname  = 'VBELN'.
WA_fieldcatalog-hotspot   = 'X'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '3'.
  wa_fieldcatalog-fieldname = 'ERDAT'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'CREATED DATE'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '4'.
  wa_fieldcatalog-fieldname = 'KUNRG'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'CUSTOMER NO'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '5'.
  wa_fieldcatalog-fieldname = 'NAME1'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'CUSTOMER NAME'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '6'.
  wa_fieldcatalog-fieldname = 'NETWR'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'NET VALUE'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '7'.
  wa_fieldcatalog-fieldname = 'STEXT'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'SALES ORG'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '8'.
  wa_fieldcatalog-fieldname = 'DTEXT'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'DIS.CHANNEL'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-col_pos = '9'.
  wa_fieldcatalog-fieldname = 'DIVTEXT'.
  wa_fieldcatalog-tabname   = 'I_VBAK'.
  wa_fieldcatalog-seltext_m = 'DIVISION'.
  append wa_fieldcatalog to fieldcatalog.
  clear wa_fieldcatalog.
endform.                    "GET_FIELDCATALOG

Answer 1

HI see this report
you can know how to write TOP-OF_PAGE code
and insert LOGO also
*& Report  ZTEST_ALV_LOGO
REPORT  ztest_alv_logo.
TYPE-POOLS : slis.
*ALV Formatting tables /structures
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: gt_events   TYPE slis_t_event.
DATA: gs_layout   TYPE slis_layout_alv.
DATA: gt_page     TYPE slis_t_listheader.
DATA: gs_page     TYPE slis_listheader.
DATA: v_repid     LIKE sy-repid.
*ALV Formatting work area
DATA: w_fieldcat TYPE slis_fieldcat_alv.
DATA: w_events   TYPE slis_alv_event.
DATA: gt_bsid TYPE TABLE OF bsid WITH HEADER LINE.
INITIALIZATION.
  PERFORM build_events.
  PERFORM build_page_header.
START-OF-SELECTION.
*perform build_comment.     "top_of_page - in initialization at present
  SELECT * FROM bsid INTO TABLE gt_bsid UP TO 10 ROWS.
*perform populate_for_fm using '1' '3' 'BUKRS' '8' 'GT_BSID' 'Whee'.
*USING = Row, Column, Field name, display length, table name, heading
*OR
  PERFORM build_fieldcat.
  gs_layout-zebra = 'X'.
*top of page event does not work without I_callback_program
  v_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program                = v_repid
      i_structure_name                  = 'BSID'
   i_background_id                   = 'ALV_BACKGROUND'
      i_grid_title                      = 'This is the grid title'
  I_GRID_SETTINGS                   =
      is_layout                         = gs_layout
      it_fieldcat                       = gt_fieldcat[]
      it_events                         = gt_events[]
    TABLES
      t_outtab                          = gt_bsid.
Form..............:  populate_for_fm
Description.......:  Populates fields for function module used in ALV
FORM populate_for_fm USING p_row
                           p_col
                           p_fieldname
                           p_len
                           p_table
                           p_desc.
  w_fieldcat-row_pos      = p_row.          "Row Position
  w_fieldcat-col_pos      = p_col.          "Column Position
  w_fieldcat-fieldname    = p_fieldname.    "Field name
  w_fieldcat-outputlen    = p_len.          "Column Lenth
  w_fieldcat-tabname      = p_table.        "Table name
  w_fieldcat-reptext_ddic = p_desc.         "Field Description
  w_fieldcat-input        = '1'.
  APPEND w_fieldcat TO gt_fieldcat.
  CLEAR w_fieldcat.
ENDFORM.                    " populate_for_fm
*&      Form  build_events
FORM build_events.
  DATA: ls_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = gt_events.
  READ TABLE gt_events
             WITH KEY name =  slis_ev_user_command
             INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_user_command TO ls_event-form.
    APPEND ls_event TO gt_events.
  ENDIF.
  READ TABLE gt_events
             WITH KEY name =  slis_ev_top_of_page
             INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_top_of_page TO ls_event-form.
    APPEND ls_event TO gt_events.
  ENDIF.
ENDFORM.                    " build_events
*&      Form  USER_COMMAND
When user command is called it uses 2 parameters. The itab
passed to the ALV is in whatever order it currently is on screen.
Therefore, you can read table itab index rs_selfield-tabindex to get
all data from the table. You can also check r_ucomm and code
accordingly.
FORM user_command USING  r_ucomm     LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
  READ TABLE gt_bsid INDEX rs_selfield-tabindex.
error checking etc.
  SET PARAMETER ID 'KUN' FIELD gt_bsid-kunnr.
  CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.
ENDFORM.                    "user_command
*&      Form  top_of_page
Your own company logo can go here if it has been saved (OAOR)
If the logo is larger than the size of the headings in gt_page,
the window will not show full logo and will have a scroll bar. Thus,
it is a good idea to have a standard ALV header if you are going to
use logos in your top of page.
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_page
      i_logo             = 'ENJOYSAP_LOGO'.
ENDFORM.                    "top_of_page
*&      Form  build_fieldcat
*Many and varied fields are available here. Have a look at documentation
*for FM REUSE_ALV_LIST_DISPLAY and REUSE_ALV_FIELDCATALOG_MERGE
FORM build_fieldcat.
  w_fieldcat-fieldname  = 'BUDAT'.
  w_fieldcat-seltext_m  = 'Dte pst'.
  w_fieldcat-ddictxt(1) = 'M'.
  w_fieldcat-edit = 'x'.
Can change the position of fields if you do not want them in order
of the DDIC or itab
w_fieldcat-row_pos = '1'.
w_fieldcat-col_pos = '10'.
  APPEND w_fieldcat TO gt_fieldcat.
  CLEAR w_fieldcat.
ENDFORM.                    " build_fieldcat
*&      Form  build_page_header
      gt_page is used in top of page (ALV subroutine - NOT event)
      *H = Header, S = Selection, A = Action
FORM build_page_header.
For Headers, Key is not printed and is irrelevant. Will not cause
a syntax error, but is not used.
  gs_page-typ  = 'H'.
  gs_page-info = 'Header 1'.
  APPEND gs_page TO gt_page.
  gs_page-typ  = 'H'.
  gs_page-info = 'Header 2'.
  APPEND gs_page TO gt_page.
For Selections, the Key is printed (bold). It can be anything up to 20
bytes. It gets printed in order of code here, not by key value.
  gs_page-typ  = 'S'.
  gs_page-key  = 'And the winner is:'.
  gs_page-info = 'Selection 1'.
  APPEND gs_page TO gt_page.
  gs_page-typ  = 'S'.
  gs_page-key  = 'Runner up:'.
  gs_page-info = 'Selection 2'.
  APPEND gs_page TO gt_page.
For Action, Key is also irrelevant.
  gs_page-typ  = 'A'.
  gs_page-info = 'Action goes here'.
  APPEND gs_page TO gt_page.
ENDFORM.                    " build_page_header
<b>Reward if useful</b>