TEST2BSCP (18)    COMMUNICATIONS PROTOCOL (3.4)

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