Index: vhPowerTools/TECH/CacheProces.cls.xml
===================================================================
diff -u
--- vhPowerTools/TECH/CacheProces.cls.xml	(revision 0)
+++ vhPowerTools/TECH/CacheProces.cls.xml	(revision 31950)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.TECH.CacheProces">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="KillCacheProcess">
+<Description>
+d ##class(vhPowerTools.TECH.CacheProces).%New().KillCacheProcess(PID)</Description>
+<FormalSpec>ProcessID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ 	#dim Result As %Integer = $ZUTIL(4,ProcessID)
+	Do ..GeefResultInfo(Result,ProcessID)
+	
+ /*	
+	// Implementatie via class "SYS.Process" 
+	
+	#dim CurrentNamespace As %String = $$$NSpace
+	zn "%SYS"
+	Set cProcess = ##CLASS(SYS.Process).%OpenId(ProcessID)
+ 	If $IsObject(cProcess) {
+ 		#dim Result As %Integer = cProcess.Terminate()
+ 	}
+ 	Else {
+	 	Set Result = -3
+	}
+	
+	Do ..GeefResultInfo(Result,ProcessID)
+	
+	zn CurrentNamespace	
+*/
+]]></Implementation>
+</Method>
+
+<Method name="GeefResultInfo">
+<FormalSpec>Result:%Integer,ProcessID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If Result = 1 { 
+		Write "Success: "_ProcessID_" terminated"
+	} 
+	ElseIf Result = 0 { 
+		Write "Failure: "_ProcessID_" is a daemon",!
+		Write "Use the $ZUTIL(4,pid,-65) syntax"
+	} 
+	ElseIf Result = -3 { 
+		Write "Process "_ProcessID_" not recognized"
+	}
+	ElseIf Result = -4 { 
+		Write "Process "_ProcessID_" in halt or rollback"
+	}
+	Else { 
+		Write "Failure: $ZUTIL(4) returned "_Result_" for "_ProcessID
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>