00001 IDENTIFICATION DIVISION. 06/25/09 00002 PROGRAM-ID. DTSBD541. DTSBD541 00003 AUTHOR. NGC. LV003 00004 DATE-WRITTEN. JUNE 2004. DTSBD541 00005 DATE-COMPILED. DTSBD541 00006 SKIP3 DTSBD541 00007 ***** DTSBD541 00008 * FUNCTION: BUILD EMPLOYEE TRANSFER TRANSACTION FILE (ETT) DTSBD541 00009 * FOR ES202 PROCESS. DTSBD541 00010 * STEP 1 - EXTRACT DATA FROM 2 CONSECUTIVE QUARTERS DTSBD541 00011 * DTSBD541 00012 * MODIFICATION LOG: DTSBD541 00013 * DTSBD541 00014 * 06/24/2004 INITIAL DEVELOPMENT DTSBD541 00015 * WORK ORDER: PROGRAMMER: GD DTSBD541 00016 * DTSBD541 00017 * 08/25/2004 ADDED WAGE FILE DTSBD541 00018 * WORK ORDER: PROGRAMMER: GD DTSBD541 00019 * DTSBD541 00020 * 10/25/2004 READ THE PARAMETER FILE CONTAINING BOTH PARM DTSBD541 00021 * SPECIFIED QTR AND PREVIOUS QTR WHICH CREATED DTSBD541 00022 * FROM PGM DTSBD540 FOR THIS PGM PROCESSING. DTSBD541 00023 * REFERENCE: LMI REQUIRMENT PROGRAMMER: RW DTSBD541 00024 * DTSBD541 00025 * 99/99/9999 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD541 00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD541 00027 * WORK ORDER: PROGRAMMER: XXX DTSBD541 00028 * DTSBD541 00029 * DESCRIPTION: DTSBD541 00030 * DTSBD541 00031 * INITIATION: DTSBD541 00032 * VSAM WAGE FILE OPEN READ DTSBD541 00033 * DTSBD541 00034 * PARAMETERS INPUT: DTSBD541 00035 * PARM-EMP-NO PARM-START-YRQ PARM-END-YRQ. DTSBD541 00036 * DTSBD541 00037 * PROCESSING: DTSBD541 00038 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (535R1). DTSBD541 00039 * DTSBD541 00040 * TERMINATION: DTSBD541 00041 * OUTPUT STATISTICAL RECORDS COUNT. DTSBD541 00042 * DTSBD541 00043 * RECORDS READ: DTSBD541 00044 * MASTER: DTSBD541 00045 VSAM WAGES FILE DTSBD541 00046 * DTSBD541 00047 * ALTERNATE INDEX: DTSBD541 00048 * NONE. DTSBD541 00049 * DTSBD541 00050 * REFERENCE: DTSBD541 00051 * NONE. DTSBD541 00052 * DTSBD541 00053 * RECORDS UPDATED: DTSBD541 00054 * NONE DTSBD541 00055 * DTSBD541 00056 * REPORT RECORDS WRITTEN: DTSBD541 00057 * NONE. DTSBD541 00058 * DTSBD541 00059 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBD541 00060 * NONE. DTSBD541 00061 * DTSBD541 00062 * MODULES CALLED: DTSBD541 00063 * DTSBU001 DATE CONVERSION/EDIT. DTSBD541 00064 * DTSBU004 QUARERLY SUMMARY REPORT REC. DTSBD541 00065 * DTSBU981 VSAM.WGH FILE I/O. DTSBD541 00066 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBD541 00067 * DTSBD541 00068 * VERMONT REFERENCE: DTSBD541 00069 * NONE. DTSBD541 00070 * DTSBD541 00071 ***** DTSBD541 00072 SKIP3 DTSBD541 00073 ENVIRONMENT DIVISION. DTSBD541 00074 INPUT-OUTPUT SECTION. DTSBD541 00075 SKIP3 DTSBD541 00076 FILE-CONTROL. DTSBD541 00077 SELECT ES202PRM-FILE ASSIGN TO ES202P1I DTSBD541 00078 FILE STATUS IS PARM-STATUS. DTSBD541 00079 DTSBD541 00080 SELECT OUTFILE1 ASSIGN TO OUTFILE1 DTSBD541 00081 FILE STATUS IS OUTFILE1-STATUS. DTSBD541 00082 DTSBD541 00083 SELECT ES2WAGE ASSIGN TO ES2WAGE DTSBD541 00084 FILE STATUS IS ES2WAGE-STATUS. DTSBD541 00085 DTSBD541 00086 SELECT EXPORT-WAGE ASSIGN TO EXPWAGE DTSBD541 00087 FILE STATUS IS EXPWAGE-STATUS. DTSBD541 00088 DTSBD541 00089 SKIP3 DTSBD541 00090 DATA DIVISION. DTSBD541 00091 FILE SECTION. DTSBD541 00092 FD ES202PRM-FILE DTSBD541 00093 RECORDING MODE IS F DTSBD541 00094 BLOCK CONTAINS 0 RECORDS. DTSBD541 00095 DTSBD541 00096 01 ES202-PARM-REC. DTSBD541 00097 05 ES202-PARM-YRQ1 PIC S9(05) COMP-3. DTSBD541 00098 05 ES202-PARM-YRQ2 PIC S9(05) COMP-3. DTSBD541 00099 DTSBD541 00100 FD OUTFILE1 DTSBD541 00101 RECORD CONTAINS 16 CHARACTERS DTSBD541 00102 DATA RECORD IS OUTFILE1-REC. DTSBD541 00103 DTSBD541 00104 01 OUTFILE1-REC. DTSBD541 00105 05 OUTFILE1-SSN PIC 9(09). DTSBD541 00106 05 OUTFILE1-QTR PIC 9(01). DTSBD541 00107 05 OUTFILE1-EMP-NO PIC 9(06). DTSBD541 00108 DTSBD541 00109 FD ES2WAGE DTSBD541 00110 RECORD CONTAINS 26 CHARACTERS DTSBD541 00111 DATA RECORD IS ES2WAGE-REC. DTSBD541 00112 SKIP1 DTSBD541 00113 01 ES2WAGE-REC. DTSBD541 00114 ++INCLUDE ES2WAGV1 DTSBD541 00115 DTSBD541 00116 FD EXPORT-WAGE DTSBD541 00117 RECORD CONTAINS 92 CHARACTERS DTSBD541 00118 DATA RECORD IS EXPWAGE-REC. DTSBD541 00119 SKIP1 DTSBD541 00120 01 EXPWAGE-REC PIC X(92). DTSBD541 00121 DTSBD541 00122 WORKING-STORAGE SECTION. DTSBD541 001225 77 PAN-VALET PICTURE X(24) VALUE '003DTSBD541 06/25/09'. DTSBD541 00123 DTSBD541 00124 01 WRK-AREA. DTSBD541 00125 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +541.DTSBD541 00126 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD541'.DTSBD541 00127 05 WRK-ABEND-MSG PIC X(60). DTSBD541 00128 DTSBD541 00129 05 DISP-PARM-START-YRQ PIC X(05). DTSBD541 00130 05 DISP-PARM-END-YRQ PIC X(05). DTSBD541 00131 05 DISP-ESTB-DATE PIC X(10). DTSBD541 00132 05 RUN-DATE PIC S9(09) COMP-3. DTSBD541 00133 05 WRK-YRQ1 PIC S9(05) COMP-3. DTSBD541 00134 05 WRK-YRQ2 PIC S9(05) COMP-3. DTSBD541 00135 05 WRK-EMP-NO PIC S9(07) COMP-3 DTSBD541 00136 VALUE +0. DTSBD541 00137 05 WRK-EMPLOYEE PIC S9(07) COMP-3 DTSBD541 00138 VALUE +0. DTSBD541 00139 05 WRK-TOT-EARNINGS PIC S9(11)V99 COMP-3 DTSBD541 00140 VALUE +0. DTSBD541 00141 DTSBD541 00142 DTSBD541 00143 05 WRK-SUBJECT-IND PIC X(01) VALUE 'N'. DTSBD541 00144 88 WRK-SUBJECT-YES-88 VALUE 'Y'. DTSBD541 00145 88 WRK-SUBJECT-NO-88 VALUE 'N'. DTSBD541 00146 DTSBD541 00147 05 PARM-STATUS PIC X(02). DTSBD541 00148 88 PARM-OK-88 VALUE '00'. DTSBD541 00149 88 PARM-EOF-88 VALUE '10'. DTSBD541 00150 DTSBD541 00151 05 OUTFILE1-STATUS PIC X(02). DTSBD541 00152 88 OUTFILE1-OK-88 VALUE '00'. DTSBD541 00153 DTSBD541 00154 05 ES2WAGE-STATUS PIC X(02). DTSBD541 00155 88 ES2WAGE-OK-88 VALUE '00'. DTSBD541 00156 DTSBD541 00157 05 EXPWAGE-STATUS PIC X(02). DTSBD541 00158 88 EXPWAGE-OK-88 VALUE '00'. DTSBD541 00159 DTSBD541 00160 05 WRK-EOF-IND PIC X(03) DTSBD541 00161 VALUE 'NO '. DTSBD541 00162 DTSBD541 00163 05 WRK-ERROR-IND PIC X(01). DTSBD541 00164 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBD541 00165 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBD541 00166 DTSBD541 00167 05 WRK-WWGH-READ-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD541 00168 05 WRK-OUTFILE1-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD541 00169 05 WRK-ES2WAGE-WRITE-CNT PIC S9(09) COMP-3 VALUE +0. DTSBD541 00170 05 WRK-EXPWAGE-WRITE-CNT PIC S9(09) COMP-3 VALUE +0. DTSBD541 00171 05 PARM-REC-CNT PIC S9(05) COMP-3 VALUE +0. DTSBD541 00172 DTSBD541 00173 05 WRK-PARM-START-YRQ PIC S9(05) COMP-3. DTSBD541 00174 05 WRK-PARM-END-YRQ PIC S9(05) COMP-3. DTSBD541 00175 DTSBD541 00176 01 WRK-YRQ PIC 9(05). DTSBD541 00177 01 FILLER REDEFINES WRK-YRQ. DTSBD541 00178 05 WRK-YRQ-YEAR PIC 9(4). DTSBD541 00179 05 WRK-YRQ-QTR PIC 9(1). DTSBD541 00180 EJECT DTSBD541 00181 DTSBD541 00182 01 WRK-EXPWAGE-REC. DTSBD541 00183 05 EXP-SSN PIC 9(09). DTSBD541 00184 05 EXP-FIRST-NAME PIC X(15). DTSBD541 00185 05 EXP-MIDDLE-INITIAL PIC X(01). DTSBD541 00186 05 EXP-LAST-NAME PIC X(20). DTSBD541 00187 05 EXP-STATE-FIPS PIC 9(02). DTSBD541 00188 05 EXP-UI-ACCOUNT PIC 9(10). DTSBD541 00189 05 EXP-REPORTING-UNIT PIC 9(05). DTSBD541 00190 05 EXP-FEIN PIC 9(09). DTSBD541 00191 05 EXP-YEAR PIC 9(04). DTSBD541 00192 05 EXP-QUARTER PIC 9(01). DTSBD541 00193 05 EXP-WAGES PIC 9(10). DTSBD541 00194 05 EXP-HOURS PIC 9(03). DTSBD541 00195 05 EXP-WEEKS PIC 9(03). DTSBD541 00196 DTSBD541 00197 01 L001-LINK-AREA. DTSBD541 00198 ++INCLUDE DTSIL001 DTSBD541 00199 EJECT DTSBD541 00200 01 L004-LINK-AREA. DTSBD541 00201 ++INCLUDE DTSIL004 DTSBD541 00202 EJECT DTSBD541 00203 01 L910-LINK-AREA. DTSBD541 00204 ++INCLUDE DTSIL910 DTSBD541 00205 EJECT DTSBD541 00206 01 MSKL-REC. DTSBD541 00207 ++INCLUDE DTSIMSKL DTSBD541 00208 DTSBD541 00209 01 MPRF-REC. DTSBD541 00210 ++INCLUDE DTSIMPRF DTSBD541 00211 DTSBD541 00212 01 L981-LINK-AREA. DTSBD541 00213 ++INCLUDE DTSIL981 DTSBD541 00214 SKIP3 DTSBD541 00215 01 WWGH-REC. DTSBD541 00216 ++INCLUDE DTSIWWGH DTSBD541 00217 EJECT DTSBD541 00218 PROCEDURE DIVISION. DTSBD541 00219 DTSBD541 00220 PERFORM I0000-INITIALIZE THRU I0000-EXIT. DTSBD541 00221 IF WRK-ERROR-NO-88 DTSBD541 00222 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD541 00223 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBD541 00224 END-IF. DTSBD541 00225 DTSBD541 00226 GOBACK. DTSBD541 00227 EJECT DTSBD541 00228 I0000-INITIALIZE. DTSBD541 00229 DTSBD541 00230 SET WRK-ERROR-NO-88 TO TRUE. DTSBD541 00231 DTSBD541 00232 PERFORM I1000-PROCESS-PARMS THRU I1000-EXIT. DTSBD541 00233 DTSBD541 00234 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBD541 00235 DTSBD541 00236 MOVE WRK-MOD-NAME TO L981-MOD-NAME. DTSBD541 00237 DTSBD541 00238 I0000-EXIT. DTSBD541 00239 EXIT. DTSBD541 00240 DTSBD541 00241 I1000-PROCESS-PARMS. DTSBD541 00242 DTSBD541 00243 OPEN INPUT ES202PRM-FILE. DTSBD541 00244 READ ES202PRM-FILE. DTSBD541 00245 IF NOT PARM-OK-88 DTSBD541 00246 DISPLAY '*** FILE STATUS IS : ' PARM-STATUS DTSBD541 00247 MOVE 'CANNOT OPEN ES202PRM FILE ' TO WRK-ABEND-MSG DTSBD541 00248 PERFORM S999-ABEND THRU S999-EXIT DTSBD541 00249 END-IF. DTSBD541 00250 DTSBD541 00251 ************************************************************* DTSBD541 00252 * YRQ1 = NEW QUARTER DTSBD541 00253 * YRQ2 = OLD QUARTER DTSBD541 00254 ************************************************************* DTSBD541 00255 MOVE ES202-PARM-YRQ1 TO WRK-YRQ1. DTSBD541 00256 MOVE ES202-PARM-YRQ2 TO WRK-YRQ2. DTSBD541 00257 DTSBD541 00258 DISPLAY SPACE. DTSBD541 00259 DISPLAY 'BD541 YRQ1 ' WRK-YRQ1 ' YRQ2 ' WRK-YRQ2. DTSBD541 00260 DISPLAY SPACE. DTSBD541 00261 I1000-EXIT. DTSBD541 00262 EXIT. DTSBD541 00263 SKIP3 DTSBD541 00264 DTSBD541 00265 I2000-OPEN-FILES. DTSBD541 00266 OPEN OUTPUT OUTFILE1. DTSBD541 00267 IF NOT OUTFILE1-OK-88 DTSBD541 00268 DISPLAY 'CANNOT OPEN OUTFILE1 ' OUTFILE1-STATUS DTSBD541 00269 SET WRK-ERROR-YES-88 TO TRUE DTSBD541 00270 GO TO I2000-EXIT DTSBD541 00271 END-IF. DTSBD541 00272 DTSBD541 00273 OPEN OUTPUT ES2WAGE. DTSBD541 00274 IF NOT ES2WAGE-OK-88 DTSBD541 00275 DISPLAY 'CANNOT OPEN ES2WAGE ' ES2WAGE-STATUS DTSBD541 00276 SET WRK-ERROR-YES-88 TO TRUE DTSBD541 00277 GO TO I2000-EXIT DTSBD541 00278 END-IF. DTSBD541 00279 DTSBD541 00280 OPEN OUTPUT EXPORT-WAGE. DTSBD541 00281 IF NOT EXPWAGE-OK-88 DTSBD541 00282 DISPLAY 'CANNOT OPEN EXPWAGE ' EXPWAGE-STATUS DTSBD541 00283 SET WRK-ERROR-YES-88 TO TRUE DTSBD541 00284 GO TO I2000-EXIT DTSBD541 00285 END-IF. DTSBD541 00286 DTSBD541 00287 PERFORM S910A-OPEN-READ THRU S910A-EXIT. DTSBD541 00288 PERFORM S981A-OPEN-READ THRU S981A-EXIT. DTSBD541 00289 DTSBD541 00290 I2000-EXIT. DTSBD541 00291 EXIT. DTSBD541 00292 SKIP3 DTSBD541 00293 ************************************************************** DTSBD541 00294 * START BROWSE THE VSAM.WGH FILE WITH THE PARM-START-YRQ * DTSBD541 00295 * AND PARM-EMP-NO. * DTSBD541 00296 ************************************************************** DTSBD541 00297 DTSBD541 00298 P0000-PROCESS. DTSBD541 00299 MOVE LOW-VALUES TO WWGH-REC. DTSBD541 00300 MOVE ZERO TO WWGH-EMP-NO DTSBD541 00301 WWGH-YRQ DTSBD541 00302 WWGH-SSN. DTSBD541 00303 DTSBD541 00304 PERFORM S981D-START-BROWSE THRU S981D-EXIT. DTSBD541 00305 IF L981-NO-REC-88 DTSBD541 00306 MOVE '1ST START BROWSE FIND NO REC ' TO WRK-ABEND-MSG DTSBD541 00307 PERFORM S999-ABEND THRU S999-EXIT DTSBD541 00308 GO TO P0000-EXIT DTSBD541 00309 ELSE DTSBD541 00310 PERFORM P1000-SCAN-WAGES THRU P1000-EXIT DTSBD541 00311 UNTIL L981-NO-REC-88 DTSBD541 00312 OR WRK-ERROR-YES-88. DTSBD541 00313 DTSBD541 00314 P0000-EXIT. DTSBD541 00315 EXIT. DTSBD541 00316 DTSBD541 00317 ************************************************************** DTSBD541 00318 * SELECT VSAM-WGH RECORDS FOR ETT AND WAGE FILES. * DTSBD541 00319 * FOR THE ETT FILE, SELECT WAGES FROM YRQ1 AND YRQ2. * DTSBD541 00320 * FOR THE WAGE FILE, SELECT WAGES FROM YRQ1 ONLY. * DTSBD541 00321 ************************************************************** DTSBD541 00322 DTSBD541 00323 P1000-SCAN-WAGES. DTSBD541 00324 DTSBD541 00325 ADD +1 TO WRK-WWGH-READ-CNT. DTSBD541 00326 DTSBD541 00327 *** IF WWGH-SSN < 1000000 DTSBD541 00328 IF WWGH-EMP-NO = ZERO DTSBD541 00329 NEXT SENTENCE DTSBD541 00330 ELSE DTSBD541 00331 PERFORM P2000-WRITE-OUTPUT THRU P2000-EXIT DTSBD541 00332 END-IF. DTSBD541 00333 DTSBD541 00334 PERFORM S981E-READ-NEXT THRU S981E-EXIT. DTSBD541 00335 DTSBD541 00336 P1000-EXIT. DTSBD541 00337 EXIT. DTSBD541 00338 DTSBD541 00339 ************************************************************** DTSBD541 00340 * CREATE OUTPUT RECORDS, BASED ON QUARTER * DTSBD541 00341 ************************************************************** DTSBD541 00342 DTSBD541 00343 P2000-WRITE-OUTPUT. DTSBD541 00344 IF WWGH-YRQ = WRK-YRQ1 DTSBD541 00345 OR WWGH-YRQ = WRK-YRQ2 DTSBD541 00346 PERFORM P2100-WRITE-OUTFILE1 THRU P2100-EXIT DTSBD541 00347 IF WRK-ERROR-NO-88 DTSBD541 00348 IF WWGH-YRQ = WRK-YRQ1 DTSBD541 00349 PERFORM P2200-WRITE-WAGES THRU P2200-EXIT DTSBD541 00350 END-IF DTSBD541 00351 END-IF DTSBD541 00352 END-IF. DTSBD541 00353 DTSBD541 00354 P2000-EXIT. DTSBD541 00355 EXIT. DTSBD541 00356 DTSBD541 00357 P2100-WRITE-OUTFILE1. DTSBD541 00358 MOVE WWGH-EMP-NO TO OUTFILE1-EMP-NO. DTSBD541 00359 MOVE WWGH-SSN TO OUTFILE1-SSN. DTSBD541 00360 DTSBD541 00361 IF WWGH-YRQ = WRK-YRQ1 DTSBD541 00362 MOVE 1 TO OUTFILE1-QTR DTSBD541 00363 ELSE DTSBD541 00364 IF WWGH-YRQ = WRK-YRQ2 DTSBD541 00365 MOVE 2 TO OUTFILE1-QTR DTSBD541 00366 ELSE DTSBD541 00367 GO TO P2100-EXIT DTSBD541 00368 END-IF DTSBD541 00369 END-IF. DTSBD541 00370 DTSBD541 00371 WRITE OUTFILE1-REC. DTSBD541 00372 IF OUTFILE1-OK-88 DTSBD541 00373 ADD +1 TO WRK-OUTFILE1-WRITE-CNT DTSBD541 00374 ELSE DTSBD541 00375 DISPLAY 'CANNOT WRITE OUTFILE1 ' OUTFILE1-STATUS DTSBD541 00376 SET WRK-ERROR-YES-88 TO TRUE DTSBD541 00377 PERFORM S999-ABEND THRU S999-EXIT DTSBD541 00378 END-IF. DTSBD541 00379 DTSBD541 00380 P2100-EXIT. DTSBD541 00381 EXIT. DTSBD541 00382 DTSBD541 00383 P2200-WRITE-WAGES. DTSBD541 00384 IF WRK-EMP-NO = ZERO DTSBD541 00385 PERFORM P2210-CHECK-EMP THRU P2210-EXIT DTSBD541 00386 IF WRK-SUBJECT-NO-88 DTSBD541 00387 GO TO P2200-EXIT DTSBD541 00388 ELSE DTSBD541 00389 MOVE WWGH-EMP-NO TO WRK-EMP-NO DTSBD541 00390 END-IF DTSBD541 00391 END-IF. DTSBD541 00392 DTSBD541 00393 IF WWGH-EMP-NO = WRK-EMP-NO DTSBD541 00394 IF WRK-SUBJECT-NO-88 DTSBD541 00395 GO TO P2200-EXIT DTSBD541 00396 ELSE DTSBD541 00397 ADD WWGH-EARNINGS TO WRK-TOT-EARNINGS DTSBD541 00398 ADD +1 TO WRK-EMPLOYEE DTSBD541 00399 END-IF DTSBD541 00400 ELSE DTSBD541 00401 PERFORM P2220-ES2WAGE THRU P2220-EXIT DTSBD541 00402 MOVE ZERO TO WRK-TOT-EARNINGS DTSBD541 00403 WRK-EMPLOYEE DTSBD541 00404 MOVE WWGH-EMP-NO TO WRK-EMP-NO DTSBD541 00405 PERFORM P2210-CHECK-EMP THRU P2210-EXIT DTSBD541 00406 IF WRK-SUBJECT-NO-88 DTSBD541 00407 GO TO P2200-EXIT DTSBD541 00408 ELSE DTSBD541 00409 MOVE WWGH-EARNINGS TO WRK-TOT-EARNINGS DTSBD541 00410 MOVE +1 TO WRK-EMPLOYEE DTSBD541 00411 END-IF DTSBD541 00412 END-IF. DTSBD541 00413 DTSBD541 00414 PERFORM P2230-EXPWAGE THRU P2230-EXIT. DTSBD541 00415 DTSBD541 00416 P2200-EXIT. DTSBD541 00417 EXIT. DTSBD541 00418 DTSBD541 00419 P2210-CHECK-EMP. DTSBD541 00420 SET WRK-SUBJECT-NO-88 TO TRUE. DTSBD541 00421 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD541 00422 MOVE WWGH-EMP-NO TO MSKL-EMP-NO. DTSBD541 00423 SET MSKL-PRF-88 TO TRUE. DTSBD541 00424 DTSBD541 00425 PERFORM S910B-READ THRU S910B-EXIT. DTSBD541 00426 IF L910-OK-88 DTSBD541 00427 MOVE MSKL-REC TO MPRF-REC DTSBD541 00428 IF MPRF-CLASS-SUB-88 DTSBD541 00429 SET WRK-SUBJECT-YES-88 TO TRUE DTSBD541 00430 END-IF DTSBD541 00431 END-IF. DTSBD541 00432 DTSBD541 00433 P2210-EXIT. DTSBD541 00434 EXIT. DTSBD541 00435 DTSBD541 00436 P2220-ES2WAGE. DTSBD541 00437 MOVE ZERO TO WAG-EMP-ACCT. DTSBD541 00438 MOVE WRK-EMP-NO TO WAG-DC-ACCT. DTSBD541 00439 MOVE WRK-EMPLOYEE TO WAG-EMPLOYEE. DTSBD541 00440 MOVE WRK-TOT-EARNINGS TO WAG-WAGE-AMT. DTSBD541 00441 DTSBD541 00442 WRITE ES2WAGE-REC. DTSBD541 00443 IF ES2WAGE-OK-88 DTSBD541 00444 ADD +1 TO WRK-ES2WAGE-WRITE-CNT DTSBD541 00445 ELSE DTSBD541 00446 DISPLAY 'CANNOT WRITE ES2WAGE ' ES2WAGE-STATUS DTSBD541 00447 SET WRK-ERROR-YES-88 TO TRUE DTSBD541 00448 PERFORM S999-ABEND THRU S999-EXIT DTSBD541 00449 END-IF. DTSBD541 00450 DTSBD541 00451 P2220-EXIT. DTSBD541 00452 EXIT. DTSBD541 00453 DTSBD541 00454 P2230-EXPWAGE. DTSBD541 00455 MOVE WWGH-SSN TO EXP-SSN. DTSBD541 00456 MOVE SPACES TO EXP-FIRST-NAME DTSBD541 00457 EXP-MIDDLE-INITIAL DTSBD541 00458 EXP-LAST-NAME. DTSBD541 00459 MOVE WWGH-EMP-NO TO EXP-UI-ACCOUNT. DTSBD541 00460 MOVE 11 TO EXP-STATE-FIPS. DTSBD541 00461 MOVE ZERO TO EXP-REPORTING-UNIT. DTSBD541 00462 MOVE MPRF-FEIN TO EXP-FEIN. DTSBD541 00463 MOVE WWGH-YRQ TO WRK-YRQ. DTSBD541 00464 MOVE WRK-YRQ-YEAR TO EXP-YEAR. DTSBD541 00465 MOVE WRK-YRQ-QTR TO EXP-QUARTER. DTSBD541 00466 MOVE WWGH-EARNINGS TO EXP-WAGES. DTSBD541 00467 MOVE ZERO TO EXP-HOURS DTSBD541 00468 EXP-WEEKS. DTSBD541 00469 DTSBD541 00470 WRITE EXPWAGE-REC FROM WRK-EXPWAGE-REC. DTSBD541 00471 IF EXPWAGE-OK-88 DTSBD541 00472 ADD +1 TO WRK-EXPWAGE-WRITE-CNT DTSBD541 00473 ELSE DTSBD541 00474 DISPLAY 'CANNOT WRITE EXPWAGE ' EXPWAGE-STATUS DTSBD541 00475 SET WRK-ERROR-YES-88 TO TRUE DTSBD541 00476 PERFORM S999-ABEND THRU S999-EXIT DTSBD541 00477 END-IF. DTSBD541 00478 DTSBD541 00479 P2230-EXIT. DTSBD541 00480 EXIT. DTSBD541 00481 DTSBD541 00482 T0000-TERMINATE. DTSBD541 00483 DTSBD541 00484 DISPLAY ' '. DTSBD541 00485 DISPLAY ' '. DTSBD541 00486 DTSBD541 00487 DISPLAY '*** DTSBD541 TERMINATION STATISTICS ***'. DTSBD541 00488 DTSBD541 00489 DISPLAY ' '. DTSBD541 00490 DISPLAY 'WGH INPUT RECORDS READ :' DTSBD541 00491 WRK-WWGH-READ-CNT. DTSBD541 00492 DTSBD541 00493 DISPLAY 'ETT OUTPUT RECORDS WRITTEN :' DTSBD541 00494 WRK-OUTFILE1-WRITE-CNT. DTSBD541 00495 DTSBD541 00496 DISPLAY 'ES-202 WAGE OUTPUT RECORDS WRITTEN :' DTSBD541 00497 WRK-ES2WAGE-WRITE-CNT. DTSBD541 00498 DTSBD541 00499 DISPLAY 'EXPORT WAGE OUTPUT RECORDS WRITTEN :' DTSBD541 00500 WRK-EXPWAGE-WRITE-CNT. DTSBD541 00501 DTSBD541 00502 PERFORM S910C-CLOSE THRU S910C-EXIT. DTSBD541 00503 PERFORM S981C-CLOSE THRU S981C-EXIT. DTSBD541 00504 CLOSE OUTFILE1 DTSBD541 00505 ES2WAGE DTSBD541 00506 EXPORT-WAGE DTSBD541 00507 ES202PRM-FILE. DTSBD541 00508 DTSBD541 00509 T0000-EXIT. DTSBD541 00510 EXIT. DTSBD541 00511 EJECT DTSBD541 00512 DTSBD541 00513 S001-FROM-FED-8. DTSBD541 00514 SET L001-FROM-FED-8 TO TRUE. DTSBD541 00515 GO TO S001-DATE. DTSBD541 00516 DTSBD541 00517 S001-FROM-ABS-DAY. DTSBD541 00518 SET L001-FROM-ABS-DAY TO TRUE. DTSBD541 00519 GO TO S001-DATE. DTSBD541 00520 DTSBD541 00521 S001-FROM-CAL-6. DTSBD541 00522 SET L001-FROM-CAL-6 TO TRUE. DTSBD541 00523 GO TO S001-DATE. DTSBD541 00524 DTSBD541 00525 S001-DATE. DTSBD541 00526 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD541 00527 S001-EXIT. DTSBD541 00528 EXIT. DTSBD541 00529 DTSBD541 00530 S004-FROM-3. DTSBD541 00531 SET L004-FROM-3 TO TRUE. DTSBD541 00532 GO TO S004-YRQ. DTSBD541 00533 DTSBD541 00534 S004-YRQ. DTSBD541 00535 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD541 00536 DTSBD541 00537 S004-EXIT. DTSBD541 00538 EXIT. DTSBD541 00539 DTSBD541 00540 S910A-OPEN-READ. DTSBD541 00541 SET L910-OPEN-READ-88 TO TRUE. DTSBD541 00542 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBD541 00543 DTSBD541 00544 S910A-EXIT. DTSBD541 00545 EXIT. DTSBD541 00546 DTSBD541 00547 S910B-READ. DTSBD541 00548 SET L910-READ-88 TO TRUE. DTSBD541 00549 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBD541 00550 DTSBD541 00551 S910B-EXIT. DTSBD541 00552 EXIT. DTSBD541 00553 DTSBD541 00554 S910C-CLOSE. DTSBD541 00555 SET L910-CLOSE-88 TO TRUE. DTSBD541 00556 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBD541 00557 DTSBD541 00558 S910C-EXIT. DTSBD541 00559 EXIT. DTSBD541 00560 DTSBD541 00561 S910Z-MSTR-IO. DTSBD541 00562 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD541 00563 MSKL-REC. DTSBD541 00564 S910Z-EXIT. DTSBD541 00565 EXIT. DTSBD541 00566 DTSBD541 00567 S981A-OPEN-READ. DTSBD541 00568 SET L981-OPEN-READ-88 TO TRUE. DTSBD541 00569 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541 00570 DTSBD541 00571 S981A-EXIT. DTSBD541 00572 EXIT. DTSBD541 00573 DTSBD541 00574 S981B-OPEN-UPDATE. DTSBD541 00575 SET L981-OPEN-UPDATE-88 TO TRUE. DTSBD541 00576 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541 00577 DTSBD541 00578 S981B-EXIT. DTSBD541 00579 EXIT. DTSBD541 00580 DTSBD541 00581 S981C-CLOSE. DTSBD541 00582 SET L981-CLOSE-88 TO TRUE. DTSBD541 00583 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541 00584 DTSBD541 00585 S981C-EXIT. DTSBD541 00586 EXIT. DTSBD541 00587 DTSBD541 00588 S981D-START-BROWSE. DTSBD541 00589 SET L981-START-BROWSE-88 TO TRUE. DTSBD541 00590 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541 00591 DTSBD541 00592 S981D-EXIT. DTSBD541 00593 EXIT. DTSBD541 00594 DTSBD541 00595 S981E-READ-NEXT. DTSBD541 00596 SET L981-READ-NEXT-88 TO TRUE. DTSBD541 00597 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBD541 00598 DTSBD541 00599 S981E-EXIT. DTSBD541 00600 EXIT. DTSBD541 00601 DTSBD541 00602 S981Z-WAGE-I. DTSBD541 00603 CALL 'DTSBU981' USING L981-LINK-AREA DTSBD541 00604 WWGH-REC. DTSBD541 00605 S981Z-EXIT. DTSBD541 00606 EXIT. DTSBD541 00607 DTSBD541 00608 S999-ABEND. DTSBD541 00609 DISPLAY '*** DTSBD541 ABENDING : ' DTSBD541 00610 WRK-ABEND-MSG. DTSBD541 00611 DTSBD541 00612 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD541 00613 S999-EXIT. DTSBD541 00614 EXIT. DTSBD541