00001 * FUNCTION: TO PRINT ADDRESS INFO ON SELT MAILERS. 11/15/05 00002 * DTSXMAIL 00003 * LV001 00004 * MODIFICATION HISTORY: DTSXMAIL 00005 * DTSXMAIL 00006 * 05-20-04 INITIAL DEVELOPMENT - DTSXMAIL 00007 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSXMAIL 00008 * DTSXMAIL 00009 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXMAIL 00010 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXMAIL 00011 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSXMAIL 00012 * DTSXMAIL 00013 DTSXMAIL 00014 05 MAIL-ADDR1. DTSXMAIL 00015 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00016 10 MAIL-ADDR-LINE1 PIC X(40). DTSXMAIL 00017 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00018 05 MAIL-ADDR2. DTSXMAIL 00019 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00020 10 MAIL-ADDR-LINE2 PIC X(40). DTSXMAIL 00021 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00022 05 MAIL-ADDR3. DTSXMAIL 00023 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00024 10 MAIL-ADDR-LINE3 PIC X(40). DTSXMAIL 00025 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00026 05 MAIL-ADDR4. DTSXMAIL 00027 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00028 10 MAIL-ADDR-LINE4 PIC X(40). DTSXMAIL 00029 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00030 05 MAIL-ADDR5. DTSXMAIL 00031 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00032 10 MAIL-ADDR-LINE5 PIC X(40). DTSXMAIL 00033 10 FILLER PIC X(30) VALUE SPACES. DTSXMAIL 00034 01 BLANK-LINE. DTSXMAIL 00035 05 BLNK-DATA PIC X(133) VALUE SPACES. DTSXMAIL 00036 DTSXMAIL