00001 ***** 02/04/14 00002 * DTSIR417 00003 * DTSIR417 DELINQUENT REPORT NOTICE LETTER LV003 00004 * REPORT RECORD. DTSIR417 00005 ***** DTSIR417 00006 SKIP1 DTSIR417 00007 10 R417-LENGTH PIC S9(04) COMP. DTSIR417 00008 SKIP1 DTSIR417 00009 10 R417-SORT-AREA. DTSIR417 00010 15 R417-REC-TYPE PIC X(03). DTSIR417 00011 15 R417-SORT-ZIP PIC X(10). DTSIR417 00012 15 R417-EMP-NO PIC S9(07) COMP-3. DTSIR417 00013 SKIP1 DTSIR417 00014 10 R417-DATA-AREA. DTSIR417 00015 15 R417-MAIL-DATE PIC S9(09) COMP-3. DTSIR417 00016 15 R417-RETURN-BY-DATE PIC S9(09) COMP-3. DTSIR417 00017 15 R417-FMT-ADDR. DTSIR417 00018 20 R417-FMT-LINE OCCURS 5 TIMES DTSIR417 00019 INDEXED BY R417-FMT-IDX DTSIR417 00020 PIC X(40). DTSIR417 00021 15 R417-ZIP PIC X(10). DTSIR417 00022 15 R417-ADVANCED-BARCODE PIC X(14). DTSIR417 00023 *BO 15 R417-DELIV-POINT PIC X(02). DTSIR417 00024 *BO 15 R417-CHECK-DIGIT PIC X(01). DTSIR417 00025 15 R417-TOTAL-RATE PIC S9(01)V9(04) COMP-3. DTSIR417 00026 88 R417-NO-UI-RATE-88 VALUE -9.9999. DTSIR417 00027 15 R417-YRQ PIC S9(05) COMP-3. DTSIR417 00028 15 R417-DUE-DATE PIC S9(09) COMP-3. DTSIR417 00029 15 R417-ADDITIONAL-RPT-CNT PIC S9(04) COMP. DTSIR417 00030 15 R417-ADDITIONAL-RPT-YRQ OCCURS 19 TIMES DTSIR417 00031 INDEXED BY R417-YRQ-IDX DTSIR417 00032 PIC S9(05) COMP-3. DTSIR417