Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
446 bytes
|
Rev | Line | |
---|
[613] | 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.