anchor.diff:  
   
       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
  
positive.code:     CLASS-METHODS:
        read
          IMPORTING iv_package      TYPE tadir-devclass
          RETURNING VALUE(rt_tadir) TYPE tt_tadir,
        read_single
          IMPORTING iv_pgmid        TYPE tadir-pgmid DEFAULT 'R3TR'
                    iv_object       TYPE tadir-object
                    iv_obj_name     TYPE tadir-obj_name
          RETURNING VALUE(rs_tadir) TYPE tadir.
  
  ENDCLASS.
  
  CLASS lcl_tadir IMPLEMENTATION.
  
negative.code:     CREATE OBJECT lo_zip.
  
      LOOP AT it_files ASSIGNING <ls_file>.
        CONCATENATE <ls_file>-path <ls_file>-filename INTO lv_filename.
        lo_zip->add( name    = lv_filename
                     content = <ls_file>-data ).
      ENDLOOP.
  
  