Module Pool:editable field not changing

Question

Hi All,
I created one module pool program with three fields MATNR,EBELN,KTMNG(qty). KTMNG is user key in accordingly to create delivery order.
Now the problem is when user key in KTMNG field value let say 10.000.when press enter Again its taking the database value(20.000 for example).
how to keep the user key value 10.000.
here is my coding:
PROCESS BEFORE OUTPUT.
LOOP AT ITAB INTO WA WITH CONTROL tabcontrol.
MODULE STATUS_0100.
   ENDLOOP.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
   LOOP AT ITAB.
     ENDLOOP.
MODULE USER_COMMAND_0100 INPUT.
  CASE SY-UCOMM.
    WHEN 'DIS'.
      REFRESH:ITAB.
      SELECT EBELN MATNR KTMNG INTO CORRESPONDING FIELDS OF TABLE ITAB FROM EKPO
                                                WHERE EBELN EQ EKPO-EBELN.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'ZTESTING'.
  SET TITLEBAR 'ZTEST'.
  MOVE:WA-EBELN TO EKKO-EBELN,
       WA-KTMNG TO EKPO-KTMNG,
       WA-MATNR TO EKPO-MATNR.
  VCONTROL-LINES = SY-DBCNT.
ENDMODULE.   
Please help me.
Thank You,
Anu.

Answer 1

PROCESS BEFORE OUTPUT.
LOOP AT ITAB INTO WA WITH CONTROL tabcontrol.
  MODULE STATUS_0100.
    ENDLOOP.
PROCESS AFTER INPUT.
  MODULE USER_COMMAND_0100.
    LOOP AT ITAB.
"  add this
      CHAIN.
        FIELD EKKO-EBELN.
        FIELD EKPO-KTMNG.
        FIELD EKPO-MATNR.
        Modify tablecontrol.
     ENDCHAIN.
  ENDLOOP.
MODULE USER_COMMAND_0100 INPUT.
   CASE SY-UCOMM.
     WHEN 'DIS'.
"  Comment this start and Pushi to PBO and check if  ITAB  is initial then do below Qyery
       REFRESH:ITAB.
       SELECT EBELN MATNR KTMNG INTO CORRESPONDING FIELDS OF TABLE ITAB FROM EKPO
                                                 WHERE EBELN EQ EKPO-EBELN.
" Comment this end
     WHEN 'EXIT'.
       LEAVE PROGRAM.
   ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
MODULE STATUS_0100 OUTPUT.
   SET PF-STATUS 'ZTESTING'.
   SET TITLEBAR 'ZTEST'.
   MOVE:WA-EBELN TO EKKO-EBELN,
        WA-KTMNG TO EKPO-KTMNG,
        WA-MATNR TO EKPO-MATNR.
   VCONTROL-LINES = SY-DBCNT.
ENDMODULE.   
  MODULE TABLECONTROL OUTPUT.        "New addition in PAI for Modify
  MOVE:EKKO-EBELN TO WA-EBELN,
        EKPO-KTMNG TO WA-KTMNG  ,
        EKPO-MATNR TO WA-MATNR .
  MODIFY ITAB FROM wa    INDEX tabcontrol-current_line
ENDMODULE