00001 IDENTIFICATION DIVISION. 06/13/05 00002 PROGRAM-ID. DTSBX477. DTSBX477 00003 AUTHOR. NGC. LV001 00004 DATE-WRITTEN. MARCH 2005. DTSBX477 00005 DATE-COMPILED. DTSBX477 00006 SKIP3 DTSBX477 00007 ***** DTSBX477 00008 * DTSBX477 00009 * FUNCTION: TAX EMPLOYER EXTRACT FOR VOS DTSBX477 00010 * DTSBX477 00011 * DTSBX477 00012 ***** DTSBX477 00013 ***************************************************************** DTSBX477 00014 * * DTSBX477 00015 * MODIFICATION HISTORY: * DTSBX477 00016 * * DTSBX477 00017 * * DTSBX477 00018 * 03-33-2005 INITIAL DEVELOPMENT * DTSBX477 00019 * REFERENCE: AUTHOR OF CHANGE - GD * DTSBX477 00020 * * DTSBX477 00021 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX477 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX477 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** * DTSBX477 00024 ***************************************************************** DTSBX477 00025 SKIP3 DTSBX477 00026 ENVIRONMENT DIVISION. DTSBX477 00027 SKIP2 DTSBX477 00028 INPUT-OUTPUT SECTION. DTSBX477 00029 DTSBX477 00030 FILE-CONTROL. DTSBX477 00031 DTSBX477 00032 SELECT TAX-FILE ASSIGN TO TAXFILE DTSBX477 00033 FILE STATUS IS TAX-STATUS. DTSBX477 00034 DTSBX477 00035 DATA DIVISION. DTSBX477 00036 DTSBX477 00037 FILE SECTION. DTSBX477 00038 DTSBX477 00039 FD TAX-FILE DTSBX477 00040 RECORDING MODE IS F DTSBX477 00041 BLOCK CONTAINS 0 RECORDS DTSBX477 00042 LABEL RECORDS ARE OMITTED. DTSBX477 00043 DTSBX477 00044 01 TAX-REC PIC X(290). DTSBX477 00045 DTSBX477 00046 WORKING-STORAGE SECTION. DTSBX477 000465 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX477 06/13/05'. DTSBX477 00047 SKIP3 DTSBX477 00048 01 WRK-AREA. DTSBX477 00049 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +477.DTSBX477 00050 DTSBX477 00051 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX477'.DTSBX477 00052 DTSBX477 00053 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSBX477 00054 DTSBX477 00055 05 WRK-TAX-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX477 00056 DTSBX477 00057 05 TAX-STATUS PIC X(02). DTSBX477 00058 88 TAX-STATUS-OK-88 VALUE '00'. DTSBX477 00059 DTSBX477 00060 05 WRK-ERROR-IND PIC X(01). DTSBX477 00061 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX477 00062 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX477 00063 DTSBX477 00064 05 WRK-RUN-TYPE PIC X(06). DTSBX477 00065 88 WRK-RUN-TYPE-CONV-88 VALUE ' CONV'. DTSBX477 00066 88 WRK-RUN-TYPE-UPDATE-88 VALUE 'UPDATE'. DTSBX477 00067 DTSBX477 00068 05 WRK-INTERVAL PIC X(01). DTSBX477 00069 88 WRK-INTERVAL-WEEK-88 VALUE 'W'. DTSBX477 00070 88 WRK-INTERVAL-MONTH-88 VALUE 'M'. DTSBX477 00071 88 WRK-INTERVAL-QTR-88 VALUE 'Q'. DTSBX477 00072 DTSBX477 00073 05 WRK-SELECT-IND PIC X(01). DTSBX477 00074 88 WRK-SELECT-YES-88 VALUE 'Y'. DTSBX477 00075 88 WRK-SELECT-NO-88 VALUE 'N'. DTSBX477 00076 DTSBX477 00077 DTSBX477 00078 05 WRK-CUTOFF-DATE PIC S9(09) COMP-3. DTSBX477 00079 DTSBX477 00080 05 WRK-AMT-DISP PIC Z(10)9.99-. DTSBX477 00081 DTSBX477 00082 05 WRK-TRACE-IND PIC X(01). DTSBX477 00083 DTSBX477 00084 01 WRK-TAX-REC. DTSBX477 00085 ++INCLUDE DTSIXTRO DTSBX477 00086 DTSBX477 00087 01 L001-LINK-AREA. DTSBX477 00088 ++INCLUDE DTSIL001 DTSBX477 00089 DTSBX477 00090 01 L004-LINK-AREA. DTSBX477 00091 ++INCLUDE DTSIL004 DTSBX477 00092 DTSBX477 00093 01 L005-LINK-AREA. DTSBX477 00094 ++INCLUDE DTSIL005 DTSBX477 00095 DTSBX477 00096 DTSBX477 00097 01 L910-LINK-AREA. DTSBX477 00098 ++INCLUDE DTSIL910 DTSBX477 00099 EJECT DTSBX477 00100 01 MSKL-REC. DTSBX477 00101 ++INCLUDE DTSIMSKL DTSBX477 00102 EJECT DTSBX477 00103 01 MHDR-REC. DTSBX477 00104 ++INCLUDE DTSIMHDR DTSBX477 00105 EJECT DTSBX477 00106 01 MPRF-REC. DTSBX477 00107 ++INCLUDE DTSIMPRF DTSBX477 00108 EJECT DTSBX477 00109 01 MBAA-REC. DTSBX477 00110 ++INCLUDE DTSIMBAA DTSBX477 00111 EJECT DTSBX477 00112 01 MTAD-REC. DTSBX477 00113 ++INCLUDE DTSIMTAD DTSBX477 00114 EJECT DTSBX477 00115 01 MLOG-REC. DTSBX477 00116 ++INCLUDE DTSIMLOG DTSBX477 00117 EJECT DTSBX477 00118 LINKAGE SECTION. DTSBX477 00119 SKIP3 DTSBX477 00120 01 PARM-AREA. DTSBX477 00121 05 PARM-LENGTH PIC S9(04) COMP. DTSBX477 00122 DTSBX477 00123 05 PARM-DATA. DTSBX477 00124 10 PARM-RUN-TYPE PIC X(06). DTSBX477 00125 88 PARM-RUN-TYPE-CONV-88 VALUE ' CONV'. DTSBX477 00126 88 PARM-RUN-TYPE-UPDATE-88 VALUE 'UPDATE'. DTSBX477 00127 88 PARM-RUN-TYPE-VALID-88 VALUE ' CONV', DTSBX477 00128 'UPDATE'. DTSBX477 00129 10 FILLER PIC X(01). DTSBX477 00130 10 PARM-INTERVAL PIC X(01). DTSBX477 00131 88 PARM-INTERVAL-WEEK-88 VALUE 'W'. DTSBX477 00132 88 PARM-INTERVAL-MONTH-88 VALUE 'M'. DTSBX477 00133 88 PARM-INTERVAL-QTR-88 VALUE 'Q'. DTSBX477 00134 88 PARM-INTERVAL-VALID-88 VALUE 'W' 'M' 'Q'. DTSBX477 00135 DTSBX477 00136 PROCEDURE DIVISION USING PARM-AREA. DTSBX477 00137 DTSBX477 00138 DTSBX477-MAIN. DTSBX477 00139 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX477 00140 IF WRK-ERROR-YES-88 DTSBX477 00141 GO TO DTSBX477-MAIN-EXIT. DTSBX477 00142 DTSBX477 00143 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX477 00144 DTSBX477 00145 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX477 00146 DTSBX477 00147 DTSBX477-MAIN-EXIT. DTSBX477 00148 GOBACK. DTSBX477 00149 EJECT DTSBX477 00150 I0000-INITIATE. DTSBX477 00151 MOVE +0 TO WRK-MPRF-CNT. DTSBX477 00152 DTSBX477 00153 SET WRK-ERROR-NO-88 TO TRUE. DTSBX477 00154 DTSBX477 00155 PERFORM I1000-EDIT-PARM THRU I1000-EXIT. DTSBX477 00156 IF WRK-ERROR-YES-88 DTSBX477 00157 GO TO I0000-EXIT. DTSBX477 00158 DTSBX477 00159 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX477 00160 IF WRK-ERROR-YES-88 DTSBX477 00161 GO TO I0000-EXIT. DTSBX477 00162 DTSBX477 00163 PERFORM I3000-READ-HEADER THRU I3000-EXIT. DTSBX477 00164 DTSBX477 00165 I0000-EXIT. DTSBX477 00166 EXIT. DTSBX477 00167 DTSBX477 00168 I1000-EDIT-PARM. DTSBX477 00169 IF NOT PARM-RUN-TYPE-VALID-88 DTSBX477 00170 SET WRK-ERROR-YES-88 TO TRUE DTSBX477 00171 DISPLAY 'DTSBX477: INVALID RUN TYPE PARM ' DTSBX477 00172 PARM-RUN-TYPE DTSBX477 00173 GO TO I1000-EXIT DTSBX477 00174 ELSE DTSBX477 00175 MOVE PARM-RUN-TYPE TO WRK-RUN-TYPE DTSBX477 00176 END-IF. DTSBX477 00177 DTSBX477 00178 IF WRK-RUN-TYPE-UPDATE-88 DTSBX477 00179 IF NOT PARM-INTERVAL-VALID-88 DTSBX477 00180 SET WRK-ERROR-YES-88 TO TRUE DTSBX477 00181 DISPLAY 'DTSBX477: INVALID INTERVAL PARM ' DTSBX477 00182 PARM-INTERVAL DTSBX477 00183 GO TO I1000-EXIT DTSBX477 00184 ELSE DTSBX477 00185 MOVE PARM-INTERVAL TO WRK-INTERVAL DTSBX477 00186 END-IF DTSBX477 00187 END-IF. DTSBX477 00188 DTSBX477 00189 I1000-EXIT. DTSBX477 00190 EXIT. DTSBX477 00191 DTSBX477 00192 I2000-OPEN-FILES. DTSBX477 00193 DTSBX477 00194 OPEN OUTPUT TAX-FILE. DTSBX477 00195 IF TAX-STATUS-OK-88 DTSBX477 00196 NEXT SENTENCE DTSBX477 00197 ELSE DTSBX477 00198 DISPLAY 'DTSBX477: CANNOT OPEN OUTPUT FILE ' DTSBX477 00199 TAX-STATUS DTSBX477 00200 SET WRK-ERROR-YES-88 TO TRUE DTSBX477 00201 GO TO I2000-EXIT. DTSBX477 00202 DTSBX477 00203 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBX477 00204 DTSBX477 00205 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBX477 00206 DTSBX477 00207 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX477 00208 DTSBX477 00209 I2000-EXIT. DTSBX477 00210 EXIT. DTSBX477 00211 DTSBX477 00212 I3000-READ-HEADER. DTSBX477 00213 MOVE LOW-VALUES TO MSKL-REC. DTSBX477 00214 DTSBX477 00215 MOVE +0 TO MSKL-EMP-NO. DTSBX477 00216 DTSBX477 00217 SET MSKL-HDR-88 TO TRUE. DTSBX477 00218 DTSBX477 00219 PERFORM S910-READ THRU S910-EXIT. DTSBX477 00220 DTSBX477 00221 IF L910-NO-REC-88 DTSBX477 00222 DISPLAY 'DTSBX477: MHDR RECORD IS MISSING' DTSBX477 00223 SET WRK-ERROR-YES-88 TO TRUE DTSBX477 00224 GO TO I3000-EXIT DTSBX477 00225 ELSE DTSBX477 00226 MOVE MSKL-REC TO MHDR-REC DTSBX477 00227 END-IF. DTSBX477 00228 DTSBX477 00229 EVALUATE TRUE DTSBX477 00230 WHEN WRK-INTERVAL-WEEK-88 DTSBX477 00231 MOVE MHDR-CMPL-WEEK-END-DATE TO WRK-CUTOFF-DATE DTSBX477 00232 DTSBX477 00233 WHEN WRK-INTERVAL-MONTH-88 DTSBX477 00234 MOVE MHDR-CMPL-MONTH-END-DATE TO WRK-CUTOFF-DATE DTSBX477 00235 DTSBX477 00236 WHEN WRK-INTERVAL-QTR-88 DTSBX477 00237 MOVE MHDR-CMPL-QTR-END-DATE TO WRK-CUTOFF-DATE DTSBX477 00238 DTSBX477 00239 END-EVALUATE. DTSBX477 00240 DTSBX477 00241 I3000-EXIT. DTSBX477 00242 EXIT. DTSBX477 00243 DTSBX477 00244 EJECT DTSBX477 00245 P0000-PROCESS. DTSBX477 00246 DISPLAY 'VOS EMPLOYER EXTRACT '. DTSBX477 00247 DISPLAY SPACE. DTSBX477 00248 DTSBX477 00249 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX477 00250 MOVE +0 TO MSKL-EMP-NO. DTSBX477 00251 SET MSKL-PRF-88 TO TRUE. DTSBX477 00252 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX477 00253 IF NOT L910-OK-88 DTSBX477 00254 DISPLAY 'BAD FIRST READ' DTSBX477 00255 GO TO P0000-EXIT DTSBX477 00256 ELSE DTSBX477 00257 MOVE MSKL-REC TO MPRF-REC DTSBX477 00258 END-IF. DTSBX477 00259 DTSBX477 00260 PERFORM P1000-SCAN-MPRF THRU P1000-EXIT DTSBX477 00261 UNTIL L910-NO-REC-88. DTSBX477 00262 DTSBX477 00263 P0000-EXIT. DTSBX477 00264 EXIT. DTSBX477 00265 EJECT DTSBX477 00266 P1000-SCAN-MPRF. DTSBX477 00267 SET WRK-SELECT-NO-88 TO TRUE. DTSBX477 00268 DTSBX477 00269 IF MPRF-CLASS-SUB-88 DTSBX477 00270 IF MPRF-STATUS-ACT-88 DTSBX477 00271 IF MPRF-FEIN > ZERO DTSBX477 00272 ADD +1 TO WRK-MPRF-CNT DTSBX477 00273 PERFORM P2000-CHK-UPDATES THRU P2000-EXIT DTSBX477 00274 IF WRK-SELECT-YES-88 DTSBX477 00275 PERFORM P3000-BUILD-OUTPUT THRU P3000-EXIT DTSBX477 00276 END-IF DTSBX477 00277 END-IF DTSBX477 00278 END-IF DTSBX477 00279 END-IF. DTSBX477 00280 DTSBX477 00281 MOVE MPRF-REC TO MSKL-REC. DTSBX477 00282 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX477 00283 IF L910-OK-88 DTSBX477 00284 MOVE MSKL-REC TO MPRF-REC DTSBX477 00285 END-IF. DTSBX477 00286 DTSBX477 00287 P1000-EXIT. DTSBX477 00288 EXIT. DTSBX477 00289 DTSBX477 00290 P2000-CHK-UPDATES. DTSBX477 00291 IF WRK-RUN-TYPE-CONV-88 DTSBX477 00292 SET WRK-SELECT-YES-88 TO TRUE DTSBX477 00293 GO TO P2000-EXIT DTSBX477 00294 ELSE DTSBX477 00295 IF MPRF-ESTB-DATE > WRK-CUTOFF-DATE DTSBX477 00296 SET WRK-SELECT-YES-88 TO TRUE DTSBX477 00297 GO TO P2000-EXIT DTSBX477 00298 ELSE DTSBX477 00299 PERFORM P2100-CHECK-MLOG THRU P2100-EXIT DTSBX477 00300 END-IF DTSBX477 00301 END-IF. DTSBX477 00302 DTSBX477 00303 P2000-EXIT. DTSBX477 00304 EXIT. DTSBX477 00305 DTSBX477 00306 P2100-CHECK-MLOG. DTSBX477 00307 MOVE LOW-VALUES TO MLOG-KEY-AREA. DTSBX477 00308 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. DTSBX477 00309 SET MLOG-LOG-88 TO TRUE. DTSBX477 00310 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. DTSBX477 00311 DTSBX477 00312 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX477 00313 IF L910-OK-88 DTSBX477 00314 MOVE MSKL-REC TO MLOG-REC DTSBX477 00315 PERFORM DTSBX477 00316 UNTIL L910-NO-REC-88 DTSBX477 00317 PERFORM P2110-EVALUATE THRU P2110-EXIT DTSBX477 00318 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBX477 00319 MOVE MSKL-REC TO MLOG-REC DTSBX477 00320 END-PERFORM DTSBX477 00321 END-IF. DTSBX477 00322 DTSBX477 00323 P2100-EXIT. DTSBX477 00324 EXIT. DTSBX477 00325 DTSBX477 00326 P2110-EVALUATE. DTSBX477 00327 IF ((MLOG-DATA-ELEMENT-NAME = DTSBX477 00328 'MPRF-PRIMARY-NAME' OR 'MPRF-ENTITY-NAME' DTSBX477 00329 OR 'MPRF-FEIN') DTSBX477 00330 AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE) DTSBX477 00331 SET WRK-SELECT-YES-88 TO TRUE DTSBX477 00332 ELSE DTSBX477 00333 IF ((MLOG-DE-REC-TYPE = 'MTAD') DTSBX477 00334 AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE) DTSBX477 00335 SET WRK-SELECT-YES-88 TO TRUE DTSBX477 00336 END-IF DTSBX477 00337 END-IF. DTSBX477 00338 DTSBX477 00339 P2110-EXIT. DTSBX477 00340 EXIT. DTSBX477 00341 DTSBX477 00342 P3000-BUILD-OUTPUT. DTSBX477 00343 INITIALIZE WRK-TAX-REC. DTSBX477 00344 PERFORM P3100-MAIL-ADDR THRU P3100-EXIT. DTSBX477 00345 IF WRK-ERROR-NO-88 DTSBX477 00346 PERFORM P3200-PHYSICAL-ADDR THRU P3200-EXIT DTSBX477 00347 PERFORM P3300-WRITE THRU P3300-EXIT DTSBX477 00348 END-IF. DTSBX477 00349 DTSBX477 00350 P3000-EXIT. DTSBX477 00351 EXIT. DTSBX477 00352 DTSBX477 00353 P3100-MAIL-ADDR. DTSBX477 00354 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBX477 00355 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBX477 00356 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSBX477 00357 SET MTAD-TAD-88 TO TRUE. DTSBX477 00358 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX477 00359 DTSBX477 00360 PERFORM S910-READ THRU S910-EXIT. DTSBX477 00361 IF L910-OK-88 DTSBX477 00362 MOVE MSKL-REC TO MTAD-REC DTSBX477 00363 STRING DTSBX477 00364 MTAD-DELIV-LINE-1 DTSBX477 00365 ' ' DTSBX477 00366 MTAD-DELIV-LINE-2 (1:20) DTSBX477 00367 DELIMITED BY SIZE DTSBX477 00368 INTO XTRO-STREET-1 DTSBX477 00369 END-STRING DTSBX477 00370 MOVE MTAD-CITY TO XTRO-CITY-1 DTSBX477 00371 MOVE MTAD-ST TO XTRO-STATE-1 DTSBX477 00372 MOVE MTAD-ZIP TO XTRO-ZIP-1 DTSBX477 00373 STRING DTSBX477 00374 MTAD-VOICE-1-AREA-CD DTSBX477 00375 MTAD-VOICE-1-PREFIX DTSBX477 00376 MTAD-VOICE-1-SUFFIX DTSBX477 00377 DELIMITED BY SIZE DTSBX477 00378 INTO XTRO-PHONE-1 DTSBX477 00379 END-STRING DTSBX477 00380 ELSE DTSBX477 00381 SET WRK-ERROR-YES-88 TO TRUE DTSBX477 00382 END-IF. DTSBX477 00383 DTSBX477 00384 P3100-EXIT. DTSBX477 00385 EXIT. DTSBX477 00386 DTSBX477 00387 P3200-PHYSICAL-ADDR. DTSBX477 00388 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBX477 00389 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBX477 00390 SET MTAD-ID-TAX-RECORDS-ADDR-88 TO TRUE. DTSBX477 00391 SET MTAD-TAD-88 TO TRUE. DTSBX477 00392 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX477 00393 DTSBX477 00394 PERFORM S910-READ THRU S910-EXIT. DTSBX477 00395 IF L910-OK-88 DTSBX477 00396 MOVE MSKL-REC TO MTAD-REC DTSBX477 00397 STRING DTSBX477 00398 MTAD-DELIV-LINE-1 DTSBX477 00399 ' ' DTSBX477 00400 MTAD-DELIV-LINE-2 (1:20) DTSBX477 00401 DELIMITED BY SIZE DTSBX477 00402 INTO XTRO-STREET-2 DTSBX477 00403 END-STRING DTSBX477 00404 MOVE MTAD-CITY TO XTRO-CITY-2 DTSBX477 00405 MOVE MTAD-ST TO XTRO-STATE-2 DTSBX477 00406 MOVE MTAD-ZIP TO XTRO-ZIP-2 DTSBX477 00407 STRING DTSBX477 00408 MTAD-VOICE-1-AREA-CD DTSBX477 00409 MTAD-VOICE-1-PREFIX DTSBX477 00410 MTAD-VOICE-1-SUFFIX DTSBX477 00411 DELIMITED BY SIZE DTSBX477 00412 INTO XTRO-PHONE-2 DTSBX477 00413 END-STRING DTSBX477 00414 END-IF. DTSBX477 00415 DTSBX477 00416 P3200-EXIT. DTSBX477 00417 EXIT. DTSBX477 00418 DTSBX477 00419 P3300-WRITE. DTSBX477 00420 MOVE MPRF-FEIN TO XTRO-FEIN. DTSBX477 00421 MOVE MPRF-EMP-NO TO XTRO-EMP-NO. DTSBX477 00422 SET XTRO-SOURCE-DOES-88 TO TRUE. DTSBX477 00423 DTSBX477 00424 MOVE MPRF-PRIMARY-NAME TO XTRO-EMP-NAME. DTSBX477 00425 INSPECT XTRO-EMP-NAME REPLACING ALL ',' BY SPACE. DTSBX477 00426 DTSBX477 00427 INSPECT XTRO-STREET-1 REPLACING ALL ',' BY SPACE. DTSBX477 00428 INSPECT XTRO-STREET-2 REPLACING ALL ',' BY SPACE. DTSBX477 00429 DTSBX477 00430 ADD +1 TO WRK-TAX-CNT. DTSBX477 00431 DTSBX477 00432 WRITE TAX-REC FROM WRK-TAX-REC. DTSBX477 00433 DTSBX477 00434 P3300-EXIT. DTSBX477 00435 EXIT. DTSBX477 00436 DTSBX477 00437 T0000-TERMINATE. DTSBX477 00438 DTSBX477 00439 DISPLAY ' '. DTSBX477 00440 DTSBX477 00441 DISPLAY '*** DTSBX477 TERMINATION STATISTICS ***'. DTSBX477 00442 DTSBX477 00443 DISPLAY ' '. DTSBX477 00444 DTSBX477 00445 DISPLAY 'NUMBER OF OUTPUT RECORDS WRITTEN: ' DTSBX477 00446 WRK-TAX-CNT. DTSBX477 00447 DTSBX477 00448 DISPLAY 'NUMBER OF EMPLOYERS ENCOUNTERED: ' DTSBX477 00449 WRK-MPRF-CNT. DTSBX477 00450 DTSBX477 00451 CLOSE TAX-FILE. DTSBX477 00452 DTSBX477 00453 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX477 00454 DTSBX477 00455 T0000-EXIT. DTSBX477 00456 EXIT. DTSBX477 00457 EJECT DTSBX477 00458 S910-OPEN-READ. DTSBX477 00459 SET L910-OPEN-READ-88 TO TRUE. DTSBX477 00460 GO TO S910-MSTR-IO. DTSBX477 00461 DTSBX477 00462 S910-OPEN-UPDATE-NO-AIX. DTSBX477 00463 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX477 00464 GO TO S910-MSTR-IO. DTSBX477 00465 DTSBX477 00466 S910-READ. DTSBX477 00467 SET L910-READ-88 TO TRUE. DTSBX477 00468 GO TO S910-MSTR-IO. DTSBX477 00469 DTSBX477 00470 S910-START-BROWSE. DTSBX477 00471 SET L910-START-BROWSE-88 TO TRUE. DTSBX477 00472 GO TO S910-MSTR-IO. DTSBX477 00473 DTSBX477 00474 S910-READ-NEXT. DTSBX477 00475 SET L910-READ-NEXT-88 TO TRUE. DTSBX477 00476 GO TO S910-MSTR-IO. DTSBX477 00477 DTSBX477 00478 S910-COUNT. DTSBX477 00479 SET L910-COUNT-88 TO TRUE. DTSBX477 00480 GO TO S910-MSTR-IO. DTSBX477 00481 DTSBX477 00482 S910-REWRITE. DTSBX477 00483 SET L910-REWRITE-88 TO TRUE. DTSBX477 00484 GO TO S910-MSTR-IO. DTSBX477 00485 DTSBX477 00486 S910-CLOSE. DTSBX477 00487 SET L910-CLOSE-88 TO TRUE. DTSBX477 00488 GO TO S910-MSTR-IO. DTSBX477 00489 DTSBX477 00490 S910-MSTR-IO. DTSBX477 00491 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX477 00492 MSKL-REC. DTSBX477 00493 S910-EXIT. DTSBX477 00494 EXIT. DTSBX477 00495 DTSBX477 00496 S001-FROM-FED-8. DTSBX477 00497 SET L001-FROM-FED-8 TO TRUE. DTSBX477 00498 GO TO S001-DATE. DTSBX477 00499 DTSBX477 00500 S001-DATE. DTSBX477 00501 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX477 00502 S001-EXIT. DTSBX477 00503 EXIT. DTSBX477 00504 DTSBX477 00505 S004-FROM-5. DTSBX477 00506 SET L004-FROM-5 TO TRUE. DTSBX477 00507 GO TO S004-YRQ. DTSBX477 00508 DTSBX477 00509 S004-YRQ. DTSBX477 00510 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX477 00511 DTSBX477 00512 S004-EXIT. DTSBX477 00513 EXIT. DTSBX477 00514 DTSBX477 00515 S005-FROM-DATE-TIME. DTSBX477 00516 SET L005-FROM-DATE-TIME TO TRUE. DTSBX477 00517 GO TO S005-ABSTIME. DTSBX477 00518 DTSBX477 00519 S005-ABSTIME. DTSBX477 00520 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX477 00521 S005-EXIT. DTSBX477 00522 EXIT. DTSBX477