00001  IDENTIFICATION DIVISION.                                         08/07/12
00002  PROGRAM-ID.             DTSBD388.                                DTSBD388
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV001
00004  DATE-WRITTEN.           JUNE 2005.                               DTSBD388
00005  DATE-COMPILED.                                                   DTSBD388
00006                                                                   DTSBD388
00007 *****                                                             DTSBD388
00008 *    FUNCTION:  UPDATE MAINFRAME AUDIT DATA FROM WEB APPLICATION  DTSBD388
00009 *               DATA.                                             DTSBD388
00010 *                                                                 DTSBD388
00011 *                                                                 DTSBD388
00012 *    MODIFICATION LOG:                                            DTSBD388
00013 *                                                                 DTSBD388
00014 *    04/2600012  INITIAL DEVELOPMENT.                             DTSBD388
00015 *                WORK ORDER:                      PROGRAMMER: ZL1 DTSBD388
00016 *                                                                 DTSBD388
00017 *    MM/DD/CCYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD388
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD388
00019 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD388
00020 *                                                                 DTSBD388
00021 *                                                                 DTSBD388
00022 *  DESCRIPTION:                                                   DTSBD388
00023 *                                                                 DTSBD388
00024 *                                                                 DTSBD388
00025 *                                                                 DTSBD388
00026 *      MASTER FILE RECORDS READ:                                  DTSBD388
00027 *                                                                 DTSBD388
00028 *        MRTE                                                     DTSBD388
00029 *                                                                 DTSBD388
00030 *                                                                 DTSBD388
00031 *      MASTER FILE RECORDS UPDATED:                               DTSBD388
00032 *                                                                 DTSBD388
00033 *        MREL                                                     DTSBD388
00034 *                                                                 DTSBD388
00035 *                                                                 DTSBD388
00036 *      REPORT RECORDS WRITTEN:                                    DTSBD388
00037 *                                                                 DTSBD388
00038 *        NONE                                                     DTSBD388
00039 *                                                                 DTSBD388
00040 *                                                                 DTSBD388
00041 *      MODULES CALLED:                                            DTSBD388
00042 *                                                                 DTSBD388
00043 *        DTSBU331 FORMAT AND WRITE MLOG RECORD OCCURRENCE.        DTSBD388
00044 *        DTSBU910 MASTER FILE I/O DRIVER.                         DTSBD388
00045 *        DTSBU927 BTC FILE OUTPUT.                                DTSBD388
00046 *        DTSBU941 VARIABLE LENGTH RECORD INPUT 1.                 DTSBD388
00047 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD388
00048 *        DTSBU947 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 2.     DTSBD388
00049 *                                                                 DTSBD388
00050 *****                                                             DTSBD388
00051      SKIP3                                                        DTSBD388
00052  ENVIRONMENT DIVISION.                                            DTSBD388
00053      SKIP3                                                        DTSBD388
00054  DATA DIVISION.                                                   DTSBD388
00055      EJECT                                                        DTSBD388
00056  WORKING-STORAGE SECTION.                                         DTSBD388
000565 77  PAN-VALET PICTURE X(24) VALUE '001DTSBD388  08/07/12'.       DTSBD388
00057      SKIP3                                                        DTSBD388
00058  01  WRK-AREA.                                                    DTSBD388
00059      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +388.DTSBD388
00060      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD388'.DTSBD388
00061      05  WRK-ABEND-MSG               PIC  X(60).                  DTSBD388
00062      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBD388
00063      05  WRK-EMP-NO                  PIC S9(07)  COMP-3.          DTSBD388
00064      05  WRK-TRACE-IND               PIC  X(01)  VALUE SPACES.    DTSBD388
00065      05  MSUB                        PIC  9(01)  VALUE ZEROS.     DTSBD388
00066      05  MFAS-UPD-CNT                PIC  9(02)  VALUE ZEROS.     DTSBD388
00067      05  MAUR-UPD-CNT                PIC  9(02)  VALUE ZEROS.     DTSBD388
00068      05  MAUR-ADD-CNT                PIC  9(02)  VALUE ZEROS.     DTSBD388
00069      05  MAUY-UPD-CNT                PIC  9(02)  VALUE ZEROS.     DTSBD388
00070      05  MAUY-ADD-CNT                PIC  9(02)  VALUE ZEROS.     DTSBD388
00071      05  W-MONEY-AMT               PIC  9(09)V99.                 DTSBD388
00072      05  X-MONEY-AMT REDEFINES W-MONEY-AMT    PIC  X(12).         DTSBD388
00073      05  WRK-HRS                     PIC  9(4)V9.                 DTSBD388
00074      05  WRK-HRS-X REDEFINES WRK-HRS PIC  9(6).                   DTSBD388
00075      05  WRK-NUMBER                  PIC  9(05).                  DTSBD388
00076                                                                   DTSBD388
00077      05  DISP-DATE                   PIC  X(10)  VALUE SPACES.    DTSBD388
00078      05  DISP-TIME                   PIC  X(08)  VALUE SPACES.    DTSBD388
00079      05  DISP-ABSTIME                PIC  X(16)  VALUE SPACES.    DTSBD388
00080      05  MAUR-RECORD-UPDATED         PIC  X(01).                  DTSBD388
00081          88 MAUR-REC-FOUND-88         VALUE '0'.                  DTSBD388
00082          88 MAUR-REC-NOT-FOUND-88     VALUE '1'.                  DTSBD388
00083      05  MAUY-RECORD-UPDATED         PIC  X(01).                  DTSBD388
00084          88 MAUY-REC-FOUND-88         VALUE '0'.                  DTSBD388
00085          88 MAUY-REC-NOT-FOUND-88     VALUE '1'.                  DTSBD388
00086      EJECT                                                        DTSBD388
00087                                                                   DTSBD388
00088  01 L004-LINK-AREA.                                               DTSBD388
00089  ++INCLUDE DTSIL004                                               DTSBD388
00090      EJECT                                                        DTSBD388
00091  01 L005-LINK-AREA.                                               DTSBD388
00092  ++INCLUDE DTSIL005                                               DTSBD388
00093      EJECT                                                        DTSBD388
00094  01 L006-LINK-AREA.                                               DTSBD388
00095  ++INCLUDE DTSIL006                                               DTSBD388
00096      EJECT                                                        DTSBD388
00097  01 L056-LINK-AREA.                                               DTSBD388
00098  ++INCLUDE DTSIL056                                               DTSBD388
00099      EJECT                                                        DTSBD388
00100  01  L331-LINK-AREA.                                              DTSBD388
00101  ++INCLUDE DTSIL331                                               DTSBD388
00102      EJECT                                                        DTSBD388
00103  01  L910-LINK-AREA.                                              DTSBD388
00104  ++INCLUDE DTSIL910                                               DTSBD388
00105      EJECT                                                        DTSBD388
00106  01  MSKL-REC.                                                    DTSBD388
00107  ++INCLUDE DTSIMSKL                                               DTSBD388
00108      EJECT                                                        DTSBD388
00109  01  MFAS-REC.                                                    DTSBD388
00110  ++INCLUDE DTSIMFAS                                               DTSBD388
00111                                                                   DTSBD388
00112  01  MAUR-REC.                                                    DTSBD388
00113  ++INCLUDE DTSIMAUR                                               DTSBD388
00114                                                                   DTSBD388
00115  01  MAUY-REC.                                                    DTSBD388
00116  ++INCLUDE DTSIMAUY                                               DTSBD388
00117                                                                   DTSBD388
00118  01  R907-REC.                                                    DTSBD388
00119  ++INCLUDE DTSIR907                                               DTSBD388
00120      EJECT                                                        DTSBD388
00121                                                                   DTSBD388
00122  01  X163-REC.                                                    DTSBD388
00123  ++INCLUDE DTSIX163                                               DTSBD388
00124      EJECT                                                        DTSBD388
00125  01  X164-REC.                                                    DTSBD388
00126  ++INCLUDE DTSIX164                                               DTSBD388
00127      EJECT                                                        DTSBD388
00128  LINKAGE SECTION.                                                 DTSBD388
00129      SKIP3                                                        DTSBD388
00130  01  LBCM-LINK-AREA.                                              DTSBD388
00131  ++INCLUDE DTSILBCM                                               DTSBD388
00132      EJECT                                                        DTSBD388
00133  01  MPRF-REC.                                                    DTSBD388
00134  ++INCLUDE DTSIMPRF                                               DTSBD388
00135      EJECT                                                        DTSBD388
00136  01  T040-REC.                                                    DTSBD388
00137  ++INCLUDE DTSIT040                                               DTSBD388
00138      EJECT                                                        DTSBD388
00139  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD388
00140                           MPRF-REC                                DTSBD388
00141                           T040-REC.                               DTSBD388
00142                                                                   DTSBD388
00143      IF FIRST-TIME-IND = 'Y'                                      DTSBD388
00144          PERFORM I0000-INITIATE THRU I0000-EXIT                   DTSBD388
00145          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD388
00146                                                                   DTSBD388
00147      PERFORM P0000-PROCESS THRU P0000-EXIT                        DTSBD388
00148                                                                   DTSBD388
00149      GOBACK.                                                      DTSBD388
00150                                                                   DTSBD388
00151  I0000-INITIATE.                                                  DTSBD388
00152                                                                   DTSBD388
00153      MOVE +0                  TO WRK-EMP-NO.                      DTSBD388
00154      MOVE LENGTH OF R907-REC  TO R907-LENGTH.                     DTSBD388
00155                                                                   DTSBD388
00156  I0000-EXIT.                                                      DTSBD388
00157      EXIT.                                                        DTSBD388
00158                                                                   DTSBD388
00159  P0000-PROCESS.                                                   DTSBD388
00160        DISPLAY 'BD388 AUDIT PROCESS... ' T040-TRN-CD.             DTSBD388
00161                                                                   DTSBD388
00162      IF T040-MFAS-88                                              DTSBD388
00163         DISPLAY 'PROCESSING MFAS.....' T040-EMP-NO                DTSBD388
00164         PERFORM P1000-READ-MFAS         THRU P1000-EXIT           DTSBD388
00165      ELSE                                                         DTSBD388
00166      IF T040-MAUR-88                                              DTSBD388
00167         DISPLAY 'PROCESSING MAUR.....' T040-EMP-NO                DTSBD388
00168         PERFORM P2000-READ-MAUR         THRU P2000-EXIT           DTSBD388
00169      ELSE                                                         DTSBD388
00170      IF T040-MAUY-88                                              DTSBD388
00171         DISPLAY 'PROCESSING MAUY.....' T040-EMP-NO                DTSBD388
00172         PERFORM P3000-READ-MAUY         THRU P3000-EXIT           DTSBD388
00173      ELSE                                                         DTSBD388
00174         DISPLAY 'INVALID AUDIT TYPE RECORD '                      DTSBD388
00175      END-IF.                                                      DTSBD388
00176                                                                   DTSBD388
00177  P0000-EXIT.                                                      DTSBD388
00178      EXIT.                                                        DTSBD388
00179                                                                   DTSBD388
00180  P1000-READ-MFAS.                                                 DTSBD388
00181 *&                                                                DTSBD388
00182                                                                   DTSBD388
00183       MOVE LOW-VALUES     TO MFAS-KEY-AREA.                       DTSBD388
00184       MOVE T040-EMP-NO    TO MFAS-EMP-NO.                         DTSBD388
00185       MOVE T040-ASSIGN-NO TO MFAS-ASSIGN-NO.                      DTSBD388
00186       SET MFAS-FAS-88     TO TRUE.                                DTSBD388
00187       MOVE MFAS-KEY-AREA  TO MSKL-KEY-AREA.                       DTSBD388
00188                                                                   DTSBD388
00189       PERFORM S910-READ            THRU S910-EXIT                 DTSBD388
00190       IF L910-OK-88                                               DTSBD388
00191         MOVE MSKL-REC                TO MFAS-REC                  DTSBD388
00192       ELSE                                                        DTSBD388
00193        DISPLAY '  MFAS REC NOT FOUND.ABENDING' X163-EMP-NO        DTSBD388
00194        GO TO S999-ABEND.                                          DTSBD388
00195                                                                   DTSBD388
00196      PERFORM S330-INIT-MLOG         THRU S330-EXIT.               DTSBD388
00197                                                                   DTSBD388
00198      IF T040-COMPLETED-DATE > ZEROS                               DTSBD388
00199         MOVE 'MFAS-COMPLETED-DATE '    TO L331-FIELD-NAME         DTSBD388
00200         MOVE MFAS-COMPLETED-DATE       TO L331-FROM-VALUE         DTSBD388
00201         MOVE T040-COMPLETED-DATE       TO L331-TO-VALUE           DTSBD388
00202         PERFORM S331-WRITE-MLOG        THRU S331-EXIT             DTSBD388
00203         MOVE T040-COMPLETED-DATE       TO MFAS-COMPLETED-DATE.    DTSBD388
00204                                                                   DTSBD388
00205      IF T040-PROCESSED-DATE > ZEROS                               DTSBD388
00206         MOVE 'MFAS-PROCESSED-DATE '    TO L331-FIELD-NAME         DTSBD388
00207         MOVE MFAS-PROCESSED-DATE       TO L331-FROM-VALUE         DTSBD388
00208         MOVE T040-PROCESSED-DATE       TO L331-TO-VALUE           DTSBD388
00209         PERFORM S331-WRITE-MLOG        THRU S331-EXIT             DTSBD388
00210         MOVE T040-PROCESSED-DATE       TO MFAS-PROCESSED-DATE.    DTSBD388
00211                                                                   DTSBD388
00212      IF T040-STATUS-CD > SPACES                                   DTSBD388
00213         MOVE 'MFAS-STATUS-CD      '    TO L331-FIELD-NAME         DTSBD388
00214         MOVE MFAS-STATUS-CD            TO L331-FROM-VALUE         DTSBD388
00215         MOVE T040-STATUS-CD            TO L331-TO-VALUE           DTSBD388
00216         PERFORM S331-WRITE-MLOG        THRU S331-EXIT             DTSBD388
00217         MOVE T040-STATUS-CD            TO MFAS-STATUS-CD.         DTSBD388
00218                                                                   DTSBD388
00219      IF T040-FLD-REP-ID > ZEROS                                   DTSBD388
00220         MOVE 'MFAS-FLD-REP-ID     '    TO L331-FIELD-NAME         DTSBD388
00221         MOVE MFAS-FLD-REP-ID           TO L331-FROM-VALUE         DTSBD388
00222         MOVE T040-FLD-REP-ID           TO L331-TO-VALUE           DTSBD388
00223         PERFORM S331-WRITE-MLOG        THRU S331-EXIT             DTSBD388
00224         MOVE T040-FLD-REP-ID           TO MFAS-FLD-REP-ID.        DTSBD388
00225                                                                   DTSBD388
00226      IF T040-OP-ID > SPACES                                       DTSBD388
00227         MOVE 'MFAS-SOURCE-OP-ID   '    TO L331-FIELD-NAME         DTSBD388
00228         MOVE MFAS-SOURCE-OP-ID         TO L331-FROM-VALUE         DTSBD388
00229         MOVE T040-OP-ID                TO L331-TO-VALUE           DTSBD388
00230         PERFORM S331-WRITE-MLOG        THRU S331-EXIT             DTSBD388
00231         MOVE T040-OP-ID                TO MFAS-SOURCE-OP-ID.      DTSBD388
00232                                                                   DTSBD388
00233      IF T040-EMP-SIZE-IND > SPACES                                DTSBD388
00234         MOVE 'MFAS-EMP-SIZE-IND   '    TO L331-FIELD-NAME         DTSBD388
00235         MOVE MFAS-EMP-SIZE-IND         TO L331-FROM-VALUE         DTSBD388
00236         MOVE T040-EMP-SIZE-IND         TO L331-TO-VALUE           DTSBD388
00237         PERFORM S331-WRITE-MLOG        THRU S331-EXIT             DTSBD388
00238         MOVE T040-EMP-SIZE-IND         TO MFAS-EMP-SIZE-IND.      DTSBD388
00239                                                                   DTSBD388
00240      MOVE T040-SYS-DATE                TO MFAS-CHNG-DATE.         DTSBD388
00241      MOVE T040-OP-ID                   TO MFAS-SOURCE-OP-ID.      DTSBD388
00242                                                                   DTSBD388
00243      MOVE MFAS-REC                     TO MSKL-REC.               DTSBD388
00244      PERFORM S910-REWRITE              THRU S910-EXIT.            DTSBD388
00245      ADD 1 TO MFAS-UPD-CNT.                                       DTSBD388
00246      DISPLAY ' UPDATED  MFAS ...' MFAS-EMP-NO.                    DTSBD388
00247                                                                   DTSBD388
00248  P1000-EXIT.                                                      DTSBD388
00249      EXIT.                                                        DTSBD388
00250                                                                   DTSBD388
00251  P2000-READ-MAUR.                                                 DTSBD388
00252                                                                   DTSBD388
00253       MOVE LOW-VALUES     TO MAUR-KEY-AREA.                       DTSBD388
00254       MOVE T040-EMP-NO    TO MAUR-EMP-NO.                         DTSBD388
00255       MOVE T040-ASSIGN-NO TO MAUR-ASSIGN-NO.                      DTSBD388
00256       SET MAUR-AUR-88     TO TRUE.                                DTSBD388
00257       MOVE MAUR-KEY-AREA  TO MSKL-KEY-AREA.                       DTSBD388
00258                                                                   DTSBD388
00259       PERFORM S910-READ            THRU S910-EXIT                 DTSBD388
00260       IF L910-OK-88                                               DTSBD388
00261         SET MAUR-REC-FOUND-88        TO TRUE                      DTSBD388
00262         MOVE MSKL-REC                TO MAUR-REC                  DTSBD388
00263       ELSE                                                        DTSBD388
00264         SET MAUR-REC-NOT-FOUND-88    TO TRUE.                     DTSBD388
00265                                                                   DTSBD388
00266       DISPLAY ' MAUR-EMP-NO    ' MAUR-EMP-NO.                     DTSBD388
00267       DISPLAY ' MAUR-ASSIGN-NO ' MAUR-ASSIGN-NO.                  DTSBD388
00268                                                                   DTSBD388
00269       IF MAUR-REC-NOT-FOUND-88                                    DTSBD388
00270          PERFORM P2100-ADD-MAUR          THRU P2100-EXIT          DTSBD388
00271       ELSE                                                        DTSBD388
00272          PERFORM P2200-UPD-MAUR          THRU P2200-EXIT.         DTSBD388
00273  P2000-EXIT.                                                      DTSBD388
00274      EXIT.                                                        DTSBD388
00275  P2100-ADD-MAUR.                                                  DTSBD388
00276      MOVE LOW-VALUES              TO MAUR-REC.                    DTSBD388
00277      MOVE MFAS-EMP-NO             TO MAUR-EMP-NO.                 DTSBD388
00278      MOVE MFAS-ASSIGN-NO          TO MAUR-ASSIGN-NO.              DTSBD388
00279      SET MAUR-AUR-88              TO TRUE.                        DTSBD388
00280                                                                   DTSBD388
00281      MOVE +0                      TO MAUR-PURGE-DATE.             DTSBD388
00282      MOVE T040-SYS-DATE           TO MAUR-ESTB-DATE               DTSBD388
00283                                      MAUR-CHNG-DATE.              DTSBD388
00284      SET MAUR-NOT-CONVERTED-88    TO TRUE.                        DTSBD388
00285                                                                   DTSBD388
00286      PERFORM P2150-MOVE-MAUR-FIELDS      THRU P2150-EXIT.         DTSBD388
00287                                                                   DTSBD388
00288      MOVE MAUR-REC      TO MSKL-REC.                              DTSBD388
00289      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD388
00290      ADD 1 TO MAUR-ADD-CNT.                                       DTSBD388
00291      DISPLAY ' ADDING   MAUR ...' MAUR-EMP-NO.                    DTSBD388
00292  P2100-EXIT.                                                      DTSBD388
00293      EXIT.                                                        DTSBD388
00294                                                                   DTSBD388
00295  P2150-MOVE-MAUR-FIELDS.                                          DTSBD388
00296                                                                   DTSBD388
00297       IF MAUR-REC-NOT-FOUND-88                                    DTSBD388
00298          MOVE ZEROS TO      MAUR-FIRST-YRQ                        DTSBD388
00299                             MAUR-LAST-YRQ                         DTSBD388
00300                             MAUR-QTRS-AUDITED-CNT                 DTSBD388
00301                             MAUR-ERROR-CNT                        DTSBD388
00302                             MAUR-ERROR-TYPE(1)                    DTSBD388
00303                             MAUR-ERROR-TYPE(2)                    DTSBD388
00304                             MAUR-ERROR-TYPE(3)                    DTSBD388
00305                             MAUR-ERROR-TYPE(4)                    DTSBD388
00306                             MAUR-ERROR-TYPE(5)                    DTSBD388
00307                             MAUR-MONEY-DUE-AMT                    DTSBD388
00308                             MAUR-MONEY-COLLECT-AMT                DTSBD388
00309                             MAUR-AUDIT-HRS                        DTSBD388
00310                             MAUR-NEW-EMPLOYEE-CNT                 DTSBD388
00311                             MAUR-INDCON-TO-EMPL-CNT               DTSBD388
00312        MOVE SPACES TO       MAUR-EMP-SIZE-IND                     DTSBD388
00313                             MAUR-MONEY-REASON-CD                  DTSBD388
00314                             MAUR-PEN-WAIVE-IND                    DTSBD388
00315                             MAUR-INT-WAIVE-IND.                   DTSBD388
00316        IF T040-FIRST-YRQ > ZEROS                                  DTSBD388
00317           MOVE 'MAUR-FIRST-YRQ      '    TO L331-FIELD-NAME       DTSBD388
00318           MOVE MAUR-FIRST-YRQ            TO WRK-NUMBER            DTSBD388
00319           MOVE WRK-NUMBER                TO L331-FROM-VALUE       DTSBD388
00320           DISPLAY  'MAUR-FIRST-YRQ      ' WRK-NUMBER              DTSBD388
00321           MOVE T040-FIRST-YRQ            TO WRK-NUMBER            DTSBD388
00322           MOVE WRK-NUMBER                TO L331-TO-VALUE         DTSBD388
00323           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00324           MOVE T040-FIRST-YRQ TO MAUR-FIRST-YRQ.                  DTSBD388
00325                                                                   DTSBD388
00326        IF T040-LAST-YRQ > ZEROS                                   DTSBD388
00327           MOVE 'MAUR-LAST-YRQ      '    TO L331-FIELD-NAME        DTSBD388
00328           MOVE MAUR-LAST-YRQ            TO WRK-NUMBER             DTSBD388
00329           MOVE WRK-NUMBER               TO L331-FROM-VALUE        DTSBD388
00330           DISPLAY  'MAUR-LASTT-YRQ      ' WRK-NUMBER              DTSBD388
00331           MOVE T040-LAST-YRQ            TO WRK-NUMBER             DTSBD388
00332           MOVE WRK-NUMBER               TO L331-TO-VALUE          DTSBD388
00333           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00334           MOVE T040-LAST-YRQ TO MAUR-LAST-YRQ.                    DTSBD388
00335                                                                   DTSBD388
00336        IF T040-QTRS-AUDITED-CNT > ZEROS                           DTSBD388
00337           DISPLAY  'MAUR-QTRS-AUDIT-CNT'                          DTSBD388
00338           MOVE 'MAUR-QTRS-AUDIT-CNT'    TO L331-FIELD-NAME        DTSBD388
00339           MOVE MAUR-QTRS-AUDITED-CNT    TO L331-FROM-VALUE        DTSBD388
00340           MOVE T040-QTRS-AUDITED-CNT    TO L331-TO-VALUE          DTSBD388
00341           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00342           MOVE T040-QTRS-AUDITED-CNT TO MAUR-QTRS-AUDITED-CNT.    DTSBD388
00343                                                                   DTSBD388
00344                                                                   DTSBD388
00345           DISPLAY 'MEMP '  MAUR-EMP-SIZE-IND                      DTSBD388
00346           DISPLAY 'TMEP '  T040-EMP-SIZE-IND                      DTSBD388
00347                                                                   DTSBD388
00348        IF T040-EMP-SIZE-IND > SPACES                              DTSBD388
00349           DISPLAY  'MAUR-EMP-SIZE-IND  '                          DTSBD388
00350           MOVE 'MAUR-EMP-SIZE-IND  '    TO L331-FIELD-NAME        DTSBD388
00351           MOVE MAUR-EMP-SIZE-IND        TO L331-FROM-VALUE        DTSBD388
00352           MOVE T040-EMP-SIZE-IND        TO L331-TO-VALUE          DTSBD388
00353           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00354           MOVE T040-EMP-SIZE-IND TO MAUR-EMP-SIZE-IND.            DTSBD388
00355                                                                   DTSBD388
00356        IF T040-ERR-TYPE(1) > ZEROS                                DTSBD388
00357           DISPLAY  'MAUR-ERROR-TYPE1   '                          DTSBD388
00358           MOVE 'MAUR-ERROR-TYPE1   '    TO L331-FIELD-NAME        DTSBD388
00359           MOVE MAUR-ERROR-TYPE(1)       TO L331-FROM-VALUE        DTSBD388
00360           MOVE T040-ERR-TYPE(1)         TO L331-TO-VALUE          DTSBD388
00361           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00362           MOVE T040-ERR-TYPE (1) TO MAUR-ERROR-TYPE (1).          DTSBD388
00363                                                                   DTSBD388
00364        IF T040-ERR-TYPE(2) > ZEROS                                DTSBD388
00365           DISPLAY  'MAUR-ERROR-TYPE2   '                          DTSBD388
00366           MOVE 'MAUR-ERROR-TYPE2   '    TO L331-FIELD-NAME        DTSBD388
00367           MOVE MAUR-ERROR-TYPE(2)       TO L331-FROM-VALUE        DTSBD388
00368           MOVE T040-ERR-TYPE(2)         TO L331-TO-VALUE          DTSBD388
00369           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00370           MOVE T040-ERR-TYPE (2) TO MAUR-ERROR-TYPE (2).          DTSBD388
00371                                                                   DTSBD388
00372        IF T040-ERR-TYPE(3) > ZEROS                                DTSBD388
00373           DISPLAY  'MAUR-ERROR-TYPE3   '                          DTSBD388
00374           MOVE 'MAUR-ERROR-TYPE3   '    TO L331-FIELD-NAME        DTSBD388
00375           MOVE MAUR-ERROR-TYPE(3)       TO L331-FROM-VALUE        DTSBD388
00376           MOVE T040-ERR-TYPE(3)         TO L331-TO-VALUE          DTSBD388
00377           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00378           MOVE T040-ERR-TYPE (3) TO MAUR-ERROR-TYPE (3).          DTSBD388
00379                                                                   DTSBD388
00380        IF T040-ERR-TYPE(4) > ZEROS                                DTSBD388
00381           DISPLAY  'MAUR-ERROR-TYPE4   '                          DTSBD388
00382           MOVE 'MAUR-ERROR-TYPE4   '    TO L331-FIELD-NAME        DTSBD388
00383           MOVE MAUR-ERROR-TYPE(4)       TO L331-FROM-VALUE        DTSBD388
00384           MOVE T040-ERR-TYPE(4)         TO L331-TO-VALUE          DTSBD388
00385           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00386           MOVE T040-ERR-TYPE (4) TO MAUR-ERROR-TYPE (4).          DTSBD388
00387                                                                   DTSBD388
00388        IF T040-ERR-TYPE(5) > ZEROS                                DTSBD388
00389           DISPLAY  'MAUR-ERROR-TYPE5   '                          DTSBD388
00390           MOVE 'MAUR-ERROR-TYPE5   '    TO L331-FIELD-NAME        DTSBD388
00391           MOVE MAUR-ERROR-TYPE(5)       TO L331-FROM-VALUE        DTSBD388
00392           MOVE T040-ERR-TYPE(5)         TO L331-TO-VALUE          DTSBD388
00393           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00394           MOVE T040-ERR-TYPE (5) TO MAUR-ERROR-TYPE (5).          DTSBD388
00395                                                                   DTSBD388
00396        IF T040-MONEY-DUE-AMT > ZEROS                              DTSBD388
00397           DISPLAY  'MAUR-MONEY-DUE-AMT '                          DTSBD388
00398           MOVE 'MAUR-MONEY-DUE-AMT '    TO L331-FIELD-NAME        DTSBD388
00399           MOVE MAUR-MONEY-DUE-AMT       TO W-MONEY-AMT            DTSBD388
00400           MOVE X-MONEY-AMT              TO L331-FROM-VALUE        DTSBD388
00401           MOVE T040-MONEY-DUE-AMT       TO W-MONEY-AMT            DTSBD388
00402           MOVE X-MONEY-AMT              TO L331-TO-VALUE          DTSBD388
00403           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00404           MOVE T040-MONEY-DUE-AMT TO MAUR-MONEY-DUE-AMT.          DTSBD388
00405                                                                   DTSBD388
00406        IF T040-MONEY-COLLECT-AMT > ZEROS                          DTSBD388
00407           DISPLAY 'MAUR-MONEY-COLL-AMT'                           DTSBD388
00408           MOVE 'MAUR-MONEY-COLL-AMT'    TO L331-FIELD-NAME        DTSBD388
00409           MOVE MAUR-MONEY-COLLECT-AMT   TO W-MONEY-AMT            DTSBD388
00410           MOVE X-MONEY-AMT              TO L331-FROM-VALUE        DTSBD388
00411           MOVE T040-MONEY-COLLECT-AMT   TO W-MONEY-AMT            DTSBD388
00412           MOVE X-MONEY-AMT              TO L331-TO-VALUE          DTSBD388
00413           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00414           MOVE T040-MONEY-COLLECT-AMT TO MAUR-MONEY-COLLECT-AMT.  DTSBD388
00415                                                                   DTSBD388
00416        IF T040-MONEY-REASON-CD > SPACES                           DTSBD388
00417           DISPLAY 'MAUR-MONEY-REASON-CD '                         DTSBD388
00418           MOVE 'MAUR-MONEY-REASON-CD '  TO L331-FIELD-NAME        DTSBD388
00419           MOVE MAUR-MONEY-REASON-CD     TO L331-FROM-VALUE        DTSBD388
00420           MOVE T040-MONEY-REASON-CD     TO L331-TO-VALUE          DTSBD388
00421           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00422           MOVE T040-MONEY-REASON-CD TO MAUR-MONEY-REASON-CD.      DTSBD388
00423                                                                   DTSBD388
00424        IF T040-PEN-WAIVE-IND > SPACES                             DTSBD388
00425           DISPLAY  'MAUR-PEN-WAIVE-IND   '                        DTSBD388
00426           MOVE 'MAUR-PEN-WAIVE-IND   '  TO L331-FIELD-NAME        DTSBD388
00427           MOVE MAUR-PEN-WAIVE-IND       TO L331-FROM-VALUE        DTSBD388
00428           MOVE T040-PEN-WAIVE-IND       TO L331-TO-VALUE          DTSBD388
00429           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00430           MOVE T040-PEN-WAIVE-IND TO MAUR-PEN-WAIVE-IND.          DTSBD388
00431                                                                   DTSBD388
00432        IF T040-INT-WAIVE-IND > SPACES                             DTSBD388
00433           DISPLAY  'MAUR-INT-WAIVE-IND   '                        DTSBD388
00434           MOVE 'MAUR-INT-WAIVE-IND   '  TO L331-FIELD-NAME        DTSBD388
00435           MOVE MAUR-INT-WAIVE-IND       TO L331-FROM-VALUE        DTSBD388
00436           MOVE T040-INT-WAIVE-IND       TO L331-TO-VALUE          DTSBD388
00437           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00438           MOVE T040-INT-WAIVE-IND TO MAUR-INT-WAIVE-IND.          DTSBD388
00439                                                                   DTSBD388
00440        IF T040-AUDIT-HRS > ZEROS                                  DTSBD388
00441           DISPLAY  'MAUR-AUDIT-HRS       '                        DTSBD388
00442           MOVE 'MAUR-AUDIT-HRS       '  TO L331-FIELD-NAME        DTSBD388
00443           MOVE MAUR-AUDIT-HRS           TO WRK-HRS                DTSBD388
00444           MOVE WRK-HRS-X                TO L331-FROM-VALUE        DTSBD388
00445           MOVE T040-AUDIT-HRS           TO WRK-HRS                DTSBD388
00446           MOVE WRK-HRS-X                TO L331-TO-VALUE          DTSBD388
00447           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00448           MOVE T040-AUDIT-HRS     TO MAUR-AUDIT-HRS.              DTSBD388
00449                                                                   DTSBD388
00450        IF T040-NEW-EMPLOYEE-CNT > ZEROS                           DTSBD388
00451           DISPLAY  'MAUR-NEW=EMPLEE-CNT  '                        DTSBD388
00452           MOVE 'MAUR-NEW=EMPLEE-CNT  '  TO L331-FIELD-NAME        DTSBD388
00453           MOVE MAUR-NEW-EMPLOYEE-CNT    TO WRK-NUMBER             DTSBD388
00454           MOVE WRK-NUMBER               TO L331-FROM-VALUE        DTSBD388
00455           MOVE T040-NEW-EMPLOYEE-CNT    TO WRK-NUMBER             DTSBD388
00456           MOVE WRK-NUMBER               TO L331-TO-VALUE          DTSBD388
00457           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00458           MOVE T040-NEW-EMPLOYEE-CNT  TO MAUR-NEW-EMPLOYEE-CNT.   DTSBD388
00459                                                                   DTSBD388
00460        IF T040-INDCON-TO-EMPL-CNT > ZEROS                         DTSBD388
00461           DISPLAY  'MAUR-INDCON-TO-EMPL-CNT'                      DTSBD388
00462           MOVE 'MAUR-INDCON-TO-EMPL-CNT' TO L331-FIELD-NAME       DTSBD388
00463           MOVE MAUR-INDCON-TO-EMPL-CNT  TO WRK-NUMBER             DTSBD388
00464           MOVE WRK-NUMBER               TO L331-FROM-VALUE        DTSBD388
00465           MOVE T040-INDCON-TO-EMPL-CNT  TO WRK-NUMBER             DTSBD388
00466           MOVE WRK-NUMBER               TO L331-TO-VALUE          DTSBD388
00467           PERFORM P2400-MAUR-MLOG THRU P2400-EXIT                 DTSBD388
00468         MOVE T040-INDCON-TO-EMPL-CNT  TO MAUR-INDCON-TO-EMPL-CNT. DTSBD388
00469                                                                   DTSBD388
00470  P2150-EXIT.                                                      DTSBD388
00471      EXIT.                                                        DTSBD388
00472                                                                   DTSBD388
00473  P2200-UPD-MAUR.                                                  DTSBD388
00474      MOVE T040-SYS-DATE                  TO MAUR-CHNG-DATE.       DTSBD388
00475                                                                   DTSBD388
00476      PERFORM P2150-MOVE-MAUR-FIELDS      THRU P2150-EXIT.         DTSBD388
00477                                                                   DTSBD388
00478      MOVE MAUR-REC                       TO MSKL-REC.             DTSBD388
00479      PERFORM S910-REWRITE                THRU S910-EXIT.          DTSBD388
00480                                                                   DTSBD388
00481      ADD 1 TO MAUR-UPD-CNT.                                       DTSBD388
00482      DISPLAY ' UPDATE   MAUR ...' MAUR-EMP-NO.                    DTSBD388
00483  P2200-EXIT.                                                      DTSBD388
00484      EXIT.                                                        DTSBD388
00485                                                                   DTSBD388
00486  P2400-MAUR-MLOG.                                                 DTSBD388
00487                                                                   DTSBD388
00488 *     IF MAUR-REC-NOT-FOUND-88                                    DTSBD388
00489 *        GO TO P2400-EXIT.                                        DTSBD388
00490                                                                   DTSBD388
00491       PERFORM S330-INIT-MLOG        THRU S330-EXIT.               DTSBD388
00492       PERFORM S331-WRITE-MLOG        THRU S331-EXIT.              DTSBD388
00493                                                                   DTSBD388
00494  P2400-EXIT.                                                      DTSBD388
00495      EXIT.                                                        DTSBD388
00496  P3000-READ-MAUY.                                                 DTSBD388
00497       MOVE LOW-VALUES         TO MAUY-KEY-AREA.                   DTSBD388
00498       MOVE T040-EMP-NO        TO MAUY-EMP-NO.                     DTSBD388
00499       MOVE T040-ASSIGN-NO     TO MAUY-ASSIGN-NO.                  DTSBD388
00500       MOVE T040-CALENDAR-YEAR TO MAUY-CALENDAR-YEAR.              DTSBD388
00501       SET MAUY-AUY-88         TO TRUE.                            DTSBD388
00502       MOVE MAUY-KEY-AREA      TO MSKL-KEY-AREA.                   DTSBD388
00503                                                                   DTSBD388
00504       DISPLAY ' MAUY ......... ' MAUY-KEY-AREA.                   DTSBD388
00505                                                                   DTSBD388
00506       PERFORM S910-READ            THRU S910-EXIT                 DTSBD388
00507       IF L910-NO-REC-88                                           DTSBD388
00508         SET MAUY-REC-NOT-FOUND-88    TO TRUE                      DTSBD388
00509       ELSE                                                        DTSBD388
00510         SET MAUY-REC-FOUND-88        TO TRUE                      DTSBD388
00511         MOVE MSKL-REC                TO MAUY-REC.                 DTSBD388
00512                                                                   DTSBD388
00513       IF MAUY-REC-NOT-FOUND-88                                    DTSBD388
00514          PERFORM P3100-ADD-MAUY          THRU P3100-EXIT          DTSBD388
00515          DISPLAY ' MAUY NOT FOUND.. MUST ADD'                     DTSBD388
00516       ELSE                                                        DTSBD388
00517          DISPLAY ' MAUY FOUND MUST UPD '                          DTSBD388
00518          PERFORM P3200-UPD-MAUY          THRU P3200-EXIT.         DTSBD388
00519  P3000-EXIT.                                                      DTSBD388
00520      EXIT.                                                        DTSBD388
00521  P3100-ADD-MAUY.                                                  DTSBD388
00522      MOVE LOW-VALUES                 TO MAUY-REC.                 DTSBD388
00523                                                                   DTSBD388
00524      MOVE MFAS-EMP-NO                TO MAUY-EMP-NO.              DTSBD388
00525      MOVE MFAS-ASSIGN-NO             TO MAUY-ASSIGN-NO.           DTSBD388
00526      MOVE T040-CALENDAR-YEAR         TO MAUY-CALENDAR-YEAR.       DTSBD388
00527      SET MAUY-AUY-88                 TO TRUE.                     DTSBD388
00528                                                                   DTSBD388
00529      MOVE +0                         TO MAUY-PURGE-DATE.          DTSBD388
00530      SET MAUY-NOT-CONVERTED-88       TO TRUE.                     DTSBD388
00531      MOVE T040-SYS-DATE              TO MAUY-ESTB-DATE.           DTSBD388
00532      MOVE T040-SYS-DATE              TO MAUY-CHNG-DATE.           DTSBD388
00533                                                                   DTSBD388
00534      MOVE 0 TO MSUB.                                              DTSBD388
00535      PERFORM P3150-MOVE-MAUY-FIELDS THRU P3150-EXIT 4 TIMES.      DTSBD388
00536                                                                   DTSBD388
00537      MOVE MAUY-REC TO MSKL-REC.                                   DTSBD388
00538      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD388
00539                                                                   DTSBD388
00540      DISPLAY ' ADDING   MAUY ...' MAUY-EMP-NO.                    DTSBD388
00541      ADD 1 TO MAUY-ADD-CNT.                                       DTSBD388
00542  P3100-EXIT.                                                      DTSBD388
00543      EXIT.                                                        DTSBD388
00544  P3150-MOVE-MAUY-FIELDS.                                          DTSBD388
00545      ADD  1 TO MSUB.                                              DTSBD388
00546      DISPLAY ' MAUY SUB COUNT '  MSUB.                            DTSBD388
00547                                                                   DTSBD388
00548       IF MAUY-REC-NOT-FOUND-88                                    DTSBD388
00549         MOVE SPACES TO MAUY-QTR-AUDITED-IND(MSUB)                 DTSBD388
00550         MOVE ZEROS  TO MAUY-QTR-GROSS-PAYROLL(MSUB)               DTSBD388
00551                        MAUY-QTR-UNDER-TOT-WAGE(MSUB)              DTSBD388
00552                        MAUY-QTR-UNDER-TAX-WAGE(MSUB)              DTSBD388
00553                        MAUY-QTR-UNDER-CONTRIB(MSUB)               DTSBD388
00554                        MAUY-QTR-OVER-TOT-WAGE(MSUB)               DTSBD388
00555                        MAUY-QTR-OVER-TAX-WAGE(MSUB)               DTSBD388
00556                        MAUY-QTR-OVER-CONTRIB(MSUB).               DTSBD388
00557                                                                   DTSBD388
00558      IF T040-QTR-AUDITED-IND(MSUB) > SPACES                       DTSBD388
00559           DISPLAY  'MAUY-QTR-AUDITED   '                          DTSBD388
00560           MOVE 'MAUY-QTR-AUDITED   '      TO L331-FIELD-NAME      DTSBD388
00561           MOVE MAUY-QTR-AUDITED-IND(MSUB) TO L331-FROM-VALUE      DTSBD388
00562           MOVE T040-QTR-AUDITED-IND(MSUB) TO L331-TO-VALUE        DTSBD388
00563           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00564         MOVE T040-QTR-AUDITED-IND(MSUB) TO                        DTSBD388
00565              MAUY-QTR-AUDITED-IND(MSUB).                          DTSBD388
00566                                                                   DTSBD388
00567      IF T040-QTR-GROSS-PAYROLL(MSUB) > ZEROS                      DTSBD388
00568           DISPLAY  'MAUY-QTR-GROSS-PAY '                          DTSBD388
00569           DISPLAY 'MGPAY '   MAUY-QTR-GROSS-PAYROLL(MSUB)         DTSBD388
00570           DISPLAY 'TGPAY ' T040-QTR-GROSS-PAYROLL(MSUB)           DTSBD388
00571           MOVE 'MAUY-QTR-GROSS-P0Y '        TO L331-FIELD-NAME    DTSBD388
00572           DISPLAY  'MAUY-QTR-GROSS-PAYA '                         DTSBD388
00573           MOVE MAUY-QTR-GROSS-PAYROLL(MSUB) TO W-MONEY-AMT        DTSBD388
00574           DISPLAY  'MAUY-QTR-GROSS-PAYB '                         DTSBD388
00575           MOVE X-MONEY-AMT                  TO L331-FROM-VALUE    DTSBD388
00576           DISPLAY  'MAUY-QTR-GROSS-PAYC ' L331-FROM-VALUE         DTSBD388
00577           MOVE T040-QTR-GROSS-PAYROLL(MSUB) TO W-MONEY-AMT        DTSBD388
00578           DISPLAY  'MAUY-QTR-GROSS-PAYD '                         DTSBD388
00579           MOVE X-MONEY-AMT                  TO L331-TO-VALUE      DTSBD388
00580           DISPLAY  'MAUY-QTR-GROSS-PAYF ' L331-TO-VALUE           DTSBD388
00581           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00582           DISPLAY  'MAUY-QTR-GROSS-PAYG '                         DTSBD388
00583         MOVE T040-QTR-GROSS-PAYROLL(MSUB) TO                      DTSBD388
00584              MAUY-QTR-GROSS-PAYROLL(MSUB).                        DTSBD388
00585                                                                   DTSBD388
00586           DISPLAY 'MUTOT ' MAUY-QTR-UNDER-TOT-WAGE(MSUB).         DTSBD388
00587           DISPLAY 'TUTOT ' T040-QTR-UNDER-TOT-WAGE(MSUB).         DTSBD388
00588                                                                   DTSBD388
00589      IF T040-QTR-UNDER-TOT-WAGE(MSUB) > ZEROS                     DTSBD388
00590           DISPLAY  'MAUY-QTR-UNDER-TOT-WAGE'                      DTSBD388
00591           MOVE 'MAUY-QTR-UNDER-TOT-WAGE'     TO L331-FIELD-NAME   DTSBD388
00592           MOVE MAUY-QTR-UNDER-TOT-WAGE(MSUB) TO W-MONEY-AMT       DTSBD388
00593           MOVE X-MONEY-AMT                   TO L331-FROM-VALUE   DTSBD388
00594           MOVE T040-QTR-UNDER-TOT-WAGE(MSUB) TO W-MONEY-AMT       DTSBD388
00595           MOVE X-MONEY-AMT                   TO L331-TO-VALUE     DTSBD388
00596           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00597         MOVE T040-QTR-UNDER-TOT-WAGE(MSUB) TO                     DTSBD388
00598              MAUY-QTR-UNDER-TOT-WAGE(MSUB).                       DTSBD388
00599                                                                   DTSBD388
00600      IF T040-QTR-UNDER-TAX-WAGE(MSUB) > ZEROS                     DTSBD388
00601           DISPLAY  'MAUY-QTR-UNDER-TAX-WAGE'                      DTSBD388
00602           MOVE 'MAUY-QTR-UNDER-TAX-WAGE'     TO L331-FIELD-NAME   DTSBD388
00603           MOVE MAUY-QTR-UNDER-TAX-WAGE(MSUB) TO W-MONEY-AMT       DTSBD388
00604           MOVE X-MONEY-AMT                   TO L331-FROM-VALUE   DTSBD388
00605           MOVE T040-QTR-UNDER-TAX-WAGE(MSUB) TO W-MONEY-AMT       DTSBD388
00606           MOVE X-MONEY-AMT                   TO L331-TO-VALUE     DTSBD388
00607           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00608         MOVE T040-QTR-UNDER-TAX-WAGE(MSUB) TO                     DTSBD388
00609              MAUY-QTR-UNDER-TAX-WAGE(MSUB).                       DTSBD388
00610                                                                   DTSBD388
00611      IF T040-QTR-UNDER-CONTRIB(MSUB) > ZEROS                      DTSBD388
00612           DISPLAY  'MAUY-QTR-UNDER-CONTRIB'                       DTSBD388
00613           MOVE 'MAUY-QTR-UNDER-CONTRIB'     TO L331-FIELD-NAME    DTSBD388
00614           MOVE MAUY-QTR-UNDER-CONTRIB(MSUB) TO W-MONEY-AMT        DTSBD388
00615           MOVE X-MONEY-AMT                  TO L331-FROM-VALUE    DTSBD388
00616           MOVE T040-QTR-UNDER-CONTRIB(MSUB) TO W-MONEY-AMT        DTSBD388
00617           MOVE X-MONEY-AMT                  TO L331-TO-VALUE      DTSBD388
00618           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00619         MOVE T040-QTR-UNDER-CONTRIB(MSUB) TO                      DTSBD388
00620              MAUY-QTR-UNDER-CONTRIB(MSUB).                        DTSBD388
00621                                                                   DTSBD388
00622      IF T040-QTR-OVER-TOT-WAGE(MSUB) > ZEROS                      DTSBD388
00623           DISPLAY 'MAUY-QTR-OVER-TOT-WAGE'                        DTSBD388
00624           MOVE 'MAUY-QTR-OVER-TOT-WAGE'     TO L331-FIELD-NAME    DTSBD388
00625           MOVE MAUY-QTR-OVER-TOT-WAGE(MSUB) TO W-MONEY-AMT        DTSBD388
00626           MOVE X-MONEY-AMT                  TO L331-FROM-VALUE    DTSBD388
00627           MOVE T040-QTR-OVER-TOT-WAGE(MSUB) TO W-MONEY-AMT        DTSBD388
00628           MOVE X-MONEY-AMT                  TO L331-TO-VALUE      DTSBD388
00629           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00630         MOVE T040-QTR-OVER-TOT-WAGE(MSUB) TO                      DTSBD388
00631              MAUY-QTR-OVER-TOT-WAGE(MSUB).                        DTSBD388
00632                                                                   DTSBD388
00633      IF T040-QTR-OVER-TAX-WAGE(MSUB) > ZEROS                      DTSBD388
00634           DISPLAY  'MAUY-QTR-OVER-TAX-WAGE'                       DTSBD388
00635           MOVE 'MAUY-QTR-OVER-TAX-WAGE'     TO L331-FIELD-NAME    DTSBD388
00636           MOVE MAUY-QTR-OVER-TAX-WAGE(MSUB) TO W-MONEY-AMT        DTSBD388
00637           MOVE X-MONEY-AMT                  TO L331-FROM-VALUE    DTSBD388
00638           MOVE T040-QTR-OVER-TAX-WAGE(MSUB) TO W-MONEY-AMT        DTSBD388
00639           MOVE X-MONEY-AMT                  TO L331-TO-VALUE      DTSBD388
00640           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00641         MOVE T040-QTR-OVER-TAX-WAGE(MSUB) TO                      DTSBD388
00642              MAUY-QTR-OVER-TAX-WAGE(MSUB).                        DTSBD388
00643                                                                   DTSBD388
00644      IF T040-QTR-OVER-CONTRIB(MSUB) > ZEROS                       DTSBD388
00645           DISPLAY  'MAUY-QTR-OVER-CONTRIB'                        DTSBD388
00646           MOVE 'MAUY-QTR-OVER-CONTRIB'     TO L331-FIELD-NAME     DTSBD388
00647           MOVE MAUY-QTR-OVER-CONTRIB(MSUB) TO W-MONEY-AMT         DTSBD388
00648           MOVE X-MONEY-AMT                 TO L331-FROM-VALUE     DTSBD388
00649           MOVE T040-QTR-OVER-CONTRIB(MSUB) TO W-MONEY-AMT         DTSBD388
00650           MOVE X-MONEY-AMT                 TO L331-TO-VALUE       DTSBD388
00651           PERFORM P3300-UPD-MLOG-MAUY            THRU P3300-EXIT  DTSBD388
00652         MOVE T040-QTR-OVER-CONTRIB(MSUB) TO                       DTSBD388
00653              MAUY-QTR-OVER-CONTRIB(MSUB).                         DTSBD388
00654                                                                   DTSBD388
00655  P3150-EXIT.                                                      DTSBD388
00656      EXIT.                                                        DTSBD388
00657                                                                   DTSBD388
00658  P3200-UPD-MAUY.                                                  DTSBD388
00659      MOVE T040-SYS-DATE              TO MAUY-CHNG-DATE.           DTSBD388
00660      MOVE 0 TO MSUB.                                              DTSBD388
00661      PERFORM P3150-MOVE-MAUY-FIELDS THRU P3150-EXIT 4 TIMES.      DTSBD388
00662                                                                   DTSBD388
00663      MOVE MAUY-REC TO MSKL-REC.                                   DTSBD388
00664      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD388
00665      ADD 1 TO MAUY-UPD-CNT.                                       DTSBD388
00666      DISPLAY ' UPDATE   MAUY ...' MAUY-EMP-NO.                    DTSBD388
00667  P3200-EXIT.                                                      DTSBD388
00668      EXIT.                                                        DTSBD388
00669  P3300-UPD-MLOG-MAUY.                                             DTSBD388
00670 *     IF MAUY-REC-NOT-FOUND-88                                    DTSBD388
00671 *        GO TO P3300-EXIT.                                        DTSBD388
00672                                                                   DTSBD388
00673       PERFORM S330-INIT-MLOG        THRU S330-EXIT.               DTSBD388
00674       PERFORM S331-WRITE-MLOG        THRU S331-EXIT.              DTSBD388
00675                                                                   DTSBD388
00676  P3300-EXIT.                                                      DTSBD388
00677      EXIT.                                                        DTSBD388
00678                                                                   DTSBD388
00679  S005-FROM-ABSTIME.                                               DTSBD388
00680      SET L005-FROM-ABSTIME       TO TRUE.                         DTSBD388
00681      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD388
00682                                                                   DTSBD388
00683  S005-EXIT.                                                       DTSBD388
00684      EXIT.                                                        DTSBD388
00685                                                                   DTSBD388
00686  S330-INIT-MLOG.                                                  DTSBD388
00687      MOVE T040-EMP-NO            TO L331-EMP-NO.                  DTSBD388
00688      MOVE LBCM-CURR-RUN-DATE     TO L331-CURR-RUN-DATE.           DTSBD388
00689      ADD  +1000                  TO LBCM-EMP-ABSTIME.             DTSBD388
00690      MOVE LBCM-EMP-ABSTIME       TO L331-UPDATE-ABSTIME.          DTSBD388
00691      MOVE 'BATCH'                TO L331-OP-ID.                   DTSBD388
00692      MOVE LBCM-ABSTIME           TO L005-ABSTIME.                 DTSBD388
00693      PERFORM S005-FROM-ABSTIME   THRU S005-EXIT.                  DTSBD388
00694      MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID.              DTSBD388
00695                                                                   DTSBD388
00696  S330-EXIT.                                                       DTSBD388
00697      EXIT.                                                        DTSBD388
00698                                                                   DTSBD388
00699  S331-WRITE-MLOG.                                                 DTSBD388
00700      CALL 'DTSBU331' USING L331-LINK-AREA.                        DTSBD388
00701      SET LBCM-EMP-UPDATE-YES-88  TO TRUE.                         DTSBD388
00702                                                                   DTSBD388
00703  S331-EXIT.                                                       DTSBD388
00704      EXIT.                                                        DTSBD388
00705                                                                   DTSBD388
00706  S910-OPEN-READ.                                                  DTSBD388
00707      SET L910-OPEN-READ-88 TO TRUE.                               DTSBD388
00708      GO TO S910-MSTR-IO.                                          DTSBD388
00709                                                                   DTSBD388
00710  S910-OPEN-UPDATE.                                                DTSBD388
00711      SET L910-OPEN-UPDATE-88 TO TRUE.                             DTSBD388
00712      GO TO S910-MSTR-IO.                                          DTSBD388
00713                                                                   DTSBD388
00714  S910-OPEN-UPDATE-NO-AIX.                                         DTSBD388
00715      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBD388
00716      GO TO S910-MSTR-IO.                                          DTSBD388
00717                                                                   DTSBD388
00718  S910-READ.                                                       DTSBD388
00719      SET L910-READ-88 TO TRUE.                                    DTSBD388
00720      GO TO S910-MSTR-IO.                                          DTSBD388
00721                                                                   DTSBD388
00722  S910-START-BROWSE.                                               DTSBD388
00723      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD388
00724      GO TO S910-MSTR-IO.                                          DTSBD388
00725                                                                   DTSBD388
00726  S910-READ-NEXT.                                                  DTSBD388
00727      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD388
00728      GO TO S910-MSTR-IO.                                          DTSBD388
00729                                                                   DTSBD388
00730  S910-COUNT.                                                      DTSBD388
00731      SET L910-COUNT-88 TO TRUE.                                   DTSBD388
00732      GO TO S910-MSTR-IO.                                          DTSBD388
00733                                                                   DTSBD388
00734  S910-WRITE.                                                      DTSBD388
00735      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD388
00736      SET L910-WRITE-88 TO TRUE.                                   DTSBD388
00737      GO TO S910-MSTR-IO.                                          DTSBD388
00738                                                                   DTSBD388
00739  S910-REWRITE.                                                    DTSBD388
00740      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD388
00741      SET L910-REWRITE-88 TO TRUE.                                 DTSBD388
00742      GO TO S910-MSTR-IO.                                          DTSBD388
00743                                                                   DTSBD388
00744  S910-DELETE.                                                     DTSBD388
00745      SET L910-DELETE-88 TO TRUE.                                  DTSBD388
00746      GO TO S910-MSTR-IO.                                          DTSBD388
00747                                                                   DTSBD388
00748  S910-CLOSE.                                                      DTSBD388
00749      SET L910-CLOSE-88     TO TRUE.                               DTSBD388
00750      GO TO S910-MSTR-IO.                                          DTSBD388
00751                                                                   DTSBD388
00752  S910-MSTR-IO.                                                    DTSBD388
00753      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD388
00754                            MSKL-REC.                              DTSBD388
00755  S910-EXIT.                                                       DTSBD388
00756      EXIT.                                                        DTSBD388
00757                                                                   DTSBD388
00758  S947-WRITE-R907.                                                 DTSBD388
00759      CALL 'DTSBU947' USING R907-REC.                              DTSBD388
00760                                                                   DTSBD388
00761  S947-EXIT.                                                       DTSBD388
00762      EXIT.                                                        DTSBD388
00763                                                                   DTSBD388
00764  S999-ABEND.                                                      DTSBD388
00765      DISPLAY '*** DTSBD388 ABENDING : '                           DTSBD388
00766              WRK-ABEND-MSG.                                       DTSBD388
00767                                                                   DTSBD388
00768      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD388
00769  S999-EXIT.                                                       DTSBD388
00770      EXIT.                                                        DTSBD388
00771                                                                   DTSBD388
