anchor.diff:  
   * fm TR_TADIR_INTERFACE
   * fm RS_CORR_INSERT ?
  -* break LSTRDF31 line 540
   
       DATA: lo_xml    TYPE REF TO lcl_xml,
             ls_dd01v  TYPE dd01v,
  
positive.code: CLASS lcl_serialize_prog DEFINITION INHERITING FROM lcl_serialize_common FINAL.
  
    PUBLIC SECTION.
      CLASS-METHODS: serialize IMPORTING is_item TYPE st_item
                               RETURNING value(rt_files) TYPE tt_files
                               RAISING lcx_exception.
  
      CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item
                                           it_files TYPE tt_files
                                 RAISING lcx_exception.
  
  
    PRIVATE SECTION.
      CLASS-METHODS: serialize_dynpros IMPORTING iv_program_name TYPE programm
                                                 io_xml TYPE REF TO lcl_xml
                                       RAISING lcx_exception.
  
      CLASS-METHODS: serialize_cua IMPORTING iv_program_name TYPE programm
                                             io_xml TYPE REF TO lcl_xml
                                   RAISING lcx_exception.
  
      CLASS-METHODS: deserialize_dynpros IMPORTING io_xml   TYPE REF TO lcl_xml
                                         RAISING lcx_exception.
  
      CLASS-METHODS: deserialize_cua IMPORTING io_xml  TYPE REF TO lcl_xml
                                               is_item TYPE st_item
                                     RAISING lcx_exception.
  
      CLASS-METHODS: deserialize_abap IMPORTING is_item     TYPE st_item
                                                io_xml      TYPE REF TO lcl_xml
                                                it_source   TYPE abaptxt255_tab
                                      RAISING lcx_exception.
  
      CLASS-METHODS exists IMPORTING iv_obj_name TYPE tadir-obj_name
                           RETURNING value(rv_exists) TYPE abap_bool.
  
negative.code:       ls_progdir_new-ldbname = ls_progdir-ldbname.
        ls_progdir_new-dbapl = ls_progdir-dbapl.
        ls_progdir_new-rload = ls_progdir-rload.
        ls_progdir_new-fixpt = ls_progdir-fixpt.
  
        CALL FUNCTION 'UPDATE_PROGDIR'
          EXPORTING
  