| Name | Value |
|---|---|
| NAME | 1SCP |
| SEND | S X=XMSG D SEND^XML1CRC I $G(XM)["D" S XMTRAN="S: "_$E(XMSG,1,242) D TRAN^XMC1 |
| RECEIVE | D REC^XML1CRC 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 (SCP) with $ZC error check |