anchor.diff:  *----------------------------------------------------------------------*
   *
   *----------------------------------------------------------------------*
  -CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_super.
  +CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_program.
   
     PUBLIC SECTION.
       INTERFACES lif_object.
  
positive.code: *----------------------------------------------------------------------*
  CLASS lcl_user IMPLEMENTATION.
  
    METHOD read.
  
      DATA: lt_lines TYPE TABLE OF tline,
  
negative.code:     METHODS deserialize_cua
        IMPORTING is_cua TYPE ty_cua
        RAISING   lcx_exception.
  
      CLASS-METHODS:
        add_tpool
          IMPORTING it_tpool        TYPE textpool_table
          RETURNING VALUE(rt_tpool) TYPE ty_tpool_tt,
        read_tpool
          IMPORTING it_tpool        TYPE ty_tpool_tt
          RETURNING VALUE(rt_tpool) TYPE ty_tpool_tt.
  
    PRIVATE SECTION.
      METHODS:
  