Routine: %ZISTCP

Information

%ZISTCP ;ISC/RWF,ISD/HGW - DEVICE HANDLER TCP/IP CALLS ;07/11/14 11:37

Source file <ZISTCP.m>

Name	Comments	DBIA/ICR reference
CALL(IP,SOCK,TO)	;Open a socket to the IP address <procedure>	ICR #2118 Status: Active Usage: Supported
CVXD	;Open VAX DSM Socket
CMSM	;Open MSM Socket
CONT	;Open OpenM socket
CGTM	;Open GT.M Socket
VAR(%IO)	;Setup IO variables
NOOPN	;Didn't make the conection
OPNERR	;
UCXOPEN(NIO)	;This call only applies to SERVER jobs tied to UCX/VMS
CLOSE	;Close and reset	ICR #2118 Status: Active Usage: Supported
CLOSEX
ERRCLR	;
FLUSHCHR()	;Return the value to write @ of to flush the TCP buffer
LISTEN(SOCK,RTN,ZRULE)	;Listen on socket, run routine, single thread.
LOOP
LMSM	;MSM
LONT	;Open port in Accept mode with standard terminators, standard buffers.
LVXD	;Open port and listen
LGTM	;GT.M single thread server
GTMERR	;The use will set this as a place to go on a IO error
EXIT()	;See if time to exit
LAUNCH(IO,RTN)	;Run job for this connection.
LOG(MSG)	;LOG STATUS

Name	Line Occurrences
Function Call: WRITE	Prompt: /SOCKET(IP,SOCK) Line Location: CMSM+2
Function Call: WRITE	Prompt: 1/0 Line Location: CGTM+6
Function Call: WRITE	Prompt: @IOF. Line Location: VAR+3
Function Call: WRITE	Prompt: /SOCKET("",SOCK) Line Location: LMSM+4
Function Call: READ	Variable: *NEWCHAR Timeout: 60 Line Location: LONT+7
Function Call: WRITE	Prompt: /LISTEN(1) Line Location: LGTM+10
Function Call: WRITE	Prompt: /WAIT(30) Line Location: LGTM+13