00001  IDENTIFICATION DIVISION.                                         07/08/13
00002  PROGRAM-ID.             DTSBE126.                                DTSBE126
00003  AUTHOR.                 NGC.                                        LV001
00004  DATE-WRITTEN.           JUNE 2013.                               DTSBE126
00005  DATE-COMPILED.                                                   DTSBE126
00006      SKIP3                                                        DTSBE126
00007 *****                                                             DTSBE126
00008 *                                                                 DTSBE126
00009 *    FUNCTION:  APPROVED STATUS CHANGES NOT COMPLETED.            DTSBE126
00010 *                                                                 DTSBE126
00011 *                                                                 DTSBE126
00012 *    MODIFICATION LOG:                                            DTSBE126
00013 *                                                                 DTSBE126
00014 *    06/28/2013  INITIAL DEVELOPMENT.                             DTSBE126
00015 *                WORK ORDER:TICKET 1908           PROGRAMMER: GD  DTSBE126
00016 *                                                                 DTSBE126
00017 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE126
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE126
00019 *                WORK ORDER:                      PROGRAMMER: XXX DTSBE126
00020 *                                                                 DTSBE126
00021 *                                                                 DTSBE126
00022 *  DESCRIPTION:                                                   DTSBE126
00023 *                                                                 DTSBE126
00024 *                                                                 DTSBE126
00025 *    INITIATION:                                                  DTSBE126
00026 *                                                                 DTSBE126
00027 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE126
00028 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE126
00029 *                                                                 DTSBE126
00030 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE126
00031 *      DESCRIPTIONS AND LAYOUTS (122R1).                          DTSBE126
00032 *                                                                 DTSBE126
00033 *                                                                 DTSBE126
00034 *                                                                 DTSBE126
00035 *    PROCESSING:                                                  DTSBE126
00036 *                                                                 DTSBE126
00037 *                                                                 DTSBE126
00038 *                                                                 DTSBE126
00039 *    TERMINATION:                                                 DTSBE126
00040 *                                                                 DTSBE126
00041 *      NONE.                                                      DTSBE126
00042 *                                                                 DTSBE126
00043 *                                                                 DTSBE126
00044 *    RECORDS READ:                                                DTSBE126
00045 *                                                                 DTSBE126
00046 *      MASTER:                                                    DTSBE126
00047 *                                                                 DTSBE126
00048 *        MERD                                                     DTSBE126
00049 *                                                                 DTSBE126
00050 *                                                                 DTSBE126
00051 *      ALTERNATE INDEX:                                           DTSBE126
00052 *                                                                 DTSBE126
00053 *        NONE.                                                    DTSBE126
00054 *                                                                 DTSBE126
00055 *                                                                 DTSBE126
00056 *      REFERENCE:                                                 DTSBE126
00057 *                                                                 DTSBE126
00058 *        NONE.                                                    DTSBE126
00059 *                                                                 DTSBE126
00060 *                                                                 DTSBE126
00061 *    RECORDS UPDATED:                                             DTSBE126
00062 *                                                                 DTSBE126
00063 *        NONE.                                                    DTSBE126
00064 *                                                                 DTSBE126
00065 *                                                                 DTSBE126
00066 *    REPORT RECORDS WRITTEN:                                      DTSBE126
00067 *                                                                 DTSBE126
00068 *                                                                 DTSBE126
00069 *                                                                 DTSBE126
00070 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE126
00071 *                                                                 DTSBE126
00072 *        NONE.                                                    DTSBE126
00073 *                                                                 DTSBE126
00074 *                                                                 DTSBE126
00075 *    MODULES CALLED:                                              DTSBE126
00076 *                                                                 DTSBE126
00077 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE126
00078 *        DTSBU004  QUARTER CONVERSION/EDIT.                       DTSBE126
00079 *        DTSBU910  MASTER FILE I/O.                               DTSBE126
00080 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE126
00081 *                                                                 DTSBE126
00082 *                                                                 DTSBE126
00083 *    VERMONT REFERENCE:                                           DTSBE126
00084 *                                                                 DTSBE126
00085 *        TXBE302                                                  DTSBE126
00086 *                                                                 DTSBE126
00087 *****                                                             DTSBE126
00088      SKIP3                                                        DTSBE126
00089  ENVIRONMENT DIVISION.                                            DTSBE126
00090  INPUT-OUTPUT SECTION.                                            DTSBE126
00091                                                                   DTSBE126
00092  FILE-CONTROL.                                                    DTSBE126
00093      SELECT R126-FILE  ASSIGN TO DTSFR126                         DTSBE126
00094             FILE STATUS IS R126-STATUS.                           DTSBE126
00095                                                                   DTSBE126
00096  DATA DIVISION.                                                   DTSBE126
00097  FILE SECTION.                                                    DTSBE126
00098                                                                   DTSBE126
00099  FD  R126-FILE                                                    DTSBE126
00100      RECORDING MODE IS F.                                         DTSBE126
00101  01  R126-REC                PIC X(81).                           DTSBE126
00102                                                                   DTSBE126
00103  WORKING-STORAGE SECTION.                                         DTSBE126
001035 77  PAN-VALET PICTURE X(24) VALUE '001DTSBE126  07/08/13'.       DTSBE126
00104  77  PAN-VALET PICTURE X(24) VALUE '046DTSBE126  07/05/13'.       DTSBE126
00105  77  PAN-VALET PICTURE X(24) VALUE '014DTSBE122  08/05/04'.       DTSBE126
00106      SKIP3                                                        DTSBE126
00107  01  WRK-AREA.                                                    DTSBE126
00108      05  W-ABEND-CD                  PIC S9(04)  COMP  VALUE +126.DTSBE126
00109                                                                   DTSBE126
00110      05  W-MOD-NAME                  PIC  X(08)  VALUE 'DTSBE126'.DTSBE126
00111                                                                   DTSBE126
00112      05  ABEND-MSG                   PIC  X(60).                  DTSBE126
00113                                                                   DTSBE126
00114      05  R126-STATUS                 PIC  X(02).                  DTSBE126
00115          88  R126-STATUS-OK-88         VALUE '00'.                DTSBE126
00116                                                                   DTSBE126
00117      05  W-START-DATE                PIC S9(09)  COMP-3.          DTSBE126
00118                                                                   DTSBE126
00119      05  W-END-DATE                  PIC S9(09)  COMP-3.          DTSBE126
00120                                                                   DTSBE126
00121      05  W-APPROVAL-TYPE             PIC  X(30)  VALUE SPACES.    DTSBE126
00122      05  W-RESULT                    PIC  X(20)  VALUE SPACES.    DTSBE126
00123      05  W-EMP-NO-9                  PIC  9(06)  VALUE ZERO.      DTSBE126
00124      05  W-EMP-NO-X  REDEFINES W-EMP-NO-9                         DTSBE126
00125                                      PIC  X(06).                  DTSBE126
00126                                                                   DTSBE126
00127      05  W-ESTB-DATE                 PIC S9(09)  COMP-3.          DTSBE126
00128      05  W-CHNG-DATE                 PIC S9(09)  COMP-3.          DTSBE126
00129      05  W-INACT-DATE                PIC S9(09)  COMP-3.          DTSBE126
00130      05  W-INACT-REV-DATE            PIC S9(09)  COMP-3.          DTSBE126
00131                                                                   DTSBE126
00132      05  W-REL-FOUND-IND             PIC  X(01).                  DTSBE126
00133          88  W-REL-FOUND-YES-88        VALUE 'Y'.                 DTSBE126
00134          88  W-REL-FOUND-NO-88         VALUE 'N'.                 DTSBE126
00135                                                                   DTSBE126
00136      05  W-UPD-FOUND-IND             PIC  X(01).                  DTSBE126
00137          88  W-UPD-FOUND-YES-88        VALUE 'Y'.                 DTSBE126
00138          88  W-UPD-FOUND-NO-88         VALUE 'N'.                 DTSBE126
00139                                                                   DTSBE126
00140      05  W-APPROVAL-TABLE.                                        DTSBE126
00141          10  W-APPROVAL-MAX            PIC S9(04)  COMP           DTSBE126
00142                                          VALUE +25.               DTSBE126
00143          10  W-APPROVAL-LAST           PIC S9(04)  COMP           DTSBE126
00144                                          VALUE +0.                DTSBE126
00145          10  S1                        PIC S9(04)  COMP.          DTSBE126
00146          10  S2                        PIC S9(04)  COMP.          DTSBE126
00147          10  W-APPROVAL-ENTRY OCCURS 25 TIMES.                    DTSBE126
00148              15  W-APPRV-TYPE          PIC  X(03).                DTSBE126
00149              15  W-APPRV-DATE          PIC S9(09)  COMP-3.        DTSBE126
00150              15  W-CHNG-STATUS         PIC  X(01).                DTSBE126
00151                  88  W-CHNG-FOUND-YES-88 VALUE 'Y'.               DTSBE126
00152                  88  W-CHNG-FOUND-NO-88  VALUE 'N'.               DTSBE126
00153                                                                   DTSBE126
00154      05  W-APPROVAL-CNT              PIC S9(07)  COMP-3 VALUE +0. DTSBE126
00155      05  W-SOL-CNT                   PIC S9(07)  COMP-3 VALUE +0. DTSBE126
00156      05  W-PRED-SUCC-CNT             PIC S9(07)  COMP-3 VALUE +0. DTSBE126
00157      05  W-RATE-CNT                  PIC S9(07)  COMP-3 VALUE +0. DTSBE126
00158      05  W-NOT-DONE-CNT              PIC S9(07)  COMP-3 VALUE +0. DTSBE126
00159      05  W-COMPLETE-CNT              PIC S9(07)  COMP-3 VALUE +0. DTSBE126
00160      05  W-UNKNOWN-CNT               PIC S9(07)  COMP-3 VALUE +0. DTSBE126
00161                                                                   DTSBE126
00162  01  L001-LINK-AREA.                                              DTSBE126
00163  ++INCLUDE DTSIL001                                               DTSBE126
00164                                                                   DTSBE126
00165  01  L004-LINK-AREA.                                              DTSBE126
00166  ++INCLUDE DTSIL004                                               DTSBE126
00167                                                                   DTSBE126
00168  01  L910-LINK-AREA.                                              DTSBE126
00169  ++INCLUDE DTSIL910                                               DTSBE126
00170                                                                   DTSBE126
00171  01  MSKL-REC.                                                    DTSBE126
00172  ++INCLUDE DTSIMSKL                                               DTSBE126
00173                                                                   DTSBE126
00174  01  MEVL-REC.                                                    DTSBE126
00175  ++INCLUDE DTSIMEVL                                               DTSBE126
00176                                                                   DTSBE126
00177  01  MLOG-REC.                                                    DTSBE126
00178  ++INCLUDE DTSIMLOG                                               DTSBE126
00179                                                                   DTSBE126
00180  01  MSOL-REC.                                                    DTSBE126
00181  ++INCLUDE DTSIMSOL                                               DTSBE126
00182                                                                   DTSBE126
00183  01  MRTE-REC.                                                    DTSBE126
00184  ++INCLUDE DTSIMRTE                                               DTSBE126
00185                                                                   DTSBE126
00186  01  MREL-REC.                                                    DTSBE126
00187  ++INCLUDE DTSIMREL                                               DTSBE126
00188                                                                   DTSBE126
00189  01  L921-LINK-AREA.                                              DTSBE126
00190  ++INCLUDE DTSIL921                                               DTSBE126
00191                                                                   DTSBE126
00192  01  ISKL-REC.                                                    DTSBE126
00193  ++INCLUDE DTSIISKL                                               DTSBE126
00194                                                                   DTSBE126
00195  01  IPES-REC.                                                    DTSBE126
00196  ++INCLUDE DTSIIPES                                               DTSBE126
00197                                                                   DTSBE126
00198  LINKAGE SECTION.                                                 DTSBE126
00199      SKIP3                                                        DTSBE126
00200  01  LECM-LINK-AREA.                                              DTSBE126
00201  ++INCLUDE DTSILECM                                               DTSBE126
00202      SKIP3                                                        DTSBE126
00203          10  LECM-PARM-AREA REDEFINES LECM-EXTRACT-PARMS.         DTSBE126
00204              15  LECM-PARM-PERIOD-START-DATE PIC  X(06).          DTSBE126
00205              15  FILLER                      PIC  X(01).          DTSBE126
00206              15  LECM-PARM-PERIOD-END-DATE   PIC  X(06).          DTSBE126
00207              15  FILLER                      PIC  X(55).          DTSBE126
00208      EJECT                                                        DTSBE126
00209  01  MPRF-LINK-REC.                                               DTSBE126
00210  ++INCLUDE DTSIMPRF                                               DTSBE126
00211      EJECT                                                        DTSBE126
00212  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE126
00213                           MPRF-LINK-REC.                          DTSBE126
00214      SKIP2                                                        DTSBE126
00215      IF LECM-PROCESS-88                                           DTSBE126
00216          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE126
00217      ELSE                                                         DTSBE126
00218      IF LECM-INITIALIZE-88                                        DTSBE126
00219          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE126
00220      ELSE                                                         DTSBE126
00221      IF LECM-TERMINATE-88                                         DTSBE126
00222          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE126
00223      ELSE                                                         DTSBE126
00224          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE126
00225            TO ABEND-MSG                                           DTSBE126
00226          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE126
00227      SKIP2                                                        DTSBE126
00228      GOBACK.                                                      DTSBE126
00229      EJECT                                                        DTSBE126
00230  I0000-INITIALIZE.                                                DTSBE126
00231      SKIP2                                                        DTSBE126
00232      MOVE LECM-TRACE-IND           TO  L910-TRACE-IND.            DTSBE126
00233      MOVE W-MOD-NAME               TO  L910-MOD-NAME.             DTSBE126
00234                                                                   DTSBE126
00235      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE126
00236                                                                   DTSBE126
00237      PERFORM I2000-OPEN-FILES      THRU I2000-EXIT.               DTSBE126
00238                                                                   DTSBE126
00239      SET LECM-MST-OPEN-READ-88     TO  TRUE.                      DTSBE126
00240      SET LECM-REF-OPEN-READ-88     TO  TRUE.                      DTSBE126
00241      SKIP2                                                        DTSBE126
00242  I0000-EXIT.                                                      DTSBE126
00243      EXIT.                                                        DTSBE126
00244      SKIP3                                                        DTSBE126
00245  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE126
00246      PERFORM I1100-PERIOD-START-DATE THRU I1100-EXIT.             DTSBE126
00247                                                                   DTSBE126
00248      PERFORM I1200-PERIOD-END-DATE THRU I1200-EXIT.               DTSBE126
00249                                                                   DTSBE126
00250  I1000-EXIT.                                                      DTSBE126
00251      EXIT.                                                        DTSBE126
00252      SKIP3                                                        DTSBE126
00253  I1100-PERIOD-START-DATE.                                         DTSBE126
00254      IF LECM-PARM-PERIOD-START-DATE = SPACES                      DTSBE126
00255         IF LECM-PERIOD-START-DATE > +0                            DTSBE126
00256            MOVE LECM-PERIOD-START-DATE   TO W-START-DATE          DTSBE126
00257         ELSE                                                      DTSBE126
00258            MOVE 'PERIOD-START-DATE MISSING'                       DTSBE126
00259                TO ABEND-MSG                                       DTSBE126
00260            PERFORM S999-ABEND THRU S999-EXIT                      DTSBE126
00261      ELSE                                                         DTSBE126
00262         MOVE LECM-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X     DTSBE126
00263         PERFORM S001-FROM-CAL-6 THRU S001-EXIT                    DTSBE126
00264         IF L001-VALID-DATE                                        DTSBE126
00265            MOVE L001-FED-8-DATE-9 TO W-START-DATE                 DTSBE126
00266         ELSE                                                      DTSBE126
00267            MOVE 'PERIOD-START-DATE NOT VALID'                     DTSBE126
00268                TO ABEND-MSG                                       DTSBE126
00269            PERFORM S999-ABEND THRU S999-EXIT                      DTSBE126
00270         END-IF                                                    DTSBE126
00271      END-IF.                                                      DTSBE126
00272                                                                   DTSBE126
00273      DISPLAY 'START DATE ' W-START-DATE.                          DTSBE126
00274  I1100-EXIT.                                                      DTSBE126
00275      EXIT.                                                        DTSBE126
00276      SKIP3                                                        DTSBE126
00277  I1200-PERIOD-END-DATE.                                           DTSBE126
00278      IF LECM-PARM-PERIOD-END-DATE = SPACES                        DTSBE126
00279         IF LECM-PERIOD-END-DATE > +0                              DTSBE126
00280            MOVE LECM-PERIOD-END-DATE   TO W-END-DATE              DTSBE126
00281         ELSE                                                      DTSBE126
00282            MOVE 'PERIOD-END-DATE MISSING'                         DTSBE126
00283                TO ABEND-MSG                                       DTSBE126
00284            PERFORM S999-ABEND THRU S999-EXIT                      DTSBE126
00285      ELSE                                                         DTSBE126
00286         MOVE LECM-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X       DTSBE126
00287         PERFORM S001-FROM-CAL-6 THRU S001-EXIT                    DTSBE126
00288         IF L001-VALID-DATE                                        DTSBE126
00289            MOVE L001-FED-8-DATE-9 TO W-END-DATE                   DTSBE126
00290         ELSE                                                      DTSBE126
00291            MOVE 'PERIOD-END-DATE NOT VALID'                       DTSBE126
00292                TO ABEND-MSG                                       DTSBE126
00293            PERFORM S999-ABEND THRU S999-EXIT                      DTSBE126
00294         END-IF                                                    DTSBE126
00295      END-IF.                                                      DTSBE126
00296                                                                   DTSBE126
00297      IF W-START-DATE > W-END-DATE                                 DTSBE126
00298         MOVE 'PERIOD START DATE IS GREATER THAN PERIOD END DATE'  DTSBE126
00299            TO ABEND-MSG                                           DTSBE126
00300         PERFORM S999-ABEND THRU S999-EXIT                         DTSBE126
00301      END-IF.                                                      DTSBE126
00302                                                                   DTSBE126
00303      DISPLAY 'END DATE   ' W-END-DATE.                            DTSBE126
00304  I1200-EXIT.                                                      DTSBE126
00305      EXIT.                                                        DTSBE126
00306                                                                   DTSBE126
00307  I2000-OPEN-FILES.                                                DTSBE126
00308      OPEN OUTPUT   R126-FILE.                                     DTSBE126
00309      IF NOT R126-STATUS-OK-88                                     DTSBE126
00310         DISPLAY 'CANNOT OPEN R126 FILE ' R126-STATUS              DTSBE126
00311         PERFORM S999-ABEND              THRU S999-EXIT            DTSBE126
00312      END-IF.                                                      DTSBE126
00313                                                                   DTSBE126
00314      MOVE SPACES                         TO R126-REC.             DTSBE126
00315                                                                   DTSBE126
00316      STRING                                                       DTSBE126
00317        'EMPLOYER    '                                             DTSBE126
00318        'APPROVAL DT   '                                           DTSBE126
00319        'APPROVAL TYPE                    '                        DTSBE126
00320        'RESULT   '                                                DTSBE126
00321           DELIMITED BY SIZE                                       DTSBE126
00322           INTO R126-REC                                           DTSBE126
00323      END-STRING.                                                  DTSBE126
00324                                                                   DTSBE126
00325      WRITE R126-REC.                                              DTSBE126
00326                                                                   DTSBE126
00327      MOVE SPACES                         TO R126-REC.             DTSBE126
00328      WRITE R126-REC.                                              DTSBE126
00329  I2000-EXIT.                                                      DTSBE126
00330      EXIT.                                                        DTSBE126
00331                                                                   DTSBE126
00332  I3000-INIT-TABLE.                                                DTSBE126
00333      MOVE +0                            TO W-APPROVAL-LAST.       DTSBE126
00334                                                                   DTSBE126
00335      PERFORM                                                      DTSBE126
00336        VARYING S1 FROM +1 BY +1                                   DTSBE126
00337        UNTIL S1 > W-APPROVAL-MAX                                  DTSBE126
00338          MOVE SPACES                   TO W-APPRV-TYPE (S1)       DTSBE126
00339          MOVE +0                       TO W-APPRV-DATE (S1)       DTSBE126
00340          SET W-CHNG-FOUND-NO-88 (S1)   TO TRUE                    DTSBE126
00341      END-PERFORM.                                                 DTSBE126
00342                                                                   DTSBE126
00343  I3000-EXIT.                                                      DTSBE126
00344      EXIT.                                                        DTSBE126
00345                                                                   DTSBE126
00346 ***************************************************************** DTSBE126
00347 *   THIS MODULE PROCESSES THE EMPLOYER PROFILES PASSED FROM THE   DTSBE126
00348 *   I/O MODULE.                                                   DTSBE126
00349 ***************************************************************** DTSBE126
00350                                                                   DTSBE126
00351  P0000-PROCESS.                                                   DTSBE126
00352      PERFORM I3000-INIT-TABLE            THRU I3000-EXIT.         DTSBE126
00353                                                                   DTSBE126
00354      MOVE LOW-VALUES                     TO MEVL-KEY-AREA.        DTSBE126
00355      MOVE MPRF-EMP-NO                    TO MEVL-EMP-NO.          DTSBE126
00356      SET MEVL-EVL-88                     TO TRUE.                 DTSBE126
00357      MOVE W-START-DATE                   TO MEVL-DATE.            DTSBE126
00358      MOVE +0                             TO MEVL-TIME.            DTSBE126
00359      MOVE MEVL-KEY-AREA                  TO MSKL-KEY-AREA.        DTSBE126
00360                                                                   DTSBE126
00361      PERFORM S910-START-BROWSE           THRU S910-EXIT.          DTSBE126
00362      PERFORM UNTIL L910-NO-REC-88                                 DTSBE126
00363         MOVE MSKL-REC                    TO MEVL-REC              DTSBE126
00364         IF MEVL-BA-STATUS-APPRV-88                                DTSBE126
00365            IF MEVL-DATE <= W-END-DATE                             DTSBE126
00366               PERFORM P0100-APPRV-TYPE   THRU P0100-EXIT          DTSBE126
00367            END-IF                                                 DTSBE126
00368         END-IF                                                    DTSBE126
00369         MOVE MEVL-REC                    TO MSKL-REC              DTSBE126
00370         PERFORM S910-START-BROWSE        THRU S910-EXIT           DTSBE126
00371         PERFORM S910-READ-NEXT           THRU S910-EXIT           DTSBE126
00372      END-PERFORM.                                                 DTSBE126
00373                                                                   DTSBE126
00374      PERFORM                                                      DTSBE126
00375        VARYING S1 FROM +1 BY +1                                   DTSBE126
00376        UNTIL S1 > W-APPROVAL-LAST                                 DTSBE126
00377          PERFORM S2000-WRITE-REPORT    THRU S2000-EXIT            DTSBE126
00378 **       MOVE W-APPRV-TYPE (S1)       TO MEVL-ACTIVITY-CODE       DTSBE126
00379 *        EVALUATE TRUE                                            DTSBE126
00380 *          WHEN MEVL-ACT-APPRV-INACT-88                           DTSBE126
00381 *            IF W-CHNG-FOUND-YES-88 (S1)                          DTSBE126
00382 *              DISPLAY '* ' MPRF-EMP-NO '  CHANGE FOUND'          DTSBE126
00383 *            ELSE                                                 DTSBE126
00384 *              DISPLAY '* ' MPRF-EMP-NO ' NO CHANGE FOUND'        DTSBE126
00385 *            END-IF                                               DTSBE126
00386 *                                                                 DTSBE126
00387 *          WHEN MEVL-ACT-APPRV-SUCC-88                            DTSBE126
00388 *            IF W-CHNG-FOUND-YES-88 (S1)                          DTSBE126
00389 *              DISPLAY '* ' MPRF-EMP-NO '  PRED/SUCC FOUND'       DTSBE126
00390 *            ELSE                                                 DTSBE126
00391 *              DISPLAY '* ' MPRF-EMP-NO '  NO PRED/SUCC FOUND'    DTSBE126
00392 *            END-IF                                               DTSBE126
00393 *                                                                 DTSBE126
00394 *          WHEN MEVL-ACT-APPRV-RATE-88                            DTSBE126
00395 *            IF W-CHNG-FOUND-YES-88 (S1)                          DTSBE126
00396 *              DISPLAY '* ' MPRF-EMP-NO '  RATE FOUND'            DTSBE126
00397 *            ELSE                                                 DTSBE126
00398 *              DISPLAY '* ' MPRF-EMP-NO '  NO RATE FOUND'         DTSBE126
00399 *            END-IF                                               DTSBE126
00400 *                                                                 DTSBE126
00401 **       END-EVALUATE                                             DTSBE126
00402      END-PERFORM.                                                 DTSBE126
00403                                                                   DTSBE126
00404  P0000-EXIT.                                                      DTSBE126
00405      EXIT.                                                        DTSBE126
00406                                                                   DTSBE126
00407  P0100-APPRV-TYPE.                                                DTSBE126
00408      EVALUATE TRUE                                                DTSBE126
00409        WHEN MEVL-ACT-APPRV-INACT-88                               DTSBE126
00410          PERFORM P1000-CHK-SOL     THRU P1000-EXIT                DTSBE126
00411                                                                   DTSBE126
00412        WHEN MEVL-ACT-APPRV-SUCC-88                                DTSBE126
00413          PERFORM P2000-CHK-REL     THRU P2000-EXIT                DTSBE126
00414                                                                   DTSBE126
00415        WHEN MEVL-ACT-APPRV-RATE-88                                DTSBE126
00416          PERFORM P3000-CHK-RTE     THRU P3000-EXIT                DTSBE126
00417                                                                   DTSBE126
00418        WHEN OTHER                                                 DTSBE126
00419          DISPLAY 'INVALID: ' MPRF-EMP-NO                          DTSBE126
00420             '  ' MEVL-TEXT                                        DTSBE126
00421          PERFORM P1000-CHK-SOL     THRU P1000-EXIT                DTSBE126
00422                                                                   DTSBE126
00423      END-EVALUATE.                                                DTSBE126
00424                                                                   DTSBE126
00425  P0100-EXIT.                                                      DTSBE126
00426      EXIT.                                                        DTSBE126
00427                                                                   DTSBE126
00428 ***************************************************************** DTSBE126
00429 *   THIS MODULE READS ALL OF THE EMPLOYER REGISTRATION            DTSBE126
00430 *   DETERMINATIONS FOR THE EMPLOYER.                              DTSBE126
00431 ***************************************************************** DTSBE126
00432                                                                   DTSBE126
00433  P1000-CHK-SOL.                                                   DTSBE126
00434      PERFORM S1000-ADD-TO-TABLE            THRU S1000-EXIT.       DTSBE126
00435                                                                   DTSBE126
00436      MOVE LOW-VALUES                       TO MSOL-KEY-AREA.      DTSBE126
00437      MOVE MPRF-EMP-NO                      TO MSOL-EMP-NO.        DTSBE126
00438      SET MSOL-SOL-88                       TO TRUE.               DTSBE126
00439      MOVE MSOL-KEY-AREA                    TO MSKL-KEY-AREA.      DTSBE126
00440                                                                   DTSBE126
00441      PERFORM S910-START-BROWSE             THRU S910-EXIT.        DTSBE126
00442      PERFORM UNTIL L910-NO-REC-88                                 DTSBE126
00443         MOVE MSKL-REC                      TO MSOL-REC            DTSBE126
00444         MOVE ZERO                          TO W-ESTB-DATE         DTSBE126
00445                                               W-CHNG-DATE         DTSBE126
00446                                               W-INACT-DATE        DTSBE126
00447                                               W-INACT-REV-DATE    DTSBE126
00448         EVALUATE TRUE                                             DTSBE126
00449           WHEN MSOL-ESTB-DATE = MEVL-DATE                         DTSBE126
00450              MOVE MSOL-ESTB-DATE           TO W-ESTB-DATE         DTSBE126
00451                                                                   DTSBE126
00452           WHEN MSOL-CHNG-DATE = MEVL-DATE                         DTSBE126
00453              MOVE MSOL-CHNG-DATE           TO W-CHNG-DATE         DTSBE126
00454                                                                   DTSBE126
00455           WHEN MSOL-INACT-ENTER-DATE = MEVL-DATE                  DTSBE126
00456              MOVE MSOL-INACT-ENTER-DATE    TO W-INACT-DATE        DTSBE126
00457                                                                   DTSBE126
00458           WHEN MSOL-INACT-REVERSE-DATE = MEVL-DATE                DTSBE126
00459              MOVE MSOL-INACT-REVERSE-DATE  TO W-INACT-REV-DATE    DTSBE126
00460                                                                   DTSBE126
00461         END-EVALUATE                                              DTSBE126
00462         PERFORM P1100-EVALUATE-SOL         THRU P1100-EXIT        DTSBE126
00463         MOVE MSOL-REC                      TO MSKL-REC            DTSBE126
00464         PERFORM S910-READ-NEXT             THRU S910-EXIT         DTSBE126
00465      END-PERFORM.                                                 DTSBE126
00466                                                                   DTSBE126
00467  P1000-EXIT.                                                      DTSBE126
00468      EXIT.                                                        DTSBE126
00469                                                                   DTSBE126
00470  P1100-EVALUATE-SOL.                                              DTSBE126
00471      IF W-ESTB-DATE = ZERO                                        DTSBE126
00472      AND W-CHNG-DATE = ZERO                                       DTSBE126
00473      AND W-INACT-DATE = ZERO                                      DTSBE126
00474      AND W-INACT-REV-DATE = ZERO                                  DTSBE126
00475         GO TO P1100-EXIT                                          DTSBE126
00476      END-IF.                                                      DTSBE126
00477                                                                   DTSBE126
00478 **   DISPLAY 'P1100 ' MPRF-EMP-NO '  ' MEVL-DATE.                 DTSBE126
00479                                                                   DTSBE126
00480      EVALUATE TRUE                                                DTSBE126
00481        WHEN W-ESTB-DATE > ZERO                                    DTSBE126
00482          PERFORM S1100-CHANGE-FOUND      THRU S1100-EXIT          DTSBE126
00483                                                                   DTSBE126
00484        WHEN W-INACT-DATE > ZERO                                   DTSBE126
00485          PERFORM S1100-CHANGE-FOUND      THRU S1100-EXIT          DTSBE126
00486                                                                   DTSBE126
00487        WHEN W-INACT-REV-DATE > ZERO                               DTSBE126
00488          PERFORM S1100-CHANGE-FOUND      THRU S1100-EXIT          DTSBE126
00489                                                                   DTSBE126
00490        WHEN W-CHNG-DATE > ZERO                                    DTSBE126
00491          PERFORM S1100-CHANGE-FOUND      THRU S1100-EXIT          DTSBE126
00492                                                                   DTSBE126
00493      END-EVALUATE.                                                DTSBE126
00494                                                                   DTSBE126
00495  P1100-EXIT.                                                      DTSBE126
00496      EXIT.                                                        DTSBE126
00497                                                                   DTSBE126
00498  P2000-CHK-REL.                                                   DTSBE126
00499      PERFORM S1000-ADD-TO-TABLE            THRU S1000-EXIT.       DTSBE126
00500                                                                   DTSBE126
00501      SET W-REL-FOUND-NO-88                 TO TRUE.               DTSBE126
00502      PERFORM P2100-MREL-SUCC               THRU P2100-EXIT.       DTSBE126
00503      IF W-REL-FOUND-NO-88                                         DTSBE126
00504         PERFORM P2200-IPES                 THRU P2200-EXIT        DTSBE126
00505      END-IF.                                                      DTSBE126
00506  P2000-EXIT.                                                      DTSBE126
00507      EXIT.                                                        DTSBE126
00508                                                                   DTSBE126
00509  P2100-MREL-SUCC.                                                 DTSBE126
00510      MOVE LOW-VALUES                       TO MREL-KEY-AREA.      DTSBE126
00511      MOVE MPRF-EMP-NO                      TO MREL-EMP-NO.        DTSBE126
00512      SET MREL-REL-88                       TO TRUE.               DTSBE126
00513      MOVE +0                               TO MREL-EFF-DATE.      DTSBE126
00514      MOVE MREL-KEY-AREA                    TO MSKL-KEY-AREA.      DTSBE126
00515                                                                   DTSBE126
00516      PERFORM S910-START-BROWSE             THRU S910-EXIT.        DTSBE126
00517      PERFORM UNTIL L910-NO-REC-88                                 DTSBE126
00518         MOVE MSKL-REC                      TO MREL-REC            DTSBE126
00519         IF MREL-ESTB-DATE = MEVL-DATE                             DTSBE126
00520         OR MREL-CHNG-DATE = MEVL-DATE                             DTSBE126
00521            SET W-REL-FOUND-YES-88          TO TRUE                DTSBE126
00522            PERFORM S1100-CHANGE-FOUND      THRU S1100-EXIT        DTSBE126
00523         END-IF                                                    DTSBE126
00524         PERFORM S910-READ-NEXT             THRU S910-EXIT         DTSBE126
00525      END-PERFORM.                                                 DTSBE126
00526                                                                   DTSBE126
00527  P2100-EXIT.                                                      DTSBE126
00528      EXIT.                                                        DTSBE126
00529                                                                   DTSBE126
00530  P2200-IPES.                                                      DTSBE126
00531      MOVE LOW-VALUES                       TO IPES-KEY-AREA.      DTSBE126
00532      SET IPES-PES-88                       TO TRUE.               DTSBE126
00533      MOVE MPRF-EMP-NO                      TO IPES-PRED-EMP-NO.   DTSBE126
00534      MOVE IPES-KEY-AREA                    TO ISKL-KEY-AREA.      DTSBE126
00535      PERFORM S921-START-BROWSE             THRU S921-EXIT.        DTSBE126
00536                                                                   DTSBE126
00537      PERFORM UNTIL L921-NO-REC-88                                 DTSBE126
00538         MOVE ISKL-REC                      TO IPES-REC            DTSBE126
00539         IF IPES-PRED-EMP-NO = MPRF-EMP-NO                         DTSBE126
00540            PERFORM P2210-FIND-MREL-PRED    THRU P2210-EXIT        DTSBE126
00541         END-IF                                                    DTSBE126
00542         PERFORM S921-READ-NEXT             THRU S921-EXIT         DTSBE126
00543      END-PERFORM.                                                 DTSBE126
00544                                                                   DTSBE126
00545  P2200-EXIT.                                                      DTSBE126
00546      EXIT.                                                        DTSBE126
00547                                                                   DTSBE126
00548  P2210-FIND-MREL-PRED.                                            DTSBE126
00549      MOVE LOW-VALUES                       TO MREL-KEY-AREA.      DTSBE126
00550      MOVE IPES-SUC-EMP-NO                  TO MREL-EMP-NO.        DTSBE126
00551      SET MREL-REL-88                       TO TRUE.               DTSBE126
00552      MOVE +0                               TO MREL-EFF-DATE.      DTSBE126
00553      MOVE MREL-KEY-AREA                    TO MSKL-KEY-AREA.      DTSBE126
00554                                                                   DTSBE126
00555      PERFORM S910-START-BROWSE             THRU S910-EXIT.        DTSBE126
00556      PERFORM UNTIL L910-NO-REC-88                                 DTSBE126
00557         MOVE MSKL-REC                      TO MREL-REC            DTSBE126
00558         IF MREL-ESTB-DATE = MEVL-DATE                             DTSBE126
00559         OR MREL-CHNG-DATE = MEVL-DATE                             DTSBE126
00560            SET W-REL-FOUND-YES-88          TO TRUE                DTSBE126
00561            PERFORM S1100-CHANGE-FOUND      THRU S1100-EXIT        DTSBE126
00562         END-IF                                                    DTSBE126
00563         PERFORM S910-READ-NEXT             THRU S910-EXIT         DTSBE126
00564      END-PERFORM.                                                 DTSBE126
00565                                                                   DTSBE126
00566  P2210-EXIT.                                                      DTSBE126
00567      EXIT.                                                        DTSBE126
00568                                                                   DTSBE126
00569  P3000-CHK-RTE.                                                   DTSBE126
00570      PERFORM S1000-ADD-TO-TABLE            THRU S1000-EXIT.       DTSBE126
00571                                                                   DTSBE126
00572      MOVE LOW-VALUES                       TO MRTE-KEY-AREA.      DTSBE126
00573      MOVE MPRF-EMP-NO                      TO MRTE-EMP-NO.        DTSBE126
00574      SET MRTE-RTE-88                       TO TRUE.               DTSBE126
00575      MOVE +0                               TO MRTE-EFF-YRQ.       DTSBE126
00576      MOVE MRTE-KEY-AREA                    TO MSKL-KEY-AREA.      DTSBE126
00577                                                                   DTSBE126
00578      PERFORM S910-START-BROWSE             THRU S910-EXIT.        DTSBE126
00579      PERFORM UNTIL L910-NO-REC-88                                 DTSBE126
00580         MOVE MSKL-REC                      TO MRTE-REC            DTSBE126
00581         IF MRTE-CHNG-DATE = MEVL-DATE                             DTSBE126
00582            PERFORM S1100-CHANGE-FOUND      THRU S1100-EXIT        DTSBE126
00583         END-IF                                                    DTSBE126
00584         PERFORM S910-READ-NEXT             THRU S910-EXIT         DTSBE126
00585      END-PERFORM.                                                 DTSBE126
00586                                                                   DTSBE126
00587  P3000-EXIT.                                                      DTSBE126
00588      EXIT.                                                        DTSBE126
00589                                                                   DTSBE126
00590                                                                   DTSBE126
00591  T0000-TERMINATE.                                                 DTSBE126
00592      COMPUTE W-APPROVAL-CNT =                                     DTSBE126
00593         (W-COMPLETE-CNT + W-NOT-DONE-CNT).                        DTSBE126
00594                                                                   DTSBE126
00595      DISPLAY SPACE.                                               DTSBE126
00596      DISPLAY '*****************************************'.         DTSBE126
00597      DISPLAY '   DTSBE127 TERMINATION STATISTICS'.                DTSBE126
00598      DISPLAY SPACE.                                               DTSBE126
00599      DISPLAY '   APPROVALS FOUND:            ' W-APPROVAL-CNT.    DTSBE126
00600      DISPLAY '   SPAN OF LIABILITY CHANGES:  ' W-SOL-CNT.         DTSBE126
00601      DISPLAY '   PRED/SUCC CHANGES:          ' W-PRED-SUCC-CNT.   DTSBE126
00602      DISPLAY '   RATE CHANGES:               ' W-RATE-CNT.        DTSBE126
00603      DISPLAY '   INVALID APPROVAL TYPE:      ' W-UNKNOWN-CNT.     DTSBE126
00604      DISPLAY SPACE.                                               DTSBE126
00605      DISPLAY '   APPROVED CHANGES: '                              DTSBE126
00606      DISPLAY '      COMPLETED:               ' W-COMPLETE-CNT.    DTSBE126
00607      DISPLAY '      NOT COMPLETE:            ' W-NOT-DONE-CNT.    DTSBE126
00608      DISPLAY '*****************************************'.         DTSBE126
00609                                                                   DTSBE126
00610      CLOSE   R126-FILE.                                           DTSBE126
00611                                                                   DTSBE126
00612  T0000-EXIT.                                                      DTSBE126
00613      EXIT.                                                        DTSBE126
00614      EJECT                                                        DTSBE126
00615  S001-FROM-FED-8.                                                 DTSBE126
00616      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE126
00617      GO TO S001-DATE.                                             DTSBE126
00618      SKIP1                                                        DTSBE126
00619  S001-FROM-CAL-6.                                                 DTSBE126
00620      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE126
00621      GO TO S001-DATE.                                             DTSBE126
00622                                                                   DTSBE126
00623     S001-FROM-ABS-DAY.                                            DTSBE126
00624         SET L001-FROM-ABS-DAY TO TRUE.                            DTSBE126
00625         GO TO S001-DATE.                                          DTSBE126
00626                                                                   DTSBE126
00627  S001-DATE.                                                       DTSBE126
00628      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE126
00629  S001-EXIT.                                                       DTSBE126
00630      EXIT.                                                        DTSBE126
00631                                                                   DTSBE126
00632 *** S004-FROM-5.                                                  DTSBE126
00633 ***     SET L004-FROM-5 TO TRUE.                                  DTSBE126
00634 ***     GO TO S004-QTR.                                           DTSBE126
00635                                                                   DTSBE126
00636 *** S004-FROM-ABS.                                                DTSBE126
00637 ***     SET L004-FROM-ABS TO TRUE.                                DTSBE126
00638 ***     GO TO S004-QTR.                                           DTSBE126
00639                                                                   DTSBE126
00640 *** S004-FROM-3.                                                  DTSBE126
00641 ***     SET L004-FROM-3 TO TRUE.                                  DTSBE126
00642 ***     GO TO S004-QTR.                                           DTSBE126
00643                                                                   DTSBE126
00644  S004-FROM-DATE.                                                  DTSBE126
00645      SET L004-FROM-DATE TO TRUE.                                  DTSBE126
00646      GO TO S004-QTR.                                              DTSBE126
00647      SKIP1                                                        DTSBE126
00648  S004-QTR.                                                        DTSBE126
00649      SKIP1                                                        DTSBE126
00650      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE126
00651      SKIP1                                                        DTSBE126
00652  S004-EXIT.                                                       DTSBE126
00653      EXIT.                                                        DTSBE126
00654      SKIP3                                                        DTSBE126
00655 *** S910-READ.                                                    DTSBE126
00656 ***     SET L910-READ-88 TO TRUE.                                 DTSBE126
00657 ***     GO TO S910-MSTR-IO.                                       DTSBE126
00658                                                                   DTSBE126
00659  S910-START-BROWSE.                                               DTSBE126
00660      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE126
00661      GO TO S910-MSTR-IO.                                          DTSBE126
00662      SKIP1                                                        DTSBE126
00663  S910-READ-NEXT.                                                  DTSBE126
00664      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE126
00665      GO TO S910-MSTR-IO.                                          DTSBE126
00666      SKIP1                                                        DTSBE126
00667  S910-READ.                                                       DTSBE126
00668      SET L910-READ-88      TO TRUE.                               DTSBE126
00669      GO TO S910-MSTR-IO.                                          DTSBE126
00670      SKIP1                                                        DTSBE126
00671 *** S910-COUNT.                                                   DTSBE126
00672 ***     SET L910-COUNT-88 TO TRUE.                                DTSBE126
00673 ***     GO TO S910-MSTR-IO.                                       DTSBE126
00674                                                                   DTSBE126
00675  S910-MSTR-IO.                                                    DTSBE126
00676      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE126
00677                            MSKL-REC.                              DTSBE126
00678  S910-EXIT.                                                       DTSBE126
00679      EXIT.                                                        DTSBE126
00680                                                                   DTSBE126
00681  S921-START-BROWSE.                                               DTSBE126
00682      SET L921-START-BROWSE-88 TO TRUE.                            DTSBE126
00683      GO TO S921-AIX-IO.                                           DTSBE126
00684                                                                   DTSBE126
00685  S921-READ-NEXT.                                                  DTSBE126
00686      SET L921-READ-NEXT-88 TO TRUE.                               DTSBE126
00687      GO TO S921-AIX-IO.                                           DTSBE126
00688                                                                   DTSBE126
00689  S921-READ.                                                       DTSBE126
00690      SET L921-READ-88      TO TRUE.                               DTSBE126
00691      GO TO S921-AIX-IO.                                           DTSBE126
00692                                                                   DTSBE126
00693  S921-AIX-IO.                                                     DTSBE126
00694      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBE126
00695                            ISKL-REC.                              DTSBE126
00696  S921-EXIT.                                                       DTSBE126
00697      EXIT.                                                        DTSBE126
00698                                                                   DTSBE126
00699  S1000-ADD-TO-TABLE.                                              DTSBE126
00700      MOVE +0                        TO S2.                        DTSBE126
00701                                                                   DTSBE126
00702      PERFORM                                                      DTSBE126
00703       VARYING S1 FROM +1 BY +1                                    DTSBE126
00704       UNTIL S1 > W-APPROVAL-LAST                                  DTSBE126
00705         IF W-APPRV-TYPE (S1) =  MEVL-ACTIVITY-CODE                DTSBE126
00706            MOVE S1                  TO S2                         DTSBE126
00707         END-IF                                                    DTSBE126
00708      END-PERFORM.                                                 DTSBE126
00709                                                                   DTSBE126
00710      IF S2 > +0                                                   DTSBE126
00711         MOVE MEVL-ACTIVITY-CODE  TO W-APPRV-TYPE (S2)             DTSBE126
00712         MOVE MEVL-DATE           TO W-APPRV-DATE (S2)             DTSBE126
00713      ELSE                                                         DTSBE126
00714         IF W-APPROVAL-LAST < W-APPROVAL-MAX                       DTSBE126
00715            ADD +1                   TO W-APPROVAL-LAST            DTSBE126
00716            MOVE W-APPROVAL-LAST     TO S1                         DTSBE126
00717            MOVE MEVL-ACTIVITY-CODE  TO W-APPRV-TYPE (S1)          DTSBE126
00718            MOVE MEVL-DATE           TO W-APPRV-DATE (S1)          DTSBE126
00719         ELSE                                                      DTSBE126
00720            DISPLAY 'TABLE LENGTH EXCEEDED'                        DTSBE126
00721            PERFORM S999-ABEND       THRU S999-EXIT                DTSBE126
00722         END-IF                                                    DTSBE126
00723      END-IF.                                                      DTSBE126
00724                                                                   DTSBE126
00725  S1000-EXIT.                                                      DTSBE126
00726      EXIT.                                                        DTSBE126
00727                                                                   DTSBE126
00728  S1100-CHANGE-FOUND.                                              DTSBE126
00729      PERFORM                                                      DTSBE126
00730        VARYING S1 FROM +1 BY +1                                   DTSBE126
00731        UNTIL S1 > W-APPROVAL-LAST                                 DTSBE126
00732          IF W-APPRV-TYPE (S1) =  MEVL-ACTIVITY-CODE               DTSBE126
00733             SET W-CHNG-FOUND-YES-88 (S1)   TO TRUE                DTSBE126
00734          END-IF                                                   DTSBE126
00735      END-PERFORM.                                                 DTSBE126
00736                                                                   DTSBE126
00737  S1100-EXIT.                                                      DTSBE126
00738      EXIT.                                                        DTSBE126
00739                                                                   DTSBE126
00740  S2000-WRITE-REPORT.                                              DTSBE126
00741      MOVE SPACES                         TO R126-REC.             DTSBE126
00742                                                                   DTSBE126
00743      MOVE MEVL-EMP-NO                    TO W-EMP-NO-9.           DTSBE126
00744                                                                   DTSBE126
00745      MOVE W-APPRV-DATE (S1)              TO L001-FED-8-DATE-9.    DTSBE126
00746      PERFORM S001-FROM-FED-8             THRU S001-EXIT.          DTSBE126
00747                                                                   DTSBE126
00748      MOVE W-APPRV-TYPE (S1)              TO MEVL-ACTIVITY-CODE.   DTSBE126
00749                                                                   DTSBE126
00750      EVALUATE TRUE                                                DTSBE126
00751        WHEN MEVL-ACT-APPRV-INACT-88                               DTSBE126
00752          MOVE 'INACTIVATE/CHANGE'        TO W-APPROVAL-TYPE       DTSBE126
00753          ADD +1                          TO W-SOL-CNT             DTSBE126
00754                                                                   DTSBE126
00755        WHEN MEVL-ACT-APPRV-SUCC-88                                DTSBE126
00756          MOVE 'PREDECESSOR/SUCCESSOR'    TO W-APPROVAL-TYPE       DTSBE126
00757          ADD +1                          TO W-PRED-SUCC-CNT       DTSBE126
00758                                                                   DTSBE126
00759        WHEN MEVL-ACT-APPRV-RATE-88                                DTSBE126
00760          MOVE 'RATE CHANGE'              TO W-APPROVAL-TYPE       DTSBE126
00761          ADD +1                          TO W-RATE-CNT            DTSBE126
00762                                                                   DTSBE126
00763        WHEN OTHER                                                 DTSBE126
00764          ADD +1                          TO W-UNKNOWN-CNT         DTSBE126
00765      END-EVALUATE.                                                DTSBE126
00766                                                                   DTSBE126
00767      IF W-CHNG-FOUND-YES-88 (S1)                                  DTSBE126
00768         MOVE 'COMPLETE'                  TO W-RESULT              DTSBE126
00769         ADD +1                           TO W-COMPLETE-CNT        DTSBE126
00770      ELSE                                                         DTSBE126
00771         MOVE 'CHANGE NOT FOUND'          TO W-RESULT              DTSBE126
00772         ADD +1                           TO W-NOT-DONE-CNT        DTSBE126
00773      END-IF.                                                      DTSBE126
00774                                                                   DTSBE126
00775      STRING                                                       DTSBE126
00776        W-EMP-NO-9 (1:3) '-' W-EMP-NO-9 (4:3) '     '              DTSBE126
00777        L001-SLASH-8-DATE '    '                                   DTSBE126
00778        W-APPROVAL-TYPE '   '                                      DTSBE126
00779        W-RESULT                                                   DTSBE126
00780           DELIMITED BY SIZE                                       DTSBE126
00781           INTO R126-REC                                           DTSBE126
00782      END-STRING.                                                  DTSBE126
00783                                                                   DTSBE126
00784      WRITE R126-REC.                                              DTSBE126
00785                                                                   DTSBE126
00786  S2000-EXIT.                                                      DTSBE126
00787      EXIT.                                                        DTSBE126
00788                                                                   DTSBE126
00789  S999-ABEND.                                                      DTSBE126
00790      DISPLAY '*** DTSBE126 ABENDING.  '                           DTSBE126
00791              ABEND-MSG.                                           DTSBE126
00792      SKIP1                                                        DTSBE126
00793      CALL 'DTSBU999' USING W-ABEND-CD.                            DTSBE126
00794  S999-EXIT.                                                       DTSBE126
00795      EXIT.                                                        DTSBE126
