You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
EXEC <strong>CICS</strong> ASSIGN SYSID(SYSTEM-ID) END-EXEC<br />
MOVE SYSTEM-ID TO OPR-REGION-ID<br />
MOVE 'TCPIPØØD' TO ERR-PROGRAM-ID<br />
OPR-PROGRAM-ID<br />
MOVE EIBTRNID TO ERR-TRANSACTION<br />
MOVE SPACES TO BUFFER-IN BUFFER-OUT<br />
CONTINUE.<br />
SEND-ALL-EPAGES.<br />
MOVE SPACES TO HOLD-EML-RECORD<br />
MOVE 'B' TO EML-RECTYPE<br />
MOVE COMM-PAGE-NUM TO EML-COMPONENT<br />
MOVE 'ØØ' TO EML-RECORD<br />
EXEC <strong>CICS</strong> STARTBR FILE('TCPIPEML')<br />
RIDFLD(EML-KEY)<br />
RESP(FILE-RESPONSE)<br />
END-EXEC<br />
IF FILE-RESPONSE NOT = DFHRESP(NORMAL)<br />
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 = 'B'<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 DFHRESP(NORMAL)<br />
IF EML-COMPONENT = COMM-PAGE-NUM<br />
IF EML-FLAG = 'Y'<br />
PERFORM MOVE-EML-PAGER-DATA<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 />
10 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.