anchor.diff:  
       DATA: ls_tadir TYPE tadir.
   
  +* todo, this looks wrong
       ls_tadir = lcl_tadir=>read_single(
         iv_object   = ms_item-obj_type
         iv_obj_name = ms_item-obj_name ).
       IF ls_tadir IS INITIAL.
  -      RETURN.
  +      rv_bool = abap_false.
  +    ELSE.
  +      rv_bool = abap_true.
       ENDIF.
   
     ENDMETHOD.
  
positive.code: 
  ENDCLASS.                    "lcl_objects_super DEFINITION
  
  CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super .
  
    PUBLIC SECTION.
      TYPES: BEGIN OF ty_progdir,
  
negative.code:   ENDMETHOD.                    "corr_insert
  
  ENDCLASS.                    "lcl_objects_super IMPLEMENTATION
  
  CLASS lcl_object_auth DEFINITION INHERITING FROM lcl_objects_super FINAL.
  
    PUBLIC SECTION.
      INTERFACES lif_object.
  
  ENDCLASS.
  
  CLASS lcl_object_auth IMPLEMENTATION.
  
    METHOD lif_object~serialize.
  
      DATA: lo_xml   TYPE REF TO lcl_xml,
            ls_authx TYPE authx.
  
  
      SELECT SINGLE * FROM authx INTO ls_authx WHERE fieldname = ms_item-obj_name.
      IF sy-subrc <> 0.
        RETURN.
      ENDIF.
  
      CREATE OBJECT lo_xml.
      lo_xml->structure_add( ls_authx ).
      mo_files->add_xml( lo_xml ).
  
    ENDMETHOD.
  
    METHOD lif_object~deserialize.
  * see include LSAUT_FIELDF02
  
      DATA: lo_xml   TYPE REF TO lcl_xml,
            ls_authx TYPE authx,
            lo_auth  TYPE REF TO cl_auth_tools.
  
  
  
      lo_xml = mo_files->read_xml( ).
      lo_xml->structure_read( CHANGING cg_structure = ls_authx ).
  
      CREATE OBJECT lo_auth.
  
      IF lo_auth->add_afield_to_trkorr( ls_authx-fieldname ) <> 0.
        _raise 'Error deserializing AUTH'.
      ENDIF.
  
      MODIFY authx FROM ls_authx.
      IF sy-subrc <> 0.
        _raise 'Error deserializing AUTH'.
      ENDIF.
  
      CALL FUNCTION 'DB_COMMIT'.
      lo_auth->set_authfld_info_from_db( ls_authx-fieldname ).
  
    ENDMETHOD.
  
    METHOD lif_object~delete.
  
      DATA: lv_fieldname TYPE authx-fieldname.
  
  
      lv_fieldname = ms_item-obj_name.
  
      CALL FUNCTION 'SUSR_AUTF_DELETE_FIELD'
        EXPORTING
          fieldname           = lv_fieldname
        EXCEPTIONS
          delete_not_possible = 1
          field_in_use        = 2
          not_existing        = 3
          no_authority        = 4
          OTHERS              = 5.
      IF sy-subrc <> 0.
        _raise 'error from SUSR_AUTF_DELETE_FIELD'.
      ENDIF.
  
    ENDMETHOD.
  
    METHOD lif_object~exists.
  
      DATA: lv_fieldname TYPE authx-fieldname.
  
  
      SELECT SINGLE fieldname FROM authx
        INTO lv_fieldname
        WHERE fieldname = ms_item-obj_name.
      rv_bool = boolc( sy-subrc = 0 ).
  
    ENDMETHOD.
  
    METHOD lif_object~jump.
  
      _raise 'todo, AUTH jump'.
  
    ENDMETHOD.
  
  ENDCLASS.
  
  *----------------------------------------------------------------------*
  *       CLASS lcl_object_doma DEFINITION
  