anchor.diff:  *
   *----------------------------------------------------------------------*
   CLASS lcl_serialize_common IMPLEMENTATION.
  +
  +  METHOD corr_insert.
  +
  +    DATA: ls_object TYPE ddenqs.
  +
  +
  +    ls_object-objtype = is_item-obj_type.
  +    ls_object-objname = is_item-obj_name.
  +
  +    CALL FUNCTION 'RS_CORR_INSERT'
  +      EXPORTING
  +        object              = ls_object
  +        object_class        = 'DICT'
  +        master_language     = sy-langu
  +      EXCEPTIONS
  +        cancelled           = 1
  +        permission_failure  = 2
  +        unknown_objectclass = 3
  +        OTHERS              = 4.
  +    IF sy-subrc <> 0.
  +      _raise 'error from RS_CORR_INSERT'.
  +    ENDIF.
  +
  +  ENDMETHOD.                    "corr_insert
   
     METHOD filename.
   
  
positive.code:         '</a>&nbsp;'.
      ENDLOOP.
  
      rv_html = rv_html && '<br><br><br>'.
  
      LOOP AT lt_repos INTO ls_repo.
        rv_html = rv_html && render_repo( ls_repo ).
      ENDLOOP.
  
      rv_html = rv_html && render_footer( ).
  
  
negative.code: 
    METHOD activate.
  
  * function group SEWORKINGAREA
  
      DATA: lt_objects  TYPE dwinactiv_tab,
            lv_obj_name TYPE dwinactiv-obj_name.
  
  
      lv_obj_name = is_item-obj_name.
  
      CASE is_item-obj_type.
        WHEN 'CLAS'.
          CALL FUNCTION 'RS_INACTIVE_OBJECTS_IN_OBJECT'
            EXPORTING
              obj_name         = lv_obj_name
              object           = is_item-obj_type
            TABLES
              inactive_objects = lt_objects.
  
          IF lt_objects[] IS INITIAL.
            RETURN.
          ENDIF.
  
          CALL FUNCTION 'RS_WORKING_OBJECTS_ACTIVATE'
            TABLES
              objects                = lt_objects
            EXCEPTIONS
              excecution_error       = 1
              cancelled              = 2
              insert_into_corr_error = 3
              execution_error        = 4
              OTHERS                 = 5.
          IF sy-subrc <> 0.
            _raise 'error from RS_WORKING_OBJECTS_ACTIVATE'.
          ENDIF.
  
        WHEN 'DOMA' OR 'DTEL'.
          CALL FUNCTION 'RS_WORKING_OBJECT_ACTIVATE'
            EXPORTING
              object                     = is_item-obj_type
              obj_name                   = lv_obj_name
              dictionary_only            = abap_true
            EXCEPTIONS
              object_not_in_working_area = 1
              execution_error            = 2
              cancelled                  = 3
              insert_into_corr_error     = 4
              OTHERS                     = 5.
          IF sy-subrc <> 0.
            _raise 'error from RS_WORKING_OBJECT_ACTIVATE'.
          ENDIF.
  
        WHEN OTHERS.
          _raise 'activate, unknown type'.
      ENDCASE.
  
    ENDMETHOD.                    "activate
  
  