157 lines
12 KiB
COBOL
157 lines
12 KiB
COBOL
00001 ***** 07/18/11
|
|
00002 * DTSIR517
|
|
00003 * DTSIR517 ETA-204 REPORT RECORD - JUST 1 REPORT RECORD LV007
|
|
00004 * OCCURRENCE CONTAINS ALL ITEMS REQUIRED FOR DTSIR517
|
|
00005 * FORMATTING AND DISPLAY OF THE ETA 204 REPORT. DTSIR517
|
|
00006 * DTSIR517
|
|
00007 * DTSIR517
|
|
00008 * 04/23/1999 REVIEWED AND MODIFIED FOR DC. EHH DTSIR517
|
|
00009 * DTSIR517
|
|
00010 * 06/29/2011 REVIEWED AND MODIFIED NEW ETA204 DTSIR517
|
|
00011 * REQUIREMENTS. MERGE ETA205 FIELDS ON 204 REPORT. DTSIR517
|
|
00012 ***** DTSIR517
|
|
00013 DTSIR517
|
|
00014 10 R517-LENGTH PIC S9(04) COMP. DTSIR517
|
|
00015 DTSIR517
|
|
00016 10 R517-SORT-AREA. DTSIR517
|
|
00017 15 R517-REC-TYPE PIC X(03). DTSIR517
|
|
00018 DTSIR517
|
|
00019 10 R517-DATA-AREA. DTSIR517
|
|
00020 15 R517-RUN-DATE PIC S9(09) COMP-3. DTSIR517
|
|
00021 DTSIR517
|
|
00022 15 R517-COMPUTATION-DATE PIC S9(09) COMP-3. DTSIR517
|
|
00023 DTSIR517
|
|
00024 15 R517-RATE-YEAR-END-DATE PIC S9(09) COMP-3. DTSIR517
|
|
00025 DTSIR517
|
|
00026 DTSIR517
|
|
00027 15 R517-NUMBER-AS-OF-DATE PIC S9(09) COMP-3. DTSIR517
|
|
00028 DTSIR517
|
|
00029 15 R517-PAYROLL-YEAR-END-DATE DTSIR517
|
|
00030 PIC S9(09) COMP-3. DTSIR517
|
|
00031 DTSIR517
|
|
00032 15 R517-LINE1A-COUNT PIC S9(07) COMP-3. DTSIR517
|
|
00033 DTSIR517
|
|
00034 15 R517-LINE1A-TOT-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00035 DTSIR517
|
|
00036 15 R517-LINE1A-TAX-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00037 DTSIR517
|
|
00038 15 R517-LINE1B-COUNT PIC S9(07) COMP-3. DTSIR517
|
|
00039 DTSIR517
|
|
00040 15 R517-LINE1B-TOT-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00041 DTSIR517
|
|
00042 15 R517-LINE1B-TAX-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00043 DTSIR517
|
|
00044 15 R517-LINE2-COUNT PIC S9(07) COMP-3. DTSIR517
|
|
00045 DTSIR517
|
|
00046 15 R517-LINE2-TOT-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00047 DTSIR517
|
|
00048 15 R517-LINE3A-COUNT PIC S9(07) COMP-3. DTSIR517
|
|
00049 DTSIR517
|
|
00050 15 R517-LINE3A-TOT-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00051 DTSIR517
|
|
00052 15 R517-LINE3A-TAX-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00053 DTSIR517
|
|
00054 15 R517-LINE3B-COUNT PIC S9(07) COMP-3. DTSIR517
|
|
00055 DTSIR517
|
|
00056 15 R517-LINE3B-TOT-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00057 DTSIR517
|
|
00058 15 R517-LINE3B-TAX-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00059 DTSIR517
|
|
00060 15 R517-LINE4A-COUNT PIC S9(07) COMP-3. DTSIR517
|
|
00061 DTSIR517
|
|
00062 15 R517-LINE4A-TOT-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00063 DTSIR517
|
|
00064 15 R517-LINE4A-TAX-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00065 DTSIR517
|
|
00066 15 R517-LINE4B-COUNT PIC S9(07) COMP-3. DTSIR517
|
|
00067 DTSIR517
|
|
00068 15 R517-LINE4B-TOT-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00069 DTSIR517
|
|
00070 15 R517-LINE4B-TAX-WAGES PIC S9(13) COMP-3. DTSIR517
|
|
00071 DTSIR517
|
|
00072 DTSIR517
|
|
00073 15 R517-BEN-CHRG-YEAR-END-DATE DTSIR517
|
|
00074 PIC S9(09) COMP-3. DTSIR517
|
|
00075 DTSIR517
|
|
00076 15 R517-LINE6A-CHARGES PIC S9(11) COMP-3. DTSIR517
|
|
00077 DTSIR517
|
|
00078 15 R517-LINE6A1-CHARGES PIC S9(11) COMP-3. DTSIR517
|
|
00079 DTSIR517
|
|
00080 15 R517-LINE6B-CHARGES PIC S9(11) COMP-3. DTSIR517
|
|
00081 DTSIR517
|
|
00082 15 R517-LINE7A-CHARGES PIC S9(11) COMP-3. DTSIR517
|
|
00083 DTSIR517
|
|
00084 15 R517-LINE7B-CHARGES PIC S9(11) COMP-3. DTSIR517
|
|
00085 DTSIR517
|
|
00086 DTSIR517
|
|
00087 15 R517-RATE-YEAR-TX-WG-BASE DTSIR517
|
|
00088 PIC S9(07) COMP-3. DTSIR517
|
|
00089 DTSIR517
|
|
00090 15 R517-RY-MINUS-ONE-START-DATE DTSIR517
|
|
00091 PIC S9(09) COMP-3. DTSIR517
|
|
00092 DTSIR517
|
|
00093 15 R517-RY-MINUS-ONE-END-DATE DTSIR517
|
|
00094 PIC S9(09) COMP-3. DTSIR517
|
|
00095 DTSIR517
|
|
00096 15 R517-RY-MINUS-ONE-TX-WG-BASE DTSIR517
|
|
00097 PIC S9(07) COMP-3. DTSIR517
|
|
00098 DTSIR517
|
|
00099 15 R517-RY-MINUS-TWO-START-DATE DTSIR517
|
|
00100 PIC S9(09) COMP-3. DTSIR517
|
|
00101 DTSIR517
|
|
00102 15 R517-RY-MINUS-TWO-END-DATE DTSIR517
|
|
00103 PIC S9(09) COMP-3. DTSIR517
|
|
00104 DTSIR517
|
|
00105 15 R517-RY-MINUS-TWO-TX-WG-BASE DTSIR517
|
|
00106 PIC S9(07) COMP-3. DTSIR517
|
|
00107 DTSIR517
|
|
00108 DTSIR517
|
|
00109 15 R517-ELG-REG-OCC-CNT PIC S9(04) COMP. DTSIR517
|
|
00110 DTSIR517
|
|
00111 15 R517-ELG-REG-AREA. DTSIR517
|
|
00112 20 R517-ELG-REG-OCC DTSIR517
|
|
00113 OCCURS 70 TIMES DTSIR517
|
|
00114 INDEXED BY R517-ELG-REG-IDX. DTSIR517
|
|
00115 25 R517-ELG-REG-MIN-RATIO DTSIR517
|
|
00116 PIC S9(04)V9(03) COMP-3. DTSIR517
|
|
00117 25 R517-ELG-REG-MAX-RATIO DTSIR517
|
|
00118 PIC S9(04)V9(03) COMP-3. DTSIR517
|
|
00119 25 R517-ELG-REG-EMPLR-CNT DTSIR517
|
|
00120 PIC S9(07) COMP-3. DTSIR517
|
|
00121 25 R517-ELG-REG-TOT-WAGE DTSIR517
|
|
00122 PIC S9(11) COMP-3. DTSIR517
|
|
00123 25 R517-ELG-REG-TAX-WAGE DTSIR517
|
|
00124 PIC S9(11) COMP-3. DTSIR517
|
|
00125 25 R517-ELG-REG-BEN-CHARGED DTSIR517
|
|
00126 PIC S9(09) COMP-3. DTSIR517
|
|
00127 25 R517-ELG-REG-EST-UI-PAID DTSIR517
|
|
00128 PIC S9(09) COMP-3. DTSIR517
|
|
00129 DTSIR517
|
|
00130 15 R517-ELG-SPECIAL-OCC. DTSIR517
|
|
00131 20 R517-ELG-SPECIAL-EMPLR-CNT DTSIR517
|
|
00132 PIC S9(07) COMP-3. DTSIR517
|
|
00133 20 R517-ELG-SPECIAL-TOT-WAGE DTSIR517
|
|
00134 PIC S9(11) COMP-3. DTSIR517
|
|
00135 20 R517-ELG-SPECIAL-TAX-WAGE DTSIR517
|
|
00136 PIC S9(11) COMP-3. DTSIR517
|
|
00137 20 R517-ELG-SPECIAL-BEN-CHARGED DTSIR517
|
|
00138 PIC S9(09) COMP-3. DTSIR517
|
|
00139 20 R517-ELG-SPECIAL-EST-UI-PAID DTSIR517
|
|
00140 PIC S9(09) COMP-3. DTSIR517
|
|
00141 DTSIR517
|
|
00142 15 R517-INELG-OCC. DTSIR517
|
|
00143 20 R517-INELG-EMPLR-CNT DTSIR517
|
|
00144 PIC S9(07) COMP-3. DTSIR517
|
|
00145 20 R517-INELG-TOT-WAGE DTSIR517
|
|
00146 PIC S9(11) COMP-3. DTSIR517
|
|
00147 20 R517-INELG-TAX-WAGE DTSIR517
|
|
00148 PIC S9(11) COMP-3. DTSIR517
|
|
00149 20 R517-INELG-BEN-CHARGED DTSIR517
|
|
00150 PIC S9(09) COMP-3. DTSIR517
|
|
00151 20 R517-INELG-EST-UI-PAID DTSIR517
|
|
00152 PIC S9(09) COMP-3. DTSIR517
|
|
00153 15 R517-YR-2-AVG-TAX-RATE DTSIR517
|
|
00154 PIC 9(01)V9(01). DTSIR517
|
|
00155 15 R517-YR-2-AVG-TOT-RATE DTSIR517
|
|
00156 PIC 9(01)V9(01). DTSIR517
|