anchor.diff:        AND delflag = abap_false
         AND pgmid = 'R3TR'.                               "#EC CI_GENBUFF
   
  +    LOOP AT lt_objs INTO ls_obj.
  +
  +      IF skip_object( ls_obj ) = abap_true.
  +        CONTINUE.
  +      ENDIF.
  +
  +      INSERT ls_obj INTO TABLE lt_objs_check.
  +
  +    ENDLOOP.
  +
       ro_set = cl_ci_objectset=>save_from_list(
         p_name    = mv_name
  -      p_objects = lt_objs ).
  +      p_objects = lt_objs_check ).
  +
  +  ENDMETHOD.
  +
  +
  +  METHOD skip_object.
  +
  +    DATA: ls_trdir TYPE trdir.
  +
  +    CASE is_obj-objtype.
  +      WHEN 'PROG'.
  +
  +        SELECT SINGLE *
  +          INTO ls_trdir
  +          FROM trdir
  +          WHERE name = is_obj-objname.
  +
  +        rv_skip = boolc( ls_trdir-subc = 'I' ). " Include program.
  +
  +      WHEN OTHERS.
  +        rv_skip = abap_false.
  +
  +    ENDCASE.
   
     ENDMETHOD.
   
  
positive.code:         !io_set TYPE REF TO cl_ci_objectset
        RAISING
          zcx_abapgit_exception .
    PRIVATE SECTION.
  
      DATA mv_success TYPE abap_bool .
  
negative.code: 
  
  
  CLASS zcl_abapgit_code_inspector IMPLEMENTATION.
  
  
    METHOD cleanup.
  