| NAME |
SCP |
| SEND |
S X=XMSG D SEND^XML I $G(XM)["D" S XMTRAN="S: "_$E(XMSG,1,242) D TRAN^XMC1 |
| RECEIVE |
D REC^XML I $G(XM)["D" S XMTRAN="R: "_$E(XMRG,1,242) D TRAN^XMC1 |
| OPEN |
I $D(^%ZOSF("OS")),^("OS")["VAX" U IO:PACK |
| CLOSE |
Q |
| DESCRIPTION |
SIMPLE COMMUNICATIONS PROTOCOL
|
