00001 IDENTIFICATION DIVISION. 06/19/13 00002 PROGRAM-ID. DTSBE327. DTSBE327 00003 AUTHOR. NGC LV003 00004 DATE-WRITTEN. SEPTEMBER 2006. DTSBE327 00005 DATE-COMPILED. DTSBE327 00006 SKIP3 DTSBE327 00007 ***** DTSBE327 00008 * COMPUTES ONLY ONE QUARTER OF ASSESSMENTS FOR NOW. DTSBE327 00009 * DTSBE327 00010 * DTSBE327 00011 * FUNCTION: COMPUTE ADMINISTRATIVE TAX (SUR CHARGE) FOR DTSBE327 00012 * SELF INSURED EMPLOYERS. DTSBE327 00013 ***** DTSBE327 00014 SKIP3 DTSBE327 00015 ENVIRONMENT DIVISION. DTSBE327 00016 SKIP2 DTSBE327 00017 CONFIGURATION SECTION. DTSBE327 00018 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBE327 00019 INPUT-OUTPUT SECTION. DTSBE327 00020 DTSBE327 00021 FILE-CONTROL. DTSBE327 00022 SELECT DOWNLOAD-FILE ASSIGN TO DTSF327 DTSBE327 00023 FILE STATUS IS DWN-STATUS. DTSBE327 00024 DTSBE327 00025 SELECT WESQ-FILE ASSIGN TO DTSWESQ DTSBE327 00026 ORGANIZATION IS INDEXED DTSBE327 00027 RECORD KEY IS WESQ-KEY-AREA DTSBE327 00028 FILE STATUS IS WESQ-FILE-STATUS DTSBE327 00029 ACCESS IS SEQUENTIAL. DTSBE327 00030 DTSBE327 00031 DATA DIVISION. DTSBE327 00032 DTSBE327 00033 FILE SECTION. DTSBE327 00034 FD DOWNLOAD-FILE DTSBE327 00035 RECORDING MODE IS F. DTSBE327 00036 01 DOWNLOAD-REC PIC X(114). DTSBE327 00037 DTSBE327 00038 FD WESQ-FILE. DTSBE327 00039 01 WESQ-REC. DTSBE327 00040 ++INCLUDE DTSIWESQ DTSBE327 00041 DTSBE327 00042 DTSBE327 00043 WORKING-STORAGE SECTION. DTSBE327 000435 77 PAN-VALET PICTURE X(24) VALUE '003DTSBE327 06/19/13'. DTSBE327 00044 77 PAN-VALET PICTURE X(24) VALUE '003DTSBE327 06/19/13'. DTSBE327 00045 77 PAN-VALET PICTURE X(24) VALUE '001DTSBE327 06/18/13'. DTSBE327 00046 77 PAN-VALET PICTURE X(24) VALUE '004DTSBE327 06/17/13'. DTSBE327 00047 77 PAN-VALET PICTURE X(24) VALUE '020DTSBE325 03/19/13'. DTSBE327 00048 SKIP3 DTSBE327 00049 01 WRK-AREA. DTSBE327 00050 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +327.DTSBE327 00051 DTSBE327 00052 05 ABEND-MSG PIC X(60). DTSBE327 00053 DTSBE327 00054 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE327'.DTSBE327 00055 DTSBE327 00056 05 WRK-CONSTANTS. DTSBE327 00057 10 WRK-MAX-PCT PIC S9V9(04) COMP-3 DTSBE327 00058 VALUE +0.1. DTSBE327 00059 10 WRK-MAX-WAGE-DIFF PIC S9(11)V9(02) COMP-3 DTSBE327 00060 VALUE +100000. DTSBE327 00061 05 WESQ-FILE-STATUS PIC X(02). DTSBE327 00062 88 WESQ-FILE-OK-88 VALUE '00'. DTSBE327 00063 88 WESQ-FILE-NO-REC-88 VALUE '10' '23'. DTSBE327 00064 88 WESQ-FILE-VERIFY-88 VALUE '97'. DTSBE327 00065 DTSBE327 00066 05 RPT-STATUS PIC X(02). DTSBE327 00067 88 RPT-STATUS-OK-88 VALUE '00'. DTSBE327 00068 05 DWN-STATUS PIC X(02). DTSBE327 00069 88 DWN-STATUS-OK-88 VALUE '00'. DTSBE327 00070 05 WRK-QTR-FOUND-IND PIC X(01). DTSBE327 00071 88 WRK-QTR-FOUND-YES-88 VALUE 'Y'. DTSBE327 00072 88 WRK-QTR-FOUND-NO-88 VALUE 'N'. DTSBE327 00073 05 WRK-ERROR-IND PIC X(01). DTSBE327 00074 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBE327 00075 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBE327 00076 DTSBE327 00077 *********************************************************** DTSBE327 00078 * THE FOLLOWING INDICATOR SHOWS THE DIFFERENCE BETWEEN DTSBE327 00079 * THE UC-30 REPORTED WAGES AND THE WAGE FILE WAGES. DTSBE327 00080 * EXACT: NO DIFFERENCE. DTSBE327 00081 * TOL: WITHIN TOLERANCE ($0.99 * EMPLOYEE COUNT) DTSBE327 00082 * UNDER MAX: DIFFERENCE < 10% AND UNDER $100,000.00 DTSBE327 00083 * NO ASSESS: DIFFERENCE IS TOO GREAT - NO ASSESSMENT DTSBE327 00084 * CHARGED. DTSBE327 00085 * DTSBE327 00086 * IF THE COMPUTED AMOUNT FROM ACTUAL EARNINGS IS DTSBE327 00087 * GREATER THAN THE AMOUNT REPORTED ON THE UC-30, DTSBE327 00088 * THE COMPUTED AMOUNT WILL BE USED. DTSBE327 00089 *********************************************************** DTSBE327 00090 05 WRK-ASSESS-STATUS PIC X(01). DTSBE327 00091 88 WRK-ASSESS-EXACT-88 VALUE '0'. DTSBE327 00092 88 WRK-ASSESS-TOL-88 VALUE '1'. DTSBE327 00093 88 WRK-ASSESS-UNDER-MAX-88 VALUE '2'. DTSBE327 00094 88 WRK-ASSESS-OVER-MAX-88 VALUE '3'. DTSBE327 00095 88 WRK-NO-WAGES-88 VALUE '4'. DTSBE327 00096 88 WRK-NO-ASSESS-88 VALUE '3' '4'. DTSBE327 00097 88 WRK-CHARGE-ASSESS-88 VALUE '0' '1' '2'. DTSBE327 00098 DTSBE327 00099 05 WRK-STATUS-CNTS. DTSBE327 00100 10 WRK-EXACT-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE327 00101 10 WRK-TOL-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE327 00102 10 WRK-UNDER-MAX-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE327 00103 10 WRK-OVER-MAX-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE327 00104 10 WRK-NO-WAGES-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE327 00105 10 WRK-INACT-CNT PIC S9(07) COMP-3 VALUE 0. DTSBE327 00106 DTSBE327 00107 05 WRK-T026-CNT PIC S9(07) COMP-3 DTSBE327 00108 VALUE +0. DTSBE327 00109 05 WRK-MPRF-CNT PIC S9(07) COMP-3 DTSBE327 00110 VALUE +0. DTSBE327 00111 DTSBE327 00112 05 WRK-SUR-RATE PIC S9V9(04) COMP-3. DTSBE327 00113 05 WRK-START-YRQ PIC S9(05) COMP-3 VALUE 0. DTSBE327 00114 05 WRK-END-YRQ PIC S9(05) COMP-3 VALUE 0. DTSBE327 00115 05 WRK-CURR-YRQ PIC S9(05) COMP-3 VALUE 0. DTSBE327 00116 05 WRK-CURR-ASSESS PIC S9(11)V9(02) COMP-3. DTSBE327 00117 05 WRK-ASSESS-CHNG PIC S9(11)V9(02) COMP-3. DTSBE327 00118 05 WRK-EMP-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSBE327 00119 05 WRK-EMP-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSBE327 00120 05 WRK-TAX-REMAIN PIC S9(11)V9(02) COMP-3. DTSBE327 00121 05 WRK-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSBE327 00122 DTSBE327 00123 05 WRK-PCT PIC S9V9(04) COMP-3. DTSBE327 00124 05 SUB PIC S9(04) COMP. DTSBE327 00125 05 WRK-QTR-TABLE-MAX PIC S9(04) COMP VALUE +9. DTSBE327 00126 05 WRK-QTR-TABLE OCCURS 9 TIMES. DTSBE327 00127 10 WRK-QTR-YRQ PIC S9(05) COMP-3. DTSBE327 00128 10 WRK-QTR-RATE PIC S9V9(04) COMP-3. DTSBE327 00129 10 WRK-QTR-OLD-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSBE327 00130 10 WRK-QTR-OLD-ASSESSMT PIC S9(11)V9(02) COMP-3. DTSBE327 00131 10 WRK-QTR-NEW-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSBE327 00132 10 WRK-QTR-NEW-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSBE327 00133 10 WRK-QTR-NEW-ASSESSMT PIC S9(11)V9(02) COMP-3. DTSBE327 00134 10 WRK-QTR-EMP-CNT PIC S9(07) COMP-3. DTSBE327 00135 DTSBE327 00136 05 WRK-WAGE-TOLERANCE PIC S9(11)V9(02) COMP-3. DTSBE327 00137 05 WRK-WAGE-DIFF PIC S9(11)V9(02) COMP-3. DTSBE327 00138 DTSBE327 00139 05 WRK-TAX-WAGES PIC S9(11)V9(02) COMP-3. DTSBE327 00140 05 WRK-TAX-REMAINING PIC S9(11)V9(02) COMP-3. DTSBE327 00141 05 WRK-TAX-AMT PIC S9(09)V9(02) COMP-3. DTSBE327 00142 05 WRK-TOT-TAX-CHG PIC S9(09)V9(02) COMP-3. DTSBE327 00143 DTSBE327 00144 DTSBE327 00145 05 WRK-DOWNLOAD-REC. DTSBE327 00146 10 WRK-DWN-EMP PIC 9(06). DTSBE327 00147 10 FILLER PIC X(01) VALUE ','. DTSBE327 00148 10 WRK-DWN-NAME PIC X(40). DTSBE327 00149 10 FILLER PIC X(01) VALUE ','. DTSBE327 00150 10 WRK-DWN-YRQ PIC X(06). DTSBE327 00151 10 FILLER PIC X(01) VALUE ','. DTSBE327 00152 10 WRK-DWN-TAX-WAGE PIC ----------9.99. DTSBE327 00153 10 FILLER PIC X(01) VALUE ','. DTSBE327 00154 10 WRK-DWN-OLD-ASSESS PIC ----------9.99. DTSBE327 00155 10 FILLER PIC X(01) VALUE ','. DTSBE327 00156 10 WRK-DWN-NEW-ASSESS PIC ----------9.99. DTSBE327 00157 10 FILLER PIC X(01) VALUE ','. DTSBE327 00158 10 WRK-DWN-ASSESS-CHNG PIC ----------9.99. DTSBE327 00159 DTSBE327 00160 05 WRK-TAX-WAGE-BASE PIC S9(07)V99 COMP-3. DTSBE327 00161 DTSBE327 00162 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBE327 00163 DTSBE327 00164 05 WRK-TRACE-IND PIC X(01). DTSBE327 00165 DTSBE327 00166 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBE327 00167 DTSBE327 00168 05 AMT-DISP1 PIC -,---,---,--9.99. DTSBE327 00169 05 AMT-DISP2 PIC -,---,---,--9.99. DTSBE327 00170 05 AMT-DISP3 PIC -,---,---,--9.99. DTSBE327 00171 05 AMT-DISP4 PIC -,---,---,--9.99. DTSBE327 00172 05 DISP-RATE PIC 9.9999. DTSBE327 00173 05 DISP-DATE1 PIC X(10). DTSBE327 00174 05 DISP-DATE2 PIC X(10). DTSBE327 00175 DTSBE327 00176 DTSBE327 00177 01 L001-LINK-AREA. DTSBE327 00178 ++INCLUDE DTSIL001 DTSBE327 00179 EJECT DTSBE327 00180 01 L005-LINK-AREA. DTSBE327 00181 ++INCLUDE DTSIL005 DTSBE327 00182 EJECT DTSBE327 00183 01 L109-LINK-AREA. DTSBE327 00184 ++INCLUDE DTSIL109 DTSBE327 00185 EJECT DTSBE327 00186 01 L111-LINK-AREA. DTSBE327 00187 ++INCLUDE DTSIL111 DTSBE327 00188 EJECT DTSBE327 00189 01 L112-LINK-AREA. DTSBE327 00190 ++INCLUDE DTSIL112 DTSBE327 00191 EJECT DTSBE327 00192 01 L910-LINK-AREA. DTSBE327 00193 ++INCLUDE DTSIL910 DTSBE327 00194 EJECT DTSBE327 00195 01 L981-LINK-AREA. DTSBE327 00196 ++INCLUDE DTSIL981 DTSBE327 00197 EJECT DTSBE327 00198 01 MSKL-REC. DTSBE327 00199 ++INCLUDE DTSIMSKL DTSBE327 00200 EJECT DTSBE327 00201 01 MHDR-REC. DTSBE327 00202 ++INCLUDE DTSIMHDR DTSBE327 00203 EJECT DTSBE327 00204 01 MQTR-REC. DTSBE327 00205 ++INCLUDE DTSIMQTR DTSBE327 00206 EJECT DTSBE327 00207 01 MRPT-REC. DTSBE327 00208 ++INCLUDE DTSIMRPT DTSBE327 00209 EJECT DTSBE327 00210 01 MEVL-REC. DTSBE327 00211 ++INCLUDE DTSIMEVL DTSBE327 00212 EJECT DTSBE327 00213 01 L921-LINK-AREA. DTSBE327 00214 ++INCLUDE DTSIL921 DTSBE327 00215 EJECT DTSBE327 00216 01 ISKL-REC. DTSBE327 00217 ++INCLUDE DTSIISKL DTSBE327 00218 EJECT DTSBE327 00219 01 L931-LINK-AREA. DTSBE327 00220 ++INCLUDE DTSIL931 DTSBE327 00221 EJECT DTSBE327 00222 01 FSKL-REC. DTSBE327 00223 ++INCLUDE DTSIFSKL DTSBE327 00224 EJECT DTSBE327 00225 EJECT DTSBE327 00226 01 FQTR-REC. DTSBE327 00227 ++INCLUDE DTSIFQTR DTSBE327 00228 EJECT DTSBE327 00229 01 WWGH-REC. DTSBE327 00230 ++INCLUDE DTSIWWGH DTSBE327 00231 EJECT DTSBE327 00232 01 R325-REC. DTSBE327 00233 ++INCLUDE DTSIR325 DTSBE327 00234 EJECT DTSBE327 00235 01 T026-REC. DTSBE327 00236 ++INCLUDE DTSIT026 DTSBE327 00237 EJECT DTSBE327 00238 DTSBE327 00239 01 L004-COMM-AREA. DTSBE327 00240 ++INCLUDE DTSIL004 DTSBE327 00241 EJECT DTSBE327 00242 01 L927-LINK-AREA. DTSBE327 00243 ++INCLUDE DTSIL927 DTSBE327 00244 EJECT DTSBE327 00245 LINKAGE SECTION. DTSBE327 00246 SKIP3 DTSBE327 00247 01 LECM-LINK-AREA. DTSBE327 00248 ++INCLUDE DTSILECM DTSBE327 00249 DTSBE327 00250 01 MPRF-LINK-REC. DTSBE327 00251 ++INCLUDE DTSIMPRF DTSBE327 00252 DTSBE327 00253 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE327 00254 MPRF-LINK-REC. DTSBE327 00255 EVALUATE TRUE DTSBE327 00256 WHEN LECM-INITIALIZE-88 DTSBE327 00257 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBE327 00258 DTSBE327 00259 WHEN LECM-PROCESS-88 DTSBE327 00260 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE327 00261 DTSBE327 00262 WHEN LECM-TERMINATE-88 DTSBE327 00263 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE327 00264 DTSBE327 00265 WHEN OTHER DTSBE327 00266 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE327 00267 TO ABEND-MSG DTSBE327 00268 PERFORM S999-ABEND THRU S999-EXIT DTSBE327 00269 END-EVALUATE. DTSBE327 00270 DTSBE327 00271 GOBACK. DTSBE327 00272 DTSBE327 00273 I0000-INITIATE. DTSBE327 00274 SET WRK-ERROR-NO-88 TO TRUE. DTSBE327 00275 DTSBE327 00276 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBE327 00277 DTSBE327 00278 PERFORM I3000-SUR-TAX-INFO THRU I3000-EXIT. DTSBE327 00279 DTSBE327 00280 PERFORM I4000-INIT-T026 THRU I4000-EXIT. DTSBE327 00281 DTSBE327 00282 PERFORM I5000-INIT-WORK THRU I5000-EXIT. DTSBE327 00283 DTSBE327 00284 I0000-EXIT. DTSBE327 00285 EXIT. DTSBE327 00286 DTSBE327 00287 I2000-OPEN-FILES-1. DTSBE327 00288 OPEN OUTPUT DOWNLOAD-FILE DTSBE327 00289 IF NOT DWN-STATUS-OK-88 DTSBE327 00290 DISPLAY 'CANNOT OPEN DOWNLOAD FILE' DWN-STATUS DTSBE327 00291 SET WRK-ERROR-YES-88 TO TRUE DTSBE327 00292 GO TO I2000-EXIT DTSBE327 00293 END-IF. DTSBE327 00294 DTSBE327 00295 OPEN INPUT WESQ-FILE. DTSBE327 00296 IF WESQ-FILE-OK-88 OR WESQ-FILE-VERIFY-88 DTSBE327 00297 NEXT SENTENCE DTSBE327 00298 ELSE DTSBE327 00299 DISPLAY 'CANNOT OPEN WESQ-FILE ' WESQ-FILE-STATUS DTSBE327 00300 SET WRK-ERROR-YES-88 TO TRUE DTSBE327 00301 GO TO I2000-EXIT DTSBE327 00302 END-IF. DTSBE327 00303 DTSBE327 00304 DTSBE327 00305 MOVE LECM-TRACE-IND TO L910-TRACE-IND. DTSBE327 00306 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBE327 00307 DTSBE327 00308 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE327 00309 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE327 00310 DTSBE327 00311 I2000-EXIT. DTSBE327 00312 EXIT. DTSBE327 00313 DTSBE327 00314 I3000-SUR-TAX-INFO. DTSBE327 00315 PERFORM I3100-READ-MHDR THRU I3100-EXIT. DTSBE327 00316 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBE327 00317 DTSBE327 00318 PERFORM S109-SUR-RATE-FIRST-QTR THRU S109-FIRST-EXIT. DTSBE327 00319 MOVE L109-TAX-WAGE-BASE TO WRK-TAX-WAGE-BASE. DTSBE327 00320 DTSBE327 00321 MOVE MHDR-CURR-RUN-DATE TO L004-DATE. DTSBE327 00322 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE327 00323 IF MHDR-CURR-RUN-DATE < L004-QTR-END-DATE DTSBE327 00324 SUBTRACT +1 FROM L004-ABS-QTR DTSBE327 00325 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBE327 00326 END-IF. DTSBE327 00327 MOVE L004-QTR-5-9 TO WRK-END-YRQ. DTSBE327 00328 DTSBE327 00329 * MOVE L004-DATE TO L001-FED-8-DATE-9. DTSBE327 00330 * SUBTRACT 1 FROM L001-FED-8-YR. DTSBE327 00331 * MOVE L001-FED-8-DATE-9 TO L004-DATE. DTSBE327 00332 * PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE327 00333 DTSBE327 00334 SUBTRACT +1 FROM L004-ABS-QTR. DTSBE327 00335 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBE327 00336 IF L004-QTR-5-9 < L109-YRQ DTSBE327 00337 MOVE L109-YRQ TO WRK-START-YRQ DTSBE327 00338 ELSE DTSBE327 00339 MOVE L004-QTR-5-9 TO WRK-START-YRQ DTSBE327 00340 END-IF. DTSBE327 00341 DTSBE327 00342 DISPLAY 'DEFAULT START QUARTER ' WRK-START-YRQ. DTSBE327 00343 * MOVE 20131 TO WRK-START-YRQ. DTSBE327 00344 * MOVE 20131 TO WRK-END-YRQ. DTSBE327 00345 DTSBE327 00346 MOVE WRK-END-YRQ TO WRK-START-YRQ. DTSBE327 00347 MOVE WRK-START-YRQ TO L004-QTR-5-9. DTSBE327 00348 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE327 00349 DISPLAY 'DTSBE327 START QUARTER ' L004-SLASH-5-QTR. DTSBE327 00350 DTSBE327 00351 MOVE WRK-END-YRQ TO L004-QTR-5-9. DTSBE327 00352 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE327 00353 DISPLAY 'DTSBE327 END QUARTER ' L004-SLASH-5-QTR. DTSBE327 00354 DTSBE327 00355 MOVE MHDR-CURR-RUN-DATE TO L001-FED-8-DATE-9. DTSBE327 00356 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE327 00357 DISPLAY 'DTSBE327 CURR RUN DATE ' L001-SLASH-8-DATE. DTSBE327 00358 DTSBE327 00359 PERFORM I3200-TAX-RATES THRU I3200-EXIT. DTSBE327 00360 DTSBE327 00361 I3000-EXIT. DTSBE327 00362 EXIT. DTSBE327 00363 DTSBE327 00364 I3100-READ-MHDR. DTSBE327 00365 MOVE LOW-VALUES TO MSKL-REC. DTSBE327 00366 MOVE +0 TO MSKL-EMP-NO. DTSBE327 00367 SET MSKL-HDR-88 TO TRUE. DTSBE327 00368 DTSBE327 00369 PERFORM S910-READ THRU S910-EXIT. DTSBE327 00370 IF L910-NO-REC-88 DTSBE327 00371 DISPLAY 'DTSBE327: MHDR RECORD IS MISSING' DTSBE327 00372 SET WRK-ERROR-YES-88 TO TRUE DTSBE327 00373 GO TO I3100-EXIT DTSBE327 00374 ELSE DTSBE327 00375 MOVE MSKL-REC TO MHDR-REC DTSBE327 00376 END-IF. DTSBE327 00377 DTSBE327 00378 DTSBE327 00379 I3100-EXIT. DTSBE327 00380 EXIT. DTSBE327 00381 DTSBE327 00382 I3200-TAX-RATES. DTSBE327 00383 MOVE WRK-START-YRQ TO L004-QTR-5-9. DTSBE327 00384 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE327 00385 DISPLAY SPACE. DTSBE327 00386 DISPLAY 'ASSESSMENT RATES: '. DTSBE327 00387 DISPLAY SPACE. DTSBE327 00388 DTSBE327 00389 PERFORM DTSBE327 00390 VARYING SUB FROM +1 BY +1 DTSBE327 00391 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE327 00392 MOVE L004-QTR-5-9 TO L109-YRQ DTSBE327 00393 WRK-QTR-YRQ (SUB) DTSBE327 00394 PERFORM S109-SUR-BY-QTR THRU S109-QTR-EXIT DTSBE327 00395 MOVE L109-SUR-RATE TO WRK-QTR-RATE (SUB) DTSBE327 00396 DISP-RATE DTSBE327 00397 DISPLAY ' ' L004-SLASH-5-QTR ' : ' DISP-RATE DTSBE327 00398 ' ' L109-SUR-RATE DTSBE327 00399 ADD +1 TO L004-ABS-QTR DTSBE327 00400 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBE327 00401 END-PERFORM. DTSBE327 00402 DTSBE327 00403 I3200-EXIT. DTSBE327 00404 EXIT. DTSBE327 00405 DTSBE327 00406 I4000-INIT-T026. DTSBE327 00407 MOVE LENGTH OF T026-REC TO T026-LENGTH. DTSBE327 00408 MOVE '026' TO T026-REC-TYPE. DTSBE327 00409 MOVE 'DTSBE327' TO T026-ORIGIN. DTSBE327 00410 MOVE L005-DATE TO T026-SYS-DATE. DTSBE327 00411 MOVE L005-TIME TO T026-SYS-TIME. DTSBE327 00412 MOVE LOW-VALUES TO T026-DATA-AREA. DTSBE327 00413 DTSBE327 00414 I4000-EXIT. DTSBE327 00415 EXIT. DTSBE327 00416 DTSBE327 00417 I5000-INIT-WORK. DTSBE327 00418 PERFORM DTSBE327 00419 VARYING SUB FROM +1 BY +1 DTSBE327 00420 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE327 00421 MOVE ZERO TO WRK-QTR-OLD-TOT-WAGE (SUB) DTSBE327 00422 WRK-QTR-OLD-ASSESSMT (SUB) DTSBE327 00423 WRK-QTR-EMP-CNT (SUB) DTSBE327 00424 WRK-QTR-NEW-TOT-WAGE (SUB) DTSBE327 00425 WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE327 00426 WRK-QTR-NEW-ASSESSMT (SUB) DTSBE327 00427 END-PERFORM. DTSBE327 00428 DTSBE327 00429 I5000-EXIT. DTSBE327 00430 EXIT. DTSBE327 00431 DTSBE327 00432 P0000-PROCESS. DTSBE327 00433 IF WRK-ERROR-YES-88 DTSBE327 00434 GO TO P0000-EXIT DTSBE327 00435 END-IF. DTSBE327 00436 DTSBE327 00437 PERFORM I5000-INIT-WORK THRU I5000-EXIT. DTSBE327 00438 DTSBE327 00439 IF MPRF-CLASS-SELF-INS-88 DTSBE327 00440 ADD +1 TO WRK-MPRF-CNT DTSBE327 00441 PERFORM P1200-CURR-ASSESSMENT THRU P1200-EXIT DTSBE327 00442 PERFORM P1300-NEW-ASSESSMENT THRU P1300-EXIT DTSBE327 00443 PERFORM P2000-CHECK-FOR-UPDATE THRU P2000-EXIT DTSBE327 00444 END-IF. DTSBE327 00445 DTSBE327 00446 P0000-EXIT. DTSBE327 00447 EXIT. DTSBE327 00448 DTSBE327 00449 P1200-CURR-ASSESSMENT. DTSBE327 00450 IF MPRF-STATUS-ACT-88 DTSBE327 00451 ADD +1 TO WRK-INACT-CNT. DTSBE327 00452 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE327 00453 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE327 00454 MOVE WRK-START-YRQ TO MQTR-YRQ. DTSBE327 00455 SET MQTR-QTR-88 TO TRUE DTSBE327 00456 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE327 00457 DTSBE327 00458 DISPLAY ' *****EMP NO ' MPRF-EMP-NO. DTSBE327 00459 DISPLAY ' WRK START YRQ ' WRK-START-YRQ. DTSBE327 00460 DISPLAY ' WRK QTR YRQ ' WRK-QTR-YRQ (SUB). DTSBE327 00461 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE327 00462 PERFORM UNTIL L910-NO-REC-88 DTSBE327 00463 MOVE MSKL-REC TO MQTR-REC DTSBE327 00464 DISPLAY 'MQTR-YRQ ' MQTR-YRQ ' END-YRQ ' WRK-END-YRQ DTSBE327 00465 IF MQTR-YRQ > WRK-END-YRQ DTSBE327 00466 SET L910-NO-REC-88 TO TRUE DTSBE327 00467 ELSE DTSBE327 00468 MOVE ZERO TO WRK-CURR-ASSESS DTSBE327 00469 PERFORM DTSBE327 00470 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBE327 00471 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBE327 00472 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBE327 00473 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBE327 00474 TO WRK-CURR-ASSESS DTSBE327 00475 END-IF DTSBE327 00476 END-PERFORM DTSBE327 00477 PERFORM P1210-QTR-SUM THRU P1210-EXIT DTSBE327 00478 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE327 00479 END-IF DTSBE327 00480 END-PERFORM. DTSBE327 00481 DTSBE327 00482 P1200-EXIT. DTSBE327 00483 EXIT. DTSBE327 00484 DTSBE327 00485 P1210-QTR-SUM. DTSBE327 00486 SET WRK-QTR-FOUND-NO-88 TO TRUE. DTSBE327 00487 PERFORM DTSBE327 00488 VARYING SUB FROM +1 BY +1 DTSBE327 00489 UNTIL WRK-QTR-FOUND-YES-88 DTSBE327 00490 DISPLAY ' SUB ' SUB DTSBE327 00491 DISPLAY 'MQTR YRQ ' MQTR-YRQ DTSBE327 00492 DISPLAY 'WRK QTR YRQ ' WRK-QTR-YRQ(SUB) DTSBE327 00493 DISPLAY ' ' DTSBE327 00494 IF MQTR-YRQ = WRK-QTR-YRQ (SUB) DTSBE327 00495 MOVE MQTR-TOT-WAGE TO WRK-QTR-OLD-TOT-WAGE (SUB) DTSBE327 00496 MOVE WRK-CURR-ASSESS TO WRK-QTR-OLD-ASSESSMT (SUB) DTSBE327 00497 SET WRK-QTR-FOUND-YES-88 TO TRUE DTSBE327 00498 END-IF DTSBE327 00499 END-PERFORM. DTSBE327 00500 DTSBE327 00501 P1210-EXIT. DTSBE327 00502 EXIT. DTSBE327 00503 DTSBE327 00504 P1300-NEW-ASSESSMENT. DTSBE327 00505 *** DISPLAY 'P1300 ' MPRF-EMP-NO. DTSBE327 00506 DTSBE327 00507 MOVE LOW-VALUES TO WESQ-REC. DTSBE327 00508 MOVE MPRF-EMP-NO TO WESQ-EMP-NO. DTSBE327 00509 MOVE WRK-START-YRQ TO WESQ-YRQ. DTSBE327 00510 START WESQ-FILE KEY IS >= WESQ-KEY-AREA. DTSBE327 00511 READ WESQ-FILE NEXT. DTSBE327 00512 PERFORM UNTIL NOT WESQ-FILE-OK-88 DTSBE327 00513 MOVE ZERO TO WRK-TAX-WAGE DTSBE327 00514 IF WESQ-EMP-NO = MPRF-EMP-NO DTSBE327 00515 AND WESQ-YRQ <= WRK-END-YRQ DTSBE327 00516 PERFORM P1310-TAX-WAGE THRU P1310-EXIT DTSBE327 00517 PERFORM P1320-QTR-SUM THRU P1320-EXIT DTSBE327 00518 READ WESQ-FILE NEXT DTSBE327 00519 ELSE DTSBE327 00520 SET WESQ-FILE-NO-REC-88 TO TRUE DTSBE327 00521 END-IF DTSBE327 00522 END-PERFORM. DTSBE327 00523 DTSBE327 00524 PERFORM P1330-COMPUTE-ASSESS THRU P1330-EXIT. DTSBE327 00525 DTSBE327 00526 P1300-EXIT. DTSBE327 00527 EXIT. DTSBE327 00528 DTSBE327 00529 P1310-TAX-WAGE. DTSBE327 00530 * IF WESQ-EMP-NO = 813380 DTSBE327 00531 * MOVE WESQ-EARNINGS TO AMT-DISP1 DTSBE327 00532 * MOVE WESQ-YTD-EARNINGS TO AMT-DISP2 DTSBE327 00533 * DISPLAY 'P1300 ' WESQ-SSN ' ' AMT-DISP1 DTSBE327 00534 * ' ' WESQ-YRQ ' YTD ' AMT-DISP2 DTSBE327 00535 * END-IF. DTSBE327 00536 DTSBE327 00537 IF WESQ-YTD-EARNINGS >= 9000 DTSBE327 00538 MOVE ZERO TO WRK-TAX-WAGE DTSBE327 00539 ELSE DTSBE327 00540 COMPUTE WRK-TAX-REMAIN = (9000 - WESQ-YTD-EARNINGS) DTSBE327 00541 IF WRK-TAX-REMAIN > WESQ-EARNINGS DTSBE327 00542 MOVE WESQ-EARNINGS TO WRK-TAX-WAGE DTSBE327 00543 ELSE DTSBE327 00544 MOVE WRK-TAX-REMAIN TO WRK-TAX-WAGE DTSBE327 00545 END-IF DTSBE327 00546 END-IF. DTSBE327 00547 DTSBE327 00548 P1310-EXIT. DTSBE327 00549 EXIT. DTSBE327 00550 DTSBE327 00551 P1320-QTR-SUM. DTSBE327 00552 * IF MPRF-EMP-NO = 813380 DTSBE327 00553 * MOVE WESQ-EARNINGS TO AMT-DISP1 DTSBE327 00554 * MOVE WRK-TAX-WAGE TO AMT-DISP2 DTSBE327 00555 * DISPLAY 'P1320 WESQ ' WESQ-SSN ' ' AMT-DISP1 DTSBE327 00556 * ' TAX ' AMT-DISP2 DTSBE327 00557 * ' ' WESQ-YRQ DTSBE327 00558 * END-IF. DTSBE327 00559 SET WRK-QTR-FOUND-NO-88 TO TRUE. DTSBE327 00560 PERFORM DTSBE327 00561 VARYING SUB FROM +1 BY +1 DTSBE327 00562 UNTIL WRK-QTR-FOUND-YES-88 DTSBE327 00563 IF WESQ-YRQ = WRK-QTR-YRQ (SUB) DTSBE327 00564 ADD WESQ-EARNINGS TO WRK-QTR-NEW-TOT-WAGE (SUB) DTSBE327 00565 ADD WRK-TAX-WAGE TO WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE327 00566 ADD +1 TO WRK-QTR-EMP-CNT (SUB) DTSBE327 00567 SET WRK-QTR-FOUND-YES-88 TO TRUE DTSBE327 00568 END-IF DTSBE327 00569 END-PERFORM. DTSBE327 00570 DTSBE327 00571 P1320-EXIT. DTSBE327 00572 EXIT. DTSBE327 00573 DTSBE327 00574 P1330-COMPUTE-ASSESS. DTSBE327 00575 PERFORM DTSBE327 00576 VARYING SUB FROM +1 BY +1 DTSBE327 00577 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE327 00578 COMPUTE WRK-QTR-NEW-ASSESSMT (SUB) ROUNDED = DTSBE327 00579 (WRK-QTR-NEW-TAX-WAGE (SUB) * DTSBE327 00580 WRK-QTR-RATE (SUB)) DTSBE327 00581 END-PERFORM. DTSBE327 00582 DTSBE327 00583 P1330-EXIT. DTSBE327 00584 EXIT. DTSBE327 00585 DTSBE327 00586 P2000-CHECK-FOR-UPDATE. DTSBE327 00587 PERFORM DTSBE327 00588 VARYING SUB FROM +1 BY +1 DTSBE327 00589 UNTIL SUB > WRK-QTR-TABLE-MAX DTSBE327 00590 *& DTSBE327 00591 IF MPRF-EMP-NO = 150337 DTSBE327 00592 MOVE WRK-QTR-NEW-ASSESSMT (SUB) TO AMT-DISP1 DTSBE327 00593 MOVE WRK-QTR-OLD-ASSESSMT (SUB) TO AMT-DISP2 DTSBE327 00594 DISPLAY 'P2000 OLD ' AMT-DISP2 ' NEW ' AMT-DISP1 DTSBE327 00595 ' ' WRK-QTR-YRQ (SUB) DTSBE327 00596 END-IF DTSBE327 00597 *& DTSBE327 00598 IF WRK-QTR-YRQ (SUB) < WRK-START-YRQ OR DTSBE327 00599 WRK-QTR-YRQ (SUB) > WRK-END-YRQ DTSBE327 00600 NEXT SENTENCE DTSBE327 00601 ELSE DTSBE327 00602 * IF WRK-QTR-OLD-ASSESSMT (SUB) NOT = DTSBE327 00603 * WRK-QTR-NEW-ASSESSMT (SUB) DTSBE327 00604 PERFORM P2100-REPORT THRU P2100-EXIT DTSBE327 00605 END-IF DTSBE327 00606 END-PERFORM. DTSBE327 00607 DTSBE327 00608 DTSBE327 00609 P2000-EXIT. DTSBE327 00610 EXIT. DTSBE327 00611 DTSBE327 00612 P2100-REPORT. DTSBE327 00613 COMPUTE WRK-WAGE-TOLERANCE = DTSBE327 00614 (WRK-QTR-EMP-CNT (SUB) * .99) DTSBE327 00615 DTSBE327 00616 COMPUTE WRK-WAGE-DIFF = DTSBE327 00617 (WRK-QTR-OLD-TOT-WAGE (SUB) - DTSBE327 00618 WRK-QTR-NEW-TOT-WAGE (SUB)). DTSBE327 00619 DTSBE327 00620 ********************************************************** DTSBE327 00621 * ALLOW THE SYSTEM TO CHARGE THE ASSESSMENT IF THE WAGES DTSBE327 00622 * ON THE WAGE FILE ARE GREATER THAN THOSE REPORTED ON DTSBE327 00623 * THE UC-30. (WRK-WAGE-DIFF WILL BE < 0 IN THIS CASE.) DTSBE327 00624 ********************************************************** DTSBE327 00625 MOVE 0 TO WRK-PCT. DTSBE327 00626 IF WRK-WAGE-DIFF > ZERO DTSBE327 00627 IF WRK-QTR-OLD-TOT-WAGE (SUB) > 0 DTSBE327 00628 COMPUTE WRK-PCT = DTSBE327 00629 (WRK-WAGE-DIFF / WRK-QTR-OLD-TOT-WAGE (SUB)) DTSBE327 00630 END-IF DTSBE327 00631 END-IF. DTSBE327 00632 DTSBE327 00633 COMPUTE WRK-ASSESS-CHNG = DTSBE327 00634 (WRK-QTR-NEW-ASSESSMT (SUB) - DTSBE327 00635 WRK-QTR-OLD-ASSESSMT (SUB)). DTSBE327 00636 DTSBE327 00637 EVALUATE TRUE DTSBE327 00638 WHEN WRK-QTR-NEW-TOT-WAGE (SUB) = ZERO DTSBE327 00639 SET WRK-NO-WAGES-88 TO TRUE DTSBE327 00640 ADD +1 TO WRK-NO-WAGES-CNT DTSBE327 00641 DISPLAY 'NO WAGE ' MPRF-EMP-NO ' ' MPRF-EMP-STATUS DTSBE327 00642 DTSBE327 00643 WHEN (WRK-PCT > WRK-MAX-PCT DTSBE327 00644 OR WRK-WAGE-DIFF > WRK-MAX-WAGE-DIFF) DTSBE327 00645 SET WRK-ASSESS-OVER-MAX-88 TO TRUE DTSBE327 00646 ADD +1 TO WRK-OVER-MAX-CNT DTSBE327 00647 DTSBE327 00648 WHEN WRK-WAGE-DIFF > WRK-WAGE-TOLERANCE DTSBE327 00649 SET WRK-ASSESS-UNDER-MAX-88 TO TRUE DTSBE327 00650 ADD +1 TO WRK-UNDER-MAX-CNT DTSBE327 00651 DTSBE327 00652 WHEN WRK-WAGE-DIFF = 0 DTSBE327 00653 SET WRK-ASSESS-EXACT-88 TO TRUE DTSBE327 00654 ADD +1 TO WRK-EXACT-CNT DTSBE327 00655 DTSBE327 00656 WHEN OTHER DTSBE327 00657 SET WRK-ASSESS-TOL-88 TO TRUE DTSBE327 00658 ADD +1 TO WRK-TOL-CNT DTSBE327 00659 END-EVALUATE. DTSBE327 00660 DTSBE327 00661 IF WRK-CHARGE-ASSESS-88 DTSBE327 00662 IF WRK-ASSESS-CHNG > 5.00 DTSBE327 00663 PERFORM P2110-WRITE-T026 THRU P2110-EXIT DTSBE327 00664 PERFORM P2130-WRITE-DOWNLOAD THRU P2130-EXIT DTSBE327 00665 END-IF DTSBE327 00666 END-IF. DTSBE327 00667 DTSBE327 00668 IF WRK-NO-WAGES-88 AND MPRF-EMP-STATUS NOT = 'A' DTSBE327 00669 NEXT SENTENCE DTSBE327 00670 ELSE DTSBE327 00671 PERFORM P2120-WRITE-R325 THRU P2120-EXIT. DTSBE327 00672 DTSBE327 00673 P2100-EXIT. DTSBE327 00674 EXIT. DTSBE327 00675 DTSBE327 00676 P2110-WRITE-T026. DTSBE327 00677 IF WRK-QTR-YRQ (SUB) < WRK-START-YRQ OR DTSBE327 00678 WRK-QTR-YRQ (SUB) > WRK-END-YRQ OR DTSBE327 00679 WRK-ASSESS-CHNG < 5.00 DTSBE327 00680 GO TO P2110-EXIT. DTSBE327 00681 ADD 1 TO WRK-T026-CNT. DTSBE327 00682 MOVE MPRF-EMP-NO TO T026-EMP-NO. DTSBE327 00683 MOVE WRK-ASSESS-CHNG TO T026-AMT. DTSBE327 00684 MOVE WRK-QTR-YRQ (SUB) TO T026-APPLIC-YRQ. DTSBE327 00685 MOVE +0 TO T026-RECEIVED-DATE. DTSBE327 00686 MOVE SPACES TO T026-NAME-CHECK DTSBE327 00687 T026-INT-SPAN-IND. DTSBE327 00688 MOVE 'SU' TO T026-APPLIC-IND. DTSBE327 00689 SET T026-ADM-ASSESSMNT TO TRUE. DTSBE327 00690 MOVE +0 TO T026-APPLIC-BATCH-NO DTSBE327 00691 T026-APPLIC-ITEM-NO DTSBE327 00692 T026-DATE-1 DTSBE327 00693 T026-DATE-2. DTSBE327 00694 DTSBE327 00695 MOVE SPACES TO T026-RESPONSIBLE-ACTIVITY. DTSBE327 00696 MOVE 'DTSBE327' TO T026-RESPONSIBLE-OP-ID. DTSBE327 00697 DTSBE327 00698 PERFORM S927-WRITE THRU S927-EXIT. DTSBE327 00699 DTSBE327 00700 P2110-EXIT. DTSBE327 00701 EXIT. DTSBE327 00702 DTSBE327 00703 P2120-WRITE-R325. DTSBE327 00704 IF WRK-QTR-YRQ (SUB) < WRK-START-YRQ OR DTSBE327 00705 WRK-QTR-YRQ (SUB) > WRK-END-YRQ DTSBE327 00706 * WRK-ASSESS-CHNG < 5.00 DTSBE327 00707 GO TO P2120-EXIT. DTSBE327 00708 DTSBE327 00709 MOVE LOW-VALUES TO R325-SORT-AREA. DTSBE327 00710 MOVE LENGTH OF R325-REC TO R325-LENGTH. DTSBE327 00711 MOVE '325' TO R325-REC-TYPE. DTSBE327 00712 MOVE WRK-ASSESS-STATUS TO R325-RPT-TYPE. DTSBE327 00713 MOVE MPRF-EMP-NO TO R325-EMP-NO. DTSBE327 00714 MOVE MPRF-FEIN TO R325-EMP-FEIN. DTSBE327 00715 MOVE MHDR-CURR-RUN-DATE TO R325-STMT-DATE. DTSBE327 00716 MOVE SPACES TO R325-OP-ID DTSBE327 00717 MOVE WRK-QTR-RATE (SUB) TO R325-ASSESSMENT-RATE. DTSBE327 00718 MOVE WRK-QTR-YRQ (SUB) TO R325-QTR. DTSBE327 00719 MOVE WRK-QTR-OLD-TOT-WAGE (SUB) DTSBE327 00720 TO R325-UC30-WAGES. DTSBE327 00721 MOVE WRK-QTR-NEW-TOT-WAGE (SUB) DTSBE327 00722 TO R325-WAGE-FILE-WAGES. DTSBE327 00723 MOVE WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE327 00724 TO R325-ASSESSMENT-WAGES. DTSBE327 00725 MOVE WRK-ASSESS-CHNG TO R325-CALC-ASSESS-DUE DTSBE327 00726 R325-FINAL-ASSESS-DUE. DTSBE327 00727 PERFORM P2121-GET-ADDR THRU P2121-EXIT. DTSBE327 00728 PERFORM S946-WRITE-R325 THRU S946-EXIT. DTSBE327 00729 DTSBE327 00730 MOVE WRK-QTR-NEW-TOT-WAGE (SUB) TO AMT-DISP1. DTSBE327 00731 MOVE WRK-QTR-OLD-TOT-WAGE (SUB) TO AMT-DISP2. DTSBE327 00732 *** MOVE WRK-QTR-NEW-TAX-WAGE (SUB) TO AMT-DISP2. DTSBE327 00733 MOVE WRK-QTR-OLD-ASSESSMT (SUB) TO AMT-DISP3. DTSBE327 00734 MOVE WRK-QTR-NEW-ASSESSMT (SUB) TO AMT-DISP4. DTSBE327 00735 DTSBE327 00736 DISPLAY SPACE. DTSBE327 00737 IF WRK-ASSESS-EXACT-88 DTSBE327 00738 DISPLAY 'EX ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE327 00739 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE327 00740 ELSE DTSBE327 00741 IF WRK-ASSESS-TOL-88 DTSBE327 00742 DISPLAY 'TL ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE327 00743 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE327 00744 ELSE DTSBE327 00745 IF WRK-ASSESS-UNDER-MAX-88 DTSBE327 00746 DISPLAY 'MX ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE327 00747 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE327 00748 ELSE DTSBE327 00749 DISPLAY 'ERR ' MPRF-EMP-NO ' ' WRK-QTR-YRQ (SUB) DTSBE327 00750 ' ' MPRF-PRIMARY-NAME ' ' WRK-QTR-EMP-CNT (SUB) DTSBE327 00751 END-IF DTSBE327 00752 END-IF DTSBE327 00753 END-IF. DTSBE327 00754 DISPLAY ' OLD ' AMT-DISP2 ' NEW ' AMT-DISP1. DTSBE327 00755 DISPLAY ' OLD ' AMT-DISP3 ' NEW ' AMT-DISP4. DTSBE327 00756 MOVE WRK-QTR-OLD-TOT-WAGE (SUB) TO AMT-DISP1. DTSBE327 00757 ** DISPLAY ' TAX ' AMT-DISP2 DTSBE327 00758 ** DISPLAY ' OLD ' AMT-DISP3 ' NEW ' AMT-DISP4. DTSBE327 00759 DTSBE327 00760 P2120-EXIT. DTSBE327 00761 EXIT. DTSBE327 00762 DTSBE327 00763 P2121-GET-ADDR. DTSBE327 00764 MOVE LOW-VALUES TO L111-RETURN-AREA. DTSBE327 00765 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBE327 00766 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBE327 00767 MOVE +001 TO L111-ID-NO. DTSBE327 00768 DTSBE327 00769 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBE327 00770 DTSBE327 00771 IF L111-ADDR-FOUND-88 DTSBE327 00772 SET L112-TAD-ADDR-88 TO TRUE DTSBE327 00773 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSBE327 00774 PERFORM P2122-FORMAT-ADDR THRU P2122-EXIT DTSBE327 00775 ELSE DTSBE327 00776 MOVE ALL '?' TO R325-FMT-ADDR DTSBE327 00777 R325-ZIP DTSBE327 00778 R325-ADVANCED-BARCODE. DTSBE327 00779 P2121-EXIT. DTSBE327 00780 EXIT. DTSBE327 00781 P2122-FORMAT-ADDR. DTSBE327 00782 SET L112-ANCHOR-FIRST-88 TO TRUE. DTSBE327 00783 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBE327 00784 DTSBE327 00785 PERFORM S112-FORMAT-ADDR THRU S112-EXIT. DTSBE327 00786 DTSBE327 00787 MOVE L112-MAILING-ADDRESS TO R325-FMT-ADDR. DTSBE327 00788 MOVE L112-ZIP TO R325-ZIP. DTSBE327 00789 MOVE R325-ZIP TO R325-SORT-ZIP. DTSBE327 00790 MOVE L112-ADVANCED-BARCODE TO R325-ADVANCED-BARCODE. DTSBE327 00791 DTSBE327 00792 P2122-EXIT. DTSBE327 00793 EXIT. DTSBE327 00794 DTSBE327 00795 P2130-WRITE-DOWNLOAD. DTSBE327 00796 MOVE MPRF-EMP-NO TO WRK-DWN-EMP. DTSBE327 00797 MOVE MPRF-PRIMARY-NAME TO WRK-DWN-NAME. DTSBE327 00798 MOVE WRK-QTR-YRQ (SUB) TO L004-QTR-5-9. DTSBE327 00799 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE327 00800 MOVE L004-SLASH-5-QTR TO WRK-DWN-YRQ. DTSBE327 00801 MOVE WRK-QTR-NEW-TAX-WAGE (SUB) DTSBE327 00802 TO WRK-DWN-TAX-WAGE. DTSBE327 00803 MOVE WRK-QTR-OLD-ASSESSMT (SUB) DTSBE327 00804 TO WRK-DWN-OLD-ASSESS. DTSBE327 00805 MOVE WRK-QTR-NEW-ASSESSMT (SUB) DTSBE327 00806 TO WRK-DWN-NEW-ASSESS. DTSBE327 00807 MOVE WRK-ASSESS-CHNG TO WRK-DWN-ASSESS-CHNG. DTSBE327 00808 DTSBE327 00809 WRITE DOWNLOAD-REC FROM WRK-DOWNLOAD-REC. DTSBE327 00810 DTSBE327 00811 P2130-EXIT. DTSBE327 00812 EXIT. DTSBE327 00813 DTSBE327 00814 P2300-WRITE-MEVL. DTSBE327 00815 MOVE LOW-VALUES TO MEVL-REC. DTSBE327 00816 MOVE L005-DATE TO MEVL-ESTB-DATE DTSBE327 00817 MEVL-CHNG-DATE DTSBE327 00818 MEVL-DATE. DTSBE327 00819 DTSBE327 00820 ADD +1000 TO L005-ABSTIME. DTSBE327 00821 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBE327 00822 DTSBE327 00823 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBE327 00824 SET MEVL-EVL-88 TO TRUE. DTSBE327 00825 MOVE +0 TO MEVL-PURGE-DATE. DTSBE327 00826 MOVE 'SI ADMIN ASSESS BILL SENT' TO MEVL-TEXT. DTSBE327 00827 MOVE 'DTSBE327' TO MEVL-SOURCE. DTSBE327 00828 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBE327 00829 MOVE L005-TIME TO MEVL-TIME. DTSBE327 00830 MOVE MEVL-REC TO MSKL-REC. DTSBE327 00831 PERFORM S910-WRITE THRU S910-EXIT. DTSBE327 00832 DTSBE327 00833 P2300-EXIT. DTSBE327 00834 EXIT. DTSBE327 00835 DTSBE327 00836 DTSBE327 00837 T0000-TERMINATE. DTSBE327 00838 IF WRK-ERROR-YES-88 DTSBE327 00839 GO TO T0000-EXIT DTSBE327 00840 END-IF. DTSBE327 00841 DTSBE327 00842 DISPLAY ' '. DTSBE327 00843 DTSBE327 00844 DISPLAY '*** DTSBE327 TERMINATION STATISTICS ***'. DTSBE327 00845 DTSBE327 00846 DISPLAY ' '. DTSBE327 00847 DTSBE327 00848 DISPLAY 'TOTAL SELF INS READ : ' WRK-MPRF-CNT. DTSBE327 00849 DISPLAY SPACE. DTSBE327 00850 DISPLAY 'ASSESSED COUNTS : ' DTSBE327 00851 DISPLAY ' WAGES EXACT : ' WRK-EXACT-CNT. DTSBE327 00852 DISPLAY ' TOLERATED : ' WRK-TOL-CNT. DTSBE327 00853 DISPLAY ' UNDER MAX : ' WRK-UNDER-MAX-CNT. DTSBE327 00854 DISPLAY 'T026 TRANSACTIONS CREATED : ' WRK-T026-CNT. DTSBE327 00855 DISPLAY SPACE. DTSBE327 00856 DISPLAY 'NO ASSESSMENT COUNTS : ' DTSBE327 00857 DISPLAY ' OVER MAX : ' WRK-OVER-MAX-CNT. DTSBE327 00858 DISPLAY ' NO WAGES : ' WRK-NO-WAGES-CNT. DTSBE327 00859 DISPLAY ' INACTIVE SI EMPLS : ' WRK-INACT-CNT. DTSBE327 00860 DTSBE327 00861 CLOSE DOWNLOAD-FILE DTSBE327 00862 WESQ-FILE. DTSBE327 00863 DTSBE327 00864 DTSBE327 00865 T0000-EXIT. DTSBE327 00866 EXIT. DTSBE327 00867 DTSBE327 00868 S001-FROM-FED-8. DTSBE327 00869 SET L001-FROM-FED-8 TO TRUE. DTSBE327 00870 GO TO S001-DATE. DTSBE327 00871 DTSBE327 00872 S001-FROM-ABS-DAY. DTSBE327 00873 SET L001-FROM-ABS-DAY TO TRUE. DTSBE327 00874 GO TO S001-DATE. DTSBE327 00875 DTSBE327 00876 S001-DATE. DTSBE327 00877 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE327 00878 DTSBE327 00879 S001-EXIT. DTSBE327 00880 EXIT. DTSBE327 00881 SKIP3 DTSBE327 00882 S004-FROM-5. DTSBE327 00883 SET L004-FROM-5 TO TRUE. DTSBE327 00884 GO TO S004-EDIT-QTR. DTSBE327 00885 DTSBE327 00886 S004-FROM-DATE. DTSBE327 00887 SET L004-FROM-DATE TO TRUE. DTSBE327 00888 GO TO S004-EDIT-QTR. DTSBE327 00889 DTSBE327 00890 S004-FROM-ABS. DTSBE327 00891 SET L004-FROM-ABS TO TRUE. DTSBE327 00892 GO TO S004-EDIT-QTR. DTSBE327 00893 DTSBE327 00894 S004-EDIT-QTR. DTSBE327 00895 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBE327 00896 DTSBE327 00897 S004-EXIT. DTSBE327 00898 EXIT. DTSBE327 00899 SKIP3 DTSBE327 00900 S005-SYS-DATE. DTSBE327 00901 SET L005-FROM-SYS TO TRUE DTSBE327 00902 GO TO S005-ABSTIME. DTSBE327 00903 S005-FROM-ABSTIME. DTSBE327 00904 SET L005-FROM-ABSTIME TO TRUE. DTSBE327 00905 GO TO S005-ABSTIME. DTSBE327 00906 S005-ABSTIME. DTSBE327 00907 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBE327 00908 S005-EXIT. DTSBE327 00909 EXIT. DTSBE327 00910 SKIP3 DTSBE327 00911 S109-SUR-RATE-FIRST-QTR. DTSBE327 00912 SET L109-CMND-FIRST-QTR-88 TO TRUE. DTSBE327 00913 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBE327 00914 DTSBE327 00915 S109-FIRST-EXIT. DTSBE327 00916 EXIT. DTSBE327 00917 S109-SUR-BY-QTR. DTSBE327 00918 SET L109-CLASS-SELF-INS-88 TO TRUE. DTSBE327 00919 SET L109-CMND-INPUT-QTR-88 TO TRUE. DTSBE327 00920 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBE327 00921 DTSBE327 00922 S109-QTR-EXIT. DTSBE327 00923 EXIT. DTSBE327 00924 SKIP3 DTSBE327 00925 SKIP3 DTSBE327 00926 S111-LOOKUP-ADDR. DTSBE327 00927 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBE327 00928 S111-EXIT. DTSBE327 00929 EXIT. DTSBE327 00930 SKIP3 DTSBE327 00931 S112-FORMAT-ADDR. DTSBE327 00932 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBE327 00933 S112-EXIT. DTSBE327 00934 EXIT. DTSBE327 00935 SKIP3 DTSBE327 00936 DTSBE327 00937 *S910-OPEN-READ. DTSBE327 00938 * SET L910-OPEN-READ-88 TO TRUE. DTSBE327 00939 * GO TO S910-MSTR-IO. DTSBE327 00940 * DTSBE327 00941 *S910-OPEN-UPDATE-NO-AIX. DTSBE327 00942 * SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBE327 00943 * GO TO S910-MSTR-IO. DTSBE327 00944 DTSBE327 00945 S910-READ. DTSBE327 00946 SET L910-READ-88 TO TRUE. DTSBE327 00947 GO TO S910-MSTR-IO. DTSBE327 00948 DTSBE327 00949 S910-START-BROWSE. DTSBE327 00950 SET L910-START-BROWSE-88 TO TRUE. DTSBE327 00951 GO TO S910-MSTR-IO. DTSBE327 00952 DTSBE327 00953 S910-READ-NEXT. DTSBE327 00954 SET L910-READ-NEXT-88 TO TRUE. DTSBE327 00955 GO TO S910-MSTR-IO. DTSBE327 00956 DTSBE327 00957 S910-COUNT. DTSBE327 00958 SET L910-COUNT-88 TO TRUE. DTSBE327 00959 GO TO S910-MSTR-IO. DTSBE327 00960 DTSBE327 00961 S910-REWRITE. DTSBE327 00962 SET L910-REWRITE-88 TO TRUE. DTSBE327 00963 GO TO S910-MSTR-IO. DTSBE327 00964 DTSBE327 00965 S910-WRITE. DTSBE327 00966 SET L910-WRITE-88 TO TRUE. DTSBE327 00967 GO TO S910-MSTR-IO. DTSBE327 00968 DTSBE327 00969 *S910-CLOSE. DTSBE327 00970 * SET L910-CLOSE-88 TO TRUE. DTSBE327 00971 * GO TO S910-MSTR-IO. DTSBE327 00972 DTSBE327 00973 S910-MSTR-IO. DTSBE327 00974 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE327 00975 MSKL-REC. DTSBE327 00976 S910-EXIT. DTSBE327 00977 EXIT. DTSBE327 00978 SKIP3 DTSBE327 00979 S927-OPEN-UPDATE. DTSBE327 00980 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBE327 00981 GO TO S927-IO. DTSBE327 00982 S927-WRITE. DTSBE327 00983 SET L927-WRITE-88 TO TRUE. DTSBE327 00984 GO TO S927-IO. DTSBE327 00985 S927-CLOSE. DTSBE327 00986 SET L927-CLOSE-88 TO TRUE. DTSBE327 00987 GO TO S927-IO. DTSBE327 00988 S927-IO. DTSBE327 00989 CALL 'DTSBU927' USING L927-LINK-AREA DTSBE327 00990 T026-REC. DTSBE327 00991 S927-EXIT. DTSBE327 00992 EXIT. DTSBE327 00993 DTSBE327 00994 S946-WRITE-R325. DTSBE327 00995 CALL 'DTSBU946' USING R325-REC. DTSBE327 00996 S946-EXIT. DTSBE327 00997 EXIT. DTSBE327 00998 DTSBE327 00999 S981-OPEN-READ. DTSBE327 01000 SET L981-OPEN-READ-88 TO TRUE. DTSBE327 01001 GO TO S981-MSTR-IO. DTSBE327 01002 DTSBE327 01003 S981-READ. DTSBE327 01004 SET L981-READ-88 TO TRUE. DTSBE327 01005 GO TO S981-MSTR-IO. DTSBE327 01006 DTSBE327 01007 S981-START-BROWSE. DTSBE327 01008 SET L981-START-BROWSE-88 TO TRUE. DTSBE327 01009 GO TO S981-MSTR-IO. DTSBE327 01010 DTSBE327 01011 S981-READ-NEXT. DTSBE327 01012 SET L981-READ-NEXT-88 TO TRUE. DTSBE327 01013 GO TO S981-MSTR-IO. DTSBE327 01014 DTSBE327 01015 S981-CLOSE. DTSBE327 01016 SET L981-CLOSE-88 TO TRUE. DTSBE327 01017 GO TO S981-MSTR-IO. DTSBE327 01018 DTSBE327 01019 S981-MSTR-IO. DTSBE327 01020 CALL 'DTSBU981' USING L981-LINK-AREA DTSBE327 01021 WWGH-REC. DTSBE327 01022 S981-EXIT. DTSBE327 01023 EXIT. DTSBE327 01024 SKIP3 DTSBE327 01025 DTSBE327 01026 S999-ABEND. DTSBE327 01027 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE327 01028 S999-EXIT. DTSBE327 01029 EXIT. DTSBE327