Routine: XWBTCPM1

Call Graph

Package	Total	Call Graph
RPC Broker	6	LOG^XWBDLOG ($$BREAD,QSND)^XWBRW MARKER^XWBTCP EN^XWBTCPC ($$SEMAPHOR,UPDTREC)^XWBTCPL $$NEWJOB^XWBTCPM
Kernel	2	LISTEN^%ZISTCPS ($$GETPEER,GETENV)^%ZOSV

Package	Total	Caller Graph
RPC Broker	2	XWBTCP XWBTCPM

Name	Comments	DBIA/ICR reference
QSND(H)	;Quick send
BREAD(L,TO)	;Buffer read
READCONN	;Read the rest of the connect message
STAT(P)	;Check if should stop.
ZISTCP(XWBTSKT)	;Start ZISTCPS listener
OLD	;Call the old style broker
NODE(P)	;Get Listener node, XWBENV must be set first
LOG(H)	;

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.7 - [#14.7]	NODE+4
^XWB(8994.1 - [#8994.1]	NODE+5, NODE+6, NODE+7

Name	Line Occurrences
$$BREAD	READCONN+2, READCONN+4, READCONN+5, READCONN+6, READCONN+7, READCONN+8
$$NODE	STAT+3
LOG	OLD+11, OLD+14, READCONN+2, READCONN+9
QSND	OLD+11, OLD+14
READCONN	OLD+4

Name	Field # of Occurrence
>> %	ZISTCP+10*
%T	OLD+7~*
BV	NODE+1~, NODE+3*, NODE+4
CON	READCONN+1~, READCONN+2*, READCONN+3, READCONN+8
DZ	OLD+7~*, OLD+15
H	QSND~, QSND+1, LOG~, LOG+1
>> IX1	NODE+4, NODE+5, NODE+6, NODE+7
>> IX2	NODE+6*, NODE+7
L	BREAD~, BREAD+2
LEN	READCONN+1~, READCONN+6, READCONN+7, READCONN+8
>> MSG	OLD+6, OLD+9, OLD+10, OLD+15, READCONN+7, READCONN+8*, READCONN+9
MSG2	READCONN+1~, READCONN+8*
NATIP	OLD+7~, OLD+9*, OLD+10
P	NODE~, NODE+6, STAT~, STAT+3
TO	BREAD~, BREAD+1
VL	READCONN+1~, READCONN+4*, READCONN+5
X	READCONN+8, NODE+1~, NODE+7, NODE+8, STAT+2~, STAT+3*, STAT+4
>> XWBDEBUG	LOG+1
XWBENV	ZISTCP+2~, ZISTCP+3, NODE+2, NODE+3
XWBTCNT	OLD+2~, OLD+3*
>> XWBTIME	READCONN+2
>> XWBTIME(1	BREAD+1*
XWBTSKT	ZISTCP~, ZISTCP+4, ZISTCP+5, ZISTCP+6, ZISTCP+8, ZISTCP+10, ZISTCP+11
>> XWBVER	OLD+15, READCONN+5, READCONN+8
XWBVOL	ZISTCP+2~, ZISTCP+3*
Y	ZISTCP+2~, ZISTCP+3, NODE+1~, NODE+2
>> ZISQUIT	STAT+4*