Routine: XOBUZAP

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

Name

Comments

DBIA/ICR reference

; -- Interactive and main entry point for XOBU TERMINATE JOBS tool

;

; -- 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 code

; -- exit code

; -- expand code

; -- 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