Hi-correck this problem

Question

hi,
when i check in debugging mode data is not poputed in wa (fs_itab)
i m checking all the things plz suggest me  the solutions
CONTROLS tabctrl TYPE TABLEVIEW USING SCREEN 100.
TABLES zfm_kmvrg.
DATA: cols LIKE LINE OF tabctrl-cols,
      lines TYPE i.
DATA: ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm.
DATA: itab TYPE TABLE OF zfm_kmvrg,
     fs_itab LIKE LINE OF itab,
     fl_change TYPE c,
      fl_error  TYPE c.
*TABLES zfm_kmvrg.
LOOP AT tabctrl-cols INTO cols.
  IF cols-screen-input = '0'.
    MODIFY tabctrl-cols FROM cols INDEX sy-tabix.
   insert tabctrl-cols into cols FROM cols INDEX sy-tabix.
ENDIF.
ENDLOOP.
*SELECT * FROM zfm_kmvrg INTO TABLE itab.
CALL SCREEN 100.
MODULE status_0100 OUTPUT
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SCREEN_100'.
SELECT KFZNR KOSTENTRAEGER KMSTAND FROM zfm_kmvrg INTO CORRESPONDING FIELDS OF
  TABLE itab.
  DESCRIBE TABLE itab LINES lines.
  tabctrl-lines = lines.
ENDMODULE.                    "status_0100 OUTPUT
MODULE cancel INPUT
MODULE cancel INPUT.
  LEAVE PROGRAM.
ENDMODULE.                    "cancel INPUT
MODULE read_table_control INPUT
MODULE read_table_control INPUT.
MODIFY itab FROM fs_itab INDEX tabctrl-current_line.
ENDMODULE.                    "read_table_control INPUT
MODULE user_command_0100 INPUT
MODULE user_command_0100 INPUT.
  DATA:
    lw_index TYPE i.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'ADD'.
      LOOP AT tabctrl-cols INTO cols.
        cols-screen-input = '1'.
        MODIFY tabctrl-cols FROM cols INDEX sy-tabix.
      ENDLOOP.
     CLEAR fs_itab.
     APPEND fs_itab to itab.
     WHEN 'EXIT'.
     LEAVE PROGRAM.
    WHEN 'SAVE'.
      IF NOT itab IS INITIAL.
        Sort itab by kfznr kostentraeger kmstand ascending.
        LOOP AT itab INTO fs_itab.
          lw_index = sy-tabix.
          IF NOT fs_itab IS INITIAL.
           MODIFY zfm_kmvrg FROM fs_itab.
           insert zfm_kmvrg from fs_itab.
              insert zfm_kmvrg from itab.
            IF sy-subrc eq 0.
            UPDATE zfm_kfz set kmstand = fs_itab-kmstand WHERE kfznr = fs_itab-kfznr.
            ELSE.
              fl_error = 'X'.
              WRITE:/ 'The record number', lw_index,
                      'has not been updated'.
            ENDIF.
          ENDIF.
        ENDLOOP.
      ELSE.
        MESSAGE s000(0) WITH 'No data is present to update'.
      ENDIF.
  ENDCASE.
  IF fl_error = 'X'.
    LEAVE TO LIST-PROCESSING.
  ELSE.
    MESSAGE s000(0) WITH
          'All the records have been updated successfully'.
  ENDIF.
ENDMODULE.                    "user_command_0100 INPUT

Answer 1

Hello,
What are the names of the fields on the table control ? You can get teh values only of those fields which you have placed on the screen. So, check which structure or table you have used on the screen (specially for table control)
Regards,
Naimesh