DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
154
Copybook/DTSIZ117.cpy
Normal file
154
Copybook/DTSIZ117.cpy
Normal file
@ -0,0 +1,154 @@
|
||||
00001 *Modified: z. lalputan 09/04/12
|
||||
00002 *Date: 08 september 2004 DTSIZ117
|
||||
00003 * LV005
|
||||
00004 SKIP2 DTSIZ117
|
||||
00005 01 GENERIC-LETTER. DTSIZ117
|
||||
00006 05 GEN-LINE-1 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00007 05 GEN-LINE-2 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00008 05 GEN-LINE-3. DTSIZ117
|
||||
00009 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00010 10 FILLER PIC X(40) DTSIZ117
|
||||
00011 VALUE 'Your District of Columbia Unemployment I'. DTSIZ117
|
||||
00012 10 FILLER PIC X(40) DTSIZ117
|
||||
00013 VALUE 'nsurance account has been cancelled. '. DTSIZ117
|
||||
00014 05 GEN-LINE-5 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00015 05 GEN-LINE-6. DTSIZ117
|
||||
00016 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00017 10 FILLER PIC X(40) DTSIZ117
|
||||
00018 VALUE 'If you employ in the future, please cont'. DTSIZ117
|
||||
00019 10 FILLER PIC X(40) DTSIZ117
|
||||
00020 VALUE 'act me. '. DTSIZ117
|
||||
00021 SKIP2 DTSIZ117
|
||||
00022 01 DEMAND-LETTER. DTSIZ117
|
||||
00023 05 DML-LINE-1 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00024 05 DML-LINE-2 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00025 05 DML-LINE-3. DTSIZ117
|
||||
00026 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00027 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00028 'The Unemployment Insurance Division requires that '. DTSIZ117
|
||||
00029 10 FILLER PIC X(40) DTSIZ117
|
||||
00030 VALUE 'an employer file a Contribution and '. DTSIZ117
|
||||
00031 05 DML-LINE-4. DTSIZ117
|
||||
00032 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00033 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00034 'Wage Report and submit payment upon termination of'. DTSIZ117
|
||||
00035 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00036 ' your account. '. DTSIZ117
|
||||
00037 05 DML-LINE-5 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00038 05 DML-LINE-6. DTSIZ117
|
||||
00039 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00040 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00041 'Please complete and return the enclosed Contributi'. DTSIZ117
|
||||
00042 10 FILLER PIC X(40) DTSIZ117
|
||||
00043 VALUE 'on and Wage Report with payment.'. DTSIZ117
|
||||
00044 05 DML-LINE-7. DTSIZ117
|
||||
00045 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00046 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00047 'If payment is not received WITHIN 30 DAYS, taxes a'. DTSIZ117
|
||||
00048 10 FILLER PIC X(40) DTSIZ117
|
||||
00049 VALUE 're subject to penalty and interest. '. DTSIZ117
|
||||
00050 05 DML-LINE-9 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00051 05 DML-LINE-10. DTSIZ117
|
||||
00052 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00053 10 FILLER PIC X(40) DTSIZ117
|
||||
00054 VALUE 'If you have any questions, please contac'. DTSIZ117
|
||||
00055 10 FILLER PIC X(40) DTSIZ117
|
||||
00056 VALUE 't me. '. DTSIZ117
|
||||
00057 SKIP2 DTSIZ117
|
||||
00058 01 EIGHT-QTR-NONES-LETTER. DTSIZ117
|
||||
00059 05 EQN-LINE-1 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00060 05 EQN-LINE-2 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00061 05 EQN-LINE-3. DTSIZ117
|
||||
00062 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00063 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00064 'The Unemployment Insurance Division is required by'. DTSIZ117
|
||||
00065 10 FILLER PIC X(40) DTSIZ117
|
||||
00066 VALUE ' U.S. Department of Labor to '. DTSIZ117
|
||||
00067 05 EQN-LINE-4. DTSIZ117
|
||||
00068 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00069 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00070 'cancel an account that has not paid wages or filed'. CL**2
|
||||
00071 10 FILLER PIC X(40) DTSIZ117
|
||||
00072 VALUE ' quarterly reports for eight '. CL**2
|
||||
00073 05 EQN-LINE-5. CL**3
|
||||
00074 10 FILLER PIC X(02) VALUE SPACES. CL**2
|
||||
00075 10 FILLER PIC X(50) VALUE CL**2
|
||||
00076 'consecutive quarters. '. CL**3
|
||||
00077 * 05 EQN-LINE-6. CL**2
|
||||
00078 * 10 FILLER PIC X(02) VALUE SPACES. CL**2
|
||||
00079 * 10 FILLER PIC X(50) VALUE CL**2
|
||||
00080 * 'You have submitted eight consecutive quaters of wa'. CL**2
|
||||
00081 * 10 FILLER PIC X(40) CL**2
|
||||
00082 * VALUE 'ge reports showing your company '. CL**2
|
||||
00083 * 05 EQN-LINE-7. CL**2
|
||||
00084 * 10 FILLER PIC X(02) VALUE SPACES. CL**2
|
||||
00085 * 10 FILLER PIC X(40) CL**2
|
||||
00086 * VALUE 'has paid no wages. '. CL**2
|
||||
00087 * 05 EQN-LINE-8 PIC X(133) VALUE SPACES. CL**2
|
||||
00088 * 05 EQN-LINE-9. CL**2
|
||||
00089 * 10 FILLER PIC X(02) VALUE SPACES. CL**2
|
||||
00090 * 10 FILLER PIC X(50) VALUE CL**2
|
||||
00091 * 'I am canceling your account. Please notify your a'. CL**2
|
||||
00092 * 10 FILLER PIC X(40) CL**2
|
||||
00093 * VALUE 'ccountant to stop submitting wage '. CL**2
|
||||
00094 * 05 EQN-LINE-10. CL**2
|
||||
00095 * 10 FILLER PIC X(02) VALUE SPACES. CL**2
|
||||
00096 * 10 FILLER PIC X(40) CL**2
|
||||
00097 * VALUE 'reports for your business.'. CL**2
|
||||
00098 05 EQN-LINE-11 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00099 05 EQN-LINE-12. DTSIZ117
|
||||
00100 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00101 10 FILLER PIC X(50) VALUE DTSIZ117
|
||||
00102 'If you resume employment in the future, please con'. CL**2
|
||||
00103 10 FILLER PIC X(45) value CL**4
|
||||
00104 'tact me and i will send you '. CL**5
|
||||
00105 05 EQN-LINE-14. DTSIZ117
|
||||
00106 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00107 10 FILLER PIC X(50) value CL**5
|
||||
00108 'the necessary forms to reactivate your account.'. CL**5
|
||||
00109 SKIP2 DTSIZ117
|
||||
00110 01 LETTER-FOOTING. DTSIZ117
|
||||
00111 05 LTF-LINE-1 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00112 05 LTF-LINE-2. DTSIZ117
|
||||
00113 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00114 10 FILLER PIC X(40) DTSIZ117
|
||||
00115 VALUE 'Sincerely, '. DTSIZ117
|
||||
00116 05 LTF-LINE-6 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00117 05 LTF-LINE-7. DTSIZ117
|
||||
00118 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00119 10 WS-OPR-NAME-FOOTER PIC X(32). DTSIZ117
|
||||
00120 05 LTF-LINE-8. DTSIZ117
|
||||
00121 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00122 10 FILLER PIC X(50) DTSIZ117
|
||||
00123 value 'Registration and Rates'. DTSIZ117
|
||||
00124 05 LTF-LINE-9. DTSIZ117
|
||||
00125 10 FILLER PIC X(08) VALUE SPACES. DTSIZ117
|
||||
00126 10 FILLER PIC X(16) DTSIZ117
|
||||
00127 VALUE 'Telephone (202) '. DTSIZ117
|
||||
00128 10 WS-OPR-VOICE-ONE PIC X(03). DTSIZ117
|
||||
00129 10 FILLER PIC X(01) DTSIZ117
|
||||
00130 VALUE '-'. DTSIZ117
|
||||
00131 10 WS-OPR-VOICE-TWO PIC X(04). DTSIZ117
|
||||
00132 DTSIZ117
|
||||
00133 01 LETTER-FOOTIN2. DTSIZ117
|
||||
00134 05 LF2-LINE-1 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00135 05 LF2-LINE-2. DTSIZ117
|
||||
00136 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00137 10 FILLER PIC X(40) DTSIZ117
|
||||
00138 VALUE 'Sincerely, '. DTSIZ117
|
||||
00139 05 LF2-LINE-6 PIC X(133) VALUE SPACES. DTSIZ117
|
||||
00140 05 LF2-LINE-7. DTSIZ117
|
||||
00141 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00142 10 WS-OPR-NAME-FOOTER2 PIC X(32). DTSIZ117
|
||||
00143 05 LF2-LINE-8. DTSIZ117
|
||||
00144 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00145 10 FILLER PIC X(50) DTSIZ117
|
||||
00146 value 'Chief, UI Tax Division'. DTSIZ117
|
||||
00147 05 LF2-LINE-9. DTSIZ117
|
||||
00148 10 FILLER PIC X(02) VALUE SPACES. DTSIZ117
|
||||
00149 10 FILLER PIC X(16) DTSIZ117
|
||||
00150 VALUE 'Telephone (202) '. DTSIZ117
|
||||
00151 10 WS-OPR-VOICE-ONE2 PIC X(03). DTSIZ117
|
||||
00152 10 FILLER PIC X(01) DTSIZ117
|
||||
00153 VALUE '-'. DTSIZ117
|
||||
00154 10 WS-OPR-VOICE-TWO2 PIC X(04). DTSIZ117
|
||||
Reference in New Issue
Block a user