$system.Event.WaitMsg(<job>)

d $system.Event.Signal(<job>)

tmp ;;;;[ 01/02/2013 10:34 ]
	n
	s job="test"
	d $system.Event.Create(job)
	j START(job)
	s stat=$system.Event.WaitMsg(job)
	w !,$li(stat,1)
	d $system.Event.Delete(job)
	q
START(Job)
	;d $system.Event.Signal(Job)
	q

tmp ;;;;[ 01/02/2013 10:34 ]
	n
	s job="test"
	d $system.Event.Create(job)
	j START(job)
	for i=1:1:3 {
		s stat=$system.Event.WaitMsg(job,1)
		w !,$li(stat,1)
	}
	d $system.Event.Delete(job)
	q
START(Job)
	;d $system.Event.Signal(Job)
	q

tmp ;;;;[ 01/02/2013 10:34 ]
	n
	s job="test"
	d $system.Event.Create(job)
	j START(job)
	for i=1:1:3 {
		s stat=$system.Event.WaitMsg(job,1)
		w !,$li(stat,1)
	}
	d $system.Event.Delete(job)
	q
START(Job)
	i 1/0
	d $system.Event.Signal(Job)
	q

tmp ;;;;[ 01/02/2013 10:34 ]
	n
	s job="test"
	;d $system.Event.Create(job)
	j START(job)
	s n=$ZCHILD
	for i=1:1:3 {
		w !,##CLASS(%SYS.ProcessQuery).%ExistsId(n)
		h 1
		;s stat=$system.Event.WaitMsg(job,1)
		;w !,$li(stat,1)
	}
	;d $system.Event.Delete(job)
	q
START(Job)
	h 1
	i 1/0
	d $system.Event.Signal(Job)
	q

main
	n 
	; создаём три процесса со своим приоритетом
	job job(3, -7, "яблоко", 5)
	job job(2, 0, "груша", 6)
	job job(1, 8, "слива", 7)
	; ожидаем сигнала пробуждения и
	; выводим результат на экран
	write $list($system.Event.WaitMsg(), 2),!
	write $list($system.Event.WaitMsg(), 2),!
	write $list($system.Event.WaitMsg(), 2),!
	q
job(x,delta,a,b)
	; меняем приоритет текущему процессу на delta
	do $system.Util.SetPrio(delta)
	; имитируем бурную деятельность задержкой в x сек.
	hang x 
	// посылаем сигнал пробуждения родительскому процессу
	// одновременно с результатом
	do $system.Event.Signal($zparent,a_"-"_(b*2))
	q

TEST>d ^tmp
слива-14
груша-12
яблоко-10

$list($system.Event.WaitMsg())

##CLASS(%SYS.ProcessQuery).%ExistsId(job)

$d(^$J(job))