Index: Tools/GlobalSizeMonitor/Analyser.cls.xml
===================================================================
diff -u -r3444 -r3874
--- Tools/GlobalSizeMonitor/Analyser.cls.xml	(.../Analyser.cls.xml)	(revision 3444)
+++ Tools/GlobalSizeMonitor/Analyser.cls.xml	(.../Analyser.cls.xml)	(revision 3874)
@@ -3,54 +3,92 @@
 <Class name="Tools.GlobalSizeMonitor.Analyser">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="BepaalHuidigeGroottes">
+<Method name="BerekenEnBewaarHuidigeGroottes">
 <Description>
 Oproepen via: 
-   Do ##class(Tools.GlobalSizeMonitor.Analyser).BepaalHuidigeGroottes()</Description>
+   Do ##class(Tools.GlobalSizeMonitor.Analyser).BerekenEnBewaarHuidigeGroottes()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	Set Logger = ##class(vhLib.Logger).%New("GlobalSizeMonitor")
+	Do Logger.Debug("Berekening grootte geheugen", "Start berekeningen.")
 	Kill ^Tools.GlobalSizA716.GlobalSizeD(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
+	
+	#Dim Databases As %ArrayOfDataTypes = ##class(TECH.System).GeefDatabases()
+	#Dim DatabaseName As %String = Databases.Next("")
+	While ("" '= DatabaseName) {
+		Write ##class(TECH.System).GeefDirectory(DatabaseName), !
+		Do ..Analyseer(DatabaseName)
+		Set DatabaseName = Databases.Next(DatabaseName)
+	}
+	Do Logger.Debug("Berekening grootte geheugen", "Klaar met berekeningen.")
+]]></Implementation>
+</Method>
 
-	;Do ..%New().Analyseer("E:\datam\Database\ADMIN\T\0")
-	Do ..%New().Analyseer("F:\datam\Database\DEV\T\0")
-
-	zw ^Tools.GlobalSizA716.GlobalSizeD(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
+<Method name="SchrijfBewaardeGroottesNaarConsole">
+<Description>
+Do ##class(Tools.GlobalSizeMonitor.Analyser).SchrijfBewaardeGroottesNaarConsole()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	zw ^Tools.GlobalSizA716.GlobalSizeD(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
 ]]></Implementation>
 </Method>
 
-<Method name="InputHuidigeGroottes">
+<Method name="BerekenEnToonHuidigeGroottes">
+<Description>
+Oproepen via: 
+   Do ##class(Tools.GlobalSizeMonitor.Analyser).BerekenEnToonHuidigeGroottes("FE:HA,Y*,'Flow*") </Description>
 <ClassMethod>1</ClassMethod>
+<FormalSpec>GlobalNameMask:%String="FE:HA,Y*,'Flow*"</FormalSpec>
 <Implementation><![CDATA[
-	Kill ^Tools.GlobalSizA716.GlobalSizeD(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
-	;Do ..Analyseer("E:\datam\Database\DEV\G\0")
-	Do ..Analyseer("E:\datam\Database\DEV\G\1")
-	;Do ..Analyseer("E:\datam\Database\DEV\G\2")
-	zw ^Tools.GlobalSizA716.GlobalSizeD(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
+	#Dim Databases As %ArrayOfDataTypes = ##class(TECH.System).GeefDatabases()
+	#Dim DatabaseName As %String = Databases.Next("")
+	While ("" '= DatabaseName) {
+		Write ##class(TECH.System).GeefDirectory(DatabaseName), !
+		Do ..AnalyseerBeperkteLijst(DatabaseName, GlobalNameMask)
+		Set DatabaseName = Databases.Next(DatabaseName)
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="Analyseer">
+<Description>
+@Param DatabaseName %String Dit is in de vorm van "DEV-G1".</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>DatabaseDirectory:%String</FormalSpec>
+<FormalSpec>DatabaseName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#Dim DatabaseDirectory As %String = ##class(TECH.System).GeefDirectory(DatabaseName)
 	Set ResultSet = ##class(%ResultSet).%New("%SYS.GlobalQuery:Size")
 	Do ResultSet.Execute(DatabaseDirectory)
 	While (ResultSet.Next()) {
 		#dim GlobalName As %String = ResultSet.Data("Name")
+		Write GlobalName, "   "
 		#dim AllocatedMB As %Decimal = ResultSet.Data("Allocated MB")
 		#dim UsedMB As %Decimal = ResultSet.Data("Used MB")
-		set GlobalSizeInfo = ##class(Tools.GlobalSizeMonitor.GlobalSize).%New(GlobalName,AllocatedMB,UsedMB)
+		set GlobalSizeInfo = ##class(Tools.GlobalSizeMonitor.GlobalSize).%New(GlobalName,AllocatedMB,UsedMB, DatabaseName)
 		do GlobalSizeInfo.Save()		
 	}
+	Do ResultSet.Close()
 ]]></Implementation>
 </Method>
 
-<Method name="GetDictoriesToAnalyseIterator">
-<ReturnType>TECH.Iterator</ReturnType>
+<Method name="AnalyseerBeperkteLijst">
+<Description>
+@Param DatabaseName %String Dit is in de vorm van "DEV-G1".</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DatabaseName:%String,GlobalNameMask:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	;
-	;quit ##class(TECH.
+	#Dim DatabaseDirectory As %String = ##class(TECH.System).GeefDirectory(DatabaseName)
+	Set ResultSet = ##class(%ResultSet).%New("%SYS.GlobalQuery:Size")
+	Do ResultSet.Execute(DatabaseDirectory, ,GlobalNameMask)
+	While (ResultSet.Next()) {
+		#dim GlobalName As %String = ResultSet.Data("Name")
+		#dim AllocatedMB As %Decimal = ResultSet.Data("Allocated MB")
+		#dim UsedMB As %Decimal = ResultSet.Data("Used MB")
+		Write !,DatabaseName_" / "_GlobalName, " : Used: "_UsedMB_" MB.  (alloc. :"_AllocatedMB_" MB)."
+	}
+	Do ResultSet.Close()
+	Write !
 ]]></Implementation>
 </Method>
 </Class>