Index: TECH/Process/ProcessAPI.cls.xml
===================================================================
diff -u -r2088 -r2884
--- TECH/Process/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2088)
+++ TECH/Process/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2884)
@@ -8,6 +8,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>Seconds:%Decimal,ProcessID:%String=""</FormalSpec>
 </Method>
+
+<Method name="GeefObjectsInMemory">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Process.ObjectList</ReturnType>
+</Method>
 </Class>
 
 
Index: TECH/Process/impl/ProcessAPI.cls.xml
===================================================================
diff -u -r2088 -r2884
--- TECH/Process/impl/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2088)
+++ TECH/Process/impl/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2884)
@@ -8,6 +8,30 @@
 <Implementation><![CDATA[	hang Seconds
 ]]></Implementation>
 </Method>
+
+<Method name="GeefObjectsInMemory">
+<ReturnType>TECH.Process.ObjectList</ReturnType>
+<Implementation><![CDATA[
+	set IO = ##class(TECH.IO).%New()
+	do IO.Redirect()
+	do $system.OBJ.ShowObjects()
+	do IO.Reset()
+
+	set ObjectList = ##class(TECH.Process.ObjectList).%New()
+	
+	#dim Stream As %Stream.Object = IO.GeefStream()
+	do Stream.ReadLine()
+	do Stream.ReadLine()
+	
+	while $$$Not(Stream.AtEnd) {
+		#dim Line As %String = Stream.ReadLine()
+		while (Line["  ") { set Line = $replace(Line ,"  "," ") }
+		do ObjectList.Insert(##class(TECH.Process.Object).%New($piece(Line," ",2),$piece(Line," ",3)))
+	}
+	
+	quit ObjectList
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Process/ObjectList.cls.xml
===================================================================
diff -u
--- TECH/Process/ObjectList.cls.xml	(revision 0)
+++ TECH/Process/ObjectList.cls.xml	(revision 2884)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Process.ObjectList">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Description>
+The type (class name) of the elements stored in the collection.</Description>
+<Default>TECH.Process.Object</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/TECH/Process/ProcessAPI.cls.xml
===================================================================
diff -u -r2401 -r2884
--- vhTest/Mock/TECH/Process/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2401)
+++ vhTest/Mock/TECH/Process/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2884)
@@ -18,6 +18,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefObjectsInMemory">
+<ReturnType>TECH.Process.ObjectList</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefObjectsInMemory")
+]]></Implementation>
+</Method>
+
 <Method name="Sleep">
 <FormalSpec>Seconds:%Decimal,ProcessID:%String=""</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Sleep",Seconds,ProcessID)
Index: TECH/Process/Object.cls.xml
===================================================================
diff -u
--- TECH/Process/Object.cls.xml	(revision 0)
+++ TECH/Process/Object.cls.xml	(revision 2884)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Process.Object">
+<Super>%RegisteredObject</Super>
+
+<Property name="Name">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Count">
+<Type>TECH.String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Name:TECH.String,Count:TECH.String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>