Table control program for updating database table

Question

Does anybody have a sample code for a table control program which can insert/delete/update a database table?
I mean like on the output on table control, if the user insert/delete/update the records, the corresponding records will be updated in database table also.
Appreciate your input.
Thanks.

Answer 1

hi nuren,
TABLES: kna1,knbk.
DATA: v_kunnr LIKE kna1-kunnr.
DATA: v_check TYPE c.
DATA: BEGIN OF it_knbk OCCURS 0,
      banks LIKE knbk-banks,
      bankl LIKE knbk-bankl,
      bankn LIKE knbk-bankn,
      bkont LIKE knbk-bkont,
      koinh LIKE knbk-koinh,
      chk TYPE c,
      END OF it_knbk.
DATA: v_ucomm TYPE sy-ucomm,
      v_dynnr TYPE sy-dynnr.
DATA: l_index TYPE sy-index.
data: count type i.
CONTROLS: tc1 TYPE TABLEVIEW USING SCREEN 0200.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'ABC'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  v_ucomm = sy-ucomm.
  CASE v_ucomm.
    WHEN 'DISP' OR 'CHNG'.
      IF v_kunnr <> space.
        SELECT banks
               bankl
               bankn
               bkont
               koinh
               FROM knbk
               INTO TABLE it_knbk
               WHERE kunnr = v_kunnr.
        LEAVE TO SCREEN '0200'.
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  MOD_KUNNR  INPUT
      text
MODULE mod_kunnr INPUT.
  IF NOT v_kunnr IS INITIAL.
    SELECT SINGLE
           kunnr
           FROM kna1
           INTO v_kunnr
           WHERE kunnr = v_kunnr.
    IF sy-subrc <> 0.
      MESSAGE e000(zz) WITH 'INCORRECT CUSTOMER NUMBER'.
    ENDIF.
  ENDIF.
  IF v_kunnr IS INITIAL.
    MESSAGE e000(zz) WITH 'PLEASE ENTER A VALUE'.
  ENDIF.
ENDMODULE.                 " MOD_KUNNR  INPUT
*&      Module  STATUS_0200  OUTPUT
      text
MODULE status_0200 OUTPUT.
  SET PF-STATUS 'ABC1'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  SCREENMOD  OUTPUT
      text
MODULE screenmod OUTPUT.
  IF v_ucomm = 'DISP'.
    LOOP AT SCREEN.
      screen-input = 0.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE."if v_UCOMM = 'CHNG'.
    LOOP AT SCREEN.
        IF screen-group1 = 'G1'.
          screen-input = 0.
        ELSE.
          screen-input = 1.
        ENDIF.
     MODIFY SCREEN.
    ENDLOOP.
endif.
if sy-ucomm = 'INSE'.
loop at screen.
IF ( tc1-current_line <> tc1-lines ).
  screen-input = 0.
else.
screen-input = 1.
modify screen.
endif.
endloop.
endif.
ENDMODULE.                 " SCREENMOD  OUTPUT
*&      Module  EXIT2  INPUT
      text
MODULE exit2 INPUT.
  LEAVE TO SCREEN 0.
ENDMODULE.                 " EXIT2  INPUT
*&      Module  modify  INPUT
      text
MODULE modify INPUT.
      IF v_check =  'X'.
        it_knbk-chk =  'X'.
        MODIFY it_knbk index tc1-current_line.
      ELSE.
        CLEAR it_knbk-chk .
     ENDIF.
ENDMODULE.                 " modify  INPUT
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE user_command_0200 INPUT.
v_ucomm = sy-ucomm.
  CASE v_ucomm.
    WHEN 'DELE'.
        DELETE it_knbk where chk eq 'X'.
        DESCRIBE TABLE it_knbk LINES tc1-lines.
    WHEN 'INSE'.
      CLEAR it_knbk.
      APPEND it_knbk.
      DESCRIBE TABLE it_knbk LINES tc1-lines.
    WHEN 'LIST'.
      LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN '0200'.
      WRITE 'Report'.
    WHEN 'BACK'.
      LEAVE TO SCREEN '0100'.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Module  validate  INPUT
      text
module validate input.
IF IT_KNBK IS INITIAL.
MESSAGE E000(ZZ) WITH 'A BLANK LINE CANNOT BE SAVED'.
ENDIF.
endmodule.                 " validate  INPUT