14 lines
533 B
Mathematica
14 lines
533 B
Mathematica
|
PSXSTP ;BIR/BAB-Stop Interface ;[ 04/08/97 2:06 PM ]
|
||
|
|
;;2.0;CMOP;;11 Apr 97
|
||
|
|
;Called from PSXJOB
|
||
|
|
Q
|
||
|
|
EN ;Enter here to set status to stopped (stop interface)
|
||
|
|
;K LOG,PSXONE S LOG(1)="STP Stopping the interface now!",$G(XCNT),ZCNT)=$G(DUZ)_" STOP INTERFACE DETECTED. ^"_$H,ZCNT=ZCNT+1 D LOG^PSXUTL
|
||
|
|
K LOG,PSXONE S LOG(1)="STP Stopping the interface now!"
|
||
|
|
;Wait for PSXJOB to release lock
|
||
|
|
WAIT L +^PSX(553,1,"S"):3 E W "." G WAIT
|
||
|
|
S ^PSX(553,1,"S")="S" W !!,"Stopping the interface..." S ZTREQ="@"
|
||
|
|
W "Done!"
|
||
|
|
L -^PSX(553,1,"S")
|
||
|
|
Q
|