| Name | Value |
|---|---|
| NAME | TEST2BSCP |
| SEND | S XMTRAN="S: "_XMSG_"%%"_$S($D(J):J,1:" ")_"..."_$S($D(XMSUM):XMSUM,1:" ")_"..."_$S($D(XMTSUM):XMTSUM,1:" ") D TRAN^XMC1 S X=XMSG D SEND^ZXML3CRC |
| RECEIVE | D REC^ZXML3CRC S XMTRAN="R: "_XMRG D TRAN^XMC1 |
| CLOSE | Q |
| DESCRIPTION | THIS IS A MODIFIED VERSION OF THE BLOCK MODE PROTOCOL |