DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
122
Copybook/DTSIZ712.cpy
Normal file
122
Copybook/DTSIZ712.cpy
Normal file
@ -0,0 +1,122 @@
|
||||
00001 SKIP2 09/20/00
|
||||
00002 01 LETTER-TEXT. DTSIZ712
|
||||
00003 05 LTT-LINE-1 PIC X(133) VALUE SPACES. LV012
|
||||
00004 05 LTT-LINE-2 PIC X(133) VALUE SPACES. DTSIZ712
|
||||
00005 05 LTT-LINE-3. DTSIZ712
|
||||
00006 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00007 10 FILLER PIC X(40) DTSIZ712
|
||||
00008 VALUE 'A review of our records shows we do not '. DTSIZ712
|
||||
00009 10 FILLER PIC X(40) DTSIZ712
|
||||
00010 VALUE 'have on file your Federal '. DTSIZ712
|
||||
00011 05 LTT-LINE-4. DTSIZ712
|
||||
00012 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00013 10 FILLER PIC X(40) DTSIZ712
|
||||
00014 VALUE 'Employer Identification Number (FEIN) is'. DTSIZ712
|
||||
00015 10 FILLER PIC X(40) DTSIZ712
|
||||
00016 VALUE 'sued by the Internal '. DTSIZ712
|
||||
00017 05 LTT-LINE-5. DTSIZ712
|
||||
00018 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00019 10 FILLER PIC X(40) DTSIZ712
|
||||
00020 VALUE 'Revenue Service. '. DTSIZ712
|
||||
00021 05 LTT-LINE-6 PIC X(133) VALUE SPACES. DTSIZ712
|
||||
00022 05 LTT-LINE-7. DTSIZ712
|
||||
00023 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00024 10 FILLER PIC X(40) DTSIZ712
|
||||
00025 VALUE 'We request you fill in your FEIN in the '. DTSIZ712
|
||||
00026 10 FILLER PIC X(40) DTSIZ712
|
||||
00027 VALUE 'designated area located '. DTSIZ712
|
||||
00028 05 LTT-LINE-8. DTSIZ712
|
||||
00029 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00030 10 FILLER PIC X(38) DTSIZ712
|
||||
00031 VALUE 'on the right side of your next quarter'. DTSIZ712
|
||||
00032 10 FILLER PIC X(01) DTSIZ712
|
||||
00033 VALUE quote. DTSIZ712
|
||||
00034 10 FILLER PIC X(10) DTSIZ712
|
||||
00035 VALUE 's Employer'. DTSIZ712
|
||||
00036 10 FILLER PIC X(01) DTSIZ712
|
||||
00037 VALUE quote. DTSIZ712
|
||||
00038 10 FILLER PIC X(14) DTSIZ712
|
||||
00039 VALUE 's Unemployment'. DTSIZ712
|
||||
00040 05 LTT-LINE-9. DTSIZ712
|
||||
00041 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00042 10 FILLER PIC X(40) DTSIZ712
|
||||
00043 VALUE 'Insurance Quarterly Wage Report, which y'. DTSIZ712
|
||||
00044 10 FILLER PIC X(40) DTSIZ712
|
||||
00045 VALUE 'ou should receive '. DTSIZ712
|
||||
00046 05 LTT-LINE-10. DTSIZ712
|
||||
00047 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00048 10 FILLER PIC X(40) DTSIZ712
|
||||
00049 VALUE 'shortly. '. DTSIZ712
|
||||
00050 05 LTT-LINE-11 PIC X(133) VALUE SPACES. DTSIZ712
|
||||
00051 05 LTT-LINE-12. DTSIZ712
|
||||
00052 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00053 10 FILLER PIC X(40) DTSIZ712
|
||||
00054 VALUE 'The FEIN is required to certify wages re'. DTSIZ712
|
||||
00055 10 FILLER PIC X(40) DTSIZ712
|
||||
00056 VALUE 'ported and tax payments '. DTSIZ712
|
||||
00057 05 LTT-LINE-13. DTSIZ712
|
||||
00058 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00059 10 FILLER PIC X(40) DTSIZ712
|
||||
00060 VALUE 'made to the District of Columbia with th'. DTSIZ712
|
||||
00061 10 FILLER PIC X(40) DTSIZ712
|
||||
00062 VALUE 'ose reported to the '. DTSIZ712
|
||||
00063 05 LTT-LINE-14. DTSIZ712
|
||||
00064 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00065 10 FILLER PIC X(40) DTSIZ712
|
||||
00066 VALUE 'Internal Revenue Service on your Employe'. DTSIZ712
|
||||
00067 10 FILLER PIC X(01) DTSIZ712
|
||||
00068 VALUE 'r'. DTSIZ712
|
||||
00069 10 FILLER PIC X(01) DTSIZ712
|
||||
00070 VALUE quote. DTSIZ712
|
||||
00071 10 FILLER PIC X(23) DTSIZ712
|
||||
00072 VALUE 's Federal Unemployment'. DTSIZ712
|
||||
00073 05 LTT-LINE-15. DTSIZ712
|
||||
00074 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00075 10 FILLER PIC X(40) DTSIZ712
|
||||
00076 VALUE 'Tax Return (Form 940). This certificatio'. DTSIZ712
|
||||
00077 10 FILLER PIC X(40) DTSIZ712
|
||||
00078 VALUE 'n insures the proper '. DTSIZ712
|
||||
00079 05 LTT-LINE-16. DTSIZ712
|
||||
00080 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00081 10 FILLER PIC X(40) DTSIZ712
|
||||
00082 VALUE 'amount of tax credit allowed on your For'. DTSIZ712
|
||||
00083 10 FILLER PIC X(40) DTSIZ712
|
||||
00084 VALUE 'm 940. '. DTSIZ712
|
||||
00085 05 LTT-LINE-17 PIC X(133) VALUE SPACES. DTSIZ712
|
||||
00086 05 LTT-LINE-18. DTSIZ712
|
||||
00087 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00088 10 FILLER PIC X(40) DTSIZ712
|
||||
00089 VALUE 'Informing us of your FEIN now may avoid '. DTSIZ712
|
||||
00090 10 FILLER PIC X(40) DTSIZ712
|
||||
00091 VALUE 'a delayed manual '. DTSIZ712
|
||||
00092 05 LTT-LINE-19. DTSIZ712
|
||||
00093 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00094 10 FILLER PIC X(40) DTSIZ712
|
||||
00095 VALUE 'recertification in the future. '. DTSIZ712
|
||||
00096 SKIP2 DTSIZ712
|
||||
00097 01 LETTER-FOOTING. DTSIZ712
|
||||
00098 05 LTF-LINE-1 PIC X(133) VALUE SPACES. DTSIZ712
|
||||
00099 05 LTF-LINE-2. DTSIZ712
|
||||
00100 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00101 10 FILLER PIC X(40) DTSIZ712
|
||||
00102 VALUE 'Sincerely, '. DTSIZ712
|
||||
00103 05 LTF-LINE-3 PIC X(133) VALUE SPACES. DTSIZ712
|
||||
00104 05 LTF-LINE-4. DTSIZ712
|
||||
00105 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00106 10 WS-OPR-NAME-FOOTER PIC X(32). DTSIZ712
|
||||
00107 05 LTF-LINE-5. DTSIZ712
|
||||
00108 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00109 10 WS-OPR-TITLE-FOOTER PIC X(50). DTSIZ712
|
||||
00110 05 LTF-LINE-6. DTSIZ712
|
||||
00111 10 FILLER PIC X(08) VALUE SPACES. DTSIZ712
|
||||
00112 10 FILLER PIC X(09) DTSIZ712
|
||||
00113 VALUE 'Telephone'. DTSIZ712
|
||||
00114 10 FILLER PIC X(01) DTSIZ712
|
||||
00115 VALUE '(' . DTSIZ712
|
||||
00116 10 WS-OPR-VOICE-AREA-CD PIC X(03). DTSIZ712
|
||||
00117 10 FILLER PIC X(01) DTSIZ712
|
||||
00118 VALUE ')'. DTSIZ712
|
||||
00119 10 WS-OPR-VOICE-ONE PIC X(03). DTSIZ712
|
||||
00120 10 FILLER PIC X(01) DTSIZ712
|
||||
00121 VALUE '-'. DTSIZ712
|
||||
00122 10 WS-OPR-VOICE-TWO PIC X(04). DTSIZ712
|
||||
Reference in New Issue
Block a user