Display of date range in the top-of-page of report

Question

have a question like this.
i have a date range selection on the selection screen where the user will enter the range from this to this.
now whatever period he will enter,that range should be displayed on the output of the report in the top-of page.
can we do like this.
plz explain.
thanks!

Answer 1

Hi,
Use the below logic.
data:      events      type  slis_t_event,
      event       type  slis_alv_event,
      heading     type  slis_t_listheader,
      hline       type  slis_listheader,
start-of-selection.
"get the data into the internal table and fill your fieldcatalog table.
then fill the event ... ie top of page like this.
  CLEAR event.
  event-name = slis_ev_top_of_page.
  event-form = form_name.
  APPEND event TO events.
then fill the comments to display in the top of page event.
DATA: text(50).
  CLEAR hline.
  hline-typ  = 'H'.
  hline-info = "report title".
  APPEND hline TO heading.
  CLEAR: hline,text.
  read table s_pernr index 1.
  IF s_pernr-low IS NOT INITIAL.
    WRITE: 'Sal Code:' TO text.
    WRITE: s_pernr-low TO text+15.
  ENDIF.
  IF s_pernr-high IS NOT INITIAL.
    WRITE: 'to' TO text+25.
    WRITE: s_pernr-high TO text+28.
  ENDIF.
  hline-typ  = 'S'.
  hline-info = text.
  APPEND hline TO heading.
and then...
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = sy-repid
     it_fieldcat                       = ist_fcat[]
      it_events                         = events[]
    TABLES
      t_outtab                          = ist_main[]
   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.
and then create a subroutine for top of page.
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = heading[]
      I_LOGO                   =
      I_END_OF_LIST_GRID       =
      I_ALV_FORM               =
ENDFORM.                    "TOP_OF_PAGE
regards,
Santosh Thorat