| [613] | 1 | XMC11 ;(WASH ISC)/THM-DECNET Communications Protocol Tools ;04/17/2002 07:51
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | Q
|
|---|
| 4 | ;ENS and ENR are used by DECNET Communications Protocol in file 3.4
|
|---|
| 5 | ENS ;Send
|
|---|
| 6 | I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"S",XMSG)
|
|---|
| 7 | Q
|
|---|
| 8 | ENR ;Receive
|
|---|
| 9 | I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"R",XMRG)
|
|---|
| 10 | Q
|
|---|
| 11 | ; *** THE FOLLOWING ARE NOT USED ***
|
|---|
| 12 | IMM ;Immediate mode interpreter
|
|---|
| 13 | S XMC("SHOW TRAN")="RS"
|
|---|
| 14 | I $G(XMC("AUDIT")) K ^TMP("XMC",XMC("AUDIT")),XMC("AUDIT","I")
|
|---|
| 15 | F R !!,"Script command: ",X:DTIME Q:X="" D INT^XMC1(X,"you entered") U IO(0) W " ",$S(ER:"Failed",1:"OK")
|
|---|
| 16 | Q
|
|---|
| 17 | CHRS ;Christening operation
|
|---|
| 18 | N XMINST,XMSITE,DIC,X,Y,DIR
|
|---|
| 19 | I '$D(^XMB("NETNAME")) D Q
|
|---|
| 20 | . W !!,$C(7),"This domain is not yet christened. It cannot christen others"
|
|---|
| 21 | . W !,"until initialized and christened by a parent domain."
|
|---|
| 22 | W !!,"This process will create a new subordinate domain to this domain"
|
|---|
| 23 | W !,"and update network relationships both there and here, as well as"
|
|---|
| 24 | W !,"inform this domain's parent."
|
|---|
| 25 | W !!,"Do you really want to do this? NO// "
|
|---|
| 26 | R X:DTIME Q:"Yy"'[$S($L(X):$E(X),1:1)
|
|---|
| 27 | C W !!!,"Enter the name of the subordinate domain which you wish to christen"
|
|---|
| 28 | S DIC=4.2,DIC(0)="AEQMZ"
|
|---|
| 29 | D ^DIC Q:Y<0
|
|---|
| 30 | S XMINST=+Y,XMSITE=$P(Y,U,2)
|
|---|
| 31 | S XMC("CHRISTEN")=^XMB("NETNAME")_","_XMSITE
|
|---|
| 32 | S XM="D"
|
|---|
| 33 | D ENT^XMC1
|
|---|
| 34 | K XMC("CHRISTEN")
|
|---|
| 35 | Q
|
|---|
