TCPCHAN-SOCKET25/MSM/NT (35)    TRANSMISSION SCRIPT (4.6)

Name Value
NAME TCPCHAN-SOCKET25/MSM/NT
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=56 O 56::30 E  S ER=1 L -^XMBX("TCPCHAN",XMHOST)
X U 56::"TCP" W /SOCKET(XMHOST,25) S XMKEYTCP=$KEY
X I XMKEYTCP="" S ER=1 C 56 L  Q
X S XMHANG="S IOST(0)",IO=56,IOT="TCP",XMSTIME=30
MAIL
X L -^XMBX("TCPHAN",XMHOST) K XMSIO,XMKEYTCP
DESCRIPTION
This is the transmission script used to contact other MailMan
systems across an X.25 channel.