00001 *****                                                             02/26/08
00002 *                                                                 DTSIR140
00003 *    DTSIR140    WEB IMPORT ERROR MESSAGE REPORT RECORD              LV001
00004 *                                                                 DTSIR140
00005 *                                                                 DTSIR140
00006 *                12/01/2006  INITIAL DEVELOPMENT            GD    DTSIR140
00007 *                                                                 DTSIR140
00008 *****                                                             DTSIR140
00009                                                                   DTSIR140
00010          10  R140-LENGTH         PIC S9(04)  COMP.                DTSIR140
00011                                                                   DTSIR140
00012          10  R140-SORT-AREA.                                      DTSIR140
00013              15  R140-REC-TYPE           PIC  X(03)  VALUE '140'. DTSIR140
00014              15  R140-EMP-NO             PIC S9(07) COMP-3.       DTSIR140
00015                                                                   DTSIR140
00016          10  R140-DATA-AREA.                                      DTSIR140
00017              15  R140-RUN-DATE           PIC S9(09)      COMP-3.  DTSIR140
00018              15  R140-RECORD-DESC        PIC  X(20).              DTSIR140
00019              15  R140-MESSAGE            PIC  X(80).              DTSIR140