XMC11 ;(WASH ISC)/THM-DECNET Communications Protocol Tools ;04/17/2002 07:51
;;8.0;MailMan;;Jun 28, 2002
Q
;ENS and ENR are used by DECNET Communications Protocol in file 3.4
ENS ;Send
I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"S",XMSG)
Q
ENR ;Receive
I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"R",XMRG)
Q
; *** THE FOLLOWING ARE NOT USED ***
IMM ;Immediate mode interpreter
S XMC("SHOW TRAN")="RS"
I $G(XMC("AUDIT")) K ^TMP("XMC",XMC("AUDIT")),XMC("AUDIT","I")
F R !!,"Script command: ",X:DTIME Q:X="" D INT^XMC1(X,"you entered") U IO(0) W " ",$S(ER:"Failed",1:"OK")
Q
CHRS ;Christening operation
N XMINST,XMSITE,DIC,X,Y,DIR
I '$D(^XMB("NETNAME")) D Q
. W !!,$C(7),"This domain is not yet christened. It cannot christen others"
. W !,"until initialized and christened by a parent domain."
W !!,"This process will create a new subordinate domain to this domain"
W !,"and update network relationships both there and here, as well as"
W !,"inform this domain's parent."
W !!,"Do you really want to do this? NO// "
R X:DTIME Q:"Yy"'[$S($L(X):$E(X),1:1)
C W !!!,"Enter the name of the subordinate domain which you wish to christen"
S DIC=4.2,DIC(0)="AEQMZ"
D ^DIC Q:Y<0
S XMINST=+Y,XMSITE=$P(Y,U,2)
S XMC("CHRISTEN")=^XMB("NETNAME")_","_XMSITE
S XM="D"
D ENT^XMC1
K XMC("CHRISTEN")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMC11 1339 printed Nov 22, 2024@17:21:16 Page 2
XMC11 ;(WASH ISC)/THM-DECNET Communications Protocol Tools ;04/17/2002 07:51
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 QUIT
+3 ;ENS and ENR are used by DECNET Communications Protocol in file 3.4
ENS ;Send
+1 IF $GET(XMINST)
DO XMTSTAT^XMTDR(XMINST,"S",XMSG)
+2 QUIT
ENR ;Receive
+1 IF $GET(XMINST)
DO XMTSTAT^XMTDR(XMINST,"R",XMRG)
+2 QUIT
+3 ; *** THE FOLLOWING ARE NOT USED ***
IMM ;Immediate mode interpreter
+1 SET XMC("SHOW TRAN")="RS"
+2 IF $GET(XMC("AUDIT"))
KILL ^TMP("XMC",XMC("AUDIT")),XMC("AUDIT","I")
+3 FOR
READ !!,"Script command: ",X:DTIME
if X=""
QUIT
DO INT^XMC1(X,"you entered")
USE IO(0)
WRITE " ",$SELECT(ER:"Failed",1:"OK")
+4 QUIT
CHRS ;Christening operation
+1 NEW XMINST,XMSITE,DIC,X,Y,DIR
+2 IF '$DATA(^XMB("NETNAME"))
Begin DoDot:1
+3 WRITE !!,$CHAR(7),"This domain is not yet christened. It cannot christen others"
+4 WRITE !,"until initialized and christened by a parent domain."
End DoDot:1
QUIT
+5 WRITE !!,"This process will create a new subordinate domain to this domain"
+6 WRITE !,"and update network relationships both there and here, as well as"
+7 WRITE !,"inform this domain's parent."
+8 WRITE !!,"Do you really want to do this? NO// "
+9 READ X:DTIME
if "Yy"'[$SELECT($LENGTH(X)
QUIT
C WRITE !!!,"Enter the name of the subordinate domain which you wish to christen"
+1 SET DIC=4.2
SET DIC(0)="AEQMZ"
+2 DO ^DIC
if Y<0
QUIT
+3 SET XMINST=+Y
SET XMSITE=$PIECE(Y,U,2)
+4 SET XMC("CHRISTEN")=^XMB("NETNAME")_","_XMSITE
+5 SET XM="D"
+6 DO ENT^XMC1
+7 KILL XMC("CHRISTEN")
+8 QUIT
