Routine: XWBTCPM

Package	Total	Call Graph
Kernel	10	^%ZIS LISTEN^%ZISTCP (CLOSE,SAVDEV,USE)^%ZISUTL ($$EC,$$GETPEER,$$LGR,GETENV,LOGRSRC,SETNM)^%ZOSV ^%ZTER $$DT^XLFDT $$BAT^XUPARAM KILL^XUSCLEAN (,COUNT,SETLOCK)^XUSCNT LOGOUT^XUSRB
RPC Broker	7	(LOG,LOGSTART)^XWBDLOG $$RTRNFMT^XWBLIB ($$PRSM,$$PRSP,CALLP)^XWBPRS ($$BREAD,ESND,QSND,SND)^XWBRW OLD^XWBTCPM1 OTH^XWBTCPM2 SPAWN^XWBVLL
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
RPC Broker	4	XWBPRS XWBTCPM1 XWBTCPM2 XWBTCPMT
Kernel	2	XUSBSE2 XUSRB

Entry Points

Name	Comments	DBIA/ICR reference
BREAD(L,T)	;read tcp buffer, L is length
TIMEOUT	;Do this on MAIN loop timeout
NEW	;New broker
SERV	;Callback from the server
CACHEVMS	;Cache'/VMS tcpip entry point, called from XWBTCP_START.COM file
M2M	;M2M Broker
INIT	;Setup
NT	;entry from ZISTCPS
ETRAP(EXIT)	; -- on trapped error, send error info to client
STYPE(X,WRAP)	;For backward compatability only
GTMUCX(%)	;From ucx ZFOO
DSM	;DSM called from ucx, % passed in with device.
DEBUG	;Entry point for debug, Build a server to get the connect
LOG(MSG)	;Record Debug Info
OS()	;Return the OS
SETTIME(%)	;Set the Read timeout 0=RPC, 1=sign-on ; Increased timeout period (%=1) during signon from 90 to 180 for accessibility reasons
CHPRN(N)	;change process name
ESET	;Set inital error trap
GTMLNX	;From Linux xinetd script
CLEANP	;Clean up the partion
CONNTYPE	;
EXIT	;Close out
NEWJOB()	;Check if OK to start a new job, Return 1 if OK, 0 if not OK.
MAIN	; -- main message processing loop. debug at MAIN+1
RESTART	;The error trap returns to here

External References

Name	Field # of Occurrence
^%ZIS	NEW+29
LISTEN^%ZISTCP	DEBUG+8
CLOSE^%ZISUTL	RESTART+11
SAVDEV^%ZISUTL	NEW+30
USE^%ZISUTL	RESTART+11
$$EC^%ZOSV	ETRAP+4
$$GETPEER^%ZOSV	NEW+10
$$LGR^%ZOSV	ETRAP+4
GETENV^%ZOSV	NEWJOB+2
LOGRSRC^%ZOSV	NEW+19, RESTART+10
SETNM^%ZOSV	CHPRN+2
^%ZTER	ETRAP+6
$$DT^XLFDT	RESTART+2
$$GET^XPAR	INIT+2
$$BAT^XUPARAM	SETTIME+2
KILL^XUSCLEAN	CLEANP+1
^XUSCNT	INIT+4
COUNT^XUSCNT	NEW+23, EXIT+2
SETLOCK^XUSCNT	NEW+23
LOGOUT^XUSRB	EXIT+1
LOG^XWBDLOG	LOG+1
LOGSTART^XWBDLOG	INIT+5
$$RTRNFMT^XWBLIB	STYPE+1, STYPE+2
$$PRSM^XWBPRS	NEW+6
$$PRSP^XWBPRS	NEW+5
CALLP^XWBPRS	MAIN+14
$$BREAD^XWBRW	CONNTYPE+5, MAIN+6, MAIN+8, BREAD+1, SERV+2
ESND^XWBRW	ETRAP+13
QSND^XWBRW	NEW+14, NEW+15, MAIN+10, MAIN+16, TIMEOUT+1
SND^XWBRW	MAIN+21, TIMEOUT+4
OLD^XWBTCPM1	CONNTYPE+8
OTH^XWBTCPM2	CONNTYPE+10, CONNTYPE+11
SPAWN^XWBVLL	M2M+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Before running this entry point set your debugger to stop at" Line Location: DEBUG+2
Function Call: WRITE	Prompt: !,"the place you want to debug. Some spots to use:" Line Location: DEBUG+3
Function Call: WRITE	Prompt: !,"'SERV+1^XWBTCPM', 'MAIN+1^XWBTCPM' or 'CAPI+1^XWBPRS.'",! Line Location: DEBUG+4
Function Call: WRITE	Prompt: !,"or location of your choice.",! Line Location: DEBUG+5
Function Call: READ	Timeout: 300,! Variable: SOCK Line Location: DEBUG+6
Function Call: WRITE	Prompt: !,"Done" Line Location: DEBUG+9
Routine Call	%ZIS Line Location: NEW+29

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(14.5 - [#14.5]	NEWJOB+4
^%ZOSF("ACTJ"	NEWJOB+5
^%ZOSF("OS"	OS+1
^XTV(8989.3 - [#8989.3]	NEWJOB+3
^XUTL("XUSYS"	NEW+22, ETRAP+10

Label References

Name	Line Occurrences
$$NEWJOB	NEW+13
$$OS	INIT+1
CHPRN	NEW+32
CONNTYPE	DSM+6, CACHEVMS+6, NT+4, GTMUCX+6, GTMLNX+6
ESET	DSM+1, CACHEVMS+1, NT+2, GTMUCX+2, GTMLNX+1
EXIT	NEW+29, RESTART+7, ETRAP+8, ETRAP+14
INIT	CONNTYPE+4, SERV+1
LOG	CONNTYPE+6, CONNTYPE+11, NEW+13, NEW+14, NEW+15, NEW+29, RESTART+4, MAIN+7, MAIN+10, MAIN+13 , MAIN+16, ETRAP+7
M2M	CONNTYPE+9
MAIN	RESTART+3
NEW	CONNTYPE+7, SERV+3
SETTIME	NEW+2

Naked Globals

Name	Field # of Occurrence
^("ACTJ"	NEWJOB+5
^("OS"	OS+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DSM+3, GTMUCX~, GTMUCX+5, GTMLNX+5*, SETTIME~, SETTIME+2
>> %ZIS	NEW+29*
CON	NEW+25!
DT	RESTART+2*
DTIME	RESTART+2*
DUZ	NEW+1*, TIMEOUT+1, EXIT+1
DUZ(0	NEW+1*
ERR	NEW+4~, NEW+5, NEW+6
EXIT	ETRAP~, ETRAP+14
I	NEW+4~, NEW+8*
IO	NT+3, M2M+1*, NEW+29, SERV+1
IO("C"	SERV+4*
IO("GTM-IP"	GTMLNX+5*
IO("IP"	NEW+16*, NEW+17
IO(0	M2M+1*
>> IOP	NEW+29*
J	NEWJOB+1~, NEWJOB+3*, NEWJOB+5
L	BREAD~, BREAD+1
LEN	NEW+25!
MSG	NEW+7, NEW+8, NEW+10, NEW+11, NEW+14, NEW+16, NEW+25!, SERV+2, LOG~, LOG+1
N	CHPRN~, CHPRN+2
NATIP	NEW+4~, NEW+10*, NEW+11
>> POP	NEW+29
SOCK	CONNTYPE+3~, RESTART+13!, DEBUG+6*, DEBUG+8
T	BREAD~, BREAD+1
TYPE	CONNTYPE+3~, RESTART+13!, MAIN+12*, MAIN+13
U	ESET+1, NEWJOB+5, NEW+1, NEW+8, NEW+14, NEW+16, INIT+1*
WRAP	STYPE~, STYPE+1
X	ESET+2, NEWJOB+1~, NEWJOB+3, NEW+13, NEW+14, NEW+22, NEW+23, STYPE~, STYPE+1, STYPE+2
>> XR	MAIN+6, MAIN+7, MAIN+8, MAIN+9, MAIN+12, MAIN+13
XWB	CONNTYPE+5*, CONNTYPE+6, CONNTYPE+7, CONNTYPE+8, CONNTYPE+9, CONNTYPE+11, M2M+1, NEW+4~, NEW+25!
XWB(4	NEW+7
XWB(5	NEW+8
XWBAPVER	CONNTYPE+1~, MAIN+3*
XWBARY	RESTART+8!, MAIN+4!
XWBCLMAN	CONNTYPE+1~, NEW+16*
XWBDEBUG	CONNTYPE+1~, MAIN+14, INIT+1, INIT+2, SERV+2*, LOG+1
XWBENVL	CONNTYPE+1~
XWBERC	ETRAP+1~, ETRAP+4*, ETRAP+7, ETRAP+8
XWBERR	ETRAP+1~, ETRAP+4, ETRAP+5, ETRAP+13
>> XWBERROR	NEW+29, ETRAP+5
XWBLOG	CONNTYPE+1~
XWBNULL	NEW+29*, CLEANP+1~
XWBOS	CONNTYPE+1~, INIT+1*, INIT+3, INIT+4
XWBPRT	MAIN+4!, MAIN+21
XWBPTYPE	CONNTYPE+1~, MAIN+19, TIMEOUT+3
XWBR	RESTART+8!, MAIN+4!, MAIN+14
XWBR(0	TIMEOUT+3*
XWBR(1	TIMEOUT+3*
XWBR(2	TIMEOUT+3*
XWBR(3	TIMEOUT+3*
XWBRBUF	M2M+1, RESTART+13!, MAIN+3, INIT+1*
>> XWBSEC	ETRAP+5*
XWBSHARE	CONNTYPE+2~
XWBSND	RESTART+13!
XWBT	CONNTYPE+2~
XWBT("BF"	INIT+3*
XWBT("PCNT"	NEW+21, ETRAP+10, INIT+4*, EXIT+2
XWBTBUF	CONNTYPE+2~, RESTART+4, MAIN+1, MAIN+3, MAIN+7, MAIN+10, MAIN+16
>> XWBTCMD	MAIN+3*, MAIN+15, MAIN+16
XWBTDEV	DSM+3, DSM+5, CACHEVMS+2, CACHEVMS+4, NT+3, GTMUCX+5, GTMLNX+4, M2M+1, NEW+3, NEW+27 , NEW+32, RESTART+3, MAIN+18, ETRAP+9, CLEANP+1~, SERV+1
>> XWBTIME	CONNTYPE+5, MAIN+6, MAIN+7, SETTIME+2, INIT+1
>> XWBTIME(1	SETTIME+2, SERV+1
XWBTIP	CONNTYPE+2~, NEW+17*, NEW+32
XWBTSKT	CONNTYPE+2~, NEW+16*
XWBTYPE	RESTART+13!
XWBVER	CONNTYPE+2~, NEW+1*, SETTIME+2
XWBVOL	NEWJOB+1~, NEWJOB+2*, NEWJOB+3, NEWJOB+4
XWBWRAP	CONNTYPE+2~
Y	NEWJOB+1~, NEWJOB+2, NEWJOB+5

Marked Items

Name	Field # of Occurrence
$T(OTH^XWBTCPM2	CONNTYPE+10, CONNTYPE+11
$T(^XUSCNT	INIT+4

Customize PDF page

Package: RPC Broker

Routine: XWBTCPM

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items