00001 IDENTIFICATION DIVISION. 12/28/12 00002 PROGRAM-ID. DTSBR604. DTSBR604 00003 AUTHOR. NORTHROP GRUMMAN LV153 00004 DATE-WRITTEN. NOVEMBER 2004. DTSBR604 00005 DATE-COMPILED. DTSBR604 00006 DTSBR604 00007 ***** DTSBR604 00008 * DTSBR604 00009 * FUNCTION: FIELD ASSIGNMENT WAGE REPORT. DTSBR604 00010 * DTSBR604 00011 * CALLING SEQUENCE: INITIATED BY USER REQUEST ON SCREEN 61 DTSBR604 00012 * DTSBD300 CALLS DTSBR604 00013 * DTSBD330 CALLS DTSBR604 00014 * DTSBD331 WHICH UPDATES DTSIR604 DTSBR604 00015 * DTSBR604 READS DTSIR604 RECORDS DTSBR604 00016 * AND PRODUCES THE WAGE REPORT DTSBR604 00017 * DTSBR604 00018 * DTSBR604 00019 * MODIFICATION HISTORY: DTSBR604 00020 * DTSBR604 00021 * 10-29-94 INITIAL DEVELOPMENT DTSBR604 00022 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR604 00023 * DTSBR604 00024 * 12-14-94 ADD FIELD REP OPID. DTSBR604 00025 * REFERENCE RFP #CR024 AUTHOR OF CHANGE - RHC DTSBR604 00026 * DTSBR604 00027 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064 DTSBR604 00028 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR604 00029 * DTSBR604 00030 * 12-18-98 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATION. DTSBR604 00031 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR604 00032 * DTSBR604 00033 * 01-07-99 MODIFIED TO ADD WAGE DATA BY QUARTER INFORMATION BY DTSBR604 00034 * READING THE WAGE FILE AND BUILDING A WAGE TABLE. DTSBR604 00035 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR604 00036 * DTSBR604 00037 * 01-22-99 MODIFIED HEADER AND DETAIL LINE PRINTING AND SPACING. DTSBR604 00038 * CHANGED SO W-OPER-SSN WON'T PRINT ZEROES AND ZZZ,ZZZ.99DTSBR604 00039 * TO ZZZ,ZZ9.99. AUTHOR OF CHANGE - **FB DTSBR604 00040 * DTSBR604 00041 * 12-14-99 ADDED CALL TO WAGE I-O MODULE TO OPEN FOR INPUT ONLY. DTSBR604 00042 * AUTHOR OF CHANGE - GD DTSBR604 00043 * DTSBR604 00044 * 10-22-00 REPAIR PAGE BREAK & CORRECT SORT TO INCLUDE YRQTR & DTSBR604 00045 * FIX MISHANDLING OF MAIL/PHYS ADDRS DTSBR604 00046 * AUTHOR OF CHANGE - JHP DTSBR604 00047 * DTSBR604 00048 * 04-26-04 CHANGE WGD-SEGMENT TO WGD-SEGMENT-TWO AND WGP-SEGMENT DTSBR604 00049 * TO WGP-SEGMENT-ONE. BENEFITS I/O MUDULE SCANGES DTSBR604 00050 * AUTHOR OF CHANGE - ZL1 DTSBR604 00051 * DTSBR604 00052 * 09-20-04 EXPANDED SRT-EARNINGS FROM S9(05)V99 TO S9(06)V99. DTSBR604 00053 * LARGE WAGE AMOUNTS WERE BEING TRUNCATED. DTSBR604 00054 * AUTHOR OF CHANGE - RW DTSBR604 00055 * DTSBR604 00056 * 09-27-2004 COMPLETELY REWRITTEN TO USE WGH FILE. DTSBR604 00057 * AUTHOR OF CHANGE - GD DTSBR604 00058 * DTSBR604 00059 * 07-22-05 READ THE VSAM WAGE NAME FILE AND INCLUDE THE WORKER'S DTSBR604 00060 * NAME ON THE REPORT. THE NAME WILL BE FORMATED TO DTSBR604 00061 * CONTAIN 'LAST, FIRST M' ONLY. DTSBR604 00062 * AUTHOR OF CHANGE - RW DTSBR604 00063 * DTSBR604 00064 * 07-27-06 CORRECTION FOR PRODUCTION PROBLEM. DTSBR604 00065 * P5000-PRINT-TOT-FOOTER IS CALLED FROM T1000 DURING DTSBR604 00066 * TERMINATION PROCESSING (ALL R604 RECORDS HAVE BEEN DTSBR604 00067 * READ). P5000 CALLS P3000 TO PRINT A NEW HEADER, BUT DTSBR604 00068 * A HEADER IS NOT NEEDED AT THIS POINT. SINCE P3000 DTSBR604 00069 * DEPENDS ON DATA IN THE R604 RECORD, IT CAUSES ABENDS DTSBR604 00070 * WHEN IT TRIES TO READ DATA IN LINKAGE FROM A DIFFERENT DTSBR604 00071 * RECORD TYPE. DTSBR604 00072 * P5000 HAS BEEN MODIFIED TO BYPASS P3000 DURING DTSBR604 00073 * TERMINATION PROCESSING. DTSBR604 00074 * AUTHOR OF CHANGE - GD DTSBR604 00075 * DTSBR604 00076 * 01-04-08 CORRECTION FOR PRODUCTION PROBLEM AGAIN. DTSBR604 00077 * WHEN R604-ASSIGN-NO NOT = WRK-ASSIGN-NO-HOLD, IT DTSBR604 00078 * PERFORMS P5000-PRINT-TOT-FOOTER THRU P5000-EXIT. DTSBR604 00079 * CONSQUENTLY, IF THE DETAIL LINE COUNT (WS-LINE-CNT2) DTSBR604 00080 * GREATER THAN 48, IT MUST START THE NEW HEADER PROCESS DTSBR604 00081 * ON NEXT PAGE. BECAUSE THE READ IN R604-ASSIGN-NO NOT = DTSBR604 00082 * THE PREVIOUS RECORD, THE ASSIGN-NO, EMP-NO, REP-ID-NO, DTSBR604 00083 * AND THE EMPLOYER MAIL-ADDRESS WILL GET FROM THE CURRENTDTSBR604 00084 * RECORD THAT GAVE THE WRONG INPUT DATA INFO ON HEADER. DTSBR604 00085 * CORRECTION: THE ASSIGN-NO, EMP-NO, REP-ID-NO, AND THE DTSBR604 00086 * EMPLOYER MAIL/PHYS ADDRESSES MUST MOVE TO SAVE OR HOLD DTSBR604 00087 * IN ABOVE SITUATION TO USE AND TO DO THE HEADER PROCESS-DTSBR604 00088 * ING. DTSBR604 00089 * AUTHOR OF CHANGE - RW1 DTSBR604 00090 * DTSBR604 00091 * 12-27-2012 CORRECTION FOR PRODUCTION PROBLEM. DTSBR604 00092 * THIS IS A FOLLOW-UP TO THE PROBLEM REFERENCED DTSBR604 00093 * ON 07/27/06. THE CHANGE INTENDED TO BYPASS DTSBR604 00094 * P3000 DURING TERMINATION PROCESSING DOES NOT WORK DTSBR604 00095 * WHEN ONLY ONE R604 RECORD IS BEING PROCESSED. DTSBR604 00096 * A NEW TEST HAS BEEN ADDED (USING LRCM-EOR-88) TO DTSBR604 00097 * P3050 AND P3000 TO ENSURE THAT DTSBR604 00098 * R604-TAXABLE-WAGE-BASE IS NOT REFERENCED DTSBR604 00099 * AT END OF JOB. DTSBR604 00100 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD DTSBR604 00101 * DTSBR604 00102 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR604 00103 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR604 00104 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR604 00105 * DTSBR604 00106 * DTSBR604 00107 * DESCRIPTION: DTSBR604 00108 * DTSBR604 00109 * DTSBR604 00110 * RECORDS READ: DTSBR604 00111 * DTSBR604 00112 * VSAM - WAGE AND WAGE NAME FILES DTSBR604 00113 * DTSBR604 00114 * DTSBR604 00115 * PRINTED OUTPUTS: DTSBR604 00116 * DTSBR604 00117 * R604 WAGE REPORT FOR AUDITORS DTSBR604 00118 * DTSBR604 00119 * DTSBR604 00120 * RECORDS WRITTEN: DTSBR604 00121 * DTSBR604 00122 * NONE DTSBR604 00123 * DTSBR604 00124 * DTSBR604 00125 * MODULES CALLED: DTSBR604 00126 * DTSBR604 00127 * DTSBU981 WGH FILE I-O DTSBR604 00128 * DTSBU982 WNAM FILE I-O DTSBR604 00129 * DTSBU004 YEAR/QUARTER CONVERSION MODULE DTSBR604 00130 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION DTSBR604 00131 * DTSBR604 00132 ***** DTSBR604 00133 DTSBR604 00134 ENVIRONMENT DIVISION. DTSBR604 00135 DTSBR604 00136 CONFIGURATION SECTION. DTSBR604 00137 SPECIAL-NAMES. DTSBR604 00138 C01 IS TOP-OF-PAGE. DTSBR604 00139 DTSBR604 00140 INPUT-OUTPUT SECTION. DTSBR604 00141 DTSBR604 00142 FILE-CONTROL. DTSBR604 00143 SELECT REPORT-FILE ASSIGN TO REPORTF1. DTSBR604 00144 SELECT SORT-FILE ASSIGN TO SORTWK01 SORTWK02. DTSBR604 00145 SELECT PRT-FILE ASSIGN TO RPT604R1. DTSBR604 00146 EJECT DTSBR604 00147 DATA DIVISION. DTSBR604 00148 DTSBR604 00149 FILE SECTION. DTSBR604 00150 DTSBR604 00151 FD REPORT-FILE DTSBR604 00152 RECORDING MODE IS F DTSBR604 00153 BLOCK CONTAINS 0 RECORDS DTSBR604 00154 LABEL RECORDS ARE STANDARD. DTSBR604 00155 DTSBR604 00156 01 REPORT-RECORD. DTSBR604 00157 05 RPT-EMP-NO PIC S9(07) COMP-3. DTSBR604 00158 05 RPT-SSN PIC S9(09) COMP-3. DTSBR604 00159 05 RPT-YRQ PIC S9(05) COMP-3. DTSBR604 00160 05 RPT-EARNINGS PIC S9(09)V99 COMP-3. DTSBR604 00161 DTSBR604 00162 SD SORT-FILE DTSBR604 00163 DATA RECORD IS SRT-REC. DTSBR604 00164 DTSBR604 00165 01 SRT-REC. DTSBR604 00166 10 SRT-EMP-NO PIC S9(07) COMP-3. DTSBR604 00167 10 SRT-SSN PIC S9(09) COMP-3. DTSBR604 00168 10 SRT-YRQ PIC S9(05) COMP-3. DTSBR604 00169 05 SRT-EARNINGS PIC S9(09)V99 COMP-3. DTSBR604 00170 DTSBR604 00171 FD PRT-FILE DTSBR604 00172 RECORDING MODE IS F DTSBR604 00173 DATA RECORD IS REPORT-REC. DTSBR604 00174 DTSBR604 00175 01 REPORT-REC PIC X(133). DTSBR604 00176 DTSBR604 00177 EJECT DTSBR604 00178 WORKING-STORAGE SECTION. DTSBR604 001785 77 PAN-VALET PICTURE X(24) VALUE '153DTSBR604 12/28/12'. DTSBR604 00179 77 PAN-VALET PICTURE X(24) VALUE '005DTSBR604 12/28/12'. DTSBR604 00180 77 PAN-VALET PICTURE X(24) VALUE '151DTSBR604 02/05/08'. DTSBR604 00181 77 SUB PIC 9(02) VALUE ZERO. DTSBR604 00182 77 STARTING-BASE-WAGE PIC S9(05)V99 VALUE +0. DTSBR604 00183 DTSBR604 00184 01 WRK-AREA. DTSBR604 00185 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +604.DTSBR604 00186 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBR604 00187 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR604 00188 DTSBR604 00189 05 WS-BLANK-PAGE PIC X(133) VALUE SPACES. DTSBR604 00190 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR604 00191 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR604 00192 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR604 00193 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DTSBR604 00194 05 WS-NUMBER-TWO PIC S9(03) COMP-3 VALUE +0. DTSBR604 00195 *RW1 DTSBR604 00196 05 W-ASSIGN-NO-H PIC 99B99999. DTSBR604 00197 05 W-FLD-ID-H PIC X(02) VALUE SPACES. DTSBR604 00198 05 W-FLD-REP-NAME-H PIC X(45) VALUE SPACES. DTSBR604 00199 05 W-OPER-ID-H PIC X(08) VALUE SPACES. DTSBR604 00200 *RW2 DTSBR604 00201 05 WS-RPT-YRQ PIC 9(05). DTSBR604 00202 05 WS-RPT-YRQ-X REDEFINES WS-RPT-YRQ. DTSBR604 00203 10 WS-RPT-YEAR PIC 9(04). DTSBR604 00204 10 WS-RPT-QTR PIC 9(01). DTSBR604 00205 DTSBR604 00206 05 DISP-WWGH-YRQ. DTSBR604 00207 10 DS-WWGH-YR PIC X(02). DTSBR604 00208 10 DS-FILLER PIC X(01). DTSBR604 00209 10 DS-WWGH-QTR PIC X(01). DTSBR604 00210 DTSBR604 00211 05 DISP-EARNINGS PIC ZZZ,ZZ9.99-. DTSBR604 00212 05 DISP-SSN. DTSBR604 00213 10 DS-SSN-EDIT1 PIC X(03). DTSBR604 00214 10 FILLER PIC X(01) VALUE '-'. DTSBR604 00215 10 DS-SSN-EDIT2 PIC X(02). DTSBR604 00216 10 FILLER PIC X(01) VALUE '-'. DTSBR604 00217 10 DS-SSN-EDIT3 PIC X(04). DTSBR604 00218 DTSBR604 00219 05 WS-FILE-STATUS PIC X(02). DTSBR604 00220 88 FILE-OK-88 VALUE '00'. DTSBR604 00221 *RW1 DTSBR604 00222 05 SUB1 PIC S9(04) COMP VALUE +0. DTSBR604 00223 05 SUB2 PIC S9(04) COMP VALUE +0. DTSBR604 00224 05 SUB3 PIC S9(04) COMP VALUE +0. DTSBR604 00225 05 WRK-LNAME-LEN PIC S9(04) COMP VALUE +20. DTSBR604 00226 05 WRK-FNAME-LEN PIC S9(04) COMP VALUE +15. DTSBR604 00227 DTSBR604 00228 05 WRK-NAME PIC X(38) VALUE SPACES. DTSBR604 00229 DTSBR604 00230 05 WRK-NAME-COMPLETE-IND PIC X(01). DTSBR604 00231 88 WRK-NAME-COMPLETE-YES-88 VALUE 'Y'. DTSBR604 00232 88 WRK-NAME-COMPLETE-NO-88 VALUE 'N'. DTSBR604 00233 DTSBR604 00234 05 WS-EARNINGS-TOT-SUM PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00235 05 DISP-EARNINGS-TOT-SUM PIC ZZ,ZZZ,ZZ9.99-. DTSBR604 00236 *RW2 DTSBR604 00237 05 WRK-RPT-FILE-IND PIC X(01). DTSBR604 00238 88 END-REPORT-FILE-YES VALUE 'Y'. DTSBR604 00239 88 END-REPORT-FILE-NO VALUE 'N'. DTSBR604 00240 DTSBR604 00241 05 WRK-EMP-NO PIC S9(07) COMP-3 VALUE +0. DTSBR604 00242 05 WRK-EMP-NO-HOLD PIC S9(07) COMP-3 VALUE +0. DTSBR604 00243 05 WRK-ASSIGN-NO-HOLD PIC S9(09) COMP-3 VALUE +0. DTSBR604 00244 05 WRK-WNAM-HOLD PIC X(35) VALUE SPACES. DTSBR604 00245 DTSBR604 00246 05 WRK-YRQ-5 PIC 9(05). DTSBR604 00247 05 FILLER REDEFINES WRK-YRQ-5. DTSBR604 00248 10 WRK-YRQ-CC PIC 9(02). DTSBR604 00249 10 WRK-YRQ-YY PIC 9(02). DTSBR604 00250 10 WRK-YRQ-Q PIC 9. DTSBR604 00251 DTSBR604 00252 05 WRK-START-QTR PIC S9(05) COMP-3. DTSBR604 00253 05 WRK-SECOND-QTR PIC S9(05) COMP-3. DTSBR604 00254 05 WRK-THIRD-QTR PIC S9(05) COMP-3. DTSBR604 00255 05 WRK-END-QTR PIC S9(05) COMP-3. DTSBR604 00256 05 WRK-ABS-YRQ PIC S9(04) COMP. DTSBR604 00257 05 WRK-RPT-QTR PIC S9(05) COMP-3. DTSBR604 00258 DTSBR604 00259 05 WS-TBL-RECORD OCCURS 4 TIMES INDEXED BY TBL-IDX. DTSBR604 00260 10 WS-TBL-EMP-NO PIC S9(07) COMP-3. DTSBR604 00261 10 WS-TBL-SSN PIC S9(09) COMP-3. DTSBR604 00262 10 WS-TBL-YRQ PIC S9(05) COMP-3. DTSBR604 00263 10 WS-TBL-EARNINGS PIC S9(09)V99 COMP-3. DTSBR604 00264 DTSBR604 00265 01 WS-WORK-RECORD. DTSBR604 00266 05 WS-FIELD-REP-ID-LAST PIC X(02). DTSBR604 00267 DTSBR604 00268 05 HOLD-RPT-SSN PIC S9(09) COMP-3. DTSBR604 00269 05 WS-SSN-NO-UNPACK PIC 9(09) VALUE ZERO. DTSBR604 00270 05 WS-SSN-NO-EDITED. DTSBR604 00271 10 WS-SSN-EDIT1 PIC X(03). DTSBR604 00272 10 FILLER PIC X(01) VALUE '-'. DTSBR604 00273 10 WS-SSN-EDIT2 PIC X(02). DTSBR604 00274 10 FILLER PIC X(01) VALUE '-'. DTSBR604 00275 10 WS-SSN-EDIT3 PIC X(04). DTSBR604 00276 DTSBR604 00277 05 WS-VOICE-OUTPUT PIC X(10). DTSBR604 00278 05 WS-VOICE-OUTPUT-R. DTSBR604 00279 10 WS-VOICE-EDIT1 PIC X(03). DTSBR604 00280 10 FILLER PIC X(01) VALUE '-'. DTSBR604 00281 10 WS-VOICE-EDIT2 PIC X(03). DTSBR604 00282 10 FILLER PIC X(01) VALUE '-'. DTSBR604 00283 10 WS-VOICE-EDIT3 PIC X(04). DTSBR604 00284 DTSBR604 00285 05 WS-TABLE-AREA PIC X(200). DTSBR604 00286 05 WS-TBL-MAIL-R REDEFINES WS-TABLE-AREA. DTSBR604 00287 10 WS-TBL-MAIL-LINE OCCURS 5 TIMES DTSBR604 00288 PIC X(40). DTSBR604 00289 DTSBR604 00290 05 WS-TBL-PHYS-R REDEFINES WS-TABLE-AREA. DTSBR604 00291 10 WS-TBL-PHYS-LINE OCCURS 5 TIMES DTSBR604 00292 PIC X(40). DTSBR604 00293 DTSBR604 00294 05 WS-TBL-OPO-DATA PIC X(285). DTSBR604 00295 05 WS-TBL-OPO-DATA-R REDEFINES WS-TBL-OPO-DATA. DTSBR604 00296 10 WS-TBL-OPO-LINE OCCURS 5 TIMES. DTSBR604 00297 15 WS-TBL-OPO-NAME PIC X(32). DTSBR604 00298 15 WS-TBL-OPO-TITLE PIC X(20). DTSBR604 00299 15 WS-TBL-OPO-SSN PIC S9(09) COMP-3. DTSBR604 00300 EJECT DTSBR604 00301 05 WS-HEADER-1. DTSBR604 00302 10 FILLER PIC X(01). DTSBR604 00303 10 WS-REPORT-TYPE PIC X(05) VALUE DTSBR604 00304 '604R1'. DTSBR604 00305 10 FILLER PIC X(35). DTSBR604 00306 10 WS-LRCM-AGY-NAME-LINE1 PIC X(50). DTSBR604 00307 10 FILLER PIC X(28). DTSBR604 00308 10 FILLER PIC X(05) DTSBR604 00309 VALUE 'DATE:'. DTSBR604 00310 10 WS-LRCM-SYS-DATE PIC X(08). DTSBR604 00311 DTSBR604 00312 05 WS-HEADER-2. DTSBR604 00313 10 FILLER PIC X(01). DTSBR604 00314 10 FILLER PIC X(40). DTSBR604 00315 10 WS-LRCM-AGY-NAME-LINE2 PIC X(50). DTSBR604 00316 10 FILLER PIC X(28). DTSBR604 00317 10 FILLER PIC X(05) DTSBR604 00318 VALUE 'TIME:'. DTSBR604 00319 10 WS-LRCM-SYS-TIME PIC X(08). DTSBR604 00320 DTSBR604 00321 05 WS-HEADER-3. DTSBR604 00322 10 FILLER PIC X(01). DTSBR604 00323 10 FILLER PIC X(10) VALUE DTSBR604 00324 'ROUTE TO: '. DTSBR604 00325 10 WS-HEADER-3-UNIT PIC X(20). DTSBR604 00326 10 FILLER PIC X(10). DTSBR604 00327 10 WS-HEADER-3-TITLE PIC X(50). DTSBR604 00328 10 FILLER PIC X(28). DTSBR604 00329 10 FILLER PIC X(05) DTSBR604 00330 VALUE 'PAGE:'. DTSBR604 00331 10 FILLER PIC X(02). DTSBR604 00332 10 W-PAGE-CNTR PIC ZZ,ZZZ. DTSBR604 00333 DTSBR604 00334 05 WS-SPACE-LINE PIC X(133) VALUE SPACES. DTSBR604 00335 DTSBR604 00336 05 WS-LINE-01. DTSBR604 00337 10 FILLER PIC X(01). DTSBR604 00338 10 FILLER PIC X(10) VALUE DTSBR604 00339 'ASSIGN NO:'. DTSBR604 00340 10 FILLER PIC X(01). DTSBR604 00341 10 W-ASSIGN-NO PIC 99B99999. DTSBR604 00342 10 FILLER PIC X(51). DTSBR604 00343 10 FILLER PIC X(20) VALUE DTSBR604 00344 '--------------------'. DTSBR604 00345 10 FILLER PIC X(24) VALUE DTSBR604 00346 ' OWNER/PARTNER/OFFICERS '. DTSBR604 00347 10 FILLER PIC X(20) VALUE DTSBR604 00348 '--------------------'. DTSBR604 00349 DTSBR604 00350 05 WS-LINE-02. DTSBR604 00351 10 FILLER PIC X(01). DTSBR604 00352 10 FILLER PIC X(10) VALUE DTSBR604 00353 'FIELD REP:'. DTSBR604 00354 10 FILLER PIC X(01). DTSBR604 00355 10 W-FLD-ID PIC X(02). DTSBR604 00356 10 FILLER PIC X(01). DTSBR604 00357 10 W-FLD-REP-NAME PIC X(45). DTSBR604 00358 10 FILLER PIC X(11). DTSBR604 00359 10 FILLER PIC X(20) VALUE DTSBR604 00360 ' NAME '. DTSBR604 00361 10 FILLER PIC X(24) VALUE DTSBR604 00362 ' TITLE '. DTSBR604 00363 10 FILLER PIC X(20) VALUE DTSBR604 00364 ' SSN '. DTSBR604 00365 DTSBR604 00366 05 WS-LINE-03. DTSBR604 00367 10 FILLER PIC X(01). DTSBR604 00368 10 FILLER PIC X(10) VALUE DTSBR604 00369 ' OPERATOR:'. DTSBR604 00370 10 FILLER PIC X(01). DTSBR604 00371 10 W-OPER-ID PIC X(08). DTSBR604 00372 10 FILLER PIC X(07) VALUE SPACES. DTSBR604 00373 10 FILLER PIC X(05) VALUE 'MAIL:'. DTSBR604 00374 DTSBR604 00375 05 WS-LINE-04. DTSBR604 00376 10 FILLER PIC X(01). DTSBR604 00377 10 W-EMP-NO-TAG PIC X(10) VALUE DTSBR604 00378 ' EMP NO:'. DTSBR604 00379 10 FILLER PIC X(01). DTSBR604 00380 10 W-EMP-NO PIC 999B999. DTSBR604 00381 10 W-EMP-NO-R REDEFINES W-EMP-NO PIC X(07). DTSBR604 00382 10 FILLER PIC X(05). DTSBR604 00383 10 W-LINE-04-VARIABLE-DATA PIC X(107). DTSBR604 00384 *RW1 MAILING ADDRESS HOLD DTSBR604 00385 05 WS-LINE-04-1. DTSBR604 00386 10 FILLER PIC X(01). DTSBR604 00387 10 W-EMP-NO-TAG-1 PIC X(10) VALUE DTSBR604 00388 ' EMP NO:'. DTSBR604 00389 10 FILLER PIC X(06). DTSBR604 00390 10 W-EMP-NO-1 PIC 999B999. DTSBR604 00391 10 W-EMP-NO-A REDEFINES W-EMP-NO-1 PIC X(07). DTSBR604 00392 10 W-LINE-04-VARIABLE-DATA-1 PIC X(107). DTSBR604 00393 05 WS-LINE-04-2. DTSBR604 00394 10 FILLER PIC X(01). DTSBR604 00395 10 W-EMP-NO-TAG-2 PIC X(10) VALUE DTSBR604 00396 ' EMP NO:'. DTSBR604 00397 10 FILLER PIC X(06). DTSBR604 00398 10 W-EMP-NO-2 PIC 999B999. DTSBR604 00399 10 W-EMP-NO-B REDEFINES W-EMP-NO-2 PIC X(07). DTSBR604 00400 10 W-LINE-04-VARIABLE-DATA-2 PIC X(107). DTSBR604 00401 05 WS-LINE-04-3. DTSBR604 00402 10 FILLER PIC X(01). DTSBR604 00403 10 W-EMP-NO-TAG-3 PIC X(10) VALUE DTSBR604 00404 ' EMP NO:'. DTSBR604 00405 10 FILLER PIC X(06). DTSBR604 00406 10 W-EMP-NO-3 PIC 999B999. DTSBR604 00407 10 W-EMP-NO-C REDEFINES W-EMP-NO-3 PIC X(07). DTSBR604 00408 10 W-LINE-04-VARIABLE-DATA-3 PIC X(107). DTSBR604 00409 05 WS-LINE-04-4. DTSBR604 00410 10 FILLER PIC X(01). DTSBR604 00411 10 W-EMP-NO-TAG-4 PIC X(10) VALUE DTSBR604 00412 ' EMP NO:'. DTSBR604 00413 10 FILLER PIC X(06). DTSBR604 00414 10 W-EMP-NO-4 PIC 999B999. DTSBR604 00415 10 W-EMP-NO-D REDEFINES W-EMP-NO-4 PIC X(07). DTSBR604 00416 10 W-LINE-04-VARIABLE-DATA-4 PIC X(107). DTSBR604 00417 05 WS-LINE-04-5. DTSBR604 00418 10 FILLER PIC X(01). DTSBR604 00419 10 W-EMP-NO-TAG-5 PIC X(10) VALUE DTSBR604 00420 ' EMP NO:'. DTSBR604 00421 10 FILLER PIC X(06). DTSBR604 00422 10 W-EMP-NO-5 PIC 999B999. DTSBR604 00423 10 W-EMP-NO-E REDEFINES W-EMP-NO-5 PIC X(07). DTSBR604 00424 10 W-LINE-04-VARIABLE-DATA-5 PIC X(107). DTSBR604 00425 *PHYSICL ADDRESS HOLD DTSBR604 00426 05 WS-LINE-04-1P. DTSBR604 00427 10 FILLER PIC X(01). DTSBR604 00428 10 W-EMP-NO-TAG-1P PIC X(10) VALUE SPACES. DTSBR604 00429 * ' EMP NO:'. DTSBR604 00430 10 FILLER PIC X(06). DTSBR604 00431 10 W-EMP-NO-1P PIC 999B999. DTSBR604 00432 10 W-EMP-NO-F REDEFINES W-EMP-NO-1P PIC X(07). DTSBR604 00433 10 W-LINE-04-VARIABLE-DATA-1P PIC X(107). DTSBR604 00434 05 WS-LINE-04-2P. DTSBR604 00435 10 FILLER PIC X(01). DTSBR604 00436 10 W-EMP-NO-TAG-2P PIC X(10) VALUE DTSBR604 00437 ' EMP NO:'. DTSBR604 00438 10 FILLER PIC X(06). DTSBR604 00439 10 W-EMP-NO-2P PIC 999B999. DTSBR604 00440 10 W-EMP-NO-G REDEFINES W-EMP-NO-2P PIC X(07). DTSBR604 00441 10 W-LINE-04-VARIABLE-DATA-2P PIC X(107). DTSBR604 00442 05 WS-LINE-04-3P. DTSBR604 00443 10 FILLER PIC X(01). DTSBR604 00444 10 W-EMP-NO-TAG-3P PIC X(10) VALUE DTSBR604 00445 ' EMP NO:'. DTSBR604 00446 10 FILLER PIC X(06). DTSBR604 00447 10 W-EMP-NO-3P PIC 999B999. DTSBR604 00448 10 W-EMP-NO-H REDEFINES W-EMP-NO-3P PIC X(07). DTSBR604 00449 10 W-LINE-04-VARIABLE-DATA-3P PIC X(107). DTSBR604 00450 05 WS-LINE-04-4P. DTSBR604 00451 10 FILLER PIC X(01). DTSBR604 00452 10 W-EMP-NO-TAG-4P PIC X(10) VALUE DTSBR604 00453 ' EMP NO:'. DTSBR604 00454 10 FILLER PIC X(06). DTSBR604 00455 10 W-EMP-NO-4P PIC 999B999. DTSBR604 00456 10 W-EMP-NO-I REDEFINES W-EMP-NO-4P PIC X(07). DTSBR604 00457 10 W-LINE-04-VARIABLE-DATA-4P PIC X(107). DTSBR604 00458 05 WS-LINE-04-5P. DTSBR604 00459 10 FILLER PIC X(01). DTSBR604 00460 10 W-EMP-NO-TAG-5P PIC X(10) VALUE DTSBR604 00461 ' EMP NO:'. DTSBR604 00462 10 FILLER PIC X(06). DTSBR604 00463 10 W-EMP-NO-5P PIC 999B999. DTSBR604 00464 10 W-EMP-NO-J REDEFINES W-EMP-NO-5P PIC X(07). DTSBR604 00465 10 W-LINE-04-VARIABLE-DATA-5P PIC X(107). DTSBR604 00466 *RW2 DTSBR604 00467 05 W-LINE-DATA OCCURS 5 TIMES. DTSBR604 00468 10 W-LABEL PIC X(08). DTSBR604 00469 10 W-VARIABLE-DATA PIC X(35). DTSBR604 00470 10 FILLER PIC X(04). DTSBR604 00471 10 W-OPER-NAME PIC X(20). DTSBR604 00472 10 FILLER PIC X(06). DTSBR604 00473 10 W-OPER-TITLE PIC X(20). DTSBR604 00474 10 FILLER PIC X(02). DTSBR604 00475 10 W-OPER-SSN PIC X(11). DTSBR604 00476 DTSBR604 00477 05 WS-LINE-05. DTSBR604 00478 10 FILLER PIC X(01). DTSBR604 00479 10 FILLER PIC X(31) VALUE SPACES. DTSBR604 00480 10 W-PHONE-OUTPUT PIC X(15). DTSBR604 00481 DTSBR604 00482 05 WS-LINE-05-H. DTSBR604 00483 10 FILLER PIC X(01). DTSBR604 00484 10 FILLER PIC X(31) VALUE SPACES. DTSBR604 00485 10 W-PHONE-OUTPUT-H PIC X(15). DTSBR604 00486 DTSBR604 00487 05 WS-LINE-05-P. DTSBR604 00488 10 FILLER PIC X(01). DTSBR604 00489 10 FILLER PIC X(31) VALUE SPACES. DTSBR604 00490 10 W-PHONE-OUTPUT-P PIC X(15). DTSBR604 00491 DTSBR604 00492 05 WS-LINE-PHYS. DTSBR604 00493 10 FILLER PIC X(27) VALUE SPACES. DTSBR604 00494 10 FILLER PIC X(05) VALUE 'PHYS:'. DTSBR604 00495 DTSBR604 00496 05 WS-LINE-06. DTSBR604 00497 10 FILLER PIC X(01). DTSBR604 00498 10 FILLER PIC X(18) VALUE DTSBR604 00499 'TAXABLE WAGE BASE:'. DTSBR604 00500 10 FILLER PIC X(01). DTSBR604 00501 10 W-WAGE-BASE PIC Z,ZZZ9.99-. DTSBR604 00502 DTSBR604 00503 05 WS-LINE-11. DTSBR604 00504 10 FILLER PIC X(01). DTSBR604 00505 10 FILLER PIC X(132) VALUE ALL '-'. DTSBR604 00506 DTSBR604 00507 05 WS-LINE-11-HDR. DTSBR604 00508 10 FILLER PIC X(01). DTSBR604 00509 10 FILLER PIC X(10) VALUE SPACES. DTSBR604 00510 10 FILLER PIC X(20). DTSBR604 00511 10 FILLER PIC X(23). DTSBR604 00512 10 WS-LINE-11-TITLE PIC X(20) VALUE DTSBR604 00513 'WAGE DATA BY QUARTER'. DTSBR604 00514 10 FILLER PIC X(45). DTSBR604 00515 DTSBR604 00516 05 WS-LINE-11-A. DTSBR604 00517 10 FILLER PIC X(15). DTSBR604 00518 10 FILLER PIC X(46) VALUE DTSBR604 00519 ' ----------------------------------------- '. DTSBR604 00520 10 FILLER PIC X(48) VALUE DTSBR604 00521 'QUARTER --------------------------------------- '. DTSBR604 00522 DTSBR604 00523 05 WS-LINE-12-HDR. DTSBR604 00524 10 FILLER PIC X(01). DTSBR604 00525 10 FILLER PIC X(15) VALUE DTSBR604 00526 ' SSN/NAME'. DTSBR604 00527 10 FILLER PIC X(12) VALUE SPACES. DTSBR604 00528 10 W-TAX-YR-QTR-1 PIC X(04). DTSBR604 00529 10 FILLER PIC X(18) VALUE SPACES. DTSBR604 00530 10 W-TAX-YR-QTR-2 PIC X(04). DTSBR604 00531 10 FILLER PIC X(20) VALUE SPACES. DTSBR604 00532 10 W-TAX-YR-QTR-3 PIC X(04). DTSBR604 00533 10 FILLER PIC X(19) VALUE SPACES. DTSBR604 00534 10 W-TAX-YR-QTR-4 PIC X(04). DTSBR604 00535 10 FILLER PIC X(19) VALUE SPACES. DTSBR604 00536 10 W-TAX-YR-TOTAL PIC X(05) VALUE 'TOTAL'. DTSBR604 00537 DTSBR604 00538 05 WS-LINE-13-HDR. DTSBR604 00539 10 FILLER PIC X(01). DTSBR604 00540 10 FILLER PIC X(15) VALUE DTSBR604 00541 ' '. DTSBR604 00542 10 FILLER PIC X(03) VALUE SPACES. DTSBR604 00543 10 FILLER PIC X(45) VALUE DTSBR604 00544 ' TOTAL TAXABLE TOTAL TAXABLE '. DTSBR604 00545 10 FILLER PIC X(47) VALUE DTSBR604 00546 ' TOTAL TAXABLE TOTAL TAXABLE '. DTSBR604 00547 10 FILLER PIC X(30) VALUE DTSBR604 00548 ' WAGES TAXABLE '. DTSBR604 00549 DTSBR604 00550 05 WS-DETAIL-LINE. DTSBR604 00551 10 FILLER PIC X(01). DTSBR604 00552 * 10 W-SHORT-NAME PIC X(04). DTSBR604 00553 10 FILLER PIC X(05). DTSBR604 00554 10 W-SSN PIC X(11). DTSBR604 00555 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00556 10 W-TOTAL-QTR1 PIC ZZZ,ZZ9.99-. DTSBR604 00557 10 W-TOTAL-QTR1-X REDEFINES W-TOTAL-QTR1 PIC X(11). DTSBR604 00558 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00559 10 W-TXBLE-QTR1 PIC ZZ,ZZ9.99-. DTSBR604 00560 10 W-TXBLE-QTR1-X REDEFINES W-TXBLE-QTR1 PIC X(10). DTSBR604 00561 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00562 10 W-TOTAL-QTR2 PIC ZZZ,ZZ9.99-. DTSBR604 00563 10 W-TOTAL-QTR2-X REDEFINES W-TOTAL-QTR2 PIC X(11). DTSBR604 00564 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00565 10 W-TXBLE-QTR2 PIC ZZ,ZZ9.99-. DTSBR604 00566 10 W-TXBLE-QTR2-X REDEFINES W-TXBLE-QTR2 PIC X(10). DTSBR604 00567 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00568 10 W-TOTAL-QTR3 PIC ZZZ,ZZ9.99-. DTSBR604 00569 10 W-TOTAL-QTR3-X REDEFINES W-TOTAL-QTR3 PIC X(11). DTSBR604 00570 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00571 10 W-TXBLE-QTR3 PIC ZZ,ZZ9.99-. DTSBR604 00572 10 W-TXBLE-QTR3-X REDEFINES W-TXBLE-QTR3 PIC X(10). DTSBR604 00573 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00574 10 W-TOTAL-QTR4 PIC ZZZ,ZZ9.99-. DTSBR604 00575 10 W-TOTAL-QTR4-X REDEFINES W-TOTAL-QTR4 PIC X(11). DTSBR604 00576 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00577 10 W-TXBLE-QTR4 PIC ZZ,ZZ9.99-. DTSBR604 00578 10 W-TXBLE-QTR4-X REDEFINES W-TXBLE-QTR4 PIC X(10). DTSBR604 00579 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00580 10 W-TOTAL-WAGES PIC ZZZZ,ZZ9.99-. DTSBR604 00581 10 FILLER PIC X(01) VALUE SPACES. DTSBR604 00582 10 W-TOTAL-TAXABLE PIC ZZ,ZZ9.99. DTSBR604 00583 DTSBR604 00584 05 WS-DETAIL-LINE-2. DTSBR604 00585 10 FILLER PIC X(01). DTSBR604 00586 10 FILLER PIC X(05) VALUE SPACES. DTSBR604 00587 10 W-NAME PIC X(38). DTSBR604 00588 10 FILLER PIC X(89) VALUE SPACES. DTSBR604 00589 DTSBR604 00590 05 WS-TOTAL-LINE. DTSBR604 00591 10 FILLER PIC X(01). DTSBR604 00592 10 W-TOTAL-LINE-DESC PIC X(13) VALUE SPACES. DTSBR604 00593 10 FILLER PIC X(06) VALUE SPACES. DTSBR604 00594 10 W-TOTAL-AMOUNT1 PIC ZZZ,ZZZ,ZZ9.99-. DTSBR604 00595 10 FILLER PIC X(09) VALUE SPACES. DTSBR604 00596 10 W-TOTAL-AMOUNT2 PIC ZZZ,ZZZ,ZZ9.99-. DTSBR604 00597 10 FILLER PIC X(09) VALUE SPACES. DTSBR604 00598 10 W-TOTAL-AMOUNT3 PIC ZZZ,ZZZ,ZZ9.99-. DTSBR604 00599 10 FILLER PIC X(09) VALUE SPACES. DTSBR604 00600 10 W-TOTAL-AMOUNT4 PIC ZZZ,ZZZ,ZZ9.99-. DTSBR604 00601 10 FILLER PIC X(09) VALUE SPACES. DTSBR604 00602 10 W-GRD-TOTAL PIC ZZZ,ZZZ,ZZ9.99-. DTSBR604 00603 DTSBR604 00604 05 WS-DISCRP-LINE. DTSBR604 00605 10 FILLER PIC X(01). DTSBR604 00606 10 FILLER PIC X(50) VALUE SPACES. DTSBR604 00607 10 FILLER PIC X(32) VALUE DTSBR604 00608 '!!! WAGE/DUTAS DISCREPANCY !!!'. DTSBR604 00609 10 FILLER PIC X(50). DTSBR604 00610 DTSBR604 00611 EJECT DTSBR604 00612 DTSBR604 00613 01 WS-EMPLOYEE-AREA. DTSBR604 00614 05 WS-QTR1-TXBLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00615 05 WS-QTR2-TXBLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00616 05 WS-QTR3-TXBLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00617 05 WS-QTR4-TXBLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00618 DTSBR604 00619 05 WS-QTR1-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00620 05 WS-QTR2-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00621 05 WS-QTR3-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00622 05 WS-QTR4-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00623 DTSBR604 00624 05 WS-QTRS-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00625 05 WS-QTRS-TAXABLE PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00626 DTSBR604 00627 05 WS-TAX-IND PIC X(01). DTSBR604 00628 88 TXBLE-QTR-YES VALUE 'Y'. DTSBR604 00629 88 TXBLE-QTR-NO VALUE 'N'. DTSBR604 00630 DTSBR604 00631 01 TOTAL-EMPLOYEE-AREA. DTSBR604 00632 05 TOTAL-QTR1-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00633 05 TOTAL-QTR1-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00634 05 TOTAL-QTR1-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00635 05 TOTAL-QTR2-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00636 05 TOTAL-QTR2-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00637 05 TOTAL-QTR2-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00638 05 TOTAL-QTR3-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00639 05 TOTAL-QTR3-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00640 05 TOTAL-QTR3-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00641 05 TOTAL-QTR4-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00642 05 TOTAL-QTR4-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00643 05 TOTAL-QTR4-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00644 05 SUM-TOTAL-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00645 05 SUM-TOTAL-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00646 05 SUM-TOTAL-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00647 DTSBR604 00648 01 DOES-TOTAL-AREA. DTSBR604 00649 05 DOES-QTR1-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00650 05 DOES-QTR1-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00651 05 DOES-QTR1-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00652 05 DOES-QTR2-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00653 05 DOES-QTR2-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00654 05 DOES-QTR2-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00655 05 DOES-QTR3-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00656 05 DOES-QTR3-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00657 05 DOES-QTR3-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00658 05 DOES-QTR4-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00659 05 DOES-QTR4-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00660 05 DOES-QTR4-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00661 05 SUM-DOES-EARNINGS PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00662 05 SUM-DOES-EXCESS-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00663 05 SUM-DOES-TAXABLE-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBR604 00664 DTSBR604 00665 05 VARB-QTR1-EARNINGS PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00666 05 VARB-QTR1-EXCESS-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00667 05 VARB-QTR1-TAXABLE-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00668 05 VARB-QTR2-EARNINGS PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00669 05 VARB-QTR2-EXCESS-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00670 05 VARB-QTR2-TAXABLE-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00671 05 VARB-QTR3-EARNINGS PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00672 05 VARB-QTR3-EXCESS-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00673 05 VARB-QTR3-TAXABLE-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00674 05 VARB-QTR4-EARNINGS PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00675 05 VARB-QTR4-EXCESS-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00676 05 VARB-QTR4-TAXABLE-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00677 05 VARB-TOTAL-EARNINGS PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00678 05 VARB-TOTAL-EXCESS-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00679 05 VARB-TOTAL-TAXABLE-AMT PIC S9(09)V99 COMP-3 VALUE +0. DTSBR604 00680 DTSBR604 00681 EJECT DTSBR604 00682 *01 L001-LINK-AREA. DTSBR604 00683 ***INCLUDE DTSIL001 DTSBR604 00684 * EJECT DTSBR604 00685 01 L004-LINK-AREA. DTSBR604 00686 ++INCLUDE DTSIL004 DTSBR604 00687 EJECT DTSBR604 00688 *01 L032-LINK-AREA. DTSBR604 00689 ***INCLUDE DTSIL032 DTSBR604 00690 * EJECT DTSBR604 00691 *01 L056-LINK-AREA. DTSBR604 00692 ***INCLUDE DTSIL056 DTSBR604 00693 * EJECT DTSBR604 00694 01 L062-LINK-AREA. DTSBR604 00695 ++INCLUDE DTSIL062 DTSBR604 00696 EJECT DTSBR604 00697 ***** DTSBR604 00698 01 L981-LINK-AREA. DTSBR604 00699 ++INCLUDE DTSIL981 DTSBR604 00700 SKIP3 DTSBR604 00701 01 WWGH-REC. DTSBR604 00702 ++INCLUDE DTSIWWGH DTSBR604 00703 EJECT DTSBR604 00704 01 L982-LINK-AREA. DTSBR604 00705 ++INCLUDE DTSIL982 DTSBR604 00706 SKIP3 DTSBR604 00707 01 WNAM-REC. DTSBR604 00708 ++INCLUDE DTSIWNAM DTSBR604 00709 EJECT DTSBR604 00710 DTSBR604 00711 LINKAGE SECTION. DTSBR604 00712 01 LRCM-LINK-AREA. DTSBR604 00713 ++INCLUDE DTSILRCM DTSBR604 00714 EJECT DTSBR604 00715 01 R604-REC. DTSBR604 00716 ++INCLUDE DTSIR604 DTSBR604 00717 EJECT DTSBR604 00718 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR604 00719 R604-REC. DTSBR604 00720 DTSBR604 00721 IF FIRST-TIME-IND = 'Y' DTSBR604 00722 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR604 00723 MOVE 'N' TO FIRST-TIME-IND. DTSBR604 00724 DTSBR604 00725 IF LRCM-EOR-88 DTSBR604 00726 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR604 00727 ELSE DTSBR604 00728 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR604 00729 DTSBR604 00730 GOBACK. DTSBR604 00731 DTSBR604 00732 I1000-INITIATE. DTSBR604 00733 DTSBR604 00734 PERFORM S981A-OPEN-READ THRU S981A-EXIT. DTSBR604 00735 PERFORM S982E-OPEN-READ THRU S982E-EXIT. DTSBR604 00736 OPEN OUTPUT PRT-FILE. DTSBR604 00737 DTSBR604 00738 MOVE LRCM-AGY-NAME-LINE1 TO WS-LRCM-AGY-NAME-LINE1. DTSBR604 00739 MOVE LRCM-SYS-DATE TO WS-LRCM-SYS-DATE. DTSBR604 00740 MOVE LRCM-AGY-NAME-LINE2 TO WS-LRCM-AGY-NAME-LINE2. DTSBR604 00741 MOVE LRCM-SYS-TIME TO WS-LRCM-SYS-TIME. DTSBR604 00742 MOVE ' FIELD ASSIGNMENT REPORT WAGE DATA ' DTSBR604 00743 TO WS-HEADER-3-TITLE. DTSBR604 00744 MOVE 'ENFORCEMENT UNIT' TO WS-HEADER-3-UNIT. DTSBR604 00745 DTSBR604 00746 MOVE SPACES TO REPORT-REC. DTSBR604 00747 DTSBR604 00748 PERFORM I2000-INIT-TABLE THRU I2000-EXIT VARYING TBL-IDX DTSBR604 00749 FROM 1 BY 1 UNTIL TBL-IDX > 4. DTSBR604 00750 DTSBR604 00751 I1000-EXIT. DTSBR604 00752 EXIT. DTSBR604 00753 DTSBR604 00754 I2000-INIT-TABLE. DTSBR604 00755 DTSBR604 00756 MOVE ZEROS TO WS-TBL-EMP-NO (TBL-IDX). DTSBR604 00757 MOVE ZEROS TO WS-TBL-SSN (TBL-IDX). DTSBR604 00758 MOVE ZEROS TO WS-TBL-YRQ (TBL-IDX). DTSBR604 00759 MOVE ZEROS TO WS-TBL-EARNINGS (TBL-IDX). DTSBR604 00760 DTSBR604 00761 I2000-EXIT. DTSBR604 00762 EXIT. DTSBR604 00763 DTSBR604 00764 T1000-TERMINATE. DTSBR604 00765 DTSBR604 00766 PERFORM P5000-PRINT-TOT-FOOTER THRU P5000-EXIT. DTSBR604 00767 *TEMP DTSBR604 00768 MOVE WS-EARNINGS-TOT-SUM TO DISP-EARNINGS-TOT-SUM. DTSBR604 00769 DISPLAY ' '. DTSBR604 00770 DISPLAY 'TOTAL WAGES FOR EACH SSN WITHOUT NAME = ' DTSBR604 00771 DISP-EARNINGS-TOT-SUM. DTSBR604 00772 *TEMP DTSBR604 00773 PERFORM S981C-CLOSE THRU S981C-EXIT. DTSBR604 00774 PERFORM S982F-CLOSE THRU S982F-EXIT. DTSBR604 00775 CLOSE PRT-FILE. DTSBR604 00776 T1000-EXIT. DTSBR604 00777 EXIT. DTSBR604 00778 DTSBR604 00779 P1000-PROCESS. DTSBR604 00780 DTSBR604 00781 SET TXBLE-QTR-YES TO TRUE. DTSBR604 00782 DTSBR604 00783 IF WS-NUMBER-ONE = +0 DTSBR604 00784 MOVE +1 TO WS-NUMBER-ONE DTSBR604 00785 MOVE R604-ASSIGN-NO TO WRK-ASSIGN-NO-HOLD. DTSBR604 00786 DTSBR604 00787 PERFORM P1100-EDIT-REQUEST THRU P1100-EXIT. DTSBR604 00788 DTSBR604 00789 IF R604-ASSIGN-NO = WRK-ASSIGN-NO-HOLD DTSBR604 00790 NEXT SENTENCE DTSBR604 00791 ELSE DTSBR604 00792 PERFORM P5000-PRINT-TOT-FOOTER THRU P5000-EXIT DTSBR604 00793 MOVE +0 TO WS-PAGE-CNT DTSBR604 00794 MOVE +60 TO WS-LINE-CNT2 DTSBR604 00795 MOVE R604-ASSIGN-NO TO WRK-ASSIGN-NO-HOLD DTSBR604 00796 INITIALIZE TOTAL-EMPLOYEE-AREA DTSBR604 00797 INITIALIZE DOES-TOTAL-AREA DTSBR604 00798 END-IF. DTSBR604 00799 DTSBR604 00800 *RW1 DTSBR604 00801 DISPLAY ' R604-START-YRQ = ' R604-START-YRQ. DTSBR604 00802 DISPLAY ' R604-LAST-YRQ = ' R604-LAST-YRQ. DTSBR604 00803 *RW2 DTSBR604 00804 MOVE R604-START-YRQ TO L004-QTR-5-9. DTSBR604 00805 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 00806 IF L004-INVALID-QTR DTSBR604 00807 MOVE 'WRK START YRQ NOT VALID' TO WRK-ABEND-MSG DTSBR604 00808 PERFORM S999-ABEND THRU S999-EXIT DTSBR604 00809 ELSE DTSBR604 00810 MOVE L004-QTR-5-9 TO WRK-START-QTR. DTSBR604 00811 DTSBR604 00812 ADD +1 TO L004-ABS-QTR. DTSBR604 00813 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBR604 00814 MOVE L004-QTR-5-9 TO WRK-SECOND-QTR. DTSBR604 00815 DTSBR604 00816 ADD +1 TO L004-ABS-QTR. DTSBR604 00817 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBR604 00818 MOVE L004-QTR-5-9 TO WRK-THIRD-QTR. DTSBR604 00819 DTSBR604 00820 ADD +1 TO L004-ABS-QTR. DTSBR604 00821 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBR604 00822 MOVE L004-QTR-5-9 TO WRK-END-QTR. DTSBR604 00823 DTSBR604 00824 DISPLAY ' R604-WRK-START-QTR = ' WRK-START-QTR. DTSBR604 00825 DISPLAY 'R604-WRK-SECOND-QTR = ' WRK-SECOND-QTR. DTSBR604 00826 DISPLAY ' R604-WRK-THIRD-QTR = ' WRK-THIRD-QTR. DTSBR604 00827 DISPLAY ' R604-WRK-END-QTR = ' WRK-END-QTR. DTSBR604 00828 DISPLAY ' '. DTSBR604 00829 DTSBR604 00830 PERFORM P5100-ACCUM-DOES-QTR-WAGES THRU P5100-EXIT VARYING DTSBR604 00831 R604-QTR-IDX FROM 1 BY 1 UNTIL DTSBR604 00832 R604-QTR-IDX > 4. DTSBR604 00833 DTSBR604 00834 SET END-REPORT-FILE-NO TO TRUE. DTSBR604 00835 OPEN OUTPUT REPORT-FILE. DTSBR604 00836 PERFORM P2000-READ-WAGE-FILE THRU P2000-EXIT. DTSBR604 00837 DTSBR604 00838 CLOSE REPORT-FILE. DTSBR604 00839 SORT SORT-FILE ASCENDING KEY SRT-EMP-NO SRT-SSN SRT-YRQ DTSBR604 00840 USING REPORT-FILE DTSBR604 00841 GIVING REPORT-FILE. DTSBR604 00842 DTSBR604 00843 OPEN INPUT REPORT-FILE. DTSBR604 00844 PERFORM P3000-HEADER THRU P3000-EXIT. DTSBR604 00845 SET TBL-IDX TO 1. DTSBR604 00846 PERFORM P4000-GET-SORTED-RECS THRU P4000-EXIT UNTIL DTSBR604 00847 END-REPORT-FILE-YES. DTSBR604 00848 DTSBR604 00849 CLOSE REPORT-FILE. DTSBR604 00850 DTSBR604 00851 P1000-EXIT. DTSBR604 00852 EXIT. DTSBR604 00853 DTSBR604 00854 P1100-EDIT-REQUEST. DTSBR604 00855 IF (R604-EMP-NO NOT NUMERIC) DTSBR604 00856 OR DTSBR604 00857 (R604-EMP-NO = 0) DTSBR604 00858 MOVE 'EMP NO NOT VALID' TO WRK-ABEND-MSG DTSBR604 00859 PERFORM S999-ABEND THRU S999-EXIT. DTSBR604 00860 DTSBR604 00861 MOVE R604-START-YRQ TO L004-QTR-5-9. DTSBR604 00862 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 00863 IF L004-INVALID-QTR DTSBR604 00864 MOVE 'R604 START YRQ NOT VALID' TO WRK-ABEND-MSG DTSBR604 00865 PERFORM S999-ABEND THRU S999-EXIT. DTSBR604 00866 DTSBR604 00867 MOVE R604-LAST-YRQ TO L004-QTR-5-9. DTSBR604 00868 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 00869 IF L004-INVALID-QTR DTSBR604 00870 MOVE 'R604 LAST YRQ NOT VALID' TO WRK-ABEND-MSG DTSBR604 00871 PERFORM S999-ABEND THRU S999-EXIT. DTSBR604 00872 DTSBR604 00873 IF R604-LAST-YRQ < R604-START-YRQ DTSBR604 00874 MOVE 'LAST YRQ IS LESS THAN START YRQ' TO WRK-ABEND-MSG DTSBR604 00875 PERFORM S999-ABEND THRU S999-EXIT. DTSBR604 00876 DTSBR604 00877 IF R604-FIELD-REP-ID = SPACES DTSBR604 00878 MOVE 'FIELD REP ID REQUIRED' TO WRK-ABEND-MSG DTSBR604 00879 PERFORM S999-ABEND THRU S999-EXIT. DTSBR604 00880 DTSBR604 00881 P1100-EXIT. DTSBR604 00882 EXIT. DTSBR604 00883 DTSBR604 00884 P2000-READ-WAGE-FILE. DTSBR604 00885 DTSBR604 00886 MOVE LOW-VALUE TO WWGH-REC. DTSBR604 00887 MOVE R604-EMP-NO TO WWGH-EMP-NO. DTSBR604 00888 MOVE WRK-START-QTR TO WWGH-YRQ. DTSBR604 00889 DTSBR604 00890 PERFORM S981D-START-BROWSE THRU S981D-EXIT. DTSBR604 00891 IF L981-OK-88 DTSBR604 00892 PERFORM P2100-SCAN-WAGE-FILE THRU P2100-EXIT DTSBR604 00893 UNTIL L981-NO-REC-88. DTSBR604 00894 DTSBR604 00895 P2000-EXIT. DTSBR604 00896 EXIT. DTSBR604 00897 DTSBR604 00898 P2100-SCAN-WAGE-FILE. DTSBR604 00899 IF (WWGH-EMP-NO NOT = R604-EMP-NO) OR DTSBR604 00900 (WWGH-YRQ > WRK-END-QTR) DTSBR604 00901 SET L981-NO-REC-88 TO TRUE DTSBR604 00902 GO TO P2100-EXIT DTSBR604 00903 ELSE DTSBR604 00904 IF WWGH-SSN = +0 DTSBR604 00905 NEXT SENTENCE DTSBR604 00906 ELSE DTSBR604 00907 MOVE WWGH-EMP-NO TO RPT-EMP-NO DTSBR604 00908 MOVE WWGH-SSN TO RPT-SSN DTSBR604 00909 MOVE WWGH-YRQ TO RPT-YRQ DTSBR604 00910 MOVE WWGH-EARNINGS TO RPT-EARNINGS DTSBR604 00911 WRITE REPORT-RECORD DTSBR604 00912 END-IF DTSBR604 00913 END-IF. DTSBR604 00914 DTSBR604 00915 PERFORM S981E-READ-NEXT THRU S981E-EXIT. DTSBR604 00916 DTSBR604 00917 P2100-EXIT. DTSBR604 00918 EXIT. DTSBR604 00919 DTSBR604 00920 P3000-HEADER. DTSBR604 00921 IF LRCM-EOR-88 DTSBR604 00922 DISPLAY 'R604 P3000 CALLED FROM P5000' DTSBR604 00923 END-IF. DTSBR604 00924 DTSBR604 00925 IF WS-LINE-CNT GREATER 48 OR DTSBR604 00926 WS-LINE-CNT2 GREATER 51 DTSBR604 00927 MOVE +0 TO WS-LINE-CNT DTSBR604 00928 MOVE +0 TO WS-LINE-CNT2 DTSBR604 00929 ADD +1 TO WS-PAGE-CNT DTSBR604 00930 MOVE WS-PAGE-CNT TO W-PAGE-CNTR DTSBR604 00931 WRITE REPORT-REC FROM WS-HEADER-1 DTSBR604 00932 AFTER TOP-OF-PAGE DTSBR604 00933 WRITE REPORT-REC FROM WS-HEADER-2 AFTER 1 DTSBR604 00934 WRITE REPORT-REC FROM WS-HEADER-3 AFTER 1 DTSBR604 00935 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 00936 DTSBR604 00937 MOVE R604-ASSIGN-NO TO W-ASSIGN-NO W-ASSIGN-NO-H DTSBR604 00938 WRITE REPORT-REC FROM WS-LINE-01 AFTER 1 DTSBR604 00939 DTSBR604 00940 MOVE R604-FIELD-REP-ID TO WS-FIELD-REP-ID-LAST DTSBR604 00941 L062-FLD-REP-ID DTSBR604 00942 MOVE WS-FIELD-REP-ID-LAST TO W-FLD-ID W-FLD-ID-H DTSBR604 00943 PERFORM S062-FLD-REP-INFO THRU S062-EXIT DTSBR604 00944 MOVE L062-NAME TO W-FLD-REP-NAME W-FLD-REP-NAME-H DTSBR604 00945 WRITE REPORT-REC FROM WS-LINE-02 AFTER 1 DTSBR604 00946 DTSBR604 00947 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 00948 DTSBR604 00949 MOVE R604-FIELD-REP-OPID TO W-OPER-ID W-OPER-ID-H DTSBR604 00950 WRITE REPORT-REC FROM WS-LINE-03 AFTER 1 DTSBR604 00951 DTSBR604 00952 ADD +08 TO WS-LINE-CNT2 DTSBR604 00953 DTSBR604 00954 PERFORM P3100-MAIL-ADDR-RTN THRU P3100-EXIT DTSBR604 00955 VARYING SUB FROM 1 BY 1 UNTIL SUB > 5 DTSBR604 00956 DTSBR604 00957 MOVE SPACES TO W-PHONE-OUTPUT W-PHONE-OUTPUT-H DTSBR604 00958 MOVE R604-MAIL-VOICE-1 (1:10) TO WS-VOICE-OUTPUT DTSBR604 00959 IF WS-VOICE-OUTPUT > SPACES DTSBR604 00960 MOVE WS-VOICE-OUTPUT (1:3) TO WS-VOICE-EDIT1 DTSBR604 00961 MOVE WS-VOICE-OUTPUT (4:3) TO WS-VOICE-EDIT2 DTSBR604 00962 MOVE WS-VOICE-OUTPUT (7:4) TO WS-VOICE-EDIT3 DTSBR604 00963 MOVE WS-VOICE-OUTPUT-R TO W-PHONE-OUTPUT DTSBR604 00964 W-PHONE-OUTPUT-H DTSBR604 00965 WRITE REPORT-REC FROM WS-LINE-05 AFTER 1 DTSBR604 00966 ADD +01 TO WS-LINE-CNT2 DTSBR604 00967 END-IF DTSBR604 00968 DTSBR604 00969 *RW WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 00970 WRITE REPORT-REC FROM WS-LINE-PHYS AFTER 1 DTSBR604 00971 DTSBR604 00972 PERFORM P3200-PHYS-ADDR-RTN THRU P3200-EXIT DTSBR604 00973 VARYING SUB FROM 1 BY 1 UNTIL SUB > 5 DTSBR604 00974 DTSBR604 00975 MOVE SPACES TO W-PHONE-OUTPUT W-PHONE-OUTPUT-P DTSBR604 00976 MOVE R604-PHYS-VOICE-1 (1:10) TO WS-VOICE-OUTPUT DTSBR604 00977 IF WS-VOICE-OUTPUT > SPACES DTSBR604 00978 MOVE WS-VOICE-OUTPUT (1:3) TO WS-VOICE-EDIT1 DTSBR604 00979 MOVE WS-VOICE-OUTPUT (4:3) TO WS-VOICE-EDIT2 DTSBR604 00980 MOVE WS-VOICE-OUTPUT (7:4) TO WS-VOICE-EDIT3 DTSBR604 00981 MOVE WS-VOICE-OUTPUT-R TO W-PHONE-OUTPUT DTSBR604 00982 W-PHONE-OUTPUT-P DTSBR604 00983 WRITE REPORT-REC FROM WS-LINE-05 AFTER 1 DTSBR604 00984 ADD +01 TO WS-LINE-CNT2 DTSBR604 00985 END-IF DTSBR604 00986 DTSBR604 00987 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 00988 DTSBR604 00989 MOVE R604-TAXABLE-WAGE-BASE TO STARTING-BASE-WAGE DTSBR604 00990 W-WAGE-BASE DTSBR604 00991 WRITE REPORT-REC FROM WS-LINE-06 AFTER 1 DTSBR604 00992 DTSBR604 00993 WRITE REPORT-REC FROM WS-LINE-11 AFTER 1 DTSBR604 00994 WRITE REPORT-REC FROM WS-LINE-11-HDR AFTER 1 DTSBR604 00995 WRITE REPORT-REC FROM WS-LINE-11-A AFTER 1 DTSBR604 00996 DTSBR604 00997 PERFORM P3300-QUARTER-CONVERSION THRU P3300-EXIT DTSBR604 00998 DTSBR604 00999 WRITE REPORT-REC FROM WS-LINE-12-HDR AFTER 1 DTSBR604 01000 DTSBR604 01001 WRITE REPORT-REC FROM WS-LINE-13-HDR AFTER 1 DTSBR604 01002 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 01003 ADD +08 TO WS-LINE-CNT2. DTSBR604 01004 DTSBR604 01005 P3000-EXIT. DTSBR604 01006 EXIT. DTSBR604 01007 DTSBR604 01008 P3050-HEADER. DTSBR604 01009 DTSBR604 01010 IF WS-LINE-CNT GREATER 48 OR DTSBR604 01011 WS-LINE-CNT2 GREATER 51 DTSBR604 01012 MOVE +0 TO WS-LINE-CNT DTSBR604 01013 MOVE +0 TO WS-LINE-CNT2 DTSBR604 01014 ADD +1 TO WS-PAGE-CNT DTSBR604 01015 MOVE WS-PAGE-CNT TO W-PAGE-CNTR DTSBR604 01016 WRITE REPORT-REC FROM WS-HEADER-1 DTSBR604 01017 AFTER TOP-OF-PAGE DTSBR604 01018 WRITE REPORT-REC FROM WS-HEADER-2 AFTER 1 DTSBR604 01019 WRITE REPORT-REC FROM WS-HEADER-3 AFTER 1 DTSBR604 01020 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 01021 DTSBR604 01022 MOVE W-ASSIGN-NO-H TO W-ASSIGN-NO DTSBR604 01023 WRITE REPORT-REC FROM WS-LINE-01 AFTER 1 DTSBR604 01024 DTSBR604 01025 MOVE W-FLD-ID-H TO W-FLD-ID DTSBR604 01026 MOVE W-FLD-REP-NAME-H TO W-FLD-REP-NAME DTSBR604 01027 WRITE REPORT-REC FROM WS-LINE-02 AFTER 1 DTSBR604 01028 DTSBR604 01029 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 01030 DTSBR604 01031 MOVE W-OPER-ID-H TO W-OPER-ID DTSBR604 01032 WRITE REPORT-REC FROM WS-LINE-03 AFTER 1 DTSBR604 01033 DTSBR604 01034 ADD +08 TO WS-LINE-CNT2 DTSBR604 01035 DTSBR604 01036 WRITE REPORT-REC FROM WS-LINE-04-1 AFTER 1 DTSBR604 01037 WRITE REPORT-REC FROM WS-LINE-04-2 AFTER 1 DTSBR604 01038 WRITE REPORT-REC FROM WS-LINE-04-3 AFTER 1 DTSBR604 01039 * WRITE REPORT-REC FROM WS-LINE-04-4 AFTER 1 DTSBR604 01040 * WRITE REPORT-REC FROM WS-LINE-04-5 AFTER 1 DTSBR604 01041 ADD +05 TO WS-LINE-CNT2 DTSBR604 01042 DTSBR604 01043 IF W-PHONE-OUTPUT-H > SPACES DTSBR604 01044 WRITE REPORT-REC FROM WS-LINE-05-H AFTER 1 DTSBR604 01045 ADD +01 TO WS-LINE-CNT2 DTSBR604 01046 END-IF DTSBR604 01047 DTSBR604 01048 WRITE REPORT-REC FROM WS-LINE-PHYS AFTER 1 DTSBR604 01049 DTSBR604 01050 IF W-LINE-DATA (1) > SPACES DTSBR604 01051 WRITE REPORT-REC FROM WS-LINE-04-1P AFTER 1 DTSBR604 01052 END-IF DTSBR604 01053 IF W-LINE-DATA (2) > SPACES DTSBR604 01054 WRITE REPORT-REC FROM WS-LINE-04-2P AFTER 1 DTSBR604 01055 END-IF DTSBR604 01056 IF W-LINE-DATA (3) > SPACES DTSBR604 01057 WRITE REPORT-REC FROM WS-LINE-04-3P AFTER 1 DTSBR604 01058 END-IF DTSBR604 01059 * WRITE REPORT-REC FROM WS-LINE-04-4P AFTER 1 DTSBR604 01060 * WRITE REPORT-REC FROM WS-LINE-04-5P AFTER 1 DTSBR604 01061 ADD +05 TO WS-LINE-CNT2 DTSBR604 01062 DTSBR604 01063 IF W-PHONE-OUTPUT-P > SPACES DTSBR604 01064 WRITE REPORT-REC FROM WS-LINE-05-P AFTER 1 DTSBR604 01065 ADD +01 TO WS-LINE-CNT2 DTSBR604 01066 END-IF DTSBR604 01067 DTSBR604 01068 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 01069 DTSBR604 01070 IF LRCM-EOR-88 DTSBR604 01071 DISPLAY 'R604 P3050 CALLED FROM P5000' DTSBR604 01072 MOVE ZERO TO STARTING-BASE-WAGE DTSBR604 01073 W-WAGE-BASE DTSBR604 01074 ELSE DTSBR604 01075 MOVE R604-TAXABLE-WAGE-BASE DTSBR604 01076 TO STARTING-BASE-WAGE DTSBR604 01077 W-WAGE-BASE DTSBR604 01078 END-IF. DTSBR604 01079 DTSBR604 01080 WRITE REPORT-REC FROM WS-LINE-06 AFTER 1 DTSBR604 01081 DTSBR604 01082 WRITE REPORT-REC FROM WS-LINE-11 AFTER 1 DTSBR604 01083 WRITE REPORT-REC FROM WS-LINE-11-HDR AFTER 1 DTSBR604 01084 WRITE REPORT-REC FROM WS-LINE-11-A AFTER 1 DTSBR604 01085 DTSBR604 01086 PERFORM P3300-QUARTER-CONVERSION THRU P3300-EXIT DTSBR604 01087 DTSBR604 01088 WRITE REPORT-REC FROM WS-LINE-12-HDR AFTER 1 DTSBR604 01089 DTSBR604 01090 WRITE REPORT-REC FROM WS-LINE-13-HDR AFTER 1 DTSBR604 01091 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1 DTSBR604 01092 ADD +08 TO WS-LINE-CNT2. DTSBR604 01093 DTSBR604 01094 P3050-EXIT. DTSBR604 01095 EXIT. DTSBR604 01096 DTSBR604 01097 P3100-MAIL-ADDR-RTN. DTSBR604 01098 DTSBR604 01099 SET R604-OPO-IDX TO 1. DTSBR604 01100 SET R604-MAIL-IDX TO 1. DTSBR604 01101 DTSBR604 01102 IF SUB = 1 DTSBR604 01103 MOVE ' EMP NO:' TO W-EMP-NO-TAG. DTSBR604 01104 DTSBR604 01105 MOVE R604-OPO-NAME (SUB) TO W-OPER-NAME (SUB). DTSBR604 01106 DTSBR604 01107 MOVE R604-OPO-TITLE (SUB) TO W-OPER-TITLE (SUB). DTSBR604 01108 DTSBR604 01109 IF R604-OPO-SSN (SUB) IS NUMERIC AND DTSBR604 01110 R604-OPO-SSN (SUB) IS > ZEROES DTSBR604 01111 MOVE R604-OPO-SSN (SUB) TO WS-SSN-NO-UNPACK DTSBR604 01112 MOVE WS-SSN-NO-UNPACK (1:3) TO WS-SSN-EDIT1 DTSBR604 01113 MOVE WS-SSN-NO-UNPACK (4:2) TO WS-SSN-EDIT2 DTSBR604 01114 MOVE WS-SSN-NO-UNPACK (6:4) TO WS-SSN-EDIT3 DTSBR604 01115 MOVE WS-SSN-NO-EDITED TO W-OPER-SSN (SUB) DTSBR604 01116 ELSE DTSBR604 01117 MOVE SPACES TO W-OPER-SSN (SUB) DTSBR604 01118 END-IF. DTSBR604 01119 DTSBR604 01120 IF SUB = 1 DTSBR604 01121 MOVE R604-EMP-NO TO W-EMP-NO DTSBR604 01122 MOVE SPACES TO W-LABEL (SUB) DTSBR604 01123 MOVE R604-PRIMARY-NAME TO W-VARIABLE-DATA (SUB) DTSBR604 01124 ELSE DTSBR604 01125 IF SUB = 2 DTSBR604 01126 MOVE SPACES TO W-EMP-NO-R DTSBR604 01127 MOVE SPACES TO W-EMP-NO-TAG DTSBR604 01128 * MOVE 'MAIL:' TO W-LABEL (SUB) DTSBR604 01129 MOVE SPACES TO W-LABEL (SUB) DTSBR604 01130 MOVE R604-MAIL-LINE (SUB - 1) DTSBR604 01131 TO W-VARIABLE-DATA (SUB) DTSBR604 01132 ELSE DTSBR604 01133 MOVE SPACES TO W-LABEL (SUB) DTSBR604 01134 MOVE R604-MAIL-LINE (SUB - 1) DTSBR604 01135 TO W-VARIABLE-DATA (SUB) DTSBR604 01136 END-IF DTSBR604 01137 END-IF. DTSBR604 01138 DTSBR604 01139 IF W-VARIABLE-DATA (SUB) > SPACES OR DTSBR604 01140 W-OPER-NAME (SUB) > SPACES DTSBR604 01141 MOVE W-LINE-DATA (SUB) TO W-LINE-04-VARIABLE-DATA DTSBR604 01142 *RW1 DTSBR604 01143 IF SUB = 1 DTSBR604 01144 MOVE WS-LINE-04 TO WS-LINE-04-1 DTSBR604 01145 ELSE DTSBR604 01146 IF SUB = 2 DTSBR604 01147 MOVE WS-LINE-04 TO WS-LINE-04-2 DTSBR604 01148 ELSE DTSBR604 01149 IF SUB = 3 DTSBR604 01150 MOVE WS-LINE-04 TO WS-LINE-04-3 DTSBR604 01151 ELSE DTSBR604 01152 IF SUB = 4 DTSBR604 01153 MOVE WS-LINE-04 TO WS-LINE-04-4 DTSBR604 01154 ELSE DTSBR604 01155 IF SUB = 5 DTSBR604 01156 MOVE WS-LINE-04 TO WS-LINE-04-5 DTSBR604 01157 END-IF DTSBR604 01158 END-IF DTSBR604 01159 END-IF DTSBR604 01160 END-IF DTSBR604 01161 END-IF DTSBR604 01162 *RW2 DTSBR604 01163 WRITE REPORT-REC FROM WS-LINE-04 AFTER 1 DTSBR604 01164 ADD +01 TO WS-LINE-CNT2 DTSBR604 01165 END-IF. DTSBR604 01166 DTSBR604 01167 SET R604-MAIL-IDX UP BY 1. DTSBR604 01168 SET R604-OPO-IDX UP BY 1. DTSBR604 01169 MOVE SPACES TO W-LINE-04-VARIABLE-DATA. DTSBR604 01170 P3100-EXIT. DTSBR604 01171 EXIT. DTSBR604 01172 DTSBR604 01173 P3200-PHYS-ADDR-RTN. DTSBR604 01174 DTSBR604 01175 SET R604-PHYS-IDX TO 1. DTSBR604 01176 DTSBR604 01177 MOVE SPACES TO W-OPER-NAME (SUB). DTSBR604 01178 MOVE SPACES TO W-OPER-TITLE (SUB). DTSBR604 01179 MOVE SPACES TO W-OPER-SSN (SUB). DTSBR604 01180 DTSBR604 01181 IF SUB = 1 DTSBR604 01182 MOVE SPACES TO W-EMP-NO-R DTSBR604 01183 MOVE SPACES TO W-LABEL (SUB) DTSBR604 01184 MOVE SPACES TO W-VARIABLE-DATA (SUB) DTSBR604 01185 ELSE DTSBR604 01186 IF SUB = 2 DTSBR604 01187 MOVE SPACES TO W-EMP-NO-R DTSBR604 01188 MOVE SPACES TO W-EMP-NO-TAG DTSBR604 01189 * MOVE 'PHYS:' TO W-LABEL (SUB) DTSBR604 01190 MOVE SPACES TO W-LABEL (SUB) DTSBR604 01191 MOVE R604-PHYS-LINE (SUB - 1) DTSBR604 01192 TO W-VARIABLE-DATA (SUB) DTSBR604 01193 ELSE DTSBR604 01194 MOVE SPACES TO W-LABEL (SUB) DTSBR604 01195 MOVE R604-PHYS-LINE (SUB - 1) DTSBR604 01196 TO W-VARIABLE-DATA (SUB) DTSBR604 01197 END-IF DTSBR604 01198 END-IF. DTSBR604 01199 DTSBR604 01200 * IF W-VARIABLE-DATA (SUB) > SPACES DTSBR604 01201 IF W-LINE-DATA (SUB) > SPACES DTSBR604 01202 MOVE W-LINE-DATA (SUB) TO W-LINE-04-VARIABLE-DATA DTSBR604 01203 *RW1 DTSBR604 01204 IF SUB = 1 DTSBR604 01205 MOVE WS-LINE-04 TO WS-LINE-04-1P DTSBR604 01206 ELSE DTSBR604 01207 IF SUB = 2 DTSBR604 01208 MOVE WS-LINE-04 TO WS-LINE-04-2P DTSBR604 01209 ELSE DTSBR604 01210 IF SUB = 3 DTSBR604 01211 MOVE WS-LINE-04 TO WS-LINE-04-3P DTSBR604 01212 ELSE DTSBR604 01213 IF SUB = 4 DTSBR604 01214 MOVE WS-LINE-04 TO WS-LINE-04-4P DTSBR604 01215 ELSE DTSBR604 01216 IF SUB = 5 DTSBR604 01217 MOVE WS-LINE-04 TO WS-LINE-04-5P DTSBR604 01218 END-IF DTSBR604 01219 END-IF DTSBR604 01220 END-IF DTSBR604 01221 END-IF DTSBR604 01222 END-IF DTSBR604 01223 *RW2 DTSBR604 01224 WRITE REPORT-REC FROM WS-LINE-04 AFTER 1 DTSBR604 01225 ADD +01 TO WS-LINE-CNT2 DTSBR604 01226 ELSE DTSBR604 01227 ADD +01 TO WS-LINE-CNT2 DTSBR604 01228 END-IF. DTSBR604 01229 DTSBR604 01230 SET R604-PHYS-IDX UP BY 1. DTSBR604 01231 MOVE SPACES TO W-LINE-04-VARIABLE-DATA. DTSBR604 01232 DTSBR604 01233 P3200-EXIT. DTSBR604 01234 EXIT. DTSBR604 01235 DTSBR604 01236 P3300-QUARTER-CONVERSION. DTSBR604 01237 DTSBR604 01238 MOVE WRK-START-QTR TO L004-QTR-5-9. DTSBR604 01239 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 01240 IF L004-INVALID-QTR DTSBR604 01241 MOVE 'WRK-START-QRT NOT VALID' TO WRK-ABEND-MSG DTSBR604 01242 PERFORM S999-ABEND THRU S999-EXIT DTSBR604 01243 ELSE DTSBR604 01244 MOVE L004-SLASH-QTR TO W-TAX-YR-QTR-1. DTSBR604 01245 DTSBR604 01246 MOVE WRK-SECOND-QTR TO L004-QTR-5-9. DTSBR604 01247 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 01248 IF L004-INVALID-QTR DTSBR604 01249 MOVE 'WRK-SECOND-QTR NOT VALID' TO WRK-ABEND-MSG DTSBR604 01250 PERFORM S999-ABEND THRU S999-EXIT DTSBR604 01251 ELSE DTSBR604 01252 MOVE L004-SLASH-QTR TO W-TAX-YR-QTR-2. DTSBR604 01253 DTSBR604 01254 MOVE WRK-THIRD-QTR TO L004-QTR-5-9. DTSBR604 01255 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 01256 IF L004-INVALID-QTR DTSBR604 01257 MOVE 'WRK-THIRD-QRT NOT VALID' TO WRK-ABEND-MSG DTSBR604 01258 PERFORM S999-ABEND THRU S999-EXIT DTSBR604 01259 ELSE DTSBR604 01260 MOVE L004-SLASH-QTR TO W-TAX-YR-QTR-3. DTSBR604 01261 DTSBR604 01262 MOVE WRK-END-QTR TO L004-QTR-5-9. DTSBR604 01263 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 01264 IF L004-INVALID-QTR DTSBR604 01265 MOVE 'WRK-END-QRT NOT VALID' TO WRK-ABEND-MSG DTSBR604 01266 PERFORM S999-ABEND THRU S999-EXIT DTSBR604 01267 ELSE DTSBR604 01268 MOVE L004-SLASH-QTR TO W-TAX-YR-QTR-4. DTSBR604 01269 DTSBR604 01270 P3300-EXIT. DTSBR604 01271 EXIT. DTSBR604 01272 DTSBR604 01273 P4000-GET-SORTED-RECS. DTSBR604 01274 READ REPORT-FILE AT END DTSBR604 01275 PERFORM P4200-WRITE-EMPL-DTL-LINE THRU P4200-EXIT DTSBR604 01276 SET END-REPORT-FILE-YES TO TRUE DTSBR604 01277 GO TO P4000-EXIT. DTSBR604 01278 DTSBR604 01279 *DISPLAY THE SORTED WAGE FILE INFO. DTSBR604 01280 MOVE RPT-SSN TO WS-SSN-NO-UNPACK. DTSBR604 01281 MOVE WS-SSN-NO-UNPACK (1:3) TO DS-SSN-EDIT1. DTSBR604 01282 MOVE WS-SSN-NO-UNPACK (4:2) TO DS-SSN-EDIT2. DTSBR604 01283 MOVE WS-SSN-NO-UNPACK (6:4) TO DS-SSN-EDIT3. DTSBR604 01284 DTSBR604 01285 MOVE RPT-YRQ TO L004-QTR-5-9. DTSBR604 01286 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR604 01287 MOVE L004-SLASH-QTR TO DISP-WWGH-YRQ. DTSBR604 01288 DTSBR604 01289 MOVE RPT-EARNINGS TO DISP-EARNINGS. DTSBR604 01290 DISPLAY DISP-SSN ' ' DISP-WWGH-YRQ ' ' DISP-EARNINGS. DTSBR604 01291 DISPLAY ' '. DTSBR604 01292 * DTSBR604 01293 IF WS-NUMBER-TWO = +0 DTSBR604 01294 MOVE +1 TO WS-NUMBER-TWO DTSBR604 01295 MOVE RPT-SSN TO HOLD-RPT-SSN. DTSBR604 01296 DTSBR604 01297 IF RPT-SSN = HOLD-RPT-SSN DTSBR604 01298 NEXT SENTENCE DTSBR604 01299 ELSE DTSBR604 01300 PERFORM P4200-WRITE-EMPL-DTL-LINE THRU P4200-EXIT DTSBR604 01301 SET TBL-IDX TO 1 DTSBR604 01302 MOVE RPT-SSN TO HOLD-RPT-SSN DTSBR604 01303 END-IF. DTSBR604 01304 DTSBR604 01305 MOVE RPT-YRQ TO WRK-RPT-QTR. DTSBR604 01306 DTSBR604 01307 IF WRK-RPT-QTR = WRK-START-QTR DTSBR604 01308 SET TBL-IDX TO 1 DTSBR604 01309 IF RPT-SSN = HOLD-RPT-SSN DTSBR604 01310 MOVE RPT-EMP-NO TO WS-TBL-EMP-NO (1) DTSBR604 01311 MOVE RPT-SSN TO WS-TBL-SSN (1) DTSBR604 01312 MOVE RPT-YRQ TO WS-TBL-YRQ (1) DTSBR604 01313 MOVE RPT-EARNINGS TO WS-TBL-EARNINGS (1) DTSBR604 01314 END-IF DTSBR604 01315 END-IF. DTSBR604 01316 DTSBR604 01317 IF WRK-RPT-QTR = WRK-SECOND-QTR DTSBR604 01318 SET TBL-IDX TO 2 DTSBR604 01319 IF RPT-SSN = HOLD-RPT-SSN DTSBR604 01320 MOVE RPT-EMP-NO TO WS-TBL-EMP-NO (2) DTSBR604 01321 MOVE RPT-SSN TO WS-TBL-SSN (2) DTSBR604 01322 MOVE RPT-YRQ TO WS-TBL-YRQ (2) DTSBR604 01323 MOVE RPT-EARNINGS TO WS-TBL-EARNINGS (2) DTSBR604 01324 END-IF DTSBR604 01325 END-IF. DTSBR604 01326 DTSBR604 01327 IF WRK-RPT-QTR = WRK-THIRD-QTR DTSBR604 01328 SET TBL-IDX TO 3 DTSBR604 01329 IF RPT-SSN = HOLD-RPT-SSN DTSBR604 01330 MOVE RPT-EMP-NO TO WS-TBL-EMP-NO (3) DTSBR604 01331 MOVE RPT-SSN TO WS-TBL-SSN (3) DTSBR604 01332 MOVE RPT-YRQ TO WS-TBL-YRQ (3) DTSBR604 01333 MOVE RPT-EARNINGS TO WS-TBL-EARNINGS (3) DTSBR604 01334 END-IF DTSBR604 01335 END-IF. DTSBR604 01336 DTSBR604 01337 IF WRK-RPT-QTR = WRK-END-QTR DTSBR604 01338 SET TBL-IDX TO 4 DTSBR604 01339 IF RPT-SSN = HOLD-RPT-SSN DTSBR604 01340 MOVE RPT-EMP-NO TO WS-TBL-EMP-NO (4) DTSBR604 01341 MOVE RPT-SSN TO WS-TBL-SSN (4) DTSBR604 01342 MOVE RPT-YRQ TO WS-TBL-YRQ (4) DTSBR604 01343 MOVE RPT-EARNINGS TO WS-TBL-EARNINGS (4) DTSBR604 01344 END-IF DTSBR604 01345 END-IF. DTSBR604 01346 DTSBR604 01347 IF TBL-IDX = 1 DTSBR604 01348 ADD WS-TBL-EARNINGS (1) TO TOTAL-QTR1-EARNINGS DTSBR604 01349 IF WS-TBL-EARNINGS (1) >= STARTING-BASE-WAGE DTSBR604 01350 SET TXBLE-QTR-NO TO TRUE DTSBR604 01351 MOVE WS-TBL-EARNINGS (1) TO W-TOTAL-QTR1 DTSBR604 01352 ADD WS-TBL-EARNINGS (1) TO WS-QTRS-EARNINGS DTSBR604 01353 MOVE STARTING-BASE-WAGE TO W-TXBLE-QTR1 DTSBR604 01354 ADD STARTING-BASE-WAGE TO WS-QTRS-TAXABLE DTSBR604 01355 PERFORM P4100-FINAL-TAX-PROCESS THRU P4100-EXIT DTSBR604 01356 GO TO P4000-EXIT DTSBR604 01357 ELSE DTSBR604 01358 IF WS-TBL-EARNINGS (1) = ZEROS DTSBR604 01359 MOVE ZEROS TO W-TOTAL-QTR1 DTSBR604 01360 MOVE ZEROS TO W-TXBLE-QTR1 DTSBR604 01361 GO TO P4000-EXIT DTSBR604 01362 ELSE DTSBR604 01363 MOVE WS-TBL-EARNINGS (1) TO W-TOTAL-QTR1 DTSBR604 01364 ADD WS-TBL-EARNINGS (1) TO WS-QTRS-EARNINGS DTSBR604 01365 ADD WS-TBL-EARNINGS (1) TO TOTAL-QTR1-TAXABLE-AMT DTSBR604 01366 WS-QTRS-TAXABLE DTSBR604 01367 MOVE WS-TBL-EARNINGS (1) TO WS-QTR1-TXBLE-AMT DTSBR604 01368 W-TXBLE-QTR1 DTSBR604 01369 GO TO P4000-EXIT DTSBR604 01370 END-IF DTSBR604 01371 END-IF DTSBR604 01372 END-IF. DTSBR604 01373 DTSBR604 01374 IF TBL-IDX = 2 DTSBR604 01375 ADD WS-TBL-EARNINGS (2) TO TOTAL-QTR2-EARNINGS DTSBR604 01376 IF TXBLE-QTR-NO DTSBR604 01377 MOVE WS-TBL-EARNINGS (2) TO W-TOTAL-QTR2 DTSBR604 01378 ADD WS-TBL-EARNINGS (2) TO WS-QTRS-EARNINGS DTSBR604 01379 MOVE ZEROS TO W-TXBLE-QTR2 DTSBR604 01380 COMPUTE TOTAL-QTR2-EXCESS-AMT = TOTAL-QTR2-EXCESS-AMT DTSBR604 01381 + (WS-TBL-EARNINGS (2) - WS-QTR2-TXBLE-AMT) DTSBR604 01382 GO TO P4000-EXIT DTSBR604 01383 ELSE DTSBR604 01384 IF WS-TBL-EARNINGS (2) >= (STARTING-BASE-WAGE - DTSBR604 01385 WS-QTR1-TXBLE-AMT) DTSBR604 01386 SET TXBLE-QTR-NO TO TRUE DTSBR604 01387 MOVE WS-TBL-EARNINGS (2) TO W-TOTAL-QTR2 DTSBR604 01388 ADD WS-TBL-EARNINGS (2) TO WS-QTRS-EARNINGS DTSBR604 01389 PERFORM P4100-FINAL-TAX-PROCESS THRU P4100-EXIT DTSBR604 01390 MOVE WS-QTR2-TXBLE-AMT TO W-TXBLE-QTR2 DTSBR604 01391 ADD WS-QTR2-TXBLE-AMT TO WS-QTRS-TAXABLE DTSBR604 01392 GO TO P4000-EXIT DTSBR604 01393 ELSE DTSBR604 01394 IF WS-TBL-EARNINGS (2) = ZEROS DTSBR604 01395 MOVE ZEROS TO W-TOTAL-QTR2 DTSBR604 01396 MOVE ZEROS TO W-TXBLE-QTR2 DTSBR604 01397 GO TO P4000-EXIT DTSBR604 01398 ELSE DTSBR604 01399 MOVE WS-TBL-EARNINGS (2) TO W-TOTAL-QTR2 DTSBR604 01400 ADD WS-TBL-EARNINGS (2) TO WS-QTRS-EARNINGS DTSBR604 01401 ADD WS-TBL-EARNINGS (2) TO TOTAL-QTR2-TAXABLE-AMT DTSBR604 01402 WS-QTRS-TAXABLE DTSBR604 01403 MOVE WS-TBL-EARNINGS (2) TO WS-QTR2-TXBLE-AMT DTSBR604 01404 W-TXBLE-QTR2 DTSBR604 01405 GO TO P4000-EXIT DTSBR604 01406 END-IF DTSBR604 01407 END-IF DTSBR604 01408 END-IF DTSBR604 01409 END-IF. DTSBR604 01410 DTSBR604 01411 IF TBL-IDX = 3 DTSBR604 01412 ADD WS-TBL-EARNINGS (3) TO TOTAL-QTR3-EARNINGS DTSBR604 01413 IF TXBLE-QTR-NO DTSBR604 01414 MOVE WS-TBL-EARNINGS (3) TO W-TOTAL-QTR3 DTSBR604 01415 ADD WS-TBL-EARNINGS (3) TO WS-QTRS-EARNINGS DTSBR604 01416 MOVE ZEROS TO W-TXBLE-QTR3 DTSBR604 01417 COMPUTE TOTAL-QTR3-EXCESS-AMT = TOTAL-QTR3-EXCESS-AMT DTSBR604 01418 + (WS-TBL-EARNINGS (3) - WS-QTR3-TXBLE-AMT) DTSBR604 01419 GO TO P4000-EXIT DTSBR604 01420 ELSE DTSBR604 01421 IF WS-TBL-EARNINGS (3) >= STARTING-BASE-WAGE - DTSBR604 01422 (WS-QTR2-TXBLE-AMT + WS-QTR1-TXBLE-AMT) DTSBR604 01423 SET TXBLE-QTR-NO TO TRUE DTSBR604 01424 MOVE WS-TBL-EARNINGS (3) TO W-TOTAL-QTR3 DTSBR604 01425 ADD WS-TBL-EARNINGS (3) TO WS-QTRS-EARNINGS DTSBR604 01426 PERFORM P4100-FINAL-TAX-PROCESS THRU P4100-EXIT DTSBR604 01427 MOVE WS-QTR3-TXBLE-AMT TO W-TXBLE-QTR3 DTSBR604 01428 ADD WS-QTR3-TXBLE-AMT TO WS-QTRS-TAXABLE DTSBR604 01429 GO TO P4000-EXIT DTSBR604 01430 ELSE DTSBR604 01431 IF WS-TBL-EARNINGS (3) = ZEROS DTSBR604 01432 MOVE ZEROS TO W-TOTAL-QTR3 DTSBR604 01433 MOVE ZEROS TO W-TXBLE-QTR3 DTSBR604 01434 GO TO P4000-EXIT DTSBR604 01435 ELSE DTSBR604 01436 MOVE WS-TBL-EARNINGS (3) TO W-TOTAL-QTR3 DTSBR604 01437 ADD WS-TBL-EARNINGS (3) TO WS-QTRS-EARNINGS DTSBR604 01438 ADD WS-TBL-EARNINGS (3) TO TOTAL-QTR3-TAXABLE-AMTDTSBR604 01439 WS-QTRS-TAXABLE DTSBR604 01440 MOVE WS-TBL-EARNINGS (3) TO WS-QTR3-TXBLE-AMT DTSBR604 01441 W-TXBLE-QTR3 DTSBR604 01442 GO TO P4000-EXIT DTSBR604 01443 END-IF DTSBR604 01444 END-IF DTSBR604 01445 END-IF DTSBR604 01446 END-IF. DTSBR604 01447 DTSBR604 01448 IF TBL-IDX = 4 DTSBR604 01449 ADD WS-TBL-EARNINGS (4) TO TOTAL-QTR4-EARNINGS DTSBR604 01450 IF TXBLE-QTR-NO DTSBR604 01451 MOVE WS-TBL-EARNINGS (4) TO W-TOTAL-QTR4 DTSBR604 01452 ADD WS-TBL-EARNINGS (4) TO WS-QTRS-EARNINGS DTSBR604 01453 MOVE ZEROS TO W-TXBLE-QTR4 DTSBR604 01454 COMPUTE TOTAL-QTR4-EXCESS-AMT = TOTAL-QTR4-EXCESS-AMT DTSBR604 01455 + (WS-TBL-EARNINGS (4) - WS-QTR4-TXBLE-AMT) DTSBR604 01456 ELSE DTSBR604 01457 IF WS-TBL-EARNINGS (4) >= STARTING-BASE-WAGE - DTSBR604 01458 (WS-QTR3-TXBLE-AMT + WS-QTR2-TXBLE-AMT + DTSBR604 01459 WS-QTR1-TXBLE-AMT) DTSBR604 01460 SET TXBLE-QTR-NO TO TRUE DTSBR604 01461 MOVE WS-TBL-EARNINGS (4) TO W-TOTAL-QTR4 DTSBR604 01462 ADD WS-TBL-EARNINGS (4) TO WS-QTRS-EARNINGS DTSBR604 01463 PERFORM P4100-FINAL-TAX-PROCESS THRU P4100-EXIT DTSBR604 01464 MOVE WS-QTR4-TXBLE-AMT TO W-TXBLE-QTR4 DTSBR604 01465 ADD WS-QTR4-TXBLE-AMT TO WS-QTRS-TAXABLE DTSBR604 01466 ELSE DTSBR604 01467 IF WS-TBL-EARNINGS (4) = ZEROS DTSBR604 01468 MOVE ZEROS TO W-TOTAL-QTR4 DTSBR604 01469 MOVE ZEROS TO W-TXBLE-QTR4 DTSBR604 01470 ELSE DTSBR604 01471 MOVE WS-TBL-EARNINGS (4) TO W-TOTAL-QTR4 DTSBR604 01472 ADD WS-TBL-EARNINGS (4) TO WS-QTRS-EARNINGS DTSBR604 01473 ADD WS-TBL-EARNINGS (4) TO TOTAL-QTR4-TAXABLE-AMTDTSBR604 01474 WS-QTRS-TAXABLE DTSBR604 01475 MOVE WS-TBL-EARNINGS (4) TO WS-QTR4-TXBLE-AMT DTSBR604 01476 W-TXBLE-QTR4 DTSBR604 01477 END-IF DTSBR604 01478 END-IF DTSBR604 01479 END-IF DTSBR604 01480 END-IF. DTSBR604 01481 DTSBR604 01482 P4000-EXIT. DTSBR604 01483 EXIT. DTSBR604 01484 DTSBR604 01485 P4100-FINAL-TAX-PROCESS. DTSBR604 01486 DTSBR604 01487 IF TBL-IDX = 1 DTSBR604 01488 ADD STARTING-BASE-WAGE TO TOTAL-QTR1-TAXABLE-AMT DTSBR604 01489 MOVE STARTING-BASE-WAGE TO WS-QTR1-TXBLE-AMT DTSBR604 01490 COMPUTE TOTAL-QTR1-EXCESS-AMT = TOTAL-QTR1-EXCESS-AMT DTSBR604 01491 + (WS-TBL-EARNINGS (1) - STARTING-BASE-WAGE) DTSBR604 01492 END-IF. DTSBR604 01493 DTSBR604 01494 IF TBL-IDX = 2 DTSBR604 01495 COMPUTE WS-QTR2-TXBLE-AMT = DTSBR604 01496 (STARTING-BASE-WAGE - WS-QTR1-TXBLE-AMT) DTSBR604 01497 ADD WS-QTR2-TXBLE-AMT TO TOTAL-QTR2-TAXABLE-AMT DTSBR604 01498 COMPUTE TOTAL-QTR2-EXCESS-AMT = TOTAL-QTR2-EXCESS-AMT DTSBR604 01499 + (WS-TBL-EARNINGS (2) - WS-QTR2-TXBLE-AMT) DTSBR604 01500 END-IF. DTSBR604 01501 DTSBR604 01502 IF TBL-IDX = 3 DTSBR604 01503 COMPUTE WS-QTR3-TXBLE-AMT = STARTING-BASE-WAGE - DTSBR604 01504 (WS-QTR2-TXBLE-AMT + WS-QTR1-TXBLE-AMT) DTSBR604 01505 ADD WS-QTR3-TXBLE-AMT TO TOTAL-QTR3-TAXABLE-AMT DTSBR604 01506 COMPUTE TOTAL-QTR3-EXCESS-AMT = TOTAL-QTR3-EXCESS-AMT DTSBR604 01507 + (WS-TBL-EARNINGS (3) - WS-QTR3-TXBLE-AMT) DTSBR604 01508 END-IF. DTSBR604 01509 DTSBR604 01510 IF TBL-IDX = 4 DTSBR604 01511 COMPUTE WS-QTR4-TXBLE-AMT = (STARTING-BASE-WAGE - DTSBR604 01512 (WS-QTR3-TXBLE-AMT + WS-QTR2-TXBLE-AMT + DTSBR604 01513 WS-QTR1-TXBLE-AMT)) DTSBR604 01514 ADD WS-QTR4-TXBLE-AMT TO TOTAL-QTR4-TAXABLE-AMT DTSBR604 01515 COMPUTE TOTAL-QTR4-EXCESS-AMT = TOTAL-QTR4-EXCESS-AMT DTSBR604 01516 + (WS-TBL-EARNINGS (4) - WS-QTR4-TXBLE-AMT) DTSBR604 01517 END-IF. DTSBR604 01518 DTSBR604 01519 P4100-EXIT. DTSBR604 01520 EXIT. DTSBR604 01521 DTSBR604 01522 P4200-WRITE-EMPL-DTL-LINE. DTSBR604 01523 DTSBR604 01524 PERFORM P3000-HEADER THRU P3000-EXIT. DTSBR604 01525 * MOVE WGP-RIMARY-NAME-FIRST4 TO W-SHORT-NAME. DTSBR604 01526 DTSBR604 01527 MOVE HOLD-RPT-SSN TO WS-SSN-NO-UNPACK. DTSBR604 01528 MOVE WS-SSN-NO-UNPACK (1:3) TO WS-SSN-EDIT1. DTSBR604 01529 MOVE WS-SSN-NO-UNPACK (4:2) TO WS-SSN-EDIT2. DTSBR604 01530 MOVE WS-SSN-NO-UNPACK (6:4) TO WS-SSN-EDIT3. DTSBR604 01531 MOVE WS-SSN-NO-EDITED TO W-SSN. DTSBR604 01532 DTSBR604 01533 MOVE WS-QTRS-EARNINGS TO W-TOTAL-WAGES. DTSBR604 01534 MOVE WS-QTRS-TAXABLE TO W-TOTAL-TAXABLE. DTSBR604 01535 * DTSBR604 01536 IF W-TOTAL-QTR1-X = SPACES OR LOW-VALUES DTSBR604 01537 MOVE +0 TO W-TOTAL-QTR1. DTSBR604 01538 IF W-TXBLE-QTR1-X = SPACES OR LOW-VALUES DTSBR604 01539 MOVE +0 TO W-TXBLE-QTR1. DTSBR604 01540 IF W-TOTAL-QTR2-X = SPACES OR LOW-VALUES DTSBR604 01541 MOVE +0 TO W-TOTAL-QTR2. DTSBR604 01542 IF W-TXBLE-QTR2-X = SPACES OR LOW-VALUES DTSBR604 01543 MOVE +0 TO W-TXBLE-QTR2. DTSBR604 01544 IF W-TOTAL-QTR3-X = SPACES OR LOW-VALUES DTSBR604 01545 MOVE +0 TO W-TOTAL-QTR3. DTSBR604 01546 IF W-TXBLE-QTR3-X = SPACES OR LOW-VALUES DTSBR604 01547 MOVE +0 TO W-TXBLE-QTR3. DTSBR604 01548 IF W-TOTAL-QTR4-X = SPACES OR LOW-VALUES DTSBR604 01549 MOVE +0 TO W-TOTAL-QTR4. DTSBR604 01550 IF W-TXBLE-QTR4-X = SPACES OR LOW-VALUES DTSBR604 01551 MOVE +0 TO W-TXBLE-QTR4. DTSBR604 01552 DTSBR604 01553 IF WS-QTRS-EARNINGS = +0 AND DTSBR604 01554 WS-QTRS-TAXABLE = +0 DTSBR604 01555 GO TO P4200-EXIT. DTSBR604 01556 * DTSBR604 01557 WRITE REPORT-REC FROM WS-DETAIL-LINE AFTER 1. DTSBR604 01558 ADD +1 TO WS-LINE-CNT2. DTSBR604 01559 *RW1 DTSBR604 01560 MOVE LOW-VALUE TO WNAM-REC. DTSBR604 01561 MOVE HOLD-RPT-SSN TO WNAM-SSN. DTSBR604 01562 DTSBR604 01563 PERFORM S982A-START-BROWSE THRU S982A-EXIT. DTSBR604 01564 DTSBR604 01565 IF L982-OK-88 DTSBR604 01566 PERFORM P4210-PARSE-NAME THRU P4210-EXIT DTSBR604 01567 MOVE WRK-NAME TO W-NAME DTSBR604 01568 END-IF. DTSBR604 01569 *TEMP DTSBR604 01570 IF WRK-NAME = SPACES DTSBR604 01571 ADD WS-QTRS-EARNINGS TO WS-EARNINGS-TOT-SUM DTSBR604 01572 END-IF. DTSBR604 01573 *TEMP DTSBR604 01574 WRITE REPORT-REC FROM WS-DETAIL-LINE-2 AFTER 1. DTSBR604 01575 ADD +1 TO WS-LINE-CNT2. DTSBR604 01576 MOVE SPACES TO W-NAME. DTSBR604 01577 *RW2 DTSBR604 01578 INITIALIZE WS-DETAIL-LINE. DTSBR604 01579 PERFORM I2000-INIT-TABLE THRU I2000-EXIT VARYING TBL-IDX DTSBR604 01580 FROM 1 BY 1 UNTIL TBL-IDX > 4. DTSBR604 01581 SET TXBLE-QTR-YES TO TRUE. DTSBR604 01582 MOVE +0 TO WS-QTRS-EARNINGS WS-QTRS-TAXABLE DTSBR604 01583 WS-QTR1-TXBLE-AMT WS-QTR2-TXBLE-AMT DTSBR604 01584 WS-QTR3-TXBLE-AMT WS-QTR4-TXBLE-AMT DTSBR604 01585 WS-QTR1-EARNINGS WS-QTR2-EARNINGS DTSBR604 01586 WS-QTR3-EARNINGS WS-QTR4-EARNINGS. DTSBR604 01587 P4200-EXIT. DTSBR604 01588 EXIT. DTSBR604 01589 DTSBR604 01590 P4210-PARSE-NAME. DTSBR604 01591 MOVE +0 TO SUB1 SUB2 SUB3. DTSBR604 01592 MOVE SPACES TO WRK-NAME. DTSBR604 01593 SET WRK-NAME-COMPLETE-NO-88 TO TRUE. DTSBR604 01594 DTSBR604 01595 **FORMAT LAST NAME DTSBR604 01596 PERFORM DTSBR604 01597 VARYING SUB1 FROM +1 BY +1 UNTIL DTSBR604 01598 SUB1 > WRK-LNAME-LEN OR WRK-NAME-COMPLETE-YES-88 DTSBR604 01599 IF WNAM-TYPE-3CHAR-88 DTSBR604 01600 MOVE WNAM-LAST-NAME TO WRK-NAME DTSBR604 01601 SET WRK-NAME-COMPLETE-YES-88 TO TRUE DTSBR604 01602 ELSE DTSBR604 01603 IF WNAM-LAST-NAME (SUB1:1) = SPACE DTSBR604 01604 COMPUTE SUB3 = SUB1 + 1 DTSBR604 01605 IF WNAM-LAST-NAME (SUB3:1) = SPACE DTSBR604 01606 ADD +1 TO SUB2 DTSBR604 01607 MOVE ',' TO WRK-NAME (SUB2:1) DTSBR604 01608 ADD +1 TO SUB2 DTSBR604 01609 MOVE SPACE TO WRK-NAME (SUB2:1) DTSBR604 01610 SET WRK-NAME-COMPLETE-YES-88 TO TRUE DTSBR604 01611 ELSE DTSBR604 01612 ADD +1 TO SUB2 DTSBR604 01613 MOVE WNAM-LAST-NAME (SUB1:1) TO WRK-NAME (SUB2:1) DTSBR604 01614 END-IF DTSBR604 01615 ELSE DTSBR604 01616 ADD +1 TO SUB2 DTSBR604 01617 MOVE WNAM-LAST-NAME (SUB1:1) TO WRK-NAME (SUB2:1) DTSBR604 01618 END-IF DTSBR604 01619 END-IF DTSBR604 01620 END-PERFORM. DTSBR604 01621 DTSBR604 01622 IF WNAM-TYPE-3CHAR-88 DTSBR604 01623 GO TO P4210-EXIT DTSBR604 01624 END-IF. DTSBR604 01625 DTSBR604 01626 **CONTINUING FORMAT FIRST NAME DTSBR604 01627 DTSBR604 01628 MOVE +0 TO SUB3. DTSBR604 01629 SET WRK-NAME-COMPLETE-NO-88 TO TRUE. DTSBR604 01630 DTSBR604 01631 PERFORM DTSBR604 01632 VARYING SUB1 FROM +1 BY +1 UNTIL DTSBR604 01633 SUB1 > WRK-FNAME-LEN OR WRK-NAME-COMPLETE-YES-88 DTSBR604 01634 IF WNAM-FIRST-NAME (SUB1:1) = SPACE DTSBR604 01635 COMPUTE SUB3 = SUB1 + 1 DTSBR604 01636 IF WNAM-FIRST-NAME (SUB3:1) = SPACE DTSBR604 01637 SET WRK-NAME-COMPLETE-YES-88 TO TRUE DTSBR604 01638 ELSE DTSBR604 01639 ADD +1 TO SUB2 DTSBR604 01640 MOVE WNAM-FIRST-NAME (SUB1:1) TO WRK-NAME (SUB2:1) DTSBR604 01641 END-IF DTSBR604 01642 ELSE DTSBR604 01643 ADD +1 TO SUB2 DTSBR604 01644 MOVE WNAM-FIRST-NAME (SUB1:1) TO WRK-NAME (SUB2:1) DTSBR604 01645 END-IF DTSBR604 01646 END-PERFORM. DTSBR604 01647 DTSBR604 01648 IF WNAM-MID-INIT > SPACES DTSBR604 01649 ADD +1 TO SUB2 DTSBR604 01650 MOVE SPACE TO WRK-NAME (SUB2:1) DTSBR604 01651 ADD +1 TO SUB2 DTSBR604 01652 MOVE WNAM-MID-INIT TO WRK-NAME (SUB2:1) DTSBR604 01653 END-IF. DTSBR604 01654 DTSBR604 01655 P4210-EXIT. DTSBR604 01656 EXIT. DTSBR604 01657 DTSBR604 01658 P5000-PRINT-TOT-FOOTER. DTSBR604 01659 DTSBR604 01660 IF WS-LINE-CNT2 GREATER 51 DTSBR604 01661 OR LRCM-EOR-88 DTSBR604 01662 PERFORM P3050-HEADER THRU P3050-EXIT DTSBR604 01663 ADD +22 TO WS-LINE-CNT2 DTSBR604 01664 ELSE DTSBR604 01665 PERFORM P3000-HEADER THRU P3000-EXIT DTSBR604 01666 ADD +22 TO WS-LINE-CNT2 DTSBR604 01667 END-IF. DTSBR604 01668 DTSBR604 01669 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1. DTSBR604 01670 MOVE 'TOTAL WAGES:' TO W-TOTAL-LINE-DESC. DTSBR604 01671 MOVE TOTAL-QTR1-EARNINGS TO W-TOTAL-AMOUNT1. DTSBR604 01672 MOVE TOTAL-QTR2-EARNINGS TO W-TOTAL-AMOUNT2. DTSBR604 01673 MOVE TOTAL-QTR3-EARNINGS TO W-TOTAL-AMOUNT3. DTSBR604 01674 MOVE TOTAL-QTR4-EARNINGS TO W-TOTAL-AMOUNT4. DTSBR604 01675 DTSBR604 01676 COMPUTE SUM-TOTAL-EARNINGS = (TOTAL-QTR1-EARNINGS + DTSBR604 01677 TOTAL-QTR2-EARNINGS + TOTAL-QTR3-EARNINGS + DTSBR604 01678 TOTAL-QTR4-EARNINGS). DTSBR604 01679 MOVE SUM-TOTAL-EARNINGS TO W-GRD-TOTAL. DTSBR604 01680 DTSBR604 01681 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1 DTSBR604 01682 ADD +02 TO WS-LINE-CNT2. DTSBR604 01683 DTSBR604 01684 MOVE ' EXCESS:' TO W-TOTAL-LINE-DESC. DTSBR604 01685 MOVE TOTAL-QTR1-EXCESS-AMT TO W-TOTAL-AMOUNT1. DTSBR604 01686 MOVE TOTAL-QTR2-EXCESS-AMT TO W-TOTAL-AMOUNT2. DTSBR604 01687 MOVE TOTAL-QTR3-EXCESS-AMT TO W-TOTAL-AMOUNT3. DTSBR604 01688 MOVE TOTAL-QTR4-EXCESS-AMT TO W-TOTAL-AMOUNT4. DTSBR604 01689 DTSBR604 01690 COMPUTE SUM-TOTAL-EXCESS-AMT = (TOTAL-QTR1-EXCESS-AMT + DTSBR604 01691 TOTAL-QTR2-EXCESS-AMT + TOTAL-QTR3-EXCESS-AMT + DTSBR604 01692 TOTAL-QTR4-EXCESS-AMT). DTSBR604 01693 MOVE SUM-TOTAL-EXCESS-AMT TO W-GRD-TOTAL. DTSBR604 01694 DTSBR604 01695 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01696 ADD +01 TO WS-LINE-CNT2. DTSBR604 01697 DTSBR604 01698 MOVE ' TAXABLE:' TO W-TOTAL-LINE-DESC. DTSBR604 01699 MOVE TOTAL-QTR1-TAXABLE-AMT TO W-TOTAL-AMOUNT1. DTSBR604 01700 MOVE TOTAL-QTR2-TAXABLE-AMT TO W-TOTAL-AMOUNT2. DTSBR604 01701 MOVE TOTAL-QTR3-TAXABLE-AMT TO W-TOTAL-AMOUNT3. DTSBR604 01702 MOVE TOTAL-QTR4-TAXABLE-AMT TO W-TOTAL-AMOUNT4. DTSBR604 01703 DTSBR604 01704 COMPUTE SUM-TOTAL-TAXABLE-AMT = (TOTAL-QTR1-TAXABLE-AMT + DTSBR604 01705 TOTAL-QTR2-TAXABLE-AMT + TOTAL-QTR3-TAXABLE-AMT + DTSBR604 01706 TOTAL-QTR4-TAXABLE-AMT). DTSBR604 01707 MOVE SUM-TOTAL-TAXABLE-AMT TO W-GRD-TOTAL. DTSBR604 01708 DTSBR604 01709 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01710 ADD +01 TO WS-LINE-CNT2. DTSBR604 01711 DTSBR604 01712 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1. DTSBR604 01713 DTSBR604 01714 MOVE 'DUTAS WAGES:' TO W-TOTAL-LINE-DESC. DTSBR604 01715 MOVE DOES-QTR1-EARNINGS TO W-TOTAL-AMOUNT1. DTSBR604 01716 MOVE DOES-QTR2-EARNINGS TO W-TOTAL-AMOUNT2. DTSBR604 01717 MOVE DOES-QTR3-EARNINGS TO W-TOTAL-AMOUNT3. DTSBR604 01718 MOVE DOES-QTR4-EARNINGS TO W-TOTAL-AMOUNT4. DTSBR604 01719 DTSBR604 01720 COMPUTE SUM-DOES-EARNINGS = (DOES-QTR1-EARNINGS + DTSBR604 01721 DOES-QTR2-EARNINGS + DOES-QTR3-EARNINGS + DTSBR604 01722 DOES-QTR4-EARNINGS). DTSBR604 01723 MOVE SUM-DOES-EARNINGS TO W-GRD-TOTAL. DTSBR604 01724 DTSBR604 01725 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01726 ADD +02 TO WS-LINE-CNT2. DTSBR604 01727 DTSBR604 01728 MOVE ' EXCESS:' TO W-TOTAL-LINE-DESC. DTSBR604 01729 MOVE DOES-QTR1-EXCESS-AMT TO W-TOTAL-AMOUNT1. DTSBR604 01730 MOVE DOES-QTR2-EXCESS-AMT TO W-TOTAL-AMOUNT2. DTSBR604 01731 MOVE DOES-QTR3-EXCESS-AMT TO W-TOTAL-AMOUNT3. DTSBR604 01732 MOVE DOES-QTR4-EXCESS-AMT TO W-TOTAL-AMOUNT4. DTSBR604 01733 DTSBR604 01734 COMPUTE SUM-DOES-EXCESS-AMT = (DOES-QTR1-EXCESS-AMT + DTSBR604 01735 DOES-QTR2-EXCESS-AMT + DOES-QTR3-EXCESS-AMT + DTSBR604 01736 DOES-QTR4-EXCESS-AMT). DTSBR604 01737 MOVE SUM-DOES-EXCESS-AMT TO W-GRD-TOTAL. DTSBR604 01738 DTSBR604 01739 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01740 ADD +01 TO WS-LINE-CNT2. DTSBR604 01741 DTSBR604 01742 MOVE ' TAXABLE:' TO W-TOTAL-LINE-DESC. DTSBR604 01743 MOVE DOES-QTR1-TAXABLE-AMT TO W-TOTAL-AMOUNT1. DTSBR604 01744 MOVE DOES-QTR2-TAXABLE-AMT TO W-TOTAL-AMOUNT2. DTSBR604 01745 MOVE DOES-QTR3-TAXABLE-AMT TO W-TOTAL-AMOUNT3. DTSBR604 01746 MOVE DOES-QTR4-TAXABLE-AMT TO W-TOTAL-AMOUNT4. DTSBR604 01747 DTSBR604 01748 COMPUTE SUM-DOES-TAXABLE-AMT = (DOES-QTR1-TAXABLE-AMT + DTSBR604 01749 DOES-QTR2-TAXABLE-AMT + DOES-QTR3-TAXABLE-AMT + DTSBR604 01750 DOES-QTR4-TAXABLE-AMT). DTSBR604 01751 MOVE SUM-DOES-TAXABLE-AMT TO W-GRD-TOTAL. DTSBR604 01752 DTSBR604 01753 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01754 ADD +01 TO WS-LINE-CNT2. DTSBR604 01755 DTSBR604 01756 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1. DTSBR604 01757 WRITE REPORT-REC FROM WS-DISCRP-LINE AFTER 1. DTSBR604 01758 WRITE REPORT-REC FROM WS-SPACE-LINE AFTER 1. DTSBR604 01759 ADD +03 TO WS-LINE-CNT2. DTSBR604 01760 DTSBR604 01761 MOVE '* VARIANCES:' TO W-TOTAL-LINE-DESC. DTSBR604 01762 DTSBR604 01763 COMPUTE VARB-QTR1-EARNINGS = (DOES-QTR1-EARNINGS - DTSBR604 01764 TOTAL-QTR1-EARNINGS). DTSBR604 01765 COMPUTE VARB-QTR2-EARNINGS = (DOES-QTR2-EARNINGS - DTSBR604 01766 TOTAL-QTR2-EARNINGS). DTSBR604 01767 COMPUTE VARB-QTR3-EARNINGS = (DOES-QTR3-EARNINGS - DTSBR604 01768 TOTAL-QTR3-EARNINGS). DTSBR604 01769 COMPUTE VARB-QTR4-EARNINGS = (DOES-QTR4-EARNINGS - DTSBR604 01770 TOTAL-QTR4-EARNINGS). DTSBR604 01771 DTSBR604 01772 COMPUTE VARB-TOTAL-EARNINGS = (VARB-QTR1-EARNINGS + DTSBR604 01773 VARB-QTR2-EARNINGS + VARB-QTR3-EARNINGS + DTSBR604 01774 VARB-QTR4-EARNINGS). DTSBR604 01775 DTSBR604 01776 MOVE VARB-QTR1-EARNINGS TO W-TOTAL-AMOUNT1. DTSBR604 01777 MOVE VARB-QTR2-EARNINGS TO W-TOTAL-AMOUNT2. DTSBR604 01778 MOVE VARB-QTR3-EARNINGS TO W-TOTAL-AMOUNT3. DTSBR604 01779 MOVE VARB-QTR4-EARNINGS TO W-TOTAL-AMOUNT4. DTSBR604 01780 MOVE VARB-TOTAL-EARNINGS TO W-GRD-TOTAL. DTSBR604 01781 DTSBR604 01782 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01783 ADD +01 TO WS-LINE-CNT2. DTSBR604 01784 DTSBR604 01785 MOVE '* EXCESS:' TO W-TOTAL-LINE-DESC. DTSBR604 01786 DTSBR604 01787 COMPUTE VARB-QTR1-EXCESS-AMT = (DOES-QTR1-EXCESS-AMT - DTSBR604 01788 TOTAL-QTR1-EXCESS-AMT). DTSBR604 01789 COMPUTE VARB-QTR2-EXCESS-AMT = (DOES-QTR2-EXCESS-AMT - DTSBR604 01790 TOTAL-QTR2-EXCESS-AMT). DTSBR604 01791 COMPUTE VARB-QTR3-EXCESS-AMT = (DOES-QTR3-EXCESS-AMT - DTSBR604 01792 TOTAL-QTR3-EXCESS-AMT). DTSBR604 01793 COMPUTE VARB-QTR4-EXCESS-AMT = (DOES-QTR4-EXCESS-AMT - DTSBR604 01794 TOTAL-QTR4-EXCESS-AMT). DTSBR604 01795 DTSBR604 01796 COMPUTE VARB-TOTAL-EXCESS-AMT = (VARB-QTR1-EXCESS-AMT + DTSBR604 01797 VARB-QTR2-EXCESS-AMT + VARB-QTR3-EXCESS-AMT + DTSBR604 01798 VARB-QTR4-EXCESS-AMT). DTSBR604 01799 DTSBR604 01800 MOVE VARB-QTR1-EXCESS-AMT TO W-TOTAL-AMOUNT1. DTSBR604 01801 MOVE VARB-QTR2-EXCESS-AMT TO W-TOTAL-AMOUNT2. DTSBR604 01802 MOVE VARB-QTR3-EXCESS-AMT TO W-TOTAL-AMOUNT3. DTSBR604 01803 MOVE VARB-QTR4-EXCESS-AMT TO W-TOTAL-AMOUNT4. DTSBR604 01804 MOVE VARB-TOTAL-EXCESS-AMT TO W-GRD-TOTAL. DTSBR604 01805 DTSBR604 01806 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01807 ADD +01 TO WS-LINE-CNT2. DTSBR604 01808 DTSBR604 01809 MOVE '* TAXABLE:' TO W-TOTAL-LINE-DESC. DTSBR604 01810 DTSBR604 01811 COMPUTE VARB-QTR1-TAXABLE-AMT = (DOES-QTR1-TAXABLE-AMT - DTSBR604 01812 TOTAL-QTR1-TAXABLE-AMT). DTSBR604 01813 COMPUTE VARB-QTR2-TAXABLE-AMT = (DOES-QTR2-TAXABLE-AMT - DTSBR604 01814 TOTAL-QTR2-TAXABLE-AMT). DTSBR604 01815 COMPUTE VARB-QTR3-TAXABLE-AMT = (DOES-QTR3-TAXABLE-AMT - DTSBR604 01816 TOTAL-QTR3-TAXABLE-AMT). DTSBR604 01817 COMPUTE VARB-QTR4-TAXABLE-AMT = (DOES-QTR4-TAXABLE-AMT - DTSBR604 01818 TOTAL-QTR4-TAXABLE-AMT). DTSBR604 01819 DTSBR604 01820 COMPUTE VARB-TOTAL-TAXABLE-AMT = (VARB-QTR1-TAXABLE-AMT + DTSBR604 01821 VARB-QTR2-TAXABLE-AMT + VARB-QTR3-TAXABLE-AMT + DTSBR604 01822 VARB-QTR4-TAXABLE-AMT). DTSBR604 01823 DTSBR604 01824 MOVE VARB-QTR1-TAXABLE-AMT TO W-TOTAL-AMOUNT1. DTSBR604 01825 MOVE VARB-QTR2-TAXABLE-AMT TO W-TOTAL-AMOUNT2. DTSBR604 01826 MOVE VARB-QTR3-TAXABLE-AMT TO W-TOTAL-AMOUNT3. DTSBR604 01827 MOVE VARB-QTR4-TAXABLE-AMT TO W-TOTAL-AMOUNT4. DTSBR604 01828 MOVE VARB-TOTAL-TAXABLE-AMT TO W-GRD-TOTAL. DTSBR604 01829 DTSBR604 01830 WRITE REPORT-REC FROM WS-TOTAL-LINE AFTER 1. DTSBR604 01831 ADD +01 TO WS-LINE-CNT2. DTSBR604 01832 DTSBR604 01833 P5000-EXIT. DTSBR604 01834 EXIT. DTSBR604 01835 DTSBR604 01836 P5100-ACCUM-DOES-QTR-WAGES. DTSBR604 01837 DTSBR604 01838 IF R604-QTR-IDX = 1 DTSBR604 01839 MOVE R604-QTR-TOT-WAGE (1) TO DOES-QTR1-EARNINGS DTSBR604 01840 MOVE R604-QTR-EXCESS-WAGE (1) TO DOES-QTR1-EXCESS-AMT DTSBR604 01841 MOVE R604-QTR-TAX-WAGE (1) TO DOES-QTR1-TAXABLE-AMT DTSBR604 01842 END-IF. DTSBR604 01843 DTSBR604 01844 IF R604-QTR-IDX = 2 DTSBR604 01845 MOVE R604-QTR-TOT-WAGE (2) TO DOES-QTR2-EARNINGS DTSBR604 01846 MOVE R604-QTR-EXCESS-WAGE (2) TO DOES-QTR2-EXCESS-AMT DTSBR604 01847 MOVE R604-QTR-TAX-WAGE (2) TO DOES-QTR2-TAXABLE-AMT DTSBR604 01848 END-IF. DTSBR604 01849 DTSBR604 01850 IF R604-QTR-IDX = 3 DTSBR604 01851 MOVE R604-QTR-TOT-WAGE (3) TO DOES-QTR3-EARNINGS DTSBR604 01852 MOVE R604-QTR-EXCESS-WAGE (3) TO DOES-QTR3-EXCESS-AMT DTSBR604 01853 MOVE R604-QTR-TAX-WAGE (3) TO DOES-QTR3-TAXABLE-AMT DTSBR604 01854 END-IF. DTSBR604 01855 DTSBR604 01856 IF R604-QTR-IDX = 4 DTSBR604 01857 MOVE R604-QTR-TOT-WAGE (4) TO DOES-QTR4-EARNINGS DTSBR604 01858 MOVE R604-QTR-EXCESS-WAGE (4) TO DOES-QTR4-EXCESS-AMT DTSBR604 01859 MOVE R604-QTR-TAX-WAGE (4) TO DOES-QTR4-TAXABLE-AMT DTSBR604 01860 END-IF. DTSBR604 01861 DTSBR604 01862 P5100-EXIT. DTSBR604 01863 EXIT. DTSBR604 01864 DTSBR604 01865 S004-FROM-5. DTSBR604 01866 SET L004-FROM-5 TO TRUE. DTSBR604 01867 GO TO S004-YRQ. DTSBR604 01868 DTSBR604 01869 S004-FROM-ABS. DTSBR604 01870 SET L004-FROM-ABS TO TRUE. DTSBR604 01871 GO TO S004-YRQ. DTSBR604 01872 DTSBR604 01873 S004-YRQ. DTSBR604 01874 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR604 01875 S004-EXIT. DTSBR604 01876 EXIT. DTSBR604 01877 **** DTSBR604 01878 S062-FLD-REP-INFO. DTSBR604 01879 DTSBR604 01880 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR604 01881 DTSBR604 01882 S062-EXIT. DTSBR604 01883 EXIT. DTSBR604 01884 **** DTSBR604 01885 S981A-OPEN-READ. DTSBR604 01886 SET L981-OPEN-READ-88 TO TRUE. DTSBR604 01887 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBR604 01888 DTSBR604 01889 S981A-EXIT. DTSBR604 01890 EXIT. DTSBR604 01891 DTSBR604 01892 S981C-CLOSE. DTSBR604 01893 SET L981-CLOSE-88 TO TRUE. DTSBR604 01894 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBR604 01895 DTSBR604 01896 S981C-EXIT. DTSBR604 01897 EXIT. DTSBR604 01898 DTSBR604 01899 S981D-START-BROWSE. DTSBR604 01900 SET L981-START-BROWSE-88 TO TRUE. DTSBR604 01901 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBR604 01902 DTSBR604 01903 S981D-EXIT. DTSBR604 01904 EXIT. DTSBR604 01905 DTSBR604 01906 S981E-READ-NEXT. DTSBR604 01907 SET L981-READ-NEXT-88 TO TRUE. DTSBR604 01908 PERFORM S981Z-WAGE-I THRU S981Z-EXIT. DTSBR604 01909 DTSBR604 01910 S981E-EXIT. DTSBR604 01911 EXIT. DTSBR604 01912 DTSBR604 01913 S981Z-WAGE-I. DTSBR604 01914 CALL 'DTSBU981' USING L981-LINK-AREA DTSBR604 01915 WWGH-REC. DTSBR604 01916 S981Z-EXIT. DTSBR604 01917 EXIT. DTSBR604 01918 DTSBR604 01919 S982A-START-BROWSE. DTSBR604 01920 SET L982-START-BROWSE-88 TO TRUE. DTSBR604 01921 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBR604 01922 DTSBR604 01923 S982A-EXIT. DTSBR604 01924 EXIT. DTSBR604 01925 DTSBR604 01926 S982B-READ-NEXT. DTSBR604 01927 SET L982-READ-NEXT-88 TO TRUE. DTSBR604 01928 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBR604 01929 DTSBR604 01930 S982B-EXIT. DTSBR604 01931 EXIT. DTSBR604 01932 DTSBR604 01933 S982C-WRITE. DTSBR604 01934 SET L982-WRITE-88 TO TRUE. DTSBR604 01935 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBR604 01936 DTSBR604 01937 S982C-EXIT. DTSBR604 01938 EXIT. DTSBR604 01939 DTSBR604 01940 S982D-REWRITE. DTSBR604 01941 SET L982-REWRITE-88 TO TRUE. DTSBR604 01942 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBR604 01943 DTSBR604 01944 S982D-EXIT. DTSBR604 01945 EXIT. DTSBR604 01946 DTSBR604 01947 S982E-OPEN-READ. DTSBR604 01948 SET L982-OPEN-READ-88 TO TRUE. DTSBR604 01949 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBR604 01950 DTSBR604 01951 S982E-EXIT. DTSBR604 01952 EXIT. DTSBR604 01953 DTSBR604 01954 S982F-CLOSE. DTSBR604 01955 SET L982-CLOSE-88 TO TRUE. DTSBR604 01956 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBR604 01957 DTSBR604 01958 S982F-EXIT. DTSBR604 01959 EXIT. DTSBR604 01960 DTSBR604 01961 S982Z-WNAM-IO. DTSBR604 01962 CALL 'DTSBU982' USING L982-LINK-AREA DTSBR604 01963 WNAM-REC. DTSBR604 01964 S982Z-EXIT. DTSBR604 01965 EXIT. DTSBR604 01966 DTSBR604 01967 S999-ABEND. DTSBR604 01968 SKIP1 DTSBR604 01969 DISPLAY '*** DTSBR604 ABENDING. ' DTSBR604 01970 WRK-ABEND-MSG. DTSBR604 01971 DTSBR604 01972 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR604 01973 SKIP2 DTSBR604 01974 S999-EXIT. DTSBR604 01975 EXIT. DTSBR604 01976 DTSBR604