anchor.diff:             AND NOT ( object = 'DEVC' AND obj_name = iv_package_name )
              AND devclass = iv_package_name.
       rv_is_empty = boolc( sy-subrc <> 0 ).
  +
  +  ENDMETHOD.
  +
  +
  +  METHOD is_local.
  +
  +    DATA lv_dlvunit TYPE tdevc-dlvunit.
  +
  +    SELECT SINGLE dlvunit FROM tdevc INTO lv_dlvunit
  +        WHERE devclass = iv_package_name AND intsys <> 'SAP'.
  +    IF sy-subrc = 0 AND lv_dlvunit = 'LOCAL'.
  +      rv_is_local = abap_true.
  +    ENDIF.
   
     ENDMETHOD.
   
  
positive.code:                             iv_language TYPE spras.
    PROTECTED SECTION.
    PRIVATE SECTION.
      METHODS:
        get_package RETURNING VALUE(ri_package) TYPE REF TO if_package
                    RAISING   zcx_abapgit_exception,
        update_pinf_usages IMPORTING ii_package    TYPE REF TO if_package
                                     it_usage_data TYPE scomppdata
                           RAISING   zcx_abapgit_exception,
        set_lock IMPORTING ii_package TYPE REF TO if_package
                           iv_lock    TYPE abap_bool
                 RAISING   zcx_abapgit_exception,
        is_empty
          IMPORTING iv_package_name    TYPE devclass
          RETURNING VALUE(rv_is_empty) TYPE abap_bool
          RAISING   zcx_abapgit_exception,
        load_package
          IMPORTING iv_package_name   TYPE devclass
          RETURNING VALUE(ri_package) TYPE REF TO if_package
          RAISING   zcx_abapgit_exception.
  
      DATA:
        mv_local_devclass TYPE devclass.
  ENDCLASS.
  
  
  
negative.code:     " in the package has to be released.
  
      lv_package = ms_item-obj_name.
  
      remove_obsolete_tadir( lv_package ).
  
      IF is_empty( lv_package ) = abap_true.
  
  