anchor.diff:  *----------------------------------------------------------------------*
   *       CLASS lcl_persistence_user DEFINITION
   *----------------------------------------------------------------------*
  -CLASS lcl_persistence_user DEFINITION FINAL.
  +CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
   
     PUBLIC SECTION.
  -    METHODS constructor
  -      IMPORTING iv_user TYPE xubname DEFAULT sy-uname.
   
       METHODS set_username
         IMPORTING iv_username TYPE string
  
positive.code: 
  *----------------------------------------------------------------------*
  *       CLASS lcl_repo_srv DEFINITION
  *----------------------------------------------------------------------*
  *
  *----------------------------------------------------------------------*
  CLASS lcl_repo_srv DEFINITION FINAL.
  
  
negative.code: *----------------------------------------------------------------------*
  *       CLASS lcl_gui DEFINITION
  *----------------------------------------------------------------------*
  CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
  
    PUBLIC SECTION.
  
      METHODS go_home
        RAISING lcx_exception.
  