I want to use top-of-page event in my program

Question

Hi,
I am using slis type pools.Can anyone describe me how to write the code to diaplay the top-of-page
With Regards
Ansuman Parhi

Answer 1

Hi,
Here the sample code.
        STRUCTURE DECLARATIONS*
        INTERNAL TABLE DECLARATIONS*
        WORKAREA DECLARATIONS*
        TYPE-POOLS DECLARATION*
TYPE-POOLS : slis.
TYPES : BEGIN OF st_ekko,
          ebeln TYPE ekko-ebeln,    "Purchasing Document Number
          bstyp TYPE ekko-bstyp,    "Purchasing Document Category
          bsart TYPE ekko-bsart,    "Purchasing Document Type
          aedat TYPE ekko-aedat,    "record created on
          ernam TYPE ekko-ernam,    "Person who Created the Object
          check(1),
        END OF st_ekko.
TYPES : BEGIN OF st_ekpo,
         ebeln TYPE ekko-ebeln,
         ebelp TYPE ekpo-ebelp,    "Item Number of Purchasing Document
         ematn TYPE ekpo-ematn,    "Material number
         matkl TYPE ekpo-matkl,    "Material group
         netpr TYPE ekpo-netpr,    "Net price in purchasing document
        END OF st_ekpo.
TYPES : BEGIN OF st_ebeln,
         ebeln TYPE ekpo-ebeln,
        END OF st_ebeln.
TYPES : BEGIN OF st_eine,
         ebeln TYPE ekko-ebeln,
         ekorg TYPE eine-ekorg,
         ekgrp TYPE eine-ekgrp,
        END OF st_eine.
TYPES : BEGIN OF st_check,
         check(1),
        END OF st_check.
DATA : it_ekpo TYPE STANDARD TABLE OF st_ekpo,
       it_ekko TYPE STANDARD TABLE OF st_ekko,
       wa_ekko LIKE LINE OF it_ekko,
       it_fieldcat TYPE slis_t_fieldcat_alv,
       wa_fieldcat LIKE LINE OF it_fieldcat,
       wa_layout TYPE slis_layout_alv,
       it_events  TYPE slis_t_event,
       st_event LIKE LINE OF it_events,
       *it_listheadr TYPE slis_t_listheader ,*
       *wa_listheadr LIKE LINE OF it_listheadr,*
       st_printparams TYPE slis_print_alv,
       it_sortinfo TYPE slis_t_sortinfo_alv,
       wa_sortinfo LIKE LINE OF it_sortinfo,
       it_ekposortinfo TYPE slis_t_sortinfo_alv,
       wa_ekposortinfo LIKE LINE OF it_ekposortinfo,
       it_filter TYPE slis_t_filter_alv,
       it_ebeln TYPE STANDARD TABLE OF st_ebeln,
       it_eine TYPE STANDARD TABLE OF st_eine,
       wa_eine TYPE st_eine,
       it_popup TYPE STANDARD TABLE OF st_eine,
       wa_popup TYPE st_eine,
       it_check TYPE STANDARD TABLE OF st_check,
       wa_check TYPE st_check.
DATA : v_ebeln TYPE ekko-ebeln.
                       SELECTION-SCREEN*
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE tit.
SELECT-OPTIONS: so_ebeln FOR v_ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b.
                         INITIALIZATION*
INITIALIZATION.
  tit = text-000.
                         AT SELECTION-SCREEN ON*
AT SELECTION-SCREEN ON so_ebeln.
  PERFORM validate_ebeln.
                         START-OF-SELECTION*
START-OF-SELECTION.
  PERFORM get_ekko_data.
  PERFORM get_eine_data.
                         END-OF-SELECTION*
END-OF-SELECTION.
  PERFORM populate_fieldcat1.
  PERFORM populate_layout.
  PERFORM get_eventlist.
  PERFORM get_ekkosortinfo.
  PERFORM ekkodisplay_onalv.
*&      Form  POPULATE_FIELDCAT1
FORM populate_fieldcat1.
  wa_fieldcat-fieldname = 'EBELN'.
  wa_fieldcat-seltext_l = text-004.
  wa_fieldcat-no_zero = 'X'.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'BSTYP'.
  wa_fieldcat-seltext_l = text-005.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'BSART'.
  wa_fieldcat-seltext_l = text-006.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'AEDAT'.
  wa_fieldcat-seltext_l = text-007.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'ERNAM'.
  wa_fieldcat-seltext_l = text-008.
  APPEND wa_fieldcat TO it_fieldcat.
ENDFORM.                    "POPULATE_FIELDCAT1
*&      Form  populate_fieldcat2
FORM populate_fieldcat2 .
  CLEAR wa_fieldcat.
  CLEAR it_fieldcat.
  REFRESH it_fieldcat.
  wa_fieldcat-fieldname = 'EBELN'.
  wa_fieldcat-seltext_l = text-004.
  wa_fieldcat-hotspot   = 'X'.
wa_fieldcat-no_zero = 'X'.*
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'EBELP'.
  wa_fieldcat-seltext_l = text-009.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'EMATN'.
  wa_fieldcat-seltext_l = text-010.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'MATKL'.
  wa_fieldcat-seltext_l = text-011.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'NETPR'.
  wa_fieldcat-seltext_l = text-012.
  wa_fieldcat-datatype =  'CURR'.            "Obligatory to perform SUM
  wa_fieldcat-do_sum    = 'X'.
  APPEND wa_fieldcat TO it_fieldcat.
ENDFORM.                                     "populate_fieldcat2
*&      Form  GET_EVENTLIST
FORM get_eventlist.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = it_events[]
    EXCEPTIONS
      list_type_wrong = 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.
  READ TABLE it_events WITH KEY name = slis_ev_pf_status_set INTO st_event.
  IF sy-subrc EQ 0.
    st_event-form = 'SET_PF_STATUS1'.
    APPEND st_event TO it_events.
    CLEAR st_event.
  ENDIF.
  READ TABLE it_events WITH KEY name = slis_ev_end_of_page INTO st_event.
  IF sy-subrc EQ 0.
    st_event-form = 'END_OF_PAGE'.
    APPEND st_event TO it_events.
    CLEAR st_event.
  ENDIF.
ENDFORM.                    "GET_EVENTLIST
*&      Form  ekpodisplay_onalv
FORM ekpodisplay_onalv .
  IF it_ekpo[] IS INITIAL.
    MESSAGE 'NO DATA FOUND' TYPE 'I'.
  ELSE.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
     i_callback_program                = sy-repid
     i_callback_pf_status_set          = 'SET_PF_STATUS'
     i_callback_user_command           = 'AT_USER_COMMAND1'
     *i_callback_top_of_page            = 'TOP_OF_PAGE'*
    I_CALLBACK_HTML_TOP_OF_PAGE       = ' '*
    I_CALLBACK_HTML_END_OF_LIST       = ' '*
    I_STRUCTURE_NAME                  = I_STRUCTURE_NAME*
    I_BACKGROUND_ID                   = ' '*
    I_GRID_TITLE                      = I_GRID_TITLE*
    I_GRID_SETTINGS                   = I_GRID_SETTINGS*
       is_layout                         = wa_layout
       it_fieldcat                       = it_fieldcat
    IT_EXCLUDING                      = IT_EXCLUDING*
    IT_SPECIAL_GROUPS                 = IT_SPECIAL_GROUPS*
     it_sort                           = it_ekposortinfo[]
    IT_FILTER                         = IT_FILTER*
    IS_SEL_HIDE                       = IS_SEL_HIDE*
    I_DEFAULT                         = 'X'*
    I_SAVE                            = ' '*
    IS_VARIANT                        = IS_VARIANT*
    it_events                         = it_events*
    IT_EVENT_EXIT                     = IT_EVENT_EXIT*
    IS_PRINT                          = IS_PRINT*
    IS_REPREP_ID                      = IS_REPREP_ID*
    I_SCREEN_START_COLUMN             = 0*
    I_SCREEN_START_LINE               = 0*
    I_SCREEN_END_COLUMN               = 0*
    I_SCREEN_END_LINE                 = 0*
    I_HTML_HEIGHT_TOP                 = 0*
    I_HTML_HEIGHT_END                 = 0*
    IT_ALV_GRAPHICS                   = IT_ALV_GRAPHICS*
    IT_HYPERLINK                      = IT_HYPERLINK*
    IT_ADD_FIELDCAT                   = IT_ADD_FIELDCAT*
    IT_EXCEPT_QINFO                   = IT_EXCEPT_QINFO*
    IR_SALV_FULLSCREEN_ADAPTER        = IR_SALV_FULLSCREEN_ADAPTER*
  IMPORTING*
    E_EXIT_CAUSED_BY_CALLER           = E_EXIT_CAUSED_BY_CALLER*
    ES_EXIT_CAUSED_BY_USER            = ES_EXIT_CAUSED_BY_USER*
      TABLES
        t_outtab                          = it_ekpo
   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.
  ENDIF.
ENDFORM.                    "ekpodisplay_onalv
*&      Form  SET_PF_STATUS1
FORM set_pf_status1 USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'MENU' excluding rt_extab.      "Copy from SALV .
ENDFORM.                                        "SET_PF_STATUS1
*&      Form  SET_PF_STATUS
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'STANDARD' excluding rt_extab.  "Copy from SALV .
ENDFORM.                                        "SET_PF_STATUS
*&      Form  AT_user_command
FORM at_user_command  USING r_ucomm LIKE sy-ucomm
        *                 rs_selfield TYPE slis_selfield.*
  CASE r_ucomm.
    WHEN '&IC1'.
      IF rs_selfield-fieldname EQ 'EBELN'.
        READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
        SELECT ebeln ebelp ematn matkl netpr
          FROM ekpo
          INTO TABLE it_ekpo
         WHERE ebeln EQ wa_ekko-ebeln.
        PERFORM populate_fieldcat2.
        PERFORM populate_layout2.
        PERFORM get_ekposortinfo.
        PERFORM ekpodisplay_onalv.
      ELSE.
        MESSAGE i020(z50871msg) WITH text-013.
      ENDIF.
    WHEN 'SE16'.
      CALL TRANSACTION 'SE16'.
    WHEN 'SE37'.
      CALL TRANSACTION 'SE37'.
    WHEN 'DISP'.
      PERFORM get_popupdata.
      PERFORM get_popupfcat.
      PERFORM display_popup.
  ENDCASE.
ENDFORM.                                            "AT_user_command
*&      Form  TOP_OF_PAGE
FORM top_of_page.
  REFRESH it_listheadr.
  wa_listheadr-typ = 'H'.
  wa_listheadr-info = text-001.
  APPEND wa_listheadr TO it_listheadr.
  CLEAR wa_listheadr.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheadr[]
      i_logo             = 'ENJOYSAP_LOGO'.    "From OAER transaction
ENDFORM.                    "TOP_OF_PAGE
*&      Form  build_print_params
FORM build_print_params.
  st_printparams-reserve_lines = '3'.               "Lines reserved for footer
  st_printparams-no_coverpage = 'X'.
ENDFORM.                    "build_print_params
*&      Form  end_of_page
FORM end_of_page.
  REFRESH it_listheadr.
  wa_listheadr-typ = 'H'.
  wa_listheadr-info = sy-pagno.
  APPEND wa_listheadr TO it_listheadr.
  CLEAR wa_listheadr.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheadr[].
ENDFORM.                                            "end_of_page
*&      Form  GET_EKPOSORTINFO
FORM get_ekposortinfo.
  wa_ekposortinfo-up = 'X'.
  wa_ekposortinfo-spos = 1.
  wa_ekposortinfo-fieldname = 'EBELP'.
  wa_ekposortinfo-tabname = 'EKPO'.
  APPEND wa_ekposortinfo TO it_ekposortinfo.
  CLEAR wa_ekposortinfo.
  wa_ekposortinfo-up = 'X'.
  wa_ekposortinfo-spos = 2.
  wa_ekposortinfo-fieldname = 'EMATN'.
  wa_ekposortinfo-tabname = 'EKPO'.
  APPEND wa_ekposortinfo TO it_ekposortinfo.
  CLEAR wa_ekposortinfo.
ENDFORM.                                           "GET_EKPOSORTINFO
*&      Form  POPULATE_LAYOUT
FORM populate_layout.
  wa_layout-colwidth_optimize = 'X'.               "column width
  wa_layout-zebra = 'X'.
wa_layout-no_hline = 'X'.
wa_layout-no_vline = 'X'.
wa_layout-cell_merge = 'X'.
  wa_layout-box_fieldname = 'CHECK'.
  wa_layout-box_tabname = 'IT_EKKO'.
  wa_layout-window_titlebar = 'PURCHASE ORDER HEADER DETAILS'.
ENDFORM.                                         "POPULATE_LAYOUT
*&      Form  get_EKKOsortinfo
FORM get_ekkosortinfo.
  wa_sortinfo-up = 'X'.
  wa_sortinfo-spos = 1.
  wa_sortinfo-fieldname = 'EBELN'.
  wa_sortinfo-tabname = 'EKKO'.
  APPEND wa_sortinfo TO it_sortinfo.
  CLEAR wa_sortinfo.
  wa_sortinfo-up = 'X'.
  wa_sortinfo-spos = 2.
  wa_sortinfo-fieldname = 'BSTYP'.
  wa_sortinfo-tabname = 'EKKO'.
  APPEND wa_sortinfo TO it_sortinfo.
  CLEAR wa_sortinfo.
  wa_sortinfo-up = 'X'.
  wa_sortinfo-spos = 3.
  wa_sortinfo-fieldname = 'AEDAT'.
  wa_sortinfo-tabname = 'EKKO'.
  APPEND wa_sortinfo TO it_sortinfo.
  CLEAR wa_sortinfo.
ENDFORM.                                         "get_EKKOsortinfo
*&      Form  EKKODISPLAY_ONALV
FORM ekkodisplay_onalv.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'SET_PF_STATUS1'
      i_callback_user_command  = 'AT_USER_COMMAND'
      is_layout                = wa_layout
      it_fieldcat              = it_fieldcat
      it_sort                  = it_sortinfo[]
      it_filter                = it_filter
      it_events                = it_events[]
    TABLES
      t_outtab                 = it_ekko[]
    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.                                            "EKKODISPLAY_ONALV
*&      Form  validate_ebeln
FORM validate_ebeln.
  SELECT  ebeln
      FROM ekpo
      INTO TABLE it_ebeln
      WHERE ebeln IN so_ebeln.
  IF sy-subrc NE 0.
    MESSAGE e020(z50871msg) WITH text-014.
  ENDIF.
ENDFORM.                                           "validate_ebeln
*&      Form  populate_layout2
FORM populate_layout2 .
  CLEAR wa_layout.
  wa_layout-colwidth_optimize = 'X'.               "column width
wa_layout-zebra = 'X'.
wa_layout-no_hline = 'X'.
wa_layout-no_vline = 'X'.
wa_layout-cell_merge = 'X'.
  wa_layout-window_titlebar = 'PURCHASE ORDER DETAILS SECOND SCREEN'.
ENDFORM.                    " populate_layout2
*&      Form  GET_POPUPDATA
FORM get_popupdata .
  LOOP AT it_ekko INTO wa_ekko WHERE check = 'X'.
    READ TABLE it_eine INTO wa_eine WITH KEY ebeln = wa_ekko-ebeln.
    IF sy-subrc NE 0.
      MESSAGE i020(z50871msg) WITH text-015 wa_ekko-ebeln .
    ELSE.
      wa_popup-ebeln = wa_eine-ebeln.
      wa_popup-ekorg = wa_eine-ekorg.
      wa_popup-ekgrp = wa_eine-ekgrp.
      APPEND wa_popup TO it_popup.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " GET_POPUPDATA
*&      Form  GET_POPUPFCAT
FORM get_popupfcat .
  CLEAR wa_fieldcat.
  REFRESH it_fieldcat.
  wa_fieldcat-fieldname = 'EBELN'.
  wa_fieldcat-seltext_l = text-004.
  wa_fieldcat-hotspot   = 'X'.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'EKORG'.
  wa_fieldcat-seltext_l = text-016.
  APPEND wa_fieldcat TO it_fieldcat.
  wa_fieldcat-fieldname = 'EKGRP'.
  wa_fieldcat-seltext_l = text-017.
  APPEND wa_fieldcat TO it_fieldcat.
ENDFORM.                    " GET_POPUPFCAT
*&      Form  DISPLAY_POPUP
FORM display_popup .
  LOOP AT it_ekko INTO wa_ekko WHERE check EQ 'X'.
    wa_check-check = wa_ekko-check.
    APPEND wa_check TO it_check.
  ENDLOOP.
  IF it_check[] IS INITIAL.
    MESSAGE i020(z50871msg) WITH text-018.
  ENDIF.
  IF NOT it_popup[] IS INITIAL.
    CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
      EXPORTING
        i_title              = text-003
        i_allow_no_selection = 'X'
        i_scroll_to_sel_line = 'X'
        i_tabname            = 'IT_POPUP'
        it_fieldcat          = it_fieldcat
        i_callback_program   = sy-repid
      TABLES
        t_outtab             = it_popup
      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.
  ENDIF.
  REFRESH it_check.
  REFRESH it_popup.
ENDFORM.                    " DISPLAY_POPUP
*&      Form  get_ekko_data
FORM get_ekko_data .
  SELECT ebeln bstyp bsart aedat ernam
      FROM ekko
      INTO CORRESPONDING FIELDS OF TABLE it_ekko
     WHERE ebeln IN so_ebeln.
  IF sy-subrc NE 0.
    MESSAGE e020(z50871msg) WITH text-019.
  ENDIF.
ENDFORM.                    " get_ekko_data
*&      Form  get_eine_data
FORM get_eine_data .
  SELECT ebeln  ekorg ekgrp
    FROM eine
    INTO TABLE it_eine
   WHERE ebeln IN so_ebeln.
ENDFORM.                    " get_eine_data
*&      Form  at_user_command1
FORM at_user_command1  USING r_ucomm LIKE sy-ucomm
                         rs_selfield TYPE slis_selfield.
    CASE r_ucomm.
    WHEN 'SE16'.
      CALL TRANSACTION 'SE16'.
    WHEN 'SE37'.
      CALL TRANSACTION 'SE37'.
  ENDCASE.
ENDFORM.                    "at_user_command1
Regards
Sandeep Reddy