37 lines
2.8 KiB
COBOL
37 lines
2.8 KiB
COBOL
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
|