00001 *****                                                             02/13/99
00002 *                                                                 DTSIXLPC
00003 *    DTSIXLPC  BATCH ADDRESS UPDATE ADDRESS RECORD.                  LV002
00004 *                                                                 DTSIXLPC
00005 *****                                                             DTSIXLPC
00006                                                                      CL**2
00007          10  XLPC-KEY-AREA.                                       DTSIXLPC
00008              15  XLPC-KEY-ZIP            PIC  X(10).              DTSIXLPC
00009              15  XLPC-KEY-EMP-NO         PIC S9(07)       COMP-3. DTSIXLPC
00010              15  XLPC-KEY-REC-TYPE       PIC S9(04)       COMP.   DTSIXLPC
00011                  88  XLPC-KEY-TAD-88         VALUE +03.           DTSIXLPC
00012                  88  XLPC-KEY-OPO-88         VALUE +11.           DTSIXLPC
00013                  88  XLPC-KEY-TAA-88         VALUE +13.           DTSIXLPC
00014                  88  XLPC-KEY-BAA-88         VALUE +14.           DTSIXLPC
00015                  88  XLPC-KEY-ELF-88         VALUE +24.           DTSIXLPC
00016              15  XLPC-KEY-ADDR-ID-NO     PIC S9(03)       COMP-3. DTSIXLPC
00017                                                                   DTSIXLPC
00018          10  XLPC-PARM-AREA.                                      DTSIXLPC
00019              15  XLPC-MASTER-UPDATE-IND  PIC  X(01).              DTSIXLPC
00020                  88  XLPC-MASTER-UPDATE-NO-88   VALUE 'N'.        DTSIXLPC
00021                  88  XLPC-MASTER-UPDATE-YES-88  VALUE 'Y'.        DTSIXLPC
00022              15  FILLER                  PIC  X(06).              DTSIXLPC
00023                                                                   DTSIXLPC
00024          10  XLPC-DATA-AREA.                                      DTSIXLPC
00025              15  XLPC-PRIMARY-NAME           PIC  X(40).             CL**2
00026                                                                   DTSIXLPC
00027              15  XLPC-ADDR-TYPE              PIC  X(03).          DTSIXLPC
00028                  88  XLPC-ADDR-TAD-88               VALUE 'TAD'.  DTSIXLPC
00029                  88  XLPC-ADDR-OPO-88               VALUE 'OPO'.  DTSIXLPC
00030                  88  XLPC-ADDR-TAA-88               VALUE 'TAA'.  DTSIXLPC
00031                  88  XLPC-ADDR-BAA-88               VALUE 'BAA'.  DTSIXLPC
00032                  88  XLPC-ADDR-ELF-88               VALUE 'ELF'.  DTSIXLPC
00033                                                                   DTSIXLPC
00034              15  XLPC-PRE-ADDRESS.                                DTSIXLPC
00035                  20  XLPC-PRE-ATTN-LINE      PIC  X(40).          DTSIXLPC
00036                  20  XLPC-PRE-DELIV-LINE-1   PIC  X(40).             CL**2
00037                  20  XLPC-PRE-DELIV-LINE-2   PIC  X(40).             CL**2
00038                  20  XLPC-PRE-CITY           PIC  X(25).          DTSIXLPC
00039                  20  XLPC-PRE-ST             PIC  X(02).          DTSIXLPC
00040                  20  XLPC-PRE-ZIP            PIC  X(10).          DTSIXLPC
00041                  20  XLPC-PRE-ADVANCED-BARCODE                       CL**2
00042                                              PIC  X(14).             CL**2
00043                                                                   DTSIXLPC
00044              15  FILLER                      PIC  X(20).          DTSIXLPC
00045                                                                   DTSIXLPC
00046              15  XLPC-POST-ADDRESS.                               DTSIXLPC
00047                  20  XLPC-POST-ATTN-LINE     PIC  X(40).          DTSIXLPC
00048                  20  XLPC-POST-DELIV-LINE-1  PIC  X(40).             CL**2
00049                  20  XLPC-POST-DELIV-LINE-2  PIC  X(40).             CL**2
00050                  20  XLPC-POST-CITY          PIC  X(25).          DTSIXLPC
00051                  20  XLPC-POST-ST            PIC  X(02).          DTSIXLPC
00052                  20  XLPC-POST-ZIP           PIC  X(10).          DTSIXLPC
00053                  20  XLPC-POST-ADVANCED-BARCODE                      CL**2
00054                                              PIC  X(14).             CL**2
00055                                                                   DTSIXLPC
00056              15  FILLER                      PIC  X(20).          DTSIXLPC