00001 IDENTIFICATION DIVISION. 10/17/24 00002 PROGRAM-ID. DTSBX775. DTSBX775 00003 AUTHOR. TRW. LV002 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 '002DTSBX775 10/17/24'. DTSBX775 00101 77 PAN-VALET PICTURE X(24) VALUE '003DTSBX775 08/02/13'. DTSBX775 00102 77 PAN-VALET PICTURE X(24) VALUE '002DTSBX775 07/30/13'. DTSBX775 00103 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX775 02/01/04'. DTSBX775 00104 DTSBX775 00105 01 WRK-AREA. DTSBX775 00106 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +775.DTSBX775 00107 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX775'.DTSBX775 00108 05 ABEND-MSG PIC X(60). DTSBX775 00109 DTSBX775 00110 05 X775-STATUS PIC X(02) VALUE SPACES. DTSBX775 00111 88 X775-STATUS-OK-88 VALUE ZERO. DTSBX775 00112 DTSBX775 00113 05 WRK-VALID-EMP-SIZE-IND PIC X(01). DTSBX775 00114 88 WRK-VALID-EMP-SIZE-YES-88 VALUE 'Y'. DTSBX775 00115 88 WRK-VALID-EMP-SIZE-NO-88 VALUE 'N'. DTSBX775 00116 DTSBX775 00117 05 WRK-OBS-NBR PIC S9(07) COMP-3 VALUE +0. DTSBX775 00118 05 WRK-RECS-WRITTEN-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00119 DTSBX775 00120 05 WRK-AUDIT-LARGE-EMP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00121 05 WRK-AUDIT-TOT-EMP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00122 05 WRK-AUDIT-QTR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00123 05 WRK-AUDIT-TOT-WAGES-PRE PIC S9(11)V9(02) COMP-3 DTSBX775 00124 VALUE +0. DTSBX775 00125 05 WRK-AUDIT-TOT-WAGES-POST PIC S9(11)V9(02) COMP-3 DTSBX775 00126 VALUE +0. DTSBX775 00127 05 WRK-AUDIT-CHANGE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX775 00128 05 WRK-AUDIT-HOURS-CNT PIC S9(08)V9(01) COMP-3 DTSBX775 00129 VALUE +0. DTSBX775 00130 05 WRK-AUDIT-UNDERRPT-TOT-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00131 VALUE +0. DTSBX775 00132 05 WRK-AUDIT-UNDERRPT-TAX-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00133 VALUE +0. DTSBX775 00134 05 WRK-AUDIT-UNDERRPT-CONTRIB PIC S9(11)V9(02) COMP-3 DTSBX775 00135 VALUE +0. DTSBX775 00136 05 WRK-AUDIT-OVERRPT-TOT-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00137 VALUE +0. DTSBX775 00138 05 WRK-AUDIT-OVERRPT-TAX-WAGES PIC S9(11)V9(02) COMP-3 DTSBX775 00139 VALUE +0. DTSBX775 00140 05 WRK-AUDIT-OVERRPT-CONTRIB PIC S9(11)V9(02) COMP-3 DTSBX775 00141 VALUE +0. DTSBX775 00142 05 WRK-AUDIT-INDCON-TO-EMPL-CNT PIC S9(09) COMP-3 VALUE +0. DTSBX775 00143 DTSBX775 00144 05 DISPLAY-CNT PIC Z(13)9. DTSBX775 00145 05 DISPLAY-AMT-X PIC X(15). DTSBX775 00146 05 DISPLAY-AMT REDEFINES DISPLAY-AMT-X DTSBX775 00147 PIC ZZZ,ZZZ,ZZ9.99-. DTSBX775 00148 05 DISPLAY-HRS-X PIC X(14). DTSBX775 00149 05 DISPLAY-HOURS-CNT REDEFINES DISPLAY-HRS-X DTSBX775 00150 PIC ZZZ,ZZZ,ZZ9.9-. DTSBX775 00151 EJECT DTSBX775 00152 01 L001-LINK-AREA. DTSBX775 00153 ++INCLUDE DTSIL001 DTSBX775 00154 EJECT DTSBX775 00155 01 L004-LINK-AREA. DTSBX775 00156 ++INCLUDE DTSIL004 DTSBX775 00157 EJECT DTSBX775 00158 01 L005-LINK-AREA. DTSBX775 00159 ++INCLUDE DTSIL005 DTSBX775 00160 EJECT DTSBX775 00161 01 Y775-REC. DTSBX775 00162 ++INCLUDE DTSIY775 DTSBX775 00163 DTSBX775 00164 01 X775-REC. DTSBX775 00165 ++INCLUDE DTSIX775 DTSBX775 00166 EJECT DTSBX775 00167 LINKAGE SECTION. DTSBX775 00168 SKIP3 DTSBX775 00169 01 XL775-LINK-AREA. DTSBX775 00170 ++INCLUDE DTSXL775 DTSBX775 00171 SKIP3 DTSBX775 00172 01 X770-PARM-REC. DTSBX775 00173 ++INCLUDE DTSIX770 DTSBX775 00174 SKIP3 DTSBX775 00175 01 RSKL-REC. DTSBX775 00176 ++INCLUDE DTSIRSK1 DTSBX775 00177 EJECT DTSBX775 00178 PROCEDURE DIVISION USING XL775-LINK-AREA DTSBX775 00179 X770-PARM-REC DTSBX775 00180 RSKL-REC. DTSBX775 00181 DTSBX775 00182 IF XL775-CMD-PROCESS-88 DTSBX775 00183 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX775 00184 ELSE DTSBX775 00185 IF XL775-CMD-INIT-88 DTSBX775 00186 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBX775 00187 ELSE DTSBX775 00188 IF XL775-CMD-TERMINATE-88 DTSBX775 00189 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX775 00190 ELSE DTSBX775 00191 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBX775 00192 TO ABEND-MSG DTSBX775 00193 PERFORM S999-ABEND THRU S999-EXIT. DTSBX775 00194 SKIP2 DTSBX775 00195 GOBACK. DTSBX775 00196 EJECT DTSBX775 00197 I0000-INITIALIZE. DTSBX775 00198 OPEN OUTPUT STATUS-DETERM. DTSBX775 00199 IF NOT X775-STATUS-OK-88 DTSBX775 00200 DISPLAY 'FILE STATUS IS : ' X775-STATUS DTSBX775 00201 MOVE 'CANNOT OPEN OUTPUT FILE ' TO ABEND-MSG DTSBX775 00202 PERFORM S999-ABEND THRU S999-EXIT. DTSBX775 00203 DTSBX775 00204 MOVE +0 TO XL775-AUDIT-LARGE-EMP-CNT DTSBX775 00205 XL775-AUDIT-TOT-EMP-CNT DTSBX775 00206 XL775-AUDIT-QTR-CNT DTSBX775 00207 XL775-AUDIT-TOT-WAGES-PRE DTSBX775 00208 XL775-AUDIT-TOT-WAGES-POST DTSBX775 00209 XL775-AUDIT-CHANGE-CNT DTSBX775 00210 XL775-AUDIT-HOURS-CNT DTSBX775 00211 XL775-AUDIT-UNDERRPT-TOT-WAGES DTSBX775 00212 XL775-AUDIT-UNDERRPT-TAX-WAGES DTSBX775 00213 XL775-AUDIT-UNDERRPT-CONTRIB DTSBX775 00214 XL775-AUDIT-OVERRPT-TOT-WAGES DTSBX775 00215 XL775-AUDIT-OVERRPT-TAX-WAGES DTSBX775 00216 XL775-AUDIT-OVERRPT-CONTRIB DTSBX775 00217 XL775-AUDIT-INDCON-TO-EMPL-CNT CL**2 00218 XL775-AUDIT-NEW-EMPLOYEES-CNT. CL**2 00219 I0000-EXIT. DTSBX775 00220 EXIT. DTSBX775 00221 EJECT DTSBX775 00222 P0000-PROCESS. DTSBX775 00223 MOVE RSKL-REC TO Y775-REC. DTSBX775 00224 DTSBX775 00225 PERFORM P1000-WRITE-OUTPUT THRU P1000-EXIT. DTSBX775 00226 DTSBX775 00227 P0000-EXIT. DTSBX775 00228 EXIT. DTSBX775 00229 DTSBX775 00230 P1000-WRITE-OUTPUT. DTSBX775 00231 *& DISPLAY 'DTSBX775 ' Y775-EMP-NO. DTSBX775 00232 INITIALIZE X775-REC. DTSBX775 00233 DTSBX775 00234 SET WRK-VALID-EMP-SIZE-YES-88 TO TRUE. DTSBX775 00235 EVALUATE TRUE DTSBX775 00236 WHEN Y775-EMP-SIZE-LARGE-88 DTSBX775 00237 SET X775-EMP-SIZE-LARGE-88 TO TRUE DTSBX775 00238 DTSBX775 00239 WHEN Y775-EMP-SIZE-SMALL-88 DTSBX775 00240 SET X775-EMP-SIZE-SMALL-88 TO TRUE DTSBX775 00241 DTSBX775 00242 WHEN OTHER DTSBX775 00243 DISPLAY 'Y775-EMP-SIZE-IND INVALID ' Y775-EMP-SIZE-IND DTSBX775 00244 ' EMP-NO: ' Y775-EMP-NO DTSBX775 00245 SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE DTSBX775 00246 DTSBX775 00247 END-EVALUATE. DTSBX775 00248 DTSBX775 00249 IF WRK-VALID-EMP-SIZE-NO-88 DTSBX775 00250 GO TO P1000-EXIT. DTSBX775 00251 DTSBX775 00252 EVALUATE TRUE DTSBX775 00253 WHEN Y775-CHANGE-AUDIT-YES-88 DTSBX775 00254 SET X775-CHANGE-AUDIT-YES-88 TO TRUE DTSBX775 00255 DTSBX775 00256 WHEN Y775-CHANGE-AUDIT-NO-88 DTSBX775 00257 SET X775-CHANGE-AUDIT-NO-88 TO TRUE DTSBX775 00258 DTSBX775 00259 WHEN OTHER DTSBX775 00260 DISPLAY 'Y775-CHANGE-AUDIT-IND INVALID ' DTSBX775 00261 Y775-CHANGE-AUDIT-IND ' EMP-NO: ' Y775-EMP-NO DTSBX775 00262 SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE DTSBX775 00263 DTSBX775 00264 END-EVALUATE. DTSBX775 00265 DTSBX775 00266 IF WRK-VALID-EMP-SIZE-NO-88 DTSBX775 00267 GO TO P1000-EXIT. DTSBX775 00268 DTSBX775 00269 ADD +1 TO WRK-OBS-NBR. DTSBX775 00270 DTSBX775 00271 MOVE Y775-EMP-NO TO X775-EMP-NO. DTSBX775 00272 MOVE WRK-OBS-NBR TO X775-OBS-NBR. DTSBX775 00273 MOVE Y775-AUDIT-ID TO X775-AUDIT-ID. DTSBX775 00274 DTSBX775 00275 IF Y775-AUDIT-CMPL-DATE > ZERO DTSBX775 00276 MOVE Y775-AUDIT-CMPL-DATE TO L001-FED-8-DATE-9 DTSBX775 00277 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX775 00278 MOVE L001-SLASH-8-DATE TO X775-AUDIT-CMPL-DATE DTSBX775 00279 ELSE DTSBX775 00280 MOVE SPACES TO X775-AUDIT-CMPL-DATE. DTSBX775 00281 DTSBX775 00282 MOVE Y775-PRE-AUDIT-TOT-WAGE TO X775-PRE-AUDIT-TOT-WAGE. DTSBX775 00283 MOVE Y775-POST-AUDIT-TOT-WAGE TO X775-POST-AUDIT-TOT-WAGE. DTSBX775 00284 MOVE Y775-UNDER-RPT-TOT-WAGE TO X775-UNDER-RPT-TOT-WAGE. DTSBX775 00285 MOVE Y775-OVER-RPT-TOT-WAGE TO X775-OVER-RPT-TOT-WAGE. DTSBX775 00286 MOVE ZEROS TO X775-TOTAL-RECON. DTSBX775 00287 DTSBX775 00288 MOVE Y775-PRE-AUDIT-TAX-WAGE TO X775-PRE-AUDIT-TAX-WAGE. DTSBX775 00289 MOVE Y775-POST-AUDIT-TAX-WAGE TO X775-POST-AUDIT-TAX-WAGE. DTSBX775 00290 MOVE Y775-UNDER-RPT-TAX-WAGE TO X775-UNDER-RPT-TAX-WAGE. DTSBX775 00291 MOVE Y775-OVER-RPT-TAX-WAGE TO X775-OVER-RPT-TAX-WAGE. DTSBX775 00292 MOVE ZEROS TO X775-TAX-RECON. DTSBX775 00293 DTSBX775 00294 MOVE Y775-PRE-AUDIT-CONTRIB TO X775-PRE-AUDIT-CONTRIB. DTSBX775 00295 MOVE Y775-POST-AUDIT-CONTRIB TO X775-POST-AUDIT-CONTRIB. DTSBX775 00296 MOVE Y775-UNDER-RPT-CONTRIB TO X775-UNDER-RPT-CONTRIB. DTSBX775 00297 MOVE Y775-OVER-RPT-CONTRIB TO X775-OVER-RPT-CONTRIB. DTSBX775 00298 MOVE ZEROS TO X775-CONTRIB-RECON. DTSBX775 00299 DTSBX775 00300 MOVE SPACES TO X775-USER-FIELD. DTSBX775 00301 DTSBX775 00302 WRITE DETERM-REC FROM X775-REC. DTSBX775 00303 DTSBX775 00304 IF NOT X775-STATUS-OK-88 DTSBX775 00305 DISPLAY 'FILE STATUS IS : ' X775-STATUS DTSBX775 00306 MOVE 'WRITE OUTPUT RECORD ERROR ' TO ABEND-MSG DTSBX775 00307 PERFORM S999-ABEND THRU S999-EXIT DTSBX775 00308 ELSE DTSBX775 00309 ADD +1 TO WRK-RECS-WRITTEN-CNT DTSBX775 00310 PERFORM P2000-XL775-LINK-SUMM THRU P2000-EXIT. DTSBX775 00311 DTSBX775 00312 P1000-EXIT. DTSBX775 00313 EXIT. DTSBX775 00314 DTSBX775 00315 P2000-XL775-LINK-SUMM. DTSBX775 00316 DTSBX775 00317 IF Y775-EMP-SIZE-LARGE-88 DTSBX775 00318 ADD +1 TO WRK-AUDIT-LARGE-EMP-CNT. DTSBX775 00319 DTSBX775 00320 ADD +1 TO WRK-AUDIT-TOT-EMP-CNT. DTSBX775 00321 ADD Y775-QTR-CNT TO WRK-AUDIT-QTR-CNT. DTSBX775 00322 DTSBX775 00323 ADD Y775-PRE-AUDIT-TOT-WAGE TO WRK-AUDIT-TOT-WAGES-PRE. DTSBX775 00324 ADD Y775-POST-AUDIT-TOT-WAGE TO WRK-AUDIT-TOT-WAGES-POST. DTSBX775 00325 DTSBX775 00326 IF Y775-CHANGE-AUDIT-YES-88 DTSBX775 00327 ADD +1 TO WRK-AUDIT-CHANGE-CNT. DTSBX775 00328 DTSBX775 00329 ADD Y775-HOURS TO WRK-AUDIT-HOURS-CNT. DTSBX775 00330 DTSBX775 00331 ADD Y775-UNDER-RPT-TOT-WAGE TO WRK-AUDIT-UNDERRPT-TOT-WAGES.DTSBX775 00332 ADD Y775-UNDER-RPT-TAX-WAGE TO WRK-AUDIT-UNDERRPT-TAX-WAGES.DTSBX775 00333 ADD Y775-UNDER-RPT-CONTRIB TO WRK-AUDIT-UNDERRPT-CONTRIB. DTSBX775 00334 DTSBX775 00335 ADD Y775-OVER-RPT-TOT-WAGE TO WRK-AUDIT-OVERRPT-TOT-WAGES. DTSBX775 00336 ADD Y775-OVER-RPT-TAX-WAGE TO WRK-AUDIT-OVERRPT-TAX-WAGES. DTSBX775 00337 ADD Y775-OVER-RPT-CONTRIB TO WRK-AUDIT-OVERRPT-CONTRIB. DTSBX775 00338 DTSBX775 00339 ADD Y775-IND-CON-CNT TO WRK-AUDIT-INDCON-TO-EMPL-CNT.DTSBX775 00340 ADD Y775-NEW-EMPLOYEE-CNT TO WRK-AUDIT-INDCON-TO-EMPL-CNT. CL**2 00341 DTSBX775 00342 P2000-EXIT. DTSBX775 00343 EXIT. DTSBX775 00344 DTSBX775 00345 T0000-TERMINATE. DTSBX775 00346 PERFORM T1000-UPDATE-LINK THRU T1000-EXIT. DTSBX775 00347 DTSBX775 00348 DISPLAY ' '. DTSBX775 00349 DTSBX775 00350 DISPLAY '*** DTSBX775 TERMINATION STATISTICS ***'. DTSBX775 00351 DTSBX775 00352 DISPLAY ' '. DTSBX775 00353 MOVE WRK-RECS-WRITTEN-CNT TO DISPLAY-CNT. DTSBX775 00354 DISPLAY 'AUDIT RECORDS WRITTEN : ' DTSBX775 00355 DISPLAY-CNT. DTSBX775 00356 DTSBX775 00357 MOVE WRK-AUDIT-LARGE-EMP-CNT TO DISPLAY-CNT. DTSBX775 00358 DISPLAY 'AUDIT LARGE EMPLOYER COUNT : ' DTSBX775 00359 DISPLAY-CNT. DTSBX775 00360 DTSBX775 00361 MOVE WRK-AUDIT-TOT-EMP-CNT TO DISPLAY-CNT. DTSBX775 00362 DISPLAY 'AUDIT TOTAL EMPLOYER COUNT : ' DTSBX775 00363 DISPLAY-CNT. DTSBX775 00364 DTSBX775 00365 MOVE WRK-AUDIT-QTR-CNT TO DISPLAY-CNT. DTSBX775 00366 DISPLAY 'AUDIT QUARTER COUNT : ' DTSBX775 00367 DISPLAY-CNT. DTSBX775 00368 DTSBX775 00369 MOVE WRK-AUDIT-TOT-WAGES-PRE TO DISPLAY-AMT. DTSBX775 00370 DISPLAY 'AUDIT TOTAL WAGES - PREVIOUS : ' DTSBX775 00371 DISPLAY-AMT. DTSBX775 00372 DTSBX775 00373 MOVE WRK-AUDIT-TOT-WAGES-POST TO DISPLAY-AMT. DTSBX775 00374 DISPLAY 'AUDIT TOTAL WAGES - POST : ' DTSBX775 00375 DISPLAY-AMT. DTSBX775 00376 DTSBX775 00377 MOVE WRK-AUDIT-CHANGE-CNT TO DISPLAY-CNT. DTSBX775 00378 DISPLAY 'AUDIT CHANGE COUNT : ' DTSBX775 00379 DISPLAY-CNT. DTSBX775 00380 DTSBX775 00381 MOVE WRK-AUDIT-HOURS-CNT TO DISPLAY-HOURS-CNT. DTSBX775 00382 DISPLAY 'AUDIT HOURS COUNT : ' DTSBX775 00383 DISPLAY-HOURS-CNT. DTSBX775 00384 DTSBX775 00385 MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO DISPLAY-AMT. DTSBX775 00386 DISPLAY 'AUDIT UNDER REPORT TOTAL WAGES : ' DTSBX775 00387 DISPLAY-AMT. DTSBX775 00388 DTSBX775 00389 MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO DISPLAY-AMT. DTSBX775 00390 DISPLAY 'AUDIT UNDER REPORT TAX WAGES : ' DTSBX775 00391 DISPLAY-AMT. DTSBX775 00392 DTSBX775 00393 MOVE WRK-AUDIT-UNDERRPT-CONTRIB TO DISPLAY-AMT. DTSBX775 00394 DISPLAY 'AUDIT UNDER REPORT CONTRIBUTION : ' DTSBX775 00395 DISPLAY-AMT. DTSBX775 00396 DTSBX775 00397 MOVE WRK-AUDIT-OVERRPT-TOT-WAGES TO DISPLAY-AMT. DTSBX775 00398 DISPLAY 'AUDIT OVER REPORT TOTAL WAGES : ' DTSBX775 00399 DISPLAY-AMT. DTSBX775 00400 DTSBX775 00401 MOVE WRK-AUDIT-OVERRPT-TAX-WAGES TO DISPLAY-AMT. DTSBX775 00402 DISPLAY 'AUDIT OVER REPORT TAX WAGES : ' DTSBX775 00403 DISPLAY-AMT. DTSBX775 00404 DTSBX775 00405 MOVE WRK-AUDIT-OVERRPT-CONTRIB TO DISPLAY-AMT. DTSBX775 00406 DISPLAY 'AUDIT OVER REPORT CONTRIBUTION : ' DTSBX775 00407 DISPLAY-AMT. DTSBX775 00408 DTSBX775 00409 MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO DISPLAY-CNT. DTSBX775 00410 DISPLAY 'AUDIT INDCON TO EMPLOYER COUNT : ' DTSBX775 00411 DISPLAY-CNT. DTSBX775 00412 DTSBX775 00413 DISPLAY ' '. DTSBX775 00414 DTSBX775 00415 CLOSE STATUS-DETERM. DTSBX775 00416 DTSBX775 00417 T0000-EXIT. DTSBX775 00418 EXIT. DTSBX775 00419 DTSBX775 00420 T1000-UPDATE-LINK. DTSBX775 00421 DTSBX775 00422 MOVE WRK-AUDIT-LARGE-EMP-CNT TO XL775-AUDIT-LARGE-EMP-CNT. DTSBX775 00423 MOVE WRK-AUDIT-TOT-EMP-CNT TO XL775-AUDIT-TOT-EMP-CNT. DTSBX775 00424 MOVE WRK-AUDIT-QTR-CNT TO XL775-AUDIT-QTR-CNT. DTSBX775 00425 MOVE WRK-AUDIT-TOT-WAGES-PRE TO XL775-AUDIT-TOT-WAGES-PRE. DTSBX775 00426 MOVE WRK-AUDIT-TOT-WAGES-POST TO XL775-AUDIT-TOT-WAGES-POST.DTSBX775 00427 MOVE WRK-AUDIT-CHANGE-CNT TO XL775-AUDIT-CHANGE-CNT. DTSBX775 00428 MOVE WRK-AUDIT-HOURS-CNT TO XL775-AUDIT-HOURS-CNT. DTSBX775 00429 MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO DTSBX775 00430 XL775-AUDIT-UNDERRPT-TOT-WAGES. DTSBX775 00431 MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO DTSBX775 00432 XL775-AUDIT-UNDERRPT-TAX-WAGES. DTSBX775 00433 MOVE WRK-AUDIT-UNDERRPT-CONTRIB TO DTSBX775 00434 XL775-AUDIT-UNDERRPT-CONTRIB. DTSBX775 00435 MOVE WRK-AUDIT-OVERRPT-TOT-WAGES TO DTSBX775 00436 XL775-AUDIT-OVERRPT-TOT-WAGES. DTSBX775 00437 MOVE WRK-AUDIT-OVERRPT-TAX-WAGES TO DTSBX775 00438 XL775-AUDIT-OVERRPT-TAX-WAGES. DTSBX775 00439 MOVE WRK-AUDIT-OVERRPT-CONTRIB TO DTSBX775 00440 XL775-AUDIT-OVERRPT-CONTRIB. DTSBX775 00441 MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO DTSBX775 00442 XL775-AUDIT-INDCON-TO-EMPL-CNT. DTSBX775 00443 DTSBX775 00444 T1000-EXIT. DTSBX775 00445 EXIT. DTSBX775 00446 DTSBX775 00447 S001-FROM-FED-8. DTSBX775 00448 SET L001-FROM-FED-8 TO TRUE. DTSBX775 00449 GO TO S001-DATE. DTSBX775 00450 DTSBX775 00451 S001-FROM-ABS-DAY. DTSBX775 00452 SET L001-FROM-ABS-DAY TO TRUE. DTSBX775 00453 GO TO S001-DATE. DTSBX775 00454 DTSBX775 00455 S001-FROM-CAL-6. DTSBX775 00456 SET L001-FROM-CAL-6 TO TRUE. DTSBX775 00457 GO TO S001-DATE. DTSBX775 00458 DTSBX775 00459 S001-DATE. DTSBX775 00460 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX775 00461 S001-EXIT. DTSBX775 00462 EXIT. DTSBX775 00463 SKIP3 DTSBX775 00464 S004-FROM-5. DTSBX775 00465 SET L004-FROM-5 TO TRUE. DTSBX775 00466 GO TO S004-QTR. DTSBX775 00467 DTSBX775 00468 S004-FROM-ABS. DTSBX775 00469 SET L004-FROM-ABS TO TRUE. DTSBX775 00470 GO TO S004-QTR. DTSBX775 00471 DTSBX775 00472 S004-FROM-3. DTSBX775 00473 SET L004-FROM-3 TO TRUE. DTSBX775 00474 GO TO S004-QTR. DTSBX775 00475 DTSBX775 00476 S004-FROM-DATE. DTSBX775 00477 SET L004-FROM-DATE TO TRUE. DTSBX775 00478 GO TO S004-QTR. DTSBX775 00479 DTSBX775 00480 S004-QTR. DTSBX775 00481 DTSBX775 00482 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX775 00483 DTSBX775 00484 S004-EXIT. DTSBX775 00485 EXIT. DTSBX775 00486 SKIP3 DTSBX775 00487 S005-FROM-ABSTIME. DTSBX775 00488 SET L005-FROM-ABSTIME TO TRUE. DTSBX775 00489 GO TO S005-ABSTIME. DTSBX775 00490 DTSBX775 00491 S005-FROM-DATE-TIME. DTSBX775 00492 SET L005-FROM-DATE-TIME TO TRUE. DTSBX775 00493 GO TO S005-ABSTIME. DTSBX775 00494 DTSBX775 00495 S005-ABSTIME. DTSBX775 00496 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX775 00497 S005-EXIT. DTSBX775 00498 EXIT. DTSBX775 00499 SKIP3 DTSBX775 00500 S999-ABEND. DTSBX775 00501 DISPLAY '*** DTSBX775 ABENDING. ' DTSBX775 00502 ABEND-MSG. DTSBX775 00503 DTSBX775 00504 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX775 00505 S999-EXIT. DTSBX775 00506 EXIT. DTSBX775