anchor.diff:  
     PUBLIC SECTION.
   
  -    TYPES:
  -      ty_sotr_use_tt TYPE STANDARD TABLE OF sotr_use WITH DEFAULT KEY .
  -
       CLASS-METHODS read_sotr
         IMPORTING
  -        !iv_pgmid    TYPE pgmid
  +        !iv_pgmid    TYPE pgmid DEFAULT 'R3TR'
           !iv_object   TYPE trobjtype
           !iv_obj_name TYPE csequence
           !io_xml      TYPE REF TO zif_abapgit_xml_output OPTIONAL
  
positive.code:         !io_xml     TYPE REF TO zif_abapgit_xml_input
        RAISING
          zcx_abapgit_exception .
    PROTECTED SECTION.
      CLASS-METHODS get_sotr_usage
        IMPORTING
  
negative.code: 
      CALL FUNCTION 'SOTR_USAGE_MODIFY'
        EXPORTING
          sotr_usage = it_sotr_use.
  
    ENDMETHOD.
  
  
    METHOD delete_sotr.
  
      DATA lt_sotr_use TYPE zif_abapgit_definitions=>ty_sotr_use_tt.
  
      FIELD-SYMBOLS <ls_sotr_use> LIKE LINE OF lt_sotr_use.
  
      lt_sotr_use = get_sotr_usage( iv_pgmid    = iv_pgmid
                                    iv_object   = iv_object
                                    iv_obj_name = iv_obj_name ).
  
      LOOP AT lt_sotr_use ASSIGNING <ls_sotr_use> WHERE concept IS NOT INITIAL.
  
        CALL FUNCTION 'SOTR_DELETE_CONCEPT'
          EXPORTING
            concept             = <ls_sotr_use>-concept
          EXCEPTIONS
            no_entry_found      = 1
            text_not_found      = 2
            invalid_package     = 3
            text_not_changeable = 4
            text_enqueued       = 5
            no_correction       = 6
            parameter_error     = 7
            OTHERS              = 8.
        IF sy-subrc > 2.
          zcx_abapgit_exception=>raise_t100( ).
        ENDIF.
  
      ENDLOOP.
  
    ENDMETHOD.
  
  
    METHOD delete_sotr_package.
  
      DATA lt_sotr_head TYPE STANDARD TABLE OF sotr_head WITH DEFAULT KEY.
  
      FIELD-SYMBOLS <ls_sotr_head> LIKE LINE OF lt_sotr_head.
  
      SELECT * FROM sotr_head INTO TABLE lt_sotr_head WHERE paket = iv_package.
  
      LOOP AT lt_sotr_head ASSIGNING <ls_sotr_head> WHERE concept IS NOT INITIAL.
  
        CALL FUNCTION 'SOTR_DELETE_CONCEPT'
          EXPORTING
            concept             = <ls_sotr_head>-concept
          EXCEPTIONS
            no_entry_found      = 1
            text_not_found      = 2
            invalid_package     = 3
            text_not_changeable = 4
            text_enqueued       = 5
            no_correction       = 6
            parameter_error     = 7
            OTHERS              = 8.
        IF sy-subrc > 2.
          zcx_abapgit_exception=>raise_t100( ).
        ENDIF.
  
      ENDLOOP.
  
    ENDMETHOD.
  
  
    METHOD get_sotr_4_concept.
  
      DATA: ls_header  TYPE zif_abapgit_definitions=>ty_sotr-header,
            lt_entries TYPE zif_abapgit_definitions=>ty_sotr-entries.
  
      FIELD-SYMBOLS: <ls_entry> LIKE LINE OF lt_entries.
  
  