00001 *****                                                             01/20/99
00002 *                                                                 DTSIR418
00003 *    DTSIR418    DELINQUENT EMPLOYER ACCOUNT LIST                    LV005
00004 *                REPORT RECORD.                                   DTSIR418
00005 *                                                                 DTSIR418
00006 *****                                                             DTSIR418
00007      SKIP1                                                        DTSIR418
00008          10  R418-LENGTH         PIC S9(04)  COMP.                   CL**3
00009      SKIP1                                                        DTSIR418
00010          10  R418-SORT-AREA.                                      DTSIR418
00011              15  R418-REC-TYPE           PIC  X(03).                 CL**5
00012              15  R418-FIELD-REP-ID       PIC  X(02).                 CL**5
00013              15  R418-ZIP                PIC  X(10).                 CL**5
00014              15  R418-EMP-NO             PIC S9(07)       COMP-3. DTSIR418
00015      SKIP1                                                        DTSIR418
00016          10  R418-DATA-AREA.                                      DTSIR418
00017              15  R418-YRQ                PIC S9(05)       COMP-3. DTSIR418
00018              15  R418-TOTAL-RATE         PIC S9(01)V9(04) COMP-3. DTSIR418
00019                  88  R418-NO-UI-RATE-88            VALUE -9.9999. DTSIR418
00020              15  R418-PRIMARY-NAME       PIC  X(40).                 CL**2
00021              15  R418-ADDRESS1-SENT-IND  PIC  X(01).              DTSIR418
00022                  88  R418-ADDRESS1-SENT-YES           VALUE 'Y'.  DTSIR418
00023              15  R418-ADDRESS2-SENT-IND  PIC  X(01).              DTSIR418
00024                  88  R418-ADDRESS2-SENT-YES           VALUE 'Y'.  DTSIR418
00025              15  R418-ADDRESS3-SENT-IND  PIC  X(01).              DTSIR418
00026                  88  R418-ADDRESS3-SENT-YES           VALUE 'Y'.  DTSIR418
00027              15  R418-CITY               PIC  X(25).              DTSIR418
00028              15  R418-STATE              PIC  X(02).              DTSIR418
00029              15  R418-ADDITIONAL-RPT-CNT PIC S9(04)   COMP.       DTSIR418
00030              15  R418-ADDITIONAL-RPT-YRQ OCCURS 19 TIMES          DTSIR418
00031                                    INDEXED BY R418-YRQ-IDX        DTSIR418
00032                                          PIC S9(05)       COMP-3. DTSIR418