00001 *****                                                             11/15/05
00002 *                                                                 DTSIR551
00003 *    DTSIR551    ICESA CONTRIBUTION AND WAGE REPORT EDIT -           LV001
00004 *                ERROR LIST REPORT RECORD.                        DTSIR551
00005 *                                                                 DTSIR551
00006 *                                                                 DTSIR551
00007 *               08/14/2004  INITIAL DEVELOPMENT.           GD     DTSIR551
00008 *               02/14/2005  ADDED R551-RPT-TYPE-FAIL-EDITS-88     DTSIR551
00009 *                           FOR NON-FATAL ERRORS THAT RESULT IN   DTSIR551
00010 *                           THE TRANSACTION FAILING THE           DTSIR551
00011 *                           ACCOUNTING EDITS.                GD   DTSIR551
00012 *                                                                 DTSIR551
00013 *****                                                             DTSIR551
00014                                                                   DTSIR551
00015          10  R551-LENGTH                 PIC S9(04)  COMP.        DTSIR551
00016                                                                   DTSIR551
00017          10  R551-SORT-AREA.                                      DTSIR551
00018              15  R551-REC-TYPE           PIC  X(03).              DTSIR551
00019                  88  R551-REC-TYPE-551-88  VALUE '551'.           DTSIR551
00020              15  R551-RPT-TYPE           PIC  X(01).              DTSIR551
00021                  88  R551-RPT-TYPE-FATAL-88      VALUE '0'.       DTSIR551
00022                  88  R551-RPT-TYPE-FAIL-EDITS-88 VALUE '1'.       DTSIR551
00023                  88  R551-RPT-TYPE-NON-FATAL-88  VALUE '2'.       DTSIR551
00024              15  R551-REC-NO             PIC S9(07)  COMP-3.      DTSIR551
00025                                                                   DTSIR551
00026          10  R551-DATA-AREA.                                      DTSIR551
00027              15  R551-SUBMITTER-NAME     PIC  X(50).              DTSIR551
00028              15  R551-SUBMITTER-FEIN     PIC  X(09).              DTSIR551
00029              15  R551-CONTACT-NAME       PIC  X(30).              DTSIR551
00030              15  R551-CONTACT-PHONE      PIC  X(10).              DTSIR551
00031              15  R551-CONTACT-PHONE-EXT  PIC  X(10).              DTSIR551
00032              15  R551-ICESA-REC-TYPE     PIC  X(01).              DTSIR551
00033              15  R551-MSG-TEXT           PIC  X(50).              DTSIR551
00034              15  R551-EMP-FEIN           PIC  X(09).              DTSIR551
00035              15  R551-EMP-NAME           PIC  X(50).              DTSIR551
00036              15  R551-EMP-STREET         PIC  X(40).              DTSIR551
00037              15  R551-EMP-CITY           PIC  X(25).              DTSIR551
00038              15  R551-EMP-STATE          PIC  X(02).              DTSIR551
00039              15  R551-EMP-ZIP.                                    DTSIR551
00040                  20  R551-EMP-ZIP-5      PIC  X(05).              DTSIR551
00041                  20  R551-EMP-ZIP-EXT    PIC  X(05).              DTSIR551