Routine: XUSCNT

Information

XUSCNT ;ISF/RWF - Job counting for GTM ;6/24/04 15:22

Source file <XUSCNT.m>

Package	Total	Caller Graph
Kernel	8	%ZTM %ZTM0 %ZTM5 %ZTMS %ZTMS1 %ZTMS3 XU PROC CNT CLUP ZUGTM
RPC Broker	2	XWBTCPM XWBTCPMT
MailMan	1	XMRUCX

Name	Comments	DBIA/ICR reference
GETLOCK()	;Get the node to Lock
SETLOCK(NLK)	;Set the Lock we will keep
XREF(X1,V)	;V="S" or "K"
CHECK(JOB)	;Check if job number active ; 0 = Job doesn't seem to be running ; 1 = Job maybe running ; 2 = Job still has Lock out.
CLEAR(DB)	;Check for locks and time clear old ones.
TOUCH	;Update the time	ICR #4467 Status: Active Usage: Controlled Subscription
H3(%H)	;Just seconds
COUNT(INC,JOB)	;Keep count of jobs	ICR #4467 Status: Active Usage: Controlled Subscription

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Current Job Count: ",$$COUNT(0) Line Location: CLEAR+6
Function Call: WRITE	Prompt: !,CNT," Job: ",%J Line Location: CLEAR+9
Function Call: WRITE	Prompt: " Lock Held" Line Location: CLEAR+13
Function Call: WRITE	Prompt: " Lock Fail" Line Location: CLEAR+14
Function Call: WRITE	Prompt: " Current TimeStamp" Line Location: CLEAR+20
Function Call: WRITE	Prompt: " Running Task" Line Location: CLEAR+24
Function Call: WRITE	Prompt: " Not Active: Removed" Line Location: CLEAR+27
Function Call: WRITE	Prompt: !,"New JOB count: ",CNT Line Location: CLEAR+33

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	CLEAR+23
^TMP($J	CLEAR+1!, CLEAR+15
^XTV(8989.3 - [#8989.3]	XREF+2, XREF+3!, XREF+4*
^XUTL("XUSYS"	COUNT+4, COUNT+7!, COUNT+9, COUNT+10, COUNT+11, COUNT+15, COUNT+16, COUNT+17, COUNT+18!, CHECK+5 , SETLOCK+1, SETLOCK+2!, TOUCH+1, GETLOCK+1, CLEAR+7, CLEAR+10, CLEAR+18, CLEAR+21, CLEAR+29, CLEAR+30 , CLEAR+31, CLEAR+32

Name	Field # of Occurrence
%	CLEAR+22, CLEAR+23, CLEAR+24, XREF+1~, XREF+2, XREF+4
%H	H3~, H3+1
%J	CLEAR+1~, CLEAR+5, CLEAR+7, CLEAR+9, CLEAR+10, CLEAR+15, CLEAR+18, CLEAR+21, CLEAR+27, CLEAR+30*
%T	CHECK+6~, CHECK+7, CHECK+8, CHECK+9, CLEAR+1~, CLEAR+12*, CLEAR+13, CLEAR+14
CNT	CLEAR+1~, CLEAR+5, CLEAR+8, CLEAR+9, CLEAR+30*, CLEAR+31, CLEAR+33
CT	CLEAR+1~, CLEAR+5*, CLEAR+19
DB	CLEAR~, CLEAR+4*, CLEAR+6, CLEAR+9, CLEAR+11, CLEAR+13, CLEAR+14, CLEAR+16, CLEAR+17, CLEAR+20 , CLEAR+24, CLEAR+27, CLEAR+33
H	CLEAR+1~, CLEAR+5, CLEAR+18, CLEAR+19
IM	CLEAR+1~, CLEAR+15*, CLEAR+16, CLEAR+17
IMAGE	CLEAR+1~, CLEAR+4*, CLEAR+16
INC	COUNT~, COUNT+4, COUNT+6, COUNT+14
JOB	COUNT~, COUNT+2*, COUNT+7, COUNT+18, CHECK~, CHECK+4, CHECK+5
LK	CHECK+6~, CHECK+7, CHECK+8, CLEAR+1~, CLEAR+10, CLEAR+11, CLEAR+12
N	XREF+1~, XREF+2*, XREF+3, XREF+4
NLK	SETLOCK~, SETLOCK+1
>> NM	CLEAR+21*, CLEAR+22
>> TM	CLEAR+22*, CLEAR+23
>> TM(1	CLEAR+23*
V	XREF~, XREF+3
X	COUNT+1~, COUNT+7*
X1	XREF~, XREF+2
XUCNT	COUNT+1~, COUNT+10, COUNT+16