anchor.diff:  
       SELECT SINGLE oclss FROM tobc INTO lv_oclss
         WHERE oclss = ms_item-obj_name.
  -    IF sy-subrc = 0.
  -      rv_bool = abap_true.
  -    ELSE.
  -      rv_bool = abap_false.
  -    ENDIF.
  +    rv_bool = boolc( sy-subrc = 0 ).
   
     ENDMETHOD.
   
  
positive.code:       WHERE tabname = ms_item-obj_name
        AND as4local = 'A'
        AND as4vers = '0000'.
      IF sy-subrc = 0.
        rv_bool = abap_true.
      ELSE.
        rv_bool = abap_false.
      ENDIF.
  
    ENDMETHOD.
  
  
negative.code:       INTO lv_component_name
        WHERE component_name = ms_item-obj_name
        AND version = 'A'.
      rv_bool = boolc( sy-subrc = 0 ).
  
    ENDMETHOD.
  
  