Index: svn/BackgroundJob.cls.xml
===================================================================
diff -u -r1624 -r1628
--- svn/BackgroundJob.cls.xml	(.../BackgroundJob.cls.xml)	(revision 1624)
+++ svn/BackgroundJob.cls.xml	(.../BackgroundJob.cls.xml)	(revision 1628)
@@ -8,14 +8,16 @@
 <Method name="RunStart">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Do ..Run("ExecuteStart")
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ..Run("ExecuteStart")
 ]]></Implementation>
 </Method>
 
 <Method name="RunStop">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Do ..Run("ExecuteStop")
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ..Run("ExecuteStop")
 ]]></Implementation>
 </Method>
 
@@ -25,38 +27,57 @@
 <FormalSpec>Method:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	set rsClass=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
-	do rsClass.Execute("svn.BackgroundJob")
-	while rsClass.Next() {
-		set Class = rsClass.Data("Name")
-		if ##class(%Dictionary.CompiledClass).%ExistsId(Class) {
-			do $zobjClassMethod(Class,Method)
+	#dim Status As %Status = $$$OK
+	Set rsClass=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
+	Do rsClass.Execute("svn.BackgroundJob")
+	While rsClass.Next() {
+		Set Class = rsClass.Data("Name")
+		If ##class(%Dictionary.CompiledClass).%ExistsId(Class) {
+			#dim StatusThis As %Status = $zobjClassMethod(Class,Method)
+			If $$$ISERR(StatusThis) {
+				Set Status = StatusThis		
+			}
 		}
 	}
+	Quit Status
 ]]></Implementation>
 </Method>
 
 <Method name="ExecuteStart">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	#dim Status As %Status = $$$OK
 	If ##class(svn.Setting).PauseBackgroundJobs(){
-		Write ..%ClassName(1)," - ",..#Omschrijving," - wordt gestart ",!
-		Do ..Start() 
-		Write ..%ClassName(1)," - ",..#Omschrijving," - is gestart ",!
+		#dim Info As %String = ..%ClassName(1)_" - "_..#Omschrijving
+		Write Info," - wordt gestart ",!
+		Set Status = ..Start() 
+		If $$$ISERR(Status){
+			Write Info," - start gefaald : "_$$ParseStatus^vhLib.System(Status),!
+		}Else{
+			Write Info," - is gestart ",!
+		}
 	}
+	Quit Status
 ]]></Implementation>
 </Method>
 
 <Method name="ExecuteStop">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	#dim Status As %Status = $$$OK
 	If ##class(svn.Setting).PauseBackgroundJobs(){
-		Write ..%ClassName(1)," - ",..#Omschrijving," - wordt gestopt ",!
-		Do ..Stop() 
-		Write ..%ClassName(1)," - ",..#Omschrijving," - is gestopt ",!
+		#dim Info As %String = ..%ClassName(1)_" - "_..#Omschrijving
+		Write Info," - wordt gestopt ",!
+		Set Status = ..Stop() 
+		If $$$ISERR(Status){
+			Write Info," - stop gefaald : "_$$ParseStatus^vhLib.System(Status),!
+		}Else{
+			Write Info," - is gestopt ",!
+		}
 	}
+	Quit Status
 ]]></Implementation>
 </Method>
 </Class>