About screen designing

Question

hi,
   I have designed a tablecontrol screen with 2 tabstrip buttons as Reservation and Cancellation. and also having the push buttons with icons like 'ADD', 'Change Hotel', 'PageDown' and 'Page Up',
    Here, my problem is While I am clicking ADD push button it should append new rows to the table. How to code it in Module user command?
   and also want for the other radio buttons as well.
Can any one please helpme out in this regard, because I am very new to Module pool programmes.
Thank you,
-kanthi.

Answer 1

Hi,
check this sample program:
*& Module pool       ZSUDHA_TRANS4_PRACTICE                            *
PROGRAM  zsudha_trans4_practice                  .
TABLES:knbk.
CONTROLS tc TYPE TABLEVIEW USING SCREEN 200.
DATA:v_kunnr LIKE knbk-kunnr,
     v_ucomm LIKE sy-ucomm,
     sel TYPE c.
DATA:BEGIN OF itab OCCURS 0,
     banks TYPE knbk-banks,
     bankl TYPE knbk-bankl,
     bankn TYPE knbk-bankn,
     bkont TYPE knbk-bkont,
     koinh TYPE knbk-koinh,
     chk TYPE c,
     END OF itab.
*&      Module  mod1  INPUT
      text
MODULE mod1 INPUT.
  IF v_kunnr IS INITIAL.
    MESSAGE e000(zz) WITH 'Please enter the customer number.'.
  ENDIF.
  IF v_kunnr <> ' '.
    SELECT  SINGLE kunnr FROM knbk INTO (v_kunnr) WHERE kunnr = v_kunnr.
    IF sy-subrc NE 0.
      MESSAGE e000(zz) WITH 'Please enter a valid customer number.'.
    ENDIF.
  ENDIF.
ENDMODULE.                 " mod1  INPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  CLEAR  : itab,v_ucomm.
  REFRESH: itab.
  CASE sy-ucomm.
    WHEN 'DISPLAY' OR 'CHANGE'.
      IF v_kunnr IS NOT INITIAL.
        SELECT banks
         bankl
         bankn
         bkont
         koinh
         FROM knbk
         INTO TABLE itab
         WHERE kunnr = v_kunnr.
      ENDIF.
      v_ucomm = sy-ucomm.
      LEAVE TO SCREEN 200.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CANC'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE user_command_0200 INPUT.
  CASE sy-ucomm.
    WHEN 'DELETE'.
      DELETE itab WHERE chk = 'X'.
      CLEAR itab-chk.
      DESCRIBE TABLE itab LINES tc-lines.
    WHEN 'SAVE'.
      MODIFY  itab INDEX tc-current_line.
    WHEN 'INSERT'.
      CLEAR itab.
      APPEND itab.
      DESCRIBE TABLE itab LINES tc-lines.
    WHEN 'LIST'.
      LEAVE TO LIST-PROCESSING.
      LOOP AT itab.
        WRITE:/ itab-banks,itab-bankl,itab-bankn,itab-bkont,itab-koinh.
      ENDLOOP.
    WHEN 'BACK'.
      LEAVE TO SCREEN 100.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CANC'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Module  STATUS_0200  OUTPUT
      text
MODULE status_0200 OUTPUT.
  IF v_ucomm = 'DISPLAY'.
    LOOP AT SCREEN.
      screen-input = 0.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      screen-input = 1.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
  SET PF-STATUS 'XXX'.
  IF v_ucomm = 'DISPLAY'.
    SET TITLEBAR 'XXX'.
  ELSE.
    SET TITLEBAR 'CHNG'.
  ENDIF.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  mod2  INPUT
      text
MODULE mod2 INPUT.
  IF sel = 'X'.
    itab-chk = sel.
    MODIFY itab INDEX tc-current_line.
  ELSE.
    CLEAR itab-chk.
  ENDIF.
ENDMODULE.                 " mod2  INPUT
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'XX1'.
  SET TITLEBAR 'XX1'.
ENDMODULE.                 " STATUS_0100  OUTPUT
regards,
keerthi