00001 IDENTIFICATION DIVISION. 06/18/03 00002 PROGRAM-ID. DTSBR530. DTSBR530 00003 AUTHOR. TRW INC. LV003 00004 DATE-WRITTEN. APRIL 2001. DTSBR530 00005 DATE-COMPILED. DTSBR530 00006 DTSBR530 00007 ***** DTSBR530 00008 * DTSBR530 00009 * FUNCTION: EMPLOYER AVERAGE AND TOTAL TAX RATE REPORT. DTSBR530 00010 * (DOL REPORT ETA-205) DTSBR530 00011 * DTSBR530 00012 * MODIFICATION HISTORY: DTSBR530 00013 * DTSBR530 00014 * 04-03-01 INITIAL DEVELOPMENT DTSBR530 00015 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RW1 DTSBR530 00016 * DTSBR530 00017 * 06-17-2003 CORRECTED MISTAKE IN DISPLAY OF YEAR-3 DATA DTSBR530 00018 * REFERENCE AUTHOR OF CHANGE - GD DTSBR530 00019 * DTSBR530 00020 * MM-DD-CCYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR530 00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR530 00022 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXXDTSBR530 00023 * DTSBR530 00024 * DTSBR530 00025 * DESCRIPTION: DTSBR530 00026 * DTSBR530 00027 * THIS MODULE REPORTS ON THE AVERAGE TAX RATE AND THE DTSBR530 00028 * AVERAGE TOTAL RATE FOR THE LAST THREE YEARS ON EITHER DTSBR530 00029 * REGULAR OR GOVERNMENT ACCOUNTS. DTSBR530 00030 * DTSBR530 00031 * DTSBR530 00032 * RECORDS READ: DTSBR530 00033 * DTSBR530 00034 * NONE. DTSBR530 00035 * DTSBR530 00036 * DTSBR530 00037 * PRINTED OUTPUTS: DTSBR530 00038 * DTSBR530 00039 * 530R1 EMPLOYER AVERAGE TAX RATE AND AVERAGR TOTAL RATE. DTSBR530 00040 * DTSBR530 00041 * DTSBR530 00042 * RECORDS WRITTEN: DTSBR530 00043 * DTSBR530 00044 * NONE. DTSBR530 00045 * DTSBR530 00046 * DTSBR530 00047 * MODULES CALLED: DTSBR530 00048 * DTSBR530 00049 * DTSBU001 - DATE CONVERSION MODULE. DTSBR530 00050 * DTSBR530 00051 * DTSBR530 00052 ***** DTSBR530 00053 EJECT DTSBR530 00054 ENVIRONMENT DIVISION. DTSBR530 00055 DTSBR530 00056 CONFIGURATION SECTION. DTSBR530 00057 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR530 00058 DTSBR530 00059 INPUT-OUTPUT SECTION. DTSBR530 00060 DTSBR530 00061 FILE-CONTROL. DTSBR530 00062 SELECT PRT-FILE ASSIGN TO RPT530R1. DTSBR530 00063 DTSBR530 00064 DATA DIVISION. DTSBR530 00065 DTSBR530 00066 FILE SECTION. DTSBR530 00067 DTSBR530 00068 FD PRT-FILE DTSBR530 00069 RECORDING MODE IS F. DTSBR530 00070 01 REPORT-LISTING1 PIC X(133). DTSBR530 00071 DTSBR530 00072 WORKING-STORAGE SECTION. DTSBR530 000725 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR530 06/18/03'. DTSBR530 00073 DTSBR530 00074 01 WRK-AREA. DTSBR530 00075 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +530.DTSBR530 00076 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR530 00077 DTSBR530 00078 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR530 00079 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR530 00080 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR530 00081 DTSBR530 00082 01 PAGE-HEADING. DTSBR530 00083 DTSBR530 00084 05 HDR-LINE-1. DTSBR530 00085 10 FILLER PIC X(01) VALUE SPACE. DTSBR530 00086 10 FILLER PIC X(05) DTSBR530 00087 VALUE '530R1'. DTSBR530 00088 10 FILLER PIC X(35) VALUE SPACES. DTSBR530 00089 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR530 00090 10 FILLER PIC X(28) VALUE SPACES. DTSBR530 00091 10 FILLER PIC X(05) DTSBR530 00092 VALUE 'DATE:'. DTSBR530 00093 10 FILLER PIC X(01) VALUE SPACE. DTSBR530 00094 10 HDR-SYS-DATE PIC X(08). DTSBR530 00095 DTSBR530 00096 05 HDR-LINE-2. DTSBR530 00097 10 FILLER PIC X(41) VALUE SPACES. DTSBR530 00098 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR530 00099 10 FILLER PIC X(28) VALUE SPACES. DTSBR530 00100 10 FILLER PIC X(05) DTSBR530 00101 VALUE 'TIME:'. DTSBR530 00102 10 FILLER PIC X(01) VALUE SPACE. DTSBR530 00103 10 HDR-SYS-TIME PIC X(08). DTSBR530 00104 DTSBR530 00105 05 HDR-LINE-3. DTSBR530 00106 10 FILLER PIC X(01) VALUE SPACE. DTSBR530 00107 10 FILLER PIC X(35) DTSBR530 00108 VALUE 'ROUTE TO: UI DIRECTOR '. DTSBR530 00109 10 FILLER PIC X(83) VALUE SPACES. DTSBR530 00110 10 FILLER PIC X(05) DTSBR530 00111 VALUE 'PAGE:'. DTSBR530 00112 10 FILLER PIC X(03) VALUE SPACES. DTSBR530 00113 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR530 00114 DTSBR530 00115 05 HDR-LINE-4. DTSBR530 00116 10 FILLER PIC X(48) VALUE SPACES. DTSBR530 00117 10 FILLER PIC X(35) DTSBR530 00118 VALUE ' ETA-205 '. DTSBR530 00119 10 FILLER PIC X(50) VALUE SPACES. DTSBR530 00120 DTSBR530 00121 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR530 00122 DTSBR530 00123 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR530 00124 DTSBR530 00125 05 HDR-LINE-7. DTSBR530 00126 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00127 10 FILLER PIC X(20) DTSBR530 00128 VALUE 'STATE: DC '. DTSBR530 00129 10 FILLER PIC X(35) VALUE SPACES. DTSBR530 00130 10 FILLER PIC X(30) DTSBR530 00131 VALUE 'AVERAGE EMPLOYER TAX RATES:'. DTSBR530 00132 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00133 10 HDR-RPT-YR-END PIC X(10) VALUE SPACES. DTSBR530 00134 **** 10 FILLER PIC X(77) VALUE SPACES. DTSBR530 00135 DTSBR530 00136 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR530 00137 DTSBR530 00138 05 HDR-LINE-9. DTSBR530 00139 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00140 10 FILLER PIC X(07) VALUE SPACES. DTSBR530 00141 10 FILLER PIC X(05) DTSBR530 00142 VALUE 'YEAR:'. DTSBR530 00143 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00144 10 HDR-YR-1-DATE PIC X(10). DTSBR530 00145 10 FILLER PIC X(16) VALUE SPACES. DTSBR530 00146 10 FILLER PIC X(05) DTSBR530 00147 VALUE 'YEAR:'. DTSBR530 00148 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00149 10 HDR-YR-2-DATE PIC X(10). DTSBR530 00150 10 FILLER PIC X(16) VALUE SPACES. DTSBR530 00151 10 FILLER PIC X(05) DTSBR530 00152 VALUE 'YEAR:'. DTSBR530 00153 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00154 10 HDR-YR-3-DATE PIC X(10). DTSBR530 00155 10 FILLER PIC X(43) VALUE SPACES. DTSBR530 00156 DTSBR530 00157 05 HDR-LINE-10 PIC X(133) VALUE SPACES. DTSBR530 00158 DTSBR530 00159 05 HDR-LINE-11. DTSBR530 00160 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00161 10 FILLER PIC X(05) VALUE SPACES. DTSBR530 00162 10 FILLER PIC X(07) DTSBR530 00163 VALUE 'TAXABLE'. DTSBR530 00164 10 FILLER PIC X(09) VALUE SPACES. DTSBR530 00165 10 FILLER PIC X(05) DTSBR530 00166 VALUE 'TOTAL'. DTSBR530 00167 10 FILLER PIC X(11) VALUE SPACES. DTSBR530 00168 10 FILLER PIC X(07) DTSBR530 00169 VALUE 'TAXABLE'. DTSBR530 00170 10 FILLER PIC X(09) VALUE SPACES. DTSBR530 00171 10 FILLER PIC X(05) DTSBR530 00172 VALUE 'TOTAL'. DTSBR530 00173 10 FILLER PIC X(11) VALUE SPACES. DTSBR530 00174 10 FILLER PIC X(07) DTSBR530 00175 VALUE 'TAXABLE'. DTSBR530 00176 10 FILLER PIC X(09) VALUE SPACES. DTSBR530 00177 10 FILLER PIC X(05) DTSBR530 00178 VALUE 'TOTAL'. DTSBR530 00179 10 FILLER PIC X(11) VALUE SPACES. DTSBR530 00180 10 FILLER PIC X(36) VALUE SPACES. DTSBR530 00181 DTSBR530 00182 05 HDR-LINE-12 PIC X(133) VALUE SPACES. DTSBR530 00183 DTSBR530 00184 01 DETAIL-LINE1. DTSBR530 00185 05 DTL1-LINE-1. DTSBR530 00186 10 FILLER PIC X(01) VALUE SPACES. DTSBR530 00187 10 FILLER PIC X(07) VALUE SPACES. DTSBR530 00188 10 DTL-YR-1-TAX-RATE PIC 9.99. DTSBR530 00189 10 FILLER PIC X(10) VALUE SPACES. DTSBR530 00190 10 DTL-YR-1-TOT-RATE PIC 9.99. DTSBR530 00191 10 FILLER PIC X(14) VALUE SPACES. DTSBR530 00192 10 DTL-YR-2-TAX-RATE PIC 9.99. DTSBR530 00193 10 FILLER PIC X(10) VALUE SPACES. DTSBR530 00194 10 DTL-YR-2-TOT-RATE PIC 9.99. DTSBR530 00195 10 FILLER PIC X(14) VALUE SPACES. DTSBR530 00196 10 DTL-YR-3-TAX-RATE PIC 9.99. DTSBR530 00197 10 FILLER PIC X(10) VALUE SPACES. DTSBR530 00198 10 DTL-YR-3-TOT-RATE PIC 9.99. DTSBR530 00199 10 FILLER PIC X(38) VALUE SPACES. DTSBR530 00200 DTSBR530 00201 01 NO-REPORT-LINE. DTSBR530 00202 05 NO-RPT-LINE-5. DTSBR530 00203 10 FILLER PIC X(24) VALUE SPACES. DTSBR530 00204 10 FILLER PIC X(19) DTSBR530 00205 VALUE 'INPUT FILE IS EMPTY'. DTSBR530 00206 DTSBR530 00207 01 CONTROL-FOOTING-FINAL. DTSBR530 00208 05 CFF-LINE-4. DTSBR530 00209 10 FILLER PIC X(26) VALUE SPACES. DTSBR530 00210 10 FILLER PIC X(17) DTSBR530 00211 VALUE '*** END OF REPORT'. DTSBR530 00212 EJECT DTSBR530 00213 DTSBR530 00214 01 L001-LINK-AREA. DTSBR530 00215 ++INCLUDE DTSIL001 DTSBR530 00216 DTSBR530 00217 LINKAGE SECTION. DTSBR530 00218 DTSBR530 00219 01 LRCM-LINK-AREA. DTSBR530 00220 ++INCLUDE DTSILRCM DTSBR530 00221 EJECT DTSBR530 00222 01 R530-REC. DTSBR530 00223 ++INCLUDE DTSIR530 DTSBR530 00224 EJECT DTSBR530 00225 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR530 00226 R530-REC. DTSBR530 00227 IF FIRST-TIME-IND = 'Y' DTSBR530 00228 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR530 00229 MOVE 'N' TO FIRST-TIME-IND DTSBR530 00230 IF LRCM-EOR-88 DTSBR530 00231 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR530 00232 WRITE REPORT-LISTING1 FROM NO-RPT-LINE-5 AFTER 5. DTSBR530 00233 DTSBR530 00234 IF LRCM-EOR-88 DTSBR530 00235 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR530 00236 ELSE DTSBR530 00237 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR530 00238 DTSBR530 00239 GOBACK. DTSBR530 00240 DTSBR530 00241 I1000-INITIATE. DTSBR530 00242 DTSBR530 00243 OPEN OUTPUT PRT-FILE. DTSBR530 00244 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR530 00245 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR530 00246 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR530 00247 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR530 00248 MOVE SPACES TO REPORT-LISTING1. DTSBR530 00249 DTSBR530 00250 MOVE R530-RPT-YR-END TO L001-FED-8-DATE-9. DTSBR530 00251 SET L001-FROM-FED-8 TO TRUE. DTSBR530 00252 PERFORM S001-DATE THRU S001-EXIT. DTSBR530 00253 **** MOVE L001-SLASH-8-DATE TO HDR-RPT-YR-END. DTSBR530 00254 DTSBR530 00255 MOVE R530-YR-1-DATE TO L001-FED-8-DATE-9. DTSBR530 00256 SET L001-FROM-FED-8 TO TRUE. DTSBR530 00257 PERFORM S001-DATE THRU S001-EXIT. DTSBR530 00258 MOVE L001-SLASH-8-DATE TO HDR-YR-1-DATE. DTSBR530 00259 DTSBR530 00260 MOVE R530-YR-2-DATE TO L001-FED-8-DATE-9. DTSBR530 00261 SET L001-FROM-FED-8 TO TRUE. DTSBR530 00262 PERFORM S001-DATE THRU S001-EXIT. DTSBR530 00263 MOVE L001-SLASH-8-DATE TO HDR-YR-2-DATE. DTSBR530 00264 DTSBR530 00265 MOVE R530-YR-3-DATE TO L001-FED-8-DATE-9. DTSBR530 00266 SET L001-FROM-FED-8 TO TRUE. DTSBR530 00267 PERFORM S001-DATE THRU S001-EXIT. DTSBR530 00268 MOVE L001-SLASH-8-DATE TO HDR-YR-3-DATE. DTSBR530 00269 DTSBR530 00270 I1000-EXIT. DTSBR530 00271 EXIT. DTSBR530 00272 DTSBR530 00273 P1000-PROCESS. DTSBR530 00274 DTSBR530 00275 MULTIPLY R530-YR-1-AVG-TAX-RATE BY 100 GIVING DTSBR530 00276 DTL-YR-1-TAX-RATE ROUNDED. DTSBR530 00277 MULTIPLY R530-YR-1-AVG-TOT-RATE BY 100 GIVING DTSBR530 00278 DTL-YR-1-TOT-RATE ROUNDED. DTSBR530 00279 DTSBR530 00280 MULTIPLY R530-YR-2-AVG-TAX-RATE BY 100 GIVING DTSBR530 00281 DTL-YR-2-TAX-RATE ROUNDED. DTSBR530 00282 MULTIPLY R530-YR-2-AVG-TOT-RATE BY 100 GIVING DTSBR530 00283 DTL-YR-2-TOT-RATE ROUNDED. DTSBR530 00284 DTSBR530 00285 MULTIPLY R530-YR-3-AVG-TAX-RATE BY 100 GIVING DTSBR530 00286 DTL-YR-3-TAX-RATE ROUNDED. DTSBR530 00287 MULTIPLY R530-YR-3-AVG-TOT-RATE BY 100 GIVING DTSBR530 00288 DTL-YR-3-TOT-RATE ROUNDED. DTSBR530 00289 DTSBR530 00290 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR530 00291 WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 1. DTSBR530 00292 ADD +1 TO WS-LINE-CNT2. DTSBR530 00293 DTSBR530 00294 P1000-EXIT. DTSBR530 00295 EXIT. DTSBR530 00296 EJECT DTSBR530 00297 DTSBR530 00298 P2000-PRINT-HEADER. DTSBR530 00299 DTSBR530 00300 IF WS-LINE-CNT GREATER 58 OR DTSBR530 00301 WS-LINE-CNT2 GREATER 58 DTSBR530 00302 MOVE +0 TO WS-LINE-CNT DTSBR530 00303 MOVE +0 TO WS-LINE-CNT2 DTSBR530 00304 ADD +1 TO WS-PAGE-CNT DTSBR530 00305 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR530 00306 WRITE REPORT-LISTING1 FROM HDR-LINE-1 DTSBR530 00307 AFTER TOP-OF-PAGE DTSBR530 00308 WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1 DTSBR530 00309 WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1 DTSBR530 00310 WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1 DTSBR530 00311 WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1 DTSBR530 00312 WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1 DTSBR530 00313 WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1 DTSBR530 00314 WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1 DTSBR530 00315 WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1 DTSBR530 00316 WRITE REPORT-LISTING1 FROM HDR-LINE-10 AFTER 1 DTSBR530 00317 WRITE REPORT-LISTING1 FROM HDR-LINE-11 AFTER 1 DTSBR530 00318 WRITE REPORT-LISTING1 FROM HDR-LINE-12 AFTER 1 DTSBR530 00319 ADD +12 TO WS-LINE-CNT2. DTSBR530 00320 DTSBR530 00321 P2000-EXIT. DTSBR530 00322 EXIT. DTSBR530 00323 DTSBR530 00324 T1000-TERMINATE. DTSBR530 00325 DTSBR530 00326 IF WS-LINE-CNT2 > 53 DTSBR530 00327 ADD +8 TO WS-LINE-CNT2 DTSBR530 00328 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT DTSBR530 00329 END-IF. DTSBR530 00330 DTSBR530 00331 WRITE REPORT-LISTING1 FROM CFF-LINE-4 AFTER 4. DTSBR530 00332 CLOSE PRT-FILE. DTSBR530 00333 DTSBR530 00334 T1000-EXIT. DTSBR530 00335 EXIT. DTSBR530 00336 EJECT DTSBR530 00337 DTSBR530 00338 S001-DATE. DTSBR530 00339 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR530 00340 S001-EXIT. DTSBR530 00341 EXIT. DTSBR530 00342 DTSBR530 00343 *S999-ABEND. DTSBR530 00344 * DTSBR530 00345 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR530 00346 * DTSBR530 00347 *S999-EXIT. DTSBR530 00348 * EXIT. DTSBR530 00349 DTSBR530