anchor.diff:  
     METHOD lif_object~delete.
   
  -    lcx_exception=>raise( 'PRAG not implemented' ).
  +    TRY.
  +        DATA(lo_pragma) = cl_abap_pragma=>get_ref( ms_item-obj_name ).
  +
  +        lo_pragma->delete( ).
  +
  +      CATCH cx_abap_pragma_not_exists
  +            cx_abap_pragma_enqueue.
  +
  +        lcx_exception=>raise( 'PRAG error' ).
  +
  +    ENDTRY.
   
     ENDMETHOD.
   
     METHOD lif_object~deserialize.
   
  -    lcx_exception=>raise( 'PRAG not implemented' ).
  +    DATA: pragma      TYPE ty_pragma.
  +
  +    TRY.
  +        io_xml->read(
  +          EXPORTING
  +            iv_name = 'PRAG'
  +          CHANGING
  +            cg_data = pragma ).
  +
  +        DATA(lo_pragma) = cl_abap_pragma=>create( p_pragma  = ms_item-obj_name
  +                                                  p_package = iv_package ).
  +
  +        lo_pragma->set_info( p_description = pragma-description
  +                             p_signature	 = pragma-signature
  +                             p_extension	 = pragma-extension ).
  +
  +        lo_pragma->save( ).
  +
  +      CATCH cx_abap_pragma_not_exists
  +            cx_abap_pragma_exists
  +            cx_abap_pragma_enqueue.
  +
  +        lcx_exception=>raise( 'PRAG error' ).
  +
  +    ENDTRY.
   
     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).
  +        cl_abap_pragma=>get_ref( ms_item-obj_name ).
  +      CATCH cx_abap_pragma_not_exists.
           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.
   
  
positive.code: 
    METHOD lif_object~serialize.
  
      lcx_exception=>raise( 'PRAG not implemented' ).
  
    ENDMETHOD.
  
  
negative.code: 
      CALL FUNCTION 'RS_TOOL_ACCESS'
        EXPORTING
          operation           = 'SHOW'
          object_name         = ms_item-obj_name
          object_type         = ms_item-obj_type
        EXCEPTIONS
          not_executed        = 1
          invalid_object_type = 2
  