Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
446 bytes
|
Line | |
---|
1 | XMRMSM ;(WASH ISC)/CAP-MSM TCP/IP Front End ;04/30/2002 07:24
|
---|
2 | ;;8.0;MailMan;**27**;Jun 28, 2002
|
---|
3 | Q
|
---|
4 | ;%=socket number
|
---|
5 | SOC25 ;
|
---|
6 | N DIQUIET
|
---|
7 | S XMRPORT=$G(%),IOT="TCP",(IO,IO(0))=56,DIQUIET=1
|
---|
8 | I $$NEWERR^%ZTER N $ETRAP,$ESTACK S $ETRAP="D TRP^XMCTRAP"
|
---|
9 | E S X="TRP^XMCTRAP",@^%ZOSF("TRAP")
|
---|
10 | D DT^DICRW,DUZ^XUP(.5)
|
---|
11 | S ER=0
|
---|
12 | U IO
|
---|
13 | S XMCHAN="TCP/IP-MAILMAN",XMNO220=""
|
---|
14 | D ENT^XMR
|
---|
15 | HALT ;Unlock all locks, disconnect the connection and quit
|
---|
16 | G ^XUSCLEAN
|
---|
Note:
See
TracBrowser
for help on using the repository browser.