00001 IDENTIFICATION DIVISION. 02/28/24 00002 PROGRAM-ID. DESBD480. DESBD480 00003 AUTHOR. NGC. LV131 00004 DATE-WRITTEN. DECEMBER 2012. CL113 00005 DATE-COMPILED. DESBD480 00006 SKIP3 DESBD480 00007 ***** DESBD480 00008 * DESBD480 00009 * ZUNCTION: ADD WAGES TO WGH FILE FOR TESTING. CL120 00010 * FOR TAX WAGES SINCE UIBS 01/21/24 ZL1 CL117 00011 * DESBD480 00012 * DESBD480 00013 * MODIFICATION LOG: DESBD480 00014 * DESBD480 00015 * 12/06/2012 INITIAL DEVELOPMENT. CL113 00016 * WORK ORDER: PROGRAMMER: GD DESBD480 00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD480 00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD480 00019 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD480 00020 * DESBD480 00021 * DESBD480 00022 * DESCRIPTION: DESBD480 00023 * DESBD480 00024 * CL*89 00025 * CL*89 00026 * CL*89 00027 * CL*89 00028 * DESBD480 00029 * CL*89 00030 * CL*89 00031 * CL*89 00032 * CL*89 00033 * DESBD480 00034 * GENERAL SPECIFICATIONS: DESBD480 00035 * DESBD480 00036 * ALL COMMANDS ARE VALID. DESBD480 00037 * DESBD480 00038 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DESBD480 00039 * MODULE. DESBD480 00040 * DESBD480 00041 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DESBD480 00042 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DESBD480 00043 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DESBD480 00044 * DESBD480 00045 * DESBD480 00046 * DESBD480 00047 * COMMAND SPECIFIC SPECIFICATIONS: DESBD480 00048 * DESBD480 00049 * OPEN-READ DESBD480 00050 * OPEN INPUT. DESBD480 00051 * DESBD480 00052 * OPEN-UPDATE DESBD480 00053 * OPEN I-O. DESBD480 00054 * DESBD480 00055 * CLOSE DESBD480 00056 * DESBD480 00057 * READ DESBD480 00058 * DESBD480 00059 * START BROWSE DESBD480 00060 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DESBD480 00061 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DESBD480 00062 * A RECORD. DESBD480 00063 * DESBD480 00064 * READ NEXT DESBD480 00065 * DESBD480 00066 * WRITE DESBD480 00067 * DESBD480 00068 * REWRITE DESBD480 00069 * DESBD480 00070 * DELETE DESBD480 00071 * DESBD480 00072 * DESBD480 00073 ***** DESBD480 00074 CL114 00075 ENVIRONMENT DIVISION. CL114 00076 CL114 00077 INPUT-OUTPUT SECTION. CL114 00078 DESBD480 00079 FILE-CONTROL. CL114 00080 SELECT WAGE-TRANS-FILE ASSIGN TO DTSFWTRN CL114 00081 FILE STATUS IS WAGE-TRANS-STATUS. CL114 00082 CL114 00083 SELECT TAXWGH-FILE ASSIGN TO DTSXWGH CL121 00084 FILE STATUS IS DOWNLOAD-STATUS. CL117 00085 DESBD480 00086 DATA DIVISION. DESBD480 00087 CL114 00088 FILE SECTION. CL114 00089 CL114 00090 FD WAGE-TRANS-FILE CL114 00091 RECORDING MODE IS F CL114 00092 BLOCK CONTAINS 0 RECORDS. CL114 00093 CL114 00094 01 WAGE-TRANS-REC PIC X(80). CL114 00095 CL114 00096 FD TAXWGH-FILE CL117 00097 RECORDING MODE IS F CL117 00098 BLOCK CONTAINS 0 RECORDS. CL117 00099 CL117 00100 01 TAXWGH-REC PIC X(23). CL130 00101 DESBD480 00102 WORKING-STORAGE SECTION. DESBD480 001025 77 PAN-VALET PICTURE X(24) VALUE '131DESBD480 02/28/24'. DESBD480 00103 SKIP3 DESBD480 00104 01 WRK-AREA. DESBD480 00105 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +480. CL114 00106 DESBD480 00107 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU480'. CL114 00108 DESBD480 00109 05 W-CURR-EMP-NO PIC S9(06) COMP-3 VALUE +0. DESBD480 00110 05 W-CURR-YRQ PIC S9(05) COMP-3 CL*62 00111 VALUE +20121. CL*62 00112 05 W-CURR-BATCH PIC S9(05) COMP-3 VALUE +0. CL*53 00113 05 W-CURR-ITEM PIC S9(03) COMP-3 VALUE +0. CL*81 00114 05 W-MQTR-TOT-WAGE PIC S9(11)V99 COMP-3 CL*58 00115 VALUE +0. CL*58 00116 05 W-WTC-BATCH-NO PIC S9(05) COMP-3 CL*90 00117 VALUE +90001. CL*95 00118 05 W-WTC-ITEM-NO PIC S9(03) COMP-3 CL*90 00119 VALUE +003. CL*98 00120 05 W-WTC-SEQ-NO PIC S9(03) COMP-3 CL*92 00121 VALUE +001. CL*92 00122 05 W-MAX-BATCH PIC S9(05) COMP-3 VALUE +0. CL*52 00123 05 W-MIN-BATCH PIC S9(05) COMP-3 CL*52 00124 VALUE +99999. CL*52 00125 05 WRK-W2-CNT PIC S9(07) COMP-3 VALUE +0. DESBD480 00126 05 WRK-W4-CNT PIC S9(07) COMP-3 VALUE +0. DESBD480 00127 05 WRK-WWGH-CNT PIC S9(07) COMP-3 VALUE +0. DESBD480 00128 05 WRK-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. DESBD480 00129 05 W-BYPASSED-CNT PIC S9(07) COMP-3 VALUE +0. DESBD480 00130 05 W-BACKLOG PIC S9(07) COMP-3 VALUE +0. CL**9 00131 05 AMT-DISP1 PIC ----------9.99. CL*60 00132 05 AMT-DISP2 PIC ----------9.99. CL*60 00133 05 AMT-DISP3 PIC ----------9.99. CL*60 00134 05 AMT-DISP4 PIC ----------9.99. CL*57 00135 DESBD480 00136 05 WRK-NET-WAGE PIC S9(11)V99 COMP-3 DESBD480 00137 VALUE +0. DESBD480 00138 05 W-WGH-WAGE PIC S9(11)V99 COMP-3 CL*70 00139 VALUE +0. CL*70 00140 05 W-WORKER-CNT PIC S9(07) COMP-3 VALUE +0. CL*63 00141 05 W-DIFFERENCE PIC S9(11)V99 COMP-3 CL*63 00142 VALUE +0. CL*63 00143 DESBD480 00144 05 W2-REC-READ PIC 9(9) VALUE 0. CL124 00145 05 W4-REC-READ PIC 9(9) VALUE 0. CL124 00146 05 W4-REC-FOUND PIC 9(9) VALUE 0. CL124 00147 05 W4-REC-ADDED PIC 9(9) VALUE 0. CL124 00148 05 W2-REC-DELETED PIC 9(9) VALUE 0. CL124 00149 05 W2-REC-FOUND PIC 9(9) VALUE 0. CL124 00150 CL123 00151 05 W-RESP-OPID PIC X(08). CL*78 00152 05 WRK-ERROR-IND PIC X(01). DESBD480 00153 88 WRK-ERROR-YES-88 VALUE 'Y'. DESBD480 00154 88 WRK-ERROR-NO-88 VALUE 'N'. DESBD480 00155 DESBD480 00156 05 W-EMP-EXISTS-IND PIC X(01). CL*67 00157 88 W-EMP-EXISTS-YES-88 VALUE 'Y'. CL*67 00158 88 W-EMP-EXISTS-NO-88 VALUE 'N'. CL*67 00159 05 W-DELINQUENT-IND PIC X(01). CL*67 00160 88 W-DELINQUENT-YES-88 VALUE 'Y'. CL*67 00161 88 W-DELINQUENT-NO-88 VALUE 'N'. CL*67 00162 05 WAGE-TRANS-STATUS PIC X(02). DESBD480 00163 88 WAGE-TRANS-FILE-OK-88 VALUE '00'. DESBD480 00164 88 WAGE-TRANS-FILE-NO-REC-88 VALUE '10' '23'. DESBD480 00165 88 WAGE-TRANS-FILE-VERIFY-88 VALUE '97'. DESBD480 00166 DESBD480 00167 05 DOWNLOAD-STATUS PIC X(02). DESBD480 00168 88 DOWNLOAD-FILE-OK-88 VALUE '00'. DESBD480 00169 DESBD480 00170 05 WRK-YRQ PIC 9(05). DESBD480 00171 05 FILLER REDEFINES WRK-YRQ. DESBD480 00172 10 WRK-YRQ-YEAR PIC 9(04). DESBD480 00173 10 WRK-YRQ-QTR PIC 9(01). DESBD480 00174 DESBD480 00175 05 WRK-YRQ-X. DESBD480 00176 10 WRK-YRQ-YEAR-X PIC 9(04). DESBD480 00177 10 FILLER PIC X(01) VALUE '/'. DESBD480 00178 10 WRK-YRQ-QTR-X PIC 9(01). DESBD480 00179 DESBD480 00180 01 L004-COMM-AREA. CL*35 00181 ++INCLUDE DTSIL004 CL*35 00182 CL*35 00183 01 L424-LINK-AREA. CL100 00184 ++INCLUDE DTSIL424 CL100 00185 CL100 00186 01 L516-LINK-AREA. CL*48 00187 ++INCLUDE DTSIL516 CL*48 00188 CL*48 00189 01 L910-LINK-AREA. CL*47 00190 ++INCLUDE DTSIL910 CL*47 00191 CL*47 00192 01 MSKL-REC. CL*47 00193 ++INCLUDE DTSIMSKL CL*47 00194 CL*47 00195 01 MPRF-REC. CL*47 00196 ++INCLUDE DTSIMPRF CL*47 00197 CL*47 00198 01 MQTR-REC. CL*47 00199 ++INCLUDE DTSIMQTR CL*47 00200 CL*47 00201 01 L931-LINK-AREA. CL*50 00202 ++INCLUDE DTSIL931 CL*50 00203 CL*50 00204 01 FSKL-REC. CL*50 00205 ++INCLUDE DTSIFSKL CL*50 00206 CL*50 00207 01 L981-LINK-AREA. CL*69 00208 ++INCLUDE DTSIL981 CL*69 00209 CL*69 00210 01 WWGH-REC. CL*69 00211 ++INCLUDE DTSIWWGH CL*69 00212 CL*69 00213 01 L983-LINK-AREA. DESBD480 00214 ++INCLUDE DTSIL983 DESBD480 00215 DESBD480 00216 01 WSKL-REC. DESBD480 00217 ++INCLUDE DTSIWSKL DESBD480 00218 DESBD480 00219 01 W001-REC. DESBD480 00220 ++INCLUDE DTSIW001 DESBD480 00221 DESBD480 00222 01 L982-LINK-AREA. DESBD480 00223 ++INCLUDE DTSIL982 DESBD480 00224 DESBD480 00225 01 WNAM-REC. DESBD480 00226 ++INCLUDE DTSIWNAM DESBD480 00227 CL114 00228 01 WAGE-TRANS-AREA. CL114 00229 05 ESP-TRANSACTION-AREA PIC X(80). CL114 00230 ++INCLUDE EWGTRNW4 CL114 00231 CL114 00232 PROCEDURE DIVISION. DESBD480 00233 DESBD480 00234 PERFORM I0000-INIT THRU I0000-EXIT. CL*96 00235 IF WRK-ERROR-NO-88 DESBD480 00236 PERFORM P0000-PROCESS THRU P0000-EXIT CL114 00237 PERFORM T0000-TERM THRU T0000-EXIT DESBD480 00238 END-IF. DESBD480 00239 DESBD480 00240 GOBACK. DESBD480 00241 EJECT DESBD480 00242 I0000-INIT. DESBD480 00243 SET WRK-ERROR-NO-88 TO TRUE. DESBD480 00244 DESBD480 00245 OPEN INPUT WAGE-TRANS-FILE. CL115 00246 IF WAGE-TRANS-FILE-OK-88 CL114 00247 OR WAGE-TRANS-FILE-VERIFY-88 CL114 00248 NEXT SENTENCE CL114 00249 ELSE CL114 00250 PERFORM S999-ABEND THRU S999-EXIT CL114 00251 END-IF. CL114 00252 CL114 00253 CL117 00254 OPEN OUTPUT TAXWGH-FILE. CL117 00255 IF WAGE-TRANS-FILE-OK-88 CL117 00256 OR WAGE-TRANS-FILE-VERIFY-88 CL117 00257 NEXT SENTENCE CL117 00258 ELSE CL117 00259 PERFORM S999-ABEND THRU S999-EXIT CL117 00260 END-IF. CL117 00261 CL117 00262 PERFORM S981A-OPEN-UPDATE THRU S981A-EXIT. CL*89 00263 PERFORM S983-OPEN-UPDATE THRU S983-EXIT. CL*89 00264 PERFORM S931-OPEN-READ THRU S931-EXIT. CL102 00265 CL*35 00266 I0000-EXIT. DESBD480 00267 EXIT. DESBD480 00268 CL*35 00269 P0000-PROCESS. CL114 00270 READ WAGE-TRANS-FILE INTO ESP-TRANSACTION-AREA. CL114 00271 CL114 00272 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 CL114 00273 PERFORM P2000-WGH THRU P2000-EXIT CL115 00274 READ WAGE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL114 00275 CL114 00276 END-PERFORM. CL114 00277 CL114 00278 P0000-EXIT. CL114 00279 EXIT. CL114 00280 CL114 00281 CL*60 00282 P2000-WGH. CL*92 00283 CL129 00284 IF W4-TRAN-ID = 'W2' CL126 00285 ADD 1 TO W2-REC-READ CL126 00286 DISPLAY 'W2: ' W4-ACCOUNT ' ' W4-QUARTER CL126 00287 ' ' W4-SSN ' ' W4-QUARTER-EARNINGS CL126 00288 GO TO P2000-EXIT CL129 00289 ELSE CL123 00290 DISPLAY 'W4: ' W4-ACCOUNT ' ' W4-QUARTER CL126 00291 ' ' W4-SSN ' ' W4-QUARTER-EARNINGS CL126 00292 ADD 1 TO W4-REC-READ. CL126 00293 CL123 00294 MOVE LOW-VALUE TO WWGH-REC. CL*73 00295 MOVE W4-ACCOUNT TO WWGH-EMP-NO. CL114 00296 MOVE W4-QUARTER TO WWGH-YRQ CL114 00297 MOVE W4-SSN TO WWGH-SSN. CL114 00298 MOVE W4-QUARTER-EARNINGS TO WWGH-EARNINGS. CL114 00299 PERFORM S981C-READ THRU S981C-EXIT. CL117 00300 IF L981-OK-88 CL117 00301 DISPLAY 'WAGE FOUND ' W4-ACCOUNT ' ' W4-QUARTER CL117 00302 ' ' W4-SSN ' ' W4-QUARTER-EARNINGS CL117 00303 ELSE CL117 00304 GO TO P2000-CONTINUE. CL117 00305 CL117 00306 IF W4-TRAN-ID = 'W4' CL129 00307 ADD 1 TO W4-REC-FOUND CL123 00308 DISPLAY 'WAGE FND -CANNOT ADD ' W4-ACCOUNT ' ' W4-QUARTER CL117 00309 ' ' W4-SSN ' ' W4-QUARTER-EARNINGS. CL117 00310 GO TO P2000-EXIT. CL117 00311 CL117 00312 P2000-CONTINUE. CL117 00313 IF W4-TRAN-ID = 'W2' CL127 00314 GO TO P2000-EXIT. CL127 00315 CL127 00316 MOVE LOW-VALUE TO WWGH-REC. CL117 00317 MOVE W4-ACCOUNT TO WWGH-EMP-NO. CL117 00318 MOVE W4-QUARTER TO WWGH-YRQ CL117 00319 MOVE W4-SSN TO WWGH-SSN. CL117 00320 MOVE W4-QUARTER-EARNINGS TO WWGH-EARNINGS. CL117 00321 MOVE W4-DATE-ENTERED TO WWGH-CHNG-DATE. CL130 00322 CL117 00323 WRITE TAXWGH-REC FROM WWGH-REC. CL122 00324 ADD 1 TO W4-REC-ADDED. CL128 00325 * PERFORM S981B-WRITE THRU S981B-EXIT. CL128 00326 * IF NOT L981-OK-88 CL128 00327 * DISPLAY 'WRITE FAILED ' W4-ACCOUNT ' ' W4-QUARTER CL128 00328 * ' ' W4-SSN. CL128 00329 CL*73 00330 P2000-EXIT. CL*92 00331 EXIT. CL*73 00332 CL*69 00333 T0000-TERM. DESBD480 00334 PERFORM S981D-CLOSE THRU S981D-EXIT. CL*73 00335 PERFORM S983-CLOSE THRU S983-EXIT. CL*69 00336 PERFORM S931-CLOSE THRU S931-EXIT. CL102 00337 DESBD480 00338 CLOSE WAGE-TRANS-FILE TAXWGH-FILE. CL117 00339 DESBD480 00340 DISPLAY '******************************************' DESBD480 00341 DISPLAY '** DTSBZ479 TERMINATION STATISTICS **'. CL*91 00342 CL123 00343 DISPLAY 'TOTAL W4 TRANS REC READ = ' W4-REC-READ. CL123 00344 DISPLAY 'TOTAL W4 TRANS REC FOUND = ' W4-REC-FOUND. CL123 00345 DISPLAY 'TOTAL W4 TRANS REC ADDED = ' W4-REC-ADDED. CL123 00346 DISPLAY 'TOTAL W2 TRANS REC READ = ' W2-REC-READ. CL123 00347 DISPLAY 'TOTAL W2 TRANS REC FOUND = ' W2-REC-FOUND. CL123 00348 DISPLAY 'TOTAL W2 TRANS REC DELETED = ' W2-REC-DELETED. CL125 00349 DISPLAY ' '. CL123 00350 T0000-EXIT. DESBD480 00351 EXIT. DESBD480 00352 DESBD480 00353 S004-EDIT-QTR. CL*35 00354 CALL 'DTSBU004' USING L004-COMM-AREA. CL*35 00355 CL*35 00356 S004-EXIT. CL*35 00357 EXIT. CL*35 00358 CL*35 00359 S516-LIABILITY-INFO. CL*48 00360 CALL 'DTSBU516' USING L516-LINK-AREA CL*48 00361 MPRF-REC. CL*48 00362 S516-EXIT. CL*48 00363 EXIT. CL*48 00364 CL*48 00365 S910-OPEN-READ. CL*47 00366 SET L910-OPEN-READ-88 TO TRUE. CL*47 00367 GO TO S910-MSTR-IO. CL*47 00368 CL*47 00369 S910-READ. CL*47 00370 SET L910-READ-88 TO TRUE. CL*47 00371 GO TO S910-MSTR-IO. CL*47 00372 CL*47 00373 S910-START-BROWSE. CL*47 00374 SET L910-START-BROWSE-88 TO TRUE. CL*49 00375 GO TO S910-MSTR-IO. CL*47 00376 CL*47 00377 S910-READ-NEXT. CL*47 00378 SET L910-READ-NEXT-88 TO TRUE. CL*47 00379 GO TO S910-MSTR-IO. CL*47 00380 CL*47 00381 S910-CLOSE. CL*47 00382 SET L910-CLOSE-88 TO TRUE. CL*47 00383 GO TO S910-MSTR-IO. CL*47 00384 CL*47 00385 S910-MSTR-IO. CL*47 00386 CALL 'DTSBU910' USING L910-LINK-AREA CL*47 00387 MSKL-REC. CL*47 00388 S910-EXIT. CL*47 00389 EXIT. CL*47 00390 CL*47 00391 S931-OPEN-READ. CL*50 00392 SET L931-OPEN-READ-88 TO TRUE. CL*50 00393 GO TO S931-REF-IO. CL*50 00394 CL*50 00395 S931-CLOSE. CL*50 00396 SET L931-CLOSE-88 TO TRUE. CL*50 00397 GO TO S931-REF-IO. CL*50 00398 CL*50 00399 S931-REF-IO. CL*50 00400 CALL 'DTSBU931' USING L931-LINK-AREA CL*50 00401 FSKL-REC. CL*50 00402 S931-EXIT. CL*50 00403 EXIT. CL*50 00404 CL*50 00405 S981A-OPEN-UPDATE. CL*89 00406 SET L981-OPEN-UPDATE-88 TO TRUE. CL*89 00407 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69 00408 CL*69 00409 S981A-EXIT. CL*69 00410 EXIT. CL*69 00411 CL*69 00412 S981B-WRITE. CL*91 00413 SET L981-WRITE-88 TO TRUE. CL*91 00414 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69 00415 CL*69 00416 S981B-EXIT. CL*69 00417 EXIT. CL*69 00418 S981C-READ. CL117 00419 SET L981-READ-88 TO TRUE. CL117 00420 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL117 00421 CL117 00422 S981C-EXIT. CL117 00423 EXIT. CL117 00424 S981E-DELETE. CL118 00425 SET L981-DELETE-88 TO TRUE. CL117 00426 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL117 00427 CL117 00428 S981E-EXIT. CL117 00429 EXIT. CL117 00430 CL*69 00431 S981D-CLOSE. CL*69 00432 SET L981-CLOSE-88 TO TRUE. CL*69 00433 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69 00434 CL*69 00435 S981D-EXIT. CL*69 00436 EXIT. CL*69 00437 CL*69 00438 S981Z-WWGH-IO. CL*69 00439 CALL 'DTSBU981' USING L981-LINK-AREA CL*69 00440 WWGH-REC. CL*69 00441 S981Z-EXIT. CL*69 00442 EXIT. CL*69 00443 CL*69 00444 S983-OPEN-UPDATE. DESBD480 00445 SET L983-OPEN-UPDATE-88 TO TRUE. DESBD480 00446 GO TO S983-WAGE-I. DESBD480 00447 DESBD480 00448 S983-WRITE. CL*90 00449 SET L983-WRITE-88 TO TRUE. CL*90 00450 GO TO S983-WAGE-I. DESBD480 00451 DESBD480 00452 S983-DELETE. DESBD480 00453 SET L983-DELETE-88 TO TRUE. DESBD480 00454 GO TO S983-WAGE-I. DESBD480 00455 DESBD480 00456 S983-CLOSE. DESBD480 00457 SET L983-CLOSE-88 TO TRUE. DESBD480 00458 GO TO S983-WAGE-I. DESBD480 00459 DESBD480 00460 S983-WAGE-I. DESBD480 00461 CALL 'DTSBU983' USING L983-LINK-AREA DESBD480 00462 WSKL-REC. DESBD480 00463 S983-EXIT. DESBD480 00464 EXIT. DESBD480 00465 DESBD480 00466 S982A-START-BROWSE. DESBD480 00467 SET L982-START-BROWSE-88 TO TRUE. DESBD480 00468 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD480 00469 DESBD480 00470 S982A-EXIT. DESBD480 00471 EXIT. DESBD480 00472 DESBD480 00473 S982B-READ-NEXT. DESBD480 00474 SET L982-READ-NEXT-88 TO TRUE. DESBD480 00475 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD480 00476 DESBD480 00477 S982B-EXIT. DESBD480 00478 EXIT. DESBD480 00479 DESBD480 00480 S982C-OPEN-READ. DESBD480 00481 SET L982-OPEN-READ-88 TO TRUE. DESBD480 00482 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD480 00483 DESBD480 00484 S982C-EXIT. DESBD480 00485 EXIT. DESBD480 00486 DESBD480 00487 S982D-CLOSE. DESBD480 00488 SET L982-CLOSE-88 TO TRUE. DESBD480 00489 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD480 00490 DESBD480 00491 S982D-EXIT. DESBD480 00492 EXIT. DESBD480 00493 DESBD480 00494 S982Z-WNAM-IO. DESBD480 00495 CALL 'DTSBU982' USING L982-LINK-AREA DESBD480 00496 WNAM-REC. DESBD480 00497 S982Z-EXIT. DESBD480 00498 EXIT. DESBD480 00499 DESBD480 00500 DESBD480 00501 S999-ABEND. DESBD480 00502 DISPLAY '*** I/O MODULE ABENDING'. DESBD480 00503 DESBD480 00504 DISPLAY '*** CMND-CD = ' L983-CMND-CD. DESBD480 00505 DESBD480 00506 DISPLAY '*** FILE-STATUS = ' WAGE-TRANS-STATUS. DESBD480 00507 DESBD480 00508 DISPLAY '*** CALLING MODULE = ' L983-MOD-NAME. DESBD480 00509 DESBD480 00510 DESBD480 00511 CALL 'DTSBU999' USING WRK-ABEND-CD. DESBD480 00512 S999-EXIT. DESBD480 00513 EXIT. DESBD480