anchor.diff:      lo_xml->structure_add( ls_progdir ).
       IF ls_progdir-subc = '1'.
         serialize_dynpros( EXPORTING iv_program_name = lv_program_name
  -                                   io_xml = lo_xml ).
  -    ENDIF.
  -    lv_xml = lo_xml->xml_render( ).
  -
  -    CLEAR ls_file.
  -    ls_file-path = '/'.
  -    CONCATENATE lv_program_name '.prog.xml' INTO ls_file-filename. "#EC NOTEXT
  -    TRANSLATE ls_file-filename TO LOWER CASE.
  -    ls_file-data = lcl_convert=>string_to_xstring_utf8( lv_xml ).
  +                                   io_xml          = lo_xml ).
  +    ENDIF.
  +
  +
  +    ls_file = xml_to_file( iv_obj_name = iv_obj_name
  +                           io_xml      = lo_xml ).
       APPEND ls_file TO rt_files.
  +
   
       CONCATENATE LINES OF lt_source INTO lv_source SEPARATED BY gc_newline.
       CLEAR ls_file.
       ls_file-path = '/'.
  -    CONCATENATE lv_program_name '.prog.abap' INTO ls_file-filename. "#EC NOTEXT
  +    CONCATENATE lv_program_name '.' gv_type '.abap' INTO ls_file-filename. "#EC NOTEXT
       TRANSLATE ls_file-filename TO LOWER CASE.
       ls_file-data = lcl_convert=>string_to_xstring_utf8( lv_source ).
       APPEND ls_file TO rt_files.
  
positive.code:     rv_html = rv_html && '<table border="1">' && gc_newline.
      LOOP AT lt_results ASSIGNING <ls_result>.
        IF <ls_result>-match = abap_false.
          lv_link = '<a href="sapevent:diff?' && struct_encode( ig_structure1 = <ls_result> ig_structure2 = is_repo ) && '">diff</a>'.
        ELSE.
          CLEAR lv_link.
        ENDIF.
  
negative.code: *----------------------------------------------------------------------*
  CLASS lcl_serialize_clas IMPLEMENTATION.
  
    METHOD class_constructor.
      gv_type = 'CLAS'.
    ENDMETHOD.                    "class_constructor
  
    METHOD serialize.
  
      DATA: lo_source TYPE REF TO cl_oo_source,
            lt_source TYPE seop_source_string,
            ls_clskey TYPE seoclskey.
  
  
      ls_clskey-clsname = iv_obj_name.
  
      CREATE OBJECT lo_source
        EXPORTING
          clskey             = ls_clskey
        EXCEPTIONS
          class_not_existing = 1
          OTHERS             = 2.
      IF sy-subrc <> 0.
        _raise 'error from CL_OO_SOURCE'.
      ENDIF.
      lo_source->read( ).
      lt_source = lo_source->get_old_source( ).
  
      _raise 'todo'.
  
    ENDMETHOD.                    "serialize
  
    METHOD deserialize.
  