anchor.diff:  
     METHOD lif_object~serialize.
   
  -    DATA: lo_xml    TYPE REF TO lcl_xml,
  +    DATA: lo_xml    TYPE REF TO lcl_xml_output,
             ls_tpara  TYPE tpara,
             ls_tparat TYPE tparat.
   
  
positive.code:     ENDIF.
  
      CREATE OBJECT lo_xml.
      lo_xml->structure_add( ls_tobc ).
      lo_xml->structure_add( ls_tobct ).
      mo_files->add_xml( lo_xml ).
  
    ENDMETHOD.                    "serialize
  
negative.code:                     et_properties = lt_properties ).
  
      CREATE OBJECT lo_xml.
      lo_xml->add( iv_name = 'APP'
                   ig_data = ls_app ).
      lo_xml->add( iv_name = 'PROPERTIES'
                   ig_data = lt_properties ).
      mo_files->add_xml( lo_xml ).
  
    ENDMETHOD.                    "serialize
  