1978 lines
156 KiB
COBOL
1978 lines
156 KiB
COBOL
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
|