Gesamtseitenzahl in einer Liste

Die Anzahl der ausgegebenen Seiten können — anders als bei SAP-Skript oder Smartforms — erst am Ende der Liste ermittelt werden. Mit einem kleinen Trick kann die Gesamtseitenzahl jedoch in den Listenkopf integriert werden.

Die Ausgabe einer Gesamtseitenzahl ist in Listen nicht vorgesehen… Mit diesem Coding klappt es trotzdem:

Coding

REPORT zztotalpages
*** Damit eine eigener Seitnkopf definiert werden kann, darf die Liste 
*** keinen Standard-Seitenkopf bekommen:
       NO STANDARD PAGE HEADING LINE-COUNT 30.

*** Datendeklaration
DATA lv_total_pages TYPE i.
DATA lv_page(3)     TYPE c.

START-OF-SELECTION.
*** Ausgabe einer Dummy-Liste
  DO 100 TIMES.
    WRITE:/ sy-index.
  ENDDO.

END-OF-SELECTION.

*** Platzhalter durch Gesamtseitenzahl ersetzen
  lv_page = lv_total_pages.
  DO lv_total_pages TIMES.
    READ LINE 1 OF PAGE sy-index.
*** Platzhalter ersetzen
    REPLACE ‘@@@’ IN sy-lisel WITH lv_page.
    MODIFY LINE 1 OF PAGE sy-index.
  ENDDO.

TOP-OF-PAGE.
*** eigener Seitenkopf
  WRITE:/60 ‘Seite’, sy-pagno, ‘/’,’@@@’.
*** Gesamtseitenzahl merken
  lv_total_pages = sy-pagno.

Dank an Nitin Jameel

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024
• 4. December: Only a lazy developer is a good developer - 4. Dezember 2024