Page number not printing on last page

Question

Hi all,
I am ablt to print the total no of pages  in all pages ecept the last page.
whats wromg in my code ?
REPORT  ZDEMO_EOF NO STANDARD PAGE HEADING LINE-SIZE 100 line-count 27(2).
types: BEGIN OF t_mara,
        matnr TYPE mara-matnr,
        ernam type mara-ernam,
       end of t_mara.
data: itab TYPE TABLE OF t_mara,
      wa TYPE t_mara.
select matnr ernam FROM mara INTO TABLE itab
  WHERE matnr BETWEEN '000000000000000001' and '000000000000000777'.
  sort itab by matnr.
  delete itab WHERE matnr is INITIAL.
  LOOP AT itab INTO wa .
    WRITE:/ sy-tabix,'!', wa-matnr, wa-ernam.
  ENDLOOP.
  data: v TYPE n.
  v = sy-linct - sy-linno.
  skip v.
end-OF-PAGE.
  data: zline type i,
        temp TYPE f,
        zpages TYPE i,
        temp1 TYPE i.
  CLEAR: zline,temp,zpages,temp1.
DESCRIBE TABLE itab LINES zline.
temp = zline / sy-srows.
zpages = TRUNC( temp ).
temp1 = FRAC( temp ).
if temp1 > 0.
zpages = zpages + 1.
endif.
write: /'Page ',sy-pagno, ' of ', zpages RIGHT-JUSTIFIED.
Thanks in advance
krupali

Answer 1

hi ,
TYPES: BEGIN OF t_mara,
matnr TYPE mara-matnr,
ernam TYPE mara-ernam,
END OF t_mara.
DATA: itab TYPE TABLE OF t_mara,
wa TYPE t_mara.
SELECT matnr ernam FROM mara INTO TABLE itab
WHERE matnr BETWEEN '000000000000000001' AND '000000000000000777'.
SORT itab BY matnr.
DELETE itab WHERE matnr IS INITIAL.
DATA: v TYPE i.
v = sy-linct - sy-linno.
LOOP AT itab INTO wa .
  WRITE:/ sy-tabix,'!', wa-matnr, wa-ernam.
ENDLOOP.
RESERVE v LINES.  "-----> reserve lines
*SKIP v.
END-OF-PAGE.
  DATA: zline TYPE i,
  temp TYPE f,
  zpages TYPE i,
  temp1 TYPE i.
  CLEAR: zline,temp,zpages,temp1.
  DESCRIBE TABLE itab LINES zline.
  temp = zline / sy-srows.
  zpages = TRUNC( temp ).
  temp1 = FRAC( temp ).
  IF temp1 > 0.
    zpages = zpages + 1.
  ENDIF.
  WRITE: /'Page ',sy-pagno, ' of ', zpages RIGHT-JUSTIFIED.
Thanks & Regards