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

63
Copybook/DTSIZ103.cpy Normal file
View File

@ -0,0 +1,63 @@
00001 * Modified: zarath lalputan 01/11/05
00002 * Date: september 2004 DTSIZ103
00003 LV017
00004 01 LETTER-DETAIL. DTSIZ103
00005 05 LTD-LINE-1 PIC X(133) VALUE SPACES. DTSIZ103
00006 05 LTD-LINE-2. DTSIZ103
00007 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00008 10 FILLER PIC X(50) VALUE DTSIZ103
00009 'You were sent an employer registration form to reg'. DTSIZ103
00010 10 FILLER PIC X(50) VALUE DTSIZ103
00011 'ister your business with the'. DTSIZ103
00012 05 LTD-LINE-3. DTSIZ103
00013 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00014 10 FILLER PIC X(50) VALUE DTSIZ103
00015 'Districts Unemployment Insurance program but we ha'. DTSIZ103
00016 10 FILLER PIC X(50) VALUE DTSIZ103
00017 've not received the completed form.'. DTSIZ103
00018 05 LTD-LINE-5 PIC X(133) VALUE SPACES. DTSIZ103
00019 05 LTD-LINE-6. DTSIZ103
00020 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00021 10 FILLER PIC X(50) VALUE DTSIZ103
00022 'I am enclosing another form for you to complete. Y'. DTSIZ103
00023 10 FILLER PIC X(40) DTSIZ103
00024 VALUE 'ou must return the completed '. DTSIZ103
00025 05 LTD-LINE-7. DTSIZ103
00026 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00027 10 FILLER PIC X(50) VALUE DTSIZ103
00028 'form WITHIN 30 DAYS to avoid further contact.'. DTSIZ103
00029 SKIP2 DTSIZ103
00030 01 LETTER-FOOTING. DTSIZ103
00031 05 LTF-LINE-1 PIC X(133) VALUE SPACES. DTSIZ103
00032 05 LTF-LINE-2. DTSIZ103
00033 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00034 10 FILLER PIC X(40) DTSIZ103
00035 VALUE 'Sincerely, '. DTSIZ103
00036 05 LTF-LINE-3 PIC X(133) VALUE SPACES. DTSIZ103
00037 05 LTF-LINE-4. DTSIZ103
00038 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00039 10 WS-OPR-NAME-FOOTER PIC X(32). DTSIZ103
00040 05 LTF-LINE-5. DTSIZ103
00041 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00042 10 WS-OPR-UNIT-NAME-FOOTER PIC X(50). DTSIZ103
00043 05 LTF-LINE-6. DTSIZ103
00044 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00045 10 FILLER PIC X(11) DTSIZ103
00046 VALUE 'Telephone ('. DTSIZ103
00047 10 WS-OPR-VOICE-AREA-CODE PIC X(03). DTSIZ103
00048 10 FILLER PIC X(03) DTSIZ103
00049 VALUE ')'. DTSIZ103
00050 10 WS-OPR-VOICE-ONE PIC X(03). DTSIZ103
00051 10 FILLER PIC X(01) DTSIZ103
00052 VALUE '-'. DTSIZ103
00053 10 WS-OPR-VOICE-TWO PIC X(04). DTSIZ103
00054 05 LTF-LINE-7 PIC X(133) VALUE SPACES. DTSIZ103
00055 05 LTF-LINE-8. DTSIZ103
00056 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00057 10 FILLER PIC X(16) DTSIZ103
00058 VALUE 'Enclosures '. DTSIZ103
00059 05 LTF-LINE-9 PIC X(133) VALUE SPACES. DTSIZ103
00060 05 LTF-LINE-10. DTSIZ103
00061 10 FILLER PIC X(10) VALUE SPACES. DTSIZ103
00062 10 FILLER PIC X(14) DTSIZ103
00063 VALUE 'SECOND REQUEST'. DTSIZ103