Добрый вечер!

Появилась необходимость работы с фоновыми процессами.
Как определить программно запущена ли пользовательская процедура в фоновом режиме?
Из системной области (%SYS) можно определить в таблице SYS.Process. А вот как достучаться к этой системной таблице из пользовательского раздела - непонятно? При компиляции программы появляется ошибка "SQLCODE=-30 : Таблица 'SYS.PROCESS' не найдена"
Или понять в какую глобаль записываются данные таблицы %SYS.ProcessQuery?

Если пробовать использовать %SYS.ProcessQuery - ошибка такого вида
---------------------------
Studio
---------------------------
ОШИБКА #5475: Ошибка при компиляции программы: ProgEE. Ошибок:

ERROR: source lines(9) : MPP5610 : Не определен макрос: 'FOREJOB'

TEXT: s %mmmsqld(3)=$s(j=$$$FOREJOB:$$$FOREJOBNAME,j=$$$NETSRVTYPE:$$$NETSRVTYPENAME,j=$$$NETDMNTYPE:$$$NETDMNTYPENAME,j=$$$JOBSRVTYPE:$$$JOBSRVTYPENAME,1:"Unknown"_j)

ERROR: source lines(9) : MPP5610 : Не определен макрос: 'FOREJOBNAME'

TEXT: s %mmmsqld(3)=$s(j=$$$FOREJOB:$$$FOREJOBNAME,j=$$$NETSRVTYPE:$$$NETSRVTYPENAME,j=$$$NETDMNTYPE:$$$NETDMNTYPENAME,j=$$$JOBSRVTYPE:$$$JOBSRVTYPENAME,1:"Unknown"_j)

ERROR: source lines(9) : MPP5610 : Не определен макрос: 'NETSRVTYPE'

TEXT: s %mmmsqld(3)=$s(j=$$$FOREJOB:$$$FOREJOBNAME,j=$$$NETSRVTYPE:$$$NETSRVTYPENAME,j=$$$NETDMNTYPE:$$$NETDMNTYPENAME,j=$$$JOBSRVTYPE:$$$JOBSRVTYPENAME,1:"Unknown"_j)

ERROR: source lines(9) : MPP5610 : Не определен макрос: 'NETSRVTYPENAME'

TEXT: s %mmmsqld(3)=$s(j=$$$FOREJOB:$$$FOREJOBNAME,j=$$$NETSRVTYPE:$$$NETSRVTYPENAME,j=$$$NETDMNTYPE:$$$NETDMNTYPENAME,j=$$$JOBSRVTYPE:$$$JOBSRVTYPENAME,1:"Unknown"_j)

ERROR: source lines(9) : MPP5610 : Не определен мак
---------------------------
ОК
---------------------------

Всем спасибо.

Проблему решил следующим образом.
Из пользовательского раздела запускается функция, которая возвращает результат проверки.

Если программы нет - запускаю j ^MyRoutine::20

checkProgr() ; проверка запущена ли программа
set rez= 0
zn "%SYS"
s PID=""
for {
set PID=##CLASS(SYS.Process).NextProcess(PID)

if PID'="" {
set Job=##CLASS(SYS.Process).%OpenId(PID)

if (Job '= "")
{

set routine = Job.Routine
if (routine = "MyRoutine") {
s rez= 1
quit}
}
}
else {
zn "user"
q
}
}
zn "user"
q rez