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