Last_page button is not working in table control-urgent

Question

hi  all,
iam displaying the data in table control.in my pf-status i have first_page,next_page,prev_page and last_page.out of 4 buttons 3 buttons are working finr except last_page. any body can send me the code for this program.iam sending my program below.
REPORT ZMAHI_TABLE_CONTROL .
TABLES : VBAK,VBAP.
DATA : BEGIN OF ITAB OCCURS 0,
         VBELN TYPE VBAK-VBELN,
         ERDAT TYPE VBAK-ERDAT,
         ERNAM TYPE VBAK-ERNAM,
         ERZET TYPE VBAK-ERZET,
         REASON(40) TYPE C,
       END OF ITAB.
DATA :   FILL TYPE I VALUE 1.
DATA : N TYPE I .
DATA      : BEGIN OF XVALUES OCCURS 50,
              BUTXT LIKE  T001-BUTXT,
            END OF XVALUES.
DATA      : BEGIN OF XFIELDS OCCURS 50.
        INCLUDE STRUCTURE HELP_VALUE.
DATA      : END OF XFIELDS.
DATA      : BEGIN OF SEL_VAL OCCURS 50.
        INCLUDE STRUCTURE HELP_VTAB.
DATA      : END OF SEL_VAL.
TABLE CONTROL DECLARATIONS------
CONTROLS : CONTROL_DATA TYPE TABLEVIEW USING  SCREEN '100'.
DATA : OK_CODE TYPE SY-UCOMM,
LIN TYPE I,
LIN1 TYPE I,
LIN2 TYPE I,
LIN3 TYPE I.
DATA: LINES TYPE I,
      LIMIT TYPE I VALUE 1.
DATA :   LINE_COUNT       TYPE  I,
         LINEI            TYPE  I,
         LINEJ            TYPE  I,
         LINE1            TYPE  I,
         LINE2            TYPE  I,
         LN1              TYPE  I.
SELECTION-SCREEN : BEGIN OF BLOCK B1.
SELECT-OPTIONS   : P_VBELN FOR VBAK-VBELN.
SELECTION-SCREEN : END OF BLOCK B1.
START-OF-SELECTION.
  SELECT VBELN
         ERDAT
         ERNAM
         ERZET
    FROM VBAK
    INTO TABLE ITAB
  WHERE VBELN IN P_VBELN.
  CALL SCREEN 100.
*&      Module  F4_HELP  INPUT
MODULE F4_HELP INPUT.
  FREE  :  XFIELDS,SEL_VAL,XVALUES.
  MOVE : 'ZMAHI'     TO XFIELDS-TABNAME,
         'REASON'    TO XFIELDS-FIELDNAME,
         'X'        TO XFIELDS-SELECTFLAG.
  APPEND XFIELDS.
  XVALUES = 'Non Trade F&F'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Retention'.
  APPEND XVALUES .
  XVALUES = 'Oldbills Accnt cntmnt'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Not claimed'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Dispute'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Payment Block'.
  APPEND XVALUES .
  XVALUES = 'N/T Subsntly Cleared'.
  APPEND XVALUES .
  XVALUES = 'N/T Unstld Advances'.
  APPEND XVALUES .
  XVALUES = 'N/T OThers'.
  APPEND XVALUES .
  XVALUES = 'Trade Non Receipt OF BOE'.
  APPEND XVALUES .
  XVALUES = 'Trade OEM Adjustments'.
  APPEND XVALUES .
  XVALUES = 'Trade Reject Of Material'.
  APPEND XVALUES .
  XVALUES = 'Trade NOt Claimed'.
  APPEND XVALUES .
  XVALUES = 'Trade Dispute'.
  APPEND XVALUES .
  XVALUES = 'Trade Payment BLock'.
  APPEND XVALUES .
  XVALUES = 'Trade Subsntly Cleared'.
  APPEND XVALUES .
  XVALUES = 'Trade Non Submission of bills'.
  APPEND XVALUES .
  XVALUES = 'Trade others'.
  APPEND XVALUES .
  CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT'
       EXPORTING
            CUCOL         = 0
            CUROW         = 0
            DISPLAY       = ' '
            FIELDNAME     = 'REASON'
            TABNAME       = 'ZIFIOD011'
       IMPORTING
            SELECT_VALUE  = ITAB-REASON
       TABLES
            FIELDS        = XFIELDS
            SELECT_VALUES = SEL_VAL
            VALUETAB      = XVALUES.
ENDMODULE.                 " F4_HELP  INPUT
*&      Module  STATUS_0100  OUTPUT
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS '0100'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
MODULE USER_COMMAND_0100 INPUT.
  CASE SY-UCOMM.
    WHEN 'CANCEL' OR 'EXIT' OR 'BACK'.
      LEAVE TO SCREEN 0.
   WHEN 'NEXT_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line + 1.
     limit = fill - lines + 1.
     IF CONTROL_DATA-top_line > limit.
       CONTROL_DATA-top_line = limit.
     ENDIF.
   WHEN 'PREV_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line - 1.
     IF CONTROL_DATA-top_line < 0.
       CONTROL_DATA-top_line = 0.
     ENDIF.
    WHEN 'NEXT_PAGE'.
      CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE + LINES.
      LIMIT = LIMIT + 1.
      CONTROL_DATA-TOP_LINE = LIMIT.
    WHEN 'PREV_PAGE'.
      CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE - LINES.
      LIMIT = LIMIT - 1.
      CONTROL_DATA-TOP_LINE = LIMIT.
   WHEN 'LAST_PAGE'.
     CONTROL_DATA-TOP_LINE =  FILL - LINES + 1.
    WHEN 'FIRST_PAGE'.
      CONTROL_DATA-TOP_LINE = 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  SCROLL_BAR  INPUT
MODULE SCROLL_BAR INPUT.
  DESCRIBE  TABLE  ITAB  LINES  CONTROL_DATA-LINES.
ENDMODULE.                 " SCROLL_BAR  INPUT
thanks,
maheedhar.T

Answer 1

Hi Ravi,
The code which u sent to me is not working for next page and previous page.
can u plz resend me the code.
iam sending my code below.
REPORT ZMAHI_TABLE_CONTROL .
TABLES : VBAK,VBAP.
DATA : BEGIN OF ITAB OCCURS 0,
         VBELN TYPE VBAK-VBELN,
         ERDAT TYPE VBAK-ERDAT,
         ERNAM TYPE VBAK-ERNAM,
         ERZET TYPE VBAK-ERZET,
         REASON(40) TYPE C,
       END OF ITAB.
DATA :   FILL TYPE I VALUE 1.
DATA : N TYPE I .
DATA      : BEGIN OF XVALUES OCCURS 50,
              BUTXT LIKE  T001-BUTXT,
            END OF XVALUES.
DATA      : BEGIN OF XFIELDS OCCURS 50.
        INCLUDE STRUCTURE HELP_VALUE.
DATA      : END OF XFIELDS.
DATA      : BEGIN OF SEL_VAL OCCURS 50.
        INCLUDE STRUCTURE HELP_VTAB.
DATA      : END OF SEL_VAL.
TABLE CONTROL DECLARATIONS------
CONTROLS : CONTROL_DATA TYPE TABLEVIEW USING  SCREEN '100'.
DATA : OK_CODE TYPE SY-UCOMM,
LIN TYPE I,
LIN1 TYPE I,
LIN2 TYPE I,
LIN3 TYPE I.
DATA: LINES TYPE I,
      LIMIT TYPE I VALUE 1.
DATA :   LINE_COUNT       TYPE  I,
         LINEI            TYPE  I,
         LINEJ            TYPE  I,
         LINE1            TYPE  I,
         LINE2            TYPE  I,
         LN1              TYPE  I.
SELECTION-SCREEN : BEGIN OF BLOCK B1.
SELECT-OPTIONS   : P_VBELN FOR VBAK-VBELN.
SELECTION-SCREEN : END OF BLOCK B1.
START-OF-SELECTION.
  SELECT VBELN
         ERDAT
         ERNAM
         ERZET
    FROM VBAK
    INTO TABLE ITAB
  WHERE VBELN IN P_VBELN.
  CALL SCREEN 100.
*&      Module  F4_HELP  INPUT
MODULE F4_HELP INPUT.
  FREE  :  XFIELDS,SEL_VAL,XVALUES.
  MOVE : 'ZMAHI'     TO XFIELDS-TABNAME,
         'REASON'    TO XFIELDS-FIELDNAME,
         'X'        TO XFIELDS-SELECTFLAG.
  APPEND XFIELDS.
  XVALUES = 'Non Trade F&F'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Retention'.
  APPEND XVALUES .
  XVALUES = 'Oldbills Accnt cntmnt'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Not claimed'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Dispute'.
  APPEND XVALUES .
  XVALUES = 'Non Trade Payment Block'.
  APPEND XVALUES .
  XVALUES = 'N/T Subsntly Cleared'.
  APPEND XVALUES .
  XVALUES = 'N/T Unstld Advances'.
  APPEND XVALUES .
  XVALUES = 'N/T OThers'.
  APPEND XVALUES .
  XVALUES = 'Trade Non Receipt OF BOE'.
  APPEND XVALUES .
  XVALUES = 'Trade OEM Adjustments'.
  APPEND XVALUES .
  XVALUES = 'Trade Reject Of Material'.
  APPEND XVALUES .
  XVALUES = 'Trade NOt Claimed'.
  APPEND XVALUES .
  XVALUES = 'Trade Dispute'.
  APPEND XVALUES .
  XVALUES = 'Trade Payment BLock'.
  APPEND XVALUES .
  XVALUES = 'Trade Subsntly Cleared'.
  APPEND XVALUES .
  XVALUES = 'Trade Non Submission of bills'.
  APPEND XVALUES .
  XVALUES = 'Trade others'.
  APPEND XVALUES .
  CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT'
       EXPORTING
            CUCOL         = 0
            CUROW         = 0
            DISPLAY       = ' '
            FIELDNAME     = 'REASON'
            TABNAME       = 'ZIFIOD011'
       IMPORTING
            SELECT_VALUE  = ITAB-REASON
       TABLES
            FIELDS        = XFIELDS
            SELECT_VALUES = SEL_VAL
            VALUETAB      = XVALUES.
ENDMODULE.                 " F4_HELP  INPUT
*&      Module  STATUS_0100  OUTPUT
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS '0100'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
MODULE USER_COMMAND_0100 INPUT.
  CASE SY-UCOMM.
    WHEN 'CANCEL' OR 'EXIT' OR 'BACK'.
      LEAVE TO SCREEN 0.
   WHEN 'NEXT_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line + 1.
     limit = fill - lines + 1.
     IF CONTROL_DATA-top_line > limit.
       CONTROL_DATA-top_line = limit.
     ENDIF.
   WHEN 'PREV_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line - 1.
     IF CONTROL_DATA-top_line < 0.
       CONTROL_DATA-top_line = 0.
     ENDIF.
   WHEN 'NEXT_PAGE'.
     CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE + LINES.
     LIMIT = LIMIT + 1.
     CONTROL_DATA-TOP_LINE = LIMIT.
   WHEN 'PREV_PAGE'.
     CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE - LINES.
     LIMIT = LIMIT - 1.
     CONTROL_DATA-TOP_LINE = LIMIT.
   WHEN 'LAST_PAGE'.
     DESCRIBE TABLE ITAB LINES LIMIT.
     CONTROL_DATA-TOP_LINE =  LIMIT.
   WHEN 'FIRST_PAGE'.
     CONTROL_DATA-TOP_LINE = 0.
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++'.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  SCROLL_BAR  INPUT
MODULE SCROLL_BAR INPUT.
  DESCRIBE  TABLE  ITAB  LINES  CONTROL_DATA-LINES.
ENDMODULE.                 " SCROLL_BAR  INPUT
*&      Form  paging
      text
     -->P_0356   text
*FORM paging USING    VALUE(P_0356).
FORM paging USING code.
DATA: i TYPE i,
j TYPE i.
CASE code.
WHEN 'P--'.
CONTROL_DATA-top_line = 1.
WHEN 'P-'.
CONTROL_DATA-top_line = CONTROL_DATA-top_line - line_count.
IF CONTROL_DATA-top_line LE 0.
CONTROL_DATA-top_line = 1.
ENDIF.
WHEN 'P+'.
i = CONTROL_DATA-top_line + line_count.
j = CONTROL_DATA-lines - line_count + 1.
IF j LE 0. j = 1. ENDIF.
IF i LE j.
CONTROL_DATA-top_line = i.
ELSE.
CONTROL_DATA-top_line = j.
ENDIF.
WHEN 'P++'.
CONTROL_DATA-top_line = CONTROL_DATA-lines - line_count + 1.
IF CONTROL_DATA-top_line LE 0.
CONTROL_DATA-top_line = 1.
ENDIF.
ENDCASE.
ENDFORM. " PAGING
*ENDFORM.                    " paging
thanks,
maheedhar.t