3BSCP (20)    COMMUNICATIONS PROTOCOL (3.4)

Name Value
NAME 3BSCP
SEND S X=XMSG D SEND^XML4CRC I $G(XM)["D" S XMTRAN="S: "_$E(XMSG,1,242) D TRAN^XMC1
RECEIVE D REC^XML4CRC1 I $G(XM)["D" S XMTRAN="R: "_$E(XMRG,1,242)_$S('$D(XMLIN):"",XMLIN<1:"",1:"*") D TRAN^XMC1
OPEN I $D(^%ZOSF("OS")),^("OS")["VAX" U IO:PACK
CLOSE Q
DESCRIPTION
BLOCK MODE PROTOCOL WITH AN OPERATING SYSTEM CHECK SUM CALCULATION AND
RESTART CAPABILITY.