00001 IDENTIFICATION DIVISION. 12/17/03 00002 PROGRAM-ID. DTSBZ261. DTSBZ261 00003 AUTHOR. NGC. LV001 00004 DATE-WRITTEN. OCTOBER 2003. DTSBZ261 00005 DATE-COMPILED. DTSBZ261 00006 SKIP3 DTSBZ261 00007 ***** DTSBZ261 00008 * DTSBZ261 00009 * FUNCTION: CORRECT 2000/1 BATCHES ENTERED AS LATE. DTSBZ261 00010 * DTSBZ261 00011 * CLONED FROM DTSBZ057 (CONV) DTSBZ261 00012 * DTSBZ261 00013 * WITHDRAWAL RCVD DATE = 6/30/2003 DTSBZ261 00014 * PAYMENT REVERSAL DATE = 6/30/2003 DTSBZ261 00015 * NEW ORIGINAL RCVD DATE = 4/15/2003 DTSBZ261 00016 * DTSBZ261 00017 ***** DTSBZ261 00018 SKIP3 DTSBZ261 00019 ENVIRONMENT DIVISION. DTSBZ261 00020 SKIP2 DTSBZ261 00021 DATA DIVISION. DTSBZ261 00022 SKIP3 DTSBZ261 00023 EJECT DTSBZ261 00024 WORKING-STORAGE SECTION. DTSBZ261 000245 77 PAN-VALET PICTURE X(24) VALUE '001DTSBZ261 12/17/03'. DTSBZ261 00025 SKIP3 DTSBZ261 00026 01 WRK-AREA. DTSBZ261 00027 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +261.DTSBZ261 00028 05 ABEND-MSG PIC X(60). DTSBZ261 00029 DTSBZ261 00030 05 WRK-START-BATCH PIC S9(05) COMP-3. DTSBZ261 00031 05 HOLD-LAST-USED-BATCH-NO PIC S9(05) COMP-3. DTSBZ261 00032 DTSBZ261 00033 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBZ261'.DTSBZ261 00034 DTSBZ261 00035 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSBZ261 00036 05 WRK-UPDATE-CNT PIC S9(07) COMP-3. DTSBZ261 00037 05 WRK-EXCLUDE-CNT PIC S9(07) COMP-3. DTSBZ261 00038 05 WRK-INTEREST-CHG PIC S9(09)V99 COMP-3. DTSBZ261 00039 05 WRK-INTEREST-PD PIC S9(09)V99 COMP-3. DTSBZ261 00040 05 WRK-INTEREST-BAL PIC S9(09)V99 COMP-3. DTSBZ261 00041 05 WRK-REMIT-AMT PIC S9(09)V99 COMP-3. DTSBZ261 00042 05 WRK-REV-AMT PIC S9(09)V99 COMP-3. DTSBZ261 00043 05 WRK-TOT-WAGE PIC S9(09)V99 COMP-3. DTSBZ261 00044 05 WRK-TAX-WAGE PIC S9(09)V99 COMP-3. DTSBZ261 00045 05 WRK-TOT-REMIT PIC S9(11)V99 COMP-3 DTSBZ261 00046 VALUE +0. DTSBZ261 00047 05 WRK-TOT-REVERSE PIC S9(11)V99 COMP-3 DTSBZ261 00048 VALUE +0. DTSBZ261 00049 05 SUB PIC S9(04) COMP. DTSBZ261 00050 05 WRK-SEQ-NO PIC S9(04) COMP VALUE +0. DTSBZ261 00051 05 WRK-EVENT-TXT PIC X(50) VALUE DTSBZ261 00052 '2002 ANNUAL REPORT DATES SET TO TIMELY BY DEFAULT'. DTSBZ261 00053 DTSBZ261 00054 05 WRK-MQTR-CNT PIC S9(07) COMP-3. DTSBZ261 00055 05 EMP-ACCT-DISP PIC 9(06). DTSBZ261 00056 05 AMT-DISP PIC --------9.99. DTSBZ261 00057 05 AMT-DISP1 PIC --------9.99. DTSBZ261 00058 05 WRK-TIMELY-PMT-AREA. DTSBZ261 00059 10 WRK-ERROR-IND PIC X(01). DTSBZ261 00060 88 WRK-ERROR-YES VALUE 'Y'. DTSBZ261 00061 88 WRK-ERROR-NO VALUE 'N'. DTSBZ261 00062 10 WRK-MPAY-FOUND-IND PIC X(01). DTSBZ261 00063 88 WRK-MPAY-FOUND-YES VALUE 'Y'. DTSBZ261 00064 88 WRK-MPAY-FOUND-NO VALUE 'N'. DTSBZ261 00065 10 WRK-MRPT-FOUND-IND PIC X(01). DTSBZ261 00066 88 WRK-MRPT-FOUND-YES VALUE 'Y'. DTSBZ261 00067 88 WRK-MRPT-FOUND-NO VALUE 'N'. DTSBZ261 00068 10 WRK-EMP-SELECTED-IND PIC X(01). DTSBZ261 00069 88 WRK-EMP-SELECTED-YES VALUE 'Y'. DTSBZ261 00070 88 WRK-EMP-SELECTED-NO VALUE 'N'. DTSBZ261 00071 10 WRK-SUPPL-RPT-IND PIC X(01). DTSBZ261 00072 88 WRK-SUPPL-RPT-YES VALUE 'Y'. DTSBZ261 00073 88 WRK-SUPPL-RPT-NO VALUE 'N'. DTSBZ261 00074 10 WRK-WITHDRAWN-RPT-IND PIC X(01). DTSBZ261 00075 88 WRK-WITHDRAWN-RPT-YES VALUE 'Y'. DTSBZ261 00076 88 WRK-WITHDRAWN-RPT-NO VALUE 'N'. DTSBZ261 00077 10 WRK-RPT-BATCH-NO PIC S9(05) COMP-3. DTSBZ261 00078 10 WRK-RPT-ITEM-NO PIC S9(03) COMP-3. DTSBZ261 00079 DTSBZ261 00080 05 WRK-EMPL-CNT-AREA. DTSBZ261 00081 10 WRK-TOT-CNT PIC S9(07) COMP-3. DTSBZ261 00082 10 WRK-JAN-CNT PIC S9(05) COMP-3. DTSBZ261 00083 10 WRK-FEB-CNT PIC S9(05) COMP-3. DTSBZ261 00084 10 WRK-MAR-CNT PIC S9(05) COMP-3. DTSBZ261 00085 10 WRK-APR-CNT PIC S9(05) COMP-3. DTSBZ261 00086 10 WRK-MAY-CNT PIC S9(05) COMP-3. DTSBZ261 00087 10 WRK-JUN-CNT PIC S9(05) COMP-3. DTSBZ261 00088 10 WRK-JUL-CNT PIC S9(05) COMP-3. DTSBZ261 00089 10 WRK-AUG-CNT PIC S9(05) COMP-3. DTSBZ261 00090 10 WRK-SEP-CNT PIC S9(05) COMP-3. DTSBZ261 00091 10 WRK-OCT-CNT PIC S9(05) COMP-3. DTSBZ261 00092 10 WRK-NOV-CNT PIC S9(05) COMP-3. DTSBZ261 00093 10 WRK-DEC-CNT PIC S9(05) COMP-3. DTSBZ261 00094 05 WRK-TIMELY-RPT-AREA. DTSBZ261 00095 10 WRK-RPT-RECEIVED-DATE PIC S9(09) COMP-3. DTSBZ261 00096 DTSBZ261 00097 05 WRK-MPRF-IND PIC X(01). DTSBZ261 00098 88 WRK-MPRF-OK VALUE 'Y'. DTSBZ261 00099 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBZ261 00100 05 WRK-MQTR-IND PIC X(01). DTSBZ261 00101 88 WRK-MQTR-OK VALUE 'Y'. DTSBZ261 00102 88 WRK-MQTR-NO-REC VALUE 'N'. DTSBZ261 00103 05 WRK-MRPT-IND PIC X(01). DTSBZ261 00104 88 WRK-MRPT-OK VALUE 'Y'. DTSBZ261 00105 88 WRK-MRPT-NO-REC VALUE 'N'. DTSBZ261 00106 DTSBZ261 00107 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBZ261 00108 DTSBZ261 00109 05 PARM-EOF-IND PIC X(01). DTSBZ261 00110 DTSBZ261 00111 05 WRK-EMP-NO PIC 9(06). DTSBZ261 00112 DTSBZ261 00113 05 WRK-TRACE-IND PIC X(01). DTSBZ261 00114 DTSBZ261 00115 05 WRK-MST-OPEN-IND PIC X(01). DTSBZ261 00116 DTSBZ261 00117 05 WRK-REF-OPEN-IND PIC X(01). DTSBZ261 00118 DTSBZ261 00119 EJECT DTSBZ261 00120 01 L410-LINK-AREA. DTSBZ261 00121 ++INCLUDE DTSIL410 DTSBZ261 00122 DTSBZ261 00123 01 L005-LINK-AREA. DTSBZ261 00124 ++INCLUDE DTSIL005 DTSBZ261 00125 DTSBZ261 00126 01 L910-LINK-AREA. DTSBZ261 00127 ++INCLUDE DTSIL910 DTSBZ261 00128 EJECT DTSBZ261 00129 01 MSKL-REC. DTSBZ261 00130 ++INCLUDE DTSIMSKL DTSBZ261 00131 EJECT DTSBZ261 00132 01 MHDR-REC. DTSBZ261 00133 ++INCLUDE DTSIMHDR DTSBZ261 00134 EJECT DTSBZ261 00135 01 MPRF-REC. DTSBZ261 00136 ++INCLUDE DTSIMPRF DTSBZ261 00137 EJECT DTSBZ261 00138 01 MQTR-REC. DTSBZ261 00139 ++INCLUDE DTSIMQTR DTSBZ261 00140 EJECT DTSBZ261 00141 01 MRPT-REC. DTSBZ261 00142 ++INCLUDE DTSIMRPT DTSBZ261 00143 EJECT DTSBZ261 00144 01 MEVL-REC. DTSBZ261 00145 ++INCLUDE DTSIMEVL DTSBZ261 00146 EJECT DTSBZ261 00147 01 MPAY-REC. DTSBZ261 00148 ++INCLUDE DTSIMPAY DTSBZ261 00149 EJECT DTSBZ261 00150 01 MREV-REC. DTSBZ261 00151 ++INCLUDE DTSIMREV DTSBZ261 00152 EJECT DTSBZ261 00153 01 L923-LINK-AREA. DTSBZ261 00154 ++INCLUDE DTSIL923 DTSBZ261 00155 EJECT DTSBZ261 00156 01 ASKL-REC. DTSBZ261 00157 ++INCLUDE DTSIASKL DTSBZ261 00158 EJECT DTSBZ261 00159 01 AHDR-REC. DTSBZ261 00160 ++INCLUDE DTSIAHDR DTSBZ261 00161 EJECT DTSBZ261 00162 01 AATX-REC. DTSBZ261 00163 ++INCLUDE DTSIAATX DTSBZ261 00164 EJECT DTSBZ261 00165 01 APAY-REC. DTSBZ261 00166 ++INCLUDE DTSIAPAY DTSBZ261 00167 EJECT DTSBZ261 00168 01 L931-LINK-AREA. DTSBZ261 00169 ++INCLUDE DTSIL931 DTSBZ261 00170 EJECT DTSBZ261 00171 01 FSKL-REC. DTSBZ261 00172 ++INCLUDE DTSIFSKL DTSBZ261 00173 EJECT DTSBZ261 00174 01 FCYR-REC. DTSBZ261 00175 ++INCLUDE DTSIFCYR DTSBZ261 00176 EJECT DTSBZ261 00177 01 L981-LINK-AREA. DTSBZ261 00178 ++INCLUDE DTSIL981 DTSBZ261 00179 SKIP3 DTSBZ261 00180 01 WWGH-REC. DTSBZ261 00181 ++INCLUDE DTSIWWGH DTSBZ261 00182 SKIP3 DTSBZ261 00183 01 L983-LINK-AREA. DTSBZ261 00184 ++INCLUDE DTSIL983 DTSBZ261 00185 SKIP3 DTSBZ261 00186 01 WSKL-REC. DTSBZ261 00187 ++INCLUDE DTSIWSKL DTSBZ261 00188 SKIP3 DTSBZ261 00189 01 W001-REC. DTSBZ261 00190 ++INCLUDE DTSIW001 DTSBZ261 00191 DTSBZ261 00192 01 L004-COMM-AREA. DTSBZ261 00193 ++INCLUDE DTSIL004 DTSBZ261 00194 EJECT DTSBZ261 00195 01 L421-LINK-AREA. DTSBZ261 00196 ++INCLUDE DTSIL421 DTSBZ261 00197 EJECT DTSBZ261 00198 PROCEDURE DIVISION. DTSBZ261 00199 SKIP2 DTSBZ261 00200 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBZ261 00201 DTSBZ261 00202 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBZ261 00203 DTSBZ261 00204 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBZ261 00205 SKIP2 DTSBZ261 00206 GOBACK. DTSBZ261 00207 EJECT DTSBZ261 00208 I0000-INITIATE. DTSBZ261 00209 SKIP2 DTSBZ261 00210 MOVE 'N' TO WRK-TRACE-IND. DTSBZ261 00211 DTSBZ261 00212 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBZ261 00213 DTSBZ261 00214 PERFORM I3000-BATCH-HEADER THRU I3000-EXIT. DTSBZ261 00215 DTSBZ261 00216 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBZ261 00217 DTSBZ261 00218 I0000-EXIT. DTSBZ261 00219 EXIT. DTSBZ261 00220 DTSBZ261 00221 I2000-OPEN-FILES-1. DTSBZ261 00222 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBZ261 00223 DTSBZ261 00224 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBZ261 00225 DTSBZ261 00226 *** PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBZ261 00227 *** PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. DTSBZ261 00228 *** PERFORM S910-OPEN-UPDATE-HDR THRU S910-EXIT. DTSBZ261 00229 PERFORM S910-OPEN-UPDATE THRU S910-EXIT. DTSBZ261 00230 PERFORM S923-OPEN-UPDATE THRU S923-EXIT. DTSBZ261 00231 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBZ261 00232 PERFORM S981A-OPEN THRU S981A-EXIT. DTSBZ261 00233 PERFORM S983-OPEN THRU S983-EXIT. DTSBZ261 00234 DTSBZ261 00235 I2000-EXIT. DTSBZ261 00236 EXIT. DTSBZ261 00237 DTSBZ261 00238 I3000-BATCH-HEADER. DTSBZ261 00239 MOVE LOW-VALUES TO MHDR-KEY-AREA. DTSBZ261 00240 MOVE +0 TO MHDR-EMP-NO. DTSBZ261 00241 SET MHDR-HDR-88 TO TRUE. DTSBZ261 00242 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261 00243 PERFORM S910-READ THRU S910-EXIT. DTSBZ261 00244 DTSBZ261 00245 IF L910-NO-REC-88 DTSBZ261 00246 MOVE 'MHDR RECORD NOT FOUND (I0000)' DTSBZ261 00247 TO ABEND-MSG DTSBZ261 00248 PERFORM S999-ABEND THRU S999-EXIT. DTSBZ261 00249 DTSBZ261 00250 MOVE MSKL-REC TO MHDR-REC. DTSBZ261 00251 DTSBZ261 00252 COMPUTE WRK-START-BATCH = MHDR-LAST-USED-BATCH-NO + 1. DTSBZ261 00253 DTSBZ261 00254 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261 00255 I3000-EXIT. DTSBZ261 00256 EXIT. DTSBZ261 00257 DTSBZ261 00258 EJECT DTSBZ261 00259 P0000-PROCESS. DTSBZ261 00260 DTSBZ261 00261 MOVE +0 TO WRK-MPRF-CNT DTSBZ261 00262 WRK-EXCLUDE-CNT DTSBZ261 00263 WRK-UPDATE-CNT. DTSBZ261 00264 DTSBZ261 00265 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBZ261 00266 DTSBZ261 00267 MOVE +0 TO MSKL-EMP-NO. DTSBZ261 00268 DTSBZ261 00269 SET MSKL-PRF-88 TO TRUE. DTSBZ261 00270 DTSBZ261 00271 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261 00272 IF L910-OK-88 DTSBZ261 00273 MOVE MSKL-REC TO MPRF-REC DTSBZ261 00274 SET WRK-MPRF-OK TO TRUE DTSBZ261 00275 ELSE DTSBZ261 00276 DISPLAY 'BAD FIRST READ ' L910-RESULT-IND DTSBZ261 00277 SET L910-NO-REC-88 TO TRUE DTSBZ261 00278 GO TO P0000-EXIT. DTSBZ261 00279 DTSBZ261 00280 DISPLAY 'CORRECTION 2002 ANNUAL REPORTS '. DTSBZ261 00281 DISPLAY ' DTSBZ261 '. DTSBZ261 00282 DISPLAY SPACE. DTSBZ261 00283 DTSBZ261 00284 PERFORM P1000-READ-NEXT THRU P1000-EXIT DTSBZ261 00285 UNTIL WRK-MPRF-NO-REC. DTSBZ261 00286 ** OR MPRF-EMP-NO > 120000. DTSBZ261 00287 ** OR WRK-REL-CNT > +100. DTSBZ261 00288 P0000-EXIT. DTSBZ261 00289 EXIT. DTSBZ261 00290 EJECT DTSBZ261 00291 P1000-READ-NEXT. DTSBZ261 00292 IF MPRF-EMP-NO = 136190 DTSBZ261 00293 NEXT SENTENCE DTSBZ261 00294 ELSE DTSBZ261 00295 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBZ261 00296 SET L410-MODE-INPUT-YRQ-88 TO TRUE DTSBZ261 00297 MOVE MPRF-EMP-NO TO L410-EMP-NO DTSBZ261 00298 MOVE 20021 TO L410-YRQ DTSBZ261 00299 PERFORM S410-FILING-SCHED THRU S410-EXIT DTSBZ261 00300 IF L410-ANN-SCHED-88 DTSBZ261 00301 ADD +1 TO WRK-MPRF-CNT DTSBZ261 00302 PERFORM P5000-READ-QTR THRU P5000-EXIT DTSBZ261 00303 IF WRK-EMP-SELECTED-YES DTSBZ261 00304 ADD +1 TO WRK-UPDATE-CNT DTSBZ261 00305 END-IF DTSBZ261 00306 END-IF DTSBZ261 00307 END-IF DTSBZ261 00308 END-IF. DTSBZ261 00309 DTSBZ261 00310 MOVE MPRF-REC TO MSKL-REC. DTSBZ261 00311 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBZ261 00312 IF NOT L910-OK-88 DTSBZ261 00313 SET WRK-MPRF-NO-REC TO TRUE DTSBZ261 00314 ELSE DTSBZ261 00315 MOVE MSKL-REC TO MPRF-REC. DTSBZ261 00316 DTSBZ261 00317 P1000-EXIT. DTSBZ261 00318 EXIT. DTSBZ261 00319 DTSBZ261 00320 P5000-READ-QTR. DTSBZ261 00321 SET WRK-EMP-SELECTED-NO TO TRUE. DTSBZ261 00322 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBZ261 00323 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBZ261 00324 MOVE 20021 TO MQTR-YRQ. DTSBZ261 00325 SET MQTR-QTR-88 TO TRUE. DTSBZ261 00326 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261 00327 DTSBZ261 00328 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261 00329 IF L910-NO-REC-88 DTSBZ261 00330 GO TO P5000-EXIT DTSBZ261 00331 ELSE DTSBZ261 00332 MOVE MSKL-REC TO MQTR-REC DTSBZ261 00333 IF MQTR-YRQ > 20024 DTSBZ261 00334 SET L910-NO-REC-88 TO TRUE DTSBZ261 00335 ELSE DTSBZ261 00336 PERFORM P5120-FIND-REPORT THRU P5120-EXIT DTSBZ261 00337 IF WRK-EMP-SELECTED-YES DTSBZ261 00338 PERFORM P5130-ACCT-TRANS THRU P5130-EXIT DTSBZ261 00339 PERFORM P5200-EVL THRU P5200-EXIT DTSBZ261 00340 END-IF DTSBZ261 00341 END-IF DTSBZ261 00342 END-IF. DTSBZ261 00343 DTSBZ261 00344 * PERFORM DTSBZ261 00345 * UNTIL L910-NO-REC-88 DTSBZ261 00346 * MOVE MSKL-REC TO MQTR-REC DTSBZ261 00347 * DTSBZ261 00348 * IF MQTR-YRQ > 20024 DTSBZ261 00349 * SET L910-NO-REC-88 TO TRUE DTSBZ261 00350 * ELSE DTSBZ261 00351 * MOVE ZERO TO WRK-INTEREST-CHG DTSBZ261 00352 * WRK-INTEREST-PD DTSBZ261 00353 * WRK-INTEREST-BAL DTSBZ261 00354 * PERFORM P5120-FIND-REPORT THRU P5120-EXIT DTSBZ261 00355 * IF WRK-EMP-SELECTED-YES DTSBZ261 00356 * PERFORM P5110-SUM-INTEREST THRU P5110-EXIT DTSBZ261 00357 * ADD +1 TO WRK-UPDATE-CNT DTSBZ261 00358 * PERFORM P5130-ACCT-TRANS THRU P5130-EXIT DTSBZ261 00359 * END-IF DTSBZ261 00360 * END-IF DTSBZ261 00361 * MOVE MQTR-REC TO MSKL-REC DTSBZ261 00362 * PERFORM S910-START-BROWSE THRU S910-EXIT DTSBZ261 00363 * PERFORM S910-READ-NEXT THRU S910-EXIT DTSBZ261 00364 * END-PERFORM. DTSBZ261 00365 DTSBZ261 00366 P5000-EXIT. DTSBZ261 00367 EXIT. DTSBZ261 00368 DTSBZ261 00369 P5110-SUM-INTEREST. DTSBZ261 00370 PERFORM DTSBZ261 00371 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBZ261 00372 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBZ261 00373 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBZ261 00374 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBZ261 00375 TO WRK-INTEREST-CHG DTSBZ261 00376 ADD MQTR-PAID-AMT (MQTR-ACCT-IDX) DTSBZ261 00377 TO WRK-INTEREST-PD DTSBZ261 00378 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBZ261 00379 TO WRK-INTEREST-BAL DTSBZ261 00380 END-IF DTSBZ261 00381 END-PERFORM. DTSBZ261 00382 DTSBZ261 00383 P5110-EXIT. DTSBZ261 00384 EXIT. DTSBZ261 00385 DTSBZ261 00386 DTSBZ261 00387 P5120-FIND-REPORT. DTSBZ261 00388 *& DTSBZ261 00389 * DISPLAY '*** P5120-1 ' MPRF-EMP-NO DTSBZ261 00390 * ' ' DISP-QTR. DTSBZ261 00391 *& DTSBZ261 00392 MOVE ZERO TO WRK-RPT-RECEIVED-DATE DTSBZ261 00393 WRK-RPT-BATCH-NO DTSBZ261 00394 WRK-RPT-ITEM-NO DTSBZ261 00395 WRK-JAN-CNT DTSBZ261 00396 WRK-FEB-CNT DTSBZ261 00397 WRK-MAR-CNT DTSBZ261 00398 WRK-APR-CNT DTSBZ261 00399 WRK-MAY-CNT DTSBZ261 00400 WRK-JUN-CNT DTSBZ261 00401 WRK-JUL-CNT DTSBZ261 00402 WRK-AUG-CNT DTSBZ261 00403 WRK-SEP-CNT DTSBZ261 00404 WRK-OCT-CNT DTSBZ261 00405 WRK-NOV-CNT DTSBZ261 00406 WRK-DEC-CNT. DTSBZ261 00407 SET WRK-SUPPL-RPT-NO TO TRUE. DTSBZ261 00408 SET WRK-WITHDRAWN-RPT-NO TO TRUE. DTSBZ261 00409 SET WRK-MRPT-OK TO TRUE. DTSBZ261 00410 DTSBZ261 00411 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBZ261 00412 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBZ261 00413 MOVE MQTR-YRQ TO MRPT-YRQ. DTSBZ261 00414 SET MRPT-RPT-88 TO TRUE. DTSBZ261 00415 MOVE MRPT-REC TO MSKL-REC. DTSBZ261 00416 DTSBZ261 00417 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261 00418 IF L910-OK-88 DTSBZ261 00419 PERFORM P5121-SCAN-MRPT THRU P5121-EXIT DTSBZ261 00420 UNTIL WRK-MRPT-NO-REC. DTSBZ261 00421 DTSBZ261 00422 * IF WRK-RPT-RECEIVED-DATE = ZERO DTSBZ261 00423 * ADD +1 TO WRK-EXCLUDE-CNT DTSBZ261 00424 * GO TO P5120-EXIT. DTSBZ261 00425 DTSBZ261 00426 *& DTSBZ261 00427 * DISPLAY '*** P5120-2 ' MPRF-EMP-NO DTSBZ261 00428 * ' ' DISP-QTR DTSBZ261 00429 * ' ' WRK-RPT-RECEIVED-DATE DTSBZ261 00430 * ' ' WRK-SUPPL-RPT-IND. DTSBZ261 00431 *& DTSBZ261 00432 DTSBZ261 00433 IF WRK-RPT-RECEIVED-DATE > 20030415 DTSBZ261 00434 SET WRK-EMP-SELECTED-YES TO TRUE DTSBZ261 00435 ELSE DTSBZ261 00436 ADD +1 TO WRK-EXCLUDE-CNT. DTSBZ261 00437 DTSBZ261 00438 P5120-EXIT. DTSBZ261 00439 EXIT. DTSBZ261 00440 DTSBZ261 00441 P5121-SCAN-MRPT. DTSBZ261 00442 MOVE MSKL-REC TO MRPT-REC. DTSBZ261 00443 *& DTSBZ261 00444 * DISPLAY '*** P5121 ' MPRF-EMP-NO DTSBZ261 00445 * ' ' MRPT-YRQ DTSBZ261 00446 * ' ' MRPT-RPT-TYPE DTSBZ261 00447 * ' ' MRPT-RECEIVED-DATE DTSBZ261 00448 * ' ' MRPT-BATCH-NO DTSBZ261 00449 * ' ' MRPT-ITEM-NO. DTSBZ261 00450 *& DTSBZ261 00451 * IF MRPT-YRQ = MQTR-YRQ DTSBZ261 00452 * NEXT SENTENCE DTSBZ261 00453 * ELSE DTSBZ261 00454 IF MRPT-YRQ > 20024 DTSBZ261 00455 SET WRK-MRPT-NO-REC TO TRUE DTSBZ261 00456 GO TO P5121-EXIT DTSBZ261 00457 END-IF. DTSBZ261 00458 * END-IF. DTSBZ261 00459 DTSBZ261 00460 IF MRPT-WITHDRW-88 DTSBZ261 00461 MOVE ZERO TO WRK-RPT-RECEIVED-DATE DTSBZ261 00462 ELSE DTSBZ261 00463 IF MRPT-ORIG-88 DTSBZ261 00464 MOVE MRPT-RECEIVED-DATE DTSBZ261 00465 TO WRK-RPT-RECEIVED-DATE DTSBZ261 00466 MOVE MRPT-BATCH-NO TO WRK-RPT-BATCH-NO DTSBZ261 00467 MOVE MRPT-ITEM-NO TO WRK-RPT-ITEM-NO DTSBZ261 00468 PERFORM P5131A-EMPL-CNTS THRU P5131A-EXIT DTSBZ261 00469 END-IF DTSBZ261 00470 END-IF. DTSBZ261 00471 DTSBZ261 00472 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBZ261 00473 IF L910-NO-REC-88 DTSBZ261 00474 SET WRK-MRPT-NO-REC TO TRUE. DTSBZ261 00475 DTSBZ261 00476 P5121-EXIT. DTSBZ261 00477 EXIT. DTSBZ261 00478 DTSBZ261 00479 P5130-ACCT-TRANS. DTSBZ261 00480 DTSBZ261 00481 ** IF WRK-INTEREST-CHG > ZERO DTSBZ261 00482 * MOVE MPRF-EMP-NO TO EMP-ACCT-DISP DTSBZ261 00483 * DISPLAY EMP-ACCT-DISP DTSBZ261 00484 * ' RPT DOC # ' WRK-RPT-BATCH-NO DTSBZ261 00485 * ' ' WRK-RPT-ITEM-NO DTSBZ261 00486 * ' ' WRK-RPT-RECEIVED-DATE. DTSBZ261 00487 * ' ' WRK-INTEREST-CHG DTSBZ261 00488 * ' ' WRK-INTEREST-PD DTSBZ261 00489 * ' ' WRK-INTEREST-BAL DTSBZ261 00490 ** END-IF. DTSBZ261 00491 DTSBZ261 00492 PERFORM P5131-READ-MPAY THRU P5131-EXIT. DTSBZ261 00493 PERFORM P5132-WITHDRAW-ATX THRU P5132-EXIT. DTSBZ261 00494 PERFORM P5133-REVERSE-MPAY THRU P5133-EXIT. DTSBZ261 00495 PERFORM P5134-ENTER-AATX THRU P5134-EXIT. DTSBZ261 00496 DTSBZ261 00497 P5130-EXIT. DTSBZ261 00498 EXIT. DTSBZ261 00499 DTSBZ261 00500 P5131-READ-MPAY. DTSBZ261 00501 SET WRK-MPAY-FOUND-YES TO TRUE. DTSBZ261 00502 *** SET WRK-MRPT-FOUND-YES TO TRUE. DTSBZ261 00503 MOVE ZERO TO WRK-REMIT-AMT DTSBZ261 00504 WRK-REV-AMT. DTSBZ261 00505 DTSBZ261 00506 * MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBZ261 00507 * MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBZ261 00508 * MOVE MQTR-YRQ TO MRPT-YRQ. DTSBZ261 00509 * MOVE WRK-RPT-BATCH-NO TO MRPT-BATCH-NO DTSBZ261 00510 * MOVE WRK-RPT-ITEM-NO TO MRPT-ITEM-NO. DTSBZ261 00511 * SET MRPT-RPT-88 TO TRUE. DTSBZ261 00512 * MOVE MRPT-REC TO MSKL-REC. DTSBZ261 00513 * DTSBZ261 00514 * PERFORM S910-READ THRU S910-EXIT. DTSBZ261 00515 * IF L910-OK-88 DTSBZ261 00516 * MOVE MSKL-REC TO MRPT-REC DTSBZ261 00517 * PERFORM P5131A-EMPL-CNTS THRU P5131A-EXIT DTSBZ261 00518 * ELSE DTSBZ261 00519 * DISPLAY 'CANNOT FIND MRPT ' MPRF-EMP-NO DTSBZ261 00520 * SET WRK-MRPT-FOUND-NO TO TRUE DTSBZ261 00521 * GO TO P5131-EXIT. DTSBZ261 00522 DTSBZ261 00523 DTSBZ261 00524 MOVE LOW-VALUES TO MPAY-KEY-AREA. DTSBZ261 00525 MOVE MPRF-EMP-NO TO MPAY-EMP-NO. DTSBZ261 00526 MOVE WRK-RPT-BATCH-NO TO MPAY-BATCH-NO DTSBZ261 00527 MOVE WRK-RPT-ITEM-NO TO MPAY-ITEM-NO. DTSBZ261 00528 SET MPAY-PAY-88 TO TRUE. DTSBZ261 00529 MOVE MPAY-REC TO MSKL-REC. DTSBZ261 00530 DTSBZ261 00531 PERFORM S910-READ THRU S910-EXIT. DTSBZ261 00532 IF L910-OK-88 DTSBZ261 00533 MOVE MSKL-REC TO MPAY-REC DTSBZ261 00534 MOVE MPAY-REMIT-AMT TO WRK-REMIT-AMT DTSBZ261 00535 ELSE DTSBZ261 00536 DISPLAY 'CANNOT FIND MPAY ' MPRF-EMP-NO DTSBZ261 00537 SET WRK-MPAY-FOUND-NO TO TRUE DTSBZ261 00538 GO TO P5131-EXIT. DTSBZ261 00539 DTSBZ261 00540 MOVE LOW-VALUE TO MREV-REC. DTSBZ261 00541 MOVE MPAY-EMP-NO TO MREV-EMP-NO. DTSBZ261 00542 SET MREV-REV-88 TO TRUE. DTSBZ261 00543 MOVE MPAY-BATCH-NO TO MREV-PA-BATCH-NO. DTSBZ261 00544 MOVE MPAY-ITEM-NO TO MREV-PA-ITEM-NO. DTSBZ261 00545 MOVE MREV-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261 00546 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBZ261 00547 DTSBZ261 00548 PERFORM DTSBZ261 00549 UNTIL L910-NO-REC-88 DTSBZ261 00550 MOVE MSKL-REC TO MREV-REC DTSBZ261 00551 ADD MREV-AMT TO WRK-REV-AMT DTSBZ261 00552 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBZ261 00553 END-PERFORM. DTSBZ261 00554 DTSBZ261 00555 DISPLAY SPACE. DTSBZ261 00556 MOVE MPRF-EMP-NO TO EMP-ACCT-DISP. DTSBZ261 00557 DISPLAY EMP-ACCT-DISP DTSBZ261 00558 ' RPT DOC # ' WRK-RPT-BATCH-NO DTSBZ261 00559 ' ' WRK-RPT-ITEM-NO DTSBZ261 00560 ' ' WRK-RPT-RECEIVED-DATE. DTSBZ261 00561 MOVE WRK-REV-AMT TO AMT-DISP. DTSBZ261 00562 MOVE WRK-REMIT-AMT TO AMT-DISP1. DTSBZ261 00563 DISPLAY ' REMIT ' AMT-DISP1 DTSBZ261 00564 ' REV ' AMT-DISP. DTSBZ261 00565 DTSBZ261 00566 COMPUTE WRK-REMIT-AMT = DTSBZ261 00567 (WRK-REMIT-AMT - WRK-REV-AMT). DTSBZ261 00568 DTSBZ261 00569 DTSBZ261 00570 P5131-EXIT. DTSBZ261 00571 EXIT. DTSBZ261 00572 DTSBZ261 00573 P5131A-EMPL-CNTS. DTSBZ261 00574 *& DTSBZ261 00575 IF MRPT-EMP-NO = 133080 OR 135921 DTSBZ261 00576 DISPLAY 'P5131A ' MRPT-EMP-NO ' ' MRPT-YRQ DTSBZ261 00577 ' 1 ' MRPT-1ST-MTH-EMPL-CNT DTSBZ261 00578 ' 2 ' MRPT-2ND-MTH-EMPL-CNT DTSBZ261 00579 ' 3 ' MRPT-3RD-MTH-EMPL-CNT. DTSBZ261 00580 *& DTSBZ261 00581 DTSBZ261 00582 EVALUATE TRUE DTSBZ261 00583 WHEN MRPT-YRQ = 20021 DTSBZ261 00584 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-JAN-CNT DTSBZ261 00585 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-FEB-CNT DTSBZ261 00586 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-MAR-CNT DTSBZ261 00587 WHEN MRPT-YRQ = 20022 DTSBZ261 00588 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-APR-CNT DTSBZ261 00589 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-MAY-CNT DTSBZ261 00590 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-JUN-CNT DTSBZ261 00591 WHEN MRPT-YRQ = 20023 DTSBZ261 00592 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-JUL-CNT DTSBZ261 00593 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-AUG-CNT DTSBZ261 00594 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-SEP-CNT DTSBZ261 00595 WHEN MRPT-YRQ = 20024 DTSBZ261 00596 MOVE MRPT-1ST-MTH-EMPL-CNT TO WRK-OCT-CNT DTSBZ261 00597 MOVE MRPT-2ND-MTH-EMPL-CNT TO WRK-NOV-CNT DTSBZ261 00598 MOVE MRPT-3RD-MTH-EMPL-CNT TO WRK-DEC-CNT DTSBZ261 00599 END-EVALUATE. DTSBZ261 00600 P5131A-EXIT. DTSBZ261 00601 EXIT. DTSBZ261 00602 DTSBZ261 00603 P5132-WITHDRAW-ATX. DTSBZ261 00604 * IF WRK-MRPT-FOUND-NO DTSBZ261 00605 * GO TO P5132-EXIT. DTSBZ261 00606 DTSBZ261 00607 PERFORM P5132A-FIND-WAGES THRU P5132A-EXIT. DTSBZ261 00608 DTSBZ261 00609 MOVE LOW-VALUES TO AATX-REC. DTSBZ261 00610 DTSBZ261 00611 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSBZ261 00612 NEXT SENTENCE DTSBZ261 00613 ELSE DTSBZ261 00614 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSBZ261 00615 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261 00616 DTSBZ261 00617 MOVE AHDR-BATCH-NO TO AATX-BATCH-NO. DTSBZ261 00618 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSBZ261 00619 MOVE AHDR-ATC-FILE-TRAN-CNT TO AATX-ITEM-NO. DTSBZ261 00620 SET AATX-ATX-88 TO TRUE. DTSBZ261 00621 DTSBZ261 00622 MOVE MPRF-PRIMARY-NAME TO AATX-NAME-CHECK. DTSBZ261 00623 MOVE MPRF-EMP-NO TO AATX-EMP-NO. DTSBZ261 00624 SET AATX-WITHDRW-88 TO TRUE. DTSBZ261 00625 MOVE 20021 TO AATX-YRQ. DTSBZ261 00626 DTSBZ261 00627 *& DTSBZ261 00628 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 00629 DISPLAY 'WITHDRAW ' EMP-ACCT-DISP DTSBZ261 00630 ' BTC ' AATX-BATCH-NO DTSBZ261 00631 ' ITM ' AATX-ITEM-NO DTSBZ261 00632 ' TOT ' WRK-TOT-WAGE DTSBZ261 00633 ' TAX ' WRK-TAX-WAGE DTSBZ261 00634 END-IF. DTSBZ261 00635 *& DTSBZ261 00636 COMPUTE AATX-TOT-WAGE = WRK-TOT-WAGE * -1. DTSBZ261 00637 DTSBZ261 00638 COMPUTE AATX-TAX-WAGE = WRK-TAX-WAGE * -1. DTSBZ261 00639 DTSBZ261 00640 COMPUTE AATX-EXCESS-WAGE = DTSBZ261 00641 (WRK-TOT-WAGE - WRK-TAX-WAGE). DTSBZ261 00642 DTSBZ261 00643 MOVE +0 TO AATX-REMIT-AMT. DTSBZ261 00644 SET AATX-WAIVE-BOTH-NO-88 DTSBZ261 00645 AATX-WAIVE-INT-NO-88 DTSBZ261 00646 AATX-WAIVE-LATE-PEN-NO-88 TO TRUE. DTSBZ261 00647 DTSBZ261 00648 SET AATX-TOTAL-NO-ENTRY-88 DTSBZ261 00649 AATX-JAN-NO-ENTRY-88 DTSBZ261 00650 AATX-FEB-NO-ENTRY-88 DTSBZ261 00651 AATX-MAR-NO-ENTRY-88 DTSBZ261 00652 AATX-APR-NO-ENTRY-88 DTSBZ261 00653 AATX-MAY-NO-ENTRY-88 DTSBZ261 00654 AATX-JUN-NO-ENTRY-88 DTSBZ261 00655 AATX-JUL-NO-ENTRY-88 DTSBZ261 00656 AATX-AUG-NO-ENTRY-88 DTSBZ261 00657 AATX-SEP-NO-ENTRY-88 DTSBZ261 00658 AATX-OCT-NO-ENTRY-88 DTSBZ261 00659 AATX-NOV-NO-ENTRY-88 DTSBZ261 00660 AATX-DEC-NO-ENTRY-88 TO TRUE. DTSBZ261 00661 DTSBZ261 00662 SET AATX-VERIFIED-NO-88 TO TRUE. DTSBZ261 00663 MOVE 20030630 TO DTSBZ261 00664 AATX-RECEIVED-DATE DTSBZ261 00665 AATX-DEPOSIT-DATE. DTSBZ261 00666 MOVE 'SYS' TO AATX-RESPONSIBLE-ACTIVITY. DTSBZ261 00667 MOVE SPACES TO AATX-RESPONSIBLE-OP-ID. DTSBZ261 00668 MOVE SPACE TO AATX-DISREGARD-EDITS-IND. DTSBZ261 00669 SET AATX-PASSED-FULL-EDITS-YES-88 TO TRUE. DTSBZ261 00670 MOVE +0 TO AATX-PROCESSED-DATE. DTSBZ261 00671 DTSBZ261 00672 MOVE AATX-REC TO ASKL-REC. DTSBZ261 00673 DTSBZ261 00674 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261 00675 DTSBZ261 00676 PERFORM P5132B-WITHDRAW-WAGES THRU P5132B-EXIT. DTSBZ261 00677 DTSBZ261 00678 P5132-EXIT. DTSBZ261 00679 EXIT. DTSBZ261 00680 DTSBZ261 00681 P5132A-FIND-WAGES. DTSBZ261 00682 MOVE ZERO TO WRK-TOT-WAGE DTSBZ261 00683 WRK-TAX-WAGE. DTSBZ261 00684 DTSBZ261 00685 SET L421-RPT-TYPE-SUPPL-88 TO TRUE. DTSBZ261 00686 MOVE MPRF-EMP-NO TO L421-EMP-NO. DTSBZ261 00687 MOVE 20021 TO L421-QTR1. DTSBZ261 00688 MOVE 20022 TO L421-QTR2. DTSBZ261 00689 MOVE 20023 TO L421-QTR3. DTSBZ261 00690 MOVE 20024 TO L421-QTR4. DTSBZ261 00691 DTSBZ261 00692 PERFORM S421-FIND-WAGES THRU S421-EXIT. DTSBZ261 00693 DTSBZ261 00694 PERFORM DTSBZ261 00695 VARYING SUB FROM +1 BY +1 DTSBZ261 00696 UNTIL SUB > L421-WAGE-TBL-CNT DTSBZ261 00697 ADD L421-QTR1-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261 00698 ADD L421-QTR1-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261 00699 ADD L421-QTR2-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261 00700 ADD L421-QTR2-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261 00701 ADD L421-QTR3-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261 00702 ADD L421-QTR3-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261 00703 ADD L421-QTR4-CURR-WAGE (SUB) TO WRK-TOT-WAGE DTSBZ261 00704 ADD L421-QTR4-TAX-WAGE (SUB) TO WRK-TAX-WAGE DTSBZ261 00705 END-PERFORM. DTSBZ261 00706 DTSBZ261 00707 P5132A-EXIT. DTSBZ261 00708 EXIT. DTSBZ261 00709 DTSBZ261 00710 P5132B-WITHDRAW-WAGES. DTSBZ261 00711 MOVE ZERO TO WRK-SEQ-NO. DTSBZ261 00712 DTSBZ261 00713 PERFORM P5132B1-ADD-W001 THRU P5132B1-EXIT DTSBZ261 00714 VARYING SUB FROM +1 BY +1 DTSBZ261 00715 UNTIL SUB > L421-WAGE-TBL-CNT. DTSBZ261 00716 DTSBZ261 00717 P5132B-EXIT. DTSBZ261 00718 EXIT. DTSBZ261 00719 DTSBZ261 00720 P5132B1-ADD-W001. DTSBZ261 00721 MOVE LOW-VALUES TO W001-REC. DTSBZ261 00722 DTSBZ261 00723 MOVE AATX-BATCH-NO TO W001-BATCH-NO. DTSBZ261 00724 DTSBZ261 00725 MOVE AATX-ITEM-NO TO W001-ITEM-NO. DTSBZ261 00726 DTSBZ261 00727 MOVE MPRF-EMP-NO TO W001-EMP-NO. DTSBZ261 00728 DTSBZ261 00729 MOVE 20021 TO L004-QTR-5-9. DTSBZ261 00730 DTSBZ261 00731 MOVE L421-SSN (SUB) TO W001-SSN. DTSBZ261 00732 SET W001-SSN-VALID-88 TO TRUE. DTSBZ261 00733 DTSBZ261 00734 MOVE SPACES TO W001-NAME. DTSBZ261 00735 SET W001-NAME-VALID-88 TO TRUE. DTSBZ261 00736 DTSBZ261 00737 MOVE MHDR-CURR-RUN-DATE TO W001-RECEIVED-DATE. DTSBZ261 00738 DTSBZ261 00739 MOVE ZERO TO W001-RECEIVED-TIME. DTSBZ261 00740 DTSBZ261 00741 MOVE 'SYSTEM' TO W001-RESPONSIBLE-OP-ID. DTSBZ261 00742 DTSBZ261 00743 SET W001-SOURCE-RPT-88 TO TRUE. DTSBZ261 00744 DTSBZ261 00745 MOVE 1 TO L004-QTR-5-Q. DTSBZ261 00746 COMPUTE W001-WAGE-CHNG = DTSBZ261 00747 (L421-QTR1-CURR-WAGE (SUB) * -1). DTSBZ261 00748 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 00749 W001-TAX-WAGE DTSBZ261 00750 W001-PRIOR-WAGE. DTSBZ261 00751 DTSBZ261 00752 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 00753 ADD +1 TO WRK-SEQ-NO DTSBZ261 00754 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 00755 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 00756 MOVE W001-REC TO WSKL-REC. DTSBZ261 00757 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 00758 *& DTSBZ261 00759 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 00760 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 00761 MOVE L421-QTR1-CURR-WAGE (SUB) TO AMT-DISP1 DTSBZ261 00762 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 00763 ' ' AMT-DISP ' ' W001-YRQ DTSBZ261 00764 ' L421 ' AMT-DISP1. DTSBZ261 00765 *& DTSBZ261 00766 DTSBZ261 00767 MOVE 2 TO L004-QTR-5-Q DTSBZ261 00768 COMPUTE W001-WAGE-CHNG = DTSBZ261 00769 (L421-QTR2-CURR-WAGE (SUB) * -1). DTSBZ261 00770 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 00771 W001-TAX-WAGE DTSBZ261 00772 W001-PRIOR-WAGE. DTSBZ261 00773 DTSBZ261 00774 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 00775 ADD +1 TO WRK-SEQ-NO DTSBZ261 00776 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 00777 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 00778 MOVE W001-REC TO WSKL-REC. DTSBZ261 00779 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 00780 *& DTSBZ261 00781 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 00782 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 00783 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 00784 ' ' AMT-DISP ' ' W001-YRQ. DTSBZ261 00785 *& DTSBZ261 00786 DTSBZ261 00787 MOVE 3 TO L004-QTR-5-Q DTSBZ261 00788 COMPUTE W001-WAGE-CHNG = DTSBZ261 00789 (L421-QTR3-CURR-WAGE (SUB) * -1). DTSBZ261 00790 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 00791 W001-TAX-WAGE DTSBZ261 00792 W001-PRIOR-WAGE. DTSBZ261 00793 DTSBZ261 00794 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 00795 ADD +1 TO WRK-SEQ-NO DTSBZ261 00796 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 00797 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 00798 MOVE W001-REC TO WSKL-REC. DTSBZ261 00799 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 00800 *& DTSBZ261 00801 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 00802 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 00803 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 00804 ' ' AMT-DISP ' ' W001-YRQ. DTSBZ261 00805 *& DTSBZ261 00806 DTSBZ261 00807 MOVE 4 TO L004-QTR-5-Q DTSBZ261 00808 COMPUTE W001-WAGE-CHNG = DTSBZ261 00809 (L421-QTR4-CURR-WAGE (SUB) * -1). DTSBZ261 00810 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 00811 W001-TAX-WAGE DTSBZ261 00812 W001-PRIOR-WAGE. DTSBZ261 00813 DTSBZ261 00814 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 00815 ADD +1 TO WRK-SEQ-NO DTSBZ261 00816 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 00817 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 00818 MOVE W001-REC TO WSKL-REC. DTSBZ261 00819 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 00820 *& DTSBZ261 00821 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 00822 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 00823 DISPLAY 'P5132A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 00824 ' ' AMT-DISP ' ' W001-YRQ. DTSBZ261 00825 *& DTSBZ261 00826 DTSBZ261 00827 P5132B1-EXIT. DTSBZ261 00828 EXIT. DTSBZ261 00829 DTSBZ261 00830 P5133-REVERSE-MPAY. DTSBZ261 00831 IF WRK-MPAY-FOUND-NO DTSBZ261 00832 OR WRK-REMIT-AMT = ZERO DTSBZ261 00833 GO TO P5133-EXIT. DTSBZ261 00834 DTSBZ261 00835 MOVE LOW-VALUES TO APAY-REC. DTSBZ261 00836 DTSBZ261 00837 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSBZ261 00838 NEXT SENTENCE DTSBZ261 00839 ELSE DTSBZ261 00840 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSBZ261 00841 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261 00842 DTSBZ261 00843 MOVE AHDR-BATCH-NO TO APAY-BATCH-NO. DTSBZ261 00844 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSBZ261 00845 MOVE AHDR-ATC-FILE-TRAN-CNT TO APAY-ITEM-NO. DTSBZ261 00846 SET APAY-PAY-88 TO TRUE. DTSBZ261 00847 DTSBZ261 00848 MOVE MPRF-PRIMARY-NAME TO APAY-NAME-CHECK. DTSBZ261 00849 MOVE MPRF-EMP-NO TO APAY-EMP-NO. DTSBZ261 00850 SET APAY-PAY-REV-88 TO TRUE. DTSBZ261 00851 DTSBZ261 00852 COMPUTE APAY-REMIT-AMT = DTSBZ261 00853 -1 * WRK-REMIT-AMT. DTSBZ261 00854 COMPUTE WRK-TOT-REVERSE = DTSBZ261 00855 (WRK-TOT-REVERSE + APAY-REMIT-AMT). DTSBZ261 00856 DTSBZ261 00857 SET APAY-WAIVE-INT-NO-88 DTSBZ261 00858 APAY-WAIVE-LATE-PEN-NO-88 DTSBZ261 00859 APAY-NSF-PEN-CHARGE-NO-88 TO TRUE. DTSBZ261 00860 DTSBZ261 00861 MOVE 20030630 TO DTSBZ261 00862 APAY-RECEIVED-DATE DTSBZ261 00863 APAY-DEPOSIT-DATE. DTSBZ261 00864 MOVE +0 TO APAY-APPLIC-YRQ. DTSBZ261 00865 MOVE SPACES TO APAY-APPLIC-IND. DTSBZ261 00866 DTSBZ261 00867 MOVE MPAY-BATCH-NO TO APAY-APPLIC-BATCH-NO. DTSBZ261 00868 MOVE MPAY-ITEM-NO TO APAY-APPLIC-ITEM-NO. DTSBZ261 00869 DTSBZ261 00870 MOVE 'SYS' TO APAY-RESPONSIBLE-ACTIVITY. DTSBZ261 00871 MOVE SPACES TO APAY-RESPONSIBLE-OP-ID. DTSBZ261 00872 MOVE SPACE TO APAY-DISREGARD-EDITS-IND. DTSBZ261 00873 MOVE +0 TO APAY-PROCESSED-DATE. DTSBZ261 00874 COMPUTE AHDR-ATC-FILE-REMIT-AMT = DTSBZ261 00875 (WRK-TOT-REMIT + WRK-TOT-REVERSE). DTSBZ261 00876 DTSBZ261 00877 MOVE APAY-REC TO ASKL-REC. DTSBZ261 00878 DTSBZ261 00879 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261 00880 DTSBZ261 00881 P5133-EXIT. DTSBZ261 00882 EXIT. DTSBZ261 00883 DTSBZ261 00884 P5134-ENTER-AATX. DTSBZ261 00885 * IF WRK-MRPT-FOUND-NO DTSBZ261 00886 * GO TO P5134-EXIT. DTSBZ261 00887 DTSBZ261 00888 *& DTSBZ261 00889 * DISPLAY 'P5134 ADD ' MPRF-EMP-NO. DTSBZ261 00890 *& DTSBZ261 00891 MOVE LOW-VALUES TO AATX-REC. DTSBZ261 00892 DTSBZ261 00893 IF AHDR-ATC-FILE-TRAN-CNT < +999 DTSBZ261 00894 NEXT SENTENCE DTSBZ261 00895 ELSE DTSBZ261 00896 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT DTSBZ261 00897 PERFORM S1000-INITIATE-AHDR THRU S1000-EXIT. DTSBZ261 00898 DTSBZ261 00899 MOVE AHDR-BATCH-NO TO AATX-BATCH-NO. DTSBZ261 00900 ADD +1 TO AHDR-ATC-FILE-TRAN-CNT. DTSBZ261 00901 MOVE AHDR-ATC-FILE-TRAN-CNT TO AATX-ITEM-NO. DTSBZ261 00902 SET AATX-ATX-88 TO TRUE. DTSBZ261 00903 DTSBZ261 00904 MOVE MPRF-PRIMARY-NAME TO AATX-NAME-CHECK. DTSBZ261 00905 MOVE MPRF-EMP-NO TO AATX-EMP-NO. DTSBZ261 00906 SET AATX-ORIG-88 TO TRUE. DTSBZ261 00907 MOVE 20021 TO AATX-YRQ. DTSBZ261 00908 DTSBZ261 00909 MOVE WRK-TOT-WAGE TO AATX-TOT-WAGE. DTSBZ261 00910 MOVE WRK-TAX-WAGE TO AATX-TAX-WAGE. DTSBZ261 00911 COMPUTE AATX-EXCESS-WAGE = DTSBZ261 00912 (AATX-TOT-WAGE - AATX-TAX-WAGE). DTSBZ261 00913 *& DTSBZ261 00914 * DISPLAY 'ADD ' EMP-ACCT-DISP DTSBZ261 00915 * ' BTC ' AATX-BATCH-NO DTSBZ261 00916 * ' ITM ' AATX-ITEM-NO DTSBZ261 00917 * ' TOT ' WRK-TOT-WAGE DTSBZ261 00918 * ' TAX ' WRK-TAX-WAGE DTSBZ261 00919 * ' REMIT ' AATX-REMIT-AMT. DTSBZ261 00920 *& DTSBZ261 00921 DTSBZ261 00922 MOVE WRK-REMIT-AMT TO AATX-REMIT-AMT. DTSBZ261 00923 COMPUTE WRK-TOT-REMIT = DTSBZ261 00924 (WRK-TOT-REMIT + WRK-REMIT-AMT). DTSBZ261 00925 SET AATX-WAIVE-BOTH-NO-88 DTSBZ261 00926 AATX-WAIVE-INT-NO-88 DTSBZ261 00927 AATX-WAIVE-LATE-PEN-NO-88 TO TRUE. DTSBZ261 00928 DTSBZ261 00929 MOVE WRK-JAN-CNT TO AATX-JAN-EMPL-CNT. DTSBZ261 00930 MOVE WRK-FEB-CNT TO AATX-FEB-EMPL-CNT. DTSBZ261 00931 MOVE WRK-MAR-CNT TO AATX-MAR-EMPL-CNT. DTSBZ261 00932 MOVE WRK-APR-CNT TO AATX-APR-EMPL-CNT. DTSBZ261 00933 MOVE WRK-MAY-CNT TO AATX-MAY-EMPL-CNT. DTSBZ261 00934 MOVE WRK-JUN-CNT TO AATX-JUN-EMPL-CNT. DTSBZ261 00935 MOVE WRK-JUL-CNT TO AATX-JUL-EMPL-CNT. DTSBZ261 00936 MOVE WRK-AUG-CNT TO AATX-AUG-EMPL-CNT. DTSBZ261 00937 MOVE WRK-SEP-CNT TO AATX-SEP-EMPL-CNT. DTSBZ261 00938 MOVE WRK-OCT-CNT TO AATX-OCT-EMPL-CNT. DTSBZ261 00939 MOVE WRK-NOV-CNT TO AATX-NOV-EMPL-CNT. DTSBZ261 00940 MOVE WRK-DEC-CNT TO AATX-DEC-EMPL-CNT. DTSBZ261 00941 DTSBZ261 00942 *& DTSBZ261 00943 IF MRPT-EMP-NO = 133080 OR 135921 DTSBZ261 00944 DISPLAY 'P5134 ' AATX-EMP-NO DTSBZ261 00945 ' ' AATX-JAN-EMPL-CNT DTSBZ261 00946 ' ' AATX-FEB-EMPL-CNT DTSBZ261 00947 ' ' AATX-MAR-EMPL-CNT DTSBZ261 00948 DISPLAY AATX-APR-EMPL-CNT DTSBZ261 00949 ' ' AATX-MAY-EMPL-CNT DTSBZ261 00950 ' ' AATX-JUN-EMPL-CNT DTSBZ261 00951 ' ' AATX-JUL-EMPL-CNT DTSBZ261 00952 DISPLAY AATX-AUG-EMPL-CNT DTSBZ261 00953 ' ' AATX-SEP-EMPL-CNT DTSBZ261 00954 ' ' AATX-OCT-EMPL-CNT DTSBZ261 00955 ' ' AATX-NOV-EMPL-CNT DTSBZ261 00956 ' ' AATX-DEC-EMPL-CNT. DTSBZ261 00957 *& DTSBZ261 00958 COMPUTE MRPT-TOTAL-EMPL-CNT = DTSBZ261 00959 WRK-JAN-CNT + DTSBZ261 00960 WRK-FEB-CNT + DTSBZ261 00961 WRK-MAR-CNT + DTSBZ261 00962 WRK-APR-CNT + DTSBZ261 00963 WRK-MAY-CNT + DTSBZ261 00964 WRK-JUN-CNT + DTSBZ261 00965 WRK-JUL-CNT + DTSBZ261 00966 WRK-AUG-CNT + DTSBZ261 00967 WRK-SEP-CNT + DTSBZ261 00968 WRK-OCT-CNT + DTSBZ261 00969 WRK-NOV-CNT + DTSBZ261 00970 WRK-DEC-CNT. DTSBZ261 00971 DTSBZ261 00972 SET AATX-VERIFIED-NO-88 TO TRUE. DTSBZ261 00973 *& MOVE MHDR-CURR-RUN-DATE TO DTSBZ261 00974 MOVE 20030415 TO DTSBZ261 00975 AATX-RECEIVED-DATE DTSBZ261 00976 AATX-DEPOSIT-DATE. DTSBZ261 00977 MOVE 'SYS' TO AATX-RESPONSIBLE-ACTIVITY. DTSBZ261 00978 MOVE SPACES TO AATX-RESPONSIBLE-OP-ID. DTSBZ261 00979 MOVE SPACE TO AATX-DISREGARD-EDITS-IND. DTSBZ261 00980 SET AATX-PASSED-FULL-EDITS-YES-88 TO TRUE. DTSBZ261 00981 MOVE +0 TO AATX-PROCESSED-DATE. DTSBZ261 00982 COMPUTE AHDR-ATC-FILE-REMIT-AMT = DTSBZ261 00983 (WRK-TOT-REMIT + WRK-TOT-REVERSE). DTSBZ261 00984 DTSBZ261 00985 MOVE AATX-REC TO ASKL-REC. DTSBZ261 00986 DTSBZ261 00987 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261 00988 DTSBZ261 00989 PERFORM P5134A-ADD-WAGES THRU P5134A-EXIT. DTSBZ261 00990 DTSBZ261 00991 P5134-EXIT. DTSBZ261 00992 EXIT. DTSBZ261 00993 DTSBZ261 00994 P5134A-ADD-WAGES. DTSBZ261 00995 MOVE ZERO TO WRK-SEQ-NO. DTSBZ261 00996 DTSBZ261 00997 PERFORM P5134A1-ADD-W001 THRU P5134A1-EXIT DTSBZ261 00998 VARYING SUB FROM +1 BY +1 DTSBZ261 00999 UNTIL SUB > L421-WAGE-TBL-CNT. DTSBZ261 01000 DTSBZ261 01001 P5134A-EXIT. DTSBZ261 01002 EXIT. DTSBZ261 01003 DTSBZ261 01004 P5134A1-ADD-W001. DTSBZ261 01005 *& DTSBZ261 01006 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 01007 DISPLAY 'P5134 ' EMP-ACCT-DISP DTSBZ261 01008 ' BTC ' AATX-BATCH-NO DTSBZ261 01009 ' ITM ' AATX-ITEM-NO. DTSBZ261 01010 *& DTSBZ261 01011 MOVE LOW-VALUES TO W001-REC. DTSBZ261 01012 DTSBZ261 01013 MOVE AATX-BATCH-NO TO W001-BATCH-NO. DTSBZ261 01014 DTSBZ261 01015 MOVE AATX-ITEM-NO TO W001-ITEM-NO. DTSBZ261 01016 DTSBZ261 01017 MOVE MPRF-EMP-NO TO W001-EMP-NO. DTSBZ261 01018 DTSBZ261 01019 MOVE 20021 TO L004-QTR-5-9. DTSBZ261 01020 DTSBZ261 01021 MOVE L421-SSN (SUB) TO W001-SSN. DTSBZ261 01022 SET W001-SSN-VALID-88 TO TRUE. DTSBZ261 01023 DTSBZ261 01024 MOVE SPACES TO W001-NAME. DTSBZ261 01025 SET W001-NAME-VALID-88 TO TRUE. DTSBZ261 01026 DTSBZ261 01027 MOVE MHDR-CURR-RUN-DATE TO W001-RECEIVED-DATE. DTSBZ261 01028 DTSBZ261 01029 MOVE ZERO TO W001-RECEIVED-TIME. DTSBZ261 01030 DTSBZ261 01031 MOVE 'SYSTEM' TO W001-RESPONSIBLE-OP-ID. DTSBZ261 01032 DTSBZ261 01033 SET W001-SOURCE-RPT-88 TO TRUE. DTSBZ261 01034 DTSBZ261 01035 MOVE 1 TO L004-QTR-5-Q. DTSBZ261 01036 MOVE L421-QTR1-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261 01037 MOVE L421-QTR1-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261 01038 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 01039 W001-PRIOR-WAGE. DTSBZ261 01040 DTSBZ261 01041 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 01042 ADD +1 TO WRK-SEQ-NO DTSBZ261 01043 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 01044 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 01045 MOVE W001-REC TO WSKL-REC. DTSBZ261 01046 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 01047 *& DTSBZ261 01048 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 01049 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 01050 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261 01051 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 01052 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261 01053 *& DTSBZ261 01054 DTSBZ261 01055 MOVE 2 TO L004-QTR-5-Q DTSBZ261 01056 MOVE L421-QTR2-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261 01057 MOVE L421-QTR2-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261 01058 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 01059 W001-PRIOR-WAGE. DTSBZ261 01060 DTSBZ261 01061 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 01062 ADD +1 TO WRK-SEQ-NO DTSBZ261 01063 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 01064 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 01065 MOVE W001-REC TO WSKL-REC. DTSBZ261 01066 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 01067 *& DTSBZ261 01068 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 01069 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 01070 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261 01071 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 01072 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261 01073 *& DTSBZ261 01074 DTSBZ261 01075 MOVE 3 TO L004-QTR-5-Q DTSBZ261 01076 MOVE L421-QTR3-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261 01077 MOVE L421-QTR3-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261 01078 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 01079 W001-PRIOR-WAGE. DTSBZ261 01080 DTSBZ261 01081 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 01082 ADD +1 TO WRK-SEQ-NO DTSBZ261 01083 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 01084 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 01085 MOVE W001-REC TO WSKL-REC. DTSBZ261 01086 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 01087 *& DTSBZ261 01088 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 01089 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 01090 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261 01091 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 01092 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261 01093 *& DTSBZ261 01094 DTSBZ261 01095 MOVE 4 TO L004-QTR-5-Q DTSBZ261 01096 MOVE L421-QTR4-CURR-WAGE (SUB) TO W001-WAGE-CHNG. DTSBZ261 01097 MOVE L421-QTR4-TAX-WAGE (SUB) TO W001-TAX-WAGE. DTSBZ261 01098 MOVE ZERO TO W001-CURR-WAGE DTSBZ261 01099 W001-PRIOR-WAGE. DTSBZ261 01100 DTSBZ261 01101 SET W001-WAGE-VALID-88 TO TRUE. DTSBZ261 01102 ADD +1 TO WRK-SEQ-NO DTSBZ261 01103 MOVE WRK-SEQ-NO TO W001-SEQ-NO. DTSBZ261 01104 MOVE L004-QTR-5-9 TO W001-YRQ. DTSBZ261 01105 MOVE W001-REC TO WSKL-REC. DTSBZ261 01106 PERFORM S983-WRITE THRU S983-EXIT. DTSBZ261 01107 *& DTSBZ261 01108 IF MPRF-EMP-NO = 054281 OR 067126 DTSBZ261 01109 MOVE W001-WAGE-CHNG TO AMT-DISP DTSBZ261 01110 MOVE W001-TAX-WAGE TO AMT-DISP1 DTSBZ261 01111 DISPLAY 'P5134A SSN ' MPRF-EMP-NO ' ' W001-SSN DTSBZ261 01112 ' ' AMT-DISP ' ' AMT-DISP1 ' ' W001-YRQ. DTSBZ261 01113 *& DTSBZ261 01114 DTSBZ261 01115 P5134A1-EXIT. DTSBZ261 01116 EXIT. DTSBZ261 01117 DTSBZ261 01118 P5200-EVL. DTSBZ261 01119 ADD +1000 TO L005-ABSTIME. DTSBZ261 01120 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBZ261 01121 DTSBZ261 01122 MOVE LOW-VALUE TO MEVL-REC. DTSBZ261 01123 DTSBZ261 01124 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBZ261 01125 DTSBZ261 01126 SET MEVL-EVL-88 TO TRUE. DTSBZ261 01127 DTSBZ261 01128 MOVE L005-DATE TO MEVL-DATE. DTSBZ261 01129 DTSBZ261 01130 MOVE L005-TIME TO MEVL-TIME. DTSBZ261 01131 DTSBZ261 01132 MOVE +0 TO MEVL-PURGE-DATE. DTSBZ261 01133 DTSBZ261 01134 MOVE WRK-EVENT-TXT TO MEVL-TEXT. DTSBZ261 01135 DTSBZ261 01136 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBZ261 01137 DTSBZ261 01138 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBZ261 01139 DTSBZ261 01140 MOVE L005-DATE TO MEVL-ESTB-DATE DTSBZ261 01141 MEVL-CHNG-DATE. DTSBZ261 01142 DTSBZ261 01143 MOVE MEVL-REC TO MSKL-REC. DTSBZ261 01144 DTSBZ261 01145 PERFORM S910-WRITE THRU S910-EXIT. DTSBZ261 01146 DTSBZ261 01147 P5200-EXIT. DTSBZ261 01148 EXIT. DTSBZ261 01149 DTSBZ261 01150 T0000-TERMINATE. DTSBZ261 01151 DTSBZ261 01152 PERFORM S2000-TERMINATE-AHDR THRU S2000-EXIT. DTSBZ261 01153 DTSBZ261 01154 PERFORM S923-CLOSE THRU S923-EXIT. DTSBZ261 01155 DTSBZ261 01156 MOVE MHDR-LAST-USED-BATCH-NO TO HOLD-LAST-USED-BATCH-NO. DTSBZ261 01157 DTSBZ261 01158 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSBZ261 01159 DTSBZ261 01160 PERFORM S910-READ THRU S910-EXIT. DTSBZ261 01161 IF L910-NO-REC-88 DTSBZ261 01162 MOVE 'MHDR RECORD NOT FOUND (T0000)' DTSBZ261 01163 TO ABEND-MSG DTSBZ261 01164 PERFORM S999-ABEND THRU S999-EXIT. DTSBZ261 01165 DTSBZ261 01166 MOVE MSKL-REC TO MHDR-REC. DTSBZ261 01167 MOVE HOLD-LAST-USED-BATCH-NO TO MHDR-LAST-USED-BATCH-NO. DTSBZ261 01168 MOVE MHDR-CURR-RUN-DATE TO MHDR-CHNG-DATE. DTSBZ261 01169 MOVE MHDR-REC TO MSKL-REC. DTSBZ261 01170 DTSBZ261 01171 PERFORM S910-REWRITE THRU S910-EXIT. DTSBZ261 01172 DTSBZ261 01173 DISPLAY ' '. DTSBZ261 01174 DTSBZ261 01175 DISPLAY '*** DTSBZ261 TERMINATION STATISTICS ***'. DTSBZ261 01176 DTSBZ261 01177 DISPLAY ' '. DTSBZ261 01178 DTSBZ261 01179 DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DTSBZ261 01180 WRK-MPRF-CNT. DTSBZ261 01181 DTSBZ261 01182 DISPLAY 'NUMBER OF ACCOUNTS UPDATED : 'DTSBZ261 01183 WRK-UPDATE-CNT. DTSBZ261 01184 DTSBZ261 01185 DISPLAY 'NUMBER OF EMPLOYERS EXCLUDED : 'DTSBZ261 01186 WRK-EXCLUDE-CNT. DTSBZ261 01187 DTSBZ261 01188 DISPLAY 'AHDR REMIT AMOUNT : 'DTSBZ261 01189 AHDR-ATC-FILE-REMIT-AMT. DTSBZ261 01190 DTSBZ261 01191 DISPLAY 'STARTING BATCH : 'DTSBZ261 01192 WRK-START-BATCH. DTSBZ261 01193 DTSBZ261 01194 DISPLAY 'ENDING BATCH : 'DTSBZ261 01195 HOLD-LAST-USED-BATCH-NO. DTSBZ261 01196 DTSBZ261 01197 * DISPLAY 'AMOUNT OF INTEREST REVERSED : 'DTSBZ261 01198 * WRK-INTEREST-AMT. DTSBZ261 01199 DTSBZ261 01200 PERFORM S910-CLOSE THRU S910-EXIT. DTSBZ261 01201 PERFORM S931-CLOSE THRU S931-EXIT. DTSBZ261 01202 PERFORM S981B-CLOSE THRU S981B-EXIT. DTSBZ261 01203 PERFORM S983-CLOSE THRU S983-EXIT. DTSBZ261 01204 DTSBZ261 01205 T0000-EXIT. DTSBZ261 01206 EXIT. DTSBZ261 01207 EJECT DTSBZ261 01208 DTSBZ261 01209 S1000-INITIATE-AHDR. DTSBZ261 01210 MOVE LOW-VALUES TO AHDR-REC. DTSBZ261 01211 DTSBZ261 01212 IF MHDR-LAST-USED-BATCH-NO < +99999 DTSBZ261 01213 COMPUTE AHDR-BATCH-NO = MHDR-LAST-USED-BATCH-NO + 1 DTSBZ261 01214 ELSE DTSBZ261 01215 MOVE +1 TO AHDR-BATCH-NO. DTSBZ261 01216 DTSBZ261 01217 MOVE +0 TO AHDR-ITEM-NO. DTSBZ261 01218 SET AHDR-HDR-88 TO TRUE. DTSBZ261 01219 SET AHDR-BATCH-BALANCED-YES-88 TO TRUE. DTSBZ261 01220 SET AHDR-BATCH-HELD-NO-88 TO TRUE. DTSBZ261 01221 SET AHDR-ESTB-SYSTEM-88 TO TRUE. DTSBZ261 01222 MOVE SPACES TO AHDR-CHNG-OP-ID. DTSBZ261 01223 MOVE +0 TO AHDR-CHNG-DATE. DTSBZ261 01224 MOVE MHDR-CURR-RUN-DATE TO AHDR-ESTB-DATE DTSBZ261 01225 AHDR-RECEIVED-DATE DTSBZ261 01226 AHDR-DEPOSIT-DATE. DTSBZ261 01227 MOVE +0 TO AHDR-LAST-USED-ITEM-NO DTSBZ261 01228 AHDR-CONTROL-TRAN-CNT DTSBZ261 01229 AHDR-ATC-FILE-TRAN-CNT DTSBZ261 01230 AHDR-PROC-TRAN-CNT DTSBZ261 01231 AHDR-CONTROL-REMIT-AMT DTSBZ261 01232 AHDR-ATC-FILE-REMIT-AMT DTSBZ261 01233 AHDR-PROC-REMIT-AMT. DTSBZ261 01234 DTSBZ261 01235 S1000-EXIT. DTSBZ261 01236 EXIT. DTSBZ261 01237 DTSBZ261 01238 S2000-TERMINATE-AHDR. DTSBZ261 01239 IF AHDR-ATC-FILE-TRAN-CNT = +0 DTSBZ261 01240 GO TO S2000-EXIT. DTSBZ261 01241 DTSBZ261 01242 MOVE AHDR-BATCH-NO TO MHDR-LAST-USED-BATCH-NO. DTSBZ261 01243 MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-LAST-USED-ITEM-NO. DTSBZ261 01244 MOVE AHDR-ATC-FILE-TRAN-CNT TO AHDR-CONTROL-TRAN-CNT. DTSBZ261 01245 MOVE AHDR-ATC-FILE-REMIT-AMT TO AHDR-CONTROL-REMIT-AMT. DTSBZ261 01246 MOVE AHDR-REC TO ASKL-REC. DTSBZ261 01247 DTSBZ261 01248 PERFORM S923-WRITE THRU S923-EXIT. DTSBZ261 01249 DTSBZ261 01250 S2000-EXIT. DTSBZ261 01251 EXIT. DTSBZ261 01252 DTSBZ261 01253 S004-EDIT-QTR. DTSBZ261 01254 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBZ261 01255 DTSBZ261 01256 S004-EXIT. DTSBZ261 01257 EXIT. DTSBZ261 01258 SKIP3 DTSBZ261 01259 S410-FILING-SCHED. DTSBZ261 01260 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBZ261 01261 DTSBZ261 01262 S410-EXIT. DTSBZ261 01263 EXIT. DTSBZ261 01264 DTSBZ261 01265 S421-FIND-WAGES. DTSBZ261 01266 CALL 'DTSBU421' USING L421-LINK-AREA. DTSBZ261 01267 S421-EXIT. DTSBZ261 01268 EXIT. DTSBZ261 01269 DTSBZ261 01270 S005-FROM-SYS. DTSBZ261 01271 SET L005-FROM-SYS TO TRUE. DTSBZ261 01272 GO TO S005-TIME. DTSBZ261 01273 DTSBZ261 01274 S005-FROM-ABSTIME. DTSBZ261 01275 SET L005-FROM-ABSTIME TO TRUE. DTSBZ261 01276 GO TO S005-TIME. DTSBZ261 01277 DTSBZ261 01278 S005-TIME. DTSBZ261 01279 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBZ261 01280 S005-EXIT. DTSBZ261 01281 EXIT. DTSBZ261 01282 DTSBZ261 01283 S910-OPEN-READ. DTSBZ261 01284 SET L910-OPEN-READ-88 TO TRUE. DTSBZ261 01285 GO TO S910-MSTR-IO. DTSBZ261 01286 DTSBZ261 01287 S910-OPEN-UPDATE-NO-AIX. DTSBZ261 01288 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBZ261 01289 GO TO S910-MSTR-IO. DTSBZ261 01290 DTSBZ261 01291 S910-OPEN-UPDATE-HDR. DTSBZ261 01292 SET L910-OPEN-UPDATE-HDR-88 TO TRUE. DTSBZ261 01293 GO TO S910-MSTR-IO. DTSBZ261 01294 DTSBZ261 01295 S910-OPEN-UPDATE. DTSBZ261 01296 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBZ261 01297 GO TO S910-MSTR-IO. DTSBZ261 01298 DTSBZ261 01299 S910-READ. DTSBZ261 01300 SET L910-READ-88 TO TRUE. DTSBZ261 01301 GO TO S910-MSTR-IO. DTSBZ261 01302 DTSBZ261 01303 S910-START-BROWSE. DTSBZ261 01304 SET L910-START-BROWSE-88 TO TRUE. DTSBZ261 01305 GO TO S910-MSTR-IO. DTSBZ261 01306 DTSBZ261 01307 S910-READ-NEXT. DTSBZ261 01308 SET L910-READ-NEXT-88 TO TRUE. DTSBZ261 01309 GO TO S910-MSTR-IO. DTSBZ261 01310 DTSBZ261 01311 S910-COUNT. DTSBZ261 01312 SET L910-COUNT-88 TO TRUE. DTSBZ261 01313 GO TO S910-MSTR-IO. DTSBZ261 01314 DTSBZ261 01315 S910-WRITE. DTSBZ261 01316 SET L910-WRITE-88 TO TRUE. DTSBZ261 01317 GO TO S910-MSTR-IO. DTSBZ261 01318 DTSBZ261 01319 S910-REWRITE. DTSBZ261 01320 SET L910-REWRITE-88 TO TRUE. DTSBZ261 01321 GO TO S910-MSTR-IO. DTSBZ261 01322 DTSBZ261 01323 S910-DELETE. DTSBZ261 01324 SET L910-DELETE-88 TO TRUE. DTSBZ261 01325 GO TO S910-MSTR-IO. DTSBZ261 01326 DTSBZ261 01327 S910-CLOSE. DTSBZ261 01328 SET L910-CLOSE-88 TO TRUE. DTSBZ261 01329 GO TO S910-MSTR-IO. DTSBZ261 01330 DTSBZ261 01331 S910-MSTR-IO. DTSBZ261 01332 CALL 'DTSBU910' USING L910-LINK-AREA DTSBZ261 01333 MSKL-REC. DTSBZ261 01334 S910-EXIT. DTSBZ261 01335 EXIT. DTSBZ261 01336 SKIP3 DTSBZ261 01337 S923-OPEN-UPDATE. DTSBZ261 01338 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBZ261 01339 GO TO S923-ATC-IO. DTSBZ261 01340 DTSBZ261 01341 S923-READ. DTSBZ261 01342 SET L923-READ-88 TO TRUE. DTSBZ261 01343 GO TO S923-ATC-IO. DTSBZ261 01344 DTSBZ261 01345 S923-START-BROWSE. DTSBZ261 01346 SET L923-START-BROWSE-88 TO TRUE. DTSBZ261 01347 GO TO S923-ATC-IO. DTSBZ261 01348 DTSBZ261 01349 S923-READ-NEXT. DTSBZ261 01350 SET L923-READ-NEXT-88 TO TRUE. DTSBZ261 01351 GO TO S923-ATC-IO. DTSBZ261 01352 DTSBZ261 01353 S923-WRITE. DTSBZ261 01354 SET L923-WRITE-88 TO TRUE. DTSBZ261 01355 GO TO S923-ATC-IO. DTSBZ261 01356 DTSBZ261 01357 S923-REWRITE. DTSBZ261 01358 SET L923-REWRITE-88 TO TRUE. DTSBZ261 01359 GO TO S923-ATC-IO. DTSBZ261 01360 DTSBZ261 01361 S923-DELETE. DTSBZ261 01362 SET L923-DELETE-88 TO TRUE. DTSBZ261 01363 GO TO S923-ATC-IO. DTSBZ261 01364 DTSBZ261 01365 S923-CLOSE. DTSBZ261 01366 SET L923-CLOSE-88 TO TRUE. DTSBZ261 01367 GO TO S923-ATC-IO. DTSBZ261 01368 DTSBZ261 01369 S923-ATC-IO. DTSBZ261 01370 CALL 'DTSBU923' USING L923-LINK-AREA DTSBZ261 01371 ASKL-REC. DTSBZ261 01372 S923-EXIT. DTSBZ261 01373 EXIT. DTSBZ261 01374 SKIP3 DTSBZ261 01375 S931-OPEN-READ. DTSBZ261 01376 SET L931-OPEN-READ-88 TO TRUE. DTSBZ261 01377 GO TO S931-REF-I. DTSBZ261 01378 DTSBZ261 01379 S931-CLOSE. DTSBZ261 01380 SET L931-CLOSE-88 TO TRUE. DTSBZ261 01381 GO TO S931-REF-I. DTSBZ261 01382 DTSBZ261 01383 S931-REF-I. DTSBZ261 01384 CALL 'DTSBU931' USING L931-LINK-AREA DTSBZ261 01385 FSKL-REC. DTSBZ261 01386 S931-EXIT. DTSBZ261 01387 EXIT. DTSBZ261 01388 DTSBZ261 01389 S981A-OPEN. DTSBZ261 01390 SET L981-OPEN-READ-88 TO TRUE. DTSBZ261 01391 CALL 'DTSBU981' USING L981-LINK-AREA DTSBZ261 01392 WWGH-REC. DTSBZ261 01393 S981A-EXIT. DTSBZ261 01394 EXIT. DTSBZ261 01395 SKIP3 DTSBZ261 01396 S981B-CLOSE. DTSBZ261 01397 SET L981-CLOSE-88 TO TRUE. DTSBZ261 01398 CALL 'DTSBU981' USING L981-LINK-AREA DTSBZ261 01399 WWGH-REC. DTSBZ261 01400 S981B-EXIT. DTSBZ261 01401 EXIT. DTSBZ261 01402 SKIP3 DTSBZ261 01403 DTSBZ261 01404 S983-OPEN. DTSBZ261 01405 SET L983-OPEN-UPDATE-88 TO TRUE. DTSBZ261 01406 GO TO S983-WAGE-O. DTSBZ261 01407 DTSBZ261 01408 S983-WRITE. DTSBZ261 01409 SET L983-WRITE-88 TO TRUE. DTSBZ261 01410 GO TO S983-WAGE-O. DTSBZ261 01411 DTSBZ261 01412 S983-CLOSE. DTSBZ261 01413 SET L983-CLOSE-88 TO TRUE. DTSBZ261 01414 GO TO S983-WAGE-O. DTSBZ261 01415 DTSBZ261 01416 S983-WAGE-O. DTSBZ261 01417 CALL 'DTSBU983' USING L983-LINK-AREA DTSBZ261 01418 WSKL-REC. DTSBZ261 01419 S983-EXIT. DTSBZ261 01420 EXIT. DTSBZ261 01421 SKIP3 DTSBZ261 01422 S999-ABEND. DTSBZ261 01423 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBZ261 01424 S999-EXIT. DTSBZ261 01425 EXIT. DTSBZ261