Index: BL/Sys/FOP/SchedulerAbstract.cls.xml
===================================================================
diff -u -r29059 -r66530
--- BL/Sys/FOP/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 66530)
@@ -176,7 +176,7 @@
 	Lock -@("^"_..#ClassNm)                ; unlock
 	Job ClassMethod^vhLib.Thread(..#ClassNm,"Schedule")
 	Set NewPID=$ZCHILD
-	d WLIP^vhDBG(97,"Scheduler started (from $J="_$J_") in New PID "_NewPID)
+	;d WLIP^vhDBG(97,"Scheduler started (from $J="_$J_") in New PID "_NewPID)
 	Hang 1   ; 1 seconde wachten
 	Quit
 ]]></Implementation>
@@ -202,7 +202,7 @@
 cbtHandleBusyTask()
 	; Possible actions:   Send mail / Increase MaxBusyTime / Set Status to $$$qsError / Kill process / Restart Task (?) / Ignore / ...
 	Set msg="Max. Busy Time overschreden: QItem "_QItem.%Id()_" started on "_QItem.Started_" and is running for "_DeltaT_" seconds ("_$$cbtFormatTime(DeltaT)_")"
-	 d WL^vhDBG(msg)
+	 ;d WL^vhDBG(msg)
 	; TO DO:  other actions ...
 	;  *** Kill the running process.  Else, it might run until eternity   :-P
 	If 0 && QItem.ThreadedPID Do
@@ -247,24 +247,24 @@
 <Implementation><![CDATA[
 #define TimeOutWaitNext   30
 	Set $ZTRAP="shdError"
-	  d WLIP^vhDBG(97,"Schedule started. Current process "_$J)
+	  ;d WLIP^vhDBG(97,"Schedule started. Current process "_$J)
 	Quit:('..InitJob())
-	  d WL^vhDBG("InitJob done.")
+	  ;d WL^vhDBG("InitJob done.")
 	Do ..Trigger()   ; bij herstart, controleren wat er in de queue zit.   TO DO !!!
 	Set EndLoop=0
-	  d WL^vhDBG("Going into Loop-mode.")
+	  ;d WL^vhDBG("Going into Loop-mode.")
 	For  Do  Quit:EndLoop
 	. Set Ok=$SYSTEM.Event.Wait($$$ClassEvent("NEXT"),$$$TimeOutWaitNext)
 	. If $$shdCheckSignalledSTOP()  Set EndLoop=1 Quit
 	. Set QItem=..GetNextTask(1)   ; check for free process is included in this method call
-	.   d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
+	.   ;d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
 	. Quit:('$isObject(QItem))
 	. Do ..ProcessTask(QItem)
 	. Set QItem=""   ; Close Task object
 	. Do ..Trigger() ; Belangrijk om onmiddellijk de volgende op te halen
 	; After loop, clean up objects, resources, ...
 	Do ..TerminateJob()
-	d WL^vhDBG("Scheduler stopped. Current PID process "_$J)
+	;d WL^vhDBG("Scheduler stopped. Current PID process "_$J)
 	Do:($SYSTEM.Event.Defined($$$ClassEvent("STOPPED"))) $SYSTEM.Event.Signal($$$ClassEvent("STOPPED"))
 	Set $ZTRAP=""
 	Quit
@@ -355,10 +355,10 @@
 <Implementation><![CDATA[
 	If (QItem.RunMode=$$$rmInLine)&&($L(QItem.SignalPID))&&(QItem.SignalPID'=$J) Do  Quit
 	. Do:(1) ..PreProcessTask(QItem)
-	.  d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
+	.  ;d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
 	. Set Ok=$SYSTEM.Event.Signal(QItem.SignalPID)
 	; Else 
-	  d WL^vhDBG("Start processing Task in current Job "_$J)
+	  ;d WL^vhDBG("Start processing Task in current Job "_$J)
 	Do:(QItem.RunMode'=$$$rmInLine) ..PreProcessTask(QItem)
 	Set blnJobbed=..StartProcessTask(QItem)
 	Do:('blnJobbed) ..PostProcessTask(QItem)   ; (QItem.%Id())