Clearing a Table control

Question

Hi
Can anyone tell me how to clear the table control.
I have cleared the internal table .
But it is not getting cleared.
Cheers
Christina

Answer 1

REPORT  ZFI_CF_PLANING
        NO STANDARD PAGE HEADING
        MESSAGE-ID Z00.
*&  TABLE DECLARATIONS
TABLES: ZFI_CF_PLANING,ZFI_CF_TABMAIN.
*&  DATA DECLARATIONS
DATA: PAYDATE TYPE ZFI_CF_PLANING-CALDATE.
data : t_cvalue type zfi_cf_planing-cvalue,
       t_cperiod type zfi_cf_planing-cperiod,
       t_cyear   type zfi_cf_planing-calyear,
*RES,          "To Store Response Code of Dialog Box
      V_MODE(4),    "To Store sy-ucomm
      V_buper     TYPE T009B-POPER,
      v_gjahr     TYPE T009B-BDATJ,
      V_Dbuper     TYPE T009B-POPER,
      v_Dgjahr     TYPE T009B-BDATJ,
      V_QTY_VALUE TYPE ZFI_CF_PLANING-INVALUE,
      V_RAT_VALUE TYPE ZFI_CF_PLANING-INVALUE,
      V_TOT_VALUE TYPE ZFI_CF_PLANING-INVALUE,
      V_MAT_CONS  TYPE ZFI_CF_PLANING-INVALUE,
      V_CHECK     TYPE ZFI_CF_PLANING-INVALUE,
      V_code      TYPE ZFI_CF_PLANING-code,
      R_buper     TYPE T009B-POPER,
      R_gjahr     TYPE T009B-BDATJ,
      V_ACCNO     TYPE ZFI_CF_TABMAIN-ACCNO,
      V_ACCNO1     TYPE ZFI_CF_TABMAIN-ACCNO,
      PDATUM      TYPE D.
*--Table Control Declaration
CONTROLS MAIN TYPE TABLEVIEW USING SCREEN 100.
*&  INTERNAL TABLE DECLARATIONS
data : it_final type standard table of ZFI_CF_PLANING initial size 0
with header line.
*data : it_final2 type standard table of ZFI_CF_PLANING initial size 0
*with header line.
DATA : IT_CHECK LIKE ZFI_CF_PLANING OCCURS 1 WITH HEADER LINE.
*&  START-OF-SELECTION
START-OF-SELECTION.
  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE IT_FINAL
  FROM mara
  up to 100 rows.
*--Calling the Screen
  CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
      Setting the Toolbar and Titlebar
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'MENU'.
  SET TITLEBAR 'TITLE'.
  IF V_MODE = 'COPY'.
       SELECT *
         FROM ZFI_CF_PLANING
         INTO TABLE IT_FINAL
        where pyear = V_GJAHR
          and pperiod = V_BUPER
          and accno   = zfi_cf_PLANING-accno.
      SORT IT_FINAL BY BUOM DESCENDING.
      DATA : V_DES  TYPE ZFI_CF_TABMAIN-DESCRIP2.
       SELECT SINGLE
              DESCRIP2
        FROM ZFI_CF_TABMAIN
        INTO V_DES
       WHERE CODE = 'EXSALE'
         AND ACCNO = ZFI_CF_planing-ACCNO
         or  CODE  = 'LSALE'.
        IF SY-SUBRC = 0.
          ZFI_CF_TABMAIN-DESCRIP2  = V_DES.
        endif.
ENDIF.
  IF V_MODE = 'CLEA'.
  REFRESH IT_FINAL.
  CLEAR : V_MODE.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      Moving the modified records into other internal table
      and displaying the those in ALV POPUP GRID
MODULE USER_COMMAND_0100 INPUT.
*BREAK-POINT.
  CASE SY-UCOMM.
    WHEN 'EXIT' or 'CANC' OR 'BACK'.
      LEAVE PROGRAM.
    WHEN 'COPY'.
      V_MODE = SY-UCOMM.
      V_ACCNO1 = ZFI_CF_PLANING-ACCNO.
      V_Dbuper = ZFI_CF_PLANING-PPERIOD.
      v_Dgjahr = ZFI_CF_PLANING-PYEAR.
      CLEAR SY-UCOMM.
    WHEN 'PROC'.
      V_MODE = SY-UCOMM.
      V_ACCNO1 = ZFI_CF_PLANING-ACCNO.
      V_Dbuper = ZFI_CF_PLANING-PPERIOD.
      v_Dgjahr = ZFI_CF_PLANING-PYEAR.
      CLEAR SY-UCOMM.
    WHEN 'CLEA'.
      V_MODE = SY-UCOMM.
      CLEAR SY-UCOMM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  SAVE_REC  INPUT
      Modifiying the current record of table control
MODULE SAVE_REC INPUT.
MOVE-CORRESPONDING ZFI_CF_PLANING TO IT_FINAL.
   MODIFY IT_FINAL INDEX MAIN-CURRENT_LINE.
   IF SY-SUBRC <> 0.
   APPEND IT_FINAL.
   ENDIF.
  IF V_MODE = 'PROC'.
      IF ZFI_CF_PLANING-CODE <> '' .
          data : v_code1 type ZFI_CF_tabmain-code.
          SELECT SINgLE CODE
          FROM ZFI_CF_CATMAster
          INTO V_CODE1
          WHERE CODE = ZFI_CF_PLANING-CODE.
          IF SY-SUBRC <> 0.
            MESSAGE I001(YMSG) WITH 'Invalid code'.
          ENDIF.
       ENDIF.
ENDIF.
ENDMODULE.                 " SAVE_REC  INPUT
*&      Module  DISPLAY  OUTPUT
      text
module DISPLAY output.
MOVE-CORRESPONDING IT_FINAL TO ZFI_CF_PLANING.
endmodule.                 " DISPLAY  OUTPUT
*&      Module  COPY  OUTPUT
      text
module COPY output.
CLEAR IT_FINAL.
READ TABLE IT_FINAL INDEX 1.
MOVE-CORRESPONDING IT_FINAL TO ZFI_CF_PLANING.
IF V_MODE = 'PROC'.
       ZFI_CF_PLANING-ACCNO = V_ACCNO1.
       ZFI_CF_PLANING-PPERIOD = V_DBUPER.
       ZFI_CF_PLANING-PYEAR   = V_DGJAHR.
        SELECT SINGLE DESCRIP2
        FROM ZFI_CF_TABMAIN
        INTO ZFI_CF_TABMAIN-DESCRIP2
       WHERE ACCNO = ZFI_CF_PLANING-ACCNO.
CLEAR : V_MODE.
ENDIF.
IF V_MODE = 'COPY'.
       ZFI_CF_PLANING-ACCNO = V_ACCNO1.
       ZFI_CF_PLANING-PPERIOD = V_DBUPER.
       ZFI_CF_PLANING-PYEAR   = V_DGJAHR.
CLEAR : V_MODE.
ENDIF.
endmodule.                 " COPY  OUTPUT
flow logic code in screen level
*PROCESS BEFORE OUTPUT.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
LOOP AT IT_FINAL WITH CONTROL MAIN CURSOR MAIN-TOP_LINE.
MODULE DISPLAY.
ENDLOOP.
MODULE COPY.
*PROCESS AFTER INPUT.
PROCESS AFTER INPUT.
MODULE QUIT AT EXIT-COMMAND.
FIELD ZFI_CF_planing-ACCNO MODULE VALIDATE_ACCNO.
FIELD ZFI_CF_PLANING-PYEAR MODULE VALIDATE_PYEAR.
FIELD ZFI_CF_PLANING-PPERIOD MODULE VALIDATE_PPERIOD.
MODULE USER_COMMAND_0100.
LOOP AT IT_FINAL.
   MODULE SAVE_REC.
ENDLOOP.
MODULE CALCULATE.
*MODULE CHANGE_SCREEN2.