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

97
Copybook/DTSIZ115.cpy Normal file
View File

@ -0,0 +1,97 @@
00001 *Modified: Brian McGough 05/23/13
00002 *Date: 29 Oct 1998 DTSIZ115
00003 * LV038
00004 SKIP2 DTSIZ115
00005 01 LETTER-DETAIL-START. DTSIZ115
00006 05 LDS-LINE-1 PIC X(133) VALUE SPACES. DTSIZ115
00007 05 LDS-LINE-2 PIC X(133) VALUE SPACES. DTSIZ115
00008 05 LDS-LINE-3. DTSIZ115
00009 10 FILLER PIC X(10) VALUE SPACES. CL*28
00010 10 FILLER PIC X(50) VALUE CL*28
00011 'This confirms your registration with the Tax Divis'. CL*28
00012 10 FILLER PIC X(40) DTSIZ115
00013 VALUE 'ion of the Department of '. CL*28
00014 05 LDS-LINE-4. DTSIZ115
00015 10 FILLER PIC X(10) VALUE SPACES. CL*28
00016 10 FILLER PIC X(50) VALUE CL*28
00017 'Employment Services. Your business is providing a'. CL*28
00018 10 FILLER PIC X(40) DTSIZ115
00019 VALUE ' valuable service to the '. CL*31
00020 05 LDS-LINE-5. DTSIZ115
00021 10 FILLER PIC X(10) VALUE SPACES. CL*28
00022 10 FILLER PIC X(49) VALUE CL*31
00023 'public, and also helping the District of Columbia'. CL*34
00024 10 FILLER PIC X(01) DTSIZ115
00025 VALUE quote. DTSIZ115
00026 10 FILLER PIC X(15) CL*28
00027 VALUE 's economy grow.'. CL*28
00028 05 LDS-LINE-6 PIC X(133) VALUE SPACES. CL*28
00029 05 LDS-LINE-61. CL*35
00030 10 FILLER PIC X(10) VALUE SPACES. CL*35
00031 10 FILLER PIC X(50) VALUE CL*35
00032 'The Unemployment Insurance Employer Handbook conta'. CL*35
00033 10 FILLER PIC X(40) CL*35
00034 VALUE 'ins valuable information '. CL*35
00035 05 LDS-LINE-62. CL*35
00036 10 FILLER PIC X(10) VALUE SPACES. CL*35
00037 10 FILLER PIC X(50) VALUE CL*35
00038 'on employer responsibilities and the Unemployment'. CL*36
00039 10 FILLER PIC X(40) CL*35
00040 VALUE 'Insurance program. '. CL*37
00041 05 LDS-LINE-63. CL*35
00042 10 FILLER PIC X(10) VALUE SPACES. CL*35
00043 10 FILLER PIC X(55) VALUE CL*38
00044 'It can be accessed at www.does.dc.gov/node/539002.'. CL*38
00045 05 LDS-LINE-7a PIC X(133) VALUE SPACES. CL*35
00046 05 LDS-LINE-7. CL*28
00047 10 FILLER PIC X(10) VALUE SPACES. CL*28
00048 10 FILLER PIC X(50) VALUE CL*28
00049 'If you need any assistance with Unemployment Insur'. CL*28
00050 10 FILLER PIC X(40) CL*28
00051 VALUE 'ance tax requirements, '. CL*33
00052 05 LDS-LINE-8. DTSIZ115
00053 10 FILLER PIC X(10) VALUE SPACES. CL*28
00054 10 WS-PARAGRAPH-LINE-1 PIC X(70) VALUE SPACES. DTSIZ115
00055 SKIP2 DTSIZ115
00056 01 LETTER-DETAIL-LINE. DTSIZ115
00057 05 LDL-LINE-1. DTSIZ115
00058 10 FILLER PIC X(10) VALUE SPACES. CL*28
00059 10 WS-PARAGRAPH-LINE-IDX PIC X(80) VALUE SPACES. CL*32
00060 SKIP2 DTSIZ115
00061 01 LETTER-DETAIL-LINE-OVERSTRIKE. DTSIZ115
00062 05 LDLO-LINE-0. DTSIZ115
00063 10 FILLER PIC X(10) VALUE SPACES. CL*28
00064 10 WS-PARAGRAPH-LINE-IDXO PIC X(80) VALUE SPACES. CL*32
00065 SKIP2 DTSIZ115
00066 01 LETTER-FOOTING. DTSIZ115
00067 05 LTF-LINE-1 PIC X(133) VALUE SPACES. DTSIZ115
00068 05 LTF-LINE-2. DTSIZ115
00069 10 FILLER PIC X(10) VALUE SPACES. CL*28
00070 10 FILLER PIC X(40) DTSIZ115
00071 VALUE 'Best of luck with your new venture. '. CL*32
00072 05 LTF-LINE-3 PIC X(133) VALUE SPACES. DTSIZ115
00073 05 LTF-LINE-4. DTSIZ115
00074 10 FILLER PIC X(10) VALUE SPACES. CL*29
00075 10 FILLER PIC X(40) DTSIZ115
00076 VALUE 'Sincerely, '. DTSIZ115
00077 05 LTF-LINE-5 PIC X(133) VALUE SPACES. CL*28
00078 05 LTF-LINE-6. CL*28
00079 10 FILLER PIC X(10) VALUE SPACES. CL*29
00080 10 WS-L119-UC-OFFICE-CHIEF-NAME PIC X(50). DTSIZ115
00081 05 LTF-LINE-7. DTSIZ115
00082 10 FILLER PIC X(10) VALUE SPACES. CL*29
00083 10 WS-L119-UC-OFFICE-CHIEF-TITLE PIC X(50). DTSIZ115
00084 05 LTF-LINE-8. DTSIZ115
00085 10 FILLER PIC X(10) VALUE SPACES. CL*29
00086 10 WS-L119-UC-OFFICE-NAME PIC X(40). DTSIZ115
00087 05 LTF-LINE-9. DTSIZ115
00088 10 FILLER PIC X(10) VALUE SPACES. CL*29
00089 10 FILLER PIC X(11) DTSIZ115
00090 VALUE 'Telephone ('. DTSIZ115
00091 10 WS-VOICE-AREA-CD PIC X(03). DTSIZ115
00092 10 FILLER PIC X(02) CL*30
00093 value ')'. DTSIZ115
00094 10 WS-VOICE-ONE PIC X(03). DTSIZ115
00095 10 FILLER PIC X(01) DTSIZ115
00096 VALUE '-'. DTSIZ115
00097 10 WS-VOICE-TWO PIC X(04). DTSIZ115