anchor.diff:  
     METHOD lif_object~serialize.
   
  -    lcx_exception=>raise( 'PRAG not implemented' ).
  +    TRY.
  +        DATA(lo_pragma) = cl_abap_pragma=>get_ref( ms_item-obj_name ).
  +
  +        DATA(pragma) = VALUE ty_pragma( pragma			= lo_pragma->pragma
  +                                        extension 	= lo_pragma->extension
  +                                        signature 	= lo_pragma->signature
  +                                        description = lo_pragma->description ).
  +
  +        io_xml->add(
  +          EXPORTING
  +            iv_name = 'PRAG'
  +            ig_data = pragma ).
  +
  +      CATCH cx_abap_pragma_not_exists.
  +        RETURN.
  +    ENDTRY.
   
     ENDMETHOD.
   
  
positive.code: 
    METHOD lif_object~delete.
  
      lcx_exception=>raise( 'PRAG not implemented' ).
  
    ENDMETHOD.
  
    METHOD lif_object~deserialize.
  
      lcx_exception=>raise( 'PRAG not implemented' ).
  
    ENDMETHOD.
  
    METHOD lif_object~exists.
  
      DATA(persist) = NEW cl_wb_abpr_persist( ).
  
      TRY.
          persist->if_wb_object_persist~get( p_object_key 					= |{ ms_item-obj_name }|     " Object Key
                                             p_version							= 'A'    " Version (Active/Inactive)
                                             p_existence_check_only = abap_true     " Perform Existence Check Only (no existence -> exception)
          ).
  
        CATCH cx_swb_exception INTO DATA(error).
          rv_bool = abap_false.
          RETURN.
      ENDTRY.
  
      rv_bool = abap_true.
  
  
  *    DATA: object_data TYPE REF TO if_wb_object_data_model.
  *
  *    DATA(persist) = NEW cl_wb_abpr_persist( ).
  *
  *    TRY.
  *        persist->if_wb_object_persist~get(
  *          EXPORTING
  *            p_object_key                 = |{ ms_item-obj_name }|     " Object Key
  *            p_version                    = 'A'    " Version (Active/Inactive)
  **        p_language                   = SY-LANGU    " Language Key (Important: must not trigger exception)
  **        p_if_none_match              =
  **        p_existence_check_only       = ABAP_FALSE    " Perform Existence Check Only (no existence -> exception)
  **        p_data_selection             = C_ALL_DATA    " Selection (or Filter) of Object Data
  **        p_wb_rest                    =
  **      IMPORTING
  **        p_langu_is_not_maintained    =     " 'X': No data exists in specified language
  **        p_etag                       =
  **        p_other_existing_versions    =
  *      CHANGING
  *        p_object_data                = object_data
  *        ).
  *
  *      CATCH cx_swb_object_does_not_exist cx_swb_exception INTO DATA(error).
  *        MESSAGE error TYPE 'S' DISPLAY LIKE 'E'.
  *        RETURN.
  *    ENDTRY.
  *
  *    DATA(ui) = NEW cl_wb_abpr_ui( ).
  *
  *    DATA(tool) = NEW cl_wb_abpr_tool(
  *        p_ui      = ui
  *        p_persist = persist
  *    ).
  *
  *    DATA(tool_data) = NEW cl_wb_generic_tool_data( ).
  *
  *    tool_data->if_wb_tool_data_model~set_edit_mode( 'EDIT' ).
  *
  *    ui->if_wb_tool_ui~set_data(
  *      EXPORTING
  *        p_object_data = object_data     " Object Data
  *        p_tool_data   = tool_data
  *    ).
  *
  *    ui->if_wb_tool_ui~start(
  *      EXPORTING
  *        p_tool_ref     = tool    " Reference to WB Tool
  *      EXCEPTIONS
  *        error_occurred = 1
  *        OTHERS         = 2 ).
  
    ENDMETHOD.
  
  
negative.code:   PUBLIC SECTION.
      INTERFACES lif_object.
  
    PRIVATE SECTION.
      TYPES: BEGIN OF ty_pragma,
               pragma      TYPE c LENGTH 40,
               extension   TYPE c LENGTH 1,
               signature   TYPE c LENGTH 10,
               description TYPE c LENGTH 255,
             END OF ty_pragma.
  
  ENDCLASS.
  
  CLASS lcl_object_prag IMPLEMENTATION.
  
    METHOD lif_object~changed_by.
  
      rv_user = sy-uname.
  
    ENDMETHOD.
  
  