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: 
      CALL FUNCTION 'RS_TOOL_ACCESS'
        EXPORTING
          operation           = 'SHOW'    " Operation
          object_name         = ms_item-obj_name    " Object Name
          object_type         = ms_item-obj_type    " Object Type
        EXCEPTIONS
          not_executed        = 1
          invalid_object_type = 2
  
negative.code: 
    METHOD lif_object~delete.
  
      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.
  
      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.
  
      TRY.
          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.
  
    ENDMETHOD.
  
  