anchor.diff:        RETURNING VALUE(rs_progdir) TYPE ty_progdir.
   
       CLASS-METHODS serialize_program
  -      IMPORTING is_item         TYPE st_item
  +      IMPORTING is_item         TYPE ty_item
                   iv_program      TYPE programm OPTIONAL
                   iv_extra        TYPE clike OPTIONAL
  -      RETURNING VALUE(rt_files) TYPE tt_files
  +      RETURNING VALUE(rt_files) TYPE ty_files_tt
         RAISING   lcx_exception.
   
       CLASS-METHODS deserialize_program
  
positive.code: 
  CONSTANTS: gc_english TYPE spras VALUE 'E'.
  
  DATA: gv_agent TYPE string ##needed.
  
  DEFINE _raise.
    raise exception type lcx_exception
  
negative.code: CLASS lcl_tadir DEFINITION FINAL.
  
    PUBLIC SECTION.
      TYPES: BEGIN OF ty_tadir,
               pgmid    TYPE tadir-pgmid,
               object   TYPE tadir-object,
               obj_name TYPE tadir-obj_name,
               devclass TYPE tadir-devclass,
               korrnum  TYPE tadir-korrnum,
               path     TYPE string,
             END OF ty_tadir.
      TYPES: ty_tadir_tt TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY.
  
      CLASS-METHODS:
        read
          IMPORTING iv_package      TYPE tadir-devclass
          RETURNING VALUE(rt_tadir) TYPE ty_tadir_tt
          RAISING   lcx_exception,
        read_single
          IMPORTING iv_pgmid        TYPE tadir-pgmid DEFAULT 'R3TR'
  