anchor.diff:        CASE <ls_tadir>-object.
           WHEN 'SUSC'.
             <ls_tadir>-korrnum = '5000'.
  -        WHEN 'TABL' OR 'TTYP' OR 'VIEW'.
  +        WHEN 'TTYP'.
  +          <ls_tadir>-korrnum = '6000'.
  +        WHEN 'TABL' OR 'VIEW'.
             <ls_tadir>-korrnum = '7000'.
           WHEN 'DTEL'.
             <ls_tadir>-korrnum = '8000'.
  
positive.code:         no_access_permission  = 5
          illegal_language      = 6
          OTHERS                = 7.
      IF sy-subrc <> 0.
        _raise 'error from SSF_DELETE_STYLE'.
      ENDIF.
  
  
negative.code:         illegal_language      = 5
          illegal_formtype      = 6
          OTHERS                = 7.
      IF sy-subrc <> 0 AND sy-subrc <> 2.
        _raise 'Error from FB_DELETE_FORM'.
      ENDIF.
  
  