Routine: XWBTCP

Information

XWBTCP ;ISC-SF/EG - Control TCP listener ;07/08/2004 16:11

Source Information

Source file <XWBTCP.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL LIST^DIC FILE^DIE FDA^DILF $$GET1^DIQ
Kernel	4	HOME^%ZIS (CALL,CLOSE)^%ZISTCP GETENV^%ZOSV ^%ZTLOAD
RPC Broker	3	EN^XWBTCPC $$SEMAPHOR^XWBTCPL $$NODE^XWBTCPM1
Toolkit	1	EDITPAR^XPAREDIT

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
RPC Broker	6	XWB DEBUG EDIT XWB LISTENER STARTER XWB LISTENER STOP ALL XWBTCPL XWBTCPM1 XWBTEST

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- entry point for interactive use
MARKER(PORT,MODE)	;Set/Test/Clear Problem Marker, Mode=0 is a function
STATCHG(DA,ACTION)	;STATUS field X-ref SET logic
STRT(XWBTSKT)	;start TCP Listener. Interactive entry point
STRTALL	;XWB LISTENER STARTER option entry point
STATSCRN(XWBNEW)	;Port STATUS field screen
STOP(XWBTSKT)	;stop TCP Listener. Interactive and TaskMan entry point
RESTART	;Stop and then Start all listeners.	ICR #4645 Status: Active Usage: Private
DEBUG	;Edit the debug parameter
STOPALL	;XWB LISTENER STOP ALL entry point	ICR #4645 Status: Active Usage: Private

External References

Name	Field # of Occurrence
HOME^%ZIS	STRT+2, STOP+2
CALL^%ZISTCP	STOP+22
CLOSE^%ZISTCP	STOP+32
GETENV^%ZOSV	STATCHG+18, STOP+2
^%ZTLOAD	STATCHG+27
EN^DDIOL	STATCHG+26, STATCHG+28, STOP+3, STOP+13, STOP+17, STOP+24, STOP+33, STOP+34
LIST^DIC	STRTALL+13, STRTALL+18, STOPALL+13, STOPALL+18
FILE^DIE	STATCHG+31
FDA^DILF	STATCHG+30
$$GET1^DIQ	STATSCRN+8, STATCHG+12, STATCHG+13, STATCHG+14
EDITPAR^XPAREDIT	DEBUG+2
EN^XWBTCPC	EN+8
$$SEMAPHOR^XWBTCPL	STRT+9, STRT+10, STOP+11, STOP+12, STOP+23
$$NODE^XWBTCPM1	STOP+15

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: 300 Variable: X1 Line Location: EN+4
Function Call: READ	Timeout: 300 Variable: X2 Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: "Start TCP Listener...",! Line Location: STRT+3
Function Call: WRITE	Prompt: "TCP Listener on port "_XWBTSKT_" appears to be running already.",! Line Location: STRT+9
Function Call: WRITE	Prompt: "Unable to run TCP Listener in background.",! Line Location: STRT+15
Function Call: WRITE	Prompt: "Checking if TCP Listener has started...",! Line Location: STRT+17
Function Call: WRITE	Prompt: !,"TCP Listener could not be started!",! Line Location: STRT+21
Function Call: WRITE	Prompt: "Check if port "_XWBTSKT_" is busy on this CPU.",! Line Location: STRT+22
Function Call: WRITE	Prompt: "TCP Listener started successfully." Line Location: STRT+24
Function Call: WRITE	Prompt: "{XWB}00020\|"_X_"00011TCPshutdown",! Line Location: STOP+30
Function Call: WRITE	Prompt: !! Line Location: DEBUG+1
Function Call: WRITE	Prompt: !! Line Location: DEBUG+3
Routine Call	DIC Line Location: STRTALL+13 STRTALL+18 STOPALL+13 STOPALL+18
Routine Call	%ZIS Line Location: STRT+2 STOP+2
Routine Call	DIE Line Location: STATCHG+31

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
8994.17	GET1^DIQ, LIST^DIC
8994.171	FDA^DILF, GET1^DIQ, LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	STOP+8
^%ZOSF("UCI"	STRT+4, MARKER+1, STOP+4
^XWB(	MARKER+2, MARKER+3*, MARKER+4, MARKER+5!, MARKER+6

Label References

Name	Line Occurrences
$$MARKER	STRT+19, STRT+20
MARKER	STRT+12, STRT+23
STATCHG	STRTALL+22, STOPALL+22
STOPALL	RESTART+1
STRTALL	RESTART+1

Naked Globals

Name	Field # of Occurrence
^("OS"	STOP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	STRT+1~, STRT+10, STRT+16, STRT+19, MARKER+1~, MARKER+4, MARKER+7, STOP+12, STOP+23*
ACTION	STATCHG~, STATCHG+11, STATCHG+20, STATCHG+30
C	STATSCRN+6~, STATSCRN+7, STATSCRN+8, STATCHG+8~, STATCHG+9, STATCHG+12, STATCHG+13, STATCHG+14, STATCHG+30
DA	STATSCRN+8, STATCHG~, STATCHG+13, STATCHG+14, STATCHG+30
DA(1	STATSCRN+8, STATCHG+12, STATCHG+13, STATCHG+14, STATCHG+30
DA(2	STATSCRN+8, STATCHG+12, STATCHG+13, STATCHG+14, STATCHG+30
DEV	STOP+1~
E	STRTALL+3~, STRTALL+8, STRTALL+13, STRTALL+18, STOPALL+3~, STOPALL+8, STOPALL+13, STOPALL+18
IO	STOP+25
IO("IP"	EN+3
IP	STRT+1~, STRT+5, MARKER+1~, MARKER+2, MARKER+3, MARKER+4, MARKER+5, MARKER+6, STOP+1~, STOP+5*
LSTN	STRTALL+3~, STOPALL+3~
LSTN("LSTNR"	STRTALL+13, STRTALL+15, STRTALL+16, STOPALL+13, STOPALL+15, STOPALL+16
LSTN("PORT"	STRTALL+18, STRTALL+20, STRTALL+21, STOPALL+18, STOPALL+20, STOPALL+21
LSTNID	STRTALL+3~, STRTALL+14, STRTALL+15, STRTALL+16, STOPALL+3~, STOPALL+14, STOPALL+15, STOPALL+16
LSTNIENS	STRTALL+3~, STRTALL+17, STRTALL+18, STOPALL+3~, STOPALL+17, STOPALL+18
MODE	MARKER~, MARKER+3, MARKER+4, MARKER+5, MARKER+7
>> POP	STOP+22
PORT	MARKER~
PORTID	STRTALL+3~, STRTALL+19, STRTALL+20, STRTALL+21, STOPALL+3~, STOPALL+19, STOPALL+20, STOPALL+21
REF	STRT+1~, STRT+4, MARKER+1~, MARKER+2, MARKER+3, MARKER+4, MARKER+5, MARKER+6, STOP+1~, STOP+4*
RESULT	STATSCRN+6~, STATSCRN+9, STATSCRN+10, STATSCRN+11, STATSCRN+14, STATSCRN+15*, STATSCRN+16
TYPE	STATCHG+8~, STATCHG+14*, STATCHG+22
U	STATCHG+19, STRT+2, STRTALL+21, STOPALL+21, STOP+2
X	STOP+1~, STOP+15, STOP+16, STOP+27, STOP+28, STOP+29, STOP+30, STOP+31*, STOP+33
X1	EN+1~, EN+4, EN+7, EN+8
X2	EN+1~, EN+5*, EN+8
XWBCUR	STATSCRN+6~, STATSCRN+8*, STATSCRN+10, STATSCRN+11, STATSCRN+14, STATSCRN+15
XWBDA	STRTALL+3~, STRTALL+21, STRTALL+22, STOPALL+3~, STOPALL+21, STOPALL+22
XWBDA(1	STRTALL+16, STRTALL+17, STOPALL+16, STOPALL+17
XWBDA(2	STRTALL+9, STRTALL+17, STOPALL+9, STOPALL+17
XWBENV	STOP+1~, STOP+2*
XWBFDA	STATCHG+8~
XWBIP	EN+1~, EN+2, EN+3, EN+4, EN+7, STOP+1~, STOP+21*
XWBNEW	STATSCRN~, STATSCRN+10, STATSCRN+11, STATSCRN+14, STATSCRN+15
XWBOS	STOP+1~, STOP+8*
XWBPORT	STATCHG+8~, STATCHG+13*, STATCHG+21, STATCHG+22, STATCHG+24, STATCHG+25
XWBSCR	STRTALL+3~, STRTALL+11, STRTALL+18, STOPALL+3~, STOPALL+11, STOPALL+18
XWBTDBG	EN+1~, EN+6*
XWBTSKT	STRT~, STRT+6, STRT+9, STRT+10, STRT+12, STRT+19, STRT+20, STRT+22, STRT+23, MARKER+2 , MARKER+3, MARKER+4, MARKER+5, MARKER+6, STOP~, STOP+6, STOP+11, STOP+12, STOP+15, STOP+22 , STOP+23
Y	STATCHG+19, STRT+1~, STRT+4, MARKER+1~, STOP+2, STOP+4
ZTCPU	STATCHG+8~, STATCHG+12*, STATCHG+21, STATCHG+24
>> ZTDESC	STATCHG+21, STATCHG+24, STATCHG+26
>> ZTDTH	STATCHG+19*
>> ZTIO	STATCHG+19*
>> ZTREQ	STATCHG+19*
>> ZTRTN	STATCHG+22, STATCHG+25
>> ZTSK	STATCHG+28
>> ZTUCI	STATCHG+19*, STATCHG+21, STATCHG+24

Customize PDF page

Package: RPC Broker

Routine: XWBTCP

Call Graph Total: 13

Caller Graph Total: 6