Index: vhConsistency/Checks/ControleKarakter.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/ControleKarakter.cls.xml	(revision 0)
+++ vhConsistency/Checks/ControleKarakter.cls.xml	(revision 1489)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.ControleKarakter">
+<Description>
+JCL + 2011-07-21</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Globals">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ..Globals.Insert("^PERS")
+	do ..Globals.Insert("^KKL")
+	do ..Globals.Insert("^KK1")
+	do ..Globals.Insert("^KLE")
+	do ..Globals.Insert("^KL1")
+	do ..Globals.Insert("^KOD")
+	do ..Globals.Insert("^KUL")
+	do ..Globals.Insert("^KFA")
+	do ..Globals.Insert("^PRBS")
+	do ..Globals.Insert("^PRLINK")
+	do ..Globals.Insert("^KPR")
+	
+	set Status = $$$OK
+	
+	set itGlobals = ##class(TECH.ListIterator).%New(..Globals)
+	while itGlobals.HasNext() {
+		set Global = itGlobals.Next()
+		for  { set Global=$query(@Global) quit:Global=""  
+			if @Global?.E1.C.E set Status = $$$ERROR($$$GeneralError) do ..VoegMeldingToe(Global)
+		}	
+	}
+		
+	quit Status
+]]></Implementation>
+</Method>
+</Class>
+</Export>