You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Ø4 FILLER PIC X(Ø1) VALUE ':'.<br />
Ø4 MAIL-MIN PIC X(Ø2).<br />
Ø4 FILLER PIC X(Ø1) VALUE ':'.<br />
Ø4 MAIL-SEC PIC X(Ø2).<br />
Ø4 FILLER PIC X(Ø2) VALUE ' -'.<br />
Ø4 MAIL-OFS PIC X(Ø4) VALUE 'Ø6ØØ'.<br />
Ø4 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
Ø4 FILLER PIC X(46).<br />
Ø2 MAIL-BODY-LINEØ2.<br />
Ø4 FILLER PIC X(39)<br />
VALUE 'FROM: XYZ application '.<br />
Ø4 FILLER PIC X(39)<br />
VALUE ' '.<br />
Ø4 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
Ø2 MAIL-BODY-LINEØ3.<br />
Ø4 FILLER PIC X(Ø4) VALUE 'TO: '.<br />
Ø4 MAIL-TO.<br />
Ø6 MAIL-TO-ENTRY OCCURS 65 TIMES PIC X(Ø1).<br />
Ø4 FILLER PIC X(Ø9) VALUE SPACES.<br />
Ø4 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
Ø2 MAIL-BODY-LINEØ4.<br />
Ø4 FILLER PIC X(39)<br />
VALUE 'SUBJECT:SAMPLE TCPIP EMAIL MESSAGES '.<br />
Ø4 FILLER PIC X(39)<br />
VALUE ' '.<br />
Ø4 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
Ø2 MAIL-BODY-LINEØ5.<br />
Ø4 FILLER PIC X(76) VALUE SPACES.<br />
Ø4 FILLER PIC X(Ø4) VALUE X'ØD15ØD15'.<br />
Ø2 MAIL-BODY-LINEØ6.<br />
Ø4 FILLER PIC X(39)<br />
VALUE 'the following message is for demonstrat'.<br />
Ø4 FILLER PIC X(39)<br />
VALUE 'ion purposes only, use at your own risk.'.<br />
Ø4 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
Ø2 MAIL-BODY-LINEØ7.<br />
Ø4 FILLER PIC X(39)<br />
VALUE ' '.<br />
Ø4 FILLER PIC X(39)<br />
VALUE ' '.<br />
Ø4 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
Ø2 MAIL-BODY-LINEØ8.<br />
Ø4 MAIL-PAGE PIC X(3Ø).<br />
Ø4 FILLER PIC X(48)<br />
VALUE ', refer to your own staff for more details. '.<br />
Ø4 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
Ø1 MAIL-MESSAGE-RSET.<br />
Ø2 FILLER PIC X(Ø5)<br />
VALUE 'RSET '.<br />
Ø2 FILLER PIC X(Ø2) VALUE X'ØD15'.<br />
20 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.