Index: TECH/BackgroundProcess/impl/Data.cls.xml
===================================================================
diff -u -r1180 -r1198
--- TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 1180)
+++ TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 1198)
@@ -2,28 +2,25 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.BackgroundProcess.impl.Data">
 <ClassType>persistent</ClassType>
-<Super>TECH.BackgroundProcess.Data,TECH.Persistent</Super>
+<Super>TECH.Persistent,TECH.BackgroundProcess.Data</Super>
 
 <Property name="ClassName">
 <Type>%String</Type>
-<Private>1</Private>
 <Parameter name="MAXLEN" value="255"/>
 </Property>
 
-<Property name="Method">
+<Property name="MethodName">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="Parameters">
-<Type>TECH.BackgroundProcess.impl.Parameter.DataType</Type>
+<Type>TECH.BackgroundProcess.impl.Parameter</Type>
 <Collection>list</Collection>
-<Private>1</Private>
+<Parameter name="CLASSNAME" value="1"/>
 </Property>
 
 <Property name="RuntimeInfo">
-<Type>%List</Type>
-<Private>1</Private>
+<Type>TECH.BackgroundProcess.RuntimeInfo</Type>
 </Property>
 
 <Method name="%OnNew">
@@ -38,44 +35,32 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetParameters">
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	Quit ..Parameters
+<Method name="GetClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..ClassName
 ]]></Implementation>
 </Method>
 
-<Method name="GetClassName">
+<Method name="GetMethodName">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ClassName
+<Implementation><![CDATA[	quit ..MethodName
 ]]></Implementation>
 </Method>
 
-<Method name="GetMethod">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Method
+<Method name="GetParameters">
+<ReturnType>TECH.BackgroundProcess.impl.ParameterList</ReturnType>
+<Implementation><![CDATA[	quit ..Parameters
 ]]></Implementation>
 </Method>
 
 <Method name="GetRuntimeInfo">
-<ReturnType>%List</ReturnType>
+<ReturnType>TECH.BackgroundProcess.RuntimeInfo</ReturnType>
 <Implementation><![CDATA[	Quit ..RuntimeInfo
 ]]></Implementation>
 </Method>
 
-<Method name="SetClassName">
-<FormalSpec>ClassName:%String</FormalSpec>
-<Implementation><![CDATA[	Set ..ClassName = ClassName
-]]></Implementation>
-</Method>
-
-<Method name="SetMethod">
-<FormalSpec>Method:%String</FormalSpec>
-<Implementation><![CDATA[	Set ..Method = Method
-]]></Implementation>
-</Method>
-
 <Method name="SetRuntimeInfo">
-<FormalSpec>RunTimeInfo:%List</FormalSpec>
+<FormalSpec>RunTimeInfo:TECH.BackgroundProcess.RuntimeInfo</FormalSpec>
 <Implementation><![CDATA[	Set ..RuntimeInfo = RunTimeInfo
 ]]></Implementation>
 </Method>
@@ -86,70 +71,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeArrayOfDataTypes">
-<FormalSpec>Array:%ArrayOfDataTypes</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfDataTypes).%New(Array)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeArrayOfObjects">
-<FormalSpec>Array:%ArrayOfObjects</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfObjects).%New(Array)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeDataTranferObject">
-<FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataTransferObject).%New(Object)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeDataType">
-<FormalSpec>Waarde:%String</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataType).%New(Waarde)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeListOfDataTypes">
-<FormalSpec>List:%ListOfDataTypes</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfDataTypes).%New(List)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeListOfObjects">
-<FormalSpec>List:%ListOfObjects</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfObjects).%New(List)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeStream">
-<FormalSpec>Stream:%Stream</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.Stream).%New()
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="InsertParameter">
-<FormalSpec>Parameter:TECH.BackgroundProcess.impl.Parameter</FormalSpec>
-<Implementation><![CDATA[
-	do ..Parameters.Insert(Parameter)
-	Do ..Save()
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^TECH.BackgroundProces42C4.DataD</DataLocation>
@@ -165,7 +86,7 @@
 <Value>ClassName</Value>
 </Value>
 <Value name="3">
-<Value>Method</Value>
+<Value>MethodName</Value>
 </Value>
 <Value name="4">
 <Value>Parameters</Value>