00001 ***** 06/07/01 00002 * DTSIZ42B 00003 * DTSIZ42B DTSBR421 REPORT SECTION. DONE AS A SEPARATE LV019 00004 * COPYLIB TO AVOID PUTTING MIXED CASE CODE INTO DTSIZ42B 00005 * DTSBR421. DTSIZ42B 00006 * DTSIZ42B 00007 ***** DTSIZ42B 00008 01 LETTER-HEADING. DTSIZ42B 00009 05 HDR-LINE-13. DTSIZ42B 00010 10 FILLER PIC X(40) VALUE SPACES. DTSIZ42B 00011 10 HDR-LONG-TEXT-MAIL-DATE PIC X(18). DTSIZ42B 00012 DTSIZ42B 00013 05 HDR-LINE-14 pic x(133) value spaces. DTSIZ42B 00014 05 HDR-LINE-15 pic x(133) value spaces. DTSIZ42B 00015 05 HDR-LINE-16. DTSIZ42B 00016 10 FILLER PIC X(07) VALUE SPACES. DTSIZ42B 00017 10 HDR-FMT-LINE-1 PIC X(40). DTSIZ42B 00018 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00019 10 FILLER PIC X(08) DTSIZ42B 00020 VALUE 'ACCT NO:'. DTSIZ42B 00021 10 FILLER PIC X(01) VALUE SPACE. DTSIZ42B 00022 10 HDR-EMP-NO PIC 999B999. DTSIZ42B 00023 DTSIZ42B 00024 05 HDR-LINE-17. DTSIZ42B 00025 10 FILLER PIC X(07) VALUE SPACES. DTSIZ42B 00026 10 HDR-FMT-LINE-2 PIC X(40). DTSIZ42B 00027 10 FILLER PIC X(05) VALUE SPACES. DTSIZ42B 00028 10 FILLER PIC X(11) DTSIZ42B 00029 VALUE 'TOTAL RATE:'. DTSIZ42B 00030 10 FILLER PIC X(01) VALUE SPACE. DTSIZ42B 00031 10 WS-DISP-RATE PIC X(07). DTSIZ42B 00032 DTSIZ42B 00033 05 HDR-LINE-18. DTSIZ42B 00034 10 FILLER PIC X(07) VALUE SPACES. DTSIZ42B 00035 10 HDR-FMT-LINE-3 PIC X(40). DTSIZ42B 00036 10 FILLER PIC X(12) VALUE SPACES. DTSIZ42B 00037 10 FILLER PIC X(04) DTSIZ42B 00038 VALUE 'QTR:'. DTSIZ42B 00039 10 FILLER PIC X(01) VALUE SPACE. DTSIZ42B 00040 10 HDR-UC-SHORT-MONTH-1 PIC X(03). DTSIZ42B 00041 10 FIlLER PIC X(01) VALUE '/'. DTSIZ42B 00042 10 HDR-UC-SHORT-MONTH-2 PIC X(03). DTSIZ42B 00043 10 FIlLER PIC X(01) VALUE '/'. DTSIZ42B 00044 DTSIZ42B 00045 05 HDR-LINE-19. DTSIZ42B 00046 10 FILLER PIC X(07) VALUE SPACES. DTSIZ42B 00047 10 HDR-FMT-LINE-4 PIC X(40). DTSIZ42B 00048 10 FILLER PIC X(17) VALUE SPACES. DTSIZ42B 00049 10 HDR-UC-SHORT-MONTH-3 PIC X(03). DTSIZ42B 00050 10 FILLER PIC X(01) VALUE ' '. DTSIZ42B 00051 10 HDR-SHORT-YEAR PIC X(04). DTSIZ42B 00052 DTSIZ42B 00053 05 HDR-LINE-20. DTSIZ42B 00054 10 FILLER PIC X(07) VALUE SPACES. DTSIZ42B 00055 10 HDR-FMT-LINE-5 PIC X(40). DTSIZ42B 00056 10 FILLER PIC X(05) VALUE SPACES. DTSIZ42B 00057 10 FILLER PIC X(10) DTSIZ42B 00058 VALUE 'REPORT DUE'. DTSIZ42B 00059 DTSIZ42B 00060 05 HDR-LINE-21. DTSIZ42B 00061 10 FILLER PIC X(58) VALUE SPACES. DTSIZ42B 00062 10 FILLER PIC X(05) DTSIZ42B 00063 VALUE 'DATE:'. DTSIZ42B 00064 10 FILLER PIC X(01) VALUE SPACE. DTSIZ42B 00065 10 WS-SLASH-DUE-DATE PIC X(10). DTSIZ42B 00066 DTSIZ42B 00067 05 HDR-LINE-22 PIC X(133) VALUE SPACES. DTSIZ42B 00068 05 HDR-LINE-23 PIC X(133) VALUE SPACES. DTSIZ42B 00069 05 HDR-LINE-24. DTSIZ42B 00070 10 FILLER PIC X(24) VALUE SPACES. DTSIZ42B 00071 10 FILLER PIC X(30) DTSIZ42B 00072 VALUE 'FINAL DELINQUENT REPORT NOTICE'. DTSIZ42B 00073 DTSIZ42B 00074 01 LETTER-DETAIL-1. DTSIZ42B 00075 05 DTL1-LINE-4. DTSIZ42B 00076 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00077 10 FILLER PIC X(06) DTSIZ42B 00078 VALUE 'As of '. DTSIZ42B 00079 10 WS-SHORT-TEXT-AS-OF-DATE PIC X(12). DTSIZ42B 00080 10 FIlLER PIC X(16) DTSIZ42B 00081 VALUE ' we have not rec'. DTSIZ42B 00082 10 FILLER PIC X(35) DTSIZ42B 00083 VALUE 'eived your Unemployment Insurance'. DTSIZ42B 00084 DTSIZ42B 00085 05 DTL1-LINE-5. DTSIZ42B 00086 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00087 10 DTL1-PARAGRAPH-LINE-1 PIC X(76). DTSIZ42B 00088 DTSIZ42B 00089 05 DTL1-LINE-6. DTSIZ42B 00090 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00091 10 DTL1-PARAGRAPH-LINE-2 PIC X(76). DTSIZ42B 00092 DTSIZ42B 00093 05 DTL1-LINE-7. DTSIZ42B 00094 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00095 10 DTL1-PARAGRAPH-LINE-3 PIC X(76). DTSIZ42B 00096 DTSIZ42B 00097 01 LETTER-DETAIL-2. DTSIZ42B 00098 05 DTL2-LINE-2. DTSIZ42B 00099 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00100 10 FILLER PIC X(33) DTSIZ42B 00101 VALUE 'PLEASE TAKE NOTICE: If all missi'. DTSIZ42B 00102 10 FILLER PIC X(43) DTSIZ42B 00103 VALUE 'ng reports and/or payments are not '. DTSIZ42B 00104 DTSIZ42B 00105 05 DTL2-LINE-3. DTSIZ42B 00106 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00107 10 DTL2-PARAGRAPH-LINE-1 PIC X(76). DTSIZ42B 00108 DTSIZ42B 00109 05 DTL2-LINE-4. DTSIZ42B 00110 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00111 10 DTL2-PARAGRAPH-LINE-2 PIC X(76). DTSIZ42B 00112 DTSIZ42B 00113 01 LETTER-DETAIL-4A. DTSIZ42B 00114 05 DTL4A-LINE-2. DTSIZ42B 00115 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00116 10 FILLER PIC X(39) DTSIZ42B 00117 VALUE 'If you need assistance with the report,'. DTSIZ42B 00118 10 FILLER PIC X(39) DTSIZ42B 00119 VALUE ' please contact the Dept. of '. DTSIZ42B 00120 DTSIZ42B 00121 05 DTL4A-LINE-3. DTSIZ42B 00122 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00123 10 FILLER PIC X(38) DTSIZ42B 00124 VALUE 'Employment Services, Tax Division, at '. DTSIZ42B 00125 10 DTL4A-DISP-UNIT-TEL PIC X(14). DTSIZ42B 00126 10 FILLER PIC X(15) DTSIZ42B 00127 VALUE ', or your field'. DTSIZ42B 00128 DTSIZ42B 00129 05 DTL4A-LINE-4. DTSIZ42B 00130 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00131 10 DTL4A-PARAGRAPH-LINE-1 PIC X(76). DTSIZ42B 00132 DTSIZ42B 00133 05 DTL4A-LINE-5. DTSIZ42B 00134 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00135 10 DTL4A-PARAGRAPH-LINE-2 PIC X(76). DTSIZ42B 00136 DTSIZ42B 00137 05 DTL4A-LINE-6 PiC X(133) VALUE SPACES. DTSIZ42B 00138 05 DTL4A-LINE-7. DTSIZ42B 00139 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00140 DTSIZ42B 00141 01 LETTER-DETAIL-5A. DTSIZ42B 00142 05 DTL5A-LINE-1. DTSIZ42B 00143 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00144 10 DTL5A-TEXT-LINE-5 PIC X(76). DTSIZ42B 00145 DTSIZ42B 00146 01 LETTER-DETAIL-5B. DTSIZ42B 00147 05 DTL5B-LINE-0. DTSIZ42B 00148 10 FILLER PIC X(08) VALUE SPACES. DTSIZ42B 00149 10 DTL5B-TEXT-LINE-5 PIC X(76). DTSIZ42B 00150 DTSIZ42B 00151 01 LETTER-FOOTING. DTSIZ42B 00152 05 LTF-LINE-4. DTSIZ42B 00153 10 FILLER PIC X(28) VALUE SPACES. DTSIZ42B 00154 10 FILLER PIC X(23) DTSIZ42B 00155 VALUE 'THIS IS A FINAL NOTICE!'. DTSIZ42B 00156 DTSIZ42B