source: WorldVistAEHR/trunk/r/ZZOTHER/ZZRESJOB.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1ZZRESJOB ;(KSO,PK) Kill a job by VMS PID ; DKA187 08/30/93 ; Compiled 04/22/97 06:19PM for M/WNT
2 ; +--------------------------------------------------------+
3 ; | Copyright 1986-1997 by InterSystems Corporation, |
4 ; | Cambridge, Massachusetts, U.S.A. |
5 ; | All rights reserved. |
6 ; | |
7 ; | Confidential, unpublished property of InterSystems. |
8 ; | |
9 ; | This media contains an authorized copy or copies |
10 ; | of material copyrighted by InterSystems and is the |
11 ; | confidential, unpublished property of InterSystems. |
12 ; | This copyright notice and any other copyright notices |
13 ; | included in machine readable copies must be reproduced |
14 ; | on all authorized copies. |
15 ; +--------------------------------------------------------+
16BEGIN ;
17 N %D,%X,JOB,KJ,PROC
18 W !,"Force a process to quit Open M"
19ASK R !!,"Process ID (? for status report): ",JOB:DTIME I JOB="" W ! Q
20 ; **MODIFICATION: ^%SS replaced with ^AAQSS...
21 I JOB="?" W ! D ^AAQSS G ASK
22 ; **************
23 S:0 JOB=JOB
24 D FIND
25 I 'KJ W $C(7)," [no such Open M process]" G ASK
26 I JOB=$J W $C(7),!,"This is your current process, not proceeding with kill." G ASK
27 S PROC="",$ZT="ASK1",PROC=$P($V(-1,JOB),"^",10)
28ASK1 S $ZT=""
29 I PROC?2U1N S PROC="" ;network daemons can be killed
30 I PROC]"",PROC'="JOBSRV" D G ASK
31 . W $C(7),!,"Can NOT kill the "_PROC_" process. "
32 S ZZ=$ZU(4,KJ)
33 I ZZ=-1 W !,"Process not responding" G ASK
34 I ZZ=-2 W !,"Process died, not responding" G ASK
35 I ZZ=-3 W !,"Process already died" G ASK
36 I PROC="JOBSRV" G ASK
37 F I=1:1:5 H 1 D FIND G ASK:'KJ
38 W !,"Process failed to quit" G ASK
39FIND S %D=JOB F KJ=0:0 S KJ=+$ZJ(KJ) Q:'KJ!(KJ=%D)
40 Q
41INT(JOB) ;EXTRINSIC FUNCTION. GIVEN JOB=PROCESS ID#. QUITS 1 IF TERMINATES, ELSE QUITS 0. (LIBERMAN) APR87
42 S:0 JOB=JOB
43 N %D,%X,I,KJ D FIND I 'KJ Q 0 ;QUIT 0 IF CANNOT FIND THAT PROCESS
44 I $ZU(4,KJ)=1 F I=1:1:5 H 1 D FIND G Q1:'KJ
45 Q 0 ;PROCESS DEAD OR NOT RESPONDING
46Q1 Q 1
Note: See TracBrowser for help on using the repository browser.