00001  IDENTIFICATION DIVISION.                                         02/24/09
00002  PROGRAM-ID.             DESBD310.                                DESBD310
00003  AUTHOR.                 TRW                                         LV017
00004  DATE-WRITTEN.           MARCH 2002.                              DESBD310
00005  DATE-COMPILED.                                                   DESBD310
00006                                                                   DESBD310
00007 *****                                                             DESBD310
00008 *                                                                 DESBD310
00009 *    FUNCTION:  MATCH WAGE RECORDS AGAINST THE EMPLOYER MASTER    DESBD310
00010 *               FILE.  INCLUDE ONLY IF EMPLOYER IS SUBJECT.       DESBD310
00011 *                                                                 DESBD310
00012 *    MODIFICATION HISTORY:                                        DESBD310
00013 *                                                                 DESBD310
00014 *    03/11/2002  INITIAL DEVELOPMENT AND CLONE FROM DTSBZ211      DESBD310
00015 *                REFERENCE:                     PROGRAMMER: RW1   DESBD310
00016 *                                                                 DESBD310
00017 *    05/26/2004  MODIFIED TO CORRECT HANDLING OF DUPLICATE WAGE   DESBD310
00018 *                RECORDS IN BENEFITS WAGE FILE AND SUCCESSORS.    DESBD310
00019 *                REFERENCE:                     PROGRAMMER: GD    DESBD310
00020 *                                                                 DESBD310
00021 *    07/22/2004  REMOVED CODE TO MERGE DUPLICATES, SINCE THIS     DESBD310
00022 *                FUNCTION IS HANDLED IN DESBD315. THE ORIGINAL    DESBD310
00023 *                CODE CAUSED SOME QUARTERS TO BE LOST.            DESBD310
00024 *                REFERENCE:                     PROGRAMMER: GD    DESBD310
00025 *                                                                 DESBD310
00026 *    02/08/2006  MODIFIED TO WRITE WESQ RECORDS FOR               DESBD310
00027 *                SELF-INSURED EMPLOYERS.  THIS RECORD IS USED     DESBD310
00028 *                IN CALCULATING ADMINISTRATIVE TAX.               DESBD310
00029 *                REFERENCE: ADMIN ASSESSMENT    PROGRAMMER: GD    DESBD310
00030 *                                                                 DESBD310
00031 *    12/12/2008  REMOVED CHECK FOR SUCCESSOR. IT IS NOT           DESBD310
00032 *                NEEDED.                                          DESBD310
00033 *                REFERENCE:                     PROGRAMMER: GD    DESBD310
00034 *                                                                 DESBD310
00035 *    02/23/2009  MODIFIED SELECTION TO INCLUDE DC GOV WAGES       DESBD310
00036 *                REFERENCE:                     PROGRAMMER: GD    DESBD310
00037 *                                                                 DESBD310
00038 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DESBD310
00039 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DESBD310
00040 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DESBD310
00041 *                                                                 DESBD310
00042 *    DESCRIPTION:                                                 DESBD310
00043 *                                                                 DESBD310
00044 *                                                                 DESBD310
00045 *    RECORDS READ:                                                DESBD310
00046 *        WAGE RECORDS OUTPUT FROM DESBD300                        DESBD310
00047 *                                                                 DESBD310
00048 *    PRINTED OUTPUTS:                                             DESBD310
00049 *        NONE                                                     DESBD310
00050 *                                                                 DESBD310
00051 *    RECORDS WRITTEN:                                             DESBD310
00052 *        DTSIWWGE WAGE RECORDS WITH UPDATED EMPLOYER NUMBER       DESBD310
00053 *                                                                 DESBD310
00054 *    MODULES CALLED:                                              DESBD310
00055 *         DTSBU910  MASTER I/O                                    DESBD310
00056 *         DTSBU004  YEAR/QUARTER CONVERSION MODULE                DESBD310
00057 *                                                                 DESBD310
00058 *****                                                             DESBD310
00059                                                                   DESBD310
00060  ENVIRONMENT DIVISION.                                            DESBD310
00061      SKIP2                                                        DESBD310
00062  INPUT-OUTPUT SECTION.                                            DESBD310
00063      SKIP3                                                        DESBD310
00064  FILE-CONTROL.                                                    DESBD310
00065      SELECT WAGE-IN-FILE ASSIGN TO DTSFWGHI                       DESBD310
00066             FILE STATUS IS WAGE-IN-STATUS.                        DESBD310
00067                                                                   DESBD310
00068      SELECT WAGE-OUT-FILE ASSIGN TO DTSFWGHO                      DESBD310
00069             FILE STATUS IS WAGE-OUT-STATUS.                       DESBD310
00070                                                                   DESBD310
00071      SELECT WESQ-OUT-FILE ASSIGN TO DTSFWESQ                      DESBD310
00072             FILE STATUS IS WESQ-OUT-STATUS.                       DESBD310
00073                                                                   DESBD310
00074                                                                   DESBD310
00075  DATA DIVISION.                                                   DESBD310
00076      SKIP2                                                        DESBD310
00077  FILE SECTION.                                                    DESBD310
00078      SKIP2                                                        DESBD310
00079  FD  WAGE-IN-FILE                                                 DESBD310
00080      RECORDING MODE IS F                                          DESBD310
00081      LABEL RECORDS ARE STANDARD                                   DESBD310
00082      BLOCK CONTAINS 0 CHARACTERS.                                 DESBD310
00083      SKIP1                                                        DESBD310
00084  01  WGH-IN-REC.                                                  DESBD310
00085  ++INCLUDE DTSIWWGH                                               DESBD310
00086                                                                   DESBD310
00087  FD  WAGE-OUT-FILE                                                DESBD310
00088      RECORDING MODE IS F                                          DESBD310
00089      LABEL RECORDS ARE STANDARD                                   DESBD310
00090      BLOCK CONTAINS 0 CHARACTERS.                                 DESBD310
00091      SKIP1                                                        DESBD310
00092  01  WGH-OUT-REC           PIC X(18).                             DESBD310
00093                                                                   DESBD310
00094  FD  WESQ-OUT-FILE                                                DESBD310
00095      RECORDING MODE IS F                                          DESBD310
00096      LABEL RECORDS ARE STANDARD                                   DESBD310
00097      BLOCK CONTAINS 0 CHARACTERS.                                 DESBD310
00098      SKIP1                                                        DESBD310
00099  01  WESQ-REC.                                                    DESBD310
00100      10  WESQ-KEY-AREA.                                           DESBD310
00101          15  WESQ-EMP-NO             PIC S9(07)       COMP-3.     DESBD310
00102          15  WESQ-SSN                PIC S9(09)       COMP-3.     DESBD310
00103          15  WESQ-YRQ                PIC S9(05)       COMP-3.     DESBD310
00104                                                                   DESBD310
00105      10  WESQ-DATA-AREA.                                          DESBD310
00106          15  WESQ-EARNINGS           PIC S9(09)V9(02) COMP-3.     DESBD310
00107          15  WESQ-YTD-EARNINGS       PIC S9(11)V9(02) COMP-3.     DESBD310
00108                                                                   DESBD310
00109      EJECT                                                        DESBD310
00110  WORKING-STORAGE SECTION.                                         DESBD310
001105 77  PAN-VALET PICTURE X(24) VALUE '017DESBD310  02/24/09'.       DESBD310
00111      SKIP3                                                        DESBD310
00112  01  WRK-AREA.                                                    DESBD310
00113      05  WRK-ERROR-IND               PIC  X(01) VALUE 'N'.        DESBD310
00114          88 WRK-ERROR-YES-88           VALUE 'Y'.                 DESBD310
00115          88 WRK-ERROR-NO-88            VALUE 'N'.                 DESBD310
00116                                                                   DESBD310
00117      05  WRK-FIRST-TIME-IND          PIC  X(01) VALUE 'N'.        DESBD310
00118          88 WRK-FIRST-TIME-YES-88      VALUE 'Y'.                 DESBD310
00119          88 WRK-FIRST-TIME-NO-88       VALUE 'N'.                 DESBD310
00120                                                                   DESBD310
00121      05  WRK-MOD-NAME                PIC  X(08) VALUE 'DESBD310'. DESBD310
00122      05  WRK-TRACE-IND               PIC  X(01) VALUE 'N'.        DESBD310
00123                                                                   DESBD310
00124      05  WAGE-IN-STATUS          PIC  X(02) VALUE SPACES.         DESBD310
00125          88  WAGE-IN-OK-88           VALUE ZERO.                  DESBD310
00126          88  WAGE-IN-EOF-88          VALUE '10'.                  DESBD310
00127                                                                   DESBD310
00128      05  WAGE-OUT-STATUS          PIC  X(02) VALUE SPACES.        DESBD310
00129          88  WAGE-OUT-OK-88            VALUE ZERO.                DESBD310
00130                                                                   DESBD310
00131      05  WESQ-OUT-STATUS          PIC  X(02) VALUE SPACES.        DESBD310
00132          88  WESQ-OUT-OK-88            VALUE ZERO.                DESBD310
00133                                                                   DESBD310
00134      05  WRK-EMP-NO                  PIC S9(07)  COMP-3 VALUE +0. DESBD310
00135      05  WRK-SUCCESSOR               PIC S9(07)  COMP-3 VALUE +0. DESBD310
00136                                                                   DESBD310
00137      05  WRK-MPRF-READ-CNT           PIC S9(07)  COMP-3 VALUE +0. DESBD310
00138      05  WRK-EMP-NOT-FOUND-CNT       PIC S9(07)  COMP-3 VALUE +0. DESBD310
00139      05  WRK-WWGH-READ-CNT           PIC S9(07)  COMP-3 VALUE +0. DESBD310
00140      05  WRK-WWGH-WRITE-CNT          PIC S9(07)  COMP-3 VALUE +0. DESBD310
00141      05  WRK-WESQ-WRITE-CNT          PIC S9(07)  COMP-3 VALUE +0. DESBD310
00142      05  WRK-SUCC-CNT                PIC S9(07)  COMP-3 VALUE +0. DESBD310
00143      05  WRK-EMP-WAGE            PIC S9(11)V99  COMP-3 VALUE +0.  DESBD310
00144      05  AMT-DISP1               PIC ----------9.99.              DESBD310
00145                                                                   DESBD310
00146  01  MSG-TABLE.                                                   DESBD310
00147      05  MSG1-EMP-TYPE.                                           DESBD310
00148          10  MSG1-ID.                                             DESBD310
00149              15  MSG1-ID1      PIC X(08) VALUE 'DESBD310'.        DESBD310
00150              15  MSG1-ID2      PIC X(03) VALUE '310'.             DESBD310
00151          10  MSG1-SHORT-TEXT   PIC X(20)                          DESBD310
00152                    VALUE 'EMP-NO NOT IN MPRF :'.                  DESBD310
00153          10  MSG1-LONG-TEXT.                                      DESBD310
00154              15  FILLER        PIC X(28)                          DESBD310
00155                    VALUE 'INPUT EMP-NO NOT IN THE MPRF'.          DESBD310
00156              15  FILLER        PIC X(08) VALUE '  SSN = '.        DESBD310
00157              15  MSG1-SSN      PIC 9(09).                         DESBD310
00158              15  FILLER        PIC X(11) VALUE '  YR-QTR = '.     DESBD310
00159              15  MSG1-YR-QTR   PIC 9(05).                         DESBD310
00160              15  FILLER        PIC X(16) VALUE '  EARN-AMOUNT = '.DESBD310
00161              15  MSG1-EARN-AMT PIC Z(06)9.99-.                    DESBD310
00162      EJECT                                                        DESBD310
00163                                                                   DESBD310
00164  01  R907-REC.                                                    DESBD310
00165  ++INCLUDE DTSIR907                                               DESBD310
00166      EJECT                                                        DESBD310
00167  01  L910-LINK-AREA.                                              DESBD310
00168  ++INCLUDE DTSIL910                                               DESBD310
00169      EJECT                                                        DESBD310
00170  01  MSKL-REC.                                                    DESBD310
00171  ++INCLUDE DTSIMSKL                                               DESBD310
00172      EJECT                                                        DESBD310
00173  01  MRPT-REC.                                                    DESBD310
00174  ++INCLUDE DTSIMRPT                                               DESBD310
00175      EJECT                                                        DESBD310
00176  01  MPRF-REC.                                                    DESBD310
00177  ++INCLUDE DTSIMPRF                                               DESBD310
00178      EJECT                                                        DESBD310
00179  01  L921-LINK-AREA.                                              DESBD310
00180  ++INCLUDE DTSIL921                                               DESBD310
00181      EJECT                                                        DESBD310
00182  01  ISKL-REC.                                                    DESBD310
00183  ++INCLUDE DTSIISKL                                               DESBD310
00184      EJECT                                                        DESBD310
00185  01  L600-LINK-AREA.                                              DESBD310
00186  ++INCLUDE DTSIL600                                               DESBD310
00187                                                                   DESBD310
00188                                                                   DESBD310
00189  PROCEDURE DIVISION.                                              DESBD310
00190                                                                   DESBD310
00191  DESBD310-MAIN.                                                   DESBD310
00192      PERFORM I0000-INIT         THRU I0000-EXIT.                  DESBD310
00193      IF WRK-ERROR-YES-88                                          DESBD310
00194         GO TO DESBD310-MAIN-EXIT.                                 DESBD310
00195                                                                   DESBD310
00196      PERFORM P0000-PROCESS    THRU P0000-EXIT.                    DESBD310
00197                                                                   DESBD310
00198      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DESBD310
00199                                                                   DESBD310
00200  DESBD310-MAIN-EXIT.                                              DESBD310
00201      GOBACK.                                                      DESBD310
00202                                                                   DESBD310
00203  I0000-INIT.                                                      DESBD310
00204      OPEN INPUT WAGE-IN-FILE.                                     DESBD310
00205      IF NOT WAGE-IN-OK-88                                         DESBD310
00206         DISPLAY 'CANNOT OPEN INPUT FILE ' WAGE-IN-STATUS          DESBD310
00207         SET WRK-ERROR-YES-88  TO TRUE                             DESBD310
00208         GO TO I0000-EXIT.                                         DESBD310
00209                                                                   DESBD310
00210      OPEN OUTPUT WAGE-OUT-FILE.                                   DESBD310
00211      IF NOT WAGE-OUT-OK-88                                        DESBD310
00212         DISPLAY 'CANNOT OPEN OUTPUT FILE ' WAGE-OUT-STATUS        DESBD310
00213         SET WRK-ERROR-YES-88  TO TRUE                             DESBD310
00214         GO TO I0000-EXIT.                                         DESBD310
00215                                                                   DESBD310
00216      OPEN OUTPUT WESQ-OUT-FILE.                                   DESBD310
00217      IF NOT WESQ-OUT-OK-88                                        DESBD310
00218         DISPLAY 'CANNOT OPEN WESQ FILE ' WESQ-OUT-STATUS          DESBD310
00219         SET WRK-ERROR-YES-88  TO TRUE                             DESBD310
00220         GO TO I0000-EXIT.                                         DESBD310
00221                                                                   DESBD310
00222      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DESBD310
00223      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DESBD310
00224      PERFORM S910-OPEN-READ THRU S910-EXIT.                       DESBD310
00225      IF NOT L910-OK-88                                            DESBD310
00226         DISPLAY 'CANNOT OPEN TAX FILE '                           DESBD310
00227         SET WRK-ERROR-YES-88  TO TRUE                             DESBD310
00228         GO TO I0000-EXIT.                                         DESBD310
00229                                                                   DESBD310
00230      MOVE WRK-TRACE-IND TO L921-TRACE-IND.                        DESBD310
00231      MOVE WRK-MOD-NAME TO L921-MOD-NAME.                          DESBD310
00232      PERFORM S921-OPEN-READ THRU S921-EXIT.                       DESBD310
00233      IF NOT L921-OK-88                                            DESBD310
00234         DISPLAY 'CANNOT OPEN AIX FILE '                           DESBD310
00235         SET WRK-ERROR-YES-88  TO TRUE                             DESBD310
00236         GO TO I0000-EXIT.                                         DESBD310
00237                                                                   DESBD310
00238      MOVE MSG1-ID1 TO R907-MODULE-NAME.                           DESBD310
00239      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DESBD310
00240                                                                   DESBD310
00241      MOVE ZERO             TO WWGH-SSN                            DESBD310
00242                               WWGH-EMP-NO                         DESBD310
00243                               WWGH-YRQ                            DESBD310
00244                               WWGH-EARNINGS.                      DESBD310
00245                                                                   DESBD310
00246  I0000-EXIT.                                                      DESBD310
00247      EXIT.                                                        DESBD310
00248                                                                   DESBD310
00249  P0000-PROCESS.                                                   DESBD310
00250                                                                   DESBD310
00251      PERFORM P1200-READ-NEXT-WWGH  THRU P1200-EXIT.               DESBD310
00252      IF WAGE-IN-EOF-88                                            DESBD310
00253         DISPLAY 'INPUT FILE IS EMPTY'                             DESBD310
00254         GO TO P0000-EXIT                                          DESBD310
00255      END-IF.                                                      DESBD310
00256                                                                   DESBD310
00257      MOVE LOW-VALUE        TO MSKL-REC.                           DESBD310
00258      MOVE ZERO             TO MSKL-EMP-NO.                        DESBD310
00259      SET MSKL-PRF-88       TO TRUE.                               DESBD310
00260                                                                   DESBD310
00261      PERFORM S910-START-BROWSE     THRU S910-EXIT.                DESBD310
00262      IF L910-NO-REC-88                                            DESBD310
00263          DISPLAY 'FIRST TAX MASTER READ FAILED '                  DESBD310
00264          GO TO P0000-EXIT                                         DESBD310
00265      END-IF.                                                      DESBD310
00266                                                                   DESBD310
00267      MOVE MSKL-REC     TO MPRF-REC.                               DESBD310
00268                                                                   DESBD310
00269      PERFORM P1000-MATCH-FILES   THRU P1000-EXIT                  DESBD310
00270         UNTIL WAGE-IN-EOF-88.                                     DESBD310
00271                                                                   DESBD310
00272  P0000-EXIT.                                                      DESBD310
00273      EXIT.                                                        DESBD310
00274                                                                   DESBD310
00275 **************************************************************    DESBD310
00276 *  READ THE MPRF MASTER FILE WITH AN EMPLOYER NUMBER FROM         DESBD310
00277 *  THE INPUT FILE.                                                DESBD310
00278 **************************************************************    DESBD310
00279                                                                   DESBD310
00280  P1000-MATCH-FILES.                                               DESBD310
00281      IF MPRF-EMP-NO < WWGH-EMP-NO                                 DESBD310
00282         MOVE ZERO   TO WRK-EMP-WAGE                               DESBD310
00283         PERFORM P1100-READ-NEXT-MPRF     THRU P1100-EXIT          DESBD310
00284      ELSE                                                         DESBD310
00285         IF MPRF-EMP-NO = WWGH-EMP-NO                              DESBD310
00286 **         PERFORM P2000-CHK-TAX-FILE    THRU P2000-EXIT          DESBD310
00287            IF MPRF-CLASS-SUB-88                                   DESBD310
00288            OR MPRF-ELIGIBLE-DC-GOV-88                             DESBD310
00289               PERFORM P3000-WRITE-OUTPUT    THRU P3000-EXIT       DESBD310
00290            END-IF                                                 DESBD310
00291            PERFORM P1200-READ-NEXT-WWGH  THRU P1200-EXIT          DESBD310
00292         ELSE                                                      DESBD310
00293            MOVE ZERO   TO WRK-EMP-WAGE                            DESBD310
00294            ADD 1 TO  WRK-EMP-NOT-FOUND-CNT                        DESBD310
00295 **         DISPLAY 'EMP NOT ON TAX FILE '                         DESBD310
00296 **             WWGH-EMP-NO '  ' WWGH-SSN '  ' WWGH-YRQ            DESBD310
00297            PERFORM P1200-READ-NEXT-WWGH  THRU P1200-EXIT          DESBD310
00298         END-IF                                                    DESBD310
00299      END-IF.                                                      DESBD310
00300                                                                   DESBD310
00301  P1000-EXIT.                                                      DESBD310
00302      EXIT.                                                        DESBD310
00303                                                                   DESBD310
00304  P1100-READ-NEXT-MPRF.                                            DESBD310
00305      MOVE MPRF-REC             TO MSKL-REC.                       DESBD310
00306      PERFORM S910-READ-NEXT    THRU S910-EXIT.                    DESBD310
00307      IF L910-OK-88                                                DESBD310
00308         ADD +1                 TO WRK-MPRF-READ-CNT               DESBD310
00309         MOVE MSKL-REC          TO MPRF-REC                        DESBD310
00310      END-IF.                                                      DESBD310
00311                                                                   DESBD310
00312  P1100-EXIT.                                                      DESBD310
00313      EXIT.                                                        DESBD310
00314                                                                   DESBD310
00315  P1200-READ-NEXT-WWGH.                                            DESBD310
00316      READ WAGE-IN-FILE.                                           DESBD310
00317      IF WAGE-IN-OK-88                                             DESBD310
00318         ADD +1                 TO WRK-WWGH-READ-CNT               DESBD310
00319      END-IF.                                                      DESBD310
00320                                                                   DESBD310
00321  P1200-EXIT.                                                      DESBD310
00322      EXIT.                                                        DESBD310
00323                                                                   DESBD310
00324  P2000-CHK-TAX-FILE.                                              DESBD310
00325      IF MPRF-CLASS-SUB-88                                         DESBD310
00326      OR MPRF-ELIGIBLE-DC-GOV-88                                   DESBD310
00327         NEXT SENTENCE                                             DESBD310
00328      ELSE                                                         DESBD310
00329         GO TO P2000-EXIT                                          DESBD310
00330      END-IF.                                                      DESBD310
00331                                                                   DESBD310
00332 *&   IF MPRF-EMP-NO = WRK-EMP-NO                                  DESBD310
00333 *       IF WRK-SUCCESSOR NOT = ZERO                               DESBD310
00334 *          MOVE WRK-SUCCESSOR TO WWGH-EMP-NO                      DESBD310
00335 *          GO TO P2000-EXIT                                       DESBD310
00336 *       ELSE                                                      DESBD310
00337 *          GO TO P2000-EXIT                                       DESBD310
00338 *       END-IF                                                    DESBD310
00339 *    ELSE                                                         DESBD310
00340 *       PERFORM P2100-CHK-SUCCESSOR  THRU P2100-EXIT              DESBD310
00341 *&   END-IF.                                                      DESBD310
00342                                                                   DESBD310
00343  P2000-EXIT.                                                      DESBD310
00344      EXIT.                                                        DESBD310
00345                                                                   DESBD310
00346 *P2100-CHK-SUCCESSOR.                                             DESBD310
00347 *    MOVE MPRF-EMP-NO                TO WRK-EMP-NO.               DESBD310
00348 *    MOVE ZERO                       TO WRK-SUCCESSOR             DESBD310
00349 *                                       L600-ULTIMATE-SUCCESSOR.  DESBD310
00350 *    IF MPRF-STATUS-INACT-88                                      DESBD310
00351 *       NEXT SENTENCE                                             DESBD310
00352 *    ELSE                                                         DESBD310
00353 *       GO TO P2100-EXIT                                          DESBD310
00354 *    END-IF.                                                      DESBD310
00355 *                                                                 DESBD310
00356 *    MOVE WRK-EMP-NO                 TO L600-EMP-NO.              DESBD310
00357 *    MOVE 99999999                   TO L600-EXP-TRN-EFF-DATE.    DESBD310
00358 *    CALL 'DTSBU600' USING L600-LINK-AREA.                        DESBD310
00359 *    IF L600-SUCCESSOR-FOUND-88                                   DESBD310
00360 *       ADD +1 TO WRK-SUCC-CNT                                    DESBD310
00361 *       ADD WWGH-EARNINGS            TO WRK-EMP-WAGE              DESBD310
00362 *       MOVE L600-ULTIMATE-SUCCESSOR TO WRK-SUCCESSOR             DESBD310
00363 *           WWGH-EMP-NO                                           DESBD310
00364 *       DISPLAY 'SUCCESSOR FOUND ' L600-ULTIMATE-SUCCESSOR        DESBD310
00365 *          '  ' MPRF-EMP-NO                                       DESBD310
00366 *    END-IF.                                                      DESBD310
00367 *                                                                 DESBD310
00368 *P2100-EXIT.                                                      DESBD310
00369 *    EXIT.                                                        DESBD310
00370                                                                   DESBD310
00371  P3000-WRITE-OUTPUT.                                              DESBD310
00372         WRITE WGH-OUT-REC        FROM WGH-IN-REC.                 DESBD310
00373         ADD +1                   TO WRK-WWGH-WRITE-CNT.           DESBD310
00374                                                                   DESBD310
00375      IF MPRF-CLASS-SELF-INS-88                                    DESBD310
00376         MOVE WWGH-EMP-NO         TO WESQ-EMP-NO                   DESBD310
00377         MOVE WWGH-SSN            TO WESQ-SSN                      DESBD310
00378         MOVE WWGH-YRQ            TO WESQ-YRQ                      DESBD310
00379         MOVE WWGH-EARNINGS       TO WESQ-EARNINGS                 DESBD310
00380         MOVE ZERO                TO WESQ-YTD-EARNINGS             DESBD310
00381         WRITE WESQ-REC                                            DESBD310
00382         ADD +1                   TO WRK-WESQ-WRITE-CNT            DESBD310
00383      END-IF.                                                      DESBD310
00384                                                                   DESBD310
00385  P3000-EXIT.                                                      DESBD310
00386      EXIT.                                                        DESBD310
00387                                                                   DESBD310
00388                                                                   DESBD310
00389  S910-OPEN-READ.                                                  DESBD310
00390      SET L910-OPEN-READ-88 TO TRUE.                               DESBD310
00391      GO TO S910-MSTR-IO.                                          DESBD310
00392                                                                   DESBD310
00393  S910-OPEN-UPDATE-NO-AIX.                                         DESBD310
00394      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DESBD310
00395      GO TO S910-MSTR-IO.                                          DESBD310
00396                                                                   DESBD310
00397  S910-READ.                                                       DESBD310
00398      SET L910-READ-88 TO TRUE.                                    DESBD310
00399      GO TO S910-MSTR-IO.                                          DESBD310
00400                                                                   DESBD310
00401  S910-START-BROWSE.                                               DESBD310
00402      SET L910-START-BROWSE-88 TO TRUE.                            DESBD310
00403      GO TO S910-MSTR-IO.                                          DESBD310
00404                                                                   DESBD310
00405  S910-READ-NEXT.                                                  DESBD310
00406      SET L910-READ-NEXT-88 TO TRUE.                               DESBD310
00407      GO TO S910-MSTR-IO.                                          DESBD310
00408                                                                   DESBD310
00409  S910-COUNT.                                                      DESBD310
00410      SET L910-COUNT-88 TO TRUE.                                   DESBD310
00411      GO TO S910-MSTR-IO.                                          DESBD310
00412                                                                   DESBD310
00413  S910-REWRITE.                                                    DESBD310
00414      SET L910-REWRITE-88 TO TRUE.                                 DESBD310
00415      GO TO S910-MSTR-IO.                                          DESBD310
00416                                                                   DESBD310
00417  S910-DELETE.                                                     DESBD310
00418      SET L910-DELETE-88 TO TRUE.                                  DESBD310
00419      GO TO S910-MSTR-IO.                                          DESBD310
00420                                                                   DESBD310
00421  S910-CLOSE.                                                      DESBD310
00422      SET L910-CLOSE-88     TO TRUE.                               DESBD310
00423      GO TO S910-MSTR-IO.                                          DESBD310
00424                                                                   DESBD310
00425  S910-MSTR-IO.                                                    DESBD310
00426      CALL 'DTSBU910' USING L910-LINK-AREA                         DESBD310
00427                            MSKL-REC.                              DESBD310
00428  S910-EXIT.                                                       DESBD310
00429      EXIT.                                                        DESBD310
00430                                                                   DESBD310
00431  S921-OPEN-READ.                                                  DESBD310
00432      SET L921-OPEN-READ-88 TO TRUE.                               DESBD310
00433      GO TO S921-AIX-IO.                                           DESBD310
00434                                                                   DESBD310
00435  S921-CLOSE.                                                      DESBD310
00436      SET L921-CLOSE-88     TO TRUE.                               DESBD310
00437      GO TO S921-AIX-IO.                                           DESBD310
00438                                                                   DESBD310
00439  S921-AIX-IO.                                                     DESBD310
00440      CALL 'DTSBU921' USING L921-LINK-AREA                         DESBD310
00441                            ISKL-REC.                              DESBD310
00442  S921-EXIT.                                                       DESBD310
00443      EXIT.                                                        DESBD310
00444                                                                   DESBD310
00445 ** ADD ERROR MSG PROCESS PARA.                                    DESBD310
00446  S946-R907-WRITE.                                                 DESBD310
00447      CALL 'DTSBU946' USING R907-REC.                              DESBD310
00448  S946-EXIT. EXIT.                                                 DESBD310
00449                                                                   DESBD310
00450  T0000-TERMINATE.                                                 DESBD310
00451                                                                   DESBD310
00452      DISPLAY ' '.                                                 DESBD310
00453      DISPLAY ' '.                                                 DESBD310
00454                                                                   DESBD310
00455      DISPLAY '*** DESBD310 TERMINATION STATISTICS ***'.           DESBD310
00456                                                                   DESBD310
00457      DISPLAY '  '.                                                DESBD310
00458      DISPLAY 'MPRF MASTER FILE RECORDS READ                    : 'DESBD310
00459              WRK-MPRF-READ-CNT.                                   DESBD310
00460                                                                   DESBD310
00461      DISPLAY '  '.                                                DESBD310
00462      DISPLAY 'WAGE INPUT RECORDS READ                          : 'DESBD310
00463              WRK-WWGH-READ-CNT.                                   DESBD310
00464                                                                   DESBD310
00465      DISPLAY 'NO MASTER FILE RECORD FOUND COUNT                : 'DESBD310
00466              WRK-EMP-NOT-FOUND-CNT.                               DESBD310
00467                                                                   DESBD310
00468      DISPLAY '  '.                                                DESBD310
00469      DISPLAY 'OUTPUT RECORDS WRITTEN                           : 'DESBD310
00470              WRK-WWGH-WRITE-CNT.                                  DESBD310
00471                                                                   DESBD310
00472      DISPLAY '  '.                                                DESBD310
00473      DISPLAY 'SELF-INSURED RECORDS WRITTEN                     : 'DESBD310
00474              WRK-WESQ-WRITE-CNT.                                  DESBD310
00475                                                                   DESBD310
00476      DISPLAY '  '.                                                DESBD310
00477      DISPLAY 'SUCCESSOR EMPLOYERS FOUND                        : 'DESBD310
00478              WRK-SUCC-CNT.                                        DESBD310
00479                                                                   DESBD310
00480      CLOSE WAGE-IN-FILE                                           DESBD310
00481            WAGE-OUT-FILE                                          DESBD310
00482            WESQ-OUT-FILE.                                         DESBD310
00483      PERFORM S910-CLOSE THRU S910-EXIT.                           DESBD310
00484      PERFORM S921-CLOSE THRU S921-EXIT.                           DESBD310
00485                                                                   DESBD310
00486  T0000-EXIT.                                                      DESBD310
00487      EXIT.                                                        DESBD310
00488                                                                   DESBD310
