Index: TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml
===================================================================
diff -u -r1171 -r1180
--- TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1171)
+++ TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1180)
@@ -1,18 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.BackgroundProcess.impl.Parameter.DataTransferObject">
-<Super>%Persistent</Super>
+<Super>TECH.BackgroundProcess.impl.Parameter</Super>
 
 <Property name="Value">
-<Type>%GlobalCharacterStream</Type>
+<Type>TECH.DataTransferObject</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ClassName">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>Object:TECH.DataTransferObject=""</FormalSpec>
 <Private>1</Private>
@@ -33,45 +28,25 @@
 
 <Method name="GetValue">
 <ReturnType>TECH.DataTransferObject</ReturnType>
-<Implementation><![CDATA[
-	#dim Object As TECH.DataTransferObject
-	
-	Set XMLReader = ##class(%XML.Reader).%New()
-	Do XMLReader.OpenStream(..Value)
-	Do XMLReader.Correlate("DATA",..ClassName) 
-	Do XMLReader.Next(.Object)
-
-	quit Object
+<Implementation><![CDATA[	Quit ..Value
 ]]></Implementation>
 </Method>
 
 <Method name="SetValue">
 <FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
-<Implementation><![CDATA[
-	set ..ClassName = Object.%ClassName(1)
-	set Stream = ##class(%GlobalCharacterStream).%New()
-	do Object.XMLExportToStream(.Stream,"DATA")
-	set ..Value = Stream
+<Implementation><![CDATA[	set ..Value = Object
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^TECH.Backg2E35.DataTransfe59C6D</DataLocation>
-<DefaultData>DataTransferObjectDefaultData</DefaultData>
-<IdLocation>^TECH.Backg2E35.DataTransfe59C6D</IdLocation>
-<IndexLocation>^TECH.Backg2E35.DataTransfe59C6I</IndexLocation>
-<StreamLocation>^TECH.Backg2E35.DataTransfe59C6S</StreamLocation>
-<Data name="DataTransferObjectDefaultData">
+<Type>%Library.CacheSerialState</Type>
+<State>DataTransferObjectState</State>
+<Data name="DataTransferObjectState">
+<Structure>listnode</Structure>
+<Subscript>"DataTransferObject"</Subscript>
 <Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
 <Value>Value</Value>
 </Value>
-<Value name="3">
-<Value>ClassName</Value>
-</Value>
 </Data>
 </Storage>
 </Class>