123 lines
9.7 KiB
COBOL
123 lines
9.7 KiB
COBOL
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
|