Unable to Update data in Ztable (dbase) through Table Control.

Question

Hi Experts.
I am able to pull dta from Ztable into table control and also able to insert a new line and delete a row from table control. But after trying a lot I am unbale to pass the same from Table control to Ztable.
Any ideas. Seems like here Update of Ztable needs some different treatment.
PLZ LOOK into the code in red only. rest are for reference.
The code on the Flow Logic Screen:
PROCESS BEFORE OUTPUT.
  module init_100.
  LOOP At it_auftrag1 with CONTROL tctrl1 cursor tctrl1-current_line.
  ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT it_auftrag1.
   Module modify_it_auftrag1.
ENDLOOP.
MODULE fcode_100.
MODULE USER_COMMAND_9000.
The code on main Screen (Mod. Pool Screen ) follows:
PROGRAM  SAPMZDEMO_MPOOL_06.
TABLES: ZLT_Auftrag1, ZLT_Kunde.
DATA: fcode2(4), fcode(4).    "OK_Code.
CONTROLS : tctrl1 type TABLEVIEW USING SCREEN '9000'.
DATA: col TYPE cxtab_column.
DATA: demo_cprop, demo_tprop.
DATA:  Begin Of it_Auftrag1 occurs 20,
        marked.
        include structure ZLT_auftrag1.
DATA:  END OF it_Auftrag1.
DATA: linno TYPE i.
DATA: fld(20).
DATA: off TYPE i.
module fcode_100 input.
endmodule.                 " fcode_100  INPUT
module modify_it_auftrag1 input.
  modify it_Auftrag1 index tctrl1-current_line.
endmodule.                 " modify_it_auftrag1  INPUT
module init_100 output.
  set pf-status 'ZSTATUS01'.
  Describe Table it_auftrag1  lines  tctrl1-lines.   "TO add Scroll Bar to Table Control1
  UPDATE ZLT_Auftrag1 From it_auftrag1.
endmodule.                 " init_100  OUTPUT
module USER_COMMAND_9000 input.
   CASE sy-ucomm.
*To Populate Data into Kunde through Pushbuttons
    When 'OK_GETK'.
        IF ZLT_Kunde-K1 is NOT INITIAL.
            SELECT SINGLE *
            FROM  ZLT_Kunde
            Where K1 = ZLT_KUNDE-K1.
           IF ZLT_Kunde-K1 is NOT initial.
              Select *
              From ZLT_Auftrag1
              INTO Corresponding fields of TABLE it_auftrag1
              Where A3 = ZLT_Kunde-K2.
           ENDIF.
        ELSE.
            MESSAGE S000(8i) With 'Enter Kunde Name'.
        ENDIF.
  when 'DELL'.
* remove marked lines
       delete it_auftrag1.
      loop at it_auftrag1 where marked = 'X'.
      UPDATE ZLT_Auftrag1 From it_auftrag1.
      endloop.
      if sy-subrc <> 0.
        get cursor field fld line linno offset off.
        set cursor field fld line linno offset off.
        if fld cp 'IT_auftrag1*' and sy-subrc = 0.
          linno = linno + tctrl1-top_line - 1.
          delete it_auftrag1 index linno.
          tctrl1-lines = tctrl1-lines - 1.
        endif.
      endif.
   When 'INSL'.
* insert line above cursor position
      get cursor field fld line linno offset off.
      set cursor field fld line linno offset off.
      if fld cp 'IT_auftrag1*' and sy-subrc = 0.
        if linno >= 1.
          linno = linno + tctrl1-top_line - 1.
          clear it_auftrag1.
          insert it_auftrag1 index linno.
          tctrl1-lines = tctrl1-lines + 1.
        else.
          clear it_auftrag1.
          append it_auftrag1.
          tctrl1-lines = tctrl1-lines + 1.
        endif.
      endif.
     When 'SAVE'.
     loop at it_auftrag1 where marked = 'X'.
*        Modify it_Auftrag1.
        Modify ZLT_Auftrag1 From it_Auftrag1.
      Endloop.
        IF sy-subrc = 0.
         MESSAGE s000(8i) With 'Data Saved'.
       ENDIF.
   When 'BACK'.
       Leave Program.
    When 'OK_CLEAR'.
      Clear : ZLT_KUNDE, ZLT_AUFTRAG1, it_auftrag1.
ENDCASE.
endmodule.                 " USER_COMMAND_9000  INPUT
Looking forward for your advice,
Regards
Chandan

Answer 1

Hi Venkat,
Thanks again. I will try ur suggestion too. In the meanwhile I did the following changes in the code:
Purpose: After data is getting pulled from dbase table (ZLT_Auftrag1) into internal table it_auftrag1 then and just after I press the button delete ( i.e. When the user command starts: When 'DELL' )
then I delete all the contents reflecting in it_auftrag1 from ZLT_Auftrag1, Now the Ztable is empty but it_auftrag1 holds all values. futher when loop starts then the Marked line gets deleted. Now at this stage the it_Auftrag1 contains all data of ZLT_auftrag1 except the line that I want to delete. If I am able to MODIFY  the ZLT_auftrag1 from it_Auftrag1 at this stage then ZLT_Auftrag1 will again be populated with all those data except the line that I want to delete.
Here goes the code that I modified ( ref the code in my 1st post in red to compare)
   WHEN 'DELL'.
* remove marked lines
*      If it_Auftrag1-Marked = 'X'.
        DELETE from ZLT_Auftrag1 where A3 = ZLT_kunde-K2.
*      ENDIF.
      IF sy-subrc = 0.
            loop at it_auftrag1 where marked = 'X'.
             DELETE it_auftrag1.
*             INSERT ZLT_Auftrag1 From TABLE it_auftrag1 accepting duplicate keys.
*             UPDATE ZLt_auftrag1 from TABLE it_auftrag1.
*             MODIFY ZLT_Auftrag1 From TABLE it_auftrag1.
            endloop.
*            INSERT ZLT_Auftrag1 From TABLE it_auftrag1.
*             UPDATE ZLt_auftrag1 from TABLE it_auftrag1.
*             MODIFY ZLT_Auftrag1 From TABLE it_auftrag1.
*        If sy-subrc = 0.
*          MESSAGE S000(8i) With 'Data Deleted from Database'.
*        ENDIF.
      ENDIF.
        MODIFY  ZLT_Auftrag1 from it_Auftrag1.  ==> This modification doesn't works.
         If sy-subrc = 0.
          MESSAGE S000(8i) With 'Data Deleted from Database'.
        ENDIF.
      if sy-subrc <> 0.
        get cursor field fld line linno offset off.
        set cursor field fld line linno offset off.
        if fld cp 'IT_auftrag1*' and sy-subrc = 0.
          linno = linno + tctrl1-top_line - 1.
          delete it_auftrag1 index linno.
          tctrl1-lines = tctrl1-lines - 1.
        endif.
      endif.
Looking forward for your suggestions.
Regards
Chandan