148 lines
12 KiB
COBOL
148 lines
12 KiB
COBOL
00001 01 PAGE-HEADING. 10/04/22
|
|
00002 05 HDR-LINE-1. RPTIX704
|
|
00003 10 FILLER PIC X(01) VALUE SPACE. LV002
|
|
00004 10 FILLER PIC X(05) RPTIX704
|
|
00005 VALUE '704R1'. RPTIX704
|
|
00006 10 FILLER PIC X(35) VALUE SPACES. RPTIX704
|
|
00007 10 HDR-AGY-NAME-LINE1 PIC X(50). RPTIX704
|
|
00008 10 FILLER PIC X(28) VALUE SPACES. RPTIX704
|
|
00009 10 FILLER PIC X(05) RPTIX704
|
|
00010 VALUE 'DATE:'. RPTIX704
|
|
00011 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00012 10 HDR-SYS-DATE PIC X(08). RPTIX704
|
|
00013 RPTIX704
|
|
00014 05 HDR-LINE-2. RPTIX704
|
|
00015 10 FILLER PIC X(41) VALUE SPACES. RPTIX704
|
|
00016 10 HDR-AGY-NAME-LINE2 PIC X(50). RPTIX704
|
|
00017 10 FILLER PIC X(28) VALUE SPACES. RPTIX704
|
|
00018 10 FILLER PIC X(05) RPTIX704
|
|
00019 VALUE 'TIME:'. RPTIX704
|
|
00020 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00021 10 HDR-SYS-TIME PIC X(08). RPTIX704
|
|
00022 RPTIX704
|
|
00023 05 HDR-LINE-3. RPTIX704
|
|
00024 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00025 10 FILLER PIC X(29) RPTIX704
|
|
00026 VALUE 'ROUTE TO: CHIEF, TAX DIVISION'. RPTIX704
|
|
00027 10 FILLER PIC X(89) VALUE SPACES. RPTIX704
|
|
00028 10 FILLER PIC X(05) RPTIX704
|
|
00029 VALUE 'PAGE:'. RPTIX704
|
|
00030 10 FILLER PIC X(03) VALUE SPACES. RPTIX704
|
|
00031 10 HDR-PAGE-CNT PIC ZZ,ZZ9. RPTIX704
|
|
00032 RPTIX704
|
|
00033 05 HDR-LINE-4. RPTIX704
|
|
00034 10 FILLER PIC X(12) VALUE SPACES. RPTIX704
|
|
00035 10 FILLER PIC X(20) RPTIX704
|
|
00036 VALUE ' '. RPTIX704
|
|
00037 10 FILLER PIC X(19) VALUE SPACES. RPTIX704
|
|
00038 10 FILLER PIC X(30) RPTIX704
|
|
00039 VALUE 'SUCCESSFUL FUTA CERTIFICATIONS'. RPTIX704
|
|
00040 RPTIX704
|
|
00041 05 HDR-LINE-5 PIC X(133) VALUE SPACES. RPTIX704
|
|
00042 05 HDR-LINE-6 PIC X(133) VALUE SPACES. RPTIX704
|
|
00043 05 HDR-LINE-7. RPTIX704
|
|
00044 10 FILLER PIC X(24) VALUE SPACES. RPTIX704
|
|
00045 10 FILLER PIC X(23) RPTIX704
|
|
00046 VALUE 'DOCUMENT TAX CHK F '. RPTIX704
|
|
00047 10 FILLER PIC X(04) VALUE SPACES. RPTIX704
|
|
00048 10 FILLER PIC X(08) RPTIX704
|
|
00049 VALUE 'PAYMENTS'. RPTIX704
|
|
00050 10 FILLER PIC X(05) VALUE SPACES. RPTIX704
|
|
00051 10 FILLER PIC X(08) RPTIX704
|
|
00052 VALUE 'PAYMENTS'. RPTIX704
|
|
00053 10 FILLER PIC X(05) VALUE SPACES. RPTIX704
|
|
00054 10 FILLER PIC X(08) RPTIX704
|
|
00055 VALUE 'PAYMENTS'. RPTIX704
|
|
00056 10 FILLER PIC X(05) VALUE SPACES. RPTIX704
|
|
00057 10 FILLER PIC X(08) RPTIX704
|
|
00058 VALUE 'PAYMENTS'. RPTIX704
|
|
00059 10 FILLER PIC X(05) VALUE SPACES. RPTIX704
|
|
00060 10 FILLER PIC X(08) RPTIX704
|
|
00061 VALUE 'PAYMENTS'. RPTIX704
|
|
00062 RPTIX704
|
|
00063 05 HDR-LINE-8. RPTIX704
|
|
00064 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00065 10 FILLER PIC X(15) RPTIX704
|
|
00066 VALUE 'EMP NO FEIN'. RPTIX704
|
|
00067 10 FILLER PIC X(08) VALUE SPACES. RPTIX704
|
|
00068 10 FILLER PIC X(23) RPTIX704
|
|
00069 VALUE 'LOCATER PER DIG I '. RPTIX704
|
|
00070 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00071 10 FILLER PIC X(11) RPTIX704
|
|
00072 VALUE 'PRIOR 02/01'. RPTIX704
|
|
00073 10 FILLER PIC X(02) VALUE SPACES. RPTIX704
|
|
00074 10 FILLER PIC X(11) RPTIX704
|
|
00075 VALUE '02/01-02/10'. RPTIX704
|
|
00076 10 FILLER PIC X(02) VALUE SPACES. RPTIX704
|
|
00077 10 FILLER PIC X(11) RPTIX704
|
|
00078 VALUE 'AFTER 02/10'. RPTIX704
|
|
00079 10 FILLER PIC X(02) VALUE SPACES. RPTIX704
|
|
00080 10 FILLER PIC X(11) RPTIX704
|
|
00081 VALUE '04/15&PRIOR'. RPTIX704
|
|
00082 10 FILLER PIC X(02) VALUE SPACES. RPTIX704
|
|
00083 10 FILLER PIC X(11) RPTIX704
|
|
00084 VALUE 'AFTER 04/15'. RPTIX704
|
|
00085 10 FILLER PIC X(08) VALUE SPACES. RPTIX704
|
|
00086 10 FILLER PIC X(14) RPTIX704
|
|
00087 VALUE 'TAX WAGES@RATE'. RPTIX704
|
|
00088 RPTIX704
|
|
00089 01 DETAIL-LINE1. RPTIX704
|
|
00090 05 DTL1-LINE-2. RPTIX704
|
|
00091 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00092 10 DTL1-EMP-NO PIC 999B999. RPTIX704
|
|
00093 10 FILLER PIC X(02) VALUE SPACES. RPTIX704
|
|
00094 10 DTL1-FEIN PIC 99B9(07). RPTIX704
|
|
00095 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00096 10 DTL1-DOC-LOC-NO PIC X(13). RPTIX704
|
|
00097 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00098 10 DTL1-TAX-YEAR PIC 9(04). RPTIX704
|
|
00099 10 FILLER PIC X(03) VALUE SPACES. RPTIX704
|
|
00100 10 DTL1-CHECK-DIGIT PIC X(02). RPTIX704
|
|
00101 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00102 10 DTL1-FORM-INDICATOR PIC X(01). RPTIX704
|
|
00103 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00104 10 DTL1-ONTIME PIC ZZZZZ,ZZ9.99. RPTIX704
|
|
00105 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00106 10 DTL1-GRACE PIC ZZZZZ,ZZ9.99. RPTIX704
|
|
00107 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00108 10 DTL1-LATE PIC ZZZZZ,ZZ9.99. RPTIX704
|
|
00109 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00110 10 DTL1-ONTIME-SCHED-H PIC ZZZZZ,ZZ9.99. RPTIX704
|
|
00111 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00112 10 DTL1-LATE-SCHED-H PIC ZZZZZ,ZZ9.99. RPTIX704
|
|
00113 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00114 10 WS-TAXABLE-WAGES-EDIT-1 PIC X(16). RPTIX704
|
|
00115 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00116 10 WS-RATE-DISPLAY-1 PIC X(4). RPTIX704
|
|
00117 RPTIX704
|
|
00118 01 DETAIL-LINE2. RPTIX704
|
|
00119 05 DTL2-LINE-1. RPTIX704
|
|
00120 10 FILLER PIC X(112) VALUE SPACES. RPTIX704
|
|
00121 10 WS-TAXABLE-WAGES-EDIT-2 PIC X(16). RPTIX704
|
|
00122 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00123 10 WS-RATE-DISPLAY-2 PIC X(4). RPTIX704
|
|
00124 RPTIX704
|
|
00125 01 DETAIL-LINE3. RPTIX704
|
|
00126 05 DTL3-LINE-1. RPTIX704
|
|
00127 10 FILLER PIC X(112) VALUE SPACES. RPTIX704
|
|
00128 10 WS-TAXABLE-WAGES-EDIT-3 PIC X(16). RPTIX704
|
|
00129 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00130 10 WS-RATE-DISPLAY-3 PIC X(4). RPTIX704
|
|
00131 RPTIX704
|
|
00132 01 DETAIL-LINE4. RPTIX704
|
|
00133 05 DTL4-LINE-1. RPTIX704
|
|
00134 10 FILLER PIC X(112) VALUE SPACES. RPTIX704
|
|
00135 10 WS-TAXABLE-WAGES-EDIT-4 PIC X(16). RPTIX704
|
|
00136 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00137 10 WS-RATE-DISPLAY-4 PIC X(4). RPTIX704
|
|
00138 RPTIX704
|
|
00139 01 CONTROL-FOOTING-FINAL. RPTIX704
|
|
00140 05 CFF-LINE-4. RPTIX704
|
|
00141 10 FILLER PIC X(11) VALUE SPACES. RPTIX704
|
|
00142 10 CFF-NUMBER-ONE PIC ZZZZ,ZZ9. RPTIX704
|
|
00143 10 FILLER PIC X(01) VALUE SPACE. RPTIX704
|
|
00144 10 FILLER PIC X(40) RPTIX704
|
|
00145 VALUE 'SUCCESSFUL FUTA CERTIFICATIONS (MATCHED '. RPTIX704
|
|
00146 10 FILLER PIC X(24) RPTIX704
|
|
00147 VALUE 'RECORDS RETURNED TO MCC)'. RPTIX704
|