Index: zTryout/JCL/TestObject.cls.xml
===================================================================
diff -u
--- zTryout/JCL/TestObject.cls.xml	(revision 0)
+++ zTryout/JCL/TestObject.cls.xml	(revision 40592)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.TestObject">
+<Super>%Persistent,%Populate</Super>
+
+<Property name="Embedded">
+<Type>zTryout.JCL.TestObject.Embedded</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JCL.TestObjectD</DataLocation>
+<DefaultData>TestObjectDefaultData</DefaultData>
+<IdLocation>^zTryout.JCL.TestObjectD</IdLocation>
+<IndexLocation>^zTryout.JCL.TestObjectI</IndexLocation>
+<StreamLocation>^zTryout.JCL.TestObjectS</StreamLocation>
+<Data name="TestObjectDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Embedded</Value>
+</Value>
+</Data>
+<Property name="%%CLASSNAME">
+</Property>
+<Property name="Embedded">
+</Property>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/WebService/Process.cls.xml
===================================================================
diff -u
--- zTryout/JCL/WebService/Process.cls.xml	(revision 0)
+++ zTryout/JCL/WebService/Process.cls.xml	(revision 40592)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.WebService.Process">
+<Description>
+This class is generated by the zTryout.JCL.WebService Web Service class.
+This class should not be edited or modified in any way.</Description>
+<Import>zTryout.JCL</Import>
+<IncludeCode>%occInclude,%soap</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%SOAP.MsgDescriptor</Super>
+<GeneratedBy>zTryout.JCL.WebService.CLS</GeneratedBy>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/Config</Default>
+</Parameter>
+
+<Parameter name="SOAPBINDINGSTYLE">
+<Default>document</Default>
+</Parameter>
+
+<Parameter name="SOAPBODYUSE">
+<Default>literal</Default>
+</Parameter>
+
+<Parameter name="SUPPRESSDOCUMENTATION">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="TYPENAMESPACE">
+<Default>http://www.vanhoecke.be/Config</Default>
+</Parameter>
+
+<Parameter name="XMLDEFAULTREFERENCE">
+<Default>complete</Default>
+</Parameter>
+
+<Parameter name="XMLIGNORENULL">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLIMPORTNAMESPACE">
+<Default>http://www.vanhoecke.be/Config</Default>
+</Parameter>
+
+<Parameter name="XMLRESULTNAME">
+<Default>%Result</Default>
+</Parameter>
+
+<Property name="%Result">
+<Type>%Library.String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLIO" value="OUT"/>
+<Parameter name="XMLNAME" value="ProcessResult"/>
+</Property>
+
+<Property name="Filename">
+<Type>%Library.String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+
+<Property name="request">
+<Type>%Library.String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLIO" value="INOUT"/>
+</Property>
+
+<Property name="needHeaders">
+<Type>%Library.Boolean</Type>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/TestSVN2.cls.xml
===================================================================
diff -u -r29059 -r40592
--- zTryout/JCL/TestSVN2.cls.xml	(.../TestSVN2.cls.xml)	(revision 29059)
+++ zTryout/JCL/TestSVN2.cls.xml	(.../TestSVN2.cls.xml)	(revision 40592)
@@ -18,7 +18,7 @@
 	while itItems.HasNext() {
 		set Item = itItems.Next()
 		set Type = $zconvert(Item.Type,"L")
-		if Type = "cls" set SourceCode = Item.Name_"."_Type
+		if Type = "cls" set SourceCode = Item.Name_    "."_Type
 		else  set SourceCode = Item.Name
 		do svnHelper.SVNExport(SourceCode)
 		
Index: zTryout/JCL/TestObject/Embedded.cls.xml
===================================================================
diff -u
--- zTryout/JCL/TestObject/Embedded.cls.xml	(revision 0)
+++ zTryout/JCL/TestObject/Embedded.cls.xml	(revision 40592)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.TestObject.Embedded">
+<Super>%SerialObject,%Populate</Super>
+
+<Property name="String">
+<Type>%String</Type>
+</Property>
+
+<Property name="Integer">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Numeric">
+<Type>%Numeric</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>EmbeddedState</State>
+<StreamLocation>^zTryout.JCL.TestO232B.EmbeddedS</StreamLocation>
+<Data name="EmbeddedState">
+<Value name="1">
+<Value>String</Value>
+</Value>
+<Value name="2">
+<Value>Integer</Value>
+</Value>
+<Value name="3">
+<Value>Numeric</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/TECH/ListUtils.cls.xml
===================================================================
diff -u
--- zTryout/JCL/TECH/ListUtils.cls.xml	(revision 0)
+++ zTryout/JCL/TECH/ListUtils.cls.xml	(revision 40592)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.TECH.ListUtils">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Verschil">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List1:%ListOfDataTypes,List2:%ListOfDataTypes</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	new List , ListID , ListValue , ListToSearch , ListToIterate
+	
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim ListID As %Integer 
+	
+	for ListID = 1 : 1 : 2 {
+		#dim ListToIterate As %ListOfDataTypes = @("List"_ListID)
+		set Iterator = ##class(TECH.ListIterator).%New(ListToIterate)
+		while Iterator.HasNext() {
+			#dim ListToSearch As %ListOfDataTypes = @("List"_$select(ListID=1:2,1:1))
+			#dim ListValue As %CacheString = Iterator.Next()
+			if 'ListToSearch.Find(ListValue) {
+				do List.Insert(ListValue)
+			}
+		}
+	}
+  	quit List
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/NieuweKlasse.cls.xml
===================================================================
diff -u
--- zTryout/JCL/NieuweKlasse.cls.xml	(revision 0)
+++ zTryout/JCL/NieuweKlasse.cls.xml	(revision 40592)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.NieuweKlasse">
+<Super>%Persistent</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JCL.NieuweKlasseD</DataLocation>
+<DefaultData>NieuweKlasseDefaultData</DefaultData>
+<IdLocation>^zTryout.JCL.NieuweKlasseD</IdLocation>
+<IndexLocation>^zTryout.JCL.NieuweKlasseI</IndexLocation>
+<StreamLocation>^zTryout.JCL.NieuweKlasseS</StreamLocation>
+<Data name="NieuweKlasseDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/ControleDto.cls.xml
===================================================================
diff -u
--- zTryout/JCL/ControleDto.cls.xml	(revision 0)
+++ zTryout/JCL/ControleDto.cls.xml	(revision 40592)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.ControleDto">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+	
+	#dim TechRegisteredClassesIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetDerivedClassIterator("TECH.RegisteredObject")
+	while TechRegisteredClassesIterator.HasNext() {
+		#dim Class As %String = TechRegisteredClassesIterator.Next()
+		write:(Class[".dto.") Class,!
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/UnitTestControle.cls.xml
===================================================================
diff -u
--- zTryout/JCL/UnitTestControle.cls.xml	(revision 0)
+++ zTryout/JCL/UnitTestControle.cls.xml	(revision 40592)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.UnitTestControle">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+
+	#dim UnitTestIterator = ##class(TECH.ClassUtils).GetDerivedClassIterator("vhUnitTest.TestCase")
+	while UnitTestIterator.HasNext() {
+		#dim IsInvalid As %Boolean = 0
+		#dim UnitTest As TECH.String = UnitTestIterator.Next()
+		continue:##class(TECH.ClassUtils).IsAbstract(UnitTest)
+		#dim PieceCount As %Integer = $length(UnitTest,".")
+		#dim ClassName As TECH.String = $piece(UnitTest,".",2,PieceCount-2)
+		set IsInvalid = ( ($$$Not($length(ClassName)) ) || ( $$$Not(##class(%Dictionary.ClassDefinition).%ExistsId(ClassName)) ) ) 
+		if $$$Not(IsInvalid) {
+			#dim MethodName As TECH.String = $piece(UnitTest,".",PieceCount-1)
+			continue:##class(TECH.StringUtils).Equals(MethodName,"Algemeen","General")
+			set IsInvalid = $$$Not(##class(%Dictionary.MethodDefinition).%ExistsId(ClassName_"||"_MethodName))
+		}
+		write:IsInvalid !,UnitTest
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Param.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Param.cls.xml	(revision 0)
+++ zTryout/JCL/Param.cls.xml	(revision 40592)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Param">
+<Super>zTryout.JCL.AbstractParam</Super>
+
+<Property name="Value">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Value</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Value = Value
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetValue">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..Value
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>Param1State</State>
+<Data name="Param1State">
+<Subscript>"Param1"</Subscript>
+<Value name="1">
+<Value>Value</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/WatchFolder/WebService.cls.xml
===================================================================
diff -u
--- zTryout/JCL/WatchFolder/WebService.cls.xml	(revision 0)
+++ zTryout/JCL/WatchFolder/WebService.cls.xml	(revision 40592)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.WatchFolder.WebService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>ProcessData</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+TODO: change this to actual SOAP namespace.
+SOAP Namespace for the WebService</Description>
+<Default>http://cache01.vanhoecke.be/taor</Default>
+</Parameter>
+
+<Method name="ProcessData">
+<FormalSpec>Data:%String="",ExtraData:%String=""</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[ 	Do ##class(Tools.Wlip).%New(195).String(Data_" "_ExtraData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/AX/Release/GenerateExport.cls.xml
===================================================================
diff -u
--- zTryout/JCL/AX/Release/GenerateExport.cls.xml	(revision 0)
+++ zTryout/JCL/AX/Release/GenerateExport.cls.xml	(revision 40592)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.AX.Release.GenerateExport">
+<Description>
+This class is generated by the zTryout.JCL.AX.Release Web Service class.
+This class should not be edited or modified in any way.</Description>
+<Import>zTryout.JCL.AX</Import>
+<IncludeCode>%occInclude,%soap</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%SOAP.MsgDescriptor</Super>
+<GeneratedBy>zTryout.JCL.AX.Release.CLS</GeneratedBy>
+
+<Parameter name="NAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="SOAPBINDINGSTYLE">
+<Default>document</Default>
+</Parameter>
+
+<Parameter name="SOAPBODYUSE">
+<Default>literal</Default>
+</Parameter>
+
+<Parameter name="SUPPRESSDOCUMENTATION">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="TYPENAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="XMLDEFAULTREFERENCE">
+<Default>complete</Default>
+</Parameter>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="XMLIMPORTNAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="XMLRESULTNAME">
+<Default>%Result</Default>
+</Parameter>
+
+<Property name="%Result">
+<Type>%Library.GlobalCharacterStream</Type>
+<Required>1</Required>
+<Parameter name="XMLIO" value="OUT"/>
+<Parameter name="XMLNAME" value="GenerateExportResult"/>
+</Property>
+
+<Property name="Data">
+<Type>%Library.GlobalCharacterStream</Type>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+
+<Property name="From">
+<Type>zTryout.JCL.AX.Systems</Type>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+
+<Property name="To">
+<Type>zTryout.JCL.AX.Systems</Type>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/UT.cls.xml
===================================================================
diff -u
--- zTryout/JCL/UT.cls.xml	(revision 0)
+++ zTryout/JCL/UT.cls.xml	(revision 40592)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.UT">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+	#dim id As %String = 1207
+	#dim UT As %String = ""
+	
+	for  { set UT = $order(^LOG.UnitTestTime(id,UT)) quit:UT=""
+		#dim Duration As %String = ^LOG.UnitTestTime(id,UT)
+		if Duration>1 {
+			set Class = ##class(%Dictionary.ClassDefinition).%OpenId(UT)
+			set ParameterDefinition = ##class(%Dictionary.ParameterDefinition).%OpenId(UT_"||Type")
+			set ParameterDefinition.Name = "Type"
+			set ParameterDefinition.Default = "IntegratieTest"
+			set ParameterDefinition.Type = "%String"
+			set ParameterDefinition.parent = Class
+			set ParameterDefinition.SequenceNumber = 1
+			do ParameterDefinition.%Save()
+			
+			set svnHelper = ##class(svn.Helper).%New()
+			do svnHelper.SVNExport(UT_".cls")
+			
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/ProductNonActief/OfferteLijnGroepeerder.cls.xml
===================================================================
diff -u
--- zTryout/JCL/ProductNonActief/OfferteLijnGroepeerder.cls.xml	(revision 0)
+++ zTryout/JCL/ProductNonActief/OfferteLijnGroepeerder.cls.xml	(revision 40592)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.ProductNonActief.OfferteLijnGroepeerder">
+<Super>TECH.ListUtils.Groepering</Super>
+
+<Method name="BepaalVolgendID">
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="IsNieuweGroeperingNodig">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Interface/Class1.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Interface/Class1.cls.xml	(revision 0)
+++ zTryout/JCL/Interface/Class1.cls.xml	(revision 40592)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Interface.Class1">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Method1">
+<Abstract>1</Abstract>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Package/SomeClass.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Package/SomeClass.cls.xml	(revision 0)
+++ zTryout/JCL/Package/SomeClass.cls.xml	(revision 40592)
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Package.SomeClass">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="SomeMethod">
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/ProductNonActief/PasAan.cls.xml
===================================================================
diff -u
--- zTryout/JCL/ProductNonActief/PasAan.cls.xml	(revision 0)
+++ zTryout/JCL/ProductNonActief/PasAan.cls.xml	(revision 40592)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.ProductNonActief.PasAan">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set ProductNonActief = ##class(vhPowerTools.DOM.PM.Product.ActiefStatusAanpasser).%New()
+	set Criteria = ##class(vhPowerTools.DOM.PM.Product.ActiefStatusAanpasser.Criteria).%New()
+
+	do Criteria.Categorieen.Insert(##class(APPS.Halux.common.enu.Categorie).TAORbox())
+	do Criteria.NietOpDocument.Insert(##class(DOM.common.enu.Document).Order())
+	do Criteria.NietOpDocument.Insert(##class(DOM.common.enu.Document).Offerte())
+	do Criteria.NietOpDocument.Insert(##class(DOM.common.enu.Document).WebOfferte())
+	do Criteria.NietOpDocument.Insert(##class(DOM.common.enu.Document).Toelevering())
+	set Criteria.ActiefStatus = ##class(DOM.PM.enu.ActiefStatus).NietActief()
+
+	set Criteria.AangemaaktVoor = $$INTDATE^vhLib.DataTypes("10/09/2014")
+
+	do ProductNonActief.Process(Criteria)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/HobbyHoek/SVN/Klasse2.cls.xml
===================================================================
diff -u
--- zTryout/JCL/HobbyHoek/SVN/Klasse2.cls.xml	(revision 0)
+++ zTryout/JCL/HobbyHoek/SVN/Klasse2.cls.xml	(revision 40592)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.HobbyHoek.SVN.Klasse2">
+<Super>TECH.RegisteredObject</Super>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/PersistentClassParams.cls.xml
===================================================================
diff -u
--- zTryout/JCL/PersistentClassParams.cls.xml	(revision 0)
+++ zTryout/JCL/PersistentClassParams.cls.xml	(revision 40592)
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+</Export>
Index: zTryout/JCL/Lever.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Lever.cls.xml	(revision 0)
+++ zTryout/JCL/Lever.cls.xml	(revision 40592)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Lever">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim idxLE = 0
+	for  { set idxLE = $O(^KLE(idxLE)) quit:idxLE="" 
+		write !, idxLE , $$$TAB , $piece(^KLE(idxLE,1),"\",2) , $$$TAB , $piece(^KLE(idxLE,2),"\",2)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Deploy.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Deploy.cls.xml	(revision 0)
+++ zTryout/JCL/Deploy.cls.xml	(revision 40592)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Deploy">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set Settings = ##class(Package.DataAanpasserSettings).%New()
+	set Settings.HalffabKlasseNaam = "HalffabKlasseNaam"
+	set Settings.PPSGroep = "iets_PPS_anders"
+	set Settings.KenmerkNieuw = "KenmerkNieuw"
+	set Settings.KenmerkOud = "KenmerkNieuw"
+	set Settings.ConversieScript = ##class(%Dictionary.MethodDefinition).%Open($classname()_"||"_"Script")
+	
+	set DataAanpasser = ##class(Package.DataAanpasser).%New()
+	do DataAanpasser.PasAan(Settings)
+]]></Implementation>
+</Method>
+
+<Method name="Script">
+<FormalSpec><![CDATA[&Output:%CacheString,Input:%CacheString]]></FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	set Output = Input * 25
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/WebService.cls.xml
===================================================================
diff -u -r31560 -r40592
--- zTryout/JCL/WebService.cls.xml	(.../WebService.cls.xml)	(revision 31560)
+++ zTryout/JCL/WebService.cls.xml	(.../WebService.cls.xml)	(revision 40592)
@@ -17,7 +17,7 @@
 <FormalSpec>Filename:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	quit Filename
+<Implementation><![CDATA[	set ^zJCL.Test($zts)=Filename
 ]]></Implementation>
 </Method>
 </Class>
Index: zTryout/JCL/Go.cls.xml
===================================================================
diff -u -r29059 -r40592
--- zTryout/JCL/Go.cls.xml	(.../Go.cls.xml)	(revision 29059)
+++ zTryout/JCL/Go.cls.xml	(.../Go.cls.xml)	(revision 40592)
@@ -8,6 +8,21 @@
 <Private>1</Private>
 </Property>
 
+<Method name="CheckConfigItems">
+<Implementation><![CDATA[
+	set QueryAPI = ##class(TECH.Query.impl.QueryAPI).%New()
+	#dim rs As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New("SELECT Waarde,Sleutel FROM TECH_Config.ConfigItem"))
+	while rs.Next() {
+		#dim Waarde As %String = rs.GetData(1)
+		#dim Sleutel As %String = rs.GetData(2)
+		
+		if ##class(%Dictionary.ClassDefinition).%ExistsId(Waarde) {
+			write !,Sleutel_$$$TAB_Waarde	
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CALCBON">
 <FormalSpec>BONNr</FormalSpec>
 <Implementation><![CDATA[
Index: zTryout/JCL/Factuur.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Factuur.cls.xml	(revision 0)
+++ zTryout/JCL/Factuur.cls.xml	(revision 40592)
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Factuur">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Facturen">
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/List/Item.cls.xml
===================================================================
diff -u
--- zTryout/JCL/List/Item.cls.xml	(revision 0)
+++ zTryout/JCL/List/Item.cls.xml	(revision 40592)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.List.Item">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Item">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/TestService/Test.cls.xml
===================================================================
diff -u
--- zTryout/JCL/TestService/Test.cls.xml	(revision 0)
+++ zTryout/JCL/TestService/Test.cls.xml	(revision 40592)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.TestService.Test">
+<Description>
+This class is generated by the zTryout.JCL.TestService Web Service class.
+This class should not be edited or modified in any way.</Description>
+<Import>zTryout.JCL</Import>
+<IncludeCode>%occInclude,%soap</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%SOAP.MsgDescriptor</Super>
+<GeneratedBy>zTryout.JCL.TestService.CLS</GeneratedBy>
+
+<Parameter name="NAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="SOAPBINDINGSTYLE">
+<Default>document</Default>
+</Parameter>
+
+<Parameter name="SOAPBODYUSE">
+<Default>literal</Default>
+</Parameter>
+
+<Parameter name="SUPPRESSDOCUMENTATION">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="TYPENAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="XMLDEFAULTREFERENCE">
+<Default>complete</Default>
+</Parameter>
+
+<Parameter name="XMLIMPORTNAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="XMLRESULTNAME">
+<Default>%Result</Default>
+</Parameter>
+
+<Property name="%Result">
+<Type>%Library.TimeStamp</Type>
+<Required>1</Required>
+<Parameter name="XMLIO" value="OUT"/>
+<Parameter name="XMLNAME" value="TestResult"/>
+</Property>
+
+<Property name="TimeStamp">
+<Type>%Library.TimeStamp</Type>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/List/Data.cls.xml
===================================================================
diff -u
--- zTryout/JCL/List/Data.cls.xml	(revision 0)
+++ zTryout/JCL/List/Data.cls.xml	(revision 40592)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.List.Data">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Items">
+<Type>zTryout.JCL.List.List</Type>
+<Collection>array</Collection>
+</Property>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set x = ..%New()
+	set List = ##class(zTryout.JCL.List.List).%New()
+	set Item = ##class(zTryout.JCL.List.Item).%New()
+	set Item.Item = "Value1"
+	do List.Insert(Item)
+	
+	do x.Items.SetAt(List,1)
+	
+	write $system.Status.GetErrorText(x.XMLExportToString(.s),"en")
+	write $get(s)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/CompleteCode.cls.xml
===================================================================
diff -u -r29059 -r40592
--- zTryout/JCL/CompleteCode.cls.xml	(.../CompleteCode.cls.xml)	(revision 29059)
+++ zTryout/JCL/CompleteCode.cls.xml	(.../CompleteCode.cls.xml)	(revision 40592)
@@ -7,6 +7,74 @@
 <Implementation><![CDATA[
 	set svnHelper = ##class(svn.Helper).%New()
 	
+	#dim Classes As %String = ""
+	
+	set Classes = Classes 
+	_ "vhUnitTest.APPS.CRM.TestKlantBestand," 
+	_ "vhUnitTest.APPS.EC.ExterneVerkoopService.BestelOfferte.TestSFS," 
+	_ "vhUnitTest.APPS.EC.ExterneVerkoopService.GeefOfferte.Test," 
+	_ "vhUnitTest.APPS.EC.ExterneVerkoopService.GeefOfferteEnHerberekenIndienNietNodig.Test," 
+	_ "vhUnitTest.APPS.EC.TestInterneVerkoopService," 
+	_ "vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.MaakOfferte.Test," 
+	_ "vhUnitTest.APPS.HR.ProTime.TestFacade," 
+	_ "vhUnitTest.APPS.HR.ProTime.TestFacade," 
+	_ "vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService.TestProductieAfmeldenService," 
+	_ "vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService.TestStuurDoorBevestigdeProductGroepen," 
+	_ "vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService.TestWisselToeleveringEnBevestigAfmelden," 
+	_ "vhUnitTest.APPS.Halux.Docs.TestEtiketBuilder," 
+	_ "vhUnitTest.APPS.Halux.PPS.TBXPers.TestWerkpost," 
+	_ "vhUnitTest.APPS.Halux.PPS.TBXZaag.TestWerkpost," 
+	_ "vhUnitTest.APPS.Halux.PPS.TBXZaag.TestWerkpost," 
+	_ "vhUnitTest.APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.KartonSnijdenDoos.TestException," 
+	_ "vhUnitTest.APPS.Halux.PPS.impl.EtiketService.DrukAfZaagEtiketten.TestInvoegenVoorPers," 
+	_ "vhUnitTest.APPS.Halux.Planning.impl.AutoBatchToeleveringSplitserKAD.EenProfielTypeEenToelevering.Test," 
+	_ "vhUnitTest.APPS.MAG.Inventaris.InventarisServiceBijladenTest," 
+	_ "vhUnitTest.APPS.MAG.Inventaris.InventarisServiceBijladenTest," 
+	_ "vhUnitTest.APPS.PM.TestKenmerkenServiceBewaar," 
+	_ "vhUnitTest.APPS.PM.TestKenmerkenServiceBewaar," 
+	_ "vhUnitTest.APPS.PM.TestKenmerkenServiceGeef," 
+	_ "vhUnitTest.APPS.TBXWeb.OrderVerwerker.ConverteerWebOrderNaarOfferte.Test," 
+	_ "vhUnitTest.APPS.VKP.KlantPrijsBepaler.TestB2COrgalux," 
+	_ "vhUnitTest.AX.Uitgaand.common.impl.AifGenerator.Generate.Test," 
+	_ "vhUnitTest.BL.AutoReceptie.TestProductInTweeToelevMeerdereLijnen," 
+	_ "vhUnitTest.BL.AutoReceptie.TestProductInTweeToeleveringen," 
+	_ "vhUnitTest.BL.MB.UGLYPicking.OrderReservatie," 
+	_ "vhUnitTest.BL.PPS.TBX.DocsV1.EtikettenCommissieOne.Test," 
+	_ "vhUnitTest.DOM.PM.KADProduct.Test," 
+	_ "vhUnitTest.DOM.PM.OL.Gamma.OPGZoekProductGroepen," 
+	_ "vhUnitTest.DOM.PM.OL.Gamma.OPGZoekProductInhoud," 
+	_ "vhUnitTest.Derde.Agenda.Agenda," 
+	_ "vhUnitTest.Derde.Agenda.Agenda," 
+	_ "vhUnitTest.EXT.Unishop.PurchaseOrder001.BestandScanner.Scan.Test," 
+	_ "vhUnitTest.Prod.TestProductTekst," 
+	_ "vhUnitTest.TECH.Exceptions.OngeldigeOptieKeuze.Test," 
+	_ "vhUnitTest.TECH.Exceptions.TemplateBaseException.Test," 
+	_ "vhUnitTest.TECH.Exceptions.TemplateBaseException.Test," 
+	_ "vhUnitTest.TECH.Exceptions.TemplateBaseException.Test," 
+	_ "vhUnitTest.TECH.Filter.PropertyBasedFilter.IsValid.Test," 
+	_ "vhUnitTest.TECH.KeyValue.UniqueList.FindByKey.Test," 
+	_ "vhUnitTest.TECH.KeyValue.UniqueList.FindByKey.Test," 
+	_ "vhUnitTest.TECH.Math.Average.Test," 
+	_ "vhUnitTest.TECH.Query.impl.QueryAPI.GetResultSet.TestClassQuery"
+	
+	#dim ParamName As %String = "GebruiktVariabeleControle"
+	set ClassIterator = ##class(TECH.StringIterator).%New(Classes,",")
+	while ClassIterator.HasNext() {
+		#dim ClassName As %String = ClassIterator.Next()
+		
+		set pd = ##class(%Dictionary.ParameterDefinition).%OpenId(ClassName_"||"_ParamName)
+		set pd.Name = ParamName
+		set pd.Default = 0
+		set pd.SequenceNumber = 0
+		do pd.%Save()	
+		
+		do svnHelper.SVNExport(ClassName_".CLS")
+	}
+	
+	
+	
+	/*
+	
 	#dim ClassName As %String = ""
 	for  { set ClassName = $O(^zJCL(ClassName)) Q:ClassName=""
 		do $system.OBJ.Compile(ClassName,"cbk")
Index: zTryout/JCL/Test.cls.xml
===================================================================
diff -u -r29059 -r40592
--- zTryout/JCL/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ zTryout/JCL/Test.cls.xml	(.../Test.cls.xml)	(revision 40592)
@@ -5,6 +5,18 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
 
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set FileReader = ##class(TECH.File.impl.FileReader).%New("E:\DOM.TXT")
+	while FileReader.HasNextLine() {
+		set Line = FileReader.ReadLine()
+		set cd = ##class(%CompiledClass).%OpenId(Line)
+		if ( $isObject(cd) ) && ( cd.ClassType = "persistent" ) W !,Line
+	}
+]]></Implementation>
+</Method>
+
 <Property name="Lijst">
 <Description>
 / test aanpassing</Description>
Index: zTryout/JCL/OnAfterOneTest.cls.xml
===================================================================
diff -u
--- zTryout/JCL/OnAfterOneTest.cls.xml	(revision 0)
+++ zTryout/JCL/OnAfterOneTest.cls.xml	(revision 40592)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.OnAfterOneTest">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="FindThoseSuckers">
+<Implementation><![CDATA[
+	set Query = ##class(TECH.DynamicQuery).%New("select ID from %Dictionary.MethodDefinition where (Name [ 'OnBefore' or Name [ 'OnAfter' ) and ( Name [ 'Test' ) ")
+	set rs = ##class(TECH.Query.impl.QueryAPI).%New().GetResultSet(Query)
+	while rs.Next() {
+		set md = ##class(%Dictionary.MethodDefinition).%OpenId(rs.GetData(1))
+		#dim Impl As %String = md.Implementation.Read()
+		if $$$Not($$$UCase(Impl) [ "##SUPER") {
+			set arr(md.parent.Name,md.Name)=""
+		}
+	}
+	
+	set Class = ""
+	for { set Class = $order(arr(Class)) quit:Class=""
+		set msg = "/todo "_Class
+		set idx=""
+		for { set idx = $order(arr(Class,idx)) quit:idx=""
+		 	set msg = msg_" - "_idx
+		}
+		w !,msg
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/PersistentClass.cls.xml
===================================================================
diff -u
--- zTryout/JCL/PersistentClass.cls.xml	(revision 0)
+++ zTryout/JCL/PersistentClass.cls.xml	(revision 40592)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.PersistentClass">
+<Super>%Persistent</Super>
+
+<Property name="Params">
+<Type>zTryout.JCL.AbstractParam</Type>
+<Collection>list</Collection>
+<Parameter name="CLASSNAME" value="1"/>
+</Property>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	do ..%KillExtent()
+	
+	set Object = ..%New()
+	set Param1 = ##class(zTryout.JCL.Param).%New("aValue")
+	do Object.Params.Insert(Param1)
+	do Object.%Save()
+	
+	kill Object
+	
+	set Object = ..%New()
+	set Param1 = ##class(zTryout.JCL.Param).%New("")
+	do Object.Params.Insert(Param1)
+	do Object.%Save()
+	
+	kill Object
+	
+	write $zv
+	
+	zw ^zTryout.JCL.PersistentClassD(1)
+	zw ^zTryout.JCL.PersistentClassD(2)
+	
+	set Object = ..%OpenId(1)
+	write !,Object.Params.Count()
+	write !,Object.Params.GetAt(1)
+	
+	set Object = ..%OpenId(2)
+	write !,Object.Params.Count()
+	write !,Object.Params.GetAt(1)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JCL.PersistentClassD</DataLocation>
+<DefaultData>PersistentClassDefaultData</DefaultData>
+<IdLocation>^zTryout.JCL.PersistentClassD</IdLocation>
+<IndexLocation>^zTryout.JCL.PersistentClassI</IndexLocation>
+<StreamLocation>^zTryout.JCL.PersistentClassS</StreamLocation>
+<Data name="Params">
+<Attribute>Params</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"Params"</Subscript>
+</Data>
+<Data name="PersistentClassDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/AX/Systems.cls.xml
===================================================================
diff -u
--- zTryout/JCL/AX/Systems.cls.xml	(revision 0)
+++ zTryout/JCL/AX/Systems.cls.xml	(revision 40592)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.AX.Systems">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>,ACCEPT,TEST,RELEASE,STAGING</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Reviewer/GetReviewer.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Reviewer/GetReviewer.cls.xml	(revision 0)
+++ zTryout/JCL/Reviewer/GetReviewer.cls.xml	(revision 40592)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Reviewer.GetReviewer">
+<Description>
+This class is generated by the zTryout.JCL.Reviewer Web Service class.
+This class should not be edited or modified in any way.</Description>
+<Import>zTryout.JCL</Import>
+<IncludeCode>%occInclude,%soap</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%SOAP.MsgDescriptor</Super>
+<GeneratedBy>zTryout.JCL.Reviewer.CLS</GeneratedBy>
+
+<Parameter name="NAMESPACE">
+<Default>http://vhisie.vanhoecke.be</Default>
+</Parameter>
+
+<Parameter name="SOAPBINDINGSTYLE">
+<Default>document</Default>
+</Parameter>
+
+<Parameter name="SOAPBODYUSE">
+<Default>literal</Default>
+</Parameter>
+
+<Parameter name="SUPPRESSDOCUMENTATION">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="TYPENAMESPACE">
+<Default>http://vhisie.vanhoecke.be</Default>
+</Parameter>
+
+<Parameter name="XMLDEFAULTREFERENCE">
+<Default>complete</Default>
+</Parameter>
+
+<Parameter name="XMLIGNORENULL">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLIMPORTNAMESPACE">
+<Default>http://vhisie.vanhoecke.be</Default>
+</Parameter>
+
+<Parameter name="XMLRESULTNAME">
+<Default>%Result</Default>
+</Parameter>
+
+<Property name="%Result">
+<Type>%Library.String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLIO" value="OUT"/>
+<Parameter name="XMLNAME" value="GetReviewerResult"/>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/NewClassArray.cls.xml
===================================================================
diff -u
--- zTryout/JCL/NewClassArray.cls.xml	(revision 0)
+++ zTryout/JCL/NewClassArray.cls.xml	(revision 40592)
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+
+
+</Export>
Index: zTryout/JCL/ImportSVN.cls.xml
===================================================================
diff -u
--- zTryout/JCL/ImportSVN.cls.xml	(revision 0)
+++ zTryout/JCL/ImportSVN.cls.xml	(revision 40592)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.ImportSVN">
+<Super>%RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+	set FN = "E:\svnProcess.txt"
+	
+	set Repo = ##class(svn.Repository.CodeRepository).%OpenId(1)
+	
+	set tCmd=##class(svn.Command).%New($lb(Repo.WorkspacePath(Repo.Branch)))
+	set tCmd.SubCommand="update"
+	Set tCmd.Revision= ""
+	set tCmd.Reload = 1
+	set tCmd.File=Repo.WorkspacePath(Repo.Branch)
+	
+	do tCmd.AddOutputFileToResult(FN)
+	
+	do Repo.VerwerkResultaat(tCmd)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Commit.cls.xml
===================================================================
diff -u -r29059 -r40592
--- zTryout/JCL/Commit.cls.xml	(.../Commit.cls.xml)	(revision 29059)
+++ zTryout/JCL/Commit.cls.xml	(.../Commit.cls.xml)	(revision 40592)
@@ -15,15 +15,13 @@
 		set itResults = ##class(TECH.ListIterator).%New(svnCommand.Results)
 		while itResults.HasNext() {
 		#dim CommandResult As svn.CommandResult = itResults.Next()	
-		if ##class(TECH.StringUtils).StartsWith(CommandResult.ExternalName,"E:\svn\CacheAdminA\trunk2010\vhUnitTest\") {
-			set x = ##class(svn.Command).%New($lb(CommandResult.ExternalName))
-			W !,CommandResult.ExternalName
-			set x.SubCommand = "commit"	
-			do x.GlobalOptions.SetAt("JoC","--username")	
-			do x.GlobalOptions.SetAt("fixed","--password")
-			do x.GlobalOptions.SetAt("[ICT145] - Controle openstaande variabelen tijdens de unit/integratie tests","-m")
-			do x.Execute()
-		}
+		set x = ##class(svn.Command).%New($lb(CommandResult.ExternalName))
+		W !,CommandResult.ExternalName
+		set x.SubCommand = "commit"	
+		do x.GlobalOptions.SetAt("JoC","--username")	
+		do x.GlobalOptions.SetAt("fixed","--password")
+		do x.GlobalOptions.SetAt("[ICT] - Properties zijn niet meer private in de event data.","-m")
+		do x.Execute()
 	}
 ]]></Implementation>
 </Method>
Index: zTryout/JCL/Intersystems.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Intersystems.cls.xml	(revision 0)
+++ zTryout/JCL/Intersystems.cls.xml	(revision 40592)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Intersystems">
+<Super>%RegisteredObject</Super>
+
+<Property name="I">
+<Type>zTryout.JCL.Intersystems</Type>
+</Property>
+
+<Property name="R">
+<Type>zTryout.JCL.Intersystems</Type>
+</Property>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set Instance = ..%New()
+	do Instance.SetI(Instance)
+	write !,"Instance set equals to instance get ",Instance=Instance.I
+	
+	do Instance.SetR(Instance)
+	write !,"Instance set equals to instance get ",Instance=Instance.R
+]]></Implementation>
+</Method>
+
+<Method name="SetI">
+<FormalSpec>I:zTryout.JCL.Intersystems</FormalSpec>
+<Implementation><![CDATA[	set ..I = I
+]]></Implementation>
+</Method>
+
+<Method name="SetR">
+<FormalSpec>R:zTryout.JCL.Intersystems</FormalSpec>
+<Implementation><![CDATA[	set ..R = R
+]]></Implementation>
+</Method>
+
+<Method name="IGet">
+<ReturnType>zTryout.JCL.Intersystems</ReturnType>
+<Implementation><![CDATA[
+	if i%I = "" {
+		set i%I = ..%New()	
+	}
+	quit i%I
+]]></Implementation>
+</Method>
+
+<Method name="RGet">
+<ReturnType>zTryout.JCL.Intersystems</ReturnType>
+<Implementation><![CDATA[
+	if r%R = "" {
+		set r%R = ..%New()	
+	}
+	quit r%R
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Code.cls.xml
===================================================================
diff -u -r35339 -r40592
--- zTryout/JCL/Code.cls.xml	(.../Code.cls.xml)	(revision 35339)
+++ zTryout/JCL/Code.cls.xml	(.../Code.cls.xml)	(revision 40592)
@@ -5,12 +5,89 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="GoTest">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set md(1)=50
+	set md(2)=60
+	do ..Test(.md)
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>md...:%String</FormalSpec>
+<Implementation><![CDATA[	zw md
+]]></Implementation>
+</Method>
+
+<Method name="GoDom">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set cd = ##class(%Dictionary.ClassDefinition).%OpenId("DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy")
+	
+	set pIt = ##class(TECH.ListIterator).%New(cd.Properties)
+	while pIt.HasNext() {
+		#dim pd As %Dictionary.PropertyDefinition = pIt.Next()
+		continue:pd.Transient=1
+		write $$$CRLF_"set CanonischeWaarde = CanonischeWaarde _"_ ".."_pd.Name_"_"";"""
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Go">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set svnHelper = ##class(svn.Helper).%New()
 	
+	set Repo = ##class(svn.Repository).%OpenId(1)
+	
+	#dim DerivedClassesIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetDerivedClassIterator("TECH.PubSub.EventData")
+	while DerivedClassesIterator.HasNext() {
+		#dim ClassName As %String = DerivedClassesIterator.Next()
+		set cd = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
+		set pIterator = ##class(TECH.ListIterator).%New(cd.Properties)
+		while pIterator.HasNext() {
+			#dim pd As %Dictionary.PropertyDefinition = pIterator.Next()
+			set pd.Private = 0
+			do pd.%Save()
+			do $system.OBJ.Compile(ClassName)
+			do svnHelper.SVNExport(ClassName_".cls")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Go3">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set svnHelper = ##class(svn.Helper).%New()
+	
+	set Repo = ##class(svn.Repository).%OpenId(1)
+		
+	set Query = ##class(TECH.DynamicQuery).%New("SELECT ID FROM %Dictionary.ClassDefinition where Name [ 'Intern'")
+	#dim rs As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	while rs.Next() {
+		#dim Classname As %String = rs.GetData(1)
+		set Class = $piece(Classname,".",$length(Classname,"."))
+		continue:'($$$StartsWith(Class,"Intern"))
+		
+		if ##class(%Dictionary.ClassDefinition).%ExistsId($replace(Classname,"Interne","Webshop")) {
+			w !,Classname	
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Go2">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set svnHelper = ##class(svn.Helper).%New()
+	
 	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetDerivedClassIterator("TECH.PubSub.Event")
 	while DerivedClassIterator.HasNext() {
 		#dim Classname As %String = DerivedClassIterator.Next()
@@ -19,7 +96,6 @@
 		
 		#dim Class As TECH.PubSub.Event = $classmethod(Classname,"%New","")
 		
-		set cd = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
 		
 		if $$$Not(##class(%Dictionary.MethodDefinition).%ExistsId(Classname_"||Type")) {
 			set md = ##class(%Dictionary.MethodDefinition).%New()	
Index: zTryout/JCL/TransP.cls.xml
===================================================================
diff -u
--- zTryout/JCL/TransP.cls.xml	(revision 0)
+++ zTryout/JCL/TransP.cls.xml	(revision 40592)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.TransP">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+	#define InRange(%v,%b,%e) (%v>%b)&&(%v<%e)
+	
+	set Global = "^TRANSP"
+	for { set Global = $q(@Global) q:Global=""
+		if ( $ql(Global)=4) && ( $P(@Global,"\",1)=12958) && ( $$$InRange($zd($P(@Global,"\",10),8),20100101,20160101)) {
+			
+			W !,$zd($P(@Global,"\",10),8)," ",Global	
+			if $data(@Global@("DistributeurDataIDs")) {
+				set Items = @Global@("DistributeurDataIDs")
+				set lbIterator = ##class(TECH.ListbuildIterator).%New(Items)
+				while lbIterator.HasNext() {
+					set Item = lbIterator.Next()
+					set O = ##class(APPS.TRANSP.GLS.data.VerzendData).%OpenId(Item)
+					write " "_O.Referentie
+				}
+			}
+				
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/LB.cls.xml
===================================================================
diff -u
--- zTryout/JCL/LB.cls.xml	(revision 0)
+++ zTryout/JCL/LB.cls.xml	(revision 40592)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.LB">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="xyz1">
+<Type>%String</Type>
+</Property>
+
+<Property name="xyz2">
+<Type>%String</Type>
+</Property>
+
+<Method name="toList">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[  Q $LB(..xyz1,..xyz2)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	for i = 1 : 1 : $length(initvalue,"#") {
+		set $property($this,"xyz"_i)=$piece(initvalue,"#",i)
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/WatchFolder/WebService/ProcessData.cls.xml
===================================================================
diff -u
--- zTryout/JCL/WatchFolder/WebService/ProcessData.cls.xml	(revision 0)
+++ zTryout/JCL/WatchFolder/WebService/ProcessData.cls.xml	(revision 40592)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.WatchFolder.WebService.ProcessData">
+<Description>
+This class is generated by the zTryout.JCL.WatchFolder.WebService Web Service class.
+This class should not be edited or modified in any way.</Description>
+<Import>zTryout.JCL.WatchFolder</Import>
+<IncludeCode>%occInclude,%soap</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%SOAP.MsgDescriptor</Super>
+<GeneratedBy>zTryout.JCL.WatchFolder.WebService.CLS</GeneratedBy>
+
+<Parameter name="NAMESPACE">
+<Default>http://cache01.vanhoecke.be/taor</Default>
+</Parameter>
+
+<Parameter name="SOAPBINDINGSTYLE">
+<Default>document</Default>
+</Parameter>
+
+<Parameter name="SOAPBODYUSE">
+<Default>literal</Default>
+</Parameter>
+
+<Parameter name="SUPPRESSDOCUMENTATION">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="TYPENAMESPACE">
+<Default>http://cache01.vanhoecke.be/taor</Default>
+</Parameter>
+
+<Parameter name="XMLDEFAULTREFERENCE">
+<Default>complete</Default>
+</Parameter>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="XMLIMPORTNAMESPACE">
+<Default>http://cache01.vanhoecke.be/taor</Default>
+</Parameter>
+
+<Parameter name="XMLRESULTNAME"/>
+
+<Property name="Data">
+<Type>%Library.String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+
+<Property name="ExtraData">
+<Type>%Library.String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLIO" value="IN"/>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Cyclic.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Cyclic.cls.xml	(revision 0)
+++ zTryout/JCL/Cyclic.cls.xml	(revision 40592)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Cyclic">
+<Super>%RegisteredObject</Super>
+
+<Method name="Test1">
+<Implementation><![CDATA[
+		set JobData = ##class(TECH.BackgroundProcess.impl.Data).%New()
+		Do JobData.SetClassName("abc")
+		Do JobData.SetMethod("def")
+		Do JobData.VoegToeDataType("123")
+		Do JobData.Save()
+]]></Implementation>
+</Method>
+
+<Method name="Test2">
+<Implementation><![CDATA[
+		set JobData = ##class(TECH.BackgroundProcess.impl.Data).%New()
+		Do JobData.SetClassName("abc")
+		Do JobData.SetMethod("def")
+		Do JobData.VoegToeDataType("123")
+		Do JobData.VoegToeDataType("123")
+		Do JobData.Save()
+]]></Implementation>
+</Method>
+
+<Method name="Test3">
+<Implementation><![CDATA[
+		set JobData = ##class(TECH.BackgroundProcess.impl.Data).%New()
+		Do JobData.SetClassName("abc")
+		Do JobData.SetMethod("def")
+		Do JobData.VoegToeDataType("123")
+		Do JobData.Save()
+		Do JobData.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Reviewer.cls.xml
===================================================================
diff -u -r36650 -r40592
--- zTryout/JCL/Reviewer.cls.xml	(.../Reviewer.cls.xml)	(revision 36650)
+++ zTryout/JCL/Reviewer.cls.xml	(.../Reviewer.cls.xml)	(revision 40592)
@@ -21,9 +21,12 @@
 	set List = ##class(%ListOfDataTypes).%New()
 	do List.Insert("Jo Willems")
 	do List.Insert("Kurt Callebaut")
+	do List.Insert("Jo Claes")
 	do List.Insert("Martijn Vierstraete")
 	do List.Insert("Tom Vermeulen")
+	do List.Insert("Jo Claes")
 	do List.Insert("Wim Vermeulen")
+	do List.Insert("Jo Claes")
 	
 	quit List.GetAt($random(List.Count())+1)
 ]]></Implementation>
Index: zTryout/JCL/MultiInherited.cls.xml
===================================================================
diff -u
--- zTryout/JCL/MultiInherited.cls.xml	(revision 0)
+++ zTryout/JCL/MultiInherited.cls.xml	(revision 40592)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.MultiInherited">
+<Super>Base1,Base2,Base3</Super>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	do ##class(Base2)$this.%OnNew()
+	do ##class(Base1)$this.%OnNew()
+	do ##class(Base3)$this.%OnNew()
+	do ##class(Base2)$this.%OnNew()
+	quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Base3.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Base3.cls.xml	(revision 0)
+++ zTryout/JCL/Base3.cls.xml	(revision 40592)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Base3">
+<Super>%RegisteredObject</Super>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Write "Base3"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Lookup.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Lookup.cls.xml	(revision 0)
+++ zTryout/JCL/Lookup.cls.xml	(revision 40592)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Lookup">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Find">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToelevNr:%String,ToelevLijnNr:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Items = ##class(%ListOfDataTypes).%New()
+	#dim LijnNr As %String = 99	
+	for { set LijnNr = $order(^KTO5(5005,ToelevNr,LijnNr)) quit:LijnNr="" 
+		#dim LijnData As %String = ^(LijnNr)
+		#dim Datum As TECH.Horolog = $piece(LijnData,"\",30)
+		continue:Datum=""
+		continue:((+$H)-(Datum)>60)
+		continue:$$$Not($piece(LijnData,"\",13)=ToelevLijnNr)
+		continue:$$$Not($piece(LijnData,"\",3)=Aantal)
+		do Items.Insert(LijnData)
+	}
+	
+	if Items.Count()>1 {
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("oeps meer dan eentje gevonden voor "_ToelevNr_":"_ToelevLijnNr_":"_Aantal)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	W !,Items.GetAt(1),!
+	
+	quit Items
+]]></Implementation>
+</Method>
+
+<Method name="Find2">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToelevNr:%String,ToelevLijnNr:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Items = ##class(%ListOfDataTypes).%New()
+	#dim LijnNr As %String = 99	
+	for { set LijnNr = $order(^KTO(5005,ToelevNr,LijnNr)) quit:LijnNr="" 
+		#dim LijnData As %String = ^(LijnNr)
+		#dim Datum As TECH.Horolog = $piece(LijnData,"\",30)
+		continue:Datum=""
+		continue:((+$H)-(Datum)>60)
+		continue:$$$Not($piece(LijnData,"\",13)=ToelevLijnNr)
+		;continue:$$$Not($piece(LijnData,"\",3)=Aantal)
+		do Items.Insert(LijnData)
+	}
+	
+	if Items.Count()>1 {
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("oeps meer dan eentje gevonden voor "_ToelevNr_":"_ToelevLijnNr_":"_Aantal)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	W !,Items.GetAt(1),!
+	
+	quit Items
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/AX/Release.cls.xml
===================================================================
diff -u
--- zTryout/JCL/AX/Release.cls.xml	(revision 0)
+++ zTryout/JCL/AX/Release.cls.xml	(revision 40592)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.AX.Release">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Default>AX.Release</Default>
+</Parameter>
+
+<Property name="Layers">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..InitLayers()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateExport">
+<FormalSpec>Data:%GlobalCharacterStream,From:zTryout.JCL.AX.Systems,To:zTryout.JCL.AX.Systems</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	set Response = ##class(%GlobalCharacterStream).%New()
+	Do Response.WriteLine(">>>>>>>>>>>>>>>>>>>>>>>>>>>>")
+	Do ..GenerateData(Response,Data,"E",From)
+	Do Response.WriteLine("----------------------------")
+	Do ..GenerateData(Response,Data,"I",To)
+	Do Response.WriteLine("<<<<<<<<<<<<<<<<<<<<<<<<<<<<")
+	quit Response
+]]></Implementation>
+</Method>
+
+<Method name="GenerateData">
+<FormalSpec>Response:%GlobalCharacterStream,Data:%GlobalCharacterStream,ImportExport:%String,System:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Date As %String = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate(),"YYYYMMDD")
+	do Data.Rewind()
+	while 'Data.AtEnd {
+		#dim DataLine As %String = $replace(Data.Read(),$$$CR,"")
+		set DataLine = $replace(DataLine,$$$LF,"")
+		set Iterator = ##class(TECH.StringIterator).%New(DataLine,"|")
+		while Iterator.HasNext() {
+			#dim Line As %String = Iterator.Next()
+			#dim CmdLine As %String 
+			if ImportExport = "E" set CmdLine = "axutil export /s:AX-SQL-DEV\AX2012 /db:AX2012R3_VH_"_System_"_MODEL /model:"_..GetNr(Line)_" /file:C:\temp\"_Date_"\"_..GetFileName(Line)_".axmodel"
+			if ImportExport = "I" set CmdLine = "axutil import /s:AX-SQL-DEV\AX2012 /db:AX2012R3_VH_"_System_"_MODEL /file:C:\temp\"_Date_"\"_..GetFileName(Line)_".axmodel -verbose"
+			do Response.WriteLine(CmdLine)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GetFileName">
+<FormalSpec>Line:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	quit ..GetLayerPriorityNr(..GetLayerName(Line))
+		_$$$Trim(..GetLayerName(Line))
+		_##class(TECH.StringUtils).AlignRight(..GetNr(Line),0,4)
+]]></Implementation>
+</Method>
+
+<Method name="GetNr">
+<FormalSpec>Line:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $$$Trim($extract(Line,1,5))
+]]></Implementation>
+</Method>
+
+<Method name="GetLayerName">
+<FormalSpec>Line:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $extract(Line,9,11)
+]]></Implementation>
+</Method>
+
+<Method name="InitLayers">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..Layers.Insert("sis")
+	do ..Layers.Insert("sip")
+	do ..Layers.Insert("isv")
+	do ..Layers.Insert("isp")
+	do ..Layers.Insert("var")
+	do ..Layers.Insert("vap")
+	do ..Layers.Insert("cus")
+	do ..Layers.Insert("cup")
+	do ..Layers.Insert("usr")
+	do ..Layers.Insert("usp")
+]]></Implementation>
+</Method>
+
+<Method name="GetLayerPriorityNr">
+<FormalSpec>Layer:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..Layers.Find($zconvert(Layer,"L"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Winrar.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Winrar.cls.xml	(revision 0)
+++ zTryout/JCL/Winrar.cls.xml	(revision 40592)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Winrar">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Cache01LogFiles">
+<FormalSpec>PeriodeString:%String</FormalSpec>
+<Implementation><![CDATA[
+
+	#dim DagTeller As %Integer
+	for DagTeller = 1 : 1 : 31 {
+		#dim Dag As %String = PeriodeString_##class(TECH.StringUtils).AlignRight(DagTeller,0,2)
+		write !,"rar a \\cache01\f$\LogFiles\ISCSOAP\"_Dag_".rar \\cache01\f$\LogFiles\ISCSOAP\"_Dag_"*.log -df"
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Crm.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Crm.cls.xml	(revision 0)
+++ zTryout/JCL/Crm.cls.xml	(revision 40592)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Crm">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+	set client = ##class(AXcrm.CustomBindingIOrganizationService).%New()
+
+	#dim TimeStamp As %SOAP.Security.Timestamp = ##class(%SOAP.Security.Timestamp).Create()
+	do client.SecurityOut.AddSecurityElement(TimeStamp)
+	
+	set UsernameToken = ##class(%SOAP.Security.UsernameToken).%New()
+	do client.SecurityOut.AddSecurityElement(UsernameToken)
+	 
+	set client.ContentType = "application/x-www-form-urlencoded"
+		
+	set client.Location = "https://develcrm.vanhoecke.be/XRMServices/2011/Organization.svc/web"
+	set client.SSLConfiguration = "AXcrm"
+	try {
+		#dim y As AXcrm.tns.Entity = client.Retrieve("account","453168E8-80B5-E611-80D6-0050569542AD",1)
+	} catch {
+		#dim Exception As TECH.Exception.Exceptions = ##class(TECH.ExceptionHandler).Catch()
+		write !,$$ParseStatus^vhLib($get(%objlasterror))
+		write !,Exception.ToString()
+	}
+	
+	quit $get(y)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Base1.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Base1.cls.xml	(revision 0)
+++ zTryout/JCL/Base1.cls.xml	(revision 40592)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Base1">
+<Super>%RegisteredObject</Super>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Write "Base1"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/CopyLogging.cls.xml
===================================================================
diff -u
--- zTryout/JCL/CopyLogging.cls.xml	(revision 0)
+++ zTryout/JCL/CopyLogging.cls.xml	(revision 40592)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.CopyLogging">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	do ##class(vhLib.Logging2).%KillExtent()
+	set API = ##class(TECH.Query.impl.QueryAPI).%New()
+	set rs = API.GetDynamicResultSet("SELECT ID FROM vhLib.Logging")
+	while rs.Next() {
+		set Log1 = ##class(vhLib.Logging).%OpenId(rs.GetData(1))
+		set Log2 = ##class(vhLib.Logging2).%New()
+		set Log2.Server = Log1.Server
+		set Log2.Namespace = Log1.Namespace
+		set Log2.Datum = Log1.Datum
+		set Log2.SubID = Log1.SubID
+		set Log2.Tijd = Log1.Tijd
+		set Log2.Niveau = Log1.Niveau
+		set Log2.Groep = Log1.Groep
+		set Log2.Actie = Log1.Actie
+		
+		if Log1.DetailAsStream.Size>0 {
+			do Log2.DetailAsStream.CopyFrom(Log1.DetailAsStream)
+			set Log2.Detail = Log1.DetailAsStream.Read(15000)
+		} else {
+			do Log2.DetailAsStream.Write(Log1.Detail)
+			set Log2.Detail = $extract(Log1.Detail,1,15000)
+		}
+		set Log2.JobID = Log1.JobID
+		set Log2.RemoteIP = Log1.RemoteIP
+		set Log2.Gebruiker = Log1.Gebruiker
+		set Log2.GebruikerID = Log1.GebruikerID
+		set Log2.SessionID = Log1.SessionID
+		set Log2.ClientAdres = Log1.ClientAdres
+		set Log2.Applicatie = Log1.Applicatie
+		set Log2.ProgLabel = Log1.ProgLabel
+		set Log2.TeBehandelen = Log1.TeBehandelen
+		do Log2.GekendeExceptieSetObjectId(Log1.GekendeExceptieGetObjectId())
+		write Log2.%Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Go2">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set API = ##class(TECH.Query.impl.QueryAPI).%New()
+	set rs = API.GetDynamicResultSet("SELECT ID FROM vhLib.Logging2")
+	while rs.Next() {
+		set Log = ##class(vhLib.Logging2).%OpenId(rs.GetData(1))
+		set Log.Detail = Log.DetailAsStream.Read(10000)
+		do Log.%Save()	
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/AbstractParam.cls.xml
===================================================================
diff -u
--- zTryout/JCL/AbstractParam.cls.xml	(revision 0)
+++ zTryout/JCL/AbstractParam.cls.xml	(revision 40592)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.AbstractParam">
+<Abstract>1</Abstract>
+<Super>%SerialObject</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^zTryout.JCL.ParamS</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/PPSKenmerkenGenerator.cls.xml
===================================================================
diff -u
--- zTryout/JCL/PPSKenmerkenGenerator.cls.xml	(revision 0)
+++ zTryout/JCL/PPSKenmerkenGenerator.cls.xml	(revision 40592)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.PPSKenmerkenGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Genereer">
+<Final>1</Final>
+<Implementation><![CDATA[
+	#dim ProductIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductIterator()
+	while ProductIterator.HasNext() {
+		#dim Product As DOM.PM.Product = ProductIterator.Next()
+		do ..VerwerkProduct()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProduct">
+<Final>1</Final>
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KortTekst As %String = Product.GeefKorttekst()
+	if ..IsGeldigeKortTekst() {
+		#dim KortTekstDeel As %String = ..GeefKortTekstDeel()
+		do ..VulAanPPSKenmerk(Product,KortTekstDeel)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKortTekst">
+<Abstract>1</Abstract>
+<FormalSpec>KortTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="GeefKortTekstDeel">
+<Abstract>1</Abstract>
+<FormalSpec>KortTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="VulAanPPSKenmerk">
+<Abstract>1</Abstract>
+<FormalSpec>Product:DOM.PM.Product,KortTekstDeel:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/PPSKenmerkGeneratorPlaatMateriaal.cls.xml
===================================================================
diff -u
--- zTryout/JCL/PPSKenmerkGeneratorPlaatMateriaal.cls.xml	(revision 0)
+++ zTryout/JCL/PPSKenmerkGeneratorPlaatMateriaal.cls.xml	(revision 40592)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.PPSKenmerkGeneratorPlaatMateriaal">
+<Super>zTryout.JCL.PPSKenmerkenGenerator</Super>
+
+<Method name="IsGeldigeKortTekst">
+<FormalSpec>KortTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $extract(KortTekst,1,3)="HDP"
+]]></Implementation>
+</Method>
+
+<Method name="VulAanPPSKenmerk">
+<FormalSpec>Product:DOM.PM.Product,KortTekstDeel:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="GeefKortTekstDeel">
+<FormalSpec>KortTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit +$piece($piece(KortTekst,".",2),"X",1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Interface/Class2.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Interface/Class2.cls.xml	(revision 0)
+++ zTryout/JCL/Interface/Class2.cls.xml	(revision 40592)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Interface.Class2">
+<Abstract>1</Abstract>
+<Super>zTryout.JCL.Interface.Class1</Super>
+
+<Method name="Method2">
+<Abstract>1</Abstract>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/List/List.cls.xml
===================================================================
diff -u
--- zTryout/JCL/List/List.cls.xml	(revision 0)
+++ zTryout/JCL/List/List.cls.xml	(revision 40592)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.List.List">
+<Super>TECH.ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Description>
+The type (class name) of the elements stored in the collection.</Description>
+<Default>zTryout.JCL.List.Item</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Pers.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Pers.cls.xml	(revision 0)
+++ zTryout/JCL/Pers.cls.xml	(revision 40592)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Pers">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Waarde">
+<Type>%String</Type>
+</Property>
+
+<Index name="Waarde">
+<Properties>Waarde</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Waarde = initvalue
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JCL.PersD</DataLocation>
+<DefaultData>PersDefaultData</DefaultData>
+<IdLocation>^zTryout.JCL.PersD</IdLocation>
+<IndexLocation>^zTryout.JCL.PersI</IndexLocation>
+<StreamLocation>^zTryout.JCL.PersS</StreamLocation>
+<Data name="PersDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Waarde</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/MyService/Test.cls.xml
===================================================================
diff -u
--- zTryout/JCL/MyService/Test.cls.xml	(revision 0)
+++ zTryout/JCL/MyService/Test.cls.xml	(revision 40592)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.MyService.Test">
+<Description>
+This class is generated by the zTryout.JCL.MyService Web Service class.
+This class should not be edited or modified in any way.</Description>
+<Import>zTryout.JCL</Import>
+<IncludeCode>%occInclude,%soap</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%SOAP.MsgDescriptor</Super>
+<GeneratedBy>zTryout.JCL.MyService.CLS</GeneratedBy>
+
+<Parameter name="NAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="SOAPBINDINGSTYLE">
+<Default>document</Default>
+</Parameter>
+
+<Parameter name="SOAPBODYUSE">
+<Default>literal</Default>
+</Parameter>
+
+<Parameter name="SUPPRESSDOCUMENTATION">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="TYPENAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="XMLDEFAULTREFERENCE">
+<Default>complete</Default>
+</Parameter>
+
+<Parameter name="XMLIMPORTNAMESPACE">
+<Default>http://tempuri.org</Default>
+</Parameter>
+
+<Parameter name="XMLRESULTNAME">
+<Default>%Result</Default>
+</Parameter>
+
+<Property name="%Result">
+<Type>%Library.String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLIO" value="OUT"/>
+<Parameter name="XMLNAME" value="TestResult"/>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/TestImplemenation.cls.xml
===================================================================
diff -u
--- zTryout/JCL/TestImplemenation.cls.xml	(revision 0)
+++ zTryout/JCL/TestImplemenation.cls.xml	(revision 40592)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.TestImplemenation">
+<Super>TECH.Implementation</Super>
+
+<Method name="Test">
+</Method>
+
+<Method name="Test2">
+<Implementation><![CDATA[  quit
+]]></Implementation>
+</Method>
+
+<Method name="Test21">
+<FormalSpec>Param:%String</FormalSpec>
+</Method>
+
+<Method name="Test3">
+<Private>1</Private>
+<Implementation><![CDATA[  quit
+]]></Implementation>
+</Method>
+
+<Method name="Test4">
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/SplitFile.cls.xml
===================================================================
diff -u
--- zTryout/JCL/SplitFile.cls.xml	(revision 0)
+++ zTryout/JCL/SplitFile.cls.xml	(revision 40592)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.SplitFile">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="DoIt">
+<Implementation><![CDATA[
+	set Filename = "e:\csp.log"
+	open Filename:"R"
+	use Filename	
+	while $Test {
+		Read Line#10000
+		set ^zJCL($I(^zJCL))=Line
+	}
+	close Filename
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/GoInv.cls.xml
===================================================================
diff -u
--- zTryout/JCL/GoInv.cls.xml	(revision 0)
+++ zTryout/JCL/GoInv.cls.xml	(revision 40592)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.GoInv">
+<Super>%RegisteredObject</Super>
+
+<Method name="Go">
+<Implementation><![CDATA[
+	set R = ""
+	for { set R = $order(^zJCL.Range(R)) quit:R=""
+		set ^zJCL.Range2($order(^zJCL.Range(R))-R)=R_"\"_$order(^zJCL.Range(R))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Go2">
+<Implementation><![CDATA[
+	#dim Nr As %String
+	set Nr = ""
+	
+	for Nr=1:1:990000 {
+		set Found=$data(^KFA("F",Nr))
+		set FoundPrev=$data(^KFA("F",Nr-1))
+		if (Found) && ('FoundPrev) set ^zJCL.Range(Nr)=""
+		if ('Found) && (FoundPrev) set ^zJCL.Range(Nr)=""
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Decimal.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Decimal.cls.xml	(revision 0)
+++ zTryout/JCL/Decimal.cls.xml	(revision 40592)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Decimal">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Decimal">
+<Type>TECH.Decimal</Type>
+<Parameter name="SCALE" value="1"/>
+</Property>
+</Class>
+
+
+</Export>
Index: zTryout/JCL/Base2.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Base2.cls.xml	(revision 0)
+++ zTryout/JCL/Base2.cls.xml	(revision 40592)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.Base2">
+<Super>%RegisteredObject</Super>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Write "Base2"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>