TCPCHAN-SOCKET25/DSM/VMS (29)    TRANSMISSION SCRIPT (4.6)

Name Value
NAME TCPCHAN-SOCKET25/DSM/VMS
TEXT
X L +^XMBX("TCPCHAN",XMHOST):99 E  S ER=1,XMER="CHANNEL IN USE"
X S IO=IO(0) X ^%ZOSF("EON")
X S X="ERRSCRPT^XMRTCP",@^%ZOSF("TRAP")
X S XMRPORT=25,XMSIO="XMRPORT:(TCPCHAN,ADDRESS=XMHOST):5"
X O @XMSIO E  S ER=1 L -^XMBX("TCPCHAN",XMHOST)
X U XMRPORT:NOECHO
X S XMHANG="C XMRPORT S IO="""",IOST(0)=0",IO=25
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.