00001 IDENTIFICATION DIVISION. 08/07/12 00002 PROGRAM-ID. DTSBX440. DTSBX440 00003 AUTHOR. NGC. LV001 00004 DATE-WRITTEN. NOVEMBER 2007. DTSBX440 00005 DATE-COMPILED. DTSBX440 00006 SKIP3 DTSBX440 00007 ***** DTSBX440 00008 * DTSBX440 00009 * FUNCTION: INTERNAL WEB MAINFRAME INPUT- AUDITS DTSBX440 00010 * FROM X163 AND X164 FILES. DTSBX440 00011 * DTSBX440 00012 * MODIFICATION LOG: DTSBX440 00013 * DTSBX440 00014 * 03/13/2012 INITIAL DEVELOPMENT. DTSBX440 00015 * REFERENCE: PROGRAMMER: GD DTSBX440 00016 * DTSBX440 00017 * 03/13/2012 ADDED CODE TO EDIT AUDIT RECORDS COMING FROM DTSBX440 00018 * SERVER. TWO RECORDS TYPES ARE EDITED DTSBX440 00019 * X163 TO UPDATE MFAS AND MUIR RECS AND X164 TO DTSBX440 00020 * CREATE/UPDATE MAUY RECS. DTSBX440 00021 * REFERENCE: PROGRAMMER: ZL1 DTSBX440 00022 * DTSBX440 00023 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX440 00024 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX440 00025 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX440 00026 * DTSBX440 00027 * DTSBX440 00028 * DESCRIPTION: DTSBX440 00029 * DTSBX440 00030 * DTSBX440 00031 * INITIATION: DTSBX440 00032 * DTSBX440 00033 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBX440 00034 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBX440 00035 * DTSBX440 00036 * EDIT AND DEFAULT PARAMETERS. DTSBX440 00037 * DTSBX440 00038 * DTSBX440 00039 * PROCESSING: DTSBX440 00040 * DTSBX440 00041 * DTSBX440 00042 * TERMINATION: DTSBX440 00043 * DTSBX440 00044 * DTSBX440 00045 * DTSBX440 00046 * RECORDS READ: DTSBX440 00047 * DTSBX440 00048 * MASTER: DTSBX440 00049 * DTSBX440 00050 * MFAS DTSBX440 00051 * MUIR DTSBX440 00052 * MAUY DTSBX440 00053 * DTSBX440 00054 * ALTERNATE INDEX: DTSBX440 00055 * DTSBX440 00056 * NONE. DTSBX440 00057 * DTSBX440 00058 * DTSBX440 00059 * REFERENCE: DTSBX440 00060 * DTSBX440 00061 * DTSBX440 00062 * DTSBX440 00063 * RECORDS UPDATED: DTSBX440 00064 * DTSBX440 00065 * NONE DTSBX440 00066 * DTSBX440 00067 * DTSBX440 00068 * OUTPUT RECORDS WRITTEN: DTSBX440 00069 * DTSBX440 00070 * DTSIT040 TRANSACTIONS RECORDS DTSBX440 00071 * DTSBX440 00072 * DTSBX440 00073 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBX440 00074 * DTSBX440 00075 * NONE. DTSBX440 00076 * DTSBX440 00077 * DTSBX440 00078 * MODULES CALLED: DTSBX440 00079 * DTSBX440 00080 * DTSBU001 DATE EDIT/CONVERSION. DTSBX440 00081 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBX440 00082 * DTSBU910 MASTER FILE I/O. DTSBX440 00083 * DTSBX440 00084 * DTSBX440 00085 * DTSBX440 00086 ***** DTSBX440 00087 SKIP3 DTSBX440 00088 ENVIRONMENT DIVISION. DTSBX440 00089 INPUT-OUTPUT SECTION. DTSBX440 00090 FILE-CONTROL. DTSBX440 00091 DTSBX440 00092 SELECT WEB-AUD-FILE ASSIGN TO DTSFAUDT DTSBX440 00093 FILE STATUS IS AUDIT-STATUS. DTSBX440 00094 DTSBX440 00095 DATA DIVISION. DTSBX440 00096 FILE SECTION. DTSBX440 00097 FD WEB-AUD-FILE DTSBX440 00098 RECORDING MODE IS F DTSBX440 00099 LABEL RECORDS ARE STANDARD DTSBX440 00100 BLOCK CONTAINS 0 CHARACTERS. DTSBX440 00101 DTSBX440 00102 01 AUDIT-REC. DTSBX440 00103 05 AUDIT-QTR-REC-TYPE PIC X(03). DTSBX440 00104 88 REC-TYPE-AUDIT-163-88 VALUE '163'. DTSBX440 00105 88 REC-TYPE-AUDIT-164-88 VALUE '164'. DTSBX440 00106 05 FILLER PIC X(01). DTSBX440 00107 05 AUDIT-QTR-EMP PIC 9(06). DTSBX440 00108 05 AUDIT-QTR-REC-FILLER PIC X(246). DTSBX440 00109 DTSBX440 00110 DTSBX440 00111 WORKING-STORAGE SECTION. DTSBX440 001115 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX440 08/07/12'. DTSBX440 00112 SKIP3 DTSBX440 00113 01 W-AREA. DTSBX440 00114 05 W-ABEND-CD PIC S9(04) COMP VALUE +440.DTSBX440 00115 05 W-MOD-NAME PIC X(08) VALUE 'DTSBX440'.DTSBX440 00116 DTSBX440 00117 05 WEB-AUD-STATUS PIC X(02). DTSBX440 00118 88 WEB-AUD-STATUS-OK-88 VALUE '00'. DTSBX440 00119 88 WEB-AUD-STATUS-EOF-88 VALUE '10'. DTSBX440 00120 DTSBX440 00121 DTSBX440 00122 05 ABEND-MSG PIC X(60). DTSBX440 00123 DTSBX440 00124 05 AUDIT-STATUS PIC X(02). DTSBX440 00125 88 WEB-STATUS-OK-88 VALUE '00'. DTSBX440 00126 88 WEB-STATUS-EOF-88 VALUE '10'. DTSBX440 00127 DTSBX440 00128 05 MAUR-STATUS PIC X(01). DTSBX440 00129 88 MAUR-REC-FOUND-88 VALUE '0'. DTSBX440 00130 88 MAUR-REC-NOT-FOUND-88 VALUE '1'. DTSBX440 00131 DTSBX440 00132 05 MAUY-STATUS PIC X(01). DTSBX440 00133 88 MAUY-REC-FOUND-88 VALUE '0'. DTSBX440 00134 88 MAUY-REC-NOT-FOUND-88 VALUE '1'. DTSBX440 00135 DTSBX440 00136 05 W-INTEGER PIC S9(11) COMP-3. DTSBX440 00137 05 W-FRACTION PIC SV9(11) COMP-3. DTSBX440 00138 05 W-NUMBER PIC S9(11)V9(05) COMP-3. DTSBX440 00139 05 WRK-AUDIT-HRS PIC S9(04)V9(01) COMP-3. DTSBX440 00140 DTSBX440 00141 05 W-ERROR-IND PIC X(01) VALUE 'N'. DTSBX440 00142 88 W-ERROR-YES-88 VALUE 'Y'. DTSBX440 00143 88 W-ERROR-NO-88 VALUE 'N'. DTSBX440 00144 DTSBX440 00145 05 W-AUDIT-START-DT PIC S9(09) COMP-3 DTSBX440 00146 VALUE 20071001. DTSBX440 00147 05 W-START-DT PIC S9(09) COMP-3. DTSBX440 00148 05 W-DEFAULT-DATE PIC X(10) DTSBX440 00149 VALUE '01/01/1994'. DTSBX440 00150 DTSBX440 00151 05 T040-ERROR-SW PIC 9(01) VALUE 0. DTSBX440 00152 05 WRK-ERR-TYPE OCCURS 5 TIMES PIC 9(02). DTSBX440 00153 DTSBX440 00154 05 W-SLASH-DATE PIC X(10). DTSBX440 00155 05 FILLER REDEFINES W-SLASH-DATE. DTSBX440 00156 10 W-SLASH-DT-MM PIC X(02). DTSBX440 00157 10 FILLER PIC X(01). DTSBX440 00158 10 W-SLASH-DT-DD PIC X(02). DTSBX440 00159 10 FILLER PIC X(01). DTSBX440 00160 10 W-SLASH-DT-CCYY PIC X(04). DTSBX440 00161 DTSBX440 00162 05 WRK-FLD-REP-ID PIC X(02) VALUE SPACES. DTSBX440 00163 05 WRK-ERROR-TYPE PIC X(02). DTSBX440 00164 05 WRK-SLASH-YRQ PIC X(06). DTSBX440 00165 05 FILLER REDEFINES WRK-SLASH-YRQ. DTSBX440 00166 10 WRK-SLASH-YRQ-YR PIC X(04). DTSBX440 00167 10 FILLER PIC X(01). DTSBX440 00168 10 WRK-SLASH-YRQ-QTR PIC X(01). DTSBX440 00169 DTSBX440 00170 05 WRK-YRQ. DTSBX440 00171 10 WRK-YRQ-YR PIC 9(04). DTSBX440 00172 10 WRK-YRQ-QTR PIC 9(01). DTSBX440 00173 DTSBX440 00174 05 W-WRK-YRQ PIC S9(5) COMP-3. DTSBX440 00175 DTSBX440 00176 05 SUB PIC S9(04) COMP. DTSBX440 00177 05 WRK-SUB PIC 9(04). DTSBX440 00178 05 W-SUB PIC 9(04). DTSBX440 00179 05 AUDIT-CNT-SUB PIC S9(04) COMP. DTSBX440 00180 DTSBX440 00181 05 WRK-CAL-YEAR PIC 9(04). DTSBX440 00182 DTSBX440 00183 05 W-QTR-3-AREA. DTSBX440 00184 10 W-QTR-3-YY PIC X(02). DTSBX440 00185 10 FILLER PIC X(01). DTSBX440 00186 10 W-QTR-3-Q PIC X(01). DTSBX440 00187 DTSBX440 00188 05 ALL-NINES-DT PIC S9(09) COMP-3 DTSBX440 00189 VALUE +999999999. DTSBX440 00190 05 ALL-NINES-DT-DISP PIC X(10) VALUE '12/31/9999'. DTSBX440 00191 05 ALL-NINES-QTR PIC S9(05) COMP-3 DTSBX440 00192 VALUE +99999. DTSBX440 00193 05 ALL-NINES-QTR-DISP PIC X(06) VALUE '9999/9'. DTSBX440 00194 DTSBX440 00195 05 W-COMP-DATE PIC S9(09) COMP-3. DTSBX440 00196 05 W-PROCESS-DATE PIC S9(09) COMP-3. DTSBX440 00197 05 W-CHNG-DATE PIC S9(09)V99 COMP-3. DTSBX440 00198 DTSBX440 00199 05 WRK-EMPE-CNT PIC S9(05) COMP-3 VALUE 0. DTSBX440 00200 05 WRK-EMPL-CNT PIC S9(05) COMP-3 VALUE 0. DTSBX440 00201 DTSBX440 00202 05 WRK-QTR-GROSS-PAYROLL PIC S9(11)V99 COMP-3. DTSBX440 00203 05 WRK-QTR-UNDER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSBX440 00204 05 WRK-QTR-UNDER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSBX440 00205 05 WRK-QTR-UNDER-CONTRIB PIC S9(11)V99 COMP-3. DTSBX440 00206 05 WRK-QTR-OVER-TOT-WAGE PIC S9(11)V99 COMP-3. DTSBX440 00207 05 WRK-QTR-OVER-TAX-WAGE PIC S9(11)V99 COMP-3. DTSBX440 00208 05 WRK-QTR-OVER-CONTRIB PIC S9(11)V99 COMP-3. DTSBX440 00209 DTSBX440 00210 05 WRK-OP-ID PIC X(08) VALUE SPACES. DTSBX440 00211 05 W-MONEY-AMT-X PIC X(12). DTSBX440 00212 05 W-MONEY-AMT-9 REDEFINES W-MONEY-AMT-X DTSBX440 00213 PIC 9(09).99. DTSBX440 00214 05 W-MONEY-AMT PIC S9(09)V99 VALUE 0. DTSBX440 00215 DTSBX440 00216 05 W-AUDIT-HRS PIC S9(04)V9 COMP-3. DTSBX440 00217 05 WRK-QTR-AUDITED-CNT PIC S9(03) COMP-3. DTSBX440 00218 DTSBX440 00219 05 WRK-COLLECT-AMT PIC S9(09)V99 COMP-3. DTSBX440 00220 05 WRK-DUE-AMT PIC S9(09)V99 COMP-3. DTSBX440 00221 05 WRK-CONTRIB-AMT PIC S9(09)V99 COMP-3. DTSBX440 00222 05 WRK-MONEY-AMT PIC S9(11)V99 COMP-3. DTSBX440 00223 DTSBX440 00224 05 W-WEB-IMP-CNT PIC 9(08) VALUE ZEROS. DTSBX440 00225 05 W-T040-MFAS-CNT PIC 9(08) VALUE ZEROS. DTSBX440 00226 05 W-T040-MAUY-CNT PIC 9(08) VALUE ZEROS. DTSBX440 00227 05 W-T040-MAUR-CNT PIC 9(08) VALUE ZEROS. DTSBX440 00228 05 WRK-ASSIGN-NO PIC 9(09). DTSBX440 00229 05 FILLER REDEFINES WRK-ASSIGN-NO. DTSBX440 00230 10 WRK-ASSIGN-CC PIC 9(02). DTSBX440 00231 10 WRK-ASSIGN-YY PIC 9(02). DTSBX440 00232 10 WRK-ASSIGN-NBR PIC 9(05). DTSBX440 00233 05 WRK-FLD-ASSIGN. DTSBX440 00234 10 WRK-FLD-ASSIGN-YEAR PIC 9(02). DTSBX440 00235 10 FILLER PIC X(01) VALUE SPACE. DTSBX440 00236 10 WRK-FLD-ASSIGN-NBR PIC 9(05). DTSBX440 00237 DTSBX440 00238 05 T040-UPD-MFAS PIC 9(02) VALUE ZEROS. DTSBX440 00239 05 T040-UPD-MAUR PIC 9(02) VALUE ZEROS. DTSBX440 00240 05 T040-UPD-MAUY PIC 9(02) VALUE ZEROS. DTSBX440 00241 05 W-ERROR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440 00242 05 W-QCOLL-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440 00243 05 W-AUDIT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440 00244 05 W-ACTIVE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX440 00245 DTSBX440 00246 05 DISPLAY-AMT1-X PIC X(14). DTSBX440 00247 05 DISPLAY-AMT1 REDEFINES DISPLAY-AMT1-X DTSBX440 00248 PIC ---,---,--9.99. DTSBX440 00249 05 DISPLAY-AMT2-X PIC X(14). DTSBX440 00250 05 DISPLAY-AMT2 REDEFINES DISPLAY-AMT2-X DTSBX440 00251 PIC ---,---,--9.99. DTSBX440 00252 05 DISPLAY-AMT3-X PIC X(14). DTSBX440 00253 05 DISPLAY-AMT3 REDEFINES DISPLAY-AMT3-X DTSBX440 00254 PIC ---,---,--9.99. DTSBX440 00255 05 DISPLAY-AMT4-X PIC X(14). DTSBX440 00256 05 DISPLAY-AMT4 REDEFINES DISPLAY-AMT4-X DTSBX440 00257 PIC ---,---,--9.99. DTSBX440 00258 EJECT DTSBX440 00259 01 L001-LINK-AREA. DTSBX440 00260 ++INCLUDE DTSIL001 DTSBX440 00261 EJECT DTSBX440 00262 01 L004-LINK-AREA. DTSBX440 00263 ++INCLUDE DTSIL004 DTSBX440 00264 EJECT DTSBX440 00265 01 L005-LINK-AREA. DTSBX440 00266 ++INCLUDE DTSIL005 DTSBX440 00267 DTSBX440 00268 01 T040-LINK-AREA. DTSBX440 00269 ++INCLUDE DTSIT040 DTSBX440 00270 DTSBX440 00271 01 L036-LINK-AREA. DTSBX440 00272 ++INCLUDE DTSIL036 DTSBX440 00273 DTSBX440 00274 01 L062-LINK-AREA. DTSBX440 00275 ++INCLUDE DTSIL062 DTSBX440 00276 DTSBX440 00277 01 R140-REC. DTSBX440 00278 ++INCLUDE DTSIR140 DTSBX440 00279 DTSBX440 00280 01 L205-LINK-AREA. DTSBX440 00281 ++INCLUDE DTSIL205 DTSBX440 00282 DTSBX440 00283 01 L910-LINK-AREA. DTSBX440 00284 ++INCLUDE DTSIL910 DTSBX440 00285 SKIP3 DTSBX440 00286 01 L927-LINK-AREA. DTSBX440 00287 ++INCLUDE DTSIL927 DTSBX440 00288 SKIP3 DTSBX440 00289 01 MSKL-REC. DTSBX440 00290 ++INCLUDE DTSIMSKL DTSBX440 00291 SKIP3 DTSBX440 00292 01 TSKL-REC. DTSBX440 00293 ++INCLUDE DTSITSKL DTSBX440 00294 SKIP3 DTSBX440 00295 01 MHDR-REC. DTSBX440 00296 ++INCLUDE DTSIMHDR DTSBX440 00297 SKIP3 DTSBX440 00298 01 X163-REC. DTSBX440 00299 ++INCLUDE DTSIX163 DTSBX440 00300 SKIP3 DTSBX440 00301 01 X164-REC. DTSBX440 00302 ++INCLUDE DTSIX164 DTSBX440 00303 SKIP3 DTSBX440 00304 01 MAUY-REC. DTSBX440 00305 ++INCLUDE DTSIMAUY DTSBX440 00306 SKIP3 DTSBX440 00307 01 MFAS-REC. DTSBX440 00308 ++INCLUDE DTSIMFAS DTSBX440 00309 SKIP3 DTSBX440 00310 01 MAUR-REC. DTSBX440 00311 ++INCLUDE DTSIMAUR DTSBX440 00312 SKIP3 DTSBX440 00313 01 L921-LINK-AREA. DTSBX440 00314 ++INCLUDE DTSIL921 DTSBX440 00315 SKIP3 DTSBX440 00316 01 ISKL-REC. DTSBX440 00317 ++INCLUDE DTSIISKL DTSBX440 00318 SKIP3 DTSBX440 00319 01 IEIN-REC. DTSBX440 00320 ++INCLUDE DTSIIEIN DTSBX440 00321 DTSBX440 00322 01 L931-LINK-AREA. DTSBX440 00323 ++INCLUDE DTSIL931 DTSBX440 00324 SKIP3 DTSBX440 00325 01 FSKL-REC. DTSBX440 00326 ++INCLUDE DTSIFSKL DTSBX440 00327 SKIP3 DTSBX440 00328 01 FQTR-REC. DTSBX440 00329 ++INCLUDE DTSIFQTR DTSBX440 00330 DTSBX440 00331 LINKAGE SECTION. DTSBX440 00332 DTSBX440 00333 DTSBX440 00334 01 MPRF-REC. DTSBX440 00335 ++INCLUDE DTSIMPRF DTSBX440 00336 EJECT DTSBX440 00337 PROCEDURE DIVISION. DTSBX440 00338 DTSBX440 00339 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBX440 00340 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX440 00341 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX440 00342 DTSBX440 00343 GOBACK. DTSBX440 00344 DTSBX440 00345 I0000-INITIALIZE. DTSBX440 00346 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBX440 00347 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX440 00348 MOVE ZEROS TO W-SUB. DTSBX440 00349 MOVE LENGTH OF R140-REC TO R140-LENGTH. DTSBX440 00350 I0000-EXIT. DTSBX440 00351 EXIT. DTSBX440 00352 DTSBX440 00353 DTSBX440 00354 I2000-OPEN-FILES. DTSBX440 00355 DTSBX440 00356 OPEN INPUT WEB-AUD-FILE. DTSBX440 00357 IF NOT WEB-STATUS-OK-88 DTSBX440 00358 DISPLAY 'AUDIT FILE OPEN ERROR: ' AUDIT-STATUS DTSBX440 00359 MOVE 'FILE OPEN ERROR' DTSBX440 00360 TO ABEND-MSG DTSBX440 00361 PERFORM S999-ABEND THRU S999-EXIT DTSBX440 00362 END-IF. DTSBX440 00363 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX440 00364 DTSBX440 00365 MOVE 'N' TO L927-TRACE-IND. DTSBX440 00366 MOVE W-MOD-NAME TO L927-MOD-NAME. DTSBX440 00367 PERFORM S927A-OPEN THRU S927A-EXIT. DTSBX440 00368 DTSBX440 00369 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBX440 00370 DTSBX440 00371 I2000-EXIT. DTSBX440 00372 EXIT. DTSBX440 00373 DTSBX440 00374 P0000-PROCESS. DTSBX440 00375 DTSBX440 00376 PERFORM P2000-AUDITS THRU P2000-EXIT. DTSBX440 00377 DTSBX440 00378 P0000-EXIT. DTSBX440 00379 EXIT. DTSBX440 00380 DTSBX440 00381 P2000-AUDITS. DTSBX440 00382 MOVE 0 TO T040-UPD-MFAS DTSBX440 00383 T040-UPD-MAUR. DTSBX440 00384 * T040-UPD-MAUY. DTSBX440 00385 DTSBX440 00386 PERFORM S1000-READ-WEB-IMP THRU S1000-EXIT. DTSBX440 00387 IF WEB-AUD-STATUS-EOF-88 DTSBX440 00388 GO TO P2000-EXIT. DTSBX440 00389 DTSBX440 00390 ADD 1 TO W-WEB-IMP-CNT. DTSBX440 00391 DTSBX440 00392 IF W-WEB-IMP-CNT = 1 AND NOT DTSBX440 00393 REC-TYPE-AUDIT-163-88 DTSBX440 00394 DISPLAY ' 1ST RECORD NOT TYPE 163... ABENDING' DTSBX440 00395 GO TO S999-ABEND. DTSBX440 00396 DTSBX440 00397 IF REC-TYPE-AUDIT-163-88 DTSBX440 00398 MOVE 0 TO W-SUB DTSBX440 00399 PERFORM P2100-PARSE-AUDITS THRU P2100-EXIT DTSBX440 00400 PERFORM P3000-AUDIT-MFAS THRU P3000-EXIT DTSBX440 00401 PERFORM P4000-AUDIT-MAUR THRU P4000-EXIT DTSBX440 00402 GO TO P2000-AUDITS. DTSBX440 00403 DTSBX440 00404 IF REC-TYPE-AUDIT-164-88 AND W-SUB = 0 DTSBX440 00405 PERFORM P2100-PARSE-AUDITS THRU P2100-EXIT DTSBX440 00406 PERFORM P4500-AUDIT-MAUY THRU P4500-AUDIT-MAUY-EXIT DTSBX440 00407 PERFORM P5000-QUARTER THRU P5000-EXIT DTSBX440 00408 GO TO P2000-AUDITS DTSBX440 00409 ELSE DTSBX440 00410 IF REC-TYPE-AUDIT-164-88 DTSBX440 00411 ADD 1 TO W-SUB DTSBX440 00412 PERFORM P2100-PARSE-AUDITS THRU P2100-EXIT DTSBX440 00413 PERFORM P5000-QUARTER THRU P5000-EXIT DTSBX440 00414 GO TO P2000-AUDITS. DTSBX440 00415 DTSBX440 00416 GO TO P2000-AUDITS. DTSBX440 00417 DTSBX440 00418 P2000-EXIT. DTSBX440 00419 EXIT. DTSBX440 00420 DTSBX440 00421 P2100-PARSE-AUDITS. DTSBX440 00422 PERFORM DTSBX440 00423 VARYING SUB FROM +1 BY +1 DTSBX440 00424 UNTIL SUB > +100 DTSBX440 00425 MOVE +0 TO L205-FIELD-LENGTH (SUB) DTSBX440 00426 L205-INTEGER (SUB) DTSBX440 00427 L205-FRACTION (SUB) DTSBX440 00428 MOVE SPACES TO L205-TEXT (SUB) DTSBX440 00429 L205-DATE (SUB) DTSBX440 00430 SET L205-TYPE-TEXT-88 (SUB) TO TRUE DTSBX440 00431 END-PERFORM. DTSBX440 00432 DTSBX440 00433 IF REC-TYPE-AUDIT-163-88 DTSBX440 00434 PERFORM P2200-AUDIT-X163 THRU P2200-EXIT DTSBX440 00435 ELSE DTSBX440 00436 IF REC-TYPE-AUDIT-164-88 DTSBX440 00437 PERFORM P2300-AUDIT-X164 THRU P2300-EXIT DTSBX440 00438 ELSE DTSBX440 00439 DISPLAY ' INVALID RECORD TYPE.....' DTSBX440 00440 END-IF. DTSBX440 00441 DTSBX440 00442 DTSBX440 00443 P2100-EXIT. DTSBX440 00444 EXIT. DTSBX440 00445 DTSBX440 00446 P2200-AUDIT-X163. DTSBX440 00447 INITIALIZE X163-REC DTSBX440 00448 MOVE +23 TO L205-LAST-FIELD DTSBX440 00449 MOVE +5 TO L205-LAST-FIELD-LEN DTSBX440 00450 DTSBX440 00451 **** RECORD TYPE DTSBX440 00452 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX440 00453 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX440 00454 DTSBX440 00455 **** EMPLOYER NUMBER DTSBX440 00456 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX440 00457 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX440 00458 DTSBX440 00459 **** ASSIGN NO DTSBX440 00460 MOVE +8 TO L205-FIELD-LENGTH (3). DTSBX440 00461 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX440 00462 DTSBX440 00463 **** COMPLETED DATE DTSBX440 00464 MOVE +10 TO L205-FIELD-LENGTH (4). DTSBX440 00465 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX440 00466 DTSBX440 00467 **** PROCESSED DATE DTSBX440 00468 MOVE +10 TO L205-FIELD-LENGTH (5). DTSBX440 00469 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX440 00470 DTSBX440 00471 **** FLD REP ID DTSBX440 00472 MOVE +2 TO L205-FIELD-LENGTH (6). DTSBX440 00473 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX440 00474 DTSBX440 00475 **** FIRST YRQ DTSBX440 00476 MOVE +6 TO L205-FIELD-LENGTH (7). DTSBX440 00477 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX440 00478 DTSBX440 00479 **** LAST YRQ DTSBX440 00480 MOVE +6 TO L205-FIELD-LENGTH (8). DTSBX440 00481 SET L205-TYPE-TEXT-88 (8) TO TRUE. DTSBX440 00482 DTSBX440 00483 **** QTR AUDITED CNT DTSBX440 00484 MOVE +3 TO L205-FIELD-LENGTH (9). DTSBX440 00485 SET L205-TYPE-NUMBER-88 (9) TO TRUE. DTSBX440 00486 DTSBX440 00487 **** EMP SIZE DTSBX440 00488 MOVE +1 TO L205-FIELD-LENGTH (10). DTSBX440 00489 SET L205-TYPE-TEXT-88 (10) TO TRUE. DTSBX440 00490 DTSBX440 00491 **** ERR TYPE 1 DTSBX440 00492 MOVE +2 TO L205-FIELD-LENGTH (11). DTSBX440 00493 SET L205-TYPE-TEXT-88 (11) TO TRUE. DTSBX440 00494 DTSBX440 00495 **** ERR TYPE 2 DTSBX440 00496 MOVE +2 TO L205-FIELD-LENGTH (12). DTSBX440 00497 SET L205-TYPE-TEXT-88 (12) TO TRUE. DTSBX440 00498 DTSBX440 00499 **** ERR TYPE 3 DTSBX440 00500 MOVE +2 TO L205-FIELD-LENGTH (13). DTSBX440 00501 SET L205-TYPE-TEXT-88 (13) TO TRUE. DTSBX440 00502 DTSBX440 00503 **** ERR TYPE 4 DTSBX440 00504 MOVE +2 TO L205-FIELD-LENGTH (14). DTSBX440 00505 SET L205-TYPE-TEXT-88 (14) TO TRUE. DTSBX440 00506 DTSBX440 00507 **** ERR TYPE 5 DTSBX440 00508 MOVE +2 TO L205-FIELD-LENGTH (15). DTSBX440 00509 SET L205-TYPE-TEXT-88 (15) TO TRUE. DTSBX440 00510 DTSBX440 00511 **** MONEY DUE DTSBX440 00512 MOVE +12 TO L205-FIELD-LENGTH (16). DTSBX440 00513 SET L205-TYPE-NUMBER-88 (16) TO TRUE. DTSBX440 00514 DTSBX440 00515 **** MONEY COLLECT DTSBX440 00516 MOVE +12 TO L205-FIELD-LENGTH (17). DTSBX440 00517 SET L205-TYPE-NUMBER-88 (17) TO TRUE. DTSBX440 00518 DTSBX440 00519 **** MONEY REASON CD DTSBX440 00520 MOVE +1 TO L205-FIELD-LENGTH (18). DTSBX440 00521 SET L205-TYPE-TEXT-88 (18) TO TRUE. DTSBX440 00522 DTSBX440 00523 **** PEN WAIVE IND DTSBX440 00524 MOVE +1 TO L205-FIELD-LENGTH (19). DTSBX440 00525 SET L205-TYPE-TEXT-88 (19) TO TRUE. DTSBX440 00526 DTSBX440 00527 **** INT WAIVE IND DTSBX440 00528 MOVE +1 TO L205-FIELD-LENGTH (20). DTSBX440 00529 SET L205-TYPE-TEXT-88 (20) TO TRUE. DTSBX440 00530 DTSBX440 00531 **** AUDIT HRS DTSBX440 00532 MOVE +12 TO L205-FIELD-LENGTH (21). DTSBX440 00533 SET L205-TYPE-NUMBER-88 (21) TO TRUE. DTSBX440 00534 DTSBX440 00535 **** NEW EMPLOYE CNT DTSBX440 00536 MOVE +12 TO L205-FIELD-LENGTH (22). DTSBX440 00537 SET L205-TYPE-NUMBER-88 (22) TO TRUE. DTSBX440 00538 DTSBX440 00539 **** IND EMPLOYR CNT DTSBX440 00540 MOVE +12 TO L205-FIELD-LENGTH (23). DTSBX440 00541 SET L205-TYPE-NUMBER-88 (23) TO TRUE. DTSBX440 00542 DTSBX440 00543 MOVE AUDIT-REC TO L205-INPUT-DATA. DTSBX440 00544 CALL 'DTSBU205' USING L205-LINK-AREA. DTSBX440 00545 DTSBX440 00546 MOVE L205-TEXT (1) (1:03) TO X163-REC-TYPE. DTSBX440 00547 DTSBX440 00548 MOVE L205-TEXT (2) (1:06) TO X163-EMP-NO. DTSBX440 00549 DTSBX440 00550 MOVE L205-TEXT (3) (1:8) TO X163-ASSIGN-NO. DTSBX440 00551 DTSBX440 00552 MOVE L205-TEXT (4) (1:10) TO X163-COMPLETED-DT. DTSBX440 00553 DTSBX440 00554 MOVE L205-TEXT (5) (1:10) TO X163-PROCESSED-DT. DTSBX440 00555 DTSBX440 00556 MOVE L205-TEXT (6) (1:02) TO WRK-FLD-REP-ID. DTSBX440 00557 DISPLAY 'WRK-FLD REP ID ' WRK-FLD-REP-ID. DTSBX440 00558 MOVE WRK-FLD-REP-ID TO X163-FLD-REP-ID. DTSBX440 00559 DISPLAY 'X163-FLD REP ID ' X163-FLD-REP-ID. DTSBX440 00560 DTSBX440 00561 MOVE L205-TEXT (7) (1:06) TO X163-FIRST-YRQ. DTSBX440 00562 DTSBX440 00563 MOVE L205-TEXT (8) (1:06) TO X163-LAST-YRQ. DTSBX440 00564 DTSBX440 00565 MOVE L205-INTEGER (9) TO W-INTEGER. DTSBX440 00566 MOVE W-INTEGER TO X163-QTRS-AUDITED-CNT. DTSBX440 00567 DTSBX440 00568 DISPLAY '205 EMP SIZE ' L205-TEXT (10) (1:01) DTSBX440 00569 MOVE L205-TEXT (10) (1:01) TO X163-EMP-SIZE-IND. DTSBX440 00570 DISPLAY 'X163 EMP SIZE ' X163-EMP-SIZE-IND. DTSBX440 00571 DTSBX440 00572 MOVE L205-TEXT (11) (1:02) TO X163-ERR-TYPE1. DTSBX440 00573 DTSBX440 00574 MOVE L205-TEXT (12) (1:02) TO X163-ERR-TYPE2. DTSBX440 00575 DTSBX440 00576 MOVE L205-TEXT (13) (1:02) TO X163-ERR-TYPE3. DTSBX440 00577 DTSBX440 00578 MOVE L205-TEXT (14) (1:02) TO X163-ERR-TYPE4. DTSBX440 00579 DTSBX440 00580 MOVE L205-TEXT (15) (1:02) TO X163-ERR-TYPE5. DTSBX440 00581 DTSBX440 00582 MOVE L205-INTEGER (16) TO W-INTEGER. DTSBX440 00583 MOVE L205-FRACTION (16) TO W-FRACTION. DTSBX440 00584 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00585 MOVE W-NUMBER TO X163-MONEY-DUE-AMT. DTSBX440 00586 DTSBX440 00587 MOVE L205-INTEGER (17) TO W-INTEGER. DTSBX440 00588 MOVE L205-FRACTION (17) TO W-FRACTION. DTSBX440 00589 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00590 MOVE W-NUMBER TO X163-MONEY-COLLECT-AMT. DTSBX440 00591 DTSBX440 00592 MOVE L205-TEXT (18) (1:01) TO X163-MONEY-REASON-CD. DTSBX440 00593 DTSBX440 00594 MOVE L205-TEXT (19) (1:01) TO X163-PEN-WAIVE-IND. DTSBX440 00595 DTSBX440 00596 MOVE L205-TEXT (20) (1:01) TO X163-INT-WAIVE-IND. DTSBX440 00597 DTSBX440 00598 MOVE L205-INTEGER (21) TO W-INTEGER. DTSBX440 00599 MOVE L205-FRACTION (21) TO W-FRACTION. DTSBX440 00600 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00601 MOVE W-NUMBER TO X163-AUDIT-HRS. DTSBX440 00602 DTSBX440 00603 MOVE L205-INTEGER (22) TO W-INTEGER. DTSBX440 00604 MOVE W-INTEGER TO X163-NEW-EMPLOYEE-CNT. DTSBX440 00605 DTSBX440 00606 MOVE L205-INTEGER (23) TO W-INTEGER. DTSBX440 00607 MOVE W-INTEGER TO X163-INDCON-TO-EMPL-CNT. DTSBX440 00608 DTSBX440 00609 P2200-EXIT. DTSBX440 00610 EXIT. DTSBX440 00611 DTSBX440 00612 P2300-AUDIT-X164. DTSBX440 00613 INITIALIZE X164-REC DTSBX440 00614 MOVE +12 TO L205-LAST-FIELD DTSBX440 00615 MOVE +12 TO L205-LAST-FIELD-LEN DTSBX440 00616 DTSBX440 00617 **** RECORD TYPE DTSBX440 00618 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX440 00619 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX440 00620 DTSBX440 00621 **** EMPLOYER NUMBER DTSBX440 00622 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX440 00623 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX440 00624 DTSBX440 00625 **** ASSIGN NO DTSBX440 00626 MOVE +8 TO L205-FIELD-LENGTH (3). DTSBX440 00627 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX440 00628 DTSBX440 00629 **** QUARTER DTSBX440 00630 MOVE +6 TO L205-FIELD-LENGTH (4). DTSBX440 00631 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX440 00632 DTSBX440 00633 **** QTR-AUDITED-IND DTSBX440 00634 MOVE +1 TO L205-FIELD-LENGTH (5). DTSBX440 00635 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX440 00636 DTSBX440 00637 **** QTR GROSS PAYROLL DTSBX440 00638 MOVE +12 TO L205-FIELD-LENGTH (6). DTSBX440 00639 SET L205-TYPE-NUMBER-88 (6) TO TRUE. DTSBX440 00640 DTSBX440 00641 **** QTR UNDER TOT WAGE DTSBX440 00642 MOVE +12 TO L205-FIELD-LENGTH (7). DTSBX440 00643 SET L205-TYPE-NUMBER-88 (7) TO TRUE. DTSBX440 00644 DTSBX440 00645 **** QTR UNDER TAX WAGE DTSBX440 00646 MOVE +12 TO L205-FIELD-LENGTH (8). DTSBX440 00647 SET L205-TYPE-NUMBER-88 (8) TO TRUE. DTSBX440 00648 DTSBX440 00649 **** QTR UNDER CONTRIB DTSBX440 00650 MOVE +12 TO L205-FIELD-LENGTH (9). DTSBX440 00651 SET L205-TYPE-NUMBER-88 (9) TO TRUE. DTSBX440 00652 DTSBX440 00653 **** QTR OVER TOT WAGE DTSBX440 00654 MOVE +12 TO L205-FIELD-LENGTH (10). DTSBX440 00655 SET L205-TYPE-NUMBER-88 (10) TO TRUE. DTSBX440 00656 DTSBX440 00657 **** QTR OVER TAX WAGE DTSBX440 00658 MOVE +12 TO L205-FIELD-LENGTH (11). DTSBX440 00659 SET L205-TYPE-NUMBER-88 (11) TO TRUE. DTSBX440 00660 DTSBX440 00661 **** QTR OVER CONTRIB DTSBX440 00662 MOVE +12 TO L205-FIELD-LENGTH (12). DTSBX440 00663 SET L205-TYPE-NUMBER-88 (12) TO TRUE. DTSBX440 00664 DTSBX440 00665 MOVE AUDIT-REC TO L205-INPUT-DATA. DTSBX440 00666 CALL 'DTSBU205' USING L205-LINK-AREA. DTSBX440 00667 DTSBX440 00668 MOVE L205-TEXT (1) (1:03) TO X164-REC-TYPE. DTSBX440 00669 DTSBX440 00670 MOVE L205-TEXT (2) (1:06) TO X164-EMP-NO. DTSBX440 00671 DTSBX440 00672 MOVE L205-TEXT (3) (1:08) TO X164-ASSIGN-NO. DTSBX440 00673 DTSBX440 00674 MOVE L205-TEXT (4) (1:6) TO X164-QUARTER. DTSBX440 00675 DTSBX440 00676 MOVE L205-TEXT (5) (1:1) TO X164-QTR-AUDITED-IND. DTSBX440 00677 DTSBX440 00678 MOVE L205-INTEGER (6) TO W-INTEGER. DTSBX440 00679 MOVE L205-FRACTION (6) TO W-FRACTION. DTSBX440 00680 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00681 MOVE W-NUMBER TO X164-QTR-GROSS-PAYROLL. DTSBX440 00682 DTSBX440 00683 MOVE L205-INTEGER (7) TO W-INTEGER. DTSBX440 00684 MOVE L205-FRACTION (7) TO W-FRACTION. DTSBX440 00685 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00686 MOVE W-NUMBER TO X164-QTR-UNDER-TOT-WAGE. DTSBX440 00687 DTSBX440 00688 MOVE L205-INTEGER (8) TO W-INTEGER. DTSBX440 00689 MOVE L205-FRACTION (8) TO W-FRACTION. DTSBX440 00690 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00691 MOVE W-NUMBER TO X164-QTR-UNDER-TAX-WAGE. DTSBX440 00692 DTSBX440 00693 MOVE L205-INTEGER (9) TO W-INTEGER. DTSBX440 00694 MOVE L205-FRACTION (9) TO W-FRACTION. DTSBX440 00695 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00696 MOVE W-NUMBER TO X164-QTR-UNDER-CONTRIB. DTSBX440 00697 DTSBX440 00698 MOVE L205-INTEGER (10) TO W-INTEGER. DTSBX440 00699 MOVE L205-FRACTION (10) TO W-FRACTION. DTSBX440 00700 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00701 MOVE W-NUMBER TO X164-QTR-OVER-TOT-WAGE. DTSBX440 00702 DTSBX440 00703 MOVE L205-INTEGER (11) TO W-INTEGER. DTSBX440 00704 MOVE L205-FRACTION (11) TO W-FRACTION. DTSBX440 00705 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00706 MOVE W-NUMBER TO X164-QTR-OVER-TAX-WAGE. DTSBX440 00707 DTSBX440 00708 MOVE L205-INTEGER (12) TO W-INTEGER. DTSBX440 00709 MOVE L205-FRACTION (12) TO W-FRACTION. DTSBX440 00710 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX440 00711 MOVE W-NUMBER TO X164-QTR-OVER-CONTRIB. DTSBX440 00712 DTSBX440 00713 DTSBX440 00714 P2300-EXIT. DTSBX440 00715 EXIT. DTSBX440 00716 DTSBX440 00717 P3000-AUDIT-MFAS. DTSBX440 00718 MOVE 0 TO T040-UPD-MFAS DTSBX440 00719 T040-UPD-MAUR DTSBX440 00720 T040-UPD-MAUY. DTSBX440 00721 DTSBX440 00722 MOVE X163-ASSIGN-NO TO WRK-FLD-ASSIGN. DTSBX440 00723 MOVE WRK-FLD-ASSIGN-YEAR TO WRK-ASSIGN-YY DTSBX440 00724 MOVE 20 TO WRK-ASSIGN-CC DTSBX440 00725 MOVE WRK-FLD-ASSIGN-NBR TO WRK-ASSIGN-NBR DTSBX440 00726 DTSBX440 00727 MOVE LOW-VALUES TO MFAS-KEY-AREA. DTSBX440 00728 MOVE X163-EMP-NO TO MFAS-EMP-NO R140-EMP-NO. DTSBX440 00729 MOVE WRK-ASSIGN-NO TO MFAS-ASSIGN-NO. DTSBX440 00730 SET MFAS-FAS-88 TO TRUE. DTSBX440 00731 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA. DTSBX440 00732 DTSBX440 00733 DISPLAY 'NEW AUD-MFAS ' MFAS-EMP-NO DTSBX440 00734 DTSBX440 00735 PERFORM S910-READ THRU S910-EXIT DTSBX440 00736 IF L910-OK-88 DTSBX440 00737 MOVE MSKL-REC TO MFAS-REC DTSBX440 00738 ELSE DTSBX440 00739 DISPLAY ' MFAS REC NOT FOUND.ABENDING' X163-EMP-NO DTSBX440 00740 GO TO S999-ABEND. DTSBX440 00741 DTSBX440 00742 P3000-AUDIT-MFAS-COMP-DATE. DTSBX440 00743 MOVE ZEROS TO T040-COMPLETED-DATE. DTSBX440 00744 IF X163-COMPLETED-DT > SPACES DTSBX440 00745 NEXT SENTENCE DTSBX440 00746 ELSE DTSBX440 00747 GO TO P3000-AUDIT-MFAS-PROCESS-DATE. DTSBX440 00748 DTSBX440 00749 MOVE X163-COMPLETED-DT TO W-SLASH-DATE. DTSBX440 00750 MOVE W-SLASH-DT-MM TO L001-FED-8-MO. DTSBX440 00751 MOVE W-SLASH-DT-DD TO L001-FED-8-DA. DTSBX440 00752 MOVE W-SLASH-DT-CCYY TO L001-FED-8-YR. DTSBX440 00753 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX440 00754 IF NOT L001-VALID-DATE DTSBX440 00755 SET W-ERROR-YES-88 TO TRUE DTSBX440 00756 MOVE SPACES TO R140-MESSAGE DTSBX440 00757 MOVE X163-EMP-NO TO R140-EMP-NO DTSBX440 00758 MOVE 'X163 RECORD ' TO R140-RECORD-DESC DTSBX440 00759 STRING 'REPORT: INVALID X163 COMPL DATE ' DTSBX440 00760 X163-COMPLETED-DT DELIMITED BY SIZE DTSBX440 00761 INTO R140-MESSAGE DTSBX440 00762 END-STRING DTSBX440 00763 DISPLAY 'X163 RECORD ' R140-RECORD-DESC DTSBX440 00764 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 00765 MOVE 1 TO T040-ERROR-SW DTSBX440 00766 GO TO P3000-AUDIT-MFAS-PROCESS-DATE DTSBX440 00767 ELSE DTSBX440 00768 MOVE L001-FED-8-DATE-9 TO W-COMP-DATE DTSBX440 00769 END-IF. DTSBX440 00770 DTSBX440 00771 DISPLAY 'MCOMP ' MFAS-COMPLETED-DATE DTSBX440 00772 DISPLAY 'XCOMP ' W-COMP-DATE DTSBX440 00773 DTSBX440 00774 IF MFAS-COMPLETED-DATE NOT = W-COMP-DATE DTSBX440 00775 MOVE L001-FED-8-DATE-9 TO T040-COMPLETED-DATE DTSBX440 00776 DISPLAY 'XCOMP NOT EQ ' DTSBX440 00777 MOVE 1 TO T040-UPD-MFAS DTSBX440 00778 DISPLAY 'MFAS STAT CD ' MFAS-STATUS-CD DTSBX440 00779 IF MFAS-STATUS-CD NOT = 'C' DTSBX440 00780 MOVE 'C' TO T040-STATUS-CD DTSBX440 00781 MOVE 1 TO T040-UPD-MFAS. DTSBX440 00782 DTSBX440 00783 DTSBX440 00784 P3000-AUDIT-MFAS-PROCESS-DATE. DTSBX440 00785 MOVE ZEROS TO T040-PROCESSED-DATE. DTSBX440 00786 MOVE SPACES TO T040-STATUS-CD. DTSBX440 00787 IF X163-PROCESSED-DT > SPACES DTSBX440 00788 NEXT SENTENCE DTSBX440 00789 ELSE DTSBX440 00790 GO TO P3000-AUDIT-MFAS-FLD-REP-ID. DTSBX440 00791 DTSBX440 00792 MOVE X163-PROCESSED-DT TO W-SLASH-DATE. DTSBX440 00793 MOVE W-SLASH-DT-MM TO L001-FED-8-MO. DTSBX440 00794 MOVE W-SLASH-DT-DD TO L001-FED-8-DA. DTSBX440 00795 MOVE W-SLASH-DT-CCYY TO L001-FED-8-YR. DTSBX440 00796 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX440 00797 IF NOT L001-VALID-DATE DTSBX440 00798 SET W-ERROR-YES-88 TO TRUE DTSBX440 00799 MOVE SPACES TO R140-MESSAGE DTSBX440 00800 MOVE X163-EMP-NO TO R140-EMP-NO DTSBX440 00801 MOVE 'X163 RECORD ' TO R140-RECORD-DESC DTSBX440 00802 STRING 'REPORT: INVALID X163 PROCESS DT ' DTSBX440 00803 X163-PROCESSED-DT DELIMITED BY SIZE DTSBX440 00804 INTO R140-MESSAGE DTSBX440 00805 END-STRING DTSBX440 00806 DISPLAY 'X16X RECORD ' R140-RECORD-DESC DTSBX440 00807 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 00808 MOVE 1 TO T040-ERROR-SW DTSBX440 00809 GO TO P3000-AUDIT-MFAS-FLD-REP-ID DTSBX440 00810 ELSE DTSBX440 00811 MOVE L001-FED-8-DATE-9 TO W-PROCESS-DATE DTSBX440 00812 END-IF. DTSBX440 00813 DTSBX440 00814 DTSBX440 00815 DISPLAY 'MPROC ' MFAS-PROCESSED-DATE DTSBX440 00816 DISPLAY 'XPROC ' W-PROCESS-DATE DTSBX440 00817 DTSBX440 00818 IF MFAS-PROCESSED-DATE NOT = W-PROCESS-DATE DTSBX440 00819 MOVE L001-FED-8-DATE-9 TO T040-PROCESSED-DATE DTSBX440 00820 DISPLAY 'XPROC NOT EQ ' DTSBX440 00821 MOVE 1 TO T040-UPD-MFAS DTSBX440 00822 DISPLAY 'MFAS STAT CD ' MFAS-STATUS-CD DTSBX440 00823 IF MFAS-STATUS-CD NOT = 'P' DTSBX440 00824 MOVE 'P' TO T040-STATUS-CD DTSBX440 00825 MOVE 1 TO T040-UPD-MFAS. DTSBX440 00826 DTSBX440 00827 P3000-AUDIT-MFAS-FLD-REP-ID. DTSBX440 00828 MOVE ZEROS TO T040-FLD-REP-ID. DTSBX440 00829 MOVE SPACES TO T040-OP-ID. DTSBX440 00830 DISPLAY ' X163-FLD ' X163-FLD-REP-ID DTSBX440 00831 IF X163-FLD-REP-ID > ZEROS DTSBX440 00832 NEXT SENTENCE DTSBX440 00833 ELSE DTSBX440 00834 GO TO P3000-AUDIT-MFAS-EMP-SIZE. DTSBX440 00835 DTSBX440 00836 MOVE X163-FLD-REP-ID TO L062-FLD-REP-ID DTSBX440 00837 PERFORM S062-LOOKUP-FLD-REP THRU S062-EXIT DTSBX440 00838 DTSBX440 00839 IF L062-VALID DTSBX440 00840 NEXT SENTENCE DTSBX440 00841 ELSE DTSBX440 00842 MOVE 'X163 RECORD ' TO R140-RECORD-DESC DTSBX440 00843 STRING 'REPORT: INVALID X163 FLD REP ID ' DTSBX440 00844 X163-FLD-REP-ID DELIMITED BY SIZE DTSBX440 00845 INTO R140-MESSAGE DTSBX440 00846 END-STRING DTSBX440 00847 DISPLAY 'X16Y RECORD ' R140-RECORD-DESC DTSBX440 00848 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 00849 MOVE 1 TO T040-ERROR-SW DTSBX440 00850 GO TO P3000-AUDIT-MFAS-EMP-SIZE. DTSBX440 00851 DTSBX440 00852 DISPLAY ' XFLD ' X163-FLD-REP-ID DTSBX440 00853 DISPLAY ' MFLD ' MFAS-FLD-REP-ID DTSBX440 00854 DTSBX440 00855 IF X163-FLD-REP-ID NOT = MFAS-FLD-REP-ID DTSBX440 00856 MOVE X163-FLD-REP-ID TO T040-FLD-REP-ID DTSBX440 00857 MOVE L062-OP-ID TO T040-OP-ID WRK-OP-ID DTSBX440 00858 DISPLAY 'XFLDR NOT EQ ' DTSBX440 00859 MOVE 1 TO T040-UPD-MFAS. DTSBX440 00860 DTSBX440 00861 DISPLAY ' XPID ' L062-OP-ID DTSBX440 00862 DISPLAY ' MPID ' MFAS-SOURCE-OP-ID DTSBX440 00863 DTSBX440 00864 MOVE L062-OP-ID TO WRK-OP-ID DTSBX440 00865 DTSBX440 00866 IF L062-OP-ID NOT = MFAS-SOURCE-OP-ID DTSBX440 00867 MOVE L062-OP-ID TO T040-OP-ID DTSBX440 00868 DISPLAY 'XOPID NOT EQ ' DTSBX440 00869 MOVE 1 TO T040-UPD-MFAS. DTSBX440 00870 DTSBX440 00871 P3000-AUDIT-MFAS-EMP-SIZE. DTSBX440 00872 MOVE SPACES TO T040-EMP-SIZE-IND. DTSBX440 00873 IF X163-EMP-SIZE-IND = SPACES DTSBX440 00874 MOVE 'S' TO X163-EMP-SIZE-IND. DTSBX440 00875 DTSBX440 00876 DTSBX440 00877 MOVE X163-EMP-SIZE-IND TO L036-CD DTSBX440 00878 PERFORM S036-EMP-SIZE-IND THRU S036-EXIT DTSBX440 00879 DTSBX440 00880 IF L036-VALID DTSBX440 00881 NEXT SENTENCE DTSBX440 00882 ELSE DTSBX440 00883 STRING 'REPORT: INVALID X163 EMP SIZE ' DTSBX440 00884 X163-EMP-SIZE-IND DELIMITED BY SIZE DTSBX440 00885 INTO R140-MESSAGE DTSBX440 00886 END-STRING DTSBX440 00887 DISPLAY 'X16A RECORD ' R140-RECORD-DESC DTSBX440 00888 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 00889 MOVE 1 TO T040-ERROR-SW DTSBX440 00890 GO TO P3000-AUDIT-T040. DTSBX440 00891 DTSBX440 00892 DISPLAY 'XEMP ' X163-EMP-SIZE-IND DTSBX440 00893 DISPLAY 'MEMP ' MFAS-EMP-SIZE-IND DTSBX440 00894 DTSBX440 00895 IF X163-EMP-SIZE-IND NOT = MFAS-EMP-SIZE-IND DTSBX440 00896 MOVE X163-EMP-SIZE-IND TO T040-EMP-SIZE-IND DTSBX440 00897 DISPLAY 'XESIZ NOT EQ ' DTSBX440 00898 MOVE 1 TO T040-UPD-MFAS. DTSBX440 00899 DTSBX440 00900 P3000-AUDIT-T040. DTSBX440 00901 IF T040-UPD-MFAS = 0 DTSBX440 00902 DISPLAY ' NPUPD T040 MFAS ' T040-UPD-MFAS DTSBX440 00903 GO TO P3000-EXIT. DTSBX440 00904 DTSBX440 00905 DISPLAY ' WRITE T040 MFAS ' T040-UPD-MFAS. DTSBX440 00906 MOVE LENGTH OF T040-LINK-AREA TO T040-LENGTH DTSBX440 00907 MOVE '040' TO T040-REC-TYPE. DTSBX440 00908 DTSBX440 00909 MOVE X163-EMP-NO TO T040-EMP-NO. DTSBX440 00910 MOVE L005-DATE TO T040-SYS-DATE. DTSBX440 00911 MOVE L005-TIME TO T040-SYS-TIME. DTSBX440 00912 SET T040-MFAS-88 TO TRUE. DTSBX440 00913 MOVE WRK-ASSIGN-NO TO T040-ASSIGN-NO. DTSBX440 00914 MOVE ZEROS TO T040-FIRST-YRQ DTSBX440 00915 T040-LAST-YRQ DTSBX440 00916 T040-QTRS-AUDITED-CNT DTSBX440 00917 T040-ERR-TYPE(1) DTSBX440 00918 T040-ERR-TYPE(2) DTSBX440 00919 T040-ERR-TYPE(3) DTSBX440 00920 T040-ERR-TYPE(4) DTSBX440 00921 T040-ERR-TYPE(5) DTSBX440 00922 T040-MONEY-DUE-AMT DTSBX440 00923 T040-MONEY-COLLECT-AMT DTSBX440 00924 T040-AUDIT-HRS DTSBX440 00925 T040-NEW-EMPLOYEE-CNT DTSBX440 00926 T040-INDCON-TO-EMPL-CNT. DTSBX440 00927 MOVE SPACES TO T040-PEN-WAIVE-IND DTSBX440 00928 T040-INT-WAIVE-IND. DTSBX440 00929 DTSBX440 00930 MOVE T040-LINK-AREA TO TSKL-REC. DTSBX440 00931 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBX440 00932 ADD +1 TO W-T040-MFAS-CNT. DTSBX440 00933 DTSBX440 00934 P3000-EXIT. DTSBX440 00935 EXIT. DTSBX440 00936 DTSBX440 00937 P4000-AUDIT-MAUR. DTSBX440 00938 MOVE 0 TO T040-UPD-MAUR. DTSBX440 00939 MOVE LOW-VALUES TO MAUR-KEY-AREA. DTSBX440 00940 MOVE X163-EMP-NO TO MAUR-EMP-NO. DTSBX440 00941 SET MAUR-AUR-88 TO TRUE. DTSBX440 00942 MOVE WRK-ASSIGN-NO TO MAUR-ASSIGN-NO. DTSBX440 00943 MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA. DTSBX440 00944 PERFORM S910-READ THRU S910-EXIT. DTSBX440 00945 IF L910-NO-REC-88 DTSBX440 00946 DISPLAY ' MAUR NOT FOUND ' X163-EMP-NO DTSBX440 00947 SET MAUR-REC-NOT-FOUND-88 TO TRUE DTSBX440 00948 ELSE DTSBX440 00949 DISPLAY ' MAUR FOUND ' X163-EMP-NO DTSBX440 00950 MOVE MSKL-REC TO MAUR-REC DTSBX440 00951 SET MAUR-REC-FOUND-88 TO TRUE. DTSBX440 00952 DTSBX440 00953 P4000-FIRST-YRQ. DTSBX440 00954 MOVE ZEROS TO T040-FIRST-YRQ WRK-YRQ. DTSBX440 00955 IF X163-FIRST-YRQ = SPACES DTSBX440 00956 GO TO P4000-LAST-YRQ. DTSBX440 00957 DTSBX440 00958 MOVE X163-FIRST-YRQ TO WRK-SLASH-YRQ. DTSBX440 00959 MOVE WRK-SLASH-YRQ-YR TO WRK-YRQ-YR DTSBX440 00960 MOVE WRK-SLASH-YRQ-QTR TO WRK-YRQ-QTR DTSBX440 00961 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX440 00962 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX440 00963 IF L004-INVALID-QTR DTSBX440 00964 STRING 'REPORT: INVALID X163 FIRST QTR ' DTSBX440 00965 X163-FIRST-YRQ DELIMITED BY SIZE DTSBX440 00966 INTO R140-MESSAGE DTSBX440 00967 END-STRING DTSBX440 00968 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 00969 MOVE 1 TO T040-ERROR-SW DTSBX440 00970 GO TO P4000-LAST-YRQ. DTSBX440 00971 DTSBX440 00972 MOVE L004-QTR-5-9 TO WRK-YRQ W-WRK-YRQ. DTSBX440 00973 MOVE L004-QTR-5-YR TO WRK-CAL-YEAR. DTSBX440 00974 DTSBX440 00975 DISPLAY ' WFYRQ ' W-WRK-YRQ DTSBX440 00976 DISPLAY ' MFYRQ ' MAUR-FIRST-YRQ DTSBX440 00977 DTSBX440 00978 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 00979 W-WRK-YRQ NOT = MAUR-FIRST-YRQ DTSBX440 00980 DISPLAY ' WFYRQ NOT EQ ' DTSBX440 00981 MOVE W-WRK-YRQ TO T040-FIRST-YRQ DTSBX440 00982 MOVE 1 TO T040-UPD-MAUR. DTSBX440 00983 DTSBX440 00984 P4000-LAST-YRQ. DTSBX440 00985 MOVE ZEROS TO T040-LAST-YRQ. DTSBX440 00986 IF X163-LAST-YRQ = SPACES DTSBX440 00987 GO TO P4000-QTR-AUDIT-CNT. DTSBX440 00988 DTSBX440 00989 DTSBX440 00990 MOVE X163-LAST-YRQ TO WRK-SLASH-YRQ. DTSBX440 00991 MOVE WRK-SLASH-YRQ-YR TO WRK-YRQ-YR DTSBX440 00992 MOVE WRK-SLASH-YRQ-QTR TO WRK-YRQ-QTR DTSBX440 00993 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX440 00994 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX440 00995 IF L004-INVALID-QTR DTSBX440 00996 STRING 'REPORT: INVALID X163 LAST QTR ' DTSBX440 00997 X163-LAST-YRQ DELIMITED BY SIZE DTSBX440 00998 INTO R140-MESSAGE DTSBX440 00999 END-STRING DTSBX440 01000 DISPLAY 'X16C RECORD ' R140-RECORD-DESC DTSBX440 01001 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01002 MOVE 1 TO T040-ERROR-SW DTSBX440 01003 GO TO P4000-QTR-AUDIT-CNT. DTSBX440 01004 DTSBX440 01005 MOVE L004-QTR-5-9 TO WRK-YRQ W-WRK-YRQ. DTSBX440 01006 DTSBX440 01007 DTSBX440 01008 DISPLAY ' WLYRQ ' W-WRK-YRQ DTSBX440 01009 DISPLAY ' MLYRQ ' MAUR-LAST-YRQ DTSBX440 01010 DTSBX440 01011 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01012 W-WRK-YRQ NOT = MAUR-LAST-YRQ DTSBX440 01013 MOVE W-WRK-YRQ TO T040-LAST-YRQ DTSBX440 01014 DISPLAY ' WLYRQ NOT EQ ' DTSBX440 01015 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01016 DTSBX440 01017 P4000-QTR-AUDIT-CNT. DTSBX440 01018 MOVE ZEROS TO T040-QTRS-AUDITED-CNT DTSBX440 01019 IF X163-QTRS-AUDITED-CNT = ZEROS DTSBX440 01020 GO TO P4000-EMP-SIZE. DTSBX440 01021 DTSBX440 01022 IF X163-QTRS-AUDITED-CNT > 8 DTSBX440 01023 STRING 'REPORT: INVALID X163 QTRS AUDITED' DTSBX440 01024 X163-QTRS-AUDITED-CNT DELIMITED BY SIZE DTSBX440 01025 INTO R140-MESSAGE DTSBX440 01026 END-STRING DTSBX440 01027 DISPLAY 'X16D RECORD ' R140-RECORD-DESC DTSBX440 01028 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01029 MOVE 1 TO T040-ERROR-SW DTSBX440 01030 GO TO P4000-EMP-SIZE. DTSBX440 01031 DTSBX440 01032 MOVE X163-QTRS-AUDITED-CNT TO WRK-QTR-AUDITED-CNT. DTSBX440 01033 DTSBX440 01034 DISPLAY ' X163 QAUD ' WRK-QTR-AUDITED-CNT DTSBX440 01035 DISPLAY ' MAUR QUAD ' MAUR-QTRS-AUDITED-CNT DTSBX440 01036 DTSBX440 01037 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01038 WRK-QTR-AUDITED-CNT NOT = MAUR-QTRS-AUDITED-CNT DTSBX440 01039 MOVE WRK-QTR-AUDITED-CNT TO T040-QTRS-AUDITED-CNT DTSBX440 01040 DISPLAY ' X163 QACNT NOT EQ' DTSBX440 01041 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01042 DTSBX440 01043 P4000-EMP-SIZE. DTSBX440 01044 MOVE SPACES TO T040-EMP-SIZE-IND. DTSBX440 01045 IF X163-EMP-SIZE-IND = SPACES DTSBX440 01046 MOVE 'S' TO X163-EMP-SIZE-IND. DTSBX440 01047 DTSBX440 01048 MOVE X163-EMP-SIZE-IND TO L036-CD DTSBX440 01049 PERFORM S036-EMP-SIZE-IND THRU S036-EXIT DTSBX440 01050 DTSBX440 01051 IF L036-VALID DTSBX440 01052 NEXT SENTENCE DTSBX440 01053 ELSE DTSBX440 01054 STRING 'REPORT: INVALID X163 EMP SIZE ' DTSBX440 01055 X163-EMP-SIZE-IND DELIMITED BY SIZE DTSBX440 01056 INTO R140-MESSAGE DTSBX440 01057 END-STRING DTSBX440 01058 DISPLAY 'X16E RECORD ' R140-RECORD-DESC DTSBX440 01059 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01060 MOVE 1 TO T040-ERROR-SW DTSBX440 01061 GO TO P4000-ERR-TYPE1. DTSBX440 01062 DTSBX440 01063 DISPLAY ' XEMP ' X163-EMP-SIZE-IND DTSBX440 01064 DISPLAY ' MAUE ' MAUR-EMP-SIZE-IND DTSBX440 01065 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01066 X163-EMP-SIZE-IND NOT = MAUR-EMP-SIZE-IND DTSBX440 01067 MOVE X163-EMP-SIZE-IND TO T040-EMP-SIZE-IND DTSBX440 01068 DISPLAY ' XEMPS NOT EQ' DTSBX440 01069 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01070 DTSBX440 01071 P4000-ERR-TYPE1. DTSBX440 01072 MOVE ZEROS TO T040-ERR-TYPE(1) DTSBX440 01073 T040-ERR-TYPE(2) DTSBX440 01074 T040-ERR-TYPE(3) DTSBX440 01075 T040-ERR-TYPE(4) DTSBX440 01076 T040-ERR-TYPE(5) DTSBX440 01077 AUDIT-CNT-SUB. DTSBX440 01078 MOVE X163-ERR-TYPE1 TO WRK-ERR-TYPE(1). DTSBX440 01079 MOVE X163-ERR-TYPE2 TO WRK-ERR-TYPE(2). DTSBX440 01080 MOVE X163-ERR-TYPE3 TO WRK-ERR-TYPE(3). DTSBX440 01081 MOVE X163-ERR-TYPE4 TO WRK-ERR-TYPE(4). DTSBX440 01082 MOVE X163-ERR-TYPE5 TO WRK-ERR-TYPE(5). DTSBX440 01083 PERFORM P4000-AUDIT-CNT THRU P4000-AUDIT-CNT-EXIT 5 TIMES. DTSBX440 01084 DTSBX440 01085 GO TO P4000-DUE-AMT. DTSBX440 01086 P4000-AUDIT-CNT. DTSBX440 01087 ADD 1 TO AUDIT-CNT-SUB. DTSBX440 01088 MOVE WRK-ERR-TYPE(AUDIT-CNT-SUB) TO WRK-ERROR-TYPE. DTSBX440 01089 IF WRK-ERROR-TYPE = ZEROS DTSBX440 01090 GO TO P4000-AUDIT-CNT-EXIT. DTSBX440 01091 DTSBX440 01092 DTSBX440 01093 MOVE WRK-ERROR-TYPE TO L036-CD-2 DTSBX440 01094 SET L036-MAUR-ERROR-TYPE TO TRUE DTSBX440 01095 PERFORM S036-EDIT-CODES THRU S036-EXIT DTSBX440 01096 IF L036-NOT-VALID DTSBX440 01097 STRING 'REPORT: INVALID X163 ERROR TYPE ' DTSBX440 01098 WRK-ERROR-TYPE DELIMITED BY SIZE DTSBX440 01099 INTO R140-MESSAGE DTSBX440 01100 END-STRING DTSBX440 01101 DISPLAY 'X16F RECORD ' R140-RECORD-DESC DTSBX440 01102 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01103 MOVE 1 TO T040-ERROR-SW DTSBX440 01104 GO TO P4000-AUDIT-CNT-EXIT. DTSBX440 01105 DTSBX440 01106 DISPLAY ' WTYPE ' WRK-ERROR-TYPE DTSBX440 01107 DISPLAY ' MTYPE ' MAUR-ERROR-TYPE(AUDIT-CNT-SUB) DTSBX440 01108 DTSBX440 01109 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01110 WRK-ERROR-TYPE NOT = MAUR-ERROR-TYPE(AUDIT-CNT-SUB) DTSBX440 01111 MOVE WRK-ERROR-TYPE TO T040-ERR-TYPE(AUDIT-CNT-SUB) DTSBX440 01112 DISPLAY ' XETYPE NOT EQ' AUDIT-CNT-SUB DTSBX440 01113 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01114 P4000-AUDIT-CNT-EXIT. EXIT. DTSBX440 01115 DTSBX440 01116 P4000-DUE-AMT. DTSBX440 01117 MOVE ZEROS TO T040-MONEY-DUE-AMT WRK-DUE-AMT. DTSBX440 01118 IF X163-MONEY-DUE-AMT = ZEROS DTSBX440 01119 GO TO P4000-COLLECT-AMT. DTSBX440 01120 DTSBX440 01121 MOVE X163-MONEY-DUE-AMT TO W-MONEY-AMT-X. DTSBX440 01122 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01123 MOVE W-MONEY-AMT TO WRK-DUE-AMT DTSBX440 01124 DTSBX440 01125 DISPLAY 'WAMT ' WRK-DUE-AMT DTSBX440 01126 DISPLAY 'MAMT ' MAUR-MONEY-DUE-AMT DTSBX440 01127 DTSBX440 01128 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01129 WRK-DUE-AMT NOT = MAUR-MONEY-DUE-AMT DTSBX440 01130 MOVE WRK-DUE-AMT TO T040-MONEY-DUE-AMT DTSBX440 01131 DISPLAY ' WAMT NOT EQ' DTSBX440 01132 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01133 DTSBX440 01134 P4000-COLLECT-AMT. DTSBX440 01135 MOVE ZEROS TO T040-MONEY-COLLECT-AMT WRK-COLLECT-AMT. DTSBX440 01136 IF X163-MONEY-COLLECT-AMT = ZEROS DTSBX440 01137 GO TO P4000-REASON-CD. DTSBX440 01138 DTSBX440 01139 MOVE X163-MONEY-COLLECT-AMT TO W-MONEY-AMT-X. DTSBX440 01140 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01141 MOVE W-MONEY-AMT TO WRK-COLLECT-AMT DTSBX440 01142 DTSBX440 01143 DISPLAY 'WCAMT ' WRK-COLLECT-AMT DTSBX440 01144 DISPLAY 'MCAMT ' MAUR-MONEY-COLLECT-AMT DTSBX440 01145 DTSBX440 01146 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01147 WRK-COLLECT-AMT NOT = MAUR-MONEY-COLLECT-AMT DTSBX440 01148 MOVE WRK-COLLECT-AMT TO T040-MONEY-COLLECT-AMT DTSBX440 01149 DISPLAY ' CAMT NOT EQ' DTSBX440 01150 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01151 DTSBX440 01152 P4000-REASON-CD. DTSBX440 01153 MOVE SPACES TO T040-MONEY-REASON-CD. DTSBX440 01154 IF X163-MONEY-REASON-CD = SPACES DTSBX440 01155 MOVE '0' TO X163-MONEY-REASON-CD. DTSBX440 01156 DTSBX440 01157 MOVE X163-MONEY-REASON-CD TO L036-CD-1 DTSBX440 01158 SET L036-MAUR-MONEY-REASON-CD TO TRUE DTSBX440 01159 PERFORM S036-EDIT-CODES THRU S036-EXIT DTSBX440 01160 IF L036-NOT-VALID DTSBX440 01161 STRING 'REPORT: INVALID X163 MONY RES CD ' DTSBX440 01162 X163-MONEY-REASON-CD DELIMITED BY SIZE DTSBX440 01163 INTO R140-MESSAGE DTSBX440 01164 END-STRING DTSBX440 01165 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01166 MOVE 1 TO T040-ERROR-SW DTSBX440 01167 GO TO P4000-PEN-IND. DTSBX440 01168 DTSBX440 01169 DISPLAY ' XMCD ' X163-MONEY-REASON-CD DTSBX440 01170 DISPLAY ' MMCD ' MAUR-MONEY-REASON-CD DTSBX440 01171 DTSBX440 01172 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01173 X163-MONEY-REASON-CD NOT = MAUR-MONEY-REASON-CD DTSBX440 01174 MOVE X163-MONEY-REASON-CD TO T040-MONEY-REASON-CD DTSBX440 01175 DISPLAY ' MRCD NOT EQ' DTSBX440 01176 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01177 DTSBX440 01178 P4000-PEN-IND. DTSBX440 01179 MOVE SPACES TO T040-PEN-WAIVE-IND. DTSBX440 01180 IF X163-PEN-WAIVE-IND = SPACES DTSBX440 01181 GO TO P4000-INT-IND. DTSBX440 01182 DTSBX440 01183 IF X163-PEN-WAIVE-IND = 'Y' OR 'N' DTSBX440 01184 NEXT SENTENCE DTSBX440 01185 ELSE DTSBX440 01186 STRING 'REPORT: INVALID X163 PEN WAVE IND' DTSBX440 01187 X163-PEN-WAIVE-IND DELIMITED BY SIZE DTSBX440 01188 INTO R140-MESSAGE DTSBX440 01189 END-STRING DTSBX440 01190 DISPLAY 'X16I RECORD ' R140-RECORD-DESC DTSBX440 01191 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01192 MOVE 1 TO T040-ERROR-SW DTSBX440 01193 GO TO P4000-INT-IND. DTSBX440 01194 DTSBX440 01195 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01196 X163-PEN-WAIVE-IND NOT = MAUR-PEN-WAIVE-IND DTSBX440 01197 MOVE X163-PEN-WAIVE-IND TO T040-PEN-WAIVE-IND DTSBX440 01198 DISPLAY ' PIND NOT EQ' DTSBX440 01199 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01200 DTSBX440 01201 P4000-INT-IND. DTSBX440 01202 MOVE SPACES TO T040-INT-WAIVE-IND. DTSBX440 01203 IF X163-INT-WAIVE-IND = SPACES DTSBX440 01204 GO TO P4000-AUDIT-HRS. DTSBX440 01205 DTSBX440 01206 IF X163-INT-WAIVE-IND = 'Y' OR 'N' DTSBX440 01207 NEXT SENTENCE DTSBX440 01208 ELSE DTSBX440 01209 STRING 'REPORT: INVALID X163 INT WAVE IND' DTSBX440 01210 X163-INT-WAIVE-IND DELIMITED BY SIZE DTSBX440 01211 INTO R140-MESSAGE DTSBX440 01212 END-STRING DTSBX440 01213 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01214 MOVE 1 TO T040-ERROR-SW DTSBX440 01215 GO TO P4000-AUDIT-HRS. DTSBX440 01216 DTSBX440 01217 DISPLAY 'XWIND ' X163-INT-WAIVE-IND DTSBX440 01218 DISPLAY 'MWIND ' MAUR-INT-WAIVE-IND DTSBX440 01219 DTSBX440 01220 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01221 X163-INT-WAIVE-IND NOT = MAUR-INT-WAIVE-IND DTSBX440 01222 MOVE X163-INT-WAIVE-IND TO T040-INT-WAIVE-IND DTSBX440 01223 DISPLAY ' IIND NOT EQ' DTSBX440 01224 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01225 P4000-AUDIT-HRS. DTSBX440 01226 MOVE ZEROS TO T040-AUDIT-HRS. DTSBX440 01227 IF X163-AUDIT-HRS = ZEROS DTSBX440 01228 GO TO P4000-NEW-EMPLE-CNT. DTSBX440 01229 DTSBX440 01230 MOVE X163-AUDIT-HRS TO WRK-AUDIT-HRS. DTSBX440 01231 DTSBX440 01232 DISPLAY 'XAHRS ' WRK-AUDIT-HRS DTSBX440 01233 DISPLAY 'MWIND ' MAUR-AUDIT-HRS DTSBX440 01234 DTSBX440 01235 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01236 WRK-AUDIT-HRS NOT = MAUR-AUDIT-HRS DTSBX440 01237 MOVE WRK-AUDIT-HRS TO T040-AUDIT-HRS DTSBX440 01238 DISPLAY ' AHRS NOT EQ' DTSBX440 01239 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01240 P4000-NEW-EMPLE-CNT. DTSBX440 01241 MOVE ZEROS TO T040-NEW-EMPLOYEE-CNT DTSBX440 01242 IF X163-NEW-EMPLOYEE-CNT = ZEROS DTSBX440 01243 DISPLAY 'XYEE EQ ZEROS ' DTSBX440 01244 GO TO P4000-NEW-EMPL-CNT. DTSBX440 01245 DTSBX440 01246 MOVE X163-NEW-EMPLOYEE-CNT TO WRK-EMPE-CNT DTSBX440 01247 DISPLAY 'XYEE ' WRK-EMPE-CNT DTSBX440 01248 DISPLAY 'MYEE ' MAUR-NEW-EMPLOYEE-CNT DTSBX440 01249 DTSBX440 01250 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01251 WRK-EMPE-CNT NOT = MAUR-NEW-EMPLOYEE-CNT DTSBX440 01252 DISPLAY ' NEMPE NOT EQ' DTSBX440 01253 MOVE WRK-EMPE-CNT TO T040-NEW-EMPLOYEE-CNT DTSBX440 01254 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01255 DTSBX440 01256 P4000-NEW-EMPL-CNT. DTSBX440 01257 MOVE ZEROS TO T040-INDCON-TO-EMPL-CNT. DTSBX440 01258 IF X163-INDCON-TO-EMPL-CNT = ZEROS DTSBX440 01259 DISPLAY 'XYEL EQ ZEROS ' DTSBX440 01260 GO TO P4000-AUDIT-T040. DTSBX440 01261 DTSBX440 01262 MOVE X163-INDCON-TO-EMPL-CNT TO WRK-EMPL-CNT DTSBX440 01263 DISPLAY ' XEMPL ' WRK-EMPL-CNT DTSBX440 01264 DISPLAY ' MEMPL ' MAUR-INDCON-TO-EMPL-CNT DTSBX440 01265 DTSBX440 01266 IF MAUR-REC-NOT-FOUND-88 OR DTSBX440 01267 WRK-EMPL-CNT NOT = MAUR-INDCON-TO-EMPL-CNT DTSBX440 01268 MOVE WRK-EMPL-CNT TO T040-INDCON-TO-EMPL-CNT DTSBX440 01269 DISPLAY ' NEMPL NOT EQ' DTSBX440 01270 MOVE 1 TO T040-UPD-MAUR. DTSBX440 01271 DTSBX440 01272 P4000-AUDIT-T040. DTSBX440 01273 IF T040-UPD-MAUR = 0 DTSBX440 01274 GO TO P4000-EXIT. DTSBX440 01275 DTSBX440 01276 MOVE LENGTH OF T040-LINK-AREA TO T040-LENGTH DTSBX440 01277 MOVE '040' TO T040-REC-TYPE. DTSBX440 01278 MOVE WRK-OP-ID TO T040-OP-ID. DTSBX440 01279 MOVE X163-EMP-NO TO T040-EMP-NO. DTSBX440 01280 MOVE L005-DATE TO T040-SYS-DATE. DTSBX440 01281 MOVE L005-TIME TO T040-SYS-TIME. DTSBX440 01282 SET T040-MAUR-88 TO TRUE. DTSBX440 01283 MOVE WRK-ASSIGN-NO TO T040-ASSIGN-NO. DTSBX440 01284 MOVE T040-LINK-AREA TO TSKL-REC. DTSBX440 01285 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBX440 01286 ADD +1 TO W-T040-MAUR-CNT. DTSBX440 01287 DISPLAY ' WRITE TO40 MAUR ' T040-UPD-MAUR. DTSBX440 01288 DTSBX440 01289 P4000-EXIT. DTSBX440 01290 EXIT. DTSBX440 01291 DTSBX440 01292 P4500-AUDIT-MAUY. DTSBX440 01293 MOVE 0 TO T040-UPD-MAUY. DTSBX440 01294 MOVE 1 TO W-SUB. DTSBX440 01295 MOVE LOW-VALUES TO MAUY-KEY-AREA. DTSBX440 01296 MOVE X164-EMP-NO TO MAUY-EMP-NO. DTSBX440 01297 SET MAUY-AUY-88 TO TRUE. DTSBX440 01298 MOVE WRK-ASSIGN-NO TO MAUY-ASSIGN-NO. DTSBX440 01299 MOVE WRK-CAL-YEAR TO MAUY-CALENDAR-YEAR. DTSBX440 01300 MOVE MAUY-KEY-AREA TO MSKL-KEY-AREA. DTSBX440 01301 PERFORM S910-READ THRU S910-EXIT. DTSBX440 01302 IF L910-NO-REC-88 DTSBX440 01303 DISPLAY ' MAUY NOT FOUND ' X164-EMP-NO DTSBX440 01304 SET MAUY-REC-NOT-FOUND-88 TO TRUE DTSBX440 01305 ELSE DTSBX440 01306 MOVE MSKL-REC TO MAUY-REC DTSBX440 01307 DISPLAY ' MAUY FOUND ' X164-EMP-NO DTSBX440 01308 SET MAUY-REC-FOUND-88 TO TRUE. DTSBX440 01309 DTSBX440 01310 P4500-AUDIT-MAUY-EXIT. DTSBX440 01311 EXIT. DTSBX440 01312 DTSBX440 01313 P5000-QUARTER. DTSBX440 01314 DISPLAY ' U MAUY ' T040-UPD-MAUY. DTSBX440 01315 DISPLAY ' WSUB ' W-SUB. DTSBX440 01316 MOVE ZEROS TO T040-FIRST-YRQ. DTSBX440 01317 IF X164-QUARTER = SPACES DTSBX440 01318 GO TO P5000-QTR-AUDITED-IND. DTSBX440 01319 DTSBX440 01320 MOVE X164-QUARTER TO WRK-SLASH-YRQ. DTSBX440 01321 MOVE WRK-SLASH-YRQ-YR TO WRK-YRQ-YR DTSBX440 01322 MOVE WRK-SLASH-YRQ-QTR TO WRK-YRQ-QTR DTSBX440 01323 WRK-SUB DTSBX440 01324 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX440 01325 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX440 01326 IF L004-INVALID-QTR DTSBX440 01327 STRING 'REPORT: INVALID X164 QUARTER ' DTSBX440 01328 X164-QUARTER DELIMITED BY SIZE DTSBX440 01329 INTO R140-MESSAGE DTSBX440 01330 END-STRING DTSBX440 01331 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01332 MOVE 1 TO T040-ERROR-SW DTSBX440 01333 GO TO P5000-QTR-AUDITED-IND. DTSBX440 01334 DTSBX440 01335 DISPLAY ' QTR SUB ' WRK-SUB DTSBX440 01336 DISPLAY ' SUB ' W-SUB. DTSBX440 01337 DTSBX440 01338 P5000-QTR-AUDITED-IND. DTSBX440 01339 MOVE SPACES TO T040-QTR-AUDITED-IND(W-SUB). DTSBX440 01340 IF X164-QTR-AUDITED-IND = SPACES DTSBX440 01341 GO TO P5000-GROSS-PAYROLL. DTSBX440 01342 DTSBX440 01343 IF X164-QTR-AUDITED-IND NOT = 'Y' AND 'N' DTSBX440 01344 STRING 'REPORT: INVALID X164 QTR AUD IND ' DTSBX440 01345 X164-QTR-AUDITED-IND DELIMITED BY SIZE DTSBX440 01346 INTO R140-MESSAGE DTSBX440 01347 END-STRING DTSBX440 01348 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX440 01349 MOVE 1 TO T040-ERROR-SW DTSBX440 01350 GO TO P5000-GROSS-PAYROLL. DTSBX440 01351 DTSBX440 01352 DISPLAY ' X164 IND ' X164-QTR-AUDITED-IND DTSBX440 01353 DISPLAY ' MAUY IND ' MAUY-QTR-AUDITED-IND(W-SUB) DTSBX440 01354 DTSBX440 01355 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01356 X164-QTR-AUDITED-IND NOT = MAUY-QTR-AUDITED-IND(W-SUB) DTSBX440 01357 DISPLAY ' QTR AUD ' DTSBX440 01358 MOVE X164-QTR-AUDITED-IND TO T040-QTR-AUDITED-IND(W-SUB) DTSBX440 01359 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01360 DTSBX440 01361 P5000-GROSS-PAYROLL. DTSBX440 01362 MOVE ZEROS TO T040-QTR-GROSS-PAYROLL(W-SUB). DTSBX440 01363 IF X164-QTR-GROSS-PAYROLL = ZEROS DTSBX440 01364 GO TO P5000-UNDER-TOT-WAGE. DTSBX440 01365 DTSBX440 01366 MOVE X164-QTR-GROSS-PAYROLL TO W-MONEY-AMT-X. DTSBX440 01367 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01368 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440 01369 DTSBX440 01370 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440 01371 DISPLAY ' MGROS ' MAUY-QTR-GROSS-PAYROLL(W-SUB) DTSBX440 01372 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01373 WRK-MONEY-AMT NOT = MAUY-QTR-GROSS-PAYROLL(W-SUB) DTSBX440 01374 DISPLAY ' GROSS ' DTSBX440 01375 MOVE WRK-MONEY-AMT TO T040-QTR-GROSS-PAYROLL(W-SUB) DTSBX440 01376 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01377 DTSBX440 01378 P5000-UNDER-TOT-WAGE. DTSBX440 01379 MOVE ZEROS TO T040-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440 01380 IF X164-QTR-UNDER-TOT-WAGE = ZEROS DTSBX440 01381 GO TO P5000-UNDER-TAX-WAGE. DTSBX440 01382 DTSBX440 01383 MOVE X164-QTR-UNDER-TOT-WAGE TO W-MONEY-AMT-X. DTSBX440 01384 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01385 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440 01386 DTSBX440 01387 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440 01388 DISPLAY ' TGROS ' MAUY-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440 01389 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01390 WRK-MONEY-AMT NOT = MAUY-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440 01391 DISPLAY ' UTOT ' DTSBX440 01392 MOVE WRK-MONEY-AMT TO T040-QTR-UNDER-TOT-WAGE(W-SUB) DTSBX440 01393 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01394 DTSBX440 01395 P5000-UNDER-TAX-WAGE. DTSBX440 01396 MOVE ZEROS TO T040-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440 01397 IF X164-QTR-UNDER-TAX-WAGE = ZEROS DTSBX440 01398 GO TO P5000-UNDER-CONTRIB. DTSBX440 01399 DTSBX440 01400 MOVE X164-QTR-UNDER-TAX-WAGE TO W-MONEY-AMT-X. DTSBX440 01401 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01402 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440 01403 DTSBX440 01404 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440 01405 DISPLAY ' XGROS ' MAUY-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440 01406 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01407 WRK-MONEY-AMT NOT = MAUY-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440 01408 DISPLAY ' UTAX ' DTSBX440 01409 MOVE WRK-MONEY-AMT TO T040-QTR-UNDER-TAX-WAGE(W-SUB) DTSBX440 01410 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01411 DTSBX440 01412 P5000-UNDER-CONTRIB. DTSBX440 01413 MOVE ZEROS TO T040-QTR-UNDER-CONTRIB(W-SUB). DTSBX440 01414 IF X164-QTR-UNDER-CONTRIB = ZEROS DTSBX440 01415 GO TO P5000-OVER-TOT-WAGE. DTSBX440 01416 DTSBX440 01417 MOVE X164-QTR-UNDER-CONTRIB TO W-MONEY-AMT-X. DTSBX440 01418 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01419 MOVE W-MONEY-AMT TO WRK-CONTRIB-AMT. DTSBX440 01420 DTSBX440 01421 DISPLAY ' WGROS ' WRK-CONTRIB-AMT DTSBX440 01422 DISPLAY ' CGROS ' MAUY-QTR-UNDER-CONTRIB(W-SUB) DTSBX440 01423 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01424 WRK-CONTRIB-AMT NOT = MAUY-QTR-UNDER-CONTRIB(W-SUB) DTSBX440 01425 DISPLAY ' UCON ' DTSBX440 01426 MOVE WRK-CONTRIB-AMT TO T040-QTR-UNDER-CONTRIB(W-SUB) DTSBX440 01427 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01428 DTSBX440 01429 P5000-OVER-TOT-WAGE. DTSBX440 01430 MOVE ZEROS TO T040-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440 01431 IF X164-QTR-OVER-TOT-WAGE = ZEROS DTSBX440 01432 GO TO P5000-OVER-TAX-WAGE. DTSBX440 01433 DTSBX440 01434 MOVE X164-QTR-OVER-TOT-WAGE TO W-MONEY-AMT-X. DTSBX440 01435 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01436 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440 01437 DTSBX440 01438 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440 01439 DISPLAY 'OTGROS ' MAUY-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440 01440 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01441 WRK-MONEY-AMT NOT = MAUY-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440 01442 DISPLAY ' OTOT ' DTSBX440 01443 MOVE WRK-MONEY-AMT TO T040-QTR-OVER-TOT-WAGE(W-SUB) DTSBX440 01444 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01445 DTSBX440 01446 P5000-OVER-TAX-WAGE. DTSBX440 01447 MOVE ZEROS TO T040-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440 01448 IF X164-QTR-OVER-TAX-WAGE = ZEROS DTSBX440 01449 GO TO P5000-OVER-CONTRIB. DTSBX440 01450 DTSBX440 01451 MOVE X164-QTR-OVER-TAX-WAGE TO W-MONEY-AMT-X. DTSBX440 01452 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01453 MOVE W-MONEY-AMT TO WRK-MONEY-AMT. DTSBX440 01454 DTSBX440 01455 DISPLAY ' WGROS ' WRK-MONEY-AMT DTSBX440 01456 DISPLAY 'OXGROS ' MAUY-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440 01457 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01458 WRK-MONEY-AMT NOT = MAUY-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440 01459 DISPLAY ' OTAX ' DTSBX440 01460 MOVE WRK-MONEY-AMT TO T040-QTR-OVER-TAX-WAGE(W-SUB) DTSBX440 01461 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01462 DTSBX440 01463 P5000-OVER-CONTRIB. DTSBX440 01464 MOVE ZEROS TO T040-QTR-OVER-CONTRIB(W-SUB). DTSBX440 01465 IF X164-QTR-OVER-CONTRIB = ZEROS DTSBX440 01466 GO TO P5000-AUDIT-T040. DTSBX440 01467 DTSBX440 01468 MOVE X164-QTR-OVER-CONTRIB TO W-MONEY-AMT-X. DTSBX440 01469 MOVE W-MONEY-AMT-9 TO W-MONEY-AMT. DTSBX440 01470 MOVE W-MONEY-AMT TO WRK-CONTRIB-AMT. DTSBX440 01471 DTSBX440 01472 DISPLAY ' WGROS ' WRK-CONTRIB-AMT DTSBX440 01473 DISPLAY 'OCGROS ' MAUY-QTR-OVER-CONTRIB(W-SUB) DTSBX440 01474 IF MAUY-REC-NOT-FOUND-88 OR DTSBX440 01475 WRK-CONTRIB-AMT NOT = MAUY-QTR-OVER-CONTRIB(W-SUB) DTSBX440 01476 DISPLAY ' OCON ' DTSBX440 01477 MOVE WRK-CONTRIB-AMT TO T040-QTR-OVER-CONTRIB(W-SUB) DTSBX440 01478 MOVE 1 TO T040-UPD-MAUY. DTSBX440 01479 DTSBX440 01480 P5000-AUDIT-T040. DTSBX440 01481 DTSBX440 01482 DISPLAY ' WRITE T040 REC ' T040-UPD-MAUY. DTSBX440 01483 DISPLAY 'W-SUB-EMP ' W-SUB ' ' X163-EMP-NO. DTSBX440 01484 DTSBX440 01485 IF T040-UPD-MAUY = 0 DTSBX440 01486 GO TO P5000-EXIT. DTSBX440 01487 DTSBX440 01488 DTSBX440 01489 IF W-SUB NOT = 4 DTSBX440 01490 GO TO P5000-EXIT. DTSBX440 01491 DTSBX440 01492 DISPLAY ' WRITING T040 MAUY REC ' T040-UPD-MAUY. DTSBX440 01493 DISPLAY 'T-SUB-EMP ' W-SUB ' ' X163-EMP-NO. DTSBX440 01494 DTSBX440 01495 MOVE LENGTH OF T040-LINK-AREA TO T040-LENGTH DTSBX440 01496 MOVE '040' TO T040-REC-TYPE. DTSBX440 01497 DTSBX440 01498 MOVE X164-EMP-NO TO T040-EMP-NO. DTSBX440 01499 MOVE WRK-OP-ID TO T040-OP-ID. DTSBX440 01500 MOVE L005-DATE TO T040-SYS-DATE. DTSBX440 01501 MOVE L005-TIME TO T040-SYS-TIME. DTSBX440 01502 SET T040-MAUY-88 TO TRUE. DTSBX440 01503 MOVE WRK-ASSIGN-NO TO T040-ASSIGN-NO. DTSBX440 01504 MOVE WRK-CAL-YEAR TO T040-CALENDAR-YEAR. DTSBX440 01505 MOVE T040-LINK-AREA TO TSKL-REC. DTSBX440 01506 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBX440 01507 ADD +1 TO W-T040-MAUY-CNT. DTSBX440 01508 DTSBX440 01509 P5000-EXIT. DTSBX440 01510 EXIT. DTSBX440 01511 DTSBX440 01512 DTSBX440 01513 T0000-TERMINATE. DTSBX440 01514 CLOSE WEB-AUD-FILE. DTSBX440 01515 DTSBX440 01516 DISPLAY '*********************************************'. DTSBX440 01517 DISPLAY '** DTSBX440 TERMINATION STATISTICS **'. DTSBX440 01518 DISPLAY '** **'. DTSBX440 01519 DISPLAY '** ERRORS ' W-ERROR-CNT DTSBX440 01520 ' **'. DTSBX440 01521 DISPLAY '** MFAS-WRITTEN ' W-T040-MFAS-CNT DTSBX440 01522 ' **'. DTSBX440 01523 DISPLAY '** MAUR-WRITTEN ' W-T040-MAUR-CNT DTSBX440 01524 DISPLAY '** **'. DTSBX440 01525 DISPLAY '** MAUY-WRITTEN ' W-T040-MAUY-CNT DTSBX440 01526 DISPLAY '** **'. DTSBX440 01527 DISPLAY '*********************************************'. DTSBX440 01528 DTSBX440 01529 DTSBX440 01530 IF T040-ERROR-SW = 1 DTSBX440 01531 DISPLAY ' ERROR ON WEB INPUT FILE - NO T040 WRITTEN ' DTSBX440 01532 MOVE 2 TO RETURN-CODE. DTSBX440 01533 DTSBX440 01534 T0000-EXIT. DTSBX440 01535 EXIT. DTSBX440 01536 DTSBX440 01537 S1000-READ-WEB-IMP. DTSBX440 01538 READ WEB-AUD-FILE AT END SET WEB-AUD-STATUS-EOF-88 TO TRUE. DTSBX440 01539 ADD +1 TO W-WEB-IMP-CNT. DTSBX440 01540 DTSBX440 01541 S1000-EXIT. DTSBX440 01542 EXIT. DTSBX440 01543 S001-FROM-ABS-DAY. DTSBX440 01544 SET L001-FROM-ABS-DAY TO TRUE. DTSBX440 01545 GO TO S001-DATE. DTSBX440 01546 DTSBX440 01547 S001-FROM-FED-8. DTSBX440 01548 SET L001-FROM-FED-8 TO TRUE. DTSBX440 01549 GO TO S001-DATE. DTSBX440 01550 DTSBX440 01551 S001-FROM-CAL-6. DTSBX440 01552 SET L001-FROM-CAL-6 TO TRUE. DTSBX440 01553 GO TO S001-DATE. DTSBX440 01554 DTSBX440 01555 S001-DATE. DTSBX440 01556 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX440 01557 S001-EXIT. DTSBX440 01558 EXIT. DTSBX440 01559 SKIP3 DTSBX440 01560 S004-FROM-5. DTSBX440 01561 SET L004-FROM-5 TO TRUE. DTSBX440 01562 GO TO S004-QTR. DTSBX440 01563 DTSBX440 01564 S004-FROM-ABS. DTSBX440 01565 SET L004-FROM-ABS TO TRUE. DTSBX440 01566 GO TO S004-QTR. DTSBX440 01567 DTSBX440 01568 S004-FROM-3. DTSBX440 01569 SET L004-FROM-3 TO TRUE. DTSBX440 01570 GO TO S004-QTR. DTSBX440 01571 DTSBX440 01572 S004-FROM-DATE. DTSBX440 01573 SET L004-FROM-DATE TO TRUE. DTSBX440 01574 GO TO S004-QTR. DTSBX440 01575 DTSBX440 01576 S004-QTR. DTSBX440 01577 DTSBX440 01578 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX440 01579 DTSBX440 01580 S004-EXIT. DTSBX440 01581 EXIT. DTSBX440 01582 SKIP3 DTSBX440 01583 DTSBX440 01584 S005-FROM-SYS. DTSBX440 01585 SET L005-FROM-SYS TO TRUE. DTSBX440 01586 DTSBX440 01587 S005-ABSTIME. DTSBX440 01588 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX440 01589 S005-EXIT. DTSBX440 01590 EXIT. DTSBX440 01591 S036-EMP-SIZE-IND. DTSBX440 01592 SET L036-MFAS-EMP-SIZE-IND TO TRUE. DTSBX440 01593 CALL 'DTSBU036' USING L036-LINK-AREA. DTSBX440 01594 GO TO S036-EXIT. DTSBX440 01595 S036-EDIT-CODES. DTSBX440 01596 CALL 'DTSBU036' USING L036-LINK-AREA. DTSBX440 01597 DTSBX440 01598 S036-EXIT. DTSBX440 01599 EXIT. DTSBX440 01600 S062-LOOKUP-FLD-REP. DTSBX440 01601 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBX440 01602 S062-EXIT. DTSBX440 01603 EXIT. DTSBX440 01604 DTSBX440 01605 S910-OPEN-READ. DTSBX440 01606 SET L910-OPEN-READ-88 TO TRUE. DTSBX440 01607 GO TO S910-MSTR-IO. DTSBX440 01608 DTSBX440 01609 S910-READ. DTSBX440 01610 SET L910-READ-88 TO TRUE. DTSBX440 01611 GO TO S910-MSTR-IO. DTSBX440 01612 DTSBX440 01613 S910-START-BROWSE. DTSBX440 01614 SET L910-START-BROWSE-88 TO TRUE. DTSBX440 01615 GO TO S910-MSTR-IO. DTSBX440 01616 DTSBX440 01617 S910-READ-NEXT. DTSBX440 01618 SET L910-READ-NEXT-88 TO TRUE. DTSBX440 01619 GO TO S910-MSTR-IO. DTSBX440 01620 DTSBX440 01621 S910-COUNT. DTSBX440 01622 SET L910-COUNT-88 TO TRUE. DTSBX440 01623 GO TO S910-MSTR-IO. DTSBX440 01624 DTSBX440 01625 S910-REWRITE. DTSBX440 01626 SET L910-REWRITE-88 TO TRUE. DTSBX440 01627 GO TO S910-MSTR-IO. DTSBX440 01628 DTSBX440 01629 S910-CLOSE. DTSBX440 01630 SET L910-CLOSE-88 TO TRUE. DTSBX440 01631 GO TO S910-MSTR-IO. DTSBX440 01632 DTSBX440 01633 S910-MSTR-IO. DTSBX440 01634 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX440 01635 MSKL-REC. DTSBX440 01636 S910-EXIT. DTSBX440 01637 EXIT. DTSBX440 01638 SKIP3 DTSBX440 01639 DTSBX440 01640 S921-OPEN-READ. DTSBX440 01641 SET L921-OPEN-READ-88 TO TRUE. DTSBX440 01642 GO TO S921-AIX-IO. DTSBX440 01643 DTSBX440 01644 S921-START-BROWSE. DTSBX440 01645 SET L921-START-BROWSE-88 TO TRUE. DTSBX440 01646 GO TO S921-AIX-IO. DTSBX440 01647 DTSBX440 01648 S921-READ-NEXT. DTSBX440 01649 SET L921-READ-NEXT-88 TO TRUE. DTSBX440 01650 GO TO S921-AIX-IO. DTSBX440 01651 DTSBX440 01652 S921-CLOSE. DTSBX440 01653 SET L921-CLOSE-88 TO TRUE. DTSBX440 01654 GO TO S921-AIX-IO. DTSBX440 01655 DTSBX440 01656 S921-AIX-IO. DTSBX440 01657 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX440 01658 ISKL-REC. DTSBX440 01659 DTSBX440 01660 S921-EXIT. DTSBX440 01661 EXIT. DTSBX440 01662 DTSBX440 01663 S927A-OPEN. DTSBX440 01664 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX440 01665 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX440 01666 DTSBX440 01667 S927A-EXIT. DTSBX440 01668 EXIT. DTSBX440 01669 DTSBX440 01670 DTSBX440 01671 S927B-WRITE. DTSBX440 01672 SET L927-WRITE-88 TO TRUE. DTSBX440 01673 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX440 01674 DTSBX440 01675 S927B-EXIT. DTSBX440 01676 EXIT. DTSBX440 01677 S927C-CLOSE. DTSBX440 01678 SET L927-CLOSE-88 TO TRUE. DTSBX440 01679 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX440 01680 DTSBX440 01681 S927C-EXIT. DTSBX440 01682 EXIT. DTSBX440 01683 DTSBX440 01684 S927Z-IO. DTSBX440 01685 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX440 01686 TSKL-REC. DTSBX440 01687 S927Z-EXIT. DTSBX440 01688 EXIT. DTSBX440 01689 S931-READ. DTSBX440 01690 SET L931-READ-88 TO TRUE. DTSBX440 01691 GO TO S931-REF-IO. DTSBX440 01692 DTSBX440 01693 S931-OPEN-READ. DTSBX440 01694 SET L931-OPEN-READ-88 TO TRUE. DTSBX440 01695 GO TO S931-REF-IO. DTSBX440 01696 DTSBX440 01697 S931-REF-IO. DTSBX440 01698 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX440 01699 FSKL-REC. DTSBX440 01700 S931-EXIT. DTSBX440 01701 EXIT. DTSBX440 01702 DTSBX440 01703 DTSBX440 01704 S946-WRITE-R140. DTSBX440 01705 CALL 'DTSBU946' USING R140-REC. DTSBX440 01706 DTSBX440 01707 S946-EXIT. DTSBX440 01708 EXIT. DTSBX440 01709 S999-ABEND. DTSBX440 01710 DISPLAY '*** DTSBX440 ABENDING. ' DTSBX440 01711 ABEND-MSG. DTSBX440 01712 DTSBX440 01713 CALL 'DTSBU999' USING W-ABEND-CD. DTSBX440 01714 S999-EXIT. DTSBX440 01715 EXIT. DTSBX440