giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MP Batchs, copybooks, jcls, Procs

Browse Source
This commit is contained in:
Manoj Patel
2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

289
Copybook/DTSIW119.cpy Normal file
View File

@ -0,0 +1,289 @@
00001 *Modified: z. lalputan 01/29/20
00002 *Date: 12 december 2019 DTSIW119
00003 * LV007
00004 SKIP2 DTSIW119
00005 01 GENERIC-LETTER. DTSIW119
00006 05 GEN-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00007 05 GEN-LINE-2 PIC X(133) VALUE SPACES. DTSIW119
00008 05 GEN-LINE-3. DTSIW119
00009 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00010 10 FILLER PIC X(50) VALUE CL**2
00011 'The District of Columbia Unemployment Insurance Ta'. CL**7
00012 10 FILLER PIC X(40) CL**2
00013 VALUE 'x Division has received and processed'. CL**2
00014 05 GEN-LINE-4. CL**2
00015 10 FILLER PIC X(02) VALUE SPACES. CL**2
00016 10 FILLER PIC X(44) VALUE CL**2
00017 'your request to close your employer account '. CL**2
00018 10 gen-emp-no PIC 9(06). CL**5
00019 10 filler PIC X(01) VALUE '.'. CL**2
00020 10 FILLER PIC X(40) CL**2
00021 VALUE ' This notice confirms that '. CL**6
00022 05 GEN-LINE-5. CL**2
00023 10 FILLER PIC X(02) VALUE SPACES. CL**2
00024 10 FILLER PIC X(50) VALUE CL**2
00025 'your account has been closed. Please note that th'. CL**2
00026 10 FILLER PIC X(40) CL**2
00027 VALUE 'e inactivation of this account also '. CL**2
00028 05 GEN-LINE-6. CL**2
00029 10 FILLER PIC X(02) VALUE SPACES. CL**2
00030 10 FILLER PIC X(50) VALUE CL**2
00031 'terminates all user access via the Employer Self S'. CL**4
00032 10 FILLER PIC X(40) CL**2
00033 VALUE 'ervice Portal (ESSP). Any balance due'. CL**4
00034 05 GEN-LINE-7. CL**2
00035 10 FILLER PIC X(02) VALUE SPACES. CL**2
00036 10 FILLER PIC X(50) VALUE CL**2
00037 'or missing wage reports must be submitted via regu'. CL**4
00038 10 FILLER PIC X(40) CL**2
00039 VALUE 'lar U.S. mail to DOES - UI Tax '. CL**4
00040 05 GEN-LINE-8. CL**2
00041 10 FILLER PIC X(02) VALUE SPACES. CL**2
00042 10 FILLER PIC X(50) VALUE CL**2
00043 'Division, P.O. Box 96664, Washingtion, DC 20019. '. CL**4
00044 10 FILLER PIC X(40) CL**2
00045 VALUE ' '. CL**2
00046 05 gen-LINE-9 PIC X(133) VALUE SPACES. CL**2
00047 05 gen-LINE-10 PIC X(133) VALUE SPACES. CL**2
00048 05 GEN-LINE-11. CL**2
00049 10 FILLER PIC X(02) VALUE SPACES. CL**2
00050 10 FILLER PIC X(50) VALUE CL**2
00051 'Reimbursable employers, please be advised that you'. CL**4
00052 10 FILLER PIC X(40) CL**2
00053 VALUE ' may be responsible for reimbursing '. CL**4
00054 05 GEN-LINE-12. CL**3
00055 10 FILLER PIC X(02) VALUE SPACES. CL**3
00056 10 FILLER PIC X(50) VALUE CL**3
00057 'the Unemployment Trust Fund for Unemployment Insur'. CL**6
00058 10 FILLER PIC X(40) CL**3
00059 VALUE 'ance Benefits paid to former employees'. CL**4
00060 05 GEN-LINE-13. CL**3
00061 10 FILLER PIC X(02) VALUE SPACES. CL**3
00062 10 FILLER PIC X(50) VALUE CL**3
00063 'up to five (5) quarters after your inactivation ef'. CL**4
00064 10 FILLER PIC X(40) CL**3
00065 VALUE 'fective date. For more information, '. CL**4
00066 05 GEN-LINE-14. CL**3
00067 10 FILLER PIC X(02) VALUE SPACES. CL**3
00068 10 FILLER PIC X(50) VALUE CL**3
00069 'please submit your inquires to UITax.Info@dc.gov. '. CL**4
00070 10 FILLER PIC X(40) CL**3
00071 VALUE ' '. CL**3
00072 05 gen-LINE-15 pic x(90) value spaces. CL**3
00073 05 gen-LINE-16 pic x(90) value spaces. CL**3
00074 05 gen-LINE-17. CL**3
00075 10 FILLER PIC X(02) VALUE SPACES. CL**3
00076 10 FILLER PIC X(49) VALUE CL**3
00077 'If you resume paying wages in the District of Col'. CL**3
00078 10 FILLER PIC X(36) CL**3
00079 VALUE 'umbia within three (3) years of the '. CL**3
00080 05 gen-LINE-18. CL**3
00081 10 FILLER PIC X(02) VALUE SPACES. CL**3
00082 10 FILLER PIC X(49) VALUE CL**3
00083 'last active quarter, please submit a written requ'. CL**3
00084 10 FILLER PIC X(36) CL**3
00085 VALUE 'est to reopen your account at '. CL**3
00086 05 gen-LINE-19. CL**3
00087 10 FILLER PIC X(02) VALUE SPACES. CL**3
00088 10 FILLER PIC X(50) VALUE CL**3
00089 'UITax.Info@dc.gov '. CL**3
00090 SKIP2 DTSIW119
00091 01 DEMAND-LETTER. DTSIW119
00092 05 DML-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00093 05 DML-LINE-2 PIC X(133) VALUE SPACES. DTSIW119
00094 05 DML-LINE-3. DTSIW119
00095 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00096 10 FILLER PIC X(50) VALUE DTSIW119
00097 'The Unemployment Insurance Division requires that '. DTSIW119
00098 10 FILLER PIC X(40) DTSIW119
00099 VALUE 'an employer file a Contribution and '. DTSIW119
00100 05 DML-LINE-4. DTSIW119
00101 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00102 10 FILLER PIC X(50) VALUE DTSIW119
00103 'Wage Report and submit payment upon termination of'. DTSIW119
00104 10 FILLER PIC X(50) VALUE DTSIW119
00105 ' your account. '. DTSIW119
00106 05 DML-LINE-5 PIC X(133) VALUE SPACES. DTSIW119
00107 05 DML-LINE-6. DTSIW119
00108 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00109 10 FILLER PIC X(50) VALUE DTSIW119
00110 'Please complete and return the enclosed Contributi'. DTSIW119
00111 10 FILLER PIC X(40) DTSIW119
00112 VALUE 'on and Wage Report with payment.'. DTSIW119
00113 05 DML-LINE-7. DTSIW119
00114 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00115 10 FILLER PIC X(50) VALUE DTSIW119
00116 'If payment is not received WITHIN 30 DAYS, taxes a'. DTSIW119
00117 10 FILLER PIC X(40) DTSIW119
00118 VALUE 're subject to penalty and interest. '. DTSIW119
00119 05 DML-LINE-9 PIC X(133) VALUE SPACES. DTSIW119
00120 05 DML-LINE-10. DTSIW119
00121 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00122 10 FILLER PIC X(40) DTSIW119
00123 VALUE 'If you have any questions, please contac'. DTSIW119
00124 10 FILLER PIC X(40) DTSIW119
00125 VALUE 't me. '. DTSIW119
00126 SKIP2 DTSIW119
00127 01 EIGHT-QTR-NONES-LETTER. DTSIW119
00128 05 EQN-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00129 05 EQN-LINE-2 PIC X(133) VALUE SPACES. DTSIW119
00130 05 EQN-LINE-3. DTSIW119
00131 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00132 10 FILLER PIC X(50) VALUE DTSIW119
00133 'In accordance with U.S. Department of Labor regula'. DTSIW119
00134 10 FILLER PIC X(37) DTSIW119
00135 VALUE 'tions, the District of Columbia '. DTSIW119
00136 05 EQN-LINE-4. DTSIW119
00137 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00138 10 FILLER PIC X(50) VALUE DTSIW119
00139 'Unemployment Insurance Tax Division is required to'. DTSIW119
00140 10 FILLER PIC X(40) DTSIW119
00141 VALUE ' administratively inactivate your '. DTSIW119
00142 05 EQN-LINE-41. DTSIW119
00143 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00144 10 FILLER PIC X(50) VALUE DTSIW119
00145 'employer account due to no-wage reports filed or n'. DTSIW119
00146 10 FILLER PIC X(38) DTSIW119
00147 VALUE 'o reports filed for the last (8) '. DTSIW119
00148 05 EQN-LINE-42. DTSIW119
00149 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00150 10 FILLER PIC X(50) VALUE DTSIW119
00151 'consecutive calendar quarters. The last day of the'. DTSIW119
00152 10 FILLER PIC X(36) DTSIW119
00153 VALUE ' eight no-wage quarter determines '. DTSIW119
00154 05 EQN-LINE-43. DTSIW119
00155 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00156 10 FILLER PIC X(50) VALUE DTSIW119
00157 'the account effective date of inactivation. '. DTSIW119
00158 05 EQN-LINE-44. DTSIW119
00159 10 FILLER PIC X(90) VALUE SPACES. DTSIW119
00160 05 EQN-LINE-45. DTSIW119
00161 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00162 10 FILLER PIC X(50) VALUE DTSIW119
00163 'Your account has been administratively inactivated'. DTSIW119
00164 10 FILLER PIC X(11) DTSIW119
00165 VALUE ' effective '. DTSIW119
00166 10 eqn-eff-date PIC X(10). DTSIW119
00167 10 FILLER PIC X(10) DTSIW119
00168 VALUE '. Please'. DTSIW119
00169 05 EQN-LINE-46. DTSIW119
00170 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00171 10 FILLER PIC X(50) VALUE DTSIW119
00172 'note that the inactivation of this account also te'. DTSIW119
00173 10 FILLER PIC X(36) DTSIW119
00174 VALUE 'rminates all user access via the '. DTSIW119
00175 05 EQN-LINE-47. DTSIW119
00176 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00177 10 FILLER PIC X(50) VALUE DTSIW119
00178 'Employer Self Service Portal (ESSP). Any balance d'. DTSIW119
00179 10 FILLER PIC X(36) DTSIW119
00180 VALUE 'ue or missing wage reports must be '. DTSIW119
00181 05 EQN-LINE-48. DTSIW119
00182 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00183 10 FILLER PIC X(50) VALUE DTSIW119
00184 'submitted via regular U.S. mail to DOES - UI Tax '. DTSIW119
00185 10 FILLER PIC X(36) DTSIW119
00186 VALUE 'Division, P.O. Box 96664, '. DTSIW119
00187 05 EQN-LINE-49. DTSIW119
00188 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00189 10 FILLER PIC X(50) VALUE DTSIW119
00190 'Washington, DC 20019. '. DTSIW119
00191 10 FILLER PIC X(36) DTSIW119
00192 VALUE ' '. DTSIW119
00193 05 EQN-LINE-50 pic x(90) value spaces. DTSIW119
00194 05 EQN-LINE-51. DTSIW119
00195 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00196 10 FILLER PIC X(49) VALUE DTSIW119
00197 'If you resume paying wages in the District of Col'. DTSIW119
00198 10 FILLER PIC X(36) DTSIW119
00199 VALUE 'umbia within three (3) years of the '. DTSIW119
00200 05 EQN-LINE-52. DTSIW119
00201 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00202 10 FILLER PIC X(49) VALUE DTSIW119
00203 'last active quarter, please submit a written requ'. DTSIW119
00204 10 FILLER PIC X(36) DTSIW119
00205 VALUE 'est to reopen your account at '. DTSIW119
00206 05 EQN-LINE-53. DTSIW119
00207 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00208 10 FILLER PIC X(50) VALUE DTSIW119
00209 'UITax.Info@dc.gov '. DTSIW119
00210 * 05 EQN-LINE-5. DTSIW119
00211 * 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00212 * 10 FILLER PIC X(50) VALUE DTSIW119
00213 * 'uitax.info@dc.gov '. DTSIW119
00214 05 EQN-LINE-11 PIC X(133) VALUE SPACES. DTSIW119
00215 05 EQN-LINE-12. DTSIW119
00216 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00217 10 FILLER PIC X(50) VALUE DTSIW119
00218 ' '. DTSIW119
00219 10 FILLER PIC X(36) DTSIW119
00220 VALUE ' '. DTSIW119
00221 05 EQN-LINE-14. DTSIW119
00222 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00223 10 FILLER PIC X(50) value DTSIW119
00224 ' '. DTSIW119
00225 10 FILLER PIC X(36) value DTSIW119
00226 ' '. DTSIW119
00227 05 EQN-LINE-141. DTSIW119
00228 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00229 10 FILLER PIC X(50) value DTSIW119
00230 ' '. DTSIW119
00231 SKIP2 DTSIW119
00232 01 LETTER-FOOTING. DTSIW119
00233 05 LTF-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00234 05 LTF-LINE-2. DTSIW119
00235 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00236 10 FILLER PIC X(40) DTSIW119
00237 VALUE 'Sincerely, '. DTSIW119
00238 05 LTF-LINE-6 PIC X(133) VALUE SPACES. DTSIW119
00239 05 LTF-LINE-7. DTSIW119
00240 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00241 10 filler PIC X(50) value DTSIW119
00242 'Office of Unemployment Compensation - UI Tax Divis'. DTSIW119
00243 10 FILLER PIC X(16) DTSIW119
00244 VALUE 'ion '. DTSIW119
00245 05 LTF-LINE-8. DTSIW119
00246 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00247 10 FILLER PIC X(50) DTSIW119
00248 value 'Department of Employment services'. DTSIW119
00249 05 LTF-LINE-9. DTSIW119
00250 10 FILLER PIC X(08) VALUE SPACES. DTSIW119
00251 10 FILLER PIC X(16) DTSIW119
00252 VALUE 'Telephone (202) '. DTSIW119
00253 10 WS-OPR-VOICE-ONE PIC X(03). DTSIW119
00254 10 FILLER PIC X(01) DTSIW119
00255 VALUE '-'. DTSIW119
00256 10 WS-OPR-VOICE-TWO PIC X(04). DTSIW119
00257 DTSIW119
00258 01 LETTER-FOOTIN2. DTSIW119
00259 05 LF2-LINE-1 PIC X(133) VALUE SPACES. DTSIW119
00260 05 LF2-LINE-2. DTSIW119
00261 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00262 10 FILLER PIC X(40) DTSIW119
00263 VALUE 'Sincerely, '. DTSIW119
00264 05 LF2-LINE-6 PIC X(133) VALUE SPACES. DTSIW119
00265 05 LF2-LINE-7. DTSIW119
00266 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00267 * 10 WS-OPR-NAME-FOOTER2 PIC X(32). DTSIW119
00268 10 FILLER PIC X(55) DTSIW119
00269 value 'Office of Unemployment Compensation - Tax Division'.DTSIW119
00270 05 LF2-LINE-8. DTSIW119
00271 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00272 10 FILLER PIC X(50) DTSIW119
00273 value 'Department of Employment Services '.DTSIW119
00274 05 LF2-LINE-9. DTSIW119
00275 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00276 10 FILLER PIC X(20) DTSIW119
00277 VALUE 'UITax.Info@dc.gov'. DTSIW119
00278 * 10 WS-OPR-VOICE-ONE2 PIC X(03). DTSIW119
00279 * 10 FILLER PIC X(01) DTSIW119
00280 * VALUE '-'. DTSIW119
00281 * 10 WS-OPR-VOICE-TWO2 PIC X(04). DTSIW119
00282 05 LF2-LINE-10. DTSIW119
00283 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00284 10 FILLER PIC X(20) DTSIW119
00285 VALUE 'Phone:(202)-698-7550'. DTSIW119
00286 05 LF2-LINE-11. DTSIW119
00287 10 FILLER PIC X(02) VALUE SPACES. DTSIW119
00288 10 FILLER PIC X(20) DTSIW119
00289 VALUE 'TTY:(202)-698-4817'. DTSIW119