Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системыРефераты >> Программирование и компьютеры >> Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы
ПРИЛОЖЕНИЕ 5
Текст программы стартера монитора
|
; IAKoff Save, %n, 05/06/96 | |
|
iapmon | |
|
iapmon |
;IAKoff;11:47 PM 23 Jan 1996; |
|
q | |
|
;Обслуживание АПП-РК | |
|
run() | |
|
n %nname,%d | |
|
i $g(^appstat("NODE"))'=$znode q 1 | |
|
s %d=$g(^appstat("DEVICE"))+0 | |
|
i (%d<100)!(%d>108) q 2 | |
|
i $$tstjob()'="" g endrun | |
|
s ^appstat(1)="F" s ^appstat(2)="F" s ^appstat(3)="F" | |
|
j ^iapbckg(^appstat("DEVICE")):(name="APP-MON":strstk=8000:sysstk=8000) | |
|
endrun | |
|
q 0 | |
|
; ---------------------------------------- | |
|
tstjob() | |
|
n %c,%i,%n | |
|
s $zp=$c(30) | |
|
s %c=$zjob("*")_"*" s %i=1 | |
|
m2 | |
|
s %n=$p(%c,",",%i) | |
|
i %n="" g etm | |
|
i $p($zjob(%n),"|",9)="APP-MON" g etm | |
|
s %i=%i+1 g m2 | |
|
etm | |
|
q %n | |
|
; ---------------------------------------- | |
|
stop | |
|
i $$tstjob()="" g endstop | |
|
nobckg1 | |
|
i (^appstat(1)="F")&(^appstat(2)="F")&(^appstat(3)="F") g stopbckg | |
|
g endstop | |
|
stopbckg | |
|
s ^appstat("CMD")="H" | |
|
; ниже была оШибка ! | |
|
i ^appstat("STATUS")'="H" g nobckg1 | |
|
endstop | |
|
q |
