- 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 Jan 18, 2025@03:12:12 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