00001 IDENTIFICATION DIVISION. 11/04/10 00002 PROGRAM-ID. DTSBX476. DTSBX476 00003 AUTHOR. NGC. LV009 00004 DATE-WRITTEN. AUGUST 2004. DTSBX476 00005 DATE-COMPILED. DTSBX476 00006 SKIP3 DTSBX476 00007 ***** DTSBX476 00008 * DTSBX476 00009 * FUNCTION: EXTRACT FOR BENEFITS COPY OF TAX EMPLOYER DATA. DTSBX476 00010 * DTSBX476 00011 * DTSBX476 00012 ***** DTSBX476 00013 ***************************************************************** DTSBX476 00014 * * DTSBX476 00015 * MODIFICATION HISTORY: * DTSBX476 00016 * * DTSBX476 00017 * * DTSBX476 00018 * 08-03-2004 INITIAL DEVELOPMENT * DTSBX476 00019 * REFERENCE: AUTHOR OF CHANGE - GD * DTSBX476 00020 * * DTSBX476 00021 * 10-13-2004 MODIFIED TO INCLUDE POOL ACCOUNTS * DTSBX476 00022 * REFERENCE: AUTHOR OF CHANGE - GD * DTSBX476 00023 * * DTSBX476 00024 * 02-26-2009 RECOMPLIED FOR NEW MPRF - INCLUDES ELIG CD 20 * DTSBX476 00025 * FOR FAC * DTSBX476 00026 * REFERENCE: AUTHOR OF CHANGE - GD * DTSBX476 00027 * * DTSBX476 00028 * 05-10-2010 REMOVED TEST IN I1000-TIME-CHECK. THIS PREVENTED * DTSBX476 00029 * THE JOB FROM RUNNING IF THE TIME WERE LATER THAN * DTSBX476 00030 * 6:00 PM. THE CHECK WAS NEEDED TO PREVENT FILE * DTSBX476 00031 * CONTENTION PROBLEMS IF THE BENEFITS JOB THAT READS * DTSBX476 00032 * THE FILE TRIED TO RUN WHILE THE TAX JOB WAS * DTSBX476 00033 * CREATING IT. SINCE THE TAX JOB SCHEDULE HAS BEEN * DTSBX476 00034 * MOVED BACK ONE HOUR, BENEFITS WILL NOW PICK UP THE * DTSBX476 00035 * FILE EARLY IN THE MONRNING. * DTSBX476 00036 * REFERENCE: AUTHOR OF CHANGE - GD * DTSBX476 00037 * * DTSBX476 00038 * 11-04-2010 MODIFIED TO CHANGE FEIN FOR ONE EMPLOYER - * DTSBX476 00039 * TO PREVENT EMPLOYEE LAID OFF FROM ACCESSING * DTSBX476 00040 * INFORMATION THROUGH BENEFITS WEB SITE. * DTSBX476 00041 * REFERENCE: AUTHOR OF CHANGE - GD * DTSBX476 00042 * * DTSBX476 00043 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX476 00044 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX476 00045 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** * DTSBX476 00046 ***************************************************************** DTSBX476 00047 SKIP3 DTSBX476 00048 ENVIRONMENT DIVISION. DTSBX476 00049 SKIP2 DTSBX476 00050 INPUT-OUTPUT SECTION. DTSBX476 00051 DTSBX476 00052 FILE-CONTROL. DTSBX476 00053 DTSBX476 00054 SELECT TAX-FILE ASSIGN TO TAXFILE DTSBX476 00055 FILE STATUS IS TAX-STATUS. DTSBX476 00056 DTSBX476 00057 DATA DIVISION. DTSBX476 00058 DTSBX476 00059 FILE SECTION. DTSBX476 00060 DTSBX476 00061 FD TAX-FILE DTSBX476 00062 RECORDING MODE IS F DTSBX476 00063 LABEL RECORDS ARE STANDARD DTSBX476 00064 BLOCK CONTAINS 0 CHARACTERS. DTSBX476 00065 DTSBX476 00066 01 TAX-REC. DTSBX476 00067 ++INCLUDE DTSIX476 DTSBX476 00068 DTSBX476 00069 WORKING-STORAGE SECTION. DTSBX476 000695 77 PAN-VALET PICTURE X(24) VALUE '009DTSBX476 11/04/10'. DTSBX476 00070 SKIP3 DTSBX476 00071 01 WRK-AREA. DTSBX476 00072 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +476.DTSBX476 00073 DTSBX476 00074 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX476'.DTSBX476 00075 DTSBX476 00076 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSBX476 00077 DTSBX476 00078 05 WRK-TAX-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX476 00079 DTSBX476 00080 05 TAX-STATUS PIC X(02). DTSBX476 00081 88 TAX-STATUS-OK-88 VALUE '00'. DTSBX476 00082 DTSBX476 00083 05 WRK-ERROR-IND PIC X(01). DTSBX476 00084 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX476 00085 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX476 00086 DTSBX476 00087 05 WRK-MPRF-IND PIC X(01). DTSBX476 00088 88 WRK-MPRF-OK-88 VALUE 'Y'. DTSBX476 00089 88 WRK-MPRF-NO-REC-88 VALUE 'N'. DTSBX476 00090 DTSBX476 00091 05 WRK-MTAD-IND PIC X(01). DTSBX476 00092 88 WRK-MTAD-OK-88 VALUE 'Y'. DTSBX476 00093 88 WRK-MTAD-NO-REC-88 VALUE 'N'. DTSBX476 00094 DTSBX476 00095 05 WRK-MBAA-IND PIC X(01). DTSBX476 00096 88 WRK-MBAA-OK-88 VALUE 'Y'. DTSBX476 00097 88 WRK-MBAA-NO-REC-88 VALUE 'N'. DTSBX476 00098 DTSBX476 00099 05 WRK-PHONE PIC 9(10). DTSBX476 00100 05 FILLER REDEFINES WRK-PHONE. DTSBX476 00101 10 WRK-PHONE-AREA PIC 9(03). DTSBX476 00102 10 WRK-PHONE-PFX PIC 9(03). DTSBX476 00103 10 WRK-PHONE-SFX PIC 9(04). DTSBX476 00104 DTSBX476 00105 05 WRK-AMT-DISP PIC Z(10)9.99-. DTSBX476 00106 DTSBX476 00107 05 WRK-TRACE-IND PIC X(01). DTSBX476 00108 DTSBX476 00109 01 L001-LINK-AREA. DTSBX476 00110 ++INCLUDE DTSIL001 DTSBX476 00111 DTSBX476 00112 01 L004-LINK-AREA. DTSBX476 00113 ++INCLUDE DTSIL004 DTSBX476 00114 DTSBX476 00115 01 L005-LINK-AREA. DTSBX476 00116 ++INCLUDE DTSIL005 DTSBX476 00117 DTSBX476 00118 DTSBX476 00119 01 L910-LINK-AREA. DTSBX476 00120 ++INCLUDE DTSIL910 DTSBX476 00121 EJECT DTSBX476 00122 01 MSKL-REC. DTSBX476 00123 ++INCLUDE DTSIMSKL DTSBX476 00124 EJECT DTSBX476 00125 01 MHDR-REC. DTSBX476 00126 ++INCLUDE DTSIMHDR DTSBX476 00127 EJECT DTSBX476 00128 01 MPRF-REC. DTSBX476 00129 ++INCLUDE DTSIMPRF DTSBX476 00130 EJECT DTSBX476 00131 01 MBAA-REC. DTSBX476 00132 ++INCLUDE DTSIMBAA DTSBX476 00133 EJECT DTSBX476 00134 01 MTAD-REC. DTSBX476 00135 ++INCLUDE DTSIMTAD DTSBX476 00136 EJECT DTSBX476 00137 01 MRTE-REC. DTSBX476 00138 ++INCLUDE DTSIMRTE DTSBX476 00139 EJECT DTSBX476 00140 PROCEDURE DIVISION. DTSBX476 00141 DTSBX476 00142 DTSBX476-MAIN. DTSBX476 00143 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX476 00144 IF WRK-ERROR-YES-88 DTSBX476 00145 GO TO DTSBX476-MAIN-EXIT. DTSBX476 00146 DTSBX476 00147 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX476 00148 DTSBX476 00149 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX476 00150 DTSBX476 00151 DTSBX476-MAIN-EXIT. DTSBX476 00152 GOBACK. DTSBX476 00153 EJECT DTSBX476 00154 I0000-INITIATE. DTSBX476 00155 MOVE +0 TO WRK-MPRF-CNT. DTSBX476 00156 DTSBX476 00157 SET WRK-ERROR-NO-88 TO TRUE. DTSBX476 00158 DTSBX476 00159 ** PERFORM I1000-CHECK-TIME THRU I1000-EXIT. DTSBX476 00160 * IF WRK-ERROR-YES-88 DTSBX476 00161 ** GO TO I0000-EXIT. DTSBX476 00162 DTSBX476 00163 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX476 00164 IF WRK-ERROR-YES-88 DTSBX476 00165 GO TO I0000-EXIT. DTSBX476 00166 DTSBX476 00167 I0000-EXIT. DTSBX476 00168 EXIT. DTSBX476 00169 DTSBX476 00170 *I1000-CHECK-TIME. DTSBX476 00171 * PERFORM S005-FROM-SYS THRU S005-EXIT DTSBX476 00172 * IF L005-DISPLAY-H > 18 DTSBX476 00173 * SET WRK-ERROR-YES-88 TO TRUE DTSBX476 00174 * MOVE +4 TO RETURN-CODE DTSBX476 00175 * DISPLAY 'BX476: TIME > 6:00 PM, PROGRAM CANCELLED ' DTSBX476 00176 * L005-DISPLAY-TIME DTSBX476 00177 * END-IF. DTSBX476 00178 * DTSBX476 00179 *I1000-EXIT. DTSBX476 00180 * EXIT. DTSBX476 00181 DTSBX476 00182 I2000-OPEN-FILES. DTSBX476 00183 DTSBX476 00184 OPEN OUTPUT TAX-FILE. DTSBX476 00185 IF TAX-STATUS-OK-88 DTSBX476 00186 NEXT SENTENCE DTSBX476 00187 ELSE DTSBX476 00188 DISPLAY 'DTSBX476: CANNOT OPEN OUTPUT FILE ' DTSBX476 00189 TAX-STATUS DTSBX476 00190 SET WRK-ERROR-YES-88 TO TRUE DTSBX476 00191 GO TO I2000-EXIT. DTSBX476 00192 DTSBX476 00193 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBX476 00194 DTSBX476 00195 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBX476 00196 DTSBX476 00197 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX476 00198 DTSBX476 00199 I2000-EXIT. DTSBX476 00200 EXIT. DTSBX476 00201 DTSBX476 00202 DTSBX476 00203 EJECT DTSBX476 00204 P0000-PROCESS. DTSBX476 00205 DISPLAY 'BENEFITS TAX DATA EXTRACT '. DTSBX476 00206 DISPLAY SPACE. DTSBX476 00207 DTSBX476 00208 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX476 00209 MOVE +0 TO MSKL-EMP-NO. DTSBX476 00210 SET MSKL-PRF-88 TO TRUE. DTSBX476 00211 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX476 00212 IF NOT L910-OK-88 DTSBX476 00213 DISPLAY 'BAD FIRST READ' DTSBX476 00214 GO TO P0000-EXIT DTSBX476 00215 ELSE DTSBX476 00216 MOVE MSKL-REC TO MPRF-REC DTSBX476 00217 SET WRK-MPRF-OK-88 TO TRUE. DTSBX476 00218 DTSBX476 00219 PERFORM P1000-SCAN-MPRF THRU P1000-EXIT DTSBX476 00220 UNTIL WRK-MPRF-NO-REC-88. DTSBX476 00221 DTSBX476 00222 P0000-EXIT. DTSBX476 00223 EXIT. DTSBX476 00224 EJECT DTSBX476 00225 P1000-SCAN-MPRF. DTSBX476 00226 IF MPRF-ELIGIBLE-NOT-SUBJECT-88 DTSBX476 00227 NEXT SENTENCE DTSBX476 00228 ELSE DTSBX476 00229 ADD +1 TO WRK-MPRF-CNT DTSBX476 00230 PERFORM P1100-FIND-ADDRESS THRU P1100-EXIT DTSBX476 00231 PERFORM P2000-BUILD-OUTPUT THRU P2000-EXIT DTSBX476 00232 END-IF. DTSBX476 00233 DTSBX476 00234 MOVE MPRF-REC TO MSKL-REC. DTSBX476 00235 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX476 00236 IF NOT L910-OK-88 DTSBX476 00237 SET WRK-MPRF-NO-REC-88 TO TRUE DTSBX476 00238 ELSE DTSBX476 00239 MOVE MSKL-REC TO MPRF-REC. DTSBX476 00240 DTSBX476 00241 P1000-EXIT. DTSBX476 00242 EXIT. DTSBX476 00243 DTSBX476 00244 P1100-FIND-ADDRESS. DTSBX476 00245 PERFORM P1110-FIND-MBAA THRU P1110-EXIT DTSBX476 00246 IF WRK-MBAA-NO-REC-88 DTSBX476 00247 PERFORM P1120-FIND-MTAD THRU P1120-EXIT DTSBX476 00248 END-IF. DTSBX476 00249 DTSBX476 00250 P1100-EXIT. DTSBX476 00251 EXIT. DTSBX476 00252 DTSBX476 00253 P1110-FIND-MBAA. DTSBX476 00254 MOVE LOW-VALUES TO MBAA-KEY-AREA. DTSBX476 00255 MOVE MPRF-EMP-NO TO MBAA-EMP-NO. DTSBX476 00256 SET MBAA-PRIMARY-BEN-MAIL-ADDR-88 TO TRUE. DTSBX476 00257 SET MBAA-BAA-88 TO TRUE. DTSBX476 00258 MOVE MBAA-KEY-AREA TO MSKL-KEY-AREA. DTSBX476 00259 DTSBX476 00260 PERFORM S910-READ THRU S910-EXIT. DTSBX476 00261 IF L910-OK-88 DTSBX476 00262 MOVE MSKL-REC TO MBAA-REC DTSBX476 00263 SET WRK-MBAA-OK-88 TO TRUE DTSBX476 00264 ELSE DTSBX476 00265 SET WRK-MBAA-NO-REC-88 TO TRUE DTSBX476 00266 END-IF. DTSBX476 00267 DTSBX476 00268 P1110-EXIT. DTSBX476 00269 EXIT. DTSBX476 00270 DTSBX476 00271 P1120-FIND-MTAD. DTSBX476 00272 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBX476 00273 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBX476 00274 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSBX476 00275 SET MTAD-TAD-88 TO TRUE. DTSBX476 00276 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX476 00277 DTSBX476 00278 PERFORM S910-READ THRU S910-EXIT. DTSBX476 00279 IF L910-OK-88 DTSBX476 00280 MOVE MSKL-REC TO MTAD-REC DTSBX476 00281 SET WRK-MTAD-OK-88 TO TRUE DTSBX476 00282 ELSE DTSBX476 00283 SET WRK-MTAD-NO-REC-88 TO TRUE DTSBX476 00284 END-IF. DTSBX476 00285 DTSBX476 00286 P1120-EXIT. DTSBX476 00287 EXIT. DTSBX476 00288 DTSBX476 00289 P2000-BUILD-OUTPUT. DTSBX476 00290 PERFORM P2100-INITIALIZE THRU P2100-EXIT. DTSBX476 00291 PERFORM P2200-BUILD THRU P2200-EXIT. DTSBX476 00292 DTSBX476 00293 DTSBX476 00294 P2000-EXIT. DTSBX476 00295 EXIT. DTSBX476 00296 DTSBX476 00297 P2100-INITIALIZE. DTSBX476 00298 MOVE SPACES TO X476-TRADE-NAME DTSBX476 00299 X476-ENTITY-NAME DTSBX476 00300 X476-ADDRESS DTSBX476 00301 X476-REIMB-IND DTSBX476 00302 X476-EMP-STATUS-CODE DTSBX476 00303 X476-SIC-CODE DTSBX476 00304 X476-NAICS-CODE DTSBX476 00305 X476-OWN-CODE DTSBX476 00306 X476-EMAIL. DTSBX476 00307 DTSBX476 00308 MOVE ZERO TO X476-EMP-NO DTSBX476 00309 X476-FEIN DTSBX476 00310 X476-EMP-TYPE DTSBX476 00311 X476-PHONE DTSBX476 00312 X476-FAX. DTSBX476 00313 DTSBX476 00314 P2100-EXIT. DTSBX476 00315 EXIT. DTSBX476 00316 DTSBX476 00317 P2200-BUILD. DTSBX476 00318 MOVE MPRF-EMP-NO TO X476-EMP-NO. DTSBX476 00319 DTSBX476 00320 IF MPRF-PRIMARY-IS-ENTITY-88 DTSBX476 00321 MOVE MPRF-PRIMARY-NAME TO X476-ENTITY-NAME DTSBX476 00322 MOVE SPACES TO X476-TRADE-NAME DTSBX476 00323 ELSE DTSBX476 00324 MOVE MPRF-PRIMARY-NAME TO X476-TRADE-NAME DTSBX476 00325 MOVE MPRF-ENTITY-NAME TO X476-ENTITY-NAME DTSBX476 00326 END-IF. DTSBX476 00327 DTSBX476 00328 IF WRK-MBAA-OK-88 DTSBX476 00329 MOVE MBAA-ATTN-LINE TO X476-ATTN DTSBX476 00330 MOVE MBAA-DELIV-LINE-1 TO X476-DELV1 DTSBX476 00331 MOVE MBAA-DELIV-LINE-2 TO X476-DELV2 DTSBX476 00332 MOVE MBAA-CITY TO X476-CITY DTSBX476 00333 MOVE MBAA-ST TO X476-STATE DTSBX476 00334 MOVE MBAA-ZIP TO X476-ZIP DTSBX476 00335 ELSE DTSBX476 00336 MOVE MTAD-ATTN-LINE TO X476-ATTN DTSBX476 00337 MOVE MTAD-DELIV-LINE-1 TO X476-DELV1 DTSBX476 00338 MOVE MTAD-DELIV-LINE-2 TO X476-DELV2 DTSBX476 00339 MOVE MTAD-CITY TO X476-CITY DTSBX476 00340 MOVE MTAD-ST TO X476-STATE DTSBX476 00341 MOVE MTAD-ZIP TO X476-ZIP DTSBX476 00342 END-IF. DTSBX476 00343 DTSBX476 00344 *& MOVE MPRF-FEIN TO X476-FEIN. DTSBX476 00345 *& DTSBX476 00346 IF MPRF-EMP-NO = 890308 DTSBX476 00347 MOVE 224973456 TO X476-FEIN DTSBX476 00348 DISPLAY X476-EMP-NO ' ' DTSBX476 00349 X476-ENTITY-NAME ' ' X476-FEIN DTSBX476 00350 ELSE DTSBX476 00351 MOVE MPRF-FEIN TO X476-FEIN DTSBX476 00352 END-IF. DTSBX476 00353 *& DTSBX476 00354 DTSBX476 00355 IF MPRF-CLASS-RATED-88 DTSBX476 00356 SET X476-REIMB-NO-88 TO TRUE DTSBX476 00357 ELSE DTSBX476 00358 SET X476-REIMB-YES-88 TO TRUE DTSBX476 00359 END-IF. DTSBX476 00360 MOVE MPRF-EMP-STATUS TO X476-EMP-STATUS-CODE. DTSBX476 00361 MOVE MPRF-ELIGIBLE-CD TO X476-EMP-TYPE. DTSBX476 00362 MOVE MPRF-SIC-CD TO X476-SIC-CODE. DTSBX476 00363 MOVE MPRF-OWN-CD TO X476-OWN-CODE. DTSBX476 00364 MOVE MPRF-NAICS-CD TO X476-NAICS-CODE. DTSBX476 00365 DTSBX476 00366 IF WRK-MBAA-OK-88 DTSBX476 00367 IF MBAA-VOICE-1 NOT = ZEROS OR SPACES DTSBX476 00368 MOVE MBAA-VOICE-1-AREA-CD TO WRK-PHONE-AREA DTSBX476 00369 MOVE MBAA-VOICE-1-PREFIX TO WRK-PHONE-PFX DTSBX476 00370 MOVE MBAA-VOICE-1-SUFFIX TO WRK-PHONE-SFX DTSBX476 00371 ELSE DTSBX476 00372 MOVE MTAD-VOICE-1-AREA-CD TO WRK-PHONE-AREA DTSBX476 00373 MOVE MTAD-VOICE-1-PREFIX TO WRK-PHONE-PFX DTSBX476 00374 MOVE MTAD-VOICE-1-SUFFIX TO WRK-PHONE-SFX DTSBX476 00375 END-IF DTSBX476 00376 ELSE DTSBX476 00377 MOVE MTAD-VOICE-1-AREA-CD TO WRK-PHONE-AREA DTSBX476 00378 MOVE MTAD-VOICE-1-PREFIX TO WRK-PHONE-PFX DTSBX476 00379 MOVE MTAD-VOICE-1-SUFFIX TO WRK-PHONE-SFX DTSBX476 00380 END-IF. DTSBX476 00381 MOVE WRK-PHONE TO X476-PHONE. DTSBX476 00382 DTSBX476 00383 IF WRK-MBAA-OK-88 DTSBX476 00384 IF MBAA-FAX NOT = ZEROS OR SPACES DTSBX476 00385 MOVE MBAA-FAX-AREA-CD TO WRK-PHONE-AREA DTSBX476 00386 MOVE MBAA-FAX-PREFIX TO WRK-PHONE-PFX DTSBX476 00387 MOVE MBAA-FAX-SUFFIX TO WRK-PHONE-SFX DTSBX476 00388 ELSE DTSBX476 00389 MOVE MTAD-FAX-AREA-CD TO WRK-PHONE-AREA DTSBX476 00390 MOVE MTAD-FAX-PREFIX TO WRK-PHONE-PFX DTSBX476 00391 MOVE MTAD-FAX-SUFFIX TO WRK-PHONE-SFX DTSBX476 00392 END-IF DTSBX476 00393 ELSE DTSBX476 00394 MOVE MTAD-FAX-AREA-CD TO WRK-PHONE-AREA DTSBX476 00395 MOVE MTAD-FAX-PREFIX TO WRK-PHONE-PFX DTSBX476 00396 MOVE MTAD-FAX-SUFFIX TO WRK-PHONE-SFX DTSBX476 00397 END-IF. DTSBX476 00398 MOVE WRK-PHONE TO X476-FAX. DTSBX476 00399 DTSBX476 00400 IF WRK-MBAA-OK-88 DTSBX476 00401 IF MBAA-EMAIL-ADDRESS NOT = SPACES DTSBX476 00402 MOVE MBAA-EMAIL-ADDRESS TO X476-EMAIL DTSBX476 00403 ELSE DTSBX476 00404 MOVE MTAD-EMAIL-ADDRESS TO X476-EMAIL DTSBX476 00405 END-IF DTSBX476 00406 ELSE DTSBX476 00407 MOVE MTAD-EMAIL-ADDRESS TO X476-EMAIL DTSBX476 00408 END-IF. DTSBX476 00409 DTSBX476 00410 ADD +1 TO WRK-TAX-CNT. DTSBX476 00411 DTSBX476 00412 WRITE TAX-REC. DTSBX476 00413 DTSBX476 00414 P2200-EXIT. DTSBX476 00415 EXIT. DTSBX476 00416 DTSBX476 00417 T0000-TERMINATE. DTSBX476 00418 DTSBX476 00419 DISPLAY ' '. DTSBX476 00420 DTSBX476 00421 DISPLAY '*** DTSBX476 TERMINATION STATISTICS ***'. DTSBX476 00422 DTSBX476 00423 DISPLAY ' '. DTSBX476 00424 DTSBX476 00425 DISPLAY 'NUMBER OF OUTPUT RECORDS WRITTEN: ' DTSBX476 00426 WRK-TAX-CNT. DTSBX476 00427 DTSBX476 00428 DISPLAY 'NUMBER OF EMPLOYERS ENCOUNTERED: ' DTSBX476 00429 WRK-MPRF-CNT. DTSBX476 00430 DTSBX476 00431 CLOSE TAX-FILE. DTSBX476 00432 DTSBX476 00433 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX476 00434 DTSBX476 00435 T0000-EXIT. DTSBX476 00436 EXIT. DTSBX476 00437 EJECT DTSBX476 00438 S910-OPEN-READ. DTSBX476 00439 SET L910-OPEN-READ-88 TO TRUE. DTSBX476 00440 GO TO S910-MSTR-IO. DTSBX476 00441 DTSBX476 00442 S910-OPEN-UPDATE-NO-AIX. DTSBX476 00443 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX476 00444 GO TO S910-MSTR-IO. DTSBX476 00445 DTSBX476 00446 S910-READ. DTSBX476 00447 SET L910-READ-88 TO TRUE. DTSBX476 00448 GO TO S910-MSTR-IO. DTSBX476 00449 DTSBX476 00450 S910-START-BROWSE. DTSBX476 00451 SET L910-START-BROWSE-88 TO TRUE. DTSBX476 00452 GO TO S910-MSTR-IO. DTSBX476 00453 DTSBX476 00454 S910-READ-NEXT. DTSBX476 00455 SET L910-READ-NEXT-88 TO TRUE. DTSBX476 00456 GO TO S910-MSTR-IO. DTSBX476 00457 DTSBX476 00458 S910-COUNT. DTSBX476 00459 SET L910-COUNT-88 TO TRUE. DTSBX476 00460 GO TO S910-MSTR-IO. DTSBX476 00461 DTSBX476 00462 S910-REWRITE. DTSBX476 00463 SET L910-REWRITE-88 TO TRUE. DTSBX476 00464 GO TO S910-MSTR-IO. DTSBX476 00465 DTSBX476 00466 S910-CLOSE. DTSBX476 00467 SET L910-CLOSE-88 TO TRUE. DTSBX476 00468 GO TO S910-MSTR-IO. DTSBX476 00469 DTSBX476 00470 S910-MSTR-IO. DTSBX476 00471 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX476 00472 MSKL-REC. DTSBX476 00473 S910-EXIT. DTSBX476 00474 EXIT. DTSBX476 00475 DTSBX476 00476 S001-FROM-FED-8. DTSBX476 00477 SET L001-FROM-FED-8 TO TRUE. DTSBX476 00478 GO TO S001-DATE. DTSBX476 00479 DTSBX476 00480 S001-DATE. DTSBX476 00481 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX476 00482 S001-EXIT. DTSBX476 00483 EXIT. DTSBX476 00484 DTSBX476 00485 S004-FROM-5. DTSBX476 00486 SET L004-FROM-5 TO TRUE. DTSBX476 00487 GO TO S004-YRQ. DTSBX476 00488 DTSBX476 00489 S004-YRQ. DTSBX476 00490 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX476 00491 DTSBX476 00492 S004-EXIT. DTSBX476 00493 EXIT. DTSBX476 00494 DTSBX476 00495 S005-FROM-SYS. DTSBX476 00496 SET L005-FROM-SYS TO TRUE. DTSBX476 00497 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX476 00498 S005-EXIT. DTSBX476 00499 EXIT. DTSBX476