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.