Routine: XOBUZAP

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

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
Kernel	1	^ORD(101

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
^TMP("XOB TERMINATE JOBS"	BUILD+24, KILL+1!, KILL+2!, TERMALL+5, TERMALL+6, TERMPID+7, TERMONE+17
^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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
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*
>> 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

Customize PDF page

Package: Foundations

Routine: XOBUZAP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: