How to make the Page UP and down work on a table control screen?

Question

Dear all,
Can some one suggest how to make the table control screen work with Page Up and Page down controls.
when I press on Page down it works for the first time and after that i need to select the table to make it work the second time. it there a way I can make the index on the screen stay on the table control at all times.
Regard,
Vj

Answer 1

Take this code as a referance:
Sample code for vertical scrolling in PAI processing will look like this:
MODULE user_command_XXXX INPUT. (XXXX is screen no.)
  CASE ok_code.
    WHEN 'P--'.
      CLEAR ok_code.
      PERFORM paging USING 'P--'.
    WHEN 'P-'.
      CLEAR ok_code.
      PERFORM paging USING 'P-'.
    WHEN 'P+'.
      CLEAR ok_code.
      PERFORM paging USING 'P+'.
    WHEN 'P++'.
      CLEAR ok_code.
      PERFORM paging USING 'P++'.
*&      Form  PAGING
*       Form to do scrolling for screen XXXX
*      -->CODE   OKCODE value (P--, P-, P+, P++ )
FORM paging USING code.
  DATA: i TYPE i,
        j TYPE i.
  CASE code.
    WHEN 'P--'. <table control name>-top_line = 1.
    WHEN 'P-'.
      <table control name>-top_line =
              <table control name>-top_line - line_count.
      IF <table control name>-top_line LE 0.
        <table control name>-top_line = 1.
      ENDIF.
    WHEN 'P+'.
      i = <table control name>-top_line + line_count.
      j = <table control name>-lines - line_count + 1.
      IF j LE 0. j = 1. ENDIF.
      IF i LE j.
        <table control name>-top_line = i.
      ELSE.
        <table control name>-top_line = j.
      ENDIF.
    WHEN 'P++'.
      <table control name>-top_line =
             <table control name>-lines - line_count + 1.
      IF <table control name>-top_line LE 0.
        <table control name>-top_line = 1.
      ENDIF.
  ENDCASE.
ENDFORM.                               " PAGING
Regards,
Ravi