anchor.diff:          APPEND INITIAL LINE TO lcl_serialize_common=>gt_ddic ASSIGNING <ls_object>.
           <ls_object>-object   = iv_type.
           <ls_object>-obj_name = lv_obj_name.
  -      WHEN 'REPS' OR 'DYNP' OR 'CUAD'.
  +      WHEN 'REPS' OR 'DYNP' OR 'CUAD' OR 'REPT'.
   * these seem to go into the workarea automatically
           APPEND INITIAL LINE TO lcl_serialize_common=>gt_programs ASSIGNING <ls_object>.
           <ls_object>-object   = iv_type.
  
positive.code:     io_xml->structure_read( CHANGING cg_structure = ls_progdir ).
  
  
  
      IF exists( is_item-obj_name ) = abap_true.
        CALL FUNCTION 'RPY_PROGRAM_UPDATE'
          EXPORTING
            program_name     = ls_progdir-name
            save_inactive    = 'I'
          TABLES
            source_extended  = it_source
  
negative.code: 
    METHOD xml_find.
  
      DATA: li_root LIKE ii_root.
  
  
      IF ii_root IS BOUND.
        li_root = ii_root.
      ELSE.
        li_root = mi_root.
      ENDIF.
  
      ri_element = li_root->find_from_name( depth = 0 name = iv_name ).
      IF NOT ri_element IS BOUND.
        RETURN.
      ENDIF.
      li_root->remove_child( ri_element ).
  
    ENDMETHOD.                    "xml_find
  
  