Code Snippet for Table Control Page Up, Page Down, Last Page and First Page

Step1. program with the source code.

TYPES : BEGIN OF ty_val,
val1 TYPE i,
val11 TYPE i,
END OF ty_val.

DATA : lt_val TYPE TABLE OF ty_val,
ls_val TYPE ty_val,
tl_line TYPE i,
sl_line TYPE i,
rm_line TYPE i.
CONTROLS : tc TYPE TABLEVIEW USING SCREEN 2000.

MODULE status_2000 OUTPUT.
SET PF-STATUS 'STA-2000'.
DESCRIBE TABLE lt_val LINES tl_line.
IF tl_line IS INITIAL.
DO 35 TIMES.
ls_val-val1 = sy-index.
ls_val-val11 = SY-INDEX * sy-index.
INSERT ls_val INTO lt_val INDEX sy-index.
ENDDO.
ENDIF.
ENDMODULE. " status_2000 OUTPUT

MODULE tab_line OUTPUT.
sl_line = sy-loopc. " Sy-loopc = number of visible lines in the table control
ENDMODULE. " tab_line OUTPUT

MODULE scrool_table INPUT.
CASE sy-ucomm.
  WHEN 'TOP'.
tc-top_line = 1.     " when first page, make top line as 1.
  WHEN 'BOTTOM'.
tc-top_line = tc-lines - sl_line + 1. " when last page display last set of records
  WHEN 'UP'.
IF tc-top_line GT sl_line. " When previous page requested, if top line is grater than visible line,
tc-top_line = tc-top_line - sl_line. " make top line as top line minus visible line else make top line "as 1.
ELSE.
tc-top_line = 1.
ENDIF.
  WHEN 'DOWN'.
rm_line = tc-lines - sl_line. " when next page, remaining line = total lines - visible lines in the
IF tc-top_line LT rm_line. " table control if current line less than the remaining line , then shift the tc-top_line = tc-top_line + sl_line. " table control lineto the next set of visible line
ENDIF.

ENDCASE.
ENDMODULE.
--------------------------------------------------------------------------------------------------------------------------
Step2. Here if the pf status.