00001 ***** 06/19/19 00002 * DTSIZ51A 00003 * DTSIZ51a DTSBR451 REPORT SECTION. DONE AS A SEPARATE LV036 00004 * COPYLIB TO AVOID PUTTING MIXED CASE CODE INTO DTSIZ51A 00005 * DTSBR451. CL*32 00006 * DTSIZ51A 00007 ***** DTSIZ51A 00008 01 LETTER-HEADING. DTSIZ51A 00009 05 HDR-LINE-10. DTSIZ51A 00010 10 FILLER PIC X(37) VALUE SPACES. CL*30 00011 10 WS-LONG-TEXT-MAIL-DATE PIC X(18). DTSIZ51A 00012 DTSIZ51A 00013 05 HDR-LINE-11. DTSIZ51A 00014 10 FILLER PIC X(05) VALUE SPACES. CL*29 00015 10 HDR-FMT-LINE-1 PIC X(40) value spaces. CL*36 00016 10 FILLER PIC X(12) VALUE SPACES. CL*36 00017 10 FILLER PIC X(08) DTSIZ51A 00018 VALUE 'ACCT NO:'. DTSIZ51A 00019 10 FILLER PIC X(01) VALUE SPACE. DTSIZ51A 00020 10 HDR-EMP-NO PIC 999B999. DTSIZ51A 00021 DTSIZ51A 00022 05 HDR-LINE-12. DTSIZ51A 00023 10 FILLER PIC X(05) VALUE SPACES. CL*29 00024 10 HDR-FMT-LINE-2 PIC X(40) value spaces. CL*36 00025 10 FILLER PIC X(12) VALUE SPACES. CL*36 00026 10 FILLER PIC X(08) DTSIZ51A 00027 VALUE 'UI RATE:'. DTSIZ51A 00028 10 FILLER PIC X(01) VALUE SPACE. DTSIZ51A 00029 10 WS-DISP-RATE PIC X(07). DTSIZ51A 00030 DTSIZ51A 00031 05 HDR-LINE-13. DTSIZ51A 00032 10 FILLER PIC X(05) VALUE SPACES. CL*29 00033 10 HDR-FMT-LINE-3 PIC X(40) value spaces. CL*36 00034 10 FILLER PIC X(12) VALUE SPACES. CL*36 00035 10 FILLER PIC X(08) DTSIZ51A 00036 VALUE ' YEAR:'. CL*32 00037 10 FILLER PIC X(01) VALUE SPACE. DTSIZ51A 00038 10 HDR-LONG-YEAR PIC X(04). DTSIZ51A 00039 DTSIZ51A 00040 05 HDR-LINE-14. DTSIZ51A 00041 10 FILLER PIC X(05) VALUE SPACES. CL*29 00042 10 HDR-FMT-LINE-4 PIC X(40) value spaces. CL*25 00043 DTSIZ51A 00044 05 HDR-LINE-15. DTSIZ51A 00045 10 FILLER PIC X(05) VALUE SPACES. CL*29 00046 10 HDR-FMT-LINE-5 PIC X(40) value spaces. CL*36 00047 10 FILLER PIC X(10) VALUE SPACES. CL*36 00048 10 FILLER PIC X(16) DTSIZ51A 00049 VALUE 'REPORT DUE DATE:'. DTSIZ51A 00050 10 FILLER PIC X(01) VALUE SPACE. DTSIZ51A 00051 10 WS-SLASH-DUE-DATE PIC X(10). DTSIZ51A 00052 DTSIZ51A 00053 05 HDR-LINE-16 PIC X(133) VALUE SPACES. DTSIZ51A 00054 DTSIZ51A 00055 01 LETTER-DETAIL-1. DTSIZ51A 00056 05 DTL-LINE-2. DTSIZ51A 00057 10 FILLER PIC X(10) VALUE SPACES. CL*18 00058 10 FILLER PIC X(40) CL**8 00059 VALUE 'We have not received your District of Co'. CL**8 00060 10 FILLER PIC X(40) CL**8 00061 VALUE 'lumbia Unemployment Insurance Annual Con'. CL*32 00062 10 FILLER PIC X(38) CL**8 00063 VALUE 'tribution '. CL*32 00064 DTSIZ51A 00065 05 DTL-LINE-3. DTSIZ51A 00066 10 FILLER PIC X(10) VALUE SPACES. CL*18 00067 10 FILLER PIC X(34) CL*34 00068 VALUE 'and Wage Report for calendar year '. CL*32 00069 10 DTL-LONG-YEAR PIC X(04). DTSIZ51A 00070 10 FILLER PIC X(03) VALUE '. '. CL*33 00071 10 WS-TEXT-LINE-1 PIC X(120). CL*17 00072 05 DTL-LINE-4. CL*34 00073 10 FILLER PIC X(10) VALUE SPACES. CL*34 00074 10 FILLER PIC X(34) CL*34 00075 VALUE 'now delinquent. '. CL*34 00076 05 DTL-LINE-6 PIC X(133) VALUE SPACES. DTSIZ51A 00077 05 DTL-LINE-7. DTSIZ51A 00078 10 FILLER PIC X(10) VALUE SPACES. CL*23 00079 10 WS-TEXT-LINE-3 PIC X(120). CL*23 00080 DTSIZ51A 00081 05 DTL-LINE-8. DTSIZ51A 00082 10 FILLER PIC X(10) VALUE SPACES. CL*18 00083 10 FILLER PIC X(43) CL*35 00084 VALUE 'a copy of the report with proof of payment,'. CL*35 00085 10 FILLER PIC X(42) CL*20 00086 VALUE ' we will estimate your tax obligations and'. CL*20 00087 10 FILLER PIC X(01) VALUE SPACE. DTSIZ51A 00088 10 FILLER PIC X(38) CL*20 00089 VALUE 'assess '. CL*23 00090 DTSIZ51A 00091 05 DTL-LINE-9. CL**6 00092 10 FILLER PIC X(10) VALUE SPACES. CL*18 00093 10 FILLER PIC X(41) CL*23 00094 VALUE 'your account for the amount due. We may '. CL*31 00095 10 FILLER PIC X(40) CL*31 00096 VALUE 'also file a tax lien for all outstanding'. CL*31 00097 10 FILLER PIC X(42) CL*23 00098 VALUE ' amounts. '. CL*23 00099 DTSIZ51A 00100 05 DTL-LINE-11. CL**6 00101 10 FILLER PIC X(10) VALUE SPACES. CL*18 00102 10 FILLER PIC X(41) CL*13 00103 VALUE 'If you have any questions, please contact'. CL*21 00104 10 FILLER PIC X(40) CL*13 00105 VALUE ' the Department of Employment Services, '. CL*21 00106 10 FILLER PIC X(31) CL*13 00107 VALUE 'Tax Division '. CL*23 00108 CL**5 00109 05 DTL-LINE-12. CL**6 00110 10 FILLER PIC X(10) VALUE SPACES. CL*18 00111 10 FILLER PIC X(36) CL*27 00112 VALUE 'at (202) 698-7550. The Tax Division'. CL*27 00113 10 FILLER PIC X(01) value "'". CL*27 00114 10 FILLER PIC X(40) CL*13 00115 VALUE 's fax number is (202) 698-5706. '. CL*28 00116 DTSIZ51A