Table maintenance problem

Question

i have two tables zfm_handy (key fields r telnum and kartnr ) and zfmkstel key fields r telnum and nrart) i m writtin  coding for based on zfm_handy key fields to get the corresponding data filled by using report.their new requirement is telnum is the telephone number [phone] fot this telnum  nrart and proz1 fields showing blank thwy ask me u must fill these fields nrart = 'h'(key field) and proz1 = 100,00( not a key field) . how can i fill with this record.
data : fs_zfm_handy like zfm_handy,
       fs_zfmkstel like zfmkstel,
       fs_temp_zfm_handy like zfm_handy,
       fs_temp_zfmkstel like zfmkstel.
data : t_table1 like table of fs_zfm_handy.
data : ok_code type sy-ucomm,
        save_ok like sy-ucomm.
data : f1_rec type i.
*data : w_telnum like fs_temp_zfm_handy-telnum,
      w_kartnr like fs_temp_zfm_handy-kartnr.
*data : ok_code(4).
call screen 600.
MODULE status_0600 OUTPUT
module status_0600  output.
  set pf-status 'ZSTATUS'.
  loop at screen.
*if screen-name = fs_temp_zfmkstel-kostl1 or screen-name = fs_temp_zfm_handy-zutart or
        screen-name = fs_temp_zfm_handy-pernr or screen-name = fs_temp_zfm_handy-zdate or
           screen-name = fs_temp_zfm_handy-pinnr or screen-name = fs_temp_zfm_handy-puknr or
            screen-name = fs_temp_zfm_handy-tarif1 or screen-name = fs_temp_zfm_handy-tarif2 or
              screen-name = fs_temp_zfm_handy-tarif3 or screen-name = fs_temp_zfm_handy-gtype or
                screen-name = fs_temp_zfm_handy-imei or screen-name = fs_temp_zfm_handy-twincard or
                  screen-name = fs_temp_zfm_handy-twinbill or screen-name = fs_temp_zfm_handy-einbau or
                     screen-name = fs_temp_zfm_handy-beschr or screen-name = fs_temp_zfm_handy-text1 or
                       screen-name = fs_temp_zfm_handy-text2 or screen-name = fs_temp_zfm_handy-text3.
    if screen-name = fs_temp_zfmkstel-kostl1.
      if f1_rec = 1.
        screen-input = 0.
      else.
        screen-input = 1.
      endif.
      modify screen.
    endif.
  endloop.
endmodule.                    "status_0600 OUTPUT
MODULE USER_COMMAND_0600 INPUT
MODULE USER_COMMAND_0600 INPUT.
*ok_save = ok_code.
  save_ok = ok_code.
  CLEAR OK_CODE.
*CASE ok_code.
  case save_ok.
    when 'SAVE'.
      IF f1_rec ne 1 .
      if sy-subrc = 0.
      update zfm_handy from fs_temp_zfm_handy.
        insert zfm_handy from fs_temp_zfm_handy.
        MODIFY zfm_handy from fs_temp_zfm_handy.
       if sy-subrc = 0.
       insert zfmkstel from fs_temp_zfmkstel.
        if sy-subrc = 0.
          fs_temp_zfmkstel-telnum = fs_temp_zfm_handy-telnum.
          commit work.
          INSERT ZFMKSTEL FROM FS_TEMP_ZFMKSTEL.
          if sy-subrc = 0.
            message s000(0) with 'record havebeen updated successfully'.
        MODIFY ZFMKSTEL FROM FS_TEMP_ZFMKSTEL.
          else.
            delete zfm_handy from fs_temp_zfm_handy.
          endif.
        endif.
      else.
        update zfm_handy from fs_temp_zfm_handy.
        if sy-subrc eq 0.
          fs_temp_zfmkstel-telnum = fs_temp_zfm_handy-telnum.
          update zfmkstel from fs_temp_zfmkstel.
         if sy-subrc eq 0.
         message s000(0) with 'update sucessfully'.
       endif.
      endif.
      endif.
       endif.
    WHEN  'NEW'.
          Clear fs_temp_zfm_handy.
          clear fs_temp_zfmkstel.
          clear f1_rec.
     WHEN 'EXIT'.
          LEAVE PROGRAM.
    when OTHERS.
      if fs_temp_zfm_handy-telnum ne fs_zfm_handy-telnum or
          fs_temp_zfm_handy-kartnr ne fs_zfm_handy-kartnr.
        clear f1_rec.
        if  not fs_temp_zfm_handy-telnum is initial.
          if fs_temp_zfm_handy-kartnr is initial.
       clear: w_telnum , w_kartnr.
       move fs_temp_zfm_handy-telnum to w_telnum.
       move fs_temp_zfm_handy-kartnr to w_kartnr.
            select * from zfm_handy into table t_table1 where telnum = fs_temp_zfm_handy-telnum.
            IF sy-subrc EQ 0 and sy-dbcnt GT 1.
              message s000(0) with 'Mob:Nr has more that 1 entry. Please enter Karten number also to select the desired record'.
            ELSEIF
            sy-subrc EQ 0 and sy-dbcnt EQ 1.
              read table t_table1 into fs_zfm_handy index 1.
              If sy-subrc eq 0.
                fs_temp_zfm_handy = fs_zfm_handy.
                f1_rec = 1.
              endif.
            endif.
          else.
            select single * from zfm_handy into fs_zfm_handy where telnum = fs_temp_zfm_handy-telnum
                                    and kartnr = fs_temp_zfm_handy-kartnr.
            If sy-subrc eq 0.
              fs_temp_zfm_handy = fs_zfm_handy.
              f1_rec  = 1.
            endif.
          endif.
          if f1_rec = 1.
            select single * from zfmkstel into fs_zfmkstel  where telnum = fs_temp_zfm_handy-telnum.
            If sy-subrc eq 0.
              fs_temp_zfmkstel = fs_zfmkstel.
            endif.
          endif.
        endif.
      endif.
  endcase.
endmodule.                    "USER_COMMAND_0600 INPUT

Answer 1

Hi,
I hope the problem is here,
when 'SAVE'.
IF f1_rec ne 1 .
* if sy-subrc = 0.
* update zfm_handy from fs_temp_zfm_handy.
insert zfm_handy from fs_temp_zfm_handy.
<b>( Here check whether fs_temp_zfm_handy is having the value for the fields nrart and proz1 )</b>
* MODIFY zfm_handy from fs_temp_zfm_handy.
* if sy-subrc = 0.
* insert zfmkstel from fs_temp_zfmkstel.
if sy-subrc = 0.
fs_temp_zfmkstel-telnum = fs_temp_zfm_handy-telnum.
<b>Add
fs_temp_zfmkstel-nrart  = fs_temp_zfm_handy-nrart.
fs_temp_zfmkstel-proz1 = fs_temp_zfm_handy-proz1.</b>
commit work.
INSERT ZFMKSTEL FROM FS_TEMP_ZFMKSTEL.
if sy-subrc = 0.
message s000(0) with 'record havebeen updated successfully'.
* MODIFY ZFMKSTEL FROM FS_TEMP_ZFMKSTEL.
else.
delete zfm_handy from fs_temp_zfm_handy.
endif.
endif.
else.
update zfm_handy from fs_temp_zfm_handy.
if sy-subrc eq 0.
fs_temp_zfmkstel-telnum = fs_temp_zfm_handy-telnum.
<b>Add
fs_temp_zfmkstel-nrart  = fs_temp_zfm_handy-nrart.
fs_temp_zfmkstel-proz1 = fs_temp_zfm_handy-proz1.</b>
update zfmkstel from fs_temp_zfmkstel.
* if sy-subrc eq 0.
* message s000(0) with 'update sucessfully'.
* endif.
endif.
endif.
* endif.
Try to debug and compare with the table so taht u can figure out exactly where the problem is occuring.