anchor.diff:  
   ENDCLASS.
   
  +CLASS lcl_object_type DEFINITION INHERITING FROM lcl_objects_common FINAL.
  +
  +  PUBLIC SECTION.
  +    CLASS-METHODS serialize
  +      IMPORTING is_item         TYPE st_item
  +      RETURNING VALUE(rt_files) TYPE tt_files
  +      RAISING   lcx_exception.
  +
  +    CLASS-METHODS deserialize
  +      IMPORTING is_item    TYPE st_item
  +                it_files   TYPE tt_files
  +                iv_package TYPE devclass
  +      RAISING   lcx_exception ##needed.
  +
  +    CLASS-METHODS delete
  +      IMPORTING is_item TYPE st_item
  +      RAISING   lcx_exception.
  +
  +    CLASS-METHODS jump
  +      IMPORTING is_item TYPE st_item
  +      RAISING   lcx_exception.
  +
  +ENDCLASS.
  +
  +CLASS lcl_object_type IMPLEMENTATION.
  +
  +  METHOD serialize.
  +
  +    DATA: lv_ddtext    TYPE ddtypet-ddtext,
  +          lv_typdname  TYPE rsedd0-typegroup,
  +          lt_psmodisrc TYPE TABLE OF smodisrc,
  +          lt_psmodilog TYPE TABLE OF smodilog,
  +          lt_psource   TYPE TABLE OF abaptxt255,
  +          lt_ptrdir    TYPE TABLE OF trdir.
  +
  +
  +    SELECT SINGLE ddtext FROM ddtypet
  +      INTO lv_ddtext
  +      WHERE typegroup = is_item-obj_name
  +      AND ddlanguage = gc_english.
  +    IF sy-subrc <> 0.
  +      RETURN.
  +    ENDIF.
  +
  +    lv_typdname = is_item-obj_name.
  +    CALL FUNCTION 'TYPD_GET_OBJECT'
  +      EXPORTING
  +        typdname          = lv_typdname
  +      TABLES
  +        psmodisrc         = lt_psmodisrc
  +        psmodilog         = lt_psmodilog
  +        psource           = lt_psource
  +        ptrdir            = lt_ptrdir
  +      EXCEPTIONS
  +        version_not_found = 1
  +        reps_not_exist    = 2
  +        OTHERS            = 3.
  +    IF sy-subrc <> 0.
  +      _raise 'error from TYPD_GET_OBJECT'.
  +    ENDIF.
  +
  +    _raise 'todo, TYPE, serialize'.
  +
  +  ENDMETHOD.
  +
  +  METHOD deserialize.
  +
  +    _raise 'todo, TYPE, deserialize'.
  +* fm RS_DD_TYGR_INSERT_SOURCES
  +
  +  ENDMETHOD.
  +
  +  METHOD delete.
  +
  +    _raise 'todo, TYPE, delete'.
  +* fm TYPD_INTERNAL_SERVICE
  +
  +  ENDMETHOD.
  +
  +  METHOD jump.
  +
  +    jump_se11( is_item  = is_item
  +               iv_radio = 'RSRD1-TYMA'
  +               iv_field = 'RSRD1-TYMA_VAL' ).
  +
  +  ENDMETHOD.
  +
  +ENDCLASS.
  +
   CLASS lcl_object_para DEFINITION INHERITING FROM lcl_objects_common FINAL.
   
     PUBLIC SECTION.
  
positive.code:     SELECT * FROM t100 INTO TABLE lt_source
        WHERE sprsl = gc_english
        AND arbgb = lv_msg_id
        ORDER BY PRIMARY KEY.                               "#EC CI_SUBRC
  
      CLEAR: ls_inf-lastuser,
             ls_inf-ldate,
  
negative.code:     lv_msg_id = is_item-obj_name.
  
      SELECT SINGLE * FROM t100a INTO ls_inf
        WHERE arbgb = lv_msg_id.                          "#EC CI_GENBUFF
      IF sy-subrc <> 0.
        RETURN.
      ENDIF.
  