Top-of-page event is not triggered

Question

Hi,
I have a problem with top-of-page event. I have a report that shows the results in ALV grid display. But I use "REUSE_ALV_GRID_DISPLAY" not OO alv and there is only one screen with number 1000. On the menu toolbar there is a button that prints the data of ALV in a list using "write" statement. While writing , "top of page" event is not triggered. I expect that it is triggered at the first "write" statement but isn't. Is there anyone who knows the cause of this problem?
The code is below.
Thanks.
Tables ...
TABLES : mara , makt , ekko , ekpo , zzith_yukh , lfa1 , t001w  , lips ,
         eket .
global variables
DATA : BEGIN OF list OCCURS 1,
       zztahsk LIKE ekko-zztahsk ,
       zterm LIKE ekko-zterm ,
       txz01 LIKE ekpo-txz01 ,
       name1 LIKE lfa1-name1 ,
       menge LIKE ekpo-menge ,
       meins LIKE ekpo-meins ,
       fyukl LIKE zzith_yukh-zzdel_flag ,
                         " Yüklenmiş miktar var göstergesi ...
       inco1 LIKE ekko-inco1 ,
       netwr LIKE ekpo-netwr ,
       waers LIKE ekko-waers ,
       bedat LIKE ekko-bedat ,
       zzontar LIKE ekko-zzontar ,
       slfdt LIKE eket-slfdt ,
       tname1 LIKE t001w-name1 ,
       banfn LIKE ekpo-banfn ,
       ebeln LIKE ekko-ebeln ,
       ebelp LIKE ekpo-ebelp ,
       lifnr LIKE ekko-lifnr ,
       mtart LIKE mara-mtart ,
       matkl LIKE mara-matkl ,
       ekgrp LIKE ekko-ekgrp ,
       matnr LIKE mara-matnr ,
       eknam  LIKE t024-eknam,
       bukrs  LIKE ekko-bukrs,
       zzbltur LIKE ekko-zzbltur,
       END   OF list         .
DATA temp  LIKE list OCCURS 1 WITH HEADER LINE .
DATA total LIKE list OCCURS 1 WITH HEADER LINE .
ALV fields
TYPE-POOLS : slis.
DATA : gt_fields TYPE  slis_fieldcat_alv OCCURS 1 WITH HEADER LINE .
DATA : gt_events TYPE  slis_t_event.
DATA : gs_layout TYPE  slis_layout_alv.
DATA : gv_title  TYPE lvc_title VALUE 'Günlük Depo Sayım Miktarları'.
DATA : gt_top_of_page TYPE slis_t_listheader.
selection screen
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001 .
*Satınalma organizasyonu
*Satınalma grubu
*Satıcı
*Tarih
*SAS no
*Dosya no
SELECT-OPTIONS:
s_bukrs FOR ekko-bukrs .
SELECTION-SCREEN SKIP .
SELECT-OPTIONS:
s_ekorg FOR  ekko-ekorg OBLIGATORY MEMORY ID eko ,
s_ekgrp FOR  ekko-ekgrp ,
s_lifnr FOR  ekko-lifnr ,
s_ebeln FOR  ekko-ebeln .
SELECTION-SCREEN END  OF BLOCK a        .
Define Katalog
DEFINE fill_catalog .
  gt_fields-fieldname  = &1.
  gt_fields-tabname    = &2.
  gt_fields-seltext_l  = &3.
  gt_fields-seltext_m  = &3.
  gt_fields-seltext_s  = &3.
  gt_fields-checkbox   = &4.
  gt_fields-cfieldname = &5.
  gt_fields-ref_tabname  = &6.
  gt_fields-ref_fieldname  = &7.
  gt_fields-edit       = &8.
  append gt_fields .
  clear gt_fields .
END-OF-DEFINITION.
Modify Catalog
DEFINE modify_catalog .
  gt_fields-seltext_m = &1 .
  modify gt_fields  transporting seltext_m where fieldname = &2 .
END-OF-DEFINITION     .
TOP-OF-PAGE.
  write 'top of page'.
  PERFORM top-of-page.
start-of-selection
START-OF-SELECTION .
  PERFORM get_data.
  PERFORM listele .
*&      Form  listele .
FORM listele .
  PERFORM get_events .
  PERFORM alv_list_header.
  PERFORM get_field_catalog USING 'LIST' .
  PERFORM display_alv    .
ENDFORM.                    " listele.
*&      Form  getfield_Catalog
FORM get_field_catalog  USING p_tabname .
  fill_catalog :
'EBELN'   'LIST' '' '' '' 'EKPO' 'EBELN'   '' ,
'ZZTAHSK' 'LIST' '' '' '' 'EKKO' 'ZZTAHSK' '' ,
'ZZBLTUR' 'LIST' '' '' '' 'EKKO' 'ZZBLTUR' '' ,
'MATNR'   'LIST' '' '' '' 'MARA' 'MATNR'   '' ,
'MATKL'   'LIST' '' '' '' 'MARA' 'MATKL'   '' ,
'TXZ01'   'LIST' '' '' '' 'EKPO' 'TXZ01'   '' ,
'NAME1'   'LIST' '' '' '' 'LFA1' 'NAME1'   '' ,
'MENGE'   'LIST' '' '' '' 'EKPO' 'MENGE'   '' ,
'MEINS'   'LIST' '' '' '' 'EKPO' 'MENGE'   '' ,
'FYUKL'   'LIST' '' '' '' 'ZZITH_YUKH' 'ZZDEL_FLAG'   '' ,
'INCO1'   'LIST' '' '' '' 'EKKO' 'INCO1'   '' ,
'NETWR'   'LIST' '' '' '' 'EKPO' 'NETWR'   '' ,
'WAERS'   'LIST' '' '' '' 'EKKO' 'WAERS'   '' ,
'BEDAT'   'LIST' '' '' '' 'EKKO' 'BEDAT'   '' ,
'ZZONTAR' 'LIST' '' '' '' 'EKKO' 'ZZONTAR' '' ,
'SLFDT'   'LIST' '' '' '' 'EKET' 'SLFDT'   '' ,
'TNAME1'  'LIST' '' '' '' 'T001W' 'NAME1'  '' ,
'BANFN'   'LIST' '' '' '' 'EKPO' 'BANFN'   '' ,
'EKNAM'   'LIST' '' '' '' 'T024' 'EKNAM'   '' .
  gt_fields-ddictxt = 'M' .
  MODIFY gt_fields  TRANSPORTING ddictxt WHERE fieldname NE space.
  modify_catalog 'Yükleme No'            'VBELN'   .
  modify_catalog 'Malzeme Türü'          'ZZBLTUR' .
  modify_catalog 'Malzeme Tanımı'        'TXZ01'   .
  modify_catalog 'Satıcı'                'NAME1'   .
  modify_catalog 'Teslim Şekli'          'INCO1'   .
  modify_catalog 'Döviz Tutarı'          'ZZTOPLAM'.
  modify_catalog 'Döviz Kodu'            'WAERS'   .
  modify_catalog 'Siparişi Veren'        'TNAME1'  .
  modify_catalog 'Tahmini İthalat Trh.'  'SLFDT'   .
  modify_catalog 'İthalata İntikal Trh.' 'BEDAT'   .
  modify_catalog 'Dosya Onay Tarihi'     'ZZONTAR' .
  modify_catalog 'Talep No'              'BANFN'   .
  modify_catalog 'Dosya Sorumlusu'       'EKNAM'   .
  modify_catalog 'Yük.Göstergesi'        'FYUKL'   .
ENDFORM.                    " getfield_Catalog
*&      Form  display_alv
      text
-->  p1        text
<--  p2        text
FORM display_alv .
  DATA lv_repid LIKE sy-repid .
  lv_repid = sy-repid .
  CLEAR gs_layout.
  gs_layout-zebra                 = 'X'.
  gs_layout-colwidth_optimize     = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = lv_repid
      i_callback_pf_status_set = 'SET_PF_STATUS'
      i_callback_user_command  = 'USER_COMMAND'
      is_layout                = gs_layout
      it_fieldcat              = gt_fields[]
      it_events                = gt_events[]
    TABLES
      t_outtab                 = list[].
ENDFORM.                    " display_alv
FORM set_pf_status USING  iv_nodisplay TYPE slis_t_extab.
  SET PF-STATUS 'STANDARD' ."excluding iv_nodisplay.
ENDFORM.                    " SET_PF_STATUS
FORM user_command  USING iv_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
  CASE iv_ucomm .
    WHEN 'PRINT'  . PERFORM print_data .
  ENDCASE       .
ENDFORM.                    "USER_COMMAND
FORM get_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_top_of_page
                           INTO ls_event.
  IF sy-subrc = 0.
    MOVE 'ALV_TOP_OF_PAGE' TO ls_event-form.
    APPEND ls_event TO gt_events.
  ENDIF.
ENDFORM.                    " getevents
FORM alv_list_header .
  DATA: ls_line TYPE slis_listheader.
  CLEAR ls_line.
  ls_line-typ  = 'S'.
  ls_line-key  = 'Sat&#305;nalma Org.:'.
  CONCATENATE s_ekorg-low s_ekorg-high
  INTO ls_line-info SEPARATED BY '/'.
  APPEND ls_line TO gt_top_of_page.
  ls_line-key  = 'Sat&#305;nalma Grubu.:'.
  CONCATENATE s_ekgrp-low s_ekgrp-high
  INTO ls_line-info SEPARATED BY '/'.
  APPEND ls_line TO gt_top_of_page.
  ls_line-key  = 'Sat&#305;c&#305;.:'.
  CONCATENATE s_lifnr-low s_lifnr-high
  INTO ls_line-info SEPARATED BY '/'.
  APPEND ls_line TO gt_top_of_page.
  ls_line-key  = 'SAS No.:'.
  CONCATENATE s_ebeln-low s_ebeln-high
  INTO ls_line-info SEPARATED BY '/'.
  APPEND ls_line TO gt_top_of_page.
ENDFORM.                    " alv_list_header
FORM alv_top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
FORM get_data .
  DATA : BEGIN OF tr ,
          menge LIKE eket-menge ,
          dabmg LIKE eket-dabmg ,
         END OF tr ,
         zzfiilytar LIKE zzith_yukh-zzfiilytar  .
*- Get data ...
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE list
    FROM ekpo AS a
   INNER JOIN ekko AS b ON bebeln = aebeln
  WHERE b~ebeln IN s_ebeln AND
        b~bukrs IN s_bukrs AND
        b~loekz EQ space   AND
        b~lifnr IN s_lifnr AND
        b~ekorg IN s_ekorg AND
        b~ekgrp IN s_ekgrp AND
        a~loekz EQ space   AND
        a~elikz EQ space .
  LOOP AT list .
    CLEAR tr .
    SELECT menge dabmg
      INTO tr
      FROM eket
     WHERE ebeln = list-ebeln AND
           ebelp = list-ebelp.
      tr-menge = tr-menge - tr-dabmg .
    ENDSELECT.
    IF tr-menge LE 0 .
      DELETE list .
    ELSE .
      list-menge = tr-menge .
      IF tr-dabmg GT 0 .
        list-fyukl = '*' .
      ENDIF .
      SELECT SINGLE butxt INTO list-tname1 FROM t001
        WHERE bukrs = list-bukrs .
      SELECT SINGLE slfdt INTO list-slfdt FROM eket
      WHERE ebeln = list-ebeln AND
            ebelp = list-ebelp .
      SELECT SINGLE name1 INTO list-name1 FROM lfa1 WHERE lifnr = list-lifnr.
      SELECT SINGLE mtart matkl INTO (list-mtart,list-matkl)
      FROM mara WHERE matnr = list-matnr .
      SELECT SINGLE eknam INTO list-eknam FROM t024 WHERE ekgrp = list-ekgrp .
      MODIFY list .
    ENDIF .
  ENDLOOP      .
ENDFORM.                    " get_data
FORM print_data .
  LEAVE TO LIST-PROCESSING .
  NEW-PAGE NO-HEADING NO-TITLE LINE-SIZE 229 .
  SET PF-STATUS SPACE .
PERFORM top-of-page .
malzeme türü 1005 ler yazd&#305;r&#305;l&#305;r
  PERFORM yazdir_1005 .
malzeme türü 1005 olmayanlar yazd&#305;r&#305;l&#305;r
  PERFORM yazdir_ne_1005 .
Sat&#305;nalama gruplar&#305; bilgisi yazd&#305;r&#305;l&#305;r
  PERFORM yazdir_ekgrp .
ENDFORM.                    " print_data
FORM top-of-page .
  WRITE : 'ÜLKER GRUBU KONSOL&#304;DE' .
  WRITE AT 40 'Sevkiyat Bekleyen Malzemeler' COLOR COL_HEADING .
  WRITE :  180 sy-uname , sy-datum , sy-uzeit.
  NEW-LINE .
  ULINE 0(229) .
  WRITE :/2 'Rapor Kodu..............:' , (10) sy-tcode .
  WRITE :/2 'Sat&#305;nalma Organizasyonu.:' , (10) s_ekorg-low, '/', (10) s_ekorg-high .
  WRITE :/2 'Sat&#305;nalma Grubu.........:' , (10) s_ekgrp-low, '/', (10) s_ekgrp-high .
  WRITE :/2 'Sat&#305;c&#305;..................:' , (10) s_lifnr-low, '/', (10) s_lifnr-high .
  WRITE :/2 'Sat&#305;nalma Sipari&#351; No....:' , (10) s_ebeln-low, '/', (10) s_ebeln-high .
  NEW-LINE .
  ULINE 0(229) .
Ba&#351;l&#305;klar yaz&#305;l&#305;r
  FORMAT COLOR COL_HEADING .
  WRITE :
  /(10) 'SAS NO.' CENTERED,
  (6)  'TAHS&#304;S'  CENTERED,
  (5)  'ÖDEME'   CENTERED,
  (5)  'Bel.T'   CENTERED,
  (25) 'MALZEME' CENTERED,
  (25) 'SATICI' CENTERED,
  (12) 'M&#304;KTAR' CENTERED,
  (3)  'BRM' CENTERED,
  (3)  'G' ,
  (7) 'TES.&#350;K.' CENTERED,
  (16) 'DÖV&#304;Z TUTARI' CENTERED,
  (3)  'DB.' CENTERED,
  (13) '&#304;TH.&#304;NTK.TRH.' CENTERED,
  (13) 'DOSYA ON.TRH.' CENTERED,
  (10) 'TAHM&#304;N.&#304;TH.TRH.' CENTERED,
  (20) 'S&#304;PAR&#304;&#350; VEREN' CENTERED,
  (10) 'TALEP NO.' CENTERED,
  (18) 'DOSYA SORUMLUSU' CENTERED.
  ULINE 0(229) .
  FORMAT RESET .
ENDFORM.                    " top-of-page
FORM yazdir_1005 .
  DATA ebeln LIKE list-ebeln  .
  SORT list BY zzbltur matnr .
  temp[] = list[] .
  DELETE temp WHERE mtart <> '1005' .
  LOOP AT list WHERE mtart = '1005' .
    CLEAR list-netwr .
    IF ebeln NE list-ebeln OR ebeln EQ space .
      REFRESH total . CLEAR total .
      ebeln = list-ebeln .
      LOOP AT temp WHERE ebeln = list-ebeln .
        list-netwr = list-netwr + temp-netwr  .
        CLEAR total .
        total-txz01 = '*** TKNK.MLZ. TOPLAMI ****' .
        total-meins = temp-meins .
        total-menge = temp-menge .
        COLLECT total .
      ENDLOOP                               .
      PERFORM write_list USING '1'  .
      LOOP AT total .
        PERFORM write_list USING '2'  .
      ENDLOOP .
      AT END OF zzbltur .
        ULINE 0(229) .
      ENDAT .
    ENDIF .
  ENDLOOP .
ENDFORM.                    " yazdir_1005
FORM write_list  USING    flag .
flag 1 1005 için yazd&#305;rma
flag 2 ise ara toplam
  IF flag = '1' .
   FORMAT COLOR COL_NORMAL .
    WRITE :
    /(10) list-ebeln ,
     (6)  list-zztahsk,
     (5)  list-zterm,
     (5)  list-zzbltur ,
     (25) list-txz01,
     (25) list-name1,
     (12) list-menge,
     (3)  list-meins,
     (3)  list-fyukl,
     (7)  list-inco1,
     (16) list-netwr,
     (3)  list-waers,
     (13) list-bedat,
     (13) list-zzontar,
     (10) list-slfdt ,
     (20) list-tname1,
     (10) list-banfn ,
     (18) list-eknam .
    FORMAT RESET .
  ELSEIF flag = '2'  .
   FORMAT COLOR COL_TOTAL .
    WRITE :
    /(10) '' ,
     (6)  '' ,
     (5)  '' ,
     (5)  '' ,
     (25) total-txz01,
     (25) '' ,
     (12) total-menge,
     (3)  total-meins,
     (3)  '' ,
     (7)  '' ,
     (16) '' ,
     (3)  '' ,
     (13) '' ,
     (13) '' ,
     (10) '' ,
     (20) '' ,
     (10) '' ,
     (18) '' .
    FORMAT RESET .
  ELSEIF flag = '3'  .
   FORMAT COLOR COL_TOTAL .
    WRITE :
   /(10) '' ,
    (6)  '' ,
    (5)  '' ,
    (5)  '' ,
    (25) total-txz01,
    (25) '' ,
    (12) total-menge,
    (3)  '' ,
    (3)  '' ,
    (7)  '' ,
    (16) total-netwr ,
    (3)  '' ,
    (13) '' ,
    (13) '' ,
    (10) '' ,
    (20) '' ,
    (10) '' ,
    (18) '' .
    FORMAT RESET .
  ENDIF .
ENDFORM.                    " write_list
FORM yazdir_ne_1005 .
  DATA matnr LIKE list-matnr .
  SORT list BY zzbltur matkl matnr .
  temp[] = list[] .
  DELETE temp WHERE mtart = '1005' .
  LOOP AT list WHERE mtart <> '1005' .
Her yeni Malzeme için ara toplam yaz&#305;l&#305;r
    IF matnr NE list-matnr AND matnr NE space .
       REFRESH total . CLEAR total .
Toplamlar al&#305;n&#305;r
      LOOP AT temp WHERE matnr = matnr .
        CLEAR total .
        total-netwr = temp-netwr  .
        total-menge = temp-menge  .
        total-txz01 =  '***     TOPLAM        ****' .
        COLLECT total .
      ENDLOOP                          .
      LOOP AT total .               .
        PERFORM write_list USING '3'  .
      ENDLOOP                       .
      ULINE 0(229) .
    ENDIF                      .
    PERFORM write_list USING '1'  .
    matnr = list-matnr            .
  ENDLOOP                           .
Toplamlar al&#305;n&#305;r
  LOOP AT temp WHERE matnr = matnr .
    REFRESH total . CLEAR total .
    total-netwr = temp-netwr  .
    total-menge = temp-menge  .
    total-txz01 =  '***     TOPLAM        ****' .
    COLLECT total .
  ENDLOOP .
  LOOP AT total .
    PERFORM write_list USING '3'  .
  ENDLOOP       .
  ULINE 0(229)  .
ENDFORM.                    " yazdir_ne_1005
FORM yazdir_ekgrp .
  DATA: BEGIN OF total OCCURS 1 ,
        eknam LIKE list-eknam   ,
        zzbltur LIKE list-zzbltur ,
        sayi TYPE i ,
        END  OF  total          .
  DATA: BEGIN OF gtotal OCCURS 1 ,
        eknam LIKE list-eknam   ,
        zzbltur LIKE list-zzbltur ,
        sayi TYPE i ,
        END  OF  gtotal          .
  DATA: bltur LIKE zzith_bltur OCCURS 1 WITH HEADER LINE .
  DATA: len TYPE i  .
  DATA: wa LIKE total.
  REFRESH temp .
  SELECT * INTO TABLE bltur FROM zzith_bltur .
  CLEAR bltur .
  MOVE : 'ZZZZ'   TO bltur-zzbltur ,  " Sat&#305;r toplam&#305; için ...
         text-002 TO bltur-zztanim .
  APPEND bltur .
  CLEAR list   .
  SORT list BY eknam ebeln .
  DELETE ADJACENT DUPLICATES FROM list COMPARING eknam ebeln .
  LOOP AT list .
    CLEAR : total, gtotal .
    total-eknam = list-eknam .
    total-zzbltur = list-zzbltur .
    total-sayi  = 1 .
    COLLECT total   .
    total-eknam   = list-eknam .
    total-zzbltur = 'ZZZZ' .
    total-sayi  = 1 .
    COLLECT total   .
    gtotal-eknam = text-001 .
    gtotal-zzbltur = list-zzbltur .
    gtotal-sayi  = 1 .
    COLLECT gtotal   .
    gtotal-eknam = text-001 .
    gtotal-zzbltur = 'ZZZZ' .
    gtotal-sayi  = 1 .
    COLLECT gtotal   .
  ENDLOOP      .
  FORMAT COLOR COL_HEADING.
  ULINE AT /1(145).
  WRITE :/
  sy-vline , (15) 'Dosya Sorumlusu' , sy-vline .
  LOOP AT bltur .
    WRITE :(15) bltur-zztanim  , sy-vline .
  ENDLOOP  .
  ULINE AT /1(145).
  FORMAT RESET   .
  total-zzbltur = '0001' .
  MODIFY total TRANSPORTING zzbltur WHERE zzbltur = space .
  gtotal-zzbltur = '0001' .
  MODIFY gtotal TRANSPORTING zzbltur WHERE zzbltur = space .
  SORT total BY eknam .
  LOOP AT total  .
    AT NEW eknam .
      WRITE :/
      sy-vline , (15) total-eknam COLOR COL_HEADING ,
      sy-vline .
      LOOP AT bltur   .
        len = sy-tabix * 18 .
        len = len + 3 .
        CLEAR wa .
        READ TABLE total INTO wa WITH KEY zzbltur = bltur-zzbltur
                                          eknam   = total-eknam .
        WRITE AT len(15) wa-sayi NO-ZERO.
        WRITE sy-vline .
      ENDLOOP    .
    ENDAT      .
  ENDLOOP .
  LOOP AT gtotal  .
    AT NEW eknam .
      FORMAT COLOR COL_TOTAL .
      WRITE :/
      sy-vline , (15) gtotal-eknam ,
      sy-vline .
      LOOP AT bltur   .
        len = sy-tabix * 18 .
        len = len + 3 .
        CLEAR wa .
        READ TABLE gtotal INTO wa WITH KEY zzbltur = bltur-zzbltur
                                           eknam   = text-001    .
        WRITE AT len(15) wa-sayi NO-ZERO.
        WRITE sy-vline .
      ENDLOOP    .
    ENDAT      .
  ENDLOOP .
  ULINE AT /1(145).
  FORMAT RESET .
ENDFORM.                    " yazdir_ekgrp

Answer 1

Hi,
In the function  use the top-of-page event as follows:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
                I_BYPASSING_BUFFER          =
                I_BUFFER_ACTIVE             =
                I_INTERFACE_CHECK           = ' '
             I_CALLBACK_PROGRAM          = 'ZRPMSLM'
                I_CALLBACK_PF_STATUS_SET    = ' '
                I_CALLBACK_USER_COMMAND     = ' '
           <b>  I_CALLBACK_TOP_OF_PAGE      = 'TOP'</b>
Define whatever to appear in top-of page in a subroutine named TOP.
Hope this helps.
Reward if helpful.
Regards,
Sipra