DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
70
Copybook/DTSIZ453.cpy
Normal file
70
Copybook/DTSIZ453.cpy
Normal file
@ -0,0 +1,70 @@
|
||||
00001 05 DET1-LINE-1. 11/15/05
|
||||
00002 10 FILLER PIC X(01) VALUE SPACES. DTSIZ453
|
||||
00003 10 FILLER PIC X(06) VALUE LV001
|
||||
00004 'As of '. DTSIZ453
|
||||
00005 10 WS-SHORT-TEXT-AS-OF-DATE PIC X(12). DTSIZ453
|
||||
00006 10 FILLER PIC X(39) VALUE DTSIZ453
|
||||
00007 ', we have not received your District of'. DTSIZ453
|
||||
00008 10 FILLER PIC X(11) VALUE DTSIZ453
|
||||
00009 ' Columbia '. DTSIZ453
|
||||
00010 DTSIZ453
|
||||
00011 05 DET1-LINE-2. DTSIZ453
|
||||
00012 10 FILLER PIC X(01) VALUE SPACES. DTSIZ453
|
||||
00013 10 FILLER PIC X(33) VALUE DTSIZ453
|
||||
00014 'Unemployment Insurance Annual Con'. DTSIZ453
|
||||
00015 10 FILLER PIC X(39) VALUE DTSIZ453
|
||||
00016 'tribution and Wage Report covering'. DTSIZ453
|
||||
00017 DTSIZ453
|
||||
00018 DTSIZ453
|
||||
00019 05 MC-LIT-YEAR PIC X(40) DTSIZ453
|
||||
00020 VALUE 'the Calendar year '. DTSIZ453
|
||||
00021 05 MC-LIT-THIS-REPORT-WAS PIC X(40) DTSIZ453
|
||||
00022 VALUE 'The report was due by '. DTSIZ453
|
||||
00023 05 MC-LIT-WE-RECEIVED-NO PIC X(40) DTSIZ453
|
||||
00024 VALUE 'We received no response to the notice '. DTSIZ453
|
||||
00025 05 MC-LIT-MAILED-ON PIC X(40) DTSIZ453
|
||||
00026 VALUE 'mailed on '. DTSIZ453
|
||||
00027 05 MC-LIT-TO-US PIC X(40) DTSIZ453
|
||||
00028 VALUE 'to us by '. DTSIZ453
|
||||
00029 05 MC-LIT-PAYMENT-DUE PIC X(40) DTSIZ453
|
||||
00030 VALUE 'with any report and/or payment due. '. DTSIZ453
|
||||
00031 DTSIZ453
|
||||
00032 05 MC-LIT-BY-5 PIC X(40) DTSIZ453
|
||||
00033 VALUE 'If we do not receive a response by 5:00 '. DTSIZ453
|
||||
00034 05 MC-LIT-BY-PM PIC X(40) DTSIZ453
|
||||
00035 VALUE 'PM '. DTSIZ453
|
||||
00036 DTSIZ453
|
||||
00037 05 MC-LIT-A-ESTIMATE-TAX PIC X(40) DTSIZ453
|
||||
00038 VALUE 'we will estimate your tax obligation. '. DTSIZ453
|
||||
00039 DTSIZ453
|
||||
00040 05 MC-LIT-A-QUESTIONS PIC X(40) DTSIZ453
|
||||
00041 VALUE 'If you have any questions, please call '. DTSIZ453
|
||||
00042 DTSIZ453
|
||||
00043 05 PARA-LINE-1. DTSIZ453
|
||||
00044 10 FILLER PIC X(01) VALUE SPACES. DTSIZ453
|
||||
00045 10 PARAGRAPH-LINE-1 PIC X(76). DTSIZ453
|
||||
00046 DTSIZ453
|
||||
00047 05 PARA-LINE-2. DTSIZ453
|
||||
00048 10 FILLER PIC X(01) VALUE SPACES. DTSIZ453
|
||||
00049 10 PARAGRAPH-LINE-2 PIC X(76). DTSIZ453
|
||||
00050 DTSIZ453
|
||||
00051 05 PARA-LINE-3. DTSIZ453
|
||||
00052 10 FILLER PIC X(01) VALUE SPACES. DTSIZ453
|
||||
00053 10 PARAGRAPH-LINE-3 PIC X(76). DTSIZ453
|
||||
00054 DTSIZ453
|
||||
00055 05 VAR-LINE-1. DTSIZ453
|
||||
00056 10 FILLER PIC X(46) VALUE SPACES. DTSIZ453
|
||||
00057 10 WS-LONG-YEAR10 PIC X(04). DTSIZ453
|
||||
00058 10 FILLER PIC X(35) VALUE SPACES. DTSIZ453
|
||||
00059 05 VAR-LINE-2. DTSIZ453
|
||||
00060 10 FILLER PIC X(42) VALUE SPACES. DTSIZ453
|
||||
00061 10 RPT-DUE-DATE11 PIC X(18) VALUE SPACES. DTSIZ453
|
||||
00062 05 VAR-LINE-3. DTSIZ453
|
||||
00063 10 FILLER PIC X(01) VALUE SPACES. DTSIZ453
|
||||
00064 10 RPT-CALL-PHONE PIC X(14) VALUE SPACES. DTSIZ453
|
||||
00065 10 FILLER PIC X(01) VALUE '.'. DTSIZ453
|
||||
00066 05 VAR-LINE-4. DTSIZ453
|
||||
00067 10 FILLER PIC X(26) VALUE SPACES. DTSIZ453
|
||||
00068 10 WS-LONG-YEAR13 PIC X(04). DTSIZ453
|
||||
00069 10 FILLER PIC X(35) VALUE SPACES. DTSIZ453
|
||||
00070 DTSIZ453
|
||||
Reference in New Issue
Block a user