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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

121
Copybook/DTSIZ43X.cpy Normal file
View File

@ -0,0 +1,121 @@
00001 SKIP2 02/09/99
00002 01 NOTICE-PAGE TYPE IS DETAIL. DTSIZ43X
00003 10 COLUMN 18 PIC X(04) LV020
00004 SOURCE WS-RATE-YRQ-LB-X (1). DTSIZ43X
00005 10 COLUMN 23 PIC X(01) CL*13
00006 SOURCE WS-RATE-YRQ-DASH (1). DTSIZ43X
00007 10 COLUMN 25 PIC X(04) CL*13
00008 SOURCE WS-RATE-YRQ-UB-X (1). CL**9
00009 10 COLUMN 42 PIC X(12) CL*13
00010 SOURCE WS-UI-RATE-AREA (1). DTSIZ43X
00011 05 LINE 28. CL*17
00012 10 COLUMN 18 PIC X(04) CL*11
00013 SOURCE WS-RATE-YRQ-LB-X (2). DTSIZ43X
00014 10 COLUMN 23 PIC X(01) CL*13
00015 SOURCE WS-RATE-YRQ-DASH (2). DTSIZ43X
00016 10 COLUMN 25 PIC X(04) CL*13
00017 SOURCE WS-RATE-YRQ-UB-X (2). DTSIZ43X
00018 10 COLUMN 42 PIC X(12) CL*13
00019 SOURCE WS-UI-RATE-AREA (2). DTSIZ43X
00020 05 LINE 29. CL*17
00021 10 COLUMN 18 PIC X(04) CL*11
00022 SOURCE WS-RATE-YRQ-LB-X (3). DTSIZ43X
00023 10 COLUMN 23 PIC X(01) CL*13
00024 SOURCE WS-RATE-YRQ-DASH (3). DTSIZ43X
00025 10 COLUMN 25 PIC X(04) CL*13
00026 SOURCE WS-RATE-YRQ-UB-X (3). DTSIZ43X
00027 10 COLUMN 42 PIC X(12) CL*13
00028 SOURCE WS-UI-RATE-AREA (3). DTSIZ43X
00029 05 LINE 30. CL*17
00030 10 COLUMN 18 PIC X(04) CL*11
00031 SOURCE WS-RATE-YRQ-LB-X (4). DTSIZ43X
00032 10 COLUMN 23 PIC X(01) CL*13
00033 SOURCE WS-RATE-YRQ-DASH (4). DTSIZ43X
00034 10 COLUMN 25 PIC X(04) CL*13
00035 SOURCE WS-RATE-YRQ-UB-X (4). DTSIZ43X
00036 10 COLUMN 42 PIC X(12) CL*13
00037 SOURCE WS-UI-RATE-AREA (4). DTSIZ43X
00038 05 LINE 31. CL*17
00039 10 COLUMN 18 PIC X(04) CL*11
00040 SOURCE WS-RATE-YRQ-LB-X (5). DTSIZ43X
00041 10 COLUMN 23 PIC X(01) CL*13
00042 SOURCE WS-RATE-YRQ-DASH (5). DTSIZ43X
00043 10 COLUMN 25 PIC X(04) CL*13
00044 SOURCE WS-RATE-YRQ-UB-X (5). DTSIZ43X
00045 10 COLUMN 42 PIC X(12) CL*13
00046 SOURCE WS-UI-RATE-AREA (5). DTSIZ43X
00047 05 LINE 32. CL*17
00048 10 COLUMN 18 PIC X(04) CL*11
00049 SOURCE WS-RATE-YRQ-LB-X (6). DTSIZ43X
00050 10 COLUMN 23 PIC X(01) CL*13
00051 SOURCE WS-RATE-YRQ-DASH (6). DTSIZ43X
00052 10 COLUMN 25 PIC X(04) CL*13
00053 SOURCE WS-RATE-YRQ-UB-X (6). DTSIZ43X
00054 10 COLUMN 42 PIC X(12) CL*13
00055 SOURCE WS-UI-RATE-AREA (6). DTSIZ43X
00056 05 LINE 34. CL*17
00057 10 COLUMN 8 PIC X(40) CL**6
00058 VALUE 'You have been determined subject to the '. DTSIZ43X
00059 10 COLUMN 48 PIC X(40) CL**6
00060 VALUE 'reporting provisions of the District '. CL**4
00061 05 LINE 35. CL*17
00062 10 COLUMN 8 PIC X(11) CL**7
00063 VALUE 'of Columbia'. CL**7
00064 10 COLUMN 19 PIC X(01) CL**7
00065 VALUE quote. CL**7
00066 10 COLUMN 20 PIC X(28) CL**7
00067 VALUE 's Unemployment Insurance Law'. CL**7
00068 10 COLUMN 48 PIC X(40) CL**6
00069 VALUE '. Please include your account number '. CL**2
00070 05 LINE 36. CL*17
00071 10 COLUMN 8 PIC X(40) CL**6
00072 VALUE 'on all correspondence with this agency. '. CL**2
00073 05 LINE 38. CL*17
00074 10 COLUMN 8 PIC X(40) CL**6
00075 VALUE 'Reporting forms will be sent to you at t'. DTSIZ43X
00076 10 COLUMN 48 PIC X(40) CL**6
00077 VALUE 'he end of each calendar quarter. '. CL**2
00078 05 LINE 39. CL*17
00079 10 COLUMN 8 PIC X(40) CL**6
00080 VALUE 'These reports must be postmarked by the '. CL**2
00081 10 COLUMN 48 PIC X(40) CL**6
00082 VALUE 'last day of April, July, October '. CL**2
00083 05 LINE 40. CL*17
00084 10 COLUMN 8 PIC X(40) CL**6
00085 VALUE 'and January of each year. '. CL**2
00086 05 LINE 42. CL*17
00087 10 COLUMN 8 PIC X(40) CL**6
00088 VALUE 'If we can be of any further assistance, '. DTSIZ43X
00089 10 COLUMN 48 PIC X(40) CL**6
00090 VALUE 'please write to the above address. '. CL**6
00091 05 LINE PLUS 3. DTSIZ43X
00092 10 COLUMN 36 PIC X(13) DTSIZ43X
00093 VALUE 'APPEAL RIGHTS'. DTSIZ43X
00094 05 LINE PLUS 0. DTSIZ43X
00095 10 COLUMN 36 PIC X(13) DTSIZ43X
00096 VALUE 'APPEAL RIGHTS'. DTSIZ43X
00097 05 LINE PLUS 2. DTSIZ43X
00098 10 COLUMN 8 PIC X(40) CL**6
00099 VALUE 'This decision will become final unless y'. DTSIZ43X
00100 10 COLUMN 48 PIC X(40) CL**6
00101 VALUE 'ou file a written notice of '. DTSIZ43X
00102 05 LINE PLUS 0. DTSIZ43X
00103 10 COLUMN 8 PIC X(40) CL**6
00104 VALUE 'This decision will become final unless y'. DTSIZ43X
00105 10 COLUMN 48 PIC X(40) CL**6
00106 VALUE 'ou file a written notice of '. DTSIZ43X
00107 05 LINE PLUS 1. DTSIZ43X
00108 10 COLUMN 8 PIC X(40) CL**6
00109 VALUE 'appeal within thirty (30) calendar days '. CL*14
00110 10 COLUMN 48 PIC X(40) CL**6
00111 VALUE 'of the date of this letter, '. CL*14
00112 05 LINE PLUS 0. DTSIZ43X
00113 10 COLUMN 8 PIC X(40) CL**6
00114 VALUE 'appeal within thirty (30) calendar days '. CL*14
00115 10 COLUMN 48 PIC X(40) DTSIZ43X
00116 VALUE 'of the date of this letter, '. CL*14
00117 05 LINE PLUS 1. DTSIZ43X
00118 10 COLUMN 8 PIC X(40) CL*10
00119 VALUE 'with the Unemployment Insurance Division'. CL*10
00120 10 COLUMN 48 PIC X(40) CL*14
00121 VALUE ' of the District of Columbia. '. CL*10