Display the total number of pages in report

• 
• 

Details

Category: ABAP

Published on Saturday, 25 April 2009 19:02

Written by Anon

Hits: 5132

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

TOP-OF-PAGE.
    WRITE: /(70) 'Heading/Tests by Prem' 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.

• < Prev
• Next >