2 records updated plz check this

Question

my requirement is update the database table zfmkstel with nrart = 'h' and proz1 = '100'. i m writting below logic two records udate like this
123455(tenum)         h                  100
123455(telnum)        -                     -
my logic is
    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.
         fs_temp_zfmkstel-nrart = fs_temp_zfm_handy-nrart.
         fs_temp_zfmkstel-proz1 = fs_temp_zfm_handy-proz1.
         fs_temp_zfmkstel-nrart = 'H'.
         fs_temp_zfmkstel-proz1 = '100'.
          INSERT ZFMKSTEL FROM FS_TEMP_ZFMKSTEL.
                   fs_temp_zfmkstel-nrart = 'H'.
                      fs_temp_zfmkstel-proz1 = '100'.
           insert into zfmkstel values fs_temp_zfmkstel.
          commit work.
          if sy-subrc = 0.
            message s000(0) with 'record havebeen inserted sucessfully'.
        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.

Answer 1

hi
do u have a problem with updating the records, i mean do u want update 2 records into the DB table with the same fields
check if the records have the same primary fields, if they have same primary fields then it will not update in the Z Table
check this code
      READ TABLE IT_VBRK WITH KEY VBELN = T_VBRK_VBRP-VBELN.
      IF SY-SUBRC = 0.
        T_VBRK_VBRP-FKDAT = IT_VBRK-FKDAT.
        MODIFY T_VBRK_VBRP  TRANSPORTING FKDAT
                  WHERE VBELN = IT_VBRK-VBELN.
      ENDIF.
this will simulatenously update all the records which have same VBELN
award points if found helpful