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 />
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 />
CONTINUE<br />
END-IF<br />
CONTINUE.<br />
SMTP-ERROR.<br />
MOVE 'SMTP ' TO ERR-CALL-TYPE<br />
MOVE 'MESSAGE ' TO ERR-TYPE<br />
MOVE SMTP-RETURN-CODE TO ERR-NUMBER<br />
MOVE ZEROES TO ERR-RETURN-CODE<br />
MOVE 'TRANSACTION HAS BEEN CANCELLED ' TO ERR-TEXT<br />
PERFORM WRITEQ-TRANSIENT-DATA<br />
MOVE SPACES TO BUFFER-OUT<br />
MOVE MAIL-MESSAGE-RSET TO BUFFER-OUT<br />
PERFORM SEND-SOCKET<br />
PERFORM RECEIVE-SOCKET<br />
MOVE SPACES TO BUFFER-OUT<br />
MOVE MAIL-MESSAGE-END TO BUFFER-OUT<br />
PERFORM SEND-SOCKET<br />
PERFORM RECEIVE-SOCKET<br />
PERFORM CLOSE-SOCKET<br />
GO TO CLEAR-EM-OUT.<br />
EVALUATE-STARTBROWSE-RESPONSE.<br />
EVALUATE FILE-RESPONSE<br />
WHEN DFHRESP(DISABLED)<br />
MOVE 'DISABLED ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
28 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.