DIPLOM1 (663367), страница 11

; 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 (%d108) 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