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
