hi-correck this problem
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