anchor.diff:      IF sy-subrc = 2.
         " Drop also any inactive code that is left in REPOSRC
         DELETE REPORT lv_program ##SUBRC_OK.
  +
  +      " Remove inactive objects from work area
  +      lv_obj_name = lv_program.
  +
  +      CALL FUNCTION 'RS_DELETE_FROM_WORKING_AREA'
  +        EXPORTING
  +          object                 = 'REPS'
  +          obj_name               = lv_obj_name
  +          immediate              = 'X'
  +          actualize_working_area = 'X'.
  +
  +      CALL FUNCTION 'RS_DELETE_FROM_WORKING_AREA'
  +        EXPORTING
  +          object                 = 'REPT'
  +          obj_name               = lv_obj_name
  +          immediate              = 'X'
  +          actualize_working_area = 'X'.
       ELSEIF sy-subrc <> 0.
         zcx_abapgit_exception=>raise( |Error from RS_DELETE_PROGRAM: { sy-subrc }| ).
       ENDIF.
  
positive.code:           ls_cua          TYPE ty_cua,
            lt_source       TYPE abaptxt255_tab.
  
      lv_program_name = ms_item-obj_name.
  
      lt_source = mo_files->read_abap( ).
  
negative.code: 
    METHOD zif_abapgit_object~delete.
  
      DATA: lv_program  LIKE sy-repid,
            lv_obj_name TYPE e071-obj_name.
  
      lv_program = ms_item-obj_name.
  
  