HOW TO USE RPROPERTY?

//Declaration of RProperty with specific UID
const TUid KExampleProperty = {0x101F17A8};
enum TExamplePropertyKeys
{
 EIntProperty,
 EStrProperty
};

//Definition of the Property
TInt ret=RProperty::Define(KExampleProperty,EIntProperty,RProperty::EInt);
if (ret != KErrNone)
{
 User::LeaveIfError(ret);
 RDebug::Printf("ErrValue is: %d",ret);
}

//Set the value of the property value.
ret=RProperty::Set(KTsmdProperty,ETsmdProperty,0);
RDebug::Printf("ErrValue is: %d",ret);
if (ret != KErrNone)
{
 User::LeaveIfError(ret);
 RDebug::Printf("ErrValue is: %d",ret);
}

//Get the property value.
TInt Err;
TInt propertyvalue;
Err = RProperty::Get(KExampleProperty,EIntProperty,propertyvalue);
if(Err!=KErrNone)
RDebug::Printf("TCmdKEY::StartTestMode Get Err value: %d",Err);