00001 *****                                                             02/13/99
00002 *                                                                 DTSIR747
00003 *   DTSIR747   BATCH ADDRESS UPDATE ADDRESS MODIFICATION REPORT.     LV002
00004 *                                                                 DTSIR747
00005 *                                                                    CL**2
00006 *              02/13/1999  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIR747
00009                                                                   DTSIR747
00010          10  R747-LENGTH         PIC S9(04)  COMP.                DTSIR747
00011                                                                   DTSIR747
00012          10  R747-SORT-AREA.                                      DTSIR747
00013              15  R747-REC-TYPE           PIC  X(03)  VALUE '747'. DTSIR747
00014              15  R747-SORT-ZIP           PIC  X(10).              DTSIR747
00015              15  R747-EMP-NO             PIC S9(07)  COMP-3.      DTSIR747
00016              15  R747-MSTR-REC-TYPE      PIC S9(04)       COMP.   DTSIR747
00017              15  R747-ADDR-ID-NO         PIC S9(03)       COMP-3. DTSIR747
00018                                                                   DTSIR747
00019          10  R747-DATA-AREA.                                      DTSIR747
00020              15  R747-MASTER-UPDATE-IND  PIC  X(01).              DTSIR747
00021                  88  R747-MASTER-UPDATE-NO-88   VALUE 'N'.        DTSIR747
00022                  88  R747-MASTER-UPDATE-YES-88  VALUE 'Y'.        DTSIR747
00023                                                                   DTSIR747
00024              15  R747-PRIMARY-NAME       PIC  X(40).                 CL**2
00025                                                                   DTSIR747
00026              15  R747-ADDR-TYPE          PIC  X(03).              DTSIR747
00027                                                                   DTSIR747
00028              15  R747-PRE-ADDRESS.                                DTSIR747
00029                  20  R747-PRE-ATTN-LINE      PIC  X(40).          DTSIR747
00030                  20  R747-PRE-DELIV-LINE-1   PIC  X(40).             CL**2
00031                  20  R747-PRE-DELIV-LINE-2   PIC  X(40).             CL**2
00032                  20  R747-PRE-CITY           PIC  X(25).          DTSIR747
00033                  20  R747-PRE-ST             PIC  X(02).          DTSIR747
00034                  20  R747-PRE-ZIP            PIC  X(10).          DTSIR747
00035                  20  R747-PRE-ADVANCED-BARCODE                       CL**2
00036                                              PIC  X(14).             CL**2
00037                                                                   DTSIR747
00038              15  R747-POST-ADDRESS.                               DTSIR747
00039                  20  R747-POST-ATTN-LINE     PIC  X(40).          DTSIR747
00040                  20  R747-POST-DELIV-LINE-1  PIC  X(40).             CL**2
00041                  20  R747-POST-DELIV-LINE-2  PIC  X(40).             CL**2
00042                  20  R747-POST-CITY          PIC  X(25).          DTSIR747
00043                  20  R747-POST-ST            PIC  X(02).          DTSIR747
00044                  20  R747-POST-ZIP           PIC  X(10).          DTSIR747
00045                  20  R747-POST-ADVANCED-BARCODE                      CL**2
00046                                              PIC  X(14).             CL**2