135 lines
11 KiB
COBOL
135 lines
11 KiB
COBOL
00001 01 DETAIL-LINE2. 04/11/16
|
|
00002 05 DTL-LINE-2. DTSIZ405
|
|
00003 10 FILLER PIC X(01) VALUE SPACE. LV004
|
|
00004 10 FILLER PIC X(41) CL**4
|
|
00005 VALUE 'I, Robert Thompson, Associate Director, U'. CL**4
|
|
00006 10 FILLER PIC X(40) DTSIZ405
|
|
00007 VALUE 'nemployment Insurance Compliance, Depart'. DTSIZ405
|
|
00008 10 FILLER PIC X(40) DTSIZ405
|
|
00009 VALUE ' '. DTSIZ405
|
|
00010 05 DTL-LINE-2B. DTSIZ405
|
|
00011 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00012 10 FILLER PIC X(40) DTSIZ405
|
|
00013 VALUE 'ment Employment Services, in pursuant of'. DTSIZ405
|
|
00014 10 FILLER PIC X(33) DTSIZ405
|
|
00015 VALUE ' section 4(e) of an Act entitled '. DTSIZ405
|
|
00016 10 FILLER PIC X(10) DTSIZ405
|
|
00017 VALUE 'An Act '. DTSIZ405
|
|
00018 05 DTL-LINE-3. DTSIZ405
|
|
00019 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00020 10 FILLER PIC X(40) DTSIZ405
|
|
00021 VALUE 'to amend the District of Columbia Unempl'. DTSIZ405
|
|
00022 10 FILLER PIC X(41) DTSIZ405
|
|
00023 VALUE 'oyment Compensation Act to provide for'. DTSIZ405
|
|
00024 05 DTL-LINE-4. DTSIZ405
|
|
00025 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00026 10 FILLER PIC X(41) DTSIZ405
|
|
00027 VALUE 'unemployment compensation in the District'.DTSIZ405
|
|
00028 10 FILLER PIC X(36) DTSIZ405
|
|
00029 VALUE ' of Columbia, and for other purposes'. DTSIZ405
|
|
00030 05 DTL-LINE-5. DTSIZ405
|
|
00031 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00032 10 FILLER PIC X(38) DTSIZ405
|
|
00033 VALUE 'approved June 4, 1943, as amended July'. DTSIZ405
|
|
00034 10 FILLER PIC X(41) DTSIZ405
|
|
00035 VALUE ' 5, 1966, do hereby certify that the'. DTSIZ405
|
|
00036 05 DTL-LINE-6. DTSIZ405
|
|
00037 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00038 10 FILLER PIC X(40) DTSIZ405
|
|
00039 VALUE 'liability for the amount of the contribu'. DTSIZ405
|
|
00040 10 FILLER PIC X(40) DTSIZ405
|
|
00041 VALUE 'tion on tax imposed by the Certificate'. DTSIZ405
|
|
00042 05 DTL-LINE-7. DTSIZ405
|
|
00043 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00044 10 FILLER PIC X(39) DTSIZ405
|
|
00045 VALUE 'of Delinquent Taxes and Notice of Lien'. DTSIZ405
|
|
00046 10 FILLER PIC X(29) DTSIZ405
|
|
00047 VALUE 'thereof, OUC Certificate No. '. DTSIZ405
|
|
00048 10 WS-CERT-NO-R PIC X(10). DTSIZ405
|
|
00049 05 DTL-LINE-9. DTSIZ405
|
|
00050 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00051 10 FILLER PIC X(16) DTSIZ405
|
|
00052 VALUE 'filed herein on '. DTSIZ405
|
|
00053 10 WS-SLASH-DATE PIC X(10). DTSIZ405
|
|
00054 10 FILLER PIC X(14) DTSIZ405
|
|
00055 VALUE ', together wit'. DTSIZ405
|
|
00056 10 FILLER PIC X(40) DTSIZ405
|
|
00057 VALUE 'h all interest and penalties in respect '. DTSIZ405
|
|
00058 05 DTL-LINE-10. DTSIZ405
|
|
00059 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00060 10 FILLER PIC X(40) DTSIZ405
|
|
00061 VALUE 'thereof, has been satisfied and said Cer'. DTSIZ405
|
|
00062 10 FILLER PIC X(40) DTSIZ405
|
|
00063 VALUE 'tificate and Lien are hereby released. '. DTSIZ405
|
|
00064 05 DTL-LINE-11. DTSIZ405
|
|
00065 ** 05 LINE PLUS 1 PRESENT WHEN WRK-TODAY-DAY < 10. DTSIZ405
|
|
00066 10 FILLER PIC X(06) VALUE SPACES. DTSIZ405
|
|
00067 10 FILLER PIC X(33) DTSIZ405
|
|
00068 VALUE 'Subscribed and certified to this '. DTSIZ405
|
|
00069 10 WRK-TODAY-DAY-LINE-11 PIC ZZ. DTSIZ405
|
|
00070 10 WRK-DAY-SFX-LINE-11 PIC X(02). DTSIZ405
|
|
00071 10 FILLER PIC X(08) DTSIZ405
|
|
00072 VALUE ' day of '. DTSIZ405
|
|
00073 10 WRK-MONTH-YEAR-LINE-11 PIC X(16). DTSIZ405
|
|
00074 05 DTL-LINE-12. DTSIZ405
|
|
00075 ** 05 LINE PLUS 1 PRESENT WHEN WRK-TODAY-DAY > 9. DTSIZ405
|
|
00076 10 FILLER PIC X(06) VALUE SPACES. DTSIZ405
|
|
00077 10 FILLER PIC X(33) DTSIZ405
|
|
00078 VALUE 'Subscribed and certified to this '. DTSIZ405
|
|
00079 10 WRK-TODAY-DAY-LINE-12 PIC ZZ. DTSIZ405
|
|
00080 10 WRK-DAY-SFX-LINE-12 PIC X(02). DTSIZ405
|
|
00081 10 FILLER PIC X(08) DTSIZ405
|
|
00082 VALUE ' day of '. DTSIZ405
|
|
00083 10 WRK-MONTH-YEAR-LINE-12 PIC X(16). DTSIZ405
|
|
00084 05 DTL-LINE-13 PIC X(133) VALUE SPACES. DTSIZ405
|
|
00085 05 DTL-LINE-14 PIC X(133) VALUE SPACES. DTSIZ405
|
|
00086 05 DTL-LINE-15 PIC X(133) VALUE SPACES. DTSIZ405
|
|
00087 05 DTL-LINE-16. DTSIZ405
|
|
00088 10 FILLER PIC X(40) VALUE SPACES. DTSIZ405
|
|
00089 10 FILLER PIC X(40) DTSIZ405
|
|
00090 VALUE '_________________________________ '. DTSIZ405
|
|
00091 05 DTL-LINE-16-1. DTSIZ405
|
|
00092 10 FILLER PIC X(40) VALUE SPACES. DTSIZ405
|
|
00093 10 FILLER PIC X(24) DTSIZ405
|
|
00094 VALUE 'Associate Director'. DTSIZ405
|
|
00095 05 DTL-LINE-17. CL**3
|
|
00096 10 FILLER PIC X(40) VALUE SPACES. CL**3
|
|
00097 10 FILLER PIC X(35) CL**3
|
|
00098 VALUE 'Unemployment Insurance Compliance'. CL**3
|
|
00099 05 DTL-LINE-18. DTSIZ405
|
|
00100 10 FILLER PIC X(40) VALUE SPACES. DTSIZ405
|
|
00101 10 FILLER PIC X(38) DTSIZ405
|
|
00102 VALUE 'Department of Employment Services'. DTSIZ405
|
|
00103 05 DTL-LINE-19 PIC X(133) VALUE SPACES. DTSIZ405
|
|
00104 05 DTL-LINE-20 PIC X(133) VALUE SPACES. DTSIZ405
|
|
00105 05 DTL-LINE-21. DTSIZ405
|
|
00106 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00107 10 FILLER PIC X(33) DTSIZ405
|
|
00108 VALUE 'Department of Employment Services'. DTSIZ405
|
|
00109 05 DTL-LINE-22. DTSIZ405
|
|
00110 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00111 10 FILLER PIC X(35) DTSIZ405
|
|
00112 VALUE 'Office of Unemployment Compensation'. DTSIZ405
|
|
00113 * 05 DTL-LINE-23. DTSIZ405
|
|
00114 * 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00115 * 10 FILLER PIC X(28) DTSIZ405
|
|
00116 * VALUE 'Employment Security Building'. DTSIZ405
|
|
00117 05 DTL-LINE-24. DTSIZ405
|
|
00118 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00119 10 WS-MAIL1-PHYS1-STRING PIC X(40). DTSIZ405
|
|
00120 05 DTL-LINE-25. DTSIZ405
|
|
00121 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00122 10 WS-AGY-MAIL2-NO-CAPS PIC X(40). DTSIZ405
|
|
00123 05 DTL-LINE-26. DTSIZ405
|
|
00124 10 FILLER PIC X(01) VALUE SPACE. DTSIZ405
|
|
00125 10 FILLER PIC X(12) DTSIZ405
|
|
00126 VALUE 'Telephone: ('. DTSIZ405
|
|
00127 10 ws-FLD-voice-area PIC X(03) value spaces. DTSIZ405
|
|
00128 10 filler PIC X(02) value ') '. DTSIZ405
|
|
00129 10 ws-FLD-voice-1 PIC X(03) value spaces. DTSIZ405
|
|
00130 10 filler PIC X(01) value '-'. DTSIZ405
|
|
00131 10 ws-FLD-voice-2 PIC X(04) value spaces. DTSIZ405
|
|
00132 10 filler PIC X(04) value ' - '. DTSIZ405
|
|
00133 10 ws-fld-rep-name PIC X(32). DTSIZ405
|
|
00134 SKIP2 DTSIZ405
|