00001 IDENTIFICATION DIVISION. 05/22/01 00002 PROGRAM-ID. TDECVAL. TDECVAL 00003 LV001 00004 ******************************************************************TDECVAL 00005 * *TDECVAL 00006 * FUNCTION: *TDECVAL 00007 * THE FUNCTION OF TDECVAL IS TO VALIDATE THE *TDECVAL 00008 * WAGE RECORD DATA THAT IS TRANSMITTED FROM THE TDEC COMPANY*TDECVAL 00009 * *TDECVAL 00010 * *TDECVAL 00011 ******************************************************************TDECVAL 00012 ******************************************************************TDECVAL 00013 * MODIFICATION HISTORY: *TDECVAL 00014 * *TDECVAL 00015 * 04-13-2001 MODIFIED TO INTERFACE WITH TAPE TRACKING SYSTEM *TDECVAL 00016 * THROUGH DESBD200. *TDECVAL 00017 * MODIFIED OUTPUT RECORD: FIRST DATA ELEMENT IS THE *TDECVAL 00018 * LOG NUMBER FOR THE TRAKING SYSTEM. *TDECVAL 00019 * *TDECVAL 00020 * REFERENCE RFP # AUTHOR OF CHANGE - GD *TDECVAL 00021 * *TDECVAL 00022 * 05-15-2001 MODIFIED TO OUTPUT A CLEAN TDEC DISK FILE. I.E., *TDECVAL 00023 * WITHOUT THE EXCEPTION RECORDS. *TDECVAL 00024 * REFERENCE RFP # AUTHOR OF CHANGE - RW *TDECVAL 00025 * *TDECVAL 00026 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *TDECVAL 00027 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *TDECVAL 00028 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *TDECVAL 00029 ******************************************************************TDECVAL 00030 TDECVAL 00031 ENVIRONMENT DIVISION. TDECVAL 00032 TDECVAL 00033 CONFIGURATION SECTION. TDECVAL 00034 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. TDECVAL 00035 TDECVAL 00036 INPUT-OUTPUT SECTION. TDECVAL 00037 FILE-CONTROL. TDECVAL 00038 SELECT TDECFILE ASSIGN TO TDECFILE. TDECVAL 00039 SELECT TDECOUT ASSIGN TO TDECOUT. TDECVAL 00040 SELECT LISTOUT ASSIGN TO UR-S-LISTOUT. TDECVAL 00041 SELECT EAFILE ASSIGN TO TXMASTER, TDECVAL 00042 ORGANIZATION IS INDEXED, TDECVAL 00043 ACCESS MODE IS DYNAMIC, TDECVAL 00044 RECORD KEY IS EMPL-ACCT-NO TDECVAL 00045 FILE STATUS IS FILE-STATUS-FILE. TDECVAL 00046 TDECVAL 00047 DATA DIVISION. TDECVAL 00048 TDECVAL 00049 FILE SECTION. TDECVAL 00050 FD EAFILE TDECVAL 00051 RECORD CONTAINS 3285 CHARACTERS TDECVAL 00052 DATA RECORD IS TX-MASTER. TDECVAL 00053 01 TXMASTER. TDECVAL 00054 ++INCLUDE TXMSR TDECVAL 00055 TDECVAL 00056 FD TDECFILE TDECVAL 00057 RECORDING MODE IS F TDECVAL 00058 ** RECORDING MODE IS S TDECVAL 00059 BLOCK CONTAINS 0 CHARACTERS TDECVAL 00060 LABEL RECORDS ARE STANDARD TDECVAL 00061 DATA RECORD IS TDECREC. TDECVAL 00062 01 TRANSACTION-RECORD PIC X(80). TDECVAL 00063 *01 TRANSACTION-RECORD1 PIC X(20). TDECVAL 00064 *01 TRANSACTION-RECORD2 PIC X(360). TDECVAL 00065 TDECVAL 00066 FD TDECOUT TDECVAL 00067 RECORDING MODE IS F TDECVAL 00068 BLOCK CONTAINS 0 CHARACTERS TDECVAL 00069 LABEL RECORDS ARE STANDARD TDECVAL 00070 DATA RECORD IS TDECOUT-REC. TDECVAL 00071 01 TDECOUT-REC PIC X(90). TDECVAL 00072 TDECVAL 00073 FD LISTOUT TDECVAL 00074 RECORD CONTAINS 133 CHARACTERS TDECVAL 00075 LABEL RECORDS ARE OMITTED TDECVAL 00076 DATA RECORD IS PRINT-REC. TDECVAL 00077 01 PRINT-REC PIC X(133). TDECVAL 00078 TDECVAL 00079 WORKING-STORAGE SECTION. TDECVAL 000795 77 PAN-VALET PICTURE X(24) VALUE '001TDECVAL 05/22/01'. TDECVAL 00080 TDECVAL 00081 01 WRK-AREA. TDECVAL 00082 05 ABEND-CD PIC X(05) VALUE 'TDVAL'. TDECVAL 00083 05 ABEND-MOD PIC X(08) VALUE 'DTSBU999'. TDECVAL 00084 05 ABEND-MSG PIC X(60). TDECVAL 00085 05 WRK-MOD-NAME PIC X(08) VALUE 'TDECVAL '. TDECVAL 00086 05 WRK-LOG-NO PIC 9(10) VALUE 0. TDECVAL 00087 05 ERROR-SW PIC 9 VALUE 0. TDECVAL 00088 TDECVAL 00089 01 WS-QUARTER-YR-QTR PIC 9(05). TDECVAL 00090 01 FILLER REDEFINES WS-QUARTER-YR-QTR. TDECVAL 00091 05 WS-QUARTER-YEAR PIC 9(4). TDECVAL 00092 05 WS-QUARTER-QTR PIC 9(1). TDECVAL 00093 TDECVAL 00094 01 L004-LINK-AREA. TDECVAL 00095 ++INCLUDE DTSIL004 TDECVAL 00096 EJECT TDECVAL 00097 TDECVAL 00098 01 WS-WAGE-ACCOUNT PIC 9(06). TDECVAL 00099 TDECVAL 00100 01 WS-CURR-EMP PIC 9(06) VALUE ZERO. TDECVAL 00101 01 WS-EMP-TOT-CNT PIC S9(07) COMP-3 VALUE +0.TDECVAL 00102 01 WS-EMP-SUCCESS-CNT PIC S9(07) COMP-3 VALUE +0.TDECVAL 00103 TDECVAL 00104 01 L200-LINK-AREA. TDECVAL 00105 ++INCLUDE DESIL200 TDECVAL 00106 TDECVAL 00107 01 C202-MSG-TABLE. TDECVAL 00108 ++INCLUDE DTSIC202 TDECVAL 00109 TDECVAL 00110 01 ALPHA-SORT-NAME-FOUR PIC X(4). TDECVAL 00111 01 MAILING-NAME-FOUR PIC X(4). TDECVAL 00112 TDECVAL 00113 01 TDECOUT-WORK-AREA. TDECVAL 00114 ******************************************************************TDECVAL 00115 * TDEC-OUTPUT TRANSACTION RECORD AREA *TDECVAL 00116 ******************************************************************TDECVAL 00117 05 WRK-TRANSACTION-AREA. TDECVAL 00118 10 WRK-TRAN-LOG-NO PIC 9(10) VALUE 0. TDECVAL 00119 10 WRK-TRAN-AREA PIC X(80) VALUE SPACES. TDECVAL 00120 TDECVAL 00121 01 TRANSACTION-WORK-AREA. TDECVAL 00122 ******************************************************************TDECVAL 00123 * ESP TRANSACTION RECORD DESCRIPTIONS *TDECVAL 00124 ******************************************************************TDECVAL 00125 05 ESP-TRANSACTION-AREA. TDECVAL 00126 10 TRAN-SSN PIC 9(10). TDECVAL 00127 10 FILLER REDEFINES TRAN-SSN. TDECVAL 00128 15 TR-SSN PIC 9(9). TDECVAL 00129 15 TR-SSN-SEQ PIC 9(1). TDECVAL 00130 10 TRAN-ID PIC X(02). TDECVAL 00131 10 FILLER REDEFINES TRAN-ID. TDECVAL 00132 15 TRAN-ID-PFX PIC X(1). TDECVAL 00133 88 TRAN-ID-PFX-WAGE VALUE 'W'. TDECVAL 00134 15 FILLER PIC X(1). TDECVAL 00135 10 TRAN-OPER-ID PIC 9(8). TDECVAL 00136 10 FILLER REDEFINES TRAN-OPER-ID. TDECVAL 00137 15 BATCH-NUMBER PIC 9(03). TDECVAL 00138 15 FILLER REDEFINES BATCH-NUMBER. TDECVAL 00139 20 BATCH-NUMBER-NN PIC 9(02). TDECVAL 00140 20 FILLER PIC X(01). TDECVAL 00141 15 TRAN-LOCAL-OFFICE PIC 9(02). TDECVAL 00142 15 TRAN-OPERATOR-ID PIC 9(03). TDECVAL 00143 10 TRAN-DATE-ENTERED PIC 9(08). TDECVAL 00144 10 TRAN-TIME-ENTERED PIC 9(06). TDECVAL 00145 10 FILLER PIC 9(06). TDECVAL 00146 10 TRAN-NAME-CHECK PIC X(3). TDECVAL 00147 10 TRAN-QUARTER-YR-QTR PIC 9(5). TDECVAL 00148 10 TRAN-AFFI-CODE PIC 9(1). TDECVAL 00149 10 TRAN-QUARTER-EARNINGS PIC 9(7). TDECVAL 00150 10 TRAN-ACCOUNT PIC 9(6). TDECVAL 00151 10 TRAN-EMP-NAME PIC X(4). TDECVAL 00152 10 TRAN-FILLER PIC X(299). TDECVAL 00153 01 COUNTERS. TDECVAL 00154 03 FILE-STATUS-FILE PIC 99. TDECVAL 00155 03 EMP-QTR-TOT-EARNINGS PIC 9(7). TDECVAL 00156 03 RECS-IN PIC 9(5). TDECVAL 00157 03 RECS-OUT PIC 9(5). TDECVAL 00158 03 QTR-RECS-OUT PIC 9(5). TDECVAL 00159 03 PAGE-CTR PIC 9(5). TDECVAL 00160 03 ERROR-RECS PIC 9(5). TDECVAL 00161 TDECVAL 00162 03 ZERO-WAGE-CNT PIC 9(5). TDECVAL 00163 03 EXCEPTION-CNT PIC 9(5). TDECVAL 00164 03 WS-ZERO-WAGE-NO PIC 9(5). TDECVAL 00165 TDECVAL 00166 TDECVAL 00167 01 LINE-CTR PIC 9(5) VALUE 56. TDECVAL 00168 01 EOF PIC X. TDECVAL 00169 TDECVAL 00170 01 WS-TODAY PIC 9(06). TDECVAL 00171 01 WS-TODAY-REDEF REDEFINES WS-TODAY. TDECVAL 00172 05 WS-TODAY-YY PIC 9(02). TDECVAL 00173 05 WS-TODAY-MM PIC 9(02). TDECVAL 00174 05 WS-TODAY-DD PIC 9(02). TDECVAL 00175 TDECVAL 00176 01 SELECT-CARD. TDECVAL 00177 03 PGM-NAME PIC X(09) VALUE '**TDECVAL'. TDECVAL 00178 03 FIL PIC XX. TDECVAL 00179 03 SELECT-QUARTER PIC 9(5). TDECVAL 00180 03 FIL PIC X(73). TDECVAL 00181 01 HD1. TDECVAL 00182 03 FIL PIC X(5) VALUE SPACES. TDECVAL 00183 03 FIL PIC X(8) VALUE 'TDECVAL '. TDECVAL 00184 03 FIL PIC X(31) VALUE SPACES. TDECVAL 00185 03 FIL PIC X(42) VALUE TDECVAL 00186 'DISTRICT DEPARTMENT OF EMPLOYMENT SERVICES'. TDECVAL 00187 03 FIL PIC X(35) VALUE SPACES. TDECVAL 00188 03 FIL PIC X(5) VALUE 'PAGE:'. TDECVAL 00189 03 PAGE-CTR-PRT PIC ZZ,ZZ9. TDECVAL 00190 01 HD2. TDECVAL 00191 03 FIL PIC X(49) VALUE SPACES. TDECVAL 00192 03 FIL PIC X(39) VALUE TDECVAL 00193 'DOES UI WAGE RECORD EDIT REPORT'. TDECVAL 00194 01 HD3. TDECVAL 00195 03 FIL PIC X(57) VALUE SPACES. TDECVAL 00196 03 FIL PIC X(9) VALUE 'RUN DATE:'. TDECVAL 00197 03 REPORTING-DATE-MM PIC X(2). TDECVAL 00198 03 FILLER PIC X VALUE '/'. TDECVAL 00199 03 REPORTING-DATE-DD PIC X(2). TDECVAL 00200 03 FILLER PIC X VALUE '/'. TDECVAL 00201 03 REPORTING-DATE-YY PIC X(2). TDECVAL 00202 TDECVAL 00203 01 HD4. TDECVAL 00204 03 FIL PIC X(5) VALUE SPACES. TDECVAL 00205 03 FIL PIC X(3) VALUE 'SSN'. TDECVAL 00206 03 FIL PIC X(7) VALUE SPACES. TDECVAL 00207 03 FIL PIC X(12) VALUE 'DATE ENTERED'. TDECVAL 00208 03 FIL PIC X(02) VALUE SPACES. TDECVAL 00209 03 FIL PIC X(13) VALUE 'EMPLOYEE NAME'. TDECVAL 00210 03 FIL PIC X(2) VALUE SPACES. TDECVAL 00211 03 FIL PIC X(7) VALUE 'QUARTER'. TDECVAL 00212 03 FIL PIC X(6) VALUE SPACES. TDECVAL 00213 03 FIL PIC X(8) VALUE 'EARNINGS'. TDECVAL 00214 03 FIL PIC X(6) VALUE SPACES. TDECVAL 00215 03 FIL PIC X(14) VALUE 'ACCOUNT NUMBER'. TDECVAL 00216 03 FIL PIC X(2) VALUE SPACES. TDECVAL 00217 03 FIL PIC X(13) VALUE 'EMPLOYER NAME'. TDECVAL 00218 03 FIL PIC X(04) VALUE SPACES. TDECVAL 00219 03 FIL PIC X(18) VALUE 'ERRORS ENCOUNTERED'.TDECVAL 00220 01 DTL1. TDECVAL 00221 03 FIL PIC X(5) VALUE SPACES. TDECVAL 00222 03 SSN-PRT PIC X(9). TDECVAL 00223 03 FIL PIC X(04) VALUE SPACES. TDECVAL 00224 03 DATE-ENTERED-PRT PIC X(06). TDECVAL 00225 03 FIL PIC X(10) VALUE SPACES. TDECVAL 00226 03 EMPEE-NAME PIC X(3). TDECVAL 00227 03 FIL PIC X(08) VALUE SPACES. TDECVAL 00228 03 QTR-PRT PIC X(5). TDECVAL 00229 03 FIL PIC X(08) VALUE SPACES. TDECVAL 00230 03 EARNINGS-PRT PIC X(7). TDECVAL 00231 03 FIL PIC X(10) VALUE SPACES. TDECVAL 00232 03 ACCT-NUM-PRT PIC X(6). TDECVAL 00233 03 FIL PIC X(10) VALUE SPACES. TDECVAL 00234 03 EMPOR-PRT PIC X(6). TDECVAL 00235 03 FIL PIC X(07) VALUE SPACES. TDECVAL 00236 03 MESSAGE-AREA PIC X(30) VALUE SPACES. TDECVAL 00237 01 TOT1. TDECVAL 00238 03 FIL PIC X(2) VALUE SPACES. TDECVAL 00239 03 FIL PIC X(21) VALUE 'TOTAL WAGE RECS READ:'. TDECVAL 00240 03 WAGE-CNT-PRT PIC ZZZ,ZZ9. TDECVAL 00241 03 FIL PIC X(6) VALUE SPACES. TDECVAL 00242 03 FIL PIC X(24) VALUE 'TOTAL WAGE RECS WRITTEN:'.TDECVAL 00243 03 WAGE-OUT-PRT PIC ZZZ,ZZ9. TDECVAL 00244 03 FIL PIC X(6) VALUE SPACES. TDECVAL 00245 03 FIL PIC X(20) VALUE 'TOTAL ERROR RECORDS:'. TDECVAL 00246 03 ERRORS-PRT PIC ZZ,ZZ9. TDECVAL 00247 03 FIL PIC X(6) VALUE SPACES. TDECVAL 00248 03 FIL PIC X(20) VALUE 'TOTAL ZERO WAGE REC:'. TDECVAL 00249 03 ZERO-WAGE-PRT PIC ZZ,ZZ9. TDECVAL 00250 03 BLANK-LINE PIC X(133) VALUE SPACES. TDECVAL 00251 TDECVAL 00252 LINKAGE SECTION. TDECVAL 00253 01 PARM-AREA. TDECVAL 00254 05 PARM-LENGTH PIC S9(04) COMP. TDECVAL 00255 05 PARM-LOG-NO PIC 9(06). TDECVAL 00256 05 FILLER PIC X(01). TDECVAL 00257 05 PARM-ZERO-WAGE-NO PIC 9(05). TDECVAL 00258 TDECVAL 00259 PROCEDURE DIVISION USING PARM-AREA. TDECVAL 00260 TDECVAL 00261 ** READY TRACE. TDECVAL 00262 ACCEPT SELECT-CARD. TDECVAL 00263 OPEN INPUT TDECFILE TDECVAL 00264 I-O EAFILE TDECVAL 00265 OUTPUT LISTOUT TDECOUT. TDECVAL 00266 TDECVAL 00267 ACCEPT WS-TODAY FROM DATE. TDECVAL 00268 MOVE WS-TODAY-YY TO REPORTING-DATE-YY. TDECVAL 00269 MOVE WS-TODAY-MM TO REPORTING-DATE-MM. TDECVAL 00270 MOVE WS-TODAY-DD TO REPORTING-DATE-DD. TDECVAL 00271 TDECVAL 00272 MOVE ZEROS TO COUNTERS. TDECVAL 00273 TDECVAL 00274 PERFORM INIT0100-EDIT-PARMS THRU INIT0100-EXIT. TDECVAL 00275 TDECVAL 00276 PERFORM 100-READ-WAGE THRU 100-RW-EXIT TDECVAL 00277 UNTIL TDECVAL 00278 EOF = 1. TDECVAL 00279 TDECVAL 00280 INIT0100-EDIT-PARMS. TDECVAL 00281 TDECVAL 00282 IF PARM-LOG-NO NOT NUMERIC TDECVAL 00283 MOVE 'PARM-LOG-NO IS NOT NUMERIC ' TO ABEND-MSG TDECVAL 00284 PERFORM SERV9999-ABEND THRU SERV9999-EXIT. TDECVAL 00285 TDECVAL 00286 DISPLAY 'PARM-LOG-NO = ' PARM-LOG-NO. TDECVAL 00287 TDECVAL 00288 IF PARM-ZERO-WAGE-NO NOT NUMERIC TDECVAL 00289 MOVE 'PARM-ZERO-WAGE-NO IS NOT NUMERIC ' TO ABEND-MSG TDECVAL 00290 PERFORM SERV9999-ABEND THRU SERV9999-EXIT. TDECVAL 00291 TDECVAL 00292 MOVE PARM-ZERO-WAGE-NO TO WS-ZERO-WAGE-NO. TDECVAL 00293 DISPLAY 'PARM-ZERO-WAGE-NO = ' WS-ZERO-WAGE-NO. TDECVAL 00294 TDECVAL 00295 TDECVAL 00296 SET L200-CMD-INIT-88 TO TRUE. TDECVAL 00297 MOVE PARM-LOG-NO TO L200-LOG-NO-SFX. TDECVAL 00298 MOVE WRK-MOD-NAME TO L200-PROG-NAME. TDECVAL 00299 CALL 'DESBD200' USING L200-LINK-AREA C202-MSG-TABLE. TDECVAL 00300 MOVE L200-LOG-NO TO WRK-LOG-NO. TDECVAL 00301 TDECVAL 00302 DISPLAY 'WRK-LOG-NO = ' WRK-LOG-NO. TDECVAL 00303 TDECVAL 00304 INIT0100-EXIT. TDECVAL 00305 EXIT. TDECVAL 00306 TDECVAL 00307 100-READ-WAGE. TDECVAL 00308 READ TDECFILE INTO ESP-TRANSACTION-AREA TDECVAL 00309 AT END TDECVAL 00310 MOVE 1 TO EOF TDECVAL 00311 TDECVAL 00312 IF WS-EMP-TOT-CNT > ZERO TDECVAL 00313 MOVE WS-CURR-EMP TO L200-EMP-NO TDECVAL 00314 MOVE WS-QUARTER-YR-QTR TO L200-REPORTING-DATE TDECVAL 00315 MOVE WS-EMP-TOT-CNT TO L200-TOT-CNT TDECVAL 00316 MOVE WS-EMP-SUCCESS-CNT TO L200-SUCCESS-CNT TDECVAL 00317 ELSE TDECVAL 00318 MOVE ZERO TO L200-EMP-NO TDECVAL 00319 L200-TOT-CNT TDECVAL 00320 L200-SUCCESS-CNT TDECVAL 00321 END-IF TDECVAL 00322 TDECVAL 00323 SET L200-CMD-TERMINATE-88 TO TRUE TDECVAL 00324 PERFORM SERV0200-UPD-LOG THRU SERV0200-EXIT. TDECVAL 00325 TDECVAL 00326 IF EOF = 1 TDECVAL 00327 GO TO 999-CLOSE-FILES. TDECVAL 00328 ** TDECVAL 00329 **TO BYPASS WAGE REPORTS PRINTED FROM THE NEW TAX M/F TDECVAL 00330 ** TDECVAL 00331 IF TRAN-QUARTER-YR-QTR > 19993 TDECVAL 00332 ** ADD 1 TO RECS-IN TDECVAL 00333 GO TO 100-READ-WAGE. TDECVAL 00334 TDECVAL 00335 ADD 1 TO RECS-IN. TDECVAL 00336 TDECVAL 00337 INSPECT TRAN-QUARTER-EARNINGS REPLACING TDECVAL 00338 LEADING ' ' BY ZERO. TDECVAL 00339 TDECVAL 00340 IF TRAN-QUARTER-EARNINGS = ZEROS TDECVAL 00341 IF WS-ZERO-WAGE-NO = EXCEPTION-CNT TDECVAL 00342 ADD 1 TO ZERO-WAGE-CNT TDECVAL 00343 GO TO 100-READ-WAGE TDECVAL 00344 ELSE TDECVAL 00345 MOVE 'GROSS-WAGE EQUAL ZEROS' TO MESSAGE-AREA TDECVAL 00346 * MOVE 1 TO ERROR-SW TDECVAL 00347 ADD 1 TO ZERO-WAGE-CNT TDECVAL 00348 ADD 1 TO EXCEPTION-CNT TDECVAL 00349 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00350 SET EMSG106-SELECTED-YES TO TRUE TDECVAL 00351 MOVE ZERO TO ERROR-SW TDECVAL 00352 GO TO 100-RW-EXIT. TDECVAL 00353 TDECVAL 00354 MOVE TRAN-ACCOUNT TO WS-WAGE-ACCOUNT. TDECVAL 00355 TDECVAL 00356 IF WS-WAGE-ACCOUNT NOT NUMERIC TDECVAL 00357 * NEXT SENTENCE TDECVAL 00358 MOVE ZEROS TO WS-WAGE-ACCOUNT TDECVAL 00359 ELSE TDECVAL 00360 IF WS-CURR-EMP = ZERO TDECVAL 00361 MOVE WS-WAGE-ACCOUNT TO WS-CURR-EMP TDECVAL 00362 MOVE +1 TO WS-EMP-TOT-CNT TDECVAL 00363 MOVE ZERO TO WS-EMP-SUCCESS-CNT TDECVAL 00364 ELSE TDECVAL 00365 IF WS-WAGE-ACCOUNT NOT = WS-CURR-EMP TDECVAL 00366 SET L200-CMD-EMP-COMPLETE-88 TO TRUE TDECVAL 00367 MOVE WS-CURR-EMP TO L200-EMP-NO TDECVAL 00368 MOVE WS-QUARTER-YR-QTR TO L200-REPORTING-DATE TDECVAL 00369 MOVE WS-EMP-TOT-CNT TO L200-TOT-CNT TDECVAL 00370 MOVE WS-EMP-SUCCESS-CNT TO L200-SUCCESS-CNT TDECVAL 00371 PERFORM SERV0200-UPD-LOG THRU SERV0200-EXIT TDECVAL 00372 MOVE +1 TO WS-EMP-TOT-CNT TDECVAL 00373 MOVE ZERO TO WS-EMP-SUCCESS-CNT TDECVAL 00374 MOVE WS-WAGE-ACCOUNT TO WS-CURR-EMP TDECVAL 00375 ELSE TDECVAL 00376 ADD +1 TO WS-EMP-TOT-CNT TDECVAL 00377 END-IF TDECVAL 00378 END-IF TDECVAL 00379 END-IF. TDECVAL 00380 TDECVAL 00381 PERFORM 110-VALIDATE-WAGE THRU 121-VW-EXIT. TDECVAL 00382 TDECVAL 00383 IF ERROR-SW = 1 TDECVAL 00384 MOVE ZERO TO ERROR-SW TDECVAL 00385 GO TO 100-RW-EXIT TDECVAL 00386 ELSE TDECVAL 00387 MOVE ZERO TO ERROR-SW. TDECVAL 00388 TDECVAL 00389 PERFORM 220-CREATE-W4-TRAN THRU 220-CW-EXIT. TDECVAL 00390 TDECVAL 00391 100-RW-EXIT. TDECVAL 00392 EXIT. TDECVAL 00393 TDECVAL 00394 110-VALIDATE-WAGE. TDECVAL 00395 TDECVAL 00396 MOVE SPACES TO MESSAGE-AREA. TDECVAL 00397 TDECVAL 00398 111-VALIDATE-SSN. TDECVAL 00399 IF TR-SSN NOT NUMERIC TDECVAL 00400 MOVE 1 TO ERROR-SW TDECVAL 00401 MOVE 'SSN NOT NUMERIC ' TO MESSAGE-AREA TDECVAL 00402 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00403 SET EMSG104-SELECTED-YES TO TRUE TDECVAL 00404 GO TO 121-VW-EXIT. TDECVAL 00405 TDECVAL 00406 112-VALIDATE-ID. TDECVAL 00407 IF TRAN-ID NOT = 'W4' TDECVAL 00408 MOVE 1 TO ERROR-SW TDECVAL 00409 MOVE 'TRAN-ID ERROR' TO MESSAGE-AREA TDECVAL 00410 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00411 SET EMSG112-SELECTED-YES TO TRUE. TDECVAL 00412 TDECVAL 00413 113-VALIDATE-DATE. TDECVAL 00414 IF TRAN-DATE-ENTERED NOT NUMERIC TDECVAL 00415 MOVE 1 TO ERROR-SW TDECVAL 00416 MOVE 'DATE ENTERED ERROR' TO MESSAGE-AREA TDECVAL 00417 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00418 SET EMSG113-SELECTED-YES TO TRUE. TDECVAL 00419 TDECVAL 00420 114-VALIDATE-TIME. TDECVAL 00421 IF TRAN-TIME-ENTERED NOT NUMERIC TDECVAL 00422 MOVE 1 TO ERROR-SW TDECVAL 00423 MOVE 'TIME-ENTERED ERROR' TO MESSAGE-AREA TDECVAL 00424 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00425 SET EMSG114-SELECTED-YES TO TRUE. TDECVAL 00426 TDECVAL 00427 115-VALIDATE-NAME. TDECVAL 00428 IF TRAN-NAME-CHECK EQUAL SPACES TDECVAL 00429 MOVE 1 TO ERROR-SW TDECVAL 00430 MOVE 'EMPLOYEE NAME IS SPACES' TO MESSAGE-AREA TDECVAL 00431 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00432 SET EMSG107-SELECTED-YES TO TRUE. TDECVAL 00433 TDECVAL 00434 116-VALIDATE-QUARTER1. TDECVAL 00435 IF TRAN-QUARTER-YR-QTR NOT NUMERIC TDECVAL 00436 MOVE 1 TO ERROR-SW TDECVAL 00437 MOVE 'QUARTER FIELD NOT VALID' TO MESSAGE-AREA TDECVAL 00438 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00439 SET EMSG101-SELECTED-YES TO TRUE TDECVAL 00440 GO TO 118-QUARTER-EARNINGS-CHECK. TDECVAL 00441 TDECVAL 00442 IF SELECT-QUARTER EQUAL 'ALL' TDECVAL 00443 GO TO 118-QUARTER-EARNINGS-CHECK. TDECVAL 00444 TDECVAL 00445 117-VALIDATE-QUARTER2. TDECVAL 00446 IF TRAN-QUARTER-YR-QTR NOT EQUAL SELECT-QUARTER TDECVAL 00447 MOVE 1 TO ERROR-SW TDECVAL 00448 MOVE 'QUARTER FIELD NOT VALID' TO MESSAGE-AREA TDECVAL 00449 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00450 SET EMSG101-SELECTED-YES TO TRUE. TDECVAL 00451 TDECVAL 00452 118-QUARTER-EARNINGS-CHECK. TDECVAL 00453 IF TRAN-QUARTER-EARNINGS NOT NUMERIC TDECVAL 00454 MOVE 1 TO ERROR-SW TDECVAL 00455 MOVE 'QUARTER EARNINGS NOT NUMERIC' TO MESSAGE-AREA TDECVAL 00456 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00457 SET EMSG105-SELECTED-YES TO TRUE TDECVAL 00458 GO TO 121-VW-EXIT. TDECVAL 00459 TDECVAL 00460 119-TRAN-ACCOUNT1. TDECVAL 00461 IF TRAN-ACCOUNT NOT NUMERIC TDECVAL 00462 MOVE 1 TO ERROR-SW TDECVAL 00463 MOVE 'ACCOUNT NUMBER NOT NUMERIC' TO MESSAGE-AREA TDECVAL 00464 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00465 SET EMSG108-SELECTED-YES TO TRUE TDECVAL 00466 * GO TO 120-TRAN-EMP-NAME. TDECVAL 00467 GO TO 121-VW-EXIT. TDECVAL 00468 IF TRAN-ACCOUNT EQUAL ZEROS TDECVAL 00469 MOVE 1 TO ERROR-SW TDECVAL 00470 MOVE 'ACCOUNT NUMBER EQUAL ZEROS' TO MESSAGE-AREA TDECVAL 00471 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00472 SET EMSG109-SELECTED-YES TO TRUE TDECVAL 00473 * GO TO 120-TRAN-EMP-NAME. TDECVAL 00474 GO TO 121-VW-EXIT. TDECVAL 00475 TDECVAL 00476 119-TRAN-ACCOUNT2. TDECVAL 00477 TDECVAL 00478 MOVE TRAN-ACCOUNT TO EMPL-ACCT-NO. TDECVAL 00479 TDECVAL 00480 READ EAFILE TDECVAL 00481 INVALID KEY TDECVAL 00482 DISPLAY 'ACCOUNT # INVALID KEY ' EMPL-ACCT-NO TDECVAL 00483 MOVE 'ACCOUNT NUMBER NOT ON M/F ' TO MESSAGE-AREA TDECVAL 00484 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00485 SET EMSG109-SELECTED-YES TO TRUE TDECVAL 00486 GO TO 121-VW-EXIT. TDECVAL 00487 *** GO TO 120-TRAN-EMP-NAME. TDECVAL 00488 *** DISPLAY 'FILE-STATUS *99*' FILE-STATUS-FILE. TDECVAL 00489 TDECVAL 00490 MOVE ALPHA-SORT-NAME TO ALPHA-SORT-NAME-FOUR. TDECVAL 00491 MOVE MAILING-NAME TO MAILING-NAME-FOUR. TDECVAL 00492 TDECVAL 00493 ** IF FILE-STATUS-FILE EQUAL 00 TDECVAL 00494 ** DISPLAY 'FILE-STATUS *OO*' FILE-STATUS-FILE TDECVAL 00495 ** DISPLAY 'TRAN-ACCOUNT *OO*' TRAN-ACCOUNT TDECVAL 00496 ** DISPLAY 'EMPL-ACCOUNT *OO*' EMPL-ACCT-NO. TDECVAL 00497 TDECVAL 00498 IF FILE-STATUS-FILE EQUAL 23 TDECVAL 00499 DISPLAY 'FILE-STATUS ****' FILE-STATUS-FILE TDECVAL 00500 DISPLAY 'TRAN-ACCOUNT ****' TRAN-ACCOUNT. TDECVAL 00501 TDECVAL 00502 120-TRAN-EMP-NAME. TDECVAL 00503 IF TRAN-EMP-NAME EQUAL SPACES TDECVAL 00504 ** MOVE 1 TO ERROR-SW TDECVAL 00505 MOVE 'EMPLOYER NAME EQUAL SPACES' TO MESSAGE-AREA TDECVAL 00506 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00507 SET EMSG110-SELECTED-YES TO TRUE. TDECVAL 00508 TDECVAL 00509 *** DISPLAY '2511 ALPHA-NAME' ALPHA-SORT-NAME-FOUR TRAN-EMP-NAME.TDECVAL 00510 IF (ALPHA-SORT-NAME-FOUR = TRAN-EMP-NAME) OR TDECVAL 00511 (MAILING-NAME-FOUR = TRAN-EMP-NAME) TDECVAL 00512 NEXT SENTENCE TDECVAL 00513 ELSE TDECVAL 00514 ** MOVE 1 TO ERROR-SW TDECVAL 00515 MOVE 'EMPLOYER NAME NOT ON M/F' TDECVAL 00516 TO MESSAGE-AREA TDECVAL 00517 MOVE TRAN-EMP-NAME TO EMPOR-PRT TDECVAL 00518 PERFORM 125-WAGE-REPORT THRU 125-WR-EXIT TDECVAL 00519 SET EMSG111-SELECTED-YES TO TRUE. TDECVAL 00520 TDECVAL 00521 121-VW-EXIT. TDECVAL 00522 EXIT. TDECVAL 00523 TDECVAL 00524 125-WAGE-REPORT. TDECVAL 00525 TDECVAL 00526 MOVE TR-SSN TO SSN-PRT. TDECVAL 00527 MOVE TRAN-DATE-ENTERED TO DATE-ENTERED-PRT. TDECVAL 00528 MOVE TRAN-NAME-CHECK TO EMPEE-NAME. TDECVAL 00529 MOVE TRAN-QUARTER-EARNINGS TO EARNINGS-PRT. TDECVAL 00530 MOVE TRAN-QUARTER-YR-QTR TO QTR-PRT. TDECVAL 00531 MOVE TRAN-ACCOUNT TO ACCT-NUM-PRT. TDECVAL 00532 MOVE TRAN-EMP-NAME TO EMPOR-PRT. TDECVAL 00533 IF LINE-CTR > 55 TDECVAL 00534 PERFORM 130-WAGE-HEADER THRU 130-WH-EXIT. TDECVAL 00535 WRITE PRINT-REC FROM DTL1. TDECVAL 00536 IF TRAN-QUARTER-EARNINGS NOT = ZEROS TDECVAL 00537 ADD 1 TO ERROR-RECS. TDECVAL 00538 ADD 1 TO LINE-CTR. TDECVAL 00539 125-WR-EXIT. TDECVAL 00540 EXIT. TDECVAL 00541 TDECVAL 00542 130-WAGE-HEADER. TDECVAL 00543 ADD 1 TO PAGE-CTR. TDECVAL 00544 MOVE PAGE-CTR TO PAGE-CTR-PRT. TDECVAL 00545 WRITE PRINT-REC FROM HD1 AFTER TOP-OF-PAGE. TDECVAL 00546 WRITE PRINT-REC FROM HD2. TDECVAL 00547 WRITE PRINT-REC FROM HD3. TDECVAL 00548 WRITE PRINT-REC FROM HD4. TDECVAL 00549 MOVE 4 TO LINE-CTR. TDECVAL 00550 130-WH-EXIT. TDECVAL 00551 EXIT. TDECVAL 00552 TDECVAL 00553 220-CREATE-W4-TRAN. TDECVAL 00554 TDECVAL 00555 ADD +1 TO WS-EMP-SUCCESS-CNT. TDECVAL 00556 TDECVAL 00557 MOVE WRK-LOG-NO TO WRK-TRAN-LOG-NO. TDECVAL 00558 MOVE ESP-TRANSACTION-AREA TO WRK-TRAN-AREA. TDECVAL 00559 TDECVAL 00560 WRITE TDECOUT-REC FROM WRK-TRANSACTION-AREA. TDECVAL 00561 ADD 1 TO QTR-RECS-OUT. TDECVAL 00562 ADD TRAN-QUARTER-EARNINGS TO EMP-QTR-TOT-EARNINGS. TDECVAL 00563 TDECVAL 00564 220-CW-EXIT. TDECVAL 00565 EXIT. TDECVAL 00566 TDECVAL 00567 TDECVAL 00568 ******************************************************************TDECVAL 00569 * OBTAIN YYYYQ YEAR-QUARTER INFORMATION. *TDECVAL 00570 ******************************************************************TDECVAL 00571 S004-FROM-3. TDECVAL 00572 SET L004-FROM-3 TO TRUE. TDECVAL 00573 GO TO S004-YRQ. TDECVAL 00574 TDECVAL 00575 S004-YRQ. TDECVAL 00576 CALL 'DTSBU004' USING L004-LINK-AREA. TDECVAL 00577 TDECVAL 00578 S004-EXIT. TDECVAL 00579 EXIT. TDECVAL 00580 EJECT TDECVAL 00581 TDECVAL 00582 ******************************************************************TDECVAL 00583 * CALL DESBD200 TO UPDATE MSTF LOG FILE. *TDECVAL 00584 ******************************************************************TDECVAL 00585 SERV0200-UPD-LOG. TDECVAL 00586 TDECVAL 00587 MOVE WRK-LOG-NO TO L200-LOG-NO. TDECVAL 00588 MOVE WRK-MOD-NAME TO L200-PROG-NAME. TDECVAL 00589 TDECVAL 00590 CALL 'DESBD200' USING L200-LINK-AREA C202-MSG-TABLE. TDECVAL 00591 TDECVAL 00592 SERV0200-EXIT. TDECVAL 00593 EXIT. TDECVAL 00594 TDECVAL 00595 SERV9999-ABEND. TDECVAL 00596 DISPLAY '**** DTECVAL ABENDING ' ABEND-MSG. TDECVAL 00597 CALL ABEND-MOD USING ABEND-CD. TDECVAL 00598 SERV9999-EXIT. TDECVAL 00599 EXIT. TDECVAL 00600 TDECVAL 00601 999-CLOSE-FILES. TDECVAL 00602 MOVE RECS-IN TO WAGE-CNT-PRT. TDECVAL 00603 MOVE QTR-RECS-OUT TO WAGE-OUT-PRT. TDECVAL 00604 MOVE ERROR-RECS TO ERRORS-PRT. TDECVAL 00605 MOVE ZERO-WAGE-CNT TO ZERO-WAGE-PRT. TDECVAL 00606 IF LINE-CTR > 52 TDECVAL 00607 PERFORM 130-WAGE-HEADER THRU 130-WH-EXIT. TDECVAL 00608 WRITE PRINT-REC FROM TOT1 AFTER 2. TDECVAL 00609 CLOSE TDECFILE LISTOUT EAFILE. TDECVAL 00610 CLOSE TDECOUT. TDECVAL 00611 STOP RUN. TDECVAL 00612 TDECVAL