~jeff-apple/openvista-gtm-integration/listener

Viewing changes to mumps/HLCSTCP1.m

Merge bug 526734 - RDBLK+1^HLCSTCP1, Attempt to read past an end-of-file,150373082,-%GTM-E-IOEOF in the error trap

added added

removed removed

HLCSTCP1 ;SFIRMFO/RSD MSC/JDA,JKT - BI-DIRECTIONAL TCP ;23FEB2010

HLCSTCP1 ;SFIRMFO/RSD MSC/JDA,JKT - BI-DIRECTIONAL TCP ;24FEB2010

;;1.6;HEALTH LEVEL SEVEN;**19,43,57,64,71,MSC**;JUL 17,1995

;Receiver

;connection is initiated by sender and listener accepts connection

163

I $$EC^%ZOSV["READ"!($$EC^%ZOSV["NOTOPEN")!($$EC^%ZOSV["DEVNOTOPN") D UNWIND^%ZTER Q

164

I $$EC^%ZOSV["WRITE" D CC("Wr-err") D UNWIND^%ZTER Q

165

;

166

; If the other side disconnected, but no message was being sent, just go back to listening.

167

; Because we're checking for a specific $D string, this probably only gets triggered on GT.M.

168

; Cache is handled by the $$EC^%ZOSV checks above. See <https://launchpad.net/bugs/526609>

169

I $P($D,",",2)="Connection reset by peer",'$D(HLMSG) D UNWIND^%ZTER Q

166

; If the connection is broken, but no message was being received, just go back to listening.

167

; See <https://launchpad.net/bugs/526609> and <https://launchpad.net/bugs/526734>

168

I $EC="",$D!$ZEOF,'$D(HLMSG) D UNWIND^%ZTER Q

170

169

;

171

170

S HLCSOUT=1 D ^%ZTER,CC("Error")

172

171

D UNWIND^%ZTER