Index: zTryout/JCL/ConfigItems.cls.xml
===================================================================
diff -u
--- zTryout/JCL/ConfigItems.cls.xml	(revision 0)
+++ zTryout/JCL/ConfigItems.cls.xml	(revision 3353)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JCL.ConfigItems">
+<Super>%RegisteredObject</Super>
+
+<Method name="Export">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Filename:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	
+	set Omgeving = ##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()
+	
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	
+	set ConfigItem = ""
+	for  { set ConfigItem = $order(^TECH.Config.ConfigItemD(Omgeving,ConfigItem)) Quit:ConfigItem=""  
+		set Value = ##class(TECH.Config.ConfigMgr).Instance().GetString(ConfigItem)
+		do Stream.WriteLine(ConfigItem_$C(9)_Value)
+	}
+	
+	set File = ##class(TECH.File.FileWriter).%New(Filename)
+	do File.WriteStream(Stream)
+	do File.Close()
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="Import">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Filename:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	
+	set File = ##class(TECH.File.FileReader).%New(Filename)
+	while 'File.AtEnd() {
+		set Line = File.ReadLine()
+		set ConfigItem = $piece(Line,$C(9),1)
+		set Value = $piece(Line,$C(9),2)
+		do ##class(TECH.Config.ConfigMgr).Instance().SetString(ConfigItem,Value)
+		
+	}
+	
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>