anchor.diff:  
     ENDMETHOD.                    "serialize_dynpros
   
  -  METHOD serialize_program.
  -
  -    DATA: ls_progdir      TYPE ty_progdir,
  -          lv_program_name TYPE programm,
  -          lt_source       TYPE TABLE OF abaptxt255,
  -          lt_tpool        TYPE textpool_table,
  -          ls_tpool        LIKE LINE OF lt_tpool,
  -          lo_xml          TYPE REF TO lcl_xml.
  -
  -    IF iv_program IS INITIAL.
  -      lv_program_name = is_item-obj_name.
  -    ELSE.
  -      lv_program_name = iv_program.
  -    ENDIF.
  -
  -    CALL FUNCTION 'RPY_PROGRAM_READ'
  -      EXPORTING
  -        program_name     = lv_program_name
  -        with_lowercase   = abap_true
  -      TABLES
  -        source_extended  = lt_source
  -        textelements     = lt_tpool
  -      EXCEPTIONS
  -        cancelled        = 1
  -        not_found        = 2
  -        permission_error = 3
  -        OTHERS           = 4.
  -    IF sy-subrc = 2.
  -      RETURN.
  -    ELSEIF sy-subrc <> 0.
  -      _raise 'Error reading program'.
  -    ENDIF.
  -
  -    ls_progdir = read_progdir( lv_program_name ).
  -
  -    CREATE OBJECT lo_xml.
  -    lo_xml->structure_add( ig_structure = ls_progdir
  -                           iv_name      = 'PROGDIR' ).
  -    IF ls_progdir-subc = '1'.
  -      serialize_dynpros( iv_program_name = lv_program_name
  -                         io_xml          = lo_xml ).
  -      serialize_cua( iv_program_name = lv_program_name
  -                     io_xml          = lo_xml ).
  -    ENDIF.
  -
  -    IF lines( lt_tpool ) = 1.
  -      READ TABLE lt_tpool INDEX 1 INTO ls_tpool.
  -      ASSERT sy-subrc = 0.
  -      IF ls_tpool-id = 'R' AND ls_tpool-key = '' AND ls_tpool-length = 0.
  -        DELETE lt_tpool INDEX 1.
  -      ENDIF.
  -    ENDIF.
  -
  -    lo_xml->table_add( lt_tpool ).
  -
  -    io_files->add_xml( iv_extra = iv_extra
  -                       io_xml   = lo_xml ).
  -
  -    io_files->add_abap( iv_extra = iv_extra
  -                        it_abap  = lt_source ).
  -
  -  ENDMETHOD.                    "serialize_program
  -
  -  METHOD read_progdir.
  -
  -    DATA: ls_sapdir TYPE progdir.
  -
  -
  -    CALL FUNCTION 'READ_PROGDIR'
  -      EXPORTING
  -        i_progname = iv_program
  -        i_state    = 'A'
  -      IMPORTING
  -        e_progdir  = ls_sapdir.
  -    MOVE-CORRESPONDING ls_sapdir TO rs_progdir.
  -
  -    CLEAR: rs_progdir-edtx,
  -           rs_progdir-cnam,
  -           rs_progdir-cdat,
  -           rs_progdir-unam,
  -           rs_progdir-udat,
  -           rs_progdir-vern,
  -           rs_progdir-rmand,
  -           rs_progdir-sdate,
  -           rs_progdir-stime,
  -           rs_progdir-idate,
  -           rs_progdir-itime.
  -
  -  ENDMETHOD.                    "read_progdir
  +ENDCLASS.
  +
  +*----------------------------------------------------------------------*
  +*       CLASS lcl_objects_super IMPLEMENTATION
  +*----------------------------------------------------------------------*
  +*
  +*----------------------------------------------------------------------*
  +CLASS lcl_objects_super IMPLEMENTATION.
  +
  +  METHOD constructor.
  +    ms_item  = is_item.
  +  ENDMETHOD.
   
     METHOD jump_se11.
   
  
positive.code:     DATA: ms_item  TYPE ty_item,
            mo_files TYPE REF TO lcl_objects_files.
  
      TYPES: BEGIN OF ty_progdir,
               name    TYPE progdir-name,
               state   TYPE progdir-state,
  
negative.code: 
    METHOD lif_object~jump.
  
      jump_se11( iv_radio = 'RSRD1-DDTYPE'
                 iv_field = 'RSRD1-DDTYPE_VAL' ).
  
    ENDMETHOD.                    "jump
  