508 lines
40 KiB
COBOL
508 lines
40 KiB
COBOL
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
|