anchor.diff:  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: 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.
  +      IMPORTING is_item  TYPE st_item
  +                it_files TYPE tt_files
  +      RAISING   lcx_exception.
   
       CLASS-METHODS: delete      IMPORTING is_item TYPE st_item
  -                               RAISING lcx_exception.
  +                               RAISING   lcx_exception.
   
     PRIVATE SECTION.
  +    TYPES: BEGIN OF ty_progdir,
  +             name    TYPE progdir-name,
  +             state   TYPE progdir-state,
  +             sqlx    TYPE progdir-sqlx,
  +             edtx    TYPE progdir-edtx,
  +             varcl   TYPE progdir-varcl,
  +             dbapl   TYPE progdir-dbapl,
  +             dbna    TYPE progdir-dbna,
  +             clas    TYPE progdir-clas,
  +             type    TYPE progdir-type,
  +             occurs  TYPE progdir-occurs,
  +             subc    TYPE progdir-subc,
  +             appl    TYPE progdir-appl,
  +             secu    TYPE progdir-secu,
  +             cnam    TYPE progdir-cnam,
  +             cdat    TYPE progdir-cdat,
  +             unam    TYPE progdir-unam,
  +             udat    TYPE progdir-udat,
  +             vern    TYPE progdir-vern,
  +             levl    TYPE progdir-levl,
  +             rstat   TYPE progdir-rstat,
  +             rmand   TYPE progdir-rmand,
  +             rload   TYPE progdir-rload,
  +             fixpt   TYPE progdir-fixpt,
  +             sset    TYPE progdir-sset,
  +             sdate   TYPE progdir-sdate,
  +             stime   TYPE progdir-stime,
  +             idate   TYPE progdir-idate,
  +             itime   TYPE progdir-itime,
  +             ldbname TYPE progdir-ldbname,
  +             uccheck TYPE progdir-uccheck,
  +           END OF ty_progdir.
  +
       CLASS-METHODS: serialize_dynpros
  -                              IMPORTING iv_program_name TYPE programm
  -                                        io_xml TYPE REF TO lcl_xml
  -                              RAISING lcx_exception.
  +      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.
  +      IMPORTING iv_program_name TYPE programm
  +                io_xml          TYPE REF TO lcl_xml
  +      RAISING   lcx_exception.
   
       CLASS-METHODS: serialize_textpool
  -                              IMPORTING iv_program_name TYPE programm
  -                                        io_xml TYPE REF TO lcl_xml
  -                              RAISING lcx_exception.
  +      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.
  +      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.
  +      IMPORTING io_xml  TYPE REF TO lcl_xml
  +                is_item TYPE st_item
  +      RAISING   lcx_exception.
   
       CLASS-METHODS: deserialize_textpool
  -                              IMPORTING it_tpool TYPE textpool_table
  -                                        is_item  TYPE st_item
  -                              RAISING lcx_exception.
  +      IMPORTING it_tpool TYPE textpool_table
  +                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
  -                                        it_tpool    TYPE textpool_table
  -                              RAISING lcx_exception.
  -
  -    CLASS-METHODS exists IMPORTING iv_obj_name TYPE tadir-obj_name
  -                         RETURNING value(rv_exists) TYPE abap_bool.
  +      IMPORTING is_item   TYPE st_item
  +                io_xml    TYPE REF TO lcl_xml
  +                it_source TYPE abaptxt255_tab
  +                it_tpool  TYPE textpool_table
  +      RAISING   lcx_exception.
  +
  +    CLASS-METHODS exists IMPORTING iv_obj_name      TYPE tadir-obj_name
  +                         RETURNING VALUE(rv_exists) TYPE abap_bool.
   
   ENDCLASS.                    "lcl_serialize_prog DEFINITION
   
  
positive.code: 
    PUBLIC SECTION.
  
      CLASS-METHODS decode IMPORTING iv_data TYPE xstring
                           RETURNING value(rt_objects) TYPE tt_objects
                           RAISING lcx_exception.
  
      CLASS-METHODS decode_tree IMPORTING iv_data TYPE xstring
                           RETURNING value(rt_nodes) TYPE tt_nodes
                           RAISING lcx_exception.
  
      CLASS-METHODS decode_deltas CHANGING ct_objects TYPE tt_objects
                           RAISING lcx_exception.
  
      CLASS-METHODS decode_commit IMPORTING iv_data TYPE xstring
                           RETURNING value(rs_commit) TYPE st_commit
                           RAISING lcx_exception.
  
      CLASS-METHODS encode IMPORTING it_objects TYPE tt_objects
                           RETURNING value(rv_data) TYPE xstring
                           RAISING lcx_exception.
  
      CLASS-METHODS: encode_tree IMPORTING it_nodes TYPE tt_nodes
                           RETURNING value(rv_data) TYPE xstring.
  
      CLASS-METHODS: encode_commit IMPORTING is_commit TYPE st_commit
                           RETURNING value(rv_data) TYPE xstring.
  
  
    PRIVATE SECTION.
  
negative.code:         _raise 'not found in PROGDIR'.
        ENDIF.
  
        ls_progdir_new-ldbname = ls_locdir-ldbname.
        ls_progdir_new-dbapl   = ls_locdir-dbapl.
        ls_progdir_new-rload   = ls_locdir-rload.
        ls_progdir_new-fixpt   = ls_locdir-fixpt.
  
        CALL FUNCTION 'UPDATE_PROGDIR'
          EXPORTING
  