anchor.diff:  
       LOOP AT lt_tadir ASSIGNING <ls_tadir>.
         CASE <ls_tadir>-object.
  +        WHEN 'SUSC'.
  +          <ls_tadir>-korrnum = '5000'.
           WHEN 'TABL' OR 'TTYP' OR 'VIEW'.
             <ls_tadir>-korrnum = '7000'.
           WHEN 'DTEL'.
  
positive.code: *
  *----------------------------------------------------------------------*
  CLASS lcl_gui IMPLEMENTATION.
  
    METHOD render_header.
  
  
negative.code:     CLASS-METHODS get_logo_src
        RETURNING VALUE(rv_src) TYPE string.
  
      CLASS-METHODS zipexport
        RAISING lcx_exception.
  
  ENDCLASS.                    "lcl_gui DEFINITION
  
  *----------------------------------------------------------------------*
  