117 lines
9.2 KiB
COBOL
117 lines
9.2 KiB
COBOL
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
|