test.xml

<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2016-09-06 13:42:59">
<Class name="Utils.SU">
<Super>%Persistent</Super>
<TimeChanged>64167,48641.752589</TimeChanged>
<TimeCreated>64167,48197.94576</TimeCreated>

<Property name="String">
<Type>%String</Type>
</Property>

<Property name="Serial">
<Type>Serial</Type>
</Property>

<Method name="Test">
<Description>
do ##class(Utils.SU).Test()</Description>
<ClassMethod>1</ClassMethod>
<Implementation><![CDATA[
	Do ..%KillExtent()
	Set Obj = ..%New()
	Set Obj.String = 1
	w $System.Status.GetErrorText(Obj.%Save())
	Kill
	
	Set Obj = ..%OpenId(1)
	Do Obj.Serial.%GetSwizzleObject(,.Serial1)
	Zw Serial1
	Kill
	
	&sql(UPDATE Utils.SU SET String = 2)
	Zw SQLCODE
	
	Set Obj = ..%OpenId(1)
	Do Obj.Serial.%GetSwizzleObject(,.Serial2)
	Zw Serial2
	Kill
]]></Implementation>
</Method>

<Storage name="Default">
<Type>%Library.CacheStorage</Type>
<DataLocation>^Utils.SUD</DataLocation>
<DefaultData>SUDefaultData</DefaultData>
<IdLocation>^Utils.SUD</IdLocation>
<IndexLocation>^Utils.SUI</IndexLocation>
<StreamLocation>^Utils.SUS</StreamLocation>
<Data name="SUDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>String</Value>
</Value>
<Value name="3">
<Value>Serial</Value>
</Value>
</Data>
</Storage>
</Class>


<Class name="Utils.Serial">
<Super>%SerialObject</Super>
<TimeChanged>64167,48448.629301</TimeChanged>
<TimeCreated>64167,48448.468888</TimeCreated>

<Property name="A">
<Type>%String</Type>
</Property>

<Storage name="Default">
<Type>%Library.CacheSerialState</Type>
<State>SerialState</State>
<StreamLocation>^Utils.SerialS</StreamLocation>
<Data name="SerialState">
<Structure>listnode</Structure>
<Subscript/>
<Value name="1">
<Value>A</Value>
</Value>
</Data>
</Storage>
</Class>
</Export>