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.