ABAP code sample to show number of pages

The code below shows how to display the total number of pages in a report like "Page 1 of 8."

\ Sudarshan's Main Page / \ sudarshan-karkada@hlp.com / \ skarkada@aol.com /

Program Sample

REPORT YPAGECOUNT NO STANDARD PAGE HEADING LINE-COUNT 65.
    DATA L_PAGE_COUNT(5) TYPE C.

TOP-OF-PAGE.
    WRITE: /(70) 'Heading' CENTERED, 70 SY-PAGNO,'of ', '-----'.
    ULINE.

START-OF-SELECTION.
*   Real list output takes place here
    DO 300 TIMES.
        WRITE: / 'Line #', SY-LINNO.
    ENDDO.

*   Page count will be printed on each page here
    WRITE SY-PAGNO TO L_PAGE_COUNT LEFT-JUSTIFIED.
    DO SY-PAGNO TIMES.
        READ LINE 1 OF PAGE SY-INDEX.
        REPLACE '-----' WITH L_PAGE_COUNT INTO SY-LISEL.
        MODIFY CURRENT LINE.
    ENDDO.