Class User.classA Extends %Persistent
{
	Storage Default
	{
	<Data name="classADefaultData">
	<Value name="1">
	<Value>%%CLASSNAME</Value>
	</Value>
	</Data>
	<DataLocation>^User.classAD</DataLocation>
	<DefaultData>classADefaultData</DefaultData>
	<IdLocation>^User.classAD</IdLocation>
	<IndexLocation>^User.classAI</IndexLocation>
	<StreamLocation>^User.classAS</StreamLocation>
	<Type>%Library.CacheStorage</Type>
	}
}


Class User.classB Extends classA
{
	Storage Default
	{
	<Type>%Library.CacheStorage</Type>
	}
}

Class User.A Extends %Persistent [Abstract, ClassType=""]
{

Property A As %String;

}

Class User.B Extends User.A [ClassType = persistent]
{

Property AAA As %String;

Storage Default
{
<Data name="BDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>A</Value>
</Value>
<Value name="3">
<Value>AAA</Value>
</Value>
</Data>
<DataLocation>^User.BD</DataLocation>
<DefaultData>BDefaultData</DefaultData>
<IdLocation>^User.BD</IdLocation>
<IndexLocation>^User.BI</IndexLocation>
<StreamLocation>^User.BS</StreamLocation>
<Type>%Library.CacheStorage</Type>
}

}