anchor.diff:      io_xml->structure_read( CHANGING cg_structure = ls_progdir ).
   
   
  +    READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'.    "#EC SUBRC
  +    lv_title = ls_tpool-entry.
   
       IF exists( is_item-obj_name ) = abap_true.
         CALL FUNCTION 'RPY_PROGRAM_UPDATE'
           EXPORTING
             program_name     = ls_progdir-name
  +          title_string     = lv_title
             save_inactive    = 'I'
           TABLES
             source_extended  = it_source
  
positive.code: 
  * fm TR_TADIR_INTERFACE
  * fm RS_CORR_INSERT ?
  * break LSTRDF31 line 540
  
      DATA: lo_xml    TYPE REF TO lcl_xml,
            ls_dd01v  TYPE dd01v,
  
negative.code:                                io_xml          = lo_xml ).
      ENDIF.
  
      serialize_textpool( EXPORTING iv_program_name = lv_program_name
                                    io_xml          = lo_xml ).
  
      ls_file = xml_to_file( is_item = is_item
                             io_xml  = lo_xml ).
  