- AZZMJOB ; MURDERJOB; Kills jobs in mumps and unix ;[ 09/20/89 3:12 PM ]
- ; UPDATES ^XUTL AND ^XMB(3.7) GLOBALS, THEN GIVES OPPORTUNITY
- ; TO KILL JOBS. RECOMMEND PLACING UNDER THE "KJOB" OPTION.
- ; THIS HELPS TO CLEAR UP PROBLEM OF PEOPLE BEING UNABLE TO LOG IN
- ; WHEN THE SYSTEM THINKS THEY'RE ALREADY LOGGED IN. ALSO, KILLS
- ; JOB AT THE UNIX LEVEL IF JOB WILL NOT TERMINATE IN MUMPS.
- ; NOTE: THE USER RUNNING THIS ROUTINE MUST HAVE UNIX ROOT PRIVILEGES,
- ; OTHERWISER FUSER WILL MERELY LIST THE PIDS RATHER THAN KILLING THEM.
- ; Mike Remillard, DDS, ISC/BAO
- START ;
- K AZZMJ
- D ^AUKVAR
- ;-----> CLEAN UP ^XUTL GLOBAL (REMOVE NODES OF NONEXISTENT JOBS).
- S N=0 F S N=$O(^XUTL("XQ",N)) Q:'N S X=N X ^%ZOSF("JOBPARAM") S AZZMJ("HOLD")=$P(Y,U,1) X ^%ZOSF("UCI") K:(Y'=AZZMJ("HOLD"))&(AZZMJ("HOLD")'="UNKNOWN") ^XUTL("XQ",N)
- ;
- SET ;-----> SET UP AZZMJ("XUTL") ARRAY EQUALS: DUZ;IO#^JOB#
- S N=0 F I=1:1 S N=$O(^XUTL("XQ",N)) Q:'N S AZZMJ("XUTL",I)=^XUTL("XQ",N,"DUZ")_";"_^("IO")_U_N
- ;
- ;-----> SET UP AZZMJ("XMB") ARRAY EQUALS: DUZ;IO#^NAME
- S AZZMJ("NODE")=0,AZZMJ("PREV")="",X=""
- S N=0 F S N=$O(^XMB(3.7,N)) Q:'N D:$D(^XMB(3.7,N,100))
- .S AZZMJ("DUZ")=N,X=$P(^DIC(3,AZZMJ("DUZ"),0),U)
- .S AZZMJ("NAME")=$P(X,",",2)_" "_$P(X,",")
- .S M=0 F S M=$O(^XMB(3.7,N,100,M)) Q:'M D
- ..S AZZMJ("NODE")=AZZMJ("NODE")+1
- ..S AZZMJ("XMB",AZZMJ("NODE"))=AZZMJ("DUZ")_";"_M_U_AZZMJ("NAME")
- ;
- COMPARE ;
- ;-----> COMPARE AZZMJ("XMB") ARRAY TO AZZMJ("XUTL") ARRAY,
- ;-----> SCANNING FOR NODES WITH NO ACTIVE JOBS.
- S N=0 F S N=$O(AZZMJ("XMB",N)) Q:'N D
- .S M=0,$P(AZZMJ("XMB",N),U,3)="NO ACTIVE JOB"
- .F S M=$O(AZZMJ("XUTL",M)) Q:'M I $P(AZZMJ("XMB",N),U)=$P(AZZMJ("XUTL",M),U) S $P(AZZMJ("XMB",N),U,3)=$P(AZZMJ("XUTL",M),U,2)
- ;-----> NOW THE AZZMJ("XMB") ARRAY EQUALS: DUZ;IO#^NAME^JOB#
- ;
- DISPLAY ;
- D HEADER
- S N=0 K NN
- F S N=$O(AZZMJ("XMB",N)) Q:'N D:$Y>17 PROMPT Q:X="^" D:$Y>17 HEADER D
- .S NN=N,AZZMJ("NAME")=$P(AZZMJ("XMB",N),U,2)
- .W:AZZMJ("NAME")'=AZZMJ("PREV") !
- .S AZZMJ("PREV")=AZZMJ("NAME")
- .W !?4,AZZMJ("NAME"),?27,"DEVICE ",$P($P(AZZMJ("XMB",N),U),";",2)
- .W ?42,$J($P(AZZMJ("XMB",N),U,3),7)
- .I '+$P(AZZMJ("XMB",N),U,3) D REMOVE W ?62,"REMOVED"
- I '$D(NN) G NONE
- D:X'=U&('$D(AZZMJ("KILL"))) PROMPT
- I $D(AZZMJ("KILL")) G START
- W !!!?5,"Type ""D"" to Display this table again, or press <return> to quit. " R X:DTIME
- I X?1"D".E!(X?1"d".E) G START
- EXIT ;
- D ^AUCLS
- K AZZMJ,I,M,N,NN,X
- Q
- PROMPT ;
- F W ! Q:$Y>19
- R !!?10,"Type ""K"" to kill a job, or press <return> to continue. ",X:DTIME
- I X=""!(X="^") Q
- I "Kk"[X W !! D KILLJOB,^%AUCLS,^%SS R !!!?23,"Press <return> to continue. ",X:DTIME Q
- W !!?5,"Typing ""K"" will give you an opportunity to kill a particular job."
- W !?5,"You will be given an option to view the System Status first."
- G PROMPT
- ;
- REMOVE ;
- K ^XMB(3.7,$P(AZZMJ("XMB",N),";"),100,$P($P(AZZMJ("XMB",N),U),";",2))
- Q
- D ^AUCLS
- W ?9,"* * * CLEAR SIGN-ON ERRORS / KILL JOBS FOR "_$ZU(0)_" * * *"
- W !!!?10,"User",?28,"Device",?46,"Job#",?62,"Action"
- W !?3,"------------------",?25,"------------",?41,"---------------"
- W ?60,"----------"
- Q
- KILLJOB ;
- R !?10,"Do you wish to see the System Status first? N// ",X:DTIME
- I X?1"Y".E!(X?1"y".E)!(X?1"?".E) D ^AUCLS,^%SS
- I X="^" Q
- D ^AZZMJOB1 S X="^",AZZMJ("KILL")=""
- Q
- NONE ;
- W !!!!?32,"* * *"
- W !!!?5,"The IHS Kernel is not aware of any user on the system at this time."
- W !!?19,"(There may be users in programmer mode.)",!!!?32,"* * *"
- D PROMPT
- ;R !!!!?23,"Press <return> to continue. ",X:DTIME
- G EXIT
- AZZMJOB ; MURDERJOB; Kills jobs in mumps and unix ;[ 09/20/89 3:12 PM ]
- +1 ; UPDATES ^XUTL AND ^XMB(3.7) GLOBALS, THEN GIVES OPPORTUNITY
- +2 ; TO KILL JOBS. RECOMMEND PLACING UNDER THE "KJOB" OPTION.
- +3 ; THIS HELPS TO CLEAR UP PROBLEM OF PEOPLE BEING UNABLE TO LOG IN
- +4 ; WHEN THE SYSTEM THINKS THEY'RE ALREADY LOGGED IN. ALSO, KILLS
- +5 ; JOB AT THE UNIX LEVEL IF JOB WILL NOT TERMINATE IN MUMPS.
- +6 ; NOTE: THE USER RUNNING THIS ROUTINE MUST HAVE UNIX ROOT PRIVILEGES,
- +7 ; OTHERWISER FUSER WILL MERELY LIST THE PIDS RATHER THAN KILLING THEM.
- +8 ; Mike Remillard, DDS, ISC/BAO
- START ;
- +1 KILL AZZMJ
- +2 DO ^AUKVAR
- +3 ;-----> CLEAN UP ^XUTL GLOBAL (REMOVE NODES OF NONEXISTENT JOBS).
- +4 SET N=0
- FOR
- SET N=$ORDER(^XUTL("XQ",N))
- IF 'N
- QUIT
- SET X=N
- XECUTE ^%ZOSF("JOBPARAM")
- SET AZZMJ("HOLD")=$PIECE(Y,U,1)
- XECUTE ^%ZOSF("UCI")
- IF (Y'=AZZMJ("HOLD"))&(AZZMJ("HOLD")'="UNKNOWN")
- KILL ^XUTL("XQ",N)
- +5 ;
- SET ;-----> SET UP AZZMJ("XUTL") ARRAY EQUALS: DUZ;IO#^JOB#
- +1 SET N=0
- FOR I=1:1
- SET N=$ORDER(^XUTL("XQ",N))
- IF 'N
- QUIT
- SET AZZMJ("XUTL",I)=^XUTL("XQ",N,"DUZ")_";"_^("IO")_U_N
- +2 ;
- +3 ;-----> SET UP AZZMJ("XMB") ARRAY EQUALS: DUZ;IO#^NAME
- +4 SET AZZMJ("NODE")=0
- SET AZZMJ("PREV")=""
- SET X=""
- +5 SET N=0
- FOR
- SET N=$ORDER(^XMB(3.7,N))
- IF 'N
- QUIT
- IF $DATA(^XMB(3.7,N,100))
- Begin DoDot:1
- +6 SET AZZMJ("DUZ")=N
- SET X=$PIECE(^DIC(3,AZZMJ("DUZ"),0),U)
- +7 SET AZZMJ("NAME")=$PIECE(X,",",2)_" "_$PIECE(X,",")
- +8 SET M=0
- FOR
- SET M=$ORDER(^XMB(3.7,N,100,M))
- IF 'M
- QUIT
- Begin DoDot:2
- +9 SET AZZMJ("NODE")=AZZMJ("NODE")+1
- +10 SET AZZMJ("XMB",AZZMJ("NODE"))=AZZMJ("DUZ")_";"_M_U_AZZMJ("NAME")
- End DoDot:2
- End DoDot:1
- +11 ;
- COMPARE ;
- +1 ;-----> COMPARE AZZMJ("XMB") ARRAY TO AZZMJ("XUTL") ARRAY,
- +2 ;-----> SCANNING FOR NODES WITH NO ACTIVE JOBS.
- +3 SET N=0
- FOR
- SET N=$ORDER(AZZMJ("XMB",N))
- IF 'N
- QUIT
- Begin DoDot:1
- +4 SET M=0
- SET $PIECE(AZZMJ("XMB",N),U,3)="NO ACTIVE JOB"
- +5 FOR
- SET M=$ORDER(AZZMJ("XUTL",M))
- IF 'M
- QUIT
- IF $PIECE(AZZMJ("XMB",N),U)=$PIECE(AZZMJ("XUTL",M),U)
- SET $PIECE(AZZMJ("XMB",N),U,3)=$PIECE(AZZMJ("XUTL",M),U,2)
- End DoDot:1
- +6 ;-----> NOW THE AZZMJ("XMB") ARRAY EQUALS: DUZ;IO#^NAME^JOB#
- +7 ;
- DISPLAY ;
- +1 DO HEADER
- +2 SET N=0
- KILL NN
- +3 FOR
- SET N=$ORDER(AZZMJ("XMB",N))
- IF 'N
- QUIT
- IF $Y>17
- DO PROMPT
- IF X="^"
- QUIT
- IF $Y>17
- DO HEADER
- Begin DoDot:1
- +4 SET NN=N
- SET AZZMJ("NAME")=$PIECE(AZZMJ("XMB",N),U,2)
- +5 IF AZZMJ("NAME")'=AZZMJ("PREV")
- WRITE !
- +6 SET AZZMJ("PREV")=AZZMJ("NAME")
- +7 WRITE !?4,AZZMJ("NAME"),?27,"DEVICE ",$PIECE($PIECE(AZZMJ("XMB",N),U),";",2)
- +8 WRITE ?42,$JUSTIFY($PIECE(AZZMJ("XMB",N),U,3),7)
- +9 IF '+$PIECE(AZZMJ("XMB",N),U,3)
- DO REMOVE
- WRITE ?62,"REMOVED"
- End DoDot:1
- +10 IF '$DATA(NN)
- GOTO NONE
- +11 IF X'=U&('$DATA(AZZMJ("KILL")))
- DO PROMPT
- +12 IF $DATA(AZZMJ("KILL"))
- GOTO START
- +13 WRITE !!!?5,"Type ""D"" to Display this table again, or press <return> to quit. "
- READ X:DTIME
- +14 IF X?1"D".E!(X?1"d".E)
- GOTO START
- EXIT ;
- +1 DO ^AUCLS
- +2 KILL AZZMJ,I,M,N,NN,X
- +3 QUIT
- PROMPT ;
- +1 FOR
- WRITE !
- IF $Y>19
- QUIT
- +2 READ !!?10,"Type ""K"" to kill a job, or press <return> to continue. ",X:DTIME
- +3 IF X=""!(X="^")
- QUIT
- +4 IF "Kk"[X
- WRITE !!
- DO KILLJOB
- DO ^%AUCLS
- DO ^%SS
- READ !!!?23,"Press <return> to continue. ",X:DTIME
- QUIT
- +5 WRITE !!?5,"Typing ""K"" will give you an opportunity to kill a particular job."
- +6 WRITE !?5,"You will be given an option to view the System Status first."
- +7 GOTO PROMPT
- +8 ;
- REMOVE ;
- +1 KILL ^XMB(3.7,$PIECE(AZZMJ("XMB",N),";"),100,$PIECE($PIECE(AZZMJ("XMB",N),U),";",2))
- +2 QUIT
- +1 DO ^AUCLS
- +2 WRITE ?9,"* * * CLEAR SIGN-ON ERRORS / KILL JOBS FOR "_$ZU(0)_" * * *"
- +3 WRITE !!!?10,"User",?28,"Device",?46,"Job#",?62,"Action"
- +4 WRITE !?3,"------------------",?25,"------------",?41,"---------------"
- +5 WRITE ?60,"----------"
- +6 QUIT
- KILLJOB ;
- +1 READ !?10,"Do you wish to see the System Status first? N// ",X:DTIME
- +2 IF X?1"Y".E!(X?1"y".E)!(X?1"?".E)
- DO ^AUCLS
- DO ^%SS
- +3 IF X="^"
- QUIT
- +4 DO ^AZZMJOB1
- SET X="^"
- SET AZZMJ("KILL")=""
- +5 QUIT
- NONE ;
- +1 WRITE !!!!?32,"* * *"
- +2 WRITE !!!?5,"The IHS Kernel is not aware of any user on the system at this time."
- +3 WRITE !!?19,"(There may be users in programmer mode.)",!!!?32,"* * *"
- +4 DO PROMPT
- +5 ;R !!!!?23,"Press <return> to continue. ",X:DTIME
- +6 GOTO EXIT
