00001 *****                                                             02/13/99
00002 *                                                                 DTSIR746
00003 *   DTSIR746   BATCH ADDRESS UPDATE ADDRESS ERROR REPORT.            LV002
00004 *                                                                 DTSIR746
00005 *                                                                    CL**2
00006 *              02/13/1999  REVEIWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIR746
00009                                                                   DTSIR746
00010          10  R746-LENGTH         PIC S9(04)  COMP.                DTSIR746
00011                                                                   DTSIR746
00012          10  R746-SORT-AREA.                                      DTSIR746
00013              15  R746-REC-TYPE           PIC  X(03)  VALUE '746'. DTSIR746
00014              15  R746-EMP-NO             PIC S9(07)  COMP-3.      DTSIR746
00015              15  R746-MSTR-REC-TYPE      PIC S9(04)       COMP.   DTSIR746
00016              15  R746-ADDR-ID-NO         PIC S9(03)       COMP-3. DTSIR746
00017                                                                   DTSIR746
00018          10  R746-DATA-AREA.                                      DTSIR746
00019              15  R746-PRIMARY-NAME       PIC  X(40).                 CL**2
00020                                                                   DTSIR746
00021              15  R746-ADDR-TYPE          PIC  X(03).              DTSIR746
00022                                                                   DTSIR746
00023              15  R746-PRE-ADDRESS.                                DTSIR746
00024                  20  R746-PRE-ATTN-LINE      PIC  X(40).          DTSIR746
00025                  20  R746-PRE-DELIV-LINE-1   PIC  X(40).             CL**2
00026                  20  R746-PRE-DELIV-LINE-2   PIC  X(40).             CL**2
00027                  20  R746-PRE-CITY           PIC  X(25).          DTSIR746
00028                  20  R746-PRE-ST             PIC  X(02).          DTSIR746
00029                  20  R746-PRE-ZIP            PIC  X(10).          DTSIR746
00030                  20  R746-PRE-ADVANCED-BARCODE                       CL**2
00031                                              PIC  X(14).             CL**2
00032                                                                   DTSIR746
00033              15  R746-MSG-CNT                PIC S9(03)  COMP-3.  DTSIR746
00034                                                                   DTSIR746
00035              15  R746-MSG-TEXT OCCURS 3 TIMES                     DTSIR746
00036                                              PIC  X(60).          DTSIR746