Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XOBUZAP

Package: Foundations

Routine: XOBUZAP


Information

XOBUZAP ;; mjk/alb - Terminate Jobs Utility ; 08/4/2005 13:00

Source Information

Source file <XOBUZAP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
List Manager 4 EN^VALM  ($$SETFLD,FULL,PAUSE)^VALM1  (FLDTEXT,KILL,SELECT,SET)^VALM10  EN^VALM2  
Kernel 3 GETENV^%ZOSV  DISP^XQORM1  $$CPCHK^XUSAP  
Foundations 1 ($$GETDUZ,$$GETIP,$$GETREF,$$GETSTATE)^XOBUZAP0  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Foundations 7 XOBU TERMINATE A JOB  XOBU TERMINATE ALL JOBS  XOBU TERMINATE JOBS REFRESH  XOBU TERMINATE JOBS UTILITY  XOBU TERMINATE SYSTEM STATUS  XOBUZAP0  XOBUZAP1  

Entry Points

Name Comments DBIA/ICR reference
EN(XOBSEL) ; -- Interactive and main entry point for XOBU TERMINATE JOBS tool
ENQ ;
ZAP(XOBSEL) ; -- Non-interactive entry point for XOBU TERMINATE JOBS tool
; API terminates all jobs that job selection criteria
;
; Input: XOBSEL array that specifies selection criteria (See above EN tag for information)
ZAPQ ;
HDR ; -- header code
INIT ; -- init variables and list array
BUILD ; -- build list based on job selection criteria (XOBSEL)
BUILDQ ;
KILL ; -- kill off list location
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
MSG ; -- set default message
CPMSG() ; -- connection proxy user message
REFRESH ; -- refresh display
; -- Protocol: XOBU TERMINATE JOBS REFRESH
SS ; -- display M os system status
; -- Protocol: XOBU TERMINATE SYSTEM STATUS
TERMALL ; -- terminate all pid/job
; -- Protocol: XOBU TERMINATE ALL JOBS
TERMALLQ ;
TERMPID ; -- terminate pid/job
; -- Protocol: XOBU TERMINATE A JOB
TERMONE(XOBPID,XOBI) ; -- zap one pid and update display
ASK(PROMPT) ; -- ask if user is sure
RESULT(RESULT) ; -- return result text
; -- Note: Code number conversions found in RESJOB routine in %SYS namespace
VERSEL(XOBSEL) ; -- every job selection criteria
VERSELQ ;
GETJOBS(XOBJOBS) ; -- build XOBJOBS()=pid information
CHECK(XOBSEL,XOBPID,XOBNS) ; -- check job info against selection criteria
; -- use if 1) in correct namespace [XOBNS],
; 2) in correct routine [XOBSEL("ROUTINE")] and
; 3) in correct process state [XOBSEL("STATE")]
JOBINFO(XOBPID,XOBJINFO,XOBSEL) ; -- get PID info
; -- In future (Cache v5+) use instance proprties of %SYSTEM.Process
TERMJOB(XOBPID) ; -- terminate pid/job
; -- In future (Cache v5+) use instance method %SYSTEM.Process.Terminate()
BOXVOL() ; -- cpu volume pair
CURNS() ; -- get current namespace
MUMPS() ; -- get MUMPS implementation
CACHE() ; -- is this a Cache implementation

External References

Name Field # of Occurrence
GETENV^%ZOSV BOXVOL+1
^DIR ASK+4
EN^VALM EN+13
$$SETFLD^VALM1 BUILD+19, BUILD+20, BUILD+21, BUILD+22
FULL^VALM1 SS+2
PAUSE^VALM1 SS+7, TERMPID+11
FLDTEXT^VALM10 TERMONE+7, TERMONE+13
KILL^VALM10 BUILD+3
SELECT^VALM10 TERMPID+9, TERMPID+17, TERMONE+9, TERMONE+15
SET^VALM10 BUILD+5, BUILD+6, BUILD+7, BUILD+23
EN^VALM2 TERMPID+3
$$GETDUZ^XOBUZAP0 JOBINFO+13
$$GETIP^XOBUZAP0 JOBINFO+18
$$GETREF^XOBUZAP0 JOBINFO+11
$$GETSTATE^XOBUZAP0 HDR+5
DISP^XQORM1 HELP+1
$$CPCHK^XUSAP JOBINFO+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^$JOB( GETJOBS+3
^%ZOSF("OS" MUMPS+1
^%ZOSF("SS" SS+3, SS+4
^ORD(101 - [#101] |ptcl
^TMP("XOB LISTENERS" |list
^TMP("XOB TERMINATE JOBS" BUILD+24*, KILL+1!, KILL+2!, TERMALL+5, TERMALL+6, TERMPID+7, TERMONE+17*, |list
^VA(200 - [#200] JOBINFO+14

Label References

Name Line Occurrences
$$ASK TERMALL+2, TERMPID+13
$$BOXVOL HDR+2
$$CACHE ZAP+11, BUILD+4
$$CHECK ZAP+21, BUILD+14, TERMONE+5
$$CPMSG INIT+3, REFRESH+3
$$CURNS ZAP+17, HDR+3, BUILD+9, TERMONE+5
$$MUMPS BUILD+7, CACHE+1
$$RESULT TERMONE+13
$$TERMJOB ZAP+22, TERMONE+11
$$VERSEL EN+9, ZAP+14
BUILD INIT+2, REFRESH+2
BUILDQ BUILD+4
ENQ EN+9
GETJOBS ZAP+16, BUILD+10
JOBINFO BUILD+16, CHECK+5
KILL BUILD+2
MSG TERMALL+8, TERMPID+14
REFRESH SS+8
TERMALLQ TERMALL+2
TERMONE TERMALL+7, TERMPID+14
VERSELQ VERSEL+2
ZAPQ ZAP+11, ZAP+14

Naked Globals

Name Field # of Occurrence
^("OS" MUMPS+1
^(24 |ptcl

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA |ptcl
>> DA(1 |ptcl
DIR ASK+1~
DIR("A" ASK+2*
DIR("B" ASK+3*
DIR(0 ASK+3*
>> IOINHI HDR+2, HDR+3, HDR+4, HDR+5
>> IOINORM HDR+2, HDR+3, HDR+4, HDR+5
>> IOUOFF HDR+1
>> IOUON HDR+1
PROMPT ASK~, ASK+2
RESULT RESULT~, RESULT+2, RESULT+3, RESULT+4, RESULT+5, RESULT+6
U JOBINFO+14, BOXVOL+2
>> VALM("TITLE" INIT+1*
>> VALMBCK REFRESH+5*, TERMALLQ+1*, TERMPID+18*, |ptcl*
>> VALMCNT HDR+1, BUILD+8*, BUILD+11*, BUILD+17*, BUILD+19, BUILD+23, BUILD+24
VALMHDR REFRESH+4!
VALMHDR(1 HDR+1*
VALMHDR(2 HDR+2*
VALMHDR(3 HDR+3*
VALMHDR(4 HDR+4*
VALMHDR(5 HDR+5*
>> VALMSG INIT+3*, MSG+1*, REFRESH+3*
VALMY TERMPID+2~
VALMY("" TERMPID+4
>> X BUILD+18*, BUILD+19*, BUILD+20*, BUILD+21*, BUILD+22*, BUILD+23, HELP+1*
XOBCNS ZAP+9~, ZAP+17*, ZAP+21, BUILD+1~, BUILD+9*, BUILD+14
XOBCNT ZAP+9~, ZAP+11*, ZAP+14*, ZAP+18*, ZAP+23*, ZAPQ+1, GETJOBS+1~, GETJOBS+2*, GETJOBS+4*
XOBI TERMALL+3~, TERMALL+4*, TERMALL+5*, TERMALL+6, TERMALL+7, TERMPID+2~, TERMPID+4*, TERMPID+5, TERMPID+7, TERMPID+9
TERMPID+14, TERMPID+17, TERMONE~, TERMONE+7, TERMONE+9, TERMONE+13, TERMONE+15, TERMONE+17
XOBJINFO BUILD+15~, BUILD+16, CHECK+4~, CHECK+5, JOBINFO~
XOBJINFO("CLI ENT IP" , BUILD+21, JOBINFO+19*
XOBJINFO("CON NECTOR USER" , BUILD+22, JOBINFO+16*
XOBJINFO("DEVICE" BUILD+21, JOBINFO+5*
XOBJINFO("NAMESPACE" CHECK+6, JOBINFO+4*
XOBJINFO("OS USERNAME" , JOBINFO+6*
XOBJINFO("ROUTINE" CHECK+6, JOBINFO+3*
XOBJINFO("STATE" CHECK+6, JOBINFO+2*
XOBJINFO("VIS TA DUZ" , JOBINFO+13*, JOBINFO+14, JOBINFO+16, TA USER NAME" , BUILD+22, JOBINFO+15*
XOBJOBS ZAP+9~, ZAP+16, BUILD+1~, BUILD+10, GETJOBS~
XOBJOBS( ZAP+20, BUILD+13, GETJOBS+4*
XOBNS CHECK~, CHECK+6
XOBOK VERSEL+1~, VERSEL+2*, VERSEL+3*, VERSELQ+1
XOBPID ZAP+9~, ZAP+19*, ZAP+20*, ZAP+21, ZAP+22, BUILD+1~, BUILD+12*, BUILD+13*, BUILD+14, BUILD+16
BUILD+20, BUILD+24, TERMALL+3~, TERMALL+6*, TERMALL+7, TERMPID+2~, TERMPID+6~, TERMPID+7*, TERMPID+10, TERMPID+14
, TERMONE~, TERMONE+3, TERMONE+5, TERMONE+11, GETJOBS+1~, GETJOBS+2*, GETJOBS+3*, GETJOBS+4, CHECK~, CHECK+5
, JOBINFO~, JOBINFO+2, JOBINFO+3, JOBINFO+4, JOBINFO+5, JOBINFO+6, JOBINFO+11, TERMJOB~, TERMJOB+3
XOBREF JOBINFO+10~, JOBINFO+11*, JOBINFO+13, JOBINFO+18
XOBRES ZAP+22*, ZAP+23, TERMPID+2~, TERMONE+1~, TERMONE+11*, TERMONE+13
XOBSEL EN~, EN+9, ZAP~, ZAP+14, ZAP+21, BUILD+14, BUILD+16, TERMONE+5, VERSEL~, CHECK~
, CHECK+5, JOBINFO~
XOBSEL("ROUTINE" HDR+4, VERSEL+2, CHECK+6
XOBSEL("STATE" HDR+5, VERSEL+2, CHECK+6
XOBSEL("TITLE" INIT+1
XOBSEL("VISTA INFO REF" , JOBINFO+9, JOBINFO+11
XOBY JOBINFO+10~, JOBINFO+14*, JOBINFO+15, JOBINFO+18*, JOBINFO+19
>> XQORNOD(0 TERMPID+3
Y ASK+1~, ASK+5, BOXVOL+1~, BOXVOL+2, |inpt*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All