Can anyone help me with this question?

Question

hi experts
Now I am writing a report and I have to get the number of how many pages is going to be displayed.
How can I know this? I know there is a system variantsy-pagnocontains the current page number, but is there any variant that can tell me how many pages are there?
many thanks...

Answer 1

REPORT Y_WA no standard page heading line-count 60(5).
data: v_totpage type i.
data: v_temp(3) type c.
Start-of-selection.
do 100 times.
write:/ sy-index.
enddo.
end-of-selection.
v_temp = v_totpage.
do v_totpage times.
read line 1 of page sy-index.
replace '@@@' in sy-lisel with v_temp.
modify line 1 of page sy-index.
enddo.
top-of-page.
write:/60 'page', sy-pagno, '/','@@@'.
v_totpage = sy-pagno.
Here is a sample:
zlines number of lines in the table
sy-srows number of lines in screen
sy-cpage current page
zpages total number of pages type i
temp temporary number type f
describe table itab lines zlines.
temp = zlines / sy-srows.
zpages = trunc( temp ).
temp = frac( temp ).
if temp > 0.
zpages = zpages + 1.
endif.
zpages is the number of pages
write: /'Page ',sy-cpage, ' of ', zpages.