Протоколировать изменения ракурса

 
form z_active_chk_modify.
 
  data lv_index like sy-tabix.
  field-symbols <lv_component> type any.
 
  loop at total.
    if <action> = aendern or
       <action> = neuer_eintrag.
 
      read table extract with key <vim_xtotal_key>.
 
      if 0 = sy-subrc.
        lv_index = sy-tabix.
      else.
        clear lv_index.
      endif.
 
      assign component 'MODDATE' of structure <vim_total_struc> to <lv_component>.
      <lv_component> = sy-datum.
 
      assign component 'LOGIN' of structure <vim_total_struc> to <lv_component>.
      <lv_component> = sy-uname.
 
      modify total.
      check lv_index > 0.
      extract = total.
      modify extract index lv_index.
 
    endif.
  endloop.
 
endform.