Routine: XWBTCPM

Information

XWBTCPM ;ISF/RWF - BROKER TCP/IP PROCESS HANDLER ;05/27/15 14:40

Source file <XWBTCPM.m>

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

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	Variable: SOCK Timeout: 300,! Line Location: DEBUG+6
Function Call: WRITE	Prompt: !,"Done" Line Location: DEBUG+9