plz corrct this code and give suggestions
hi,
plz corrct this and how to maintain data plz add code in this .plz correct it
REPORT ZFM_KFZ.
----
define tables -
TABLES : zfm_kfz.
----
define data statement -
DATA : kfznr like zfm_kfz-kfznr,
geraet like zfm_kfz-geraet,
kostentraeger type c,
tuvdatuminmmyyyy type c ,
asudatuminmmyyyy type c,
kmstand type d,
reifen type c.
DATA : begin of itab occurs 0,
kfznr like zfm_kfz-kfznr,
geraet like zfm_kfz-geraet,
kostentraeger type c,
tuvdatuminmmyyyy type c ,
asudatuminmmyyyy type c,
kmstand type d,
reifen type c,
end of itab.
DATA: save_ok LIKE sy-ucomm,
ok_code LIKE sy-ucomm,
w_ans TYPE n,
fs_zfm_kfz like zfm_kfz.
&----
*& call screen
&----
call screen 100.
&----
*& Module STATUS_0100 OUTPUT
&----
text
----
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ZTOOLBAR'.
--
ztoolbar providing save and exit button--
ENDMODULE. " STATUS_0100 OUTPUT
----
MODULE USER_COMMAND_0100 INPUT (PAI)
----
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'EXIT'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'EXIT'
text_question = 'DO u want to exit?'
text_button_1 = 'Yes'
ICON_BUTTON_1 = ' '
text_button_2 = 'No'
ICON_BUTTON_2 = ' '
default_button = '1'
display_cancel_button = 'X'
popup_type = 'I'
IMPORTING
answer = w_ans.
IF w_ans = 1.
LEAVE PROGRAM.
ENDIF.
WHEN 'SAVEBUTT'.
PERFORM upd_table.
WHEN OTHERS.
WHEN 'BACK'.
leave to screen 100.
ENDCASE.
ENDMODULE. "USER_COMMAND_0100 INPUT
&----
*& Form upd_table
&----
text
----
--> p1 text
<-- p2 text
----
FORM upd_table.
fs_zfm_kfz-kfznr = kfznr.
fs_zfm_kfz-geraet = geraet.
fs_zfm_kfz-kostentraeger = kostentraeger.
fs_zfm_kfz-tuvdatuminmmyyyy = tuvdatuminmmyyyy.
fs_zfm_kfz-asudatuminmmyyyy = asudatuminmmyyyy.
fs_zfm_kfz-kmstand = kmstand.
fs_zfm_kfz-reifen = reifen.
INSERT INTO zfm_kfz VALUES fs_zfm_kfz.
IF sy-subrc EQ 0.
MESSAGE i000(0) WITH 'Update successful'.
ENDIF.
*update KFZNR GERAEAT KOSTENTRAEGER TUVDATUM ASUDATUM KMSTAND REIFEN
ENDFORM. " upd_table