anchor.diff:      lock( iv_type  = iv_type
             iv_value = iv_value ).
   
  -    UPDATE (c_tabname) SET data = iv_data
  +    UPDATE (c_tabname) SET data_str = iv_data
         WHERE type = iv_type
         AND value = iv_value.
       IF sy-subrc <> 0.
  
positive.code:         lcl_gui=>call_page( lo_edit ).
        WHEN 'delete'.
          delete( ls_key ).
        WHEN OTHERS.
          _raise 'Unknown action'.
      ENDCASE.
  
negative.code:     CREATE OBJECT lo_db.
      lt_data = lo_db->list( ).
  
      rv_html = lcl_gui=>header( )         && gc_newline &&
        '<h1>Database persistency</h1>'    && gc_newline &&
        '<a href="sapevent:back">Back</a>' && gc_newline &&
        '<br><br>'                         && gc_newline &&
        '<table>'                          && gc_newline &&
        '<tr>'                             && gc_newline &&
        '<td><b>Type</b></td>'             && gc_newline &&
        '<td><b>Value</b></td>'            && gc_newline &&
        '<td><b>Data</b></td>'             && gc_newline &&
        '</tr>'                            && gc_newline.
  
      LOOP AT lt_data ASSIGNING <ls_data>.
        lv_escaped = escape( val    = <ls_data>-data_str(150)
  