anchor.diff:  
       ls_progdir = read_progdir( lv_program_name ).
   
  -    CREATE OBJECT lo_xml.
  +    IF io_xml IS BOUND.
  +      lo_xml = io_xml.
  +    ELSE.
  +      CREATE OBJECT lo_xml.
  +    ENDIF.
  +
       lo_xml->add( iv_name = 'PROGDIR'
                    ig_data = ls_progdir ).
       IF ls_progdir-subc = '1'.
  
positive.code: 
      DATA: lv_name  TYPE ddobjname,
            ls_dd04v TYPE dd04v,
            ls_tpara TYPE tpara,
            lo_xml   TYPE REF TO lcl_xml_output.
  
  
      lv_name = ms_item-obj_name.
  
negative.code:   METHOD lif_object~serialize.
  
      DATA: lv_name  TYPE ddobjname,
            ls_dd25v TYPE dd25v,
            lt_dd26e TYPE TABLE OF dd26e,
            lt_dd27p TYPE TABLE OF dd27p.
  