00001 ***** 10/15/98 00002 * DTSIL112 00003 * DTSIL112 FORMAT ADDRESS FOR MAILING. LV005 00004 * DTSIL112 00005 ***** DTSIL112 00006 SKIP1 DTSIL112 00007 10 L112-ADDR-TYPE PIC X(01). DTSIL112 00008 88 L112-TAD-ADDR-88 VALUE '1'. DTSIL112 00009 88 L112-TAA-ADDR-88 VALUE '2'. DTSIL112 00010 88 L112-OPO-ADDR-88 VALUE '3'. DTSIL112 00011 88 L112-BAA-ADDR-88 VALUE '4'. DTSIL112 00012 88 L112-FID-MAILING-ADDR-88 VALUE '8'. CL**5 00013 88 L112-FID-PHYSICAL-ADDR-88 VALUE '9'. CL**5 00014 SKIP1 DTSIL112 00015 10 L112-ANCHOR-LINE-IND PIC X(01). DTSIL112 00016 88 L112-ANCHOR-FIRST-88 VALUE 'F'. DTSIL112 00017 88 L112-ANCHOR-LAST-88 VALUE 'L'. DTSIL112 00018 SKIP1 DTSIL112 00019 10 L112-PRIMARY-NAME PIC X(40). CL**2 00020 SKIP1 DTSIL112 00021 10 L112-NAME-ADDRESS-AREA. DTSIL112 00022 15 L112-NAME PIC X(40). DTSIL112 00023 SKIP1 DTSIL112 00024 15 L112-TITLE PIC X(20). DTSIL112 00025 SKIP1 DTSIL112 00026 15 L112-ADDRESS. DTSIL112 00027 20 L112-ATTN-LINE PIC X(40). DTSIL112 00028 20 L112-DELIV-LINE-1 PIC X(40). CL**4 00029 20 L112-DELIV-LINE-2 PIC X(40). CL**4 00030 20 L112-CITY PIC X(25). DTSIL112 00031 20 L112-ST PIC X(02). DTSIL112 00032 20 L112-ZIP PIC X(10). DTSIL112 00033 20 L112-ADVANCED-BARCODE CL**4 00034 PIC X(14). CL**4 00035 SKIP3 DTSIL112 00036 10 L112-MAILING-ADDRESS. DTSIL112 00037 15 L112-MAILING-LINE-1 PIC X(40). DTSIL112 00038 15 L112-MAILING-LINE-2 PIC X(40). DTSIL112 00039 15 L112-MAILING-LINE-3 PIC X(40). DTSIL112 00040 15 L112-MAILING-LINE-4 PIC X(40). DTSIL112 00041 15 L112-MAILING-LINE-5 PIC X(40). DTSIL112 00042 10 FILLER REDEFINES L112-MAILING-ADDRESS. DTSIL112 00043 15 L112-MAILING-LINE OCCURS 5 TIMES DTSIL112 00044 INDEXED BY L112-MAILING-IDX DTSIL112 00045 PIC X(40). DTSIL112 00046 SKIP1 DTSIL112 00047 10 FILLER PIC X(86). DTSIL112