00001 *****                                                             12/09/04
00002 *                                                                 DTSIR436
00003 *   DTSIR436   COMPROMISE SETTLEMENT REPORT RECORDS.                 LV001
00004 *                                                                 DTSIR436
00005 *                                                                 DTSIR436
00006 *              05/03/2004  INITIAL DEVELOPMENT.     GD            DTSIR436
00007 *                                                                 DTSIR436
00008 *****                                                             DTSIR436
00009                                                                   DTSIR436
00010          10  R436-LENGTH         PIC S9(04)  COMP.                DTSIR436
00011                                                                   DTSIR436
00012                                                                   DTSIR436
00013          10  R436-SORT-AREA.                                      DTSIR436
00014              15  R436-REC-TYPE           PIC  X(03)  VALUE '436'. DTSIR436
00015                                                                   DTSIR436
00016              15  R436-RESP-OP-ID         PIC  X(08).              DTSIR436
00017                                                                   DTSIR436
00018              15  R436-EMP-NO             PIC S9(07)  COMP-3.      DTSIR436
00019                                                                   DTSIR436
00020                                                                   DTSIR436
00021          10  R436-DATA-AREA.                                      DTSIR436
00022              15  R436-MAIL-DATE          PIC S9(09)  COMP-3.      DTSIR436
00023                                                                   DTSIR436
00024              15  R436-SETTLEMENT-DATE    PIC S9(09)  COMP-3.      DTSIR436
00025                                                                   DTSIR436
00026              15  R436-SETTLEMENT-DUE-AMT PIC S9(09)V99 COMP-3.    DTSIR436
00027                                                                   DTSIR436
00028              15  R436-TAX-WAIVED-AMT     PIC S9(09)V9(02)  COMP-3.DTSIR436
00029                                                                   DTSIR436
00030              15  R436-PEN-WAIVED-AMT     PIC S9(09)V9(02)  COMP-3.DTSIR436
00031                                                                   DTSIR436
00032              15  R436-INT-WAIVED-AMT     PIC S9(09)V9(02)  COMP-3.DTSIR436
00033                                                                   DTSIR436
00034              15  R436-PRIMARY-NAME       PIC  X(40).              DTSIR436
00035                                                                   DTSIR436
00036              15  R436-MAILING-ADDRESS.                            DTSIR436
00037                  20  R436-MAILING-LINE                            DTSIR436
00038                      OCCURS 5 TIMES                               DTSIR436
00039                      INDEXED BY R436-MAILING-LINE-IDX             DTSIR436
00040                                          PIC  X(40).              DTSIR436
00041                                                                   DTSIR436
00042 *****                                                             DTSIR436
00043 *                                                                 DTSIR436
00044 *    BECAUSE OF THE METHOD USED TO HANDLE CMP ADDRESSES IN THE    DTSIR436
00045 *    SYSTEM, R436-ZIP AND R436-ADVANCED-BARCODE ARE EQUAL TO      DTSIR436
00046 *    SPACES.  THEY ARE INCLUDED HERE FOR CONSISTENCY WITH THE     DTSIR436
00047 *    REST OF THE SYSTEM - A MARGINAL REASON AT BEST.              DTSIR436
00048 *                                                                 DTSIR436
00049 *****                                                             DTSIR436
00050                                                                   DTSIR436
00051              15  R436-ZIP                PIC  X(10).              DTSIR436
00052                                                                   DTSIR436
00053              15  R436-ADVANCED-BARCODE   PIC  X(14).              DTSIR436
00054                                                                   DTSIR436
00055              15  R436-COV-CNT            PIC S9(04)  COMP.        DTSIR436
00056                                                                   DTSIR436
00057              15  R436-COVERED-YRQ                                 DTSIR436
00058                  OCCURS 20 TIMES                                  DTSIR436
00059                  INDEXED BY R436-COVERED-YRQ-IDX                  DTSIR436
00060                                          PIC S9(05)       COMP-3. DTSIR436
00061                                                                   DTSIR436