anchor.diff:        lv_plus = lv_plus + 1.
       ENDDO.
   
  -  ENDMETHOD.                    "resolve_tabl
  +  ENDMETHOD.                    "resolve_ddic
   
     METHOD delete_obj.
   
  
positive.code:       _raise 'error from RS_CORR_INSERT'.
      ENDIF.
  
      READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'.
      ASSERT sy-subrc = 0.
      lv_title = ls_tpool-entry.
  
      SELECT SINGLE progname FROM reposrc INTO lv_progname
  
negative.code:       CASE <ls_tadir>-object.
          WHEN 'SUSC'.
            <ls_tadir>-korrnum = '5000'.
          WHEN 'TTYP' OR 'TABL' OR 'VIEW'.
            <ls_tadir>-korrnum = '7000'.
          WHEN 'DTEL'.
            <ls_tadir>-korrnum = '8000'.
  