Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
MOVE RETCODE TO ERR-RETURN-CODE<br />
MOVE 'TRANSACTION HAS BEEN CANCELLED ' TO ERR-TEXT<br />
PERFORM WRITEQ-TRANSIENT-DATA<br />
PERFORM CLOSE-SOCKET<br />
GO TO CLEAR-EM-OUT<br />
ELSE<br />
MOVE RETCODE TO NBYTE<br />
CALL 'EZACICØ5' USING BUFFER-IN NBYTE<br />
END-IF<br />
CONTINUE.<br />
SEND-SOCKET.<br />
CALL 'EZACICØ4' USING BUFFER-OUT<br />
NBYTE<br />
MOVE 'SEND ' TO SOC-FUNCTION<br />
CALL 'EZASOKET' USING SOC-FUNCTION<br />
SOCKET-DESC<br />
FLAGS<br />
NBYTE<br />
BUFFER-OUT<br />
ERRNO<br />
RETCODE<br />
IF RETCODE < Ø<br />
MOVE 'TCPIP ' TO ERR-CALL-TYPE<br />
MOVE 'SEND ' TO ERR-TYPE<br />
MOVE ERRNO TO ERR-NUMBER<br />
MOVE RETCODE TO ERR-RETURN-CODE<br />
MOVE 'TRANSACTION HAS BEEN CANCELLED ' TO ERR-TEXT<br />
PERFORM WRITEQ-TRANSIENT-DATA<br />
PERFORM CLOSE-SOCKET<br />
GO TO CLEAR-EM-OUT<br />
ELSE<br />
CONTINUE<br />
END-IF<br />
CONTINUE.<br />
CLOSE-SOCKET.<br />
MOVE ZEROES TO RETCODE ERRNO<br />
MOVE 'CLOSE ' TO SOC-FUNCTION<br />
CALL 'EZASOKET' USING SOC-FUNCTION<br />
SOCKET-DESC<br />
ERRNO<br />
RETCODE<br />
IF RETCODE < Ø<br />
MOVE 'TCPIP ' TO ERR-CALL-TYPE<br />
MOVE 'CLOSESOKET' TO ERR-TYPE<br />
MOVE ERRNO TO ERR-NUMBER<br />
MOVE RETCODE TO ERR-RETURN-CODE<br />
MOVE 'TRANSACTION HAS BEEN CANCELLED ' TO ERR-TEXT<br />
PERFORM WRITEQ-TRANSIENT-DATA<br />
GO TO CLEAR-EM-OUT<br />
ELSE<br />
14 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.