Top of Page & End of Page Example

Sayfa sayfa bir liste getirmek istiyorsanız, ve listelerin başına ve sonuna header koymak istiyorsanız;
Önce herbir listenin kaplayacağı alan için bir yer ayırmanız gerekir. Buradaki örnekte 5 satır ayrılmış, buna Initialization, Page header ve Page foother da dahil.


*------------------------------------------------
REPORT  ZTRAIN_NES1 NO STANDARD PAGE HEADING LINE-COUNT 5(1).

TABLES: VBAK,
        VBAP.

DATA: BEGIN OF IT_VBAK OCCURS 10,
      VBELN LIKE VBAK-VBELN,
    END OF IT_VBAK.


INITIALIZATION.
  WRITE :/ 'THIS IS INITIALIZATION'.

TOP-OF-PAGE.
  WRITE:/ 'THIS IS TOP OF PAGE'.

  END-OF-PAGE .
  WRITE:/ 'THS IS THE END OF PAGE'.

START-OF-SELECTION.
   SELECT
      VBELN
      FROM VBAK  INTO TABLE IT_VBAK
      IF SY-SUBRC <> 0 .
      WRITE: 'NO DATA FOUND'.
      ELSE .
        LOOP AT IT_VBAK.
          WRITE :/ IT_VBAK-VBELN.
        ENDLOOP.
      ENDIF.
 END-OF-SELECTION.