|
*&---------------------------------------------------------------------*
*& Form replace_totalpage
*&---------------------------------------------------------------------*
FORM replace_totalpage .
* move sy-pagno to pTotal.
pRELTotal = sy-pagno.
do sy-pagno times.
* Read Line 3 of page sy-index.
Read Line 5 of page page_cnt.
REPLACE ALL OCCURRENCES OF '0000' IN pRELTotal WITH ' '.
REPLACE ALL OCCURRENCES OF '000' IN pRELTotal WITH ' '.
replace '_P1_' with pRELTotal into sy-Lisel.
modify current Line.
page_cnt = page_cnt + 1.
enddo.
ENDFORM. "
| 
