00001 IDENTIFICATION DIVISION. 08/02/13 00002 PROGRAM-ID. DTSBX775. DTSBX775 00003 AUTHOR. TRW. LV003 00004 DATE-WRITTEN. JANUARY 2002. DTSBX775 00005 DATE-COMPILED. DTSBX775 00006 SKIP3 DTSBX775 00007 ***** DTSBX775 00008 * DTSBX775 00009 * DTSBX775 00010 * FUNCTION: EXTRACT RECONSTRUCTION FILE DATA FOR THE STATUS DTSBX775 00011 * DETERMINATIONS FOR THE ETA581 REPORT. DTSBX775 00012 * DTSBX775 00013 * DTSBX775 00014 * MODIFICATION LOG: DTSBX775 00015 * DTSBX775 00016 * 01/15/2003 INITIAL DEVELOPMENT. DTSBX775 00017 * REFERENCE: DATA VALIDATION PROGRAMMER: RW1 DTSBX775 00018 * DTSBX775 00019 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX775 00020 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX775 00021 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX775 00022 * DTSBX775 00023 * DTSBX775 00024 * DESCRIPTION: DTSBX775 00025 * DTSBX775 00026 * DTSBX775 00027 * INITIATION: DTSBX775 00028 * DTSBX775 00029 * DTSBX775 00030 * EDIT AND DEFAULT PARAMETERS. DTSBX775 00031 * DTSBX775 00032 * DTSBX775 00033 * PROCESSING: DTSBX775 00034 * DTSBX775 00035 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (DTSIX775) DTSBX775 00036 * DTSBX775 00037 * DTSBX775 00038 * TERMINATION: DTSBX775 00039 * DTSBX775 00040 * DTSBX775 00041 * DTSBX775 00042 * RECORDS READ: DTSBX775 00043 * DTSBX775 00044 * MASTER: DTSBX775 00045 * DTSBX775 00046 * NONE DTSBX775 00047 * DTSBX775 00048 * DTSBX775 00049 * ALTERNATE INDEX: DTSBX775 00050 * DTSBX775 00051 * NONE. DTSBX775 00052 * DTSBX775 00053 * DTSBX775 00054 * REFERENCE: DTSBX775 00055 * DTSBX775 00056 * DTSBX775 00057 * DTSBX775 00058 * RECORDS UPDATED: DTSBX775 00059 * DTSBX775 00060 * NONE DTSBX775 00061 * DTSBX775 00062 * DTSBX775 00063 * OUTPUT RECORDS WRITTEN: DTSBX775 00064 * DTSBX775 00065 * DTSIX775 POPULATION 5 STATUS DETERMINATIONS. DTSBX775 00066 * DTSBX775 00067 * DTSBX775 00068 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBX775 00069 * DTSBX775 00070 * NONE. DTSBX775 00071 * DTSBX775 00072 * DTSBX775 00073 * MODULES CALLED: DTSBX775 00074 * DTSBX775 00075 * DTSBU001 DATE EDIT/CONVERSION. DTSBX775 00076 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBX775 00077 * DTSBU005 ABSOLUTE TIMES CONVERSION. DTSBX775 00078 * DTSBX775 00079 ***** DTSBX775 00080 SKIP3 DTSBX775 00081 ENVIRONMENT DIVISION. DTSBX775 00082 DTSBX775 00083 INPUT-OUTPUT SECTION. DTSBX775 00084 SKIP3 DTSBX775 00085 FILE-CONTROL. DTSBX775 00086 SELECT STATUS-DETERM ASSIGN TO DTSX775 DTSBX775 00087 FILE STATUS IS X775-STATUS. DTSBX775 00088 EJECT DTSBX775 00089 DATA DIVISION. DTSBX775 00090 DTSBX775 00091 FILE SECTION. DTSBX775 00092 SKIP2 DTSBX775 00093 FD STATUS-DETERM DTSBX775 00094 RECORDING MODE IS F DTSBX775 00095 LABEL RECORDS ARE STANDARD DTSBX775 00096 BLOCK CONTAINS 0 CHARACTERS. DTSBX775 00097 DTSBX775 00098 01 DETERM-REC PIC X(250). DTSBX775 00099 DTSBX775 00100 WORKING-STORAGE SECTION. DTSBX775 001005 77 PAN-VALET PICTURE X(24) VALUE '003DTSBX775 08/02/13'. DTSBX775 00101 77 PAN-VALET PICTURE X(24) VALUE '002DTSBX775 07/30/13'. DTSBX775 00102 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX775 02/01/04'. DTSBX775 00103 DTSBX775 00104 01 WRK-AREA. DTSBX775 00105 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +775.DTSBX775 00106 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX775'.DTSBX775 00107 05 ABEND-MSG PIC X(60). DTSBX775 00108 DTSBX775 00109 05 X775-STATUS PIC X(02) VALUE SPACES. DTSBX775 00110 88 X775-STATUS-OK-88 VALUE ZERO. DTSBX775 00111 DTSBX775 00112 05 WRK-VALID-EMP-SIZE-IND PIC X(01). DTSBX775 00113 88 WRK-VALID-EMP-SIZE-YES-88 VALUE 'Y'. DTSBX775 00114 88 WRK-VALID-EMP-SIZE-NO-88 VALUE 'N'. DTSBX775 00115 DTSBX775 00116 05 WRK-OBS-NBR PIC S9(07) COMP-3 VALUE +0. DTSBX775 00117 05 WRK-RECS-WRITTEN-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00118 DTSBX775 00119 05 WRK-AUDIT-LARGE-EMP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00120 05 WRK-AUDIT-TOT-EMP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00121 05 WRK-AUDIT-QTR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00122 05 WRK-AUDIT-TOT-WAGES-PRE PIC S9(11)V9(02) COMP-3 DTSBX775 00123 VALUE +0. DTSBX775 00124 05 WRK-AUDIT-TOT-WAGES-POST PIC S9(11)V9(02) COMP-3 DTSBX775 00125 VALUE +0. DTSBX775 00126 05 WRK-AUDIT-CHANGE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00127 05 WRK-AUDIT-HOURS-CNT PIC S9(08)V9(01) COMP-3 DTSBX775 00128 VALUE +0. DTSBX775 00129 05 WRK-AUDIT-UNDERRPT-TOT-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00130 VALUE +0. DTSBX775 00131 05 WRK-AUDIT-UNDERRPT-TAX-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00132 VALUE +0. DTSBX775 00133 05 WRK-AUDIT-UNDERRPT-CONTRIB PIC S9(11)V9(02) COMP-3 DTSBX775 00134 VALUE +0. DTSBX775 00135 05 WRK-AUDIT-OVERRPT-TOT-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00136 VALUE +0. DTSBX775 00137 05 WRK-AUDIT-OVERRPT-TAX-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00138 VALUE +0. DTSBX775 00139 05 WRK-AUDIT-OVERRPT-CONTRIB PIC S9(11)V9(02) COMP-3 DTSBX775 00140 VALUE +0. DTSBX775 00141 05 WRK-AUDIT-INDCON-TO-EMPL-CNT PIC S9(09) COMP-3 VALUE +0. DTSBX775 00142 DTSBX775 00143 05 DISPLAY-CNT PIC Z(13)9. DTSBX775 00144 05 DISPLAY-AMT-X PIC X(15). DTSBX775 00145 05 DISPLAY-AMT REDEFINES DISPLAY-AMT-X DTSBX775 00146 PIC ZZZ,ZZZ,ZZ9.99-. DTSBX775 00147 05 DISPLAY-HRS-X PIC X(14). DTSBX775 00148 05 DISPLAY-HOURS-CNT REDEFINES DISPLAY-HRS-X DTSBX775 00149 PIC ZZZ,ZZZ,ZZ9.9-. DTSBX775 00150 EJECT DTSBX775 00151 01 L001-LINK-AREA. DTSBX775 00152 ++INCLUDE DTSIL001 DTSBX775 00153 EJECT DTSBX775 00154 01 L004-LINK-AREA. DTSBX775 00155 ++INCLUDE DTSIL004 DTSBX775 00156 EJECT DTSBX775 00157 01 L005-LINK-AREA. DTSBX775 00158 ++INCLUDE DTSIL005 DTSBX775 00159 EJECT DTSBX775 00160 01 Y775-REC. DTSBX775 00161 ++INCLUDE DTSIY775 DTSBX775 00162 DTSBX775 00163 01 X775-REC. DTSBX775 00164 ++INCLUDE DTSIX775 DTSBX775 00165 EJECT DTSBX775 00166 LINKAGE SECTION. DTSBX775 00167 SKIP3 DTSBX775 00168 01 XL775-LINK-AREA. DTSBX775 00169 ++INCLUDE DTSXL775 DTSBX775 00170 SKIP3 DTSBX775 00171 01 X770-PARM-REC. DTSBX775 00172 ++INCLUDE DTSIX770 DTSBX775 00173 SKIP3 DTSBX775 00174 01 RSKL-REC. DTSBX775 00175 ++INCLUDE DTSIRSK1 DTSBX775 00176 EJECT DTSBX775 00177 PROCEDURE DIVISION USING XL775-LINK-AREA DTSBX775 00178 X770-PARM-REC DTSBX775 00179 RSKL-REC. DTSBX775 00180 DTSBX775 00181 IF XL775-CMD-PROCESS-88 DTSBX775 00182 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX775 00183 ELSE DTSBX775 00184 IF XL775-CMD-INIT-88 DTSBX775 00185 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBX775 00186 ELSE DTSBX775 00187 IF XL775-CMD-TERMINATE-88 DTSBX775 00188 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX775 00189 ELSE DTSBX775 00190 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBX775 00191 TO ABEND-MSG DTSBX775 00192 PERFORM S999-ABEND THRU S999-EXIT. DTSBX775 00193 SKIP2 DTSBX775 00194 GOBACK. DTSBX775 00195 EJECT DTSBX775 00196 I0000-INITIALIZE. DTSBX775 00197 OPEN OUTPUT STATUS-DETERM. DTSBX775 00198 IF NOT X775-STATUS-OK-88 DTSBX775 00199 DISPLAY 'FILE STATUS IS : ' X775-STATUS DTSBX775 00200 MOVE 'CANNOT OPEN OUTPUT FILE ' TO ABEND-MSG DTSBX775 00201 PERFORM S999-ABEND THRU S999-EXIT. DTSBX775 00202 DTSBX775 00203 MOVE +0 TO XL775-AUDIT-LARGE-EMP-CNT DTSBX775 00204 XL775-AUDIT-TOT-EMP-CNT DTSBX775 00205 XL775-AUDIT-QTR-CNT DTSBX775 00206 XL775-AUDIT-TOT-WAGES-PRE DTSBX775 00207 XL775-AUDIT-TOT-WAGES-POST DTSBX775 00208 XL775-AUDIT-CHANGE-CNT DTSBX775 00209 XL775-AUDIT-HOURS-CNT DTSBX775 00210 XL775-AUDIT-UNDERRPT-TOT-WAGES DTSBX775 00211 XL775-AUDIT-UNDERRPT-TAX-WAGES DTSBX775 00212 XL775-AUDIT-UNDERRPT-CONTRIB DTSBX775 00213 XL775-AUDIT-OVERRPT-TOT-WAGES DTSBX775 00214 XL775-AUDIT-OVERRPT-TAX-WAGES DTSBX775 00215 XL775-AUDIT-OVERRPT-CONTRIB DTSBX775 00216 XL775-AUDIT-INDCON-TO-EMPL-CNT. DTSBX775 00217 I0000-EXIT. DTSBX775 00218 EXIT. DTSBX775 00219 EJECT DTSBX775 00220 P0000-PROCESS. DTSBX775 00221 MOVE RSKL-REC TO Y775-REC. DTSBX775 00222 DTSBX775 00223 PERFORM P1000-WRITE-OUTPUT THRU P1000-EXIT. DTSBX775 00224 DTSBX775 00225 P0000-EXIT. DTSBX775 00226 EXIT. DTSBX775 00227 DTSBX775 00228 P1000-WRITE-OUTPUT. DTSBX775 00229 *& DISPLAY 'DTSBX775 ' Y775-EMP-NO. DTSBX775 00230 INITIALIZE X775-REC. DTSBX775 00231 DTSBX775 00232 SET WRK-VALID-EMP-SIZE-YES-88 TO TRUE. DTSBX775 00233 EVALUATE TRUE DTSBX775 00234 WHEN Y775-EMP-SIZE-LARGE-88 DTSBX775 00235 SET X775-EMP-SIZE-LARGE-88 TO TRUE DTSBX775 00236 DTSBX775 00237 WHEN Y775-EMP-SIZE-SMALL-88 DTSBX775 00238 SET X775-EMP-SIZE-SMALL-88 TO TRUE DTSBX775 00239 DTSBX775 00240 WHEN OTHER DTSBX775 00241 DISPLAY 'Y775-EMP-SIZE-IND INVALID ' Y775-EMP-SIZE-IND DTSBX775 00242 ' EMP-NO: ' Y775-EMP-NO DTSBX775 00243 SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE DTSBX775 00244 DTSBX775 00245 END-EVALUATE. DTSBX775 00246 DTSBX775 00247 IF WRK-VALID-EMP-SIZE-NO-88 DTSBX775 00248 GO TO P1000-EXIT. DTSBX775 00249 DTSBX775 00250 EVALUATE TRUE DTSBX775 00251 WHEN Y775-CHANGE-AUDIT-YES-88 DTSBX775 00252 SET X775-CHANGE-AUDIT-YES-88 TO TRUE DTSBX775 00253 DTSBX775 00254 WHEN Y775-CHANGE-AUDIT-NO-88 DTSBX775 00255 SET X775-CHANGE-AUDIT-NO-88 TO TRUE DTSBX775 00256 DTSBX775 00257 WHEN OTHER DTSBX775 00258 DISPLAY 'Y775-CHANGE-AUDIT-IND INVALID ' DTSBX775 00259 Y775-CHANGE-AUDIT-IND ' EMP-NO: ' Y775-EMP-NO DTSBX775 00260 SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE DTSBX775 00261 DTSBX775 00262 END-EVALUATE. DTSBX775 00263 DTSBX775 00264 IF WRK-VALID-EMP-SIZE-NO-88 DTSBX775 00265 GO TO P1000-EXIT. DTSBX775 00266 DTSBX775 00267 ADD +1 TO WRK-OBS-NBR. DTSBX775 00268 DTSBX775 00269 MOVE Y775-EMP-NO TO X775-EMP-NO. DTSBX775 00270 MOVE WRK-OBS-NBR TO X775-OBS-NBR. DTSBX775 00271 MOVE Y775-AUDIT-ID TO X775-AUDIT-ID. DTSBX775 00272 DTSBX775 00273 IF Y775-AUDIT-CMPL-DATE > ZERO DTSBX775 00274 MOVE Y775-AUDIT-CMPL-DATE TO L001-FED-8-DATE-9 DTSBX775 00275 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX775 00276 MOVE L001-SLASH-8-DATE TO X775-AUDIT-CMPL-DATE DTSBX775 00277 ELSE DTSBX775 00278 MOVE SPACES TO X775-AUDIT-CMPL-DATE. DTSBX775 00279 DTSBX775 00280 MOVE Y775-PRE-AUDIT-TOT-WAGE TO X775-PRE-AUDIT-TOT-WAGE. DTSBX775 00281 MOVE Y775-POST-AUDIT-TOT-WAGE TO X775-POST-AUDIT-TOT-WAGE. DTSBX775 00282 MOVE Y775-UNDER-RPT-TOT-WAGE TO X775-UNDER-RPT-TOT-WAGE. DTSBX775 00283 MOVE Y775-OVER-RPT-TOT-WAGE TO X775-OVER-RPT-TOT-WAGE. DTSBX775 00284 MOVE ZEROS TO X775-TOTAL-RECON. DTSBX775 00285 DTSBX775 00286 MOVE Y775-PRE-AUDIT-TAX-WAGE TO X775-PRE-AUDIT-TAX-WAGE. DTSBX775 00287 MOVE Y775-POST-AUDIT-TAX-WAGE TO X775-POST-AUDIT-TAX-WAGE. DTSBX775 00288 MOVE Y775-UNDER-RPT-TAX-WAGE TO X775-UNDER-RPT-TAX-WAGE. DTSBX775 00289 MOVE Y775-OVER-RPT-TAX-WAGE TO X775-OVER-RPT-TAX-WAGE. DTSBX775 00290 MOVE ZEROS TO X775-TAX-RECON. DTSBX775 00291 DTSBX775 00292 MOVE Y775-PRE-AUDIT-CONTRIB TO X775-PRE-AUDIT-CONTRIB. DTSBX775 00293 MOVE Y775-POST-AUDIT-CONTRIB TO X775-POST-AUDIT-CONTRIB. DTSBX775 00294 MOVE Y775-UNDER-RPT-CONTRIB TO X775-UNDER-RPT-CONTRIB. DTSBX775 00295 MOVE Y775-OVER-RPT-CONTRIB TO X775-OVER-RPT-CONTRIB. DTSBX775 00296 MOVE ZEROS TO X775-CONTRIB-RECON. DTSBX775 00297 DTSBX775 00298 MOVE SPACES TO X775-USER-FIELD. DTSBX775 00299 DTSBX775 00300 WRITE DETERM-REC FROM X775-REC. DTSBX775 00301 DTSBX775 00302 IF NOT X775-STATUS-OK-88 DTSBX775 00303 DISPLAY 'FILE STATUS IS : ' X775-STATUS DTSBX775 00304 MOVE 'WRITE OUTPUT RECORD ERROR ' TO ABEND-MSG DTSBX775 00305 PERFORM S999-ABEND THRU S999-EXIT DTSBX775 00306 ELSE DTSBX775 00307 ADD +1 TO WRK-RECS-WRITTEN-CNT DTSBX775 00308 PERFORM P2000-XL775-LINK-SUMM THRU P2000-EXIT. DTSBX775 00309 DTSBX775 00310 P1000-EXIT. DTSBX775 00311 EXIT. DTSBX775 00312 DTSBX775 00313 P2000-XL775-LINK-SUMM. DTSBX775 00314 DTSBX775 00315 IF Y775-EMP-SIZE-LARGE-88 DTSBX775 00316 ADD +1 TO WRK-AUDIT-LARGE-EMP-CNT. DTSBX775 00317 DTSBX775 00318 ADD +1 TO WRK-AUDIT-TOT-EMP-CNT. DTSBX775 00319 ADD Y775-QTR-CNT TO WRK-AUDIT-QTR-CNT. DTSBX775 00320 DTSBX775 00321 ADD Y775-PRE-AUDIT-TOT-WAGE TO WRK-AUDIT-TOT-WAGES-PRE. DTSBX775 00322 ADD Y775-POST-AUDIT-TOT-WAGE TO WRK-AUDIT-TOT-WAGES-POST. DTSBX775 00323 DTSBX775 00324 IF Y775-CHANGE-AUDIT-YES-88 DTSBX775 00325 ADD +1 TO WRK-AUDIT-CHANGE-CNT. DTSBX775 00326 DTSBX775 00327 ADD Y775-HOURS TO WRK-AUDIT-HOURS-CNT. DTSBX775 00328 DTSBX775 00329 ADD Y775-UNDER-RPT-TOT-WAGE TO WRK-AUDIT-UNDERRPT-TOT-WAGES.DTSBX775 00330 ADD Y775-UNDER-RPT-TAX-WAGE TO WRK-AUDIT-UNDERRPT-TAX-WAGES.DTSBX775 00331 ADD Y775-UNDER-RPT-CONTRIB TO WRK-AUDIT-UNDERRPT-CONTRIB. DTSBX775 00332 DTSBX775 00333 ADD Y775-OVER-RPT-TOT-WAGE TO WRK-AUDIT-OVERRPT-TOT-WAGES. DTSBX775 00334 ADD Y775-OVER-RPT-TAX-WAGE TO WRK-AUDIT-OVERRPT-TAX-WAGES. DTSBX775 00335 ADD Y775-OVER-RPT-CONTRIB TO WRK-AUDIT-OVERRPT-CONTRIB. DTSBX775 00336 DTSBX775 00337 ADD Y775-IND-CON-CNT TO WRK-AUDIT-INDCON-TO-EMPL-CNT.DTSBX775 00338 DTSBX775 00339 P2000-EXIT. DTSBX775 00340 EXIT. DTSBX775 00341 DTSBX775 00342 T0000-TERMINATE. DTSBX775 00343 PERFORM T1000-UPDATE-LINK THRU T1000-EXIT. DTSBX775 00344 DTSBX775 00345 DISPLAY ' '. DTSBX775 00346 DTSBX775 00347 DISPLAY '*** DTSBX775 TERMINATION STATISTICS ***'. DTSBX775 00348 DTSBX775 00349 DISPLAY ' '. DTSBX775 00350 MOVE WRK-RECS-WRITTEN-CNT TO DISPLAY-CNT. DTSBX775 00351 DISPLAY 'AUDIT RECORDS WRITTEN : ' DTSBX775 00352 DISPLAY-CNT. DTSBX775 00353 DTSBX775 00354 MOVE WRK-AUDIT-LARGE-EMP-CNT TO DISPLAY-CNT. DTSBX775 00355 DISPLAY 'AUDIT LARGE EMPLOYER COUNT : ' DTSBX775 00356 DISPLAY-CNT. DTSBX775 00357 DTSBX775 00358 MOVE WRK-AUDIT-TOT-EMP-CNT TO DISPLAY-CNT. DTSBX775 00359 DISPLAY 'AUDIT TOTAL EMPLOYER COUNT : ' DTSBX775 00360 DISPLAY-CNT. DTSBX775 00361 DTSBX775 00362 MOVE WRK-AUDIT-QTR-CNT TO DISPLAY-CNT. DTSBX775 00363 DISPLAY 'AUDIT QUARTER COUNT : ' DTSBX775 00364 DISPLAY-CNT. DTSBX775 00365 DTSBX775 00366 MOVE WRK-AUDIT-TOT-WAGES-PRE TO DISPLAY-AMT. DTSBX775 00367 DISPLAY 'AUDIT TOTAL WAGES - PREVIOUS : ' DTSBX775 00368 DISPLAY-AMT. DTSBX775 00369 DTSBX775 00370 MOVE WRK-AUDIT-TOT-WAGES-POST TO DISPLAY-AMT. DTSBX775 00371 DISPLAY 'AUDIT TOTAL WAGES - POST : ' DTSBX775 00372 DISPLAY-AMT. DTSBX775 00373 DTSBX775 00374 MOVE WRK-AUDIT-CHANGE-CNT TO DISPLAY-CNT. DTSBX775 00375 DISPLAY 'AUDIT CHANGE COUNT : ' DTSBX775 00376 DISPLAY-CNT. DTSBX775 00377 DTSBX775 00378 MOVE WRK-AUDIT-HOURS-CNT TO DISPLAY-HOURS-CNT. DTSBX775 00379 DISPLAY 'AUDIT HOURS COUNT : ' DTSBX775 00380 DISPLAY-HOURS-CNT. DTSBX775 00381 DTSBX775 00382 MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO DISPLAY-AMT. DTSBX775 00383 DISPLAY 'AUDIT UNDER REPORT TOTAL WAGES : ' DTSBX775 00384 DISPLAY-AMT. DTSBX775 00385 DTSBX775 00386 MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO DISPLAY-AMT. DTSBX775 00387 DISPLAY 'AUDIT UNDER REPORT TAX WAGES : ' DTSBX775 00388 DISPLAY-AMT. DTSBX775 00389 DTSBX775 00390 MOVE WRK-AUDIT-UNDERRPT-CONTRIB TO DISPLAY-AMT. DTSBX775 00391 DISPLAY 'AUDIT UNDER REPORT CONTRIBUTION : ' DTSBX775 00392 DISPLAY-AMT. DTSBX775 00393 DTSBX775 00394 MOVE WRK-AUDIT-OVERRPT-TOT-WAGES TO DISPLAY-AMT. DTSBX775 00395 DISPLAY 'AUDIT OVER REPORT TOTAL WAGES : ' DTSBX775 00396 DISPLAY-AMT. DTSBX775 00397 DTSBX775 00398 MOVE WRK-AUDIT-OVERRPT-TAX-WAGES TO DISPLAY-AMT. DTSBX775 00399 DISPLAY 'AUDIT OVER REPORT TAX WAGES : ' DTSBX775 00400 DISPLAY-AMT. DTSBX775 00401 DTSBX775 00402 MOVE WRK-AUDIT-OVERRPT-CONTRIB TO DISPLAY-AMT. DTSBX775 00403 DISPLAY 'AUDIT OVER REPORT CONTRIBUTION : ' DTSBX775 00404 DISPLAY-AMT. DTSBX775 00405 DTSBX775 00406 MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO DISPLAY-CNT. DTSBX775 00407 DISPLAY 'AUDIT INDCON TO EMPLOYER COUNT : ' DTSBX775 00408 DISPLAY-CNT. DTSBX775 00409 DTSBX775 00410 DISPLAY ' '. DTSBX775 00411 DTSBX775 00412 CLOSE STATUS-DETERM. DTSBX775 00413 DTSBX775 00414 T0000-EXIT. DTSBX775 00415 EXIT. DTSBX775 00416 DTSBX775 00417 T1000-UPDATE-LINK. DTSBX775 00418 DTSBX775 00419 MOVE WRK-AUDIT-LARGE-EMP-CNT TO XL775-AUDIT-LARGE-EMP-CNT. DTSBX775 00420 MOVE WRK-AUDIT-TOT-EMP-CNT TO XL775-AUDIT-TOT-EMP-CNT. DTSBX775 00421 MOVE WRK-AUDIT-QTR-CNT TO XL775-AUDIT-QTR-CNT. DTSBX775 00422 MOVE WRK-AUDIT-TOT-WAGES-PRE TO XL775-AUDIT-TOT-WAGES-PRE. DTSBX775 00423 MOVE WRK-AUDIT-TOT-WAGES-POST TO XL775-AUDIT-TOT-WAGES-POST.DTSBX775 00424 MOVE WRK-AUDIT-CHANGE-CNT TO XL775-AUDIT-CHANGE-CNT. DTSBX775 00425 MOVE WRK-AUDIT-HOURS-CNT TO XL775-AUDIT-HOURS-CNT. DTSBX775 00426 MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO DTSBX775 00427 XL775-AUDIT-UNDERRPT-TOT-WAGES. DTSBX775 00428 MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO DTSBX775 00429 XL775-AUDIT-UNDERRPT-TAX-WAGES. DTSBX775 00430 MOVE WRK-AUDIT-UNDERRPT-CONTRIB TO DTSBX775 00431 XL775-AUDIT-UNDERRPT-CONTRIB. DTSBX775 00432 MOVE WRK-AUDIT-OVERRPT-TOT-WAGES TO DTSBX775 00433 XL775-AUDIT-OVERRPT-TOT-WAGES. DTSBX775 00434 MOVE WRK-AUDIT-OVERRPT-TAX-WAGES TO DTSBX775 00435 XL775-AUDIT-OVERRPT-TAX-WAGES. DTSBX775 00436 MOVE WRK-AUDIT-OVERRPT-CONTRIB TO DTSBX775 00437 XL775-AUDIT-OVERRPT-CONTRIB. DTSBX775 00438 MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO DTSBX775 00439 XL775-AUDIT-INDCON-TO-EMPL-CNT. DTSBX775 00440 DTSBX775 00441 T1000-EXIT. DTSBX775 00442 EXIT. DTSBX775 00443 DTSBX775 00444 S001-FROM-FED-8. DTSBX775 00445 SET L001-FROM-FED-8 TO TRUE. DTSBX775 00446 GO TO S001-DATE. DTSBX775 00447 DTSBX775 00448 S001-FROM-ABS-DAY. DTSBX775 00449 SET L001-FROM-ABS-DAY TO TRUE. DTSBX775 00450 GO TO S001-DATE. DTSBX775 00451 DTSBX775 00452 S001-FROM-CAL-6. DTSBX775 00453 SET L001-FROM-CAL-6 TO TRUE. DTSBX775 00454 GO TO S001-DATE. DTSBX775 00455 DTSBX775 00456 S001-DATE. DTSBX775 00457 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX775 00458 S001-EXIT. DTSBX775 00459 EXIT. DTSBX775 00460 SKIP3 DTSBX775 00461 S004-FROM-5. DTSBX775 00462 SET L004-FROM-5 TO TRUE. DTSBX775 00463 GO TO S004-QTR. DTSBX775 00464 DTSBX775 00465 S004-FROM-ABS. DTSBX775 00466 SET L004-FROM-ABS TO TRUE. DTSBX775 00467 GO TO S004-QTR. DTSBX775 00468 DTSBX775 00469 S004-FROM-3. DTSBX775 00470 SET L004-FROM-3 TO TRUE. DTSBX775 00471 GO TO S004-QTR. DTSBX775 00472 DTSBX775 00473 S004-FROM-DATE. DTSBX775 00474 SET L004-FROM-DATE TO TRUE. DTSBX775 00475 GO TO S004-QTR. DTSBX775 00476 DTSBX775 00477 S004-QTR. DTSBX775 00478 DTSBX775 00479 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX775 00480 DTSBX775 00481 S004-EXIT. DTSBX775 00482 EXIT. DTSBX775 00483 SKIP3 DTSBX775 00484 S005-FROM-ABSTIME. DTSBX775 00485 SET L005-FROM-ABSTIME TO TRUE. DTSBX775 00486 GO TO S005-ABSTIME. DTSBX775 00487 DTSBX775 00488 S005-FROM-DATE-TIME. DTSBX775 00489 SET L005-FROM-DATE-TIME TO TRUE. DTSBX775 00490 GO TO S005-ABSTIME. DTSBX775 00491 DTSBX775 00492 S005-ABSTIME. DTSBX775 00493 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX775 00494 S005-EXIT. DTSBX775 00495 EXIT. DTSBX775 00496 SKIP3 DTSBX775 00497 S999-ABEND. DTSBX775 00498 DISPLAY '*** DTSBX775 ABENDING. ' DTSBX775 00499 ABEND-MSG. DTSBX775 00500 DTSBX775 00501 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX775 00502 S999-EXIT. DTSBX775 00503 EXIT. DTSBX775