Name	Value
NAME	TCPCHAN-SOCKET25/GTM
TEXT	X L +^XMBX("TCPCHAN",XMHOST):99 E S ER=1,XMER="CHANNEL IN USE" X S X="ERRSCRPT^XMRTCP",@^%ZOSF("TRAP") X S XMRPORT=$G(XMRPORT,25) X D CALL^%ZISTCP(XMHOST,XMRPORT) I POP S ER=1 L -^XMBX("TCPCHAN",XMHOST) X S XMHANG="D CLOSE^%ZISTCP" X U IO:(DELIMITER=$C(13)) L 220 MAIL X L -^XMBX("TCPHAN",XMHOST) K XMSIO
DESCRIPTION	This is the transmission script used to contact other MailMan systems across an X.25 channel.

Name

Value

NAME

TCPCHAN-SOCKET25/GTM

TEXT

X L +^XMBX("TCPCHAN",XMHOST):99 E  S ER=1,XMER="CHANNEL IN USE"
X S X="ERRSCRPT^XMRTCP",@^%ZOSF("TRAP")
X S XMRPORT=$G(XMRPORT,25)
X D CALL^%ZISTCP(XMHOST,XMRPORT) I POP S ER=1 L -^XMBX("TCPCHAN",XMHOST)
X S XMHANG="D CLOSE^%ZISTCP"
X U IO:(DELIMITER=$C(13))
L 220
MAIL
X L -^XMBX("TCPHAN",XMHOST) K XMSIO

DESCRIPTION

This is the transmission script used to contact other MailMan
systems across an X.25 channel.

TCPCHAN-SOCKET25/GTM (37) TRANSMISSION SCRIPT (4.6)