00001 ***** 01/20/04 00002 * DTSIR453 00003 * DTSIR453 FINAL DELINQUENT REPORT NOTICE LV001 00004 * REPORT RECORD. DTSIR453 00005 * DTSIR453 00006 ***** DTSIR453 00007 SKIP1 DTSIR453 00008 10 R453-LENGTH PIC S9(04) COMP. DTSIR453 00009 SKIP1 DTSIR453 00010 10 R453-SORT-AREA. DTSIR453 00011 15 R453-REC-TYPE PIC X(03). DTSIR453 00012 15 R453-FIELD-DESK-IND PIC X(01). DTSIR453 00013 88 R453-FLD-DESK-YES-88 VALUE '1'. DTSIR453 00014 88 R453-FLD-DESK-NO-88 VALUE '2'. DTSIR453 00015 15 R453-SORT-ZIP PIC X(10). DTSIR453 00016 15 R453-EMP-NO PIC S9(07) COMP-3. DTSIR453 00017 SKIP1 DTSIR453 00018 10 R453-DATA-AREA. DTSIR453 00019 15 R453-FIELD-REP-ID PIC X(02). DTSIR453 00020 15 R453-MAIL-DATE PIC S9(09) COMP-3. DTSIR453 00021 15 R453-AS-OF-DATE PIC S9(09) COMP-3. DTSIR453 00022 15 R453-UC30-FIRST-DEL-MAIL-DATE DTSIR453 00023 PIC S9(09) COMP-3. DTSIR453 00024 15 R453-FINAL-ACTION-DATE DTSIR453 00025 PIC S9(09) COMP-3. DTSIR453 00026 15 R453-FMT-ADDR. DTSIR453 00027 20 R453-FMT-LINE OCCURS 5 TIMES DTSIR453 00028 INDEXED BY R453-FMT-IDX DTSIR453 00029 PIC X(40). DTSIR453 00030 15 R453-ZIP PIC X(10). DTSIR453 00031 15 R453-ADVANCED-BARCODE PIC X(14). DTSIR453 00032 *************15 R453-DELIV-POINT PIC X(02). DTSIR453 00033 *************15 R453-CHECK-DIGIT PIC X(01). DTSIR453 00034 15 R453-TOTAL-RATE PIC S9(01)V9(04) COMP-3. DTSIR453 00035 88 R453-NO-UI-RATE-88 VALUE -9.9999. DTSIR453 00036 15 R453-YRQ PIC S9(05) COMP-3. DTSIR453 00037 15 R453-DUE-DATE PIC S9(09) COMP-3. DTSIR453 00038 15 R453-ADDITIONAL-RPT-CNT PIC S9(04) COMP. DTSIR453 00039 15 R453-ADDITIONAL-RPT-YRQ OCCURS 19 TIMES DTSIR453 00040 INDEXED BY R453-YRQ-IDX DTSIR453 00041 PIC S9(05) COMP-3. DTSIR453