Index: cQZSTART.mac.rou =================================================================== diff -u -r29059 -r49108 --- cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 29059) +++ cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 49108) @@ -250,8 +250,17 @@ ZJOBZ Q J ; BGJOB(J) ;Background job ?? - I $S(($P($P($ZV,")",2),"(",1)[" 4."):$ZU(67,10,$G(J,$J)),($P($P($ZV,")",2),"(",1)[" 5."):##class(%SYSTEM.Process).%OpenId($G(J,$J)).JobTypeGet(),1:##class(%SYS.ProcessQuery).%OpenId($G(J,$J),0).JobTypeGet())=2 Q 1 -BGJOBZ Q 0 + new TmpResult Set TmpResult = "" + if ($P($P($ZV,")",2),"(",1)[" 4.") { + set TmpResult = $ZU(67,10,$G(J,$J)) + } elseif ($P($P($ZV,")",2),"(",1)[" 5.") { + new Process set Process = ##class(%SYSTEM.Process).%OpenId($G(J,$J)) + if $isObject(Process) set TmpResult = Process.JobTypeGet() + } else { + new Process set Process = ##class(%SYS.ProcessQuery).%OpenId($G(J,$J),0) + if $IsObject(Process) set TmpResult = Process.JobTypeGet() + } +BGJOBZ quit (TmpResult=2) ; CNN(X) N K I '+$G(X),$G(^["%SYS"]cLOG(0,"NETBIOSNAME"),1) Q "" ; Modified 12.02.2006