You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
MOVE 'STARTBR ' TO ERR-CALL-TYPE<br />
PERFORM EVALUATE-STARTBROWSE-RESPONSE<br />
GO TO CLEAR-EM-OUT<br />
END-IF<br />
PERFORM UNTIL EML-RECTYPE NOT = 'A'<br />
OR EML-COMPONENT NOT = COMM-PAGE-NUM<br />
OR END-FILE<br />
EXEC <strong>CICS</strong> READNEXT INTO(HOLD-EML-RECORD)<br />
LENGTH(EML-REC-LENGTH)<br />
KEYLENGTH(EML-KEY-LENGTH)<br />
FILE('TCPIPEML')<br />
RIDFLD(EML-KEY)<br />
RESP(FILE-RESPONSE)<br />
END-EXEC<br />
EVALUATE FILE-RESPONSE<br />
WHEN ØØ<br />
IF EML-COMPONENT = COMM-PAGE-NUM<br />
IF EML-FLAG = 'Y'<br />
PERFORM MOVE-RCPT-TO-ADDRESSEE-NAME<br />
PERFORM MOVE-MAIL-TO-ADDRESSEE-NAME<br />
PERFORM GET-SOCKET<br />
PERFORM CONNECT-SOCKET<br />
PERFORM RECEIVE-SOCKET<br />
PERFORM SEND-MESSAGE<br />
PERFORM CLOSE-SOCKET<br />
END-IF<br />
END-IF<br />
WHEN DFHRESP(ENDFILE)<br />
MOVE 'END' TO END-FILE-SW<br />
WHEN OTHER<br />
MOVE 'READNEXT' TO ERR-CALL-TYPE<br />
PERFORM EVALUATE-READNEXT-RESPONSE<br />
GO TO CLEAR-EM-OUT<br />
END-EVALUATE<br />
END-PERFORM<br />
EXEC <strong>CICS</strong> ENDBR FILE('TCPIPEML')<br />
RESP(FILE-RESPONSE)<br />
END-EXEC<br />
IF FILE-RESPONSE NOT = DFHRESP(NORMAL)<br />
MOVE 'ENDBR ' TO ERR-CALL-TYPE<br />
PERFORM EVALUATE-ENDBROWSE-RESPONSE<br />
GO TO CLEAR-EM-OUT<br />
END-IF<br />
CONTINUE.<br />
MOVE-RCPT-TO-ADDRESSEE-NAME.<br />
MOVE SPACES TO MAIL-RCPT<br />
PERFORM VARYING ADDRESSEE-SS FROM 1 BY 1<br />
UNTIL EML-ADDRESSEE-ENTRY(ADDRESSEE-SS) = ' '<br />
OR ADDRESSEE-SS > 65<br />
MOVE EML-ADDRESSEE-ENTRY(ADDRESSEE-SS)<br />
24 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.