Index: zTryout/JLM/Test01.cls.xml
===================================================================
diff -u -r66887 -r66994
--- zTryout/JLM/Test01.cls.xml	(.../Test01.cls.xml)	(revision 66887)
+++ zTryout/JLM/Test01.cls.xml	(.../Test01.cls.xml)	(revision 66994)
@@ -1,48 +1,31 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="zTryout.JLM.Test01">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.Persistent</Super>
+<Super>TECH.RegisteredObject</Super>
 
-<Property name="Tekst">
-<Type>%String</Type>
-</Property>
-
-<Property name="Getal">
-<Type>%Integer</Type>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Tekst:%String</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
+<Method name="VoerUit">
+<ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set ..Tekst = Tekst
-	Quit $$$OK
+	#dim Klasse As %String = "zTryout.JLM.Test01"
+	#dim Method As %String = "SchrijfInvoer"
+	#dim InvoerLijst As %List = $ListBuild("Eerste invoer",
+										   "Tweede en laatste invoer")
+	
+	#dim i As %Integer
+
+	For i = 1:1:$ListLength(InvoerLijst) {
+		Do $ClassMethod(Klasse, Method, $List(InvoerLijst, i))
+		Write !
+	}
 ]]></Implementation>
 </Method>
 
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^zTryout.JLM.Test01D</DataLocation>
-<DefaultData>Test01DefaultData</DefaultData>
-<IdLocation>^zTryout.JLM.Test01D</IdLocation>
-<IndexLocation>^zTryout.JLM.Test01I</IndexLocation>
-<StreamLocation>^zTryout.JLM.Test01S</StreamLocation>
-<Data name="Test01DefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>Tekst</Value>
-</Value>
-<Value name="3">
-<Value>Getal</Value>
-</Value>
-</Data>
-</Storage>
+<Method name="SchrijfInvoer">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Invoer:%String</FormalSpec>
+<Implementation><![CDATA[	Write Invoer
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: zTryout/JLM/PersistenteKlasse1.cls.xml
===================================================================
diff -u
--- zTryout/JLM/PersistenteKlasse1.cls.xml	(revision 0)
+++ zTryout/JLM/PersistenteKlasse1.cls.xml	(revision 66994)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JLM.PersistenteKlasse1">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Tekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="Id">
+<Type>%Integer</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JLM.Persistente3C8CD</DataLocation>
+<DefaultData>PersistenteKlasse1DefaultData</DefaultData>
+<IdLocation>^zTryout.JLM.Persistente3C8CD</IdLocation>
+<IndexLocation>^zTryout.JLM.Persistente3C8CI</IndexLocation>
+<StreamLocation>^zTryout.JLM.Persistente3C8CS</StreamLocation>
+<Data name="PersistenteKlasse1DefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Tekst</Value>
+</Value>
+<Value name="3">
+<Value>Id</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JLM/PersistenteKlasseRepository.cls.xml
===================================================================
diff -u
--- zTryout/JLM/PersistenteKlasseRepository.cls.xml	(revision 0)
+++ zTryout/JLM/PersistenteKlasseRepository.cls.xml	(revision 66994)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JLM.PersistenteKlasseRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>zTryout.JLM.PersistenteKlasse1</Default>
+</Parameter>
+</Class>
+
+
+</Export>