98 lines
7.7 KiB
COBOL
98 lines
7.7 KiB
COBOL
00001 *Modified: Brian McGough 05/23/13
|
|
00002 *Date: 29 Oct 1998 DTSIZ115
|
|
00003 * LV038
|
|
00004 SKIP2 DTSIZ115
|
|
00005 01 LETTER-DETAIL-START. DTSIZ115
|
|
00006 05 LDS-LINE-1 PIC X(133) VALUE SPACES. DTSIZ115
|
|
00007 05 LDS-LINE-2 PIC X(133) VALUE SPACES. DTSIZ115
|
|
00008 05 LDS-LINE-3. DTSIZ115
|
|
00009 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00010 10 FILLER PIC X(50) VALUE CL*28
|
|
00011 'This confirms your registration with the Tax Divis'. CL*28
|
|
00012 10 FILLER PIC X(40) DTSIZ115
|
|
00013 VALUE 'ion of the Department of '. CL*28
|
|
00014 05 LDS-LINE-4. DTSIZ115
|
|
00015 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00016 10 FILLER PIC X(50) VALUE CL*28
|
|
00017 'Employment Services. Your business is providing a'. CL*28
|
|
00018 10 FILLER PIC X(40) DTSIZ115
|
|
00019 VALUE ' valuable service to the '. CL*31
|
|
00020 05 LDS-LINE-5. DTSIZ115
|
|
00021 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00022 10 FILLER PIC X(49) VALUE CL*31
|
|
00023 'public, and also helping the District of Columbia'. CL*34
|
|
00024 10 FILLER PIC X(01) DTSIZ115
|
|
00025 VALUE quote. DTSIZ115
|
|
00026 10 FILLER PIC X(15) CL*28
|
|
00027 VALUE 's economy grow.'. CL*28
|
|
00028 05 LDS-LINE-6 PIC X(133) VALUE SPACES. CL*28
|
|
00029 05 LDS-LINE-61. CL*35
|
|
00030 10 FILLER PIC X(10) VALUE SPACES. CL*35
|
|
00031 10 FILLER PIC X(50) VALUE CL*35
|
|
00032 'The Unemployment Insurance Employer Handbook conta'. CL*35
|
|
00033 10 FILLER PIC X(40) CL*35
|
|
00034 VALUE 'ins valuable information '. CL*35
|
|
00035 05 LDS-LINE-62. CL*35
|
|
00036 10 FILLER PIC X(10) VALUE SPACES. CL*35
|
|
00037 10 FILLER PIC X(50) VALUE CL*35
|
|
00038 'on employer responsibilities and the Unemployment'. CL*36
|
|
00039 10 FILLER PIC X(40) CL*35
|
|
00040 VALUE 'Insurance program. '. CL*37
|
|
00041 05 LDS-LINE-63. CL*35
|
|
00042 10 FILLER PIC X(10) VALUE SPACES. CL*35
|
|
00043 10 FILLER PIC X(55) VALUE CL*38
|
|
00044 'It can be accessed at www.does.dc.gov/node/539002.'. CL*38
|
|
00045 05 LDS-LINE-7a PIC X(133) VALUE SPACES. CL*35
|
|
00046 05 LDS-LINE-7. CL*28
|
|
00047 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00048 10 FILLER PIC X(50) VALUE CL*28
|
|
00049 'If you need any assistance with Unemployment Insur'. CL*28
|
|
00050 10 FILLER PIC X(40) CL*28
|
|
00051 VALUE 'ance tax requirements, '. CL*33
|
|
00052 05 LDS-LINE-8. DTSIZ115
|
|
00053 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00054 10 WS-PARAGRAPH-LINE-1 PIC X(70) VALUE SPACES. DTSIZ115
|
|
00055 SKIP2 DTSIZ115
|
|
00056 01 LETTER-DETAIL-LINE. DTSIZ115
|
|
00057 05 LDL-LINE-1. DTSIZ115
|
|
00058 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00059 10 WS-PARAGRAPH-LINE-IDX PIC X(80) VALUE SPACES. CL*32
|
|
00060 SKIP2 DTSIZ115
|
|
00061 01 LETTER-DETAIL-LINE-OVERSTRIKE. DTSIZ115
|
|
00062 05 LDLO-LINE-0. DTSIZ115
|
|
00063 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00064 10 WS-PARAGRAPH-LINE-IDXO PIC X(80) VALUE SPACES. CL*32
|
|
00065 SKIP2 DTSIZ115
|
|
00066 01 LETTER-FOOTING. DTSIZ115
|
|
00067 05 LTF-LINE-1 PIC X(133) VALUE SPACES. DTSIZ115
|
|
00068 05 LTF-LINE-2. DTSIZ115
|
|
00069 10 FILLER PIC X(10) VALUE SPACES. CL*28
|
|
00070 10 FILLER PIC X(40) DTSIZ115
|
|
00071 VALUE 'Best of luck with your new venture. '. CL*32
|
|
00072 05 LTF-LINE-3 PIC X(133) VALUE SPACES. DTSIZ115
|
|
00073 05 LTF-LINE-4. DTSIZ115
|
|
00074 10 FILLER PIC X(10) VALUE SPACES. CL*29
|
|
00075 10 FILLER PIC X(40) DTSIZ115
|
|
00076 VALUE 'Sincerely, '. DTSIZ115
|
|
00077 05 LTF-LINE-5 PIC X(133) VALUE SPACES. CL*28
|
|
00078 05 LTF-LINE-6. CL*28
|
|
00079 10 FILLER PIC X(10) VALUE SPACES. CL*29
|
|
00080 10 WS-L119-UC-OFFICE-CHIEF-NAME PIC X(50). DTSIZ115
|
|
00081 05 LTF-LINE-7. DTSIZ115
|
|
00082 10 FILLER PIC X(10) VALUE SPACES. CL*29
|
|
00083 10 WS-L119-UC-OFFICE-CHIEF-TITLE PIC X(50). DTSIZ115
|
|
00084 05 LTF-LINE-8. DTSIZ115
|
|
00085 10 FILLER PIC X(10) VALUE SPACES. CL*29
|
|
00086 10 WS-L119-UC-OFFICE-NAME PIC X(40). DTSIZ115
|
|
00087 05 LTF-LINE-9. DTSIZ115
|
|
00088 10 FILLER PIC X(10) VALUE SPACES. CL*29
|
|
00089 10 FILLER PIC X(11) DTSIZ115
|
|
00090 VALUE 'Telephone ('. DTSIZ115
|
|
00091 10 WS-VOICE-AREA-CD PIC X(03). DTSIZ115
|
|
00092 10 FILLER PIC X(02) CL*30
|
|
00093 value ')'. DTSIZ115
|
|
00094 10 WS-VOICE-ONE PIC X(03). DTSIZ115
|
|
00095 10 FILLER PIC X(01) DTSIZ115
|
|
00096 VALUE '-'. DTSIZ115
|
|
00097 10 WS-VOICE-TWO PIC X(04). DTSIZ115
|