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