155 lines
12 KiB
COBOL
155 lines
12 KiB
COBOL
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
|