anchor.diff:      READ TABLE lt_fields INDEX 1 ASSIGNING <ls_field>.
       ASSERT sy-subrc = 0.
       rs_comment-username = <ls_field>-value.
  -    lcl_persistence_user=>set_username( rs_comment-username ).
  +    lo_user->set_username( rs_comment-username ).
   
       READ TABLE lt_fields INDEX 2 ASSIGNING <ls_field>.
       ASSERT sy-subrc = 0.
       rs_comment-email = <ls_field>-value.
  -    lcl_persistence_user=>set_email( rs_comment-email ).
  +    lo_user->set_email( rs_comment-email ).
   
       READ TABLE lt_fields INDEX 3 ASSIGNING <ls_field>.
       ASSERT sy-subrc = 0.
  
positive.code:                  ig_data = ls_attr ).
  
      mo_files->add_string( iv_ext    = 'html'
                            iv_string = lv_source ) ##NO_TEXT.
  
    ENDMETHOD.                    "lif_object~serialize
  
  
negative.code:     DATA: ls_user TYPE ty_user.
  
  
      ls_user = read( ).
  
      ls_user-username = iv_username.
  
      update( ls_user ).
  
    ENDMETHOD.
  
    METHOD get_username.
  
      rv_username = read( )-username.
  
    ENDMETHOD.
  
  