00001 *****                                                             08/28/02
00002 *                                                                 DESIR102
00003 *    DTSIR102    ELECTRONIC MEDIA ERROR NOTICE                       LV001
00004 *                REPORT RECORD.                                   DESIR102
00005 *                                                                 DESIR102
00006 *                                                                 DESIR102
00007 *                03/13/2001  INITIAL DEVELOPMENT.  GD             DESIR102
00008 *                                                                 DESIR102
00009 *****                                                             DESIR102
00010                                                                   DESIR102
00011          10  R102-LENGTH         PIC S9(04)  COMP.                DESIR102
00012                                                                   DESIR102
00013          10  R102-SORT-AREA.                                      DESIR102
00014              15  R102-REC-TYPE        PIC  X(03)  VALUE '102'.    DESIR102
00015              15  R102-BOX-NO          PIC  X(08).                 DESIR102
00016              15  R102-ELF-ID          PIC S9(07)  COMP-3.         DESIR102
00017                                                                   DESIR102
00018          10  R102-DATA-AREA.                                      DESIR102
00019              15  R102-RPT-TYPE        PIC  X(01).                 DESIR102
00020                  88  R102-RPT-TYPE-CONFIRM-88  VALUE '0'.         DESIR102
00021                  88  R102-RPT-TYPE-ERROR-88    VALUE '1'.         DESIR102
00022              15  R102-LOG-NO          PIC  9(10).                 DESIR102
00023              15  R102-FORMAT-CD       PIC  X(03).                 DESIR102
00024              15  R102-MAIL-DATE       PIC S9(09)  COMP-3.         DESIR102
00025              15  R102-OPID            PIC  X(08).                 DESIR102
00026              15  R102-FMT-ADDR.                                   DESIR102
00027                  20  R102-FMT-LINE OCCURS 5 TIMES                 DESIR102
00028                                    INDEXED BY R102-FMT-IDX        DESIR102
00029                                       PIC  X(40).                 DESIR102
00030              15  R102-ZIP             PIC  X(10).                 DESIR102
00031              15  R102-ADVANCED-BARCODE   PIC  X(14).              DESIR102
00032                                                                   DESIR102
00033              15  R102-ERR-CNT         PIC S9(04) COMP.            DESIR102
00034              15  R102-ERR-TABLE  OCCURS 50 TIMES.                 DESIR102
00035                  20  R102-ERROR       PIC  X(60).                 DESIR102