Index: Tools/GlobalSizeMonitor/Analyser.cls.xml
===================================================================
diff -u -r3810 -r3874
--- Tools/GlobalSizeMonitor/Analyser.cls.xml	(.../Analyser.cls.xml)	(revision 3810)
+++ Tools/GlobalSizeMonitor/Analyser.cls.xml	(.../Analyser.cls.xml)	(revision 3874)
@@ -32,6 +32,23 @@
 ]]></Implementation>
 </Method>
 
+<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[
+	#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>
@@ -53,6 +70,27 @@
 	Do ResultSet.Close()
 ]]></Implementation>
 </Method>
+
+<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[
+	#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>