64 lines
3.2 KiB
Mathematica
64 lines
3.2 KiB
Mathematica
AAQPRKIL ;FGO/PJP - Stop running Print jobs ;09/22/97 [8/28/01 10:38am]
|
|
;;1.0;Local;;
|
|
;
|
|
; This routine will kill a process and remove an associated task
|
|
; from the task list, %ZTSCH("TASK",). You will be prompted for a
|
|
; print device and the routine will search all running jobs and
|
|
; display the job tied to that Device.
|
|
S FOUND=0 W ! S DIC="^%ZIS(1,",DIC(0)="AEMQZ",DIC("A")="Enter Printer Name: " D ^DIC
|
|
I Y=-1 G EXIT
|
|
S PRINTER=$P(Y(0),"^",2)
|
|
W !!,"If a print job is actively printing, answer the LOGOUT",!,"question with YES to continue with the kill process."
|
|
W !!,"A print job stopped due to an Equinox port in XOFF state",!,"may resume printing after using LOGOUT to make the port available."
|
|
ASKLO S %=1 W !!,"Have you checked the port status to see if a LOGOUT is needed" D YN^DICN S AAQLO=% I %=0 W !!,"Answer 'Y' to continue with killing the job.",!,"Answer 'N' to check the port status first." G ASKLO
|
|
I AAQLO=2 W !!,"Check the port, LOGOUT if needed, check port status for Accessed/Activity",!,"or us Examine Job to see if the job has resumed." R !!,"Press RETURN to continue:",DANS:15 W ! G EXIT
|
|
;; Taken from %ZAUG ;at/jas; birmingham ocio/albany ocio ;PROGRAM TO LIST JOBS AND PIDS
|
|
S SW10=$V(0,-2,$ZU(40,0,1))\1024#2
|
|
S BASE=$V($ZU(40,2,47),-2,"S")
|
|
S MAXPID=$V($ZU(40,2,47)-(2*$ZU(40,0,4)),-2,4)
|
|
F I=1:1:MAXPID S PID=$V(I*4+BASE,-3,4) S:PID JOB(PID)=PID
|
|
S JJ="" F S JJ=$O(JOB(JJ)) Q:(FOUND=1)!(JJ="") D:$ZU(67,0,JJ)=2
|
|
.S PID=JOB(JJ)
|
|
.S XX=$V(-1,PID),PROG=$P(XX,"^",6),DEV=$P(XX,"^",3) S:PROG="" PROG="SystemJob"
|
|
.I $G(^XUTL("XQ",PID,"DUZ")) S ZDUZ=^XUTL("XQ",PID,"DUZ") S:ZDUZ=0 ZDUZ=".5" S USER=$P(^VA(200,ZDUZ,0),"^",1)
|
|
.; Do not allow the killing of a System Job or a % job.
|
|
.I (DEV[PRINTER)&(PROG'["%")&(PROG'="SystemJob") D
|
|
..S FOUND=1
|
|
..S ^TMP($J,"DEV",PID)=XX
|
|
..S PADPID=PID_$E(" ",$L(PID)+1,6) ;pad pid for display
|
|
..S PADRTN=$P(XX,"^",6)_$E(" ",$L($P(XX,"^",6))+1,10) ;pad routine for display
|
|
..W !,!,"PID ","ROUTINE ","USER "," DEVICE "
|
|
..W !,"--- ","------- ","---- "," ------ "
|
|
..W !,PADPID,PADRTN,USER," ",$P(XX,"^",3),!
|
|
..D KILLIT
|
|
I FOUND=0 W !,!,"...No job found using ",PRINTER,!
|
|
EXIT K %,AAQLO,BASE,DANS,DEV,DIC,FOUND,I,JJ,JOB,KILLED,MAXPID
|
|
K PADPID,PADRTN,PID,PRINTER,PROG,RECORD,SW10,USER,TSK,TSKDEV,TSKPID,Y,XX,ZDUZ,ZTSK,^TMP($J,"DEV")
|
|
Q
|
|
KILLIT K DIR
|
|
S DIR(0)="Y"
|
|
S DIR("A")="Are you sure you want to stop this process"
|
|
S DIR("B")="NO"
|
|
S DIR("?")=" Answer YES to kill the process."
|
|
D ^DIR
|
|
I 'Y W !,!,?5,"Tasks NOT stopped!",!
|
|
I $D(DTOUT) W $C(7) G END
|
|
K DIR,DIRUT,DTOUT,DUOUT
|
|
I 'Y G END
|
|
S KILLED=$$INT^ZZRESJOB(PID)
|
|
I KILLED=0 W !,!,"...PROCESS DEAD OR NOT RESPONDING",!
|
|
I KILLED=1 W !,!,"...PID# ",PID," has been stopped.",!
|
|
S TSK=0 F I=0:0 S TSK=$O(^%ZTSCH("TASK",TSK)) Q:TSK="" D
|
|
.S RECORD=^%ZTSCH("TASK",TSK),TSKDEV=$P(RECORD,"^",6),TSKPID=$P(RECORD,"^",10)
|
|
.I TSKPID=PID D
|
|
..W !,"...PID# ",PID," was a tasked job. Removing Task# ",TSK," from the task list.",! S ZTSK=TSK H 2
|
|
..L +^%ZTSCH("TASK",ZTSK)
|
|
..K ^%ZTSCH("TASK",ZTSK)
|
|
..W !?5,"...",ZTSK," removed."
|
|
..L -^%ZTSCH("TASK",ZTSK)
|
|
..W !?5,"...finished!",!
|
|
..R !,"...Press RETURN to continue:",DANS:15 W !
|
|
Q
|
|
END S JJ=10000 ;Dirty exit should not have a process number higher
|
|
Q
|