217 lines
17 KiB
COBOL
217 lines
17 KiB
COBOL
00001 * Modified: Brian McGough 09/20/00
|
|
00002 * Date: Nov 6th 1998 DTSIZ112
|
|
00003 * LV021
|
|
00004 SKIP2 DTSIZ112
|
|
00005 01 NOTICE-PAGE. DTSIZ112
|
|
00006 05 NOP-LINE-1. DTSIZ112
|
|
00007 10 FILLER PIC X(32) VALUE SPACES. DTSIZ112
|
|
00008 10 WS-NOP-AGY-NAMEB1-CAPS PIC X(40) VALUE SPACES. DTSIZ112
|
|
00009 05 NOP-LINE-2. DTSIZ112
|
|
00010 10 FILLER PIC X(25) VALUE SPACES. DTSIZ112
|
|
00011 10 WS-NOP-AGY-NAMEB2-CAPS PIC X(50) VALUE SPACES. DTSIZ112
|
|
00012 05 NOP-LINE-3. DTSIZ112
|
|
00013 10 FILLER PIC X(24) VALUE SPACES. DTSIZ112
|
|
00014 10 WS-NOP-PROGRAM-NAME-CAPS PIC X(40) VALUE SPACES. DTSIZ112
|
|
00015 05 NOP-LINE-4. DTSIZ112
|
|
00016 10 FILLER PIC X(29) VALUE SPACES. DTSIZ112
|
|
00017 10 WS-NOP-AGY-MAIL1 PIC X(40) VALUE SPACES. DTSIZ112
|
|
00018 05 NOP-LINE-5. DTSIZ112
|
|
00019 10 FILLER PIC X(32) VALUE SPACES. DTSIZ112
|
|
00020 10 WS-NOP-AGY-MAIL2 PIC X(40) VALUE SPACES. DTSIZ112
|
|
00021 05 NOP-LINE-6 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00022 05 NOP-LINE-7. DTSIZ112
|
|
00023 10 FILLER PIC X(19) VALUE SPACES. DTSIZ112
|
|
00024 10 FILLER PIC X(16) DTSIZ112
|
|
00025 VALUE 'TELEPHONE (202) '. DTSIZ112
|
|
00026 10 WS-PROGRAM-VOICE-ONE PIC X(03) VALUE SPACES. DTSIZ112
|
|
00027 10 FILLER PIC X(01) DTSIZ112
|
|
00028 VALUE '-'. DTSIZ112
|
|
00029 10 WS-PROGRAM-VOICE-TWO PIC X(04) VALUE SPACES. DTSIZ112
|
|
00030 10 FILLER PIC X(02) VALUE SPACES. DTSIZ112
|
|
00031 10 FILLER PIC X(10) DTSIZ112
|
|
00032 VALUE 'FAX (202) '. DTSIZ112
|
|
00033 10 WS-PROGRAM-FAX-ONE PIC X(03) VALUE SPACES. DTSIZ112
|
|
00034 10 FILLER PIC X(01) DTSIZ112
|
|
00035 VALUE '-'. DTSIZ112
|
|
00036 10 WS-PROGRAM-FAX-TWO PIC X(04) VALUE SPACES. DTSIZ112
|
|
00037 05 NOP-LINE-8 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00038 05 NOP-LINE-9 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00039 05 NOP-LINE-10. DTSIZ112
|
|
00040 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00041 10 FILLER PIC X(05) DTSIZ112
|
|
00042 VALUE 'DATE:'. DTSIZ112
|
|
00043 10 FILLER PIC X(02) VALUE SPACES. DTSIZ112
|
|
00044 10 WS-SLASH-8-DATE PIC X(10) VALUE SPACES. DTSIZ112
|
|
00045 05 NOP-LINE-11 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00046 05 NOP-LINE-12. DTSIZ112
|
|
00047 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00048 10 FILLER PIC X(14) DTSIZ112
|
|
00049 VALUE 'UI ACCOUNT NO.'. DTSIZ112
|
|
00050 10 FILLER PIC X(06) VALUE SPACES. DTSIZ112
|
|
00051 10 WS-EMP-NO PIC 999B999. DTSIZ112
|
|
00052 05 NOP-LINE-13 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00053 05 NOP-LINE-14. DTSIZ112
|
|
00054 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00055 10 WS-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSIZ112
|
|
00056 05 NOP-LINE-15. DTSIZ112
|
|
00057 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00058 10 WS-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSIZ112
|
|
00059 05 NOP-LINE-16. DTSIZ112
|
|
00060 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00061 10 WS-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSIZ112
|
|
00062 05 NOP-LINE-17. DTSIZ112
|
|
00063 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00064 10 WS-FMT-LINE-4 PIC X(40) VALUE SPACES. DTSIZ112
|
|
00065 05 NOP-LINE-18. DTSIZ112
|
|
00066 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00067 10 WS-FMT-LINE-5 PIC X(40) VALUE SPACES. DTSIZ112
|
|
00068 05 NOP-LINE-19 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00069 05 NOP-LINE-20 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00070 05 NOP-LINE-21. DTSIZ112
|
|
00071 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00072 10 FILLER PIC X(40) DTSIZ112
|
|
00073 VALUE 'This is your mailing address; notify us '. DTSIZ112
|
|
00074 10 FILLER PIC X(40) DTSIZ112
|
|
00075 VALUE 'of any corrections. '. DTSIZ112
|
|
00076 05 NOP-LINE-22 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00077 05 NOP-LINE-23 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00078 05 NOP-LINE-24. DTSIZ112
|
|
00079 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00080 10 FILLER PIC X(14) DTSIZ112
|
|
00081 VALUE 'RATE EFFECTIVE'. DTSIZ112
|
|
00082 10 FILLER PIC X(13) VALUE SPACES. DTSIZ112
|
|
00083 10 FILLER PIC X(12) DTSIZ112
|
|
00084 VALUE 'CONTRIBUTION'. DTSIZ112
|
|
00085 05 NOP-LINE-25. DTSIZ112
|
|
00086 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00087 10 FILLER PIC X(14) DTSIZ112
|
|
00088 VALUE ' QUARTERS '. DTSIZ112
|
|
00089 10 FILLER PIC X(13) VALUE SPACES. DTSIZ112
|
|
00090 10 FILLER PIC X(12) DTSIZ112
|
|
00091 VALUE ' RATE '. DTSIZ112
|
|
00092 05 NOP-LINE-26 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00093 05 NOP-LINE-27. DTSIZ112
|
|
00094 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00095 10 WS-RATE-YRQ-LB-X-1 PIC X(06). DTSIZ112
|
|
00096 10 FILLER PIC X(01) VALUE SPACE. DTSIZ112
|
|
00097 10 WS-RATE-YRQ-DASH-1 PIC X(01). DTSIZ112
|
|
00098 10 FILLER PIC X(01) VALUE SPACE. DTSIZ112
|
|
00099 10 WS-RATE-YRQ-UB-X-1 PIC X(06). DTSIZ112
|
|
00100 10 FILLER PIC X(11) VALUE SPACES. DTSIZ112
|
|
00101 10 WS-UI-RATE-AREA-1 PIC X(12). DTSIZ112
|
|
00102 05 NOP-LINE-28. DTSIZ112
|
|
00103 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00104 10 WS-RATE-YRQ-LB-X-2 PIC X(06). DTSIZ112
|
|
00105 10 FILLER PIC X(01). DTSIZ112
|
|
00106 10 WS-RATE-YRQ-DASH-2 PIC X(01). DTSIZ112
|
|
00107 10 FILLER PIC X(01). DTSIZ112
|
|
00108 10 WS-RATE-YRQ-UB-X-2 PIC X(06). DTSIZ112
|
|
00109 10 FILLER PIC X(11). DTSIZ112
|
|
00110 10 WS-UI-RATE-AREA-2 PIC X(12). DTSIZ112
|
|
00111 05 NOP-LINE-29. DTSIZ112
|
|
00112 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00113 10 WS-RATE-YRQ-LB-X-3 PIC X(06). DTSIZ112
|
|
00114 10 FILLER PIC X(01). DTSIZ112
|
|
00115 10 WS-RATE-YRQ-DASH-3 PIC X(01). DTSIZ112
|
|
00116 10 FILLER PIC X(01). DTSIZ112
|
|
00117 10 WS-RATE-YRQ-UB-X-3 PIC X(06). DTSIZ112
|
|
00118 10 FILLER PIC X(11). DTSIZ112
|
|
00119 10 WS-UI-RATE-AREA-3 PIC X(12). DTSIZ112
|
|
00120 05 NOP-LINE-30. DTSIZ112
|
|
00121 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00122 10 WS-RATE-YRQ-LB-X-4 PIC X(06). DTSIZ112
|
|
00123 10 FILLER PIC X(01). DTSIZ112
|
|
00124 10 WS-RATE-YRQ-DASH-4 PIC X(01). DTSIZ112
|
|
00125 10 FILLER PIC X(01). DTSIZ112
|
|
00126 10 WS-RATE-YRQ-UB-X-4 PIC X(06). DTSIZ112
|
|
00127 10 FILLER PIC X(11). DTSIZ112
|
|
00128 10 WS-UI-RATE-AREA-4 PIC X(12). DTSIZ112
|
|
00129 05 NOP-LINE-31. DTSIZ112
|
|
00130 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00131 10 WS-RATE-YRQ-LB-X-5 PIC X(06). DTSIZ112
|
|
00132 10 FILLER PIC X(01). DTSIZ112
|
|
00133 10 WS-RATE-YRQ-DASH-5 PIC X(01). DTSIZ112
|
|
00134 10 FILLER PIC X(01). DTSIZ112
|
|
00135 10 WS-RATE-YRQ-UB-X-5 PIC X(06). DTSIZ112
|
|
00136 10 FILLER PIC X(11). DTSIZ112
|
|
00137 10 WS-UI-RATE-AREA-5 PIC X(12). DTSIZ112
|
|
00138 05 NOP-LINE-32. DTSIZ112
|
|
00139 10 FILLER PIC X(15) VALUE SPACES. DTSIZ112
|
|
00140 10 WS-RATE-YRQ-LB-X-6 PIC X(06). DTSIZ112
|
|
00141 10 FILLER PIC X(01). DTSIZ112
|
|
00142 10 WS-RATE-YRQ-DASH-6 PIC X(01). DTSIZ112
|
|
00143 10 FILLER PIC X(01). DTSIZ112
|
|
00144 10 WS-RATE-YRQ-UB-X-6 PIC X(06). DTSIZ112
|
|
00145 10 FILLER PIC X(11). DTSIZ112
|
|
00146 10 WS-UI-RATE-AREA-6 PIC X(12). DTSIZ112
|
|
00147 05 NOP-LINE-33 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00148 05 NOP-LINE-34. DTSIZ112
|
|
00149 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00150 10 FILLER PIC X(40) DTSIZ112
|
|
00151 VALUE 'You have been determined subject to the '. DTSIZ112
|
|
00152 10 FILLER PIC X(40) DTSIZ112
|
|
00153 VALUE 'reporting provisions of the District '. DTSIZ112
|
|
00154 05 NOP-LINE-35. DTSIZ112
|
|
00155 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00156 10 FILLER PIC X(11) DTSIZ112
|
|
00157 VALUE 'of Columbia'. DTSIZ112
|
|
00158 10 FILLER PIC X(01) DTSIZ112
|
|
00159 VALUE quote. DTSIZ112
|
|
00160 10 FILLER PIC X(28) DTSIZ112
|
|
00161 VALUE 's Unemployment Insurance Law'. DTSIZ112
|
|
00162 10 FILLER PIC X(40) DTSIZ112
|
|
00163 VALUE '. Please include your account number '. DTSIZ112
|
|
00164 05 NOP-LINE-36. DTSIZ112
|
|
00165 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00166 10 FILLER PIC X(40) DTSIZ112
|
|
00167 VALUE 'on all correspondence with this agency. '. DTSIZ112
|
|
00168 05 NOP-LINE-37 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00169 05 NOP-LINE-38. DTSIZ112
|
|
00170 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00171 10 FILLER PIC X(40) DTSIZ112
|
|
00172 VALUE 'Reporting forms will be sent to you at t'. DTSIZ112
|
|
00173 10 FILLER PIC X(40) DTSIZ112
|
|
00174 VALUE 'he end of each calendar quarter. '. DTSIZ112
|
|
00175 05 NOP-LINE-39. DTSIZ112
|
|
00176 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00177 10 FILLER PIC X(40) DTSIZ112
|
|
00178 VALUE 'These reports must be postmarked by the '. DTSIZ112
|
|
00179 10 FILLER PIC X(40) DTSIZ112
|
|
00180 VALUE 'last day of April, July, October '. DTSIZ112
|
|
00181 05 NOP-LINE-40. DTSIZ112
|
|
00182 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00183 10 FILLER PIC X(40) DTSIZ112
|
|
00184 VALUE 'and January of each year. '. DTSIZ112
|
|
00185 05 NOP-LINE-41 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00186 05 NOP-LINE-42. DTSIZ112
|
|
00187 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00188 10 FILLER PIC X(40) DTSIZ112
|
|
00189 VALUE 'If we can be of any further assistance, '. DTSIZ112
|
|
00190 10 FILLER PIC X(40) DTSIZ112
|
|
00191 VALUE 'please write to the above address. '. DTSIZ112
|
|
00192 05 NOP-LINE-43 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00193 05 NOP-LINE-44 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00194 05 NOP-LINE-45. DTSIZ112
|
|
00195 10 FILLER PIC X(35) VALUE SPACES. DTSIZ112
|
|
00196 10 FILLER PIC X(13) DTSIZ112
|
|
00197 VALUE 'APPEAL RIGHTS'. DTSIZ112
|
|
00198 05 NOP-LINE-46 PIC X(133) VALUE SPACES. DTSIZ112
|
|
00199 05 NOP-LINE-47. DTSIZ112
|
|
00200 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00201 10 FILLER PIC X(40) DTSIZ112
|
|
00202 VALUE 'This decision will become final unless y'. DTSIZ112
|
|
00203 10 FILLER PIC X(40) DTSIZ112
|
|
00204 VALUE 'ou file a written notice of '. DTSIZ112
|
|
00205 05 NOP-LINE-48. DTSIZ112
|
|
00206 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00207 10 FILLER PIC X(40) DTSIZ112
|
|
00208 VALUE 'appeal within thirty (30) calendar days '. DTSIZ112
|
|
00209 10 FILLER PIC X(40) DTSIZ112
|
|
00210 VALUE 'of the date of this letter, '. DTSIZ112
|
|
00211 05 NOP-LINE-49. DTSIZ112
|
|
00212 10 FILLER PIC X(07) VALUE SPACES. DTSIZ112
|
|
00213 10 FILLER PIC X(40) DTSIZ112
|
|
00214 VALUE 'with the Unemployment Insurance Division'. DTSIZ112
|
|
00215 10 FILLER PIC X(40) DTSIZ112
|
|
00216 VALUE ' of the District of Columbia. '. DTSIZ112
|