DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
216
Copybook/DTSIZ112.cpy
Normal file
216
Copybook/DTSIZ112.cpy
Normal file
@ -0,0 +1,216 @@
|
||||
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
|
||||
Reference in New Issue
Block a user