00001  IDENTIFICATION DIVISION.                                         04/21/20
00002  PROGRAM-ID.             CHGBD212.                                CHGBD212
00003 *AUTHOR.                 NGC.                                        LV003
00004 *DATE-WRITTEN.           NOVEMBER 2006.                           CHGBD212
00005  DATE-COMPILED.                                                   CHGBD212
00006      SKIP3                                                        CHGBD212
00007 *****                                                             CHGBD212
00008 *                                                                 CHGBD212
00009 *    FUNCTION:                                                    CHGBD212
00010 *                                                                 CHGBD212
00011 *           READ CHARGE RECORDS EXTRACTED BY CHGBD205.            CHGBD212
00012 *                                                                 CHGBD212
00013 *           CHGIM005 RECORDS (CHARGES SUMMED BY:                  CHGBD212
00014 *           EMPLOYER, SSN, BYE, PROGRAM)                          CHGBD212
00015 *                                                                 CHGBD212
00016 *                                                                 CHGBD212
00017 *        INPUT:                                                   CHGBD212
00018 *                                                                 CHGBD212
00019 *            BD205CHG - CHARGE REPORT RECORDS GENERATED BY        CHGBD212
00020 *                       CHGBD205.                                 CHGBD212
00021 *                                                                 CHGBD212
00022 *        OUTPUT:                                                  CHGBD212
00023 *                                                                 CHGBD212
00024 *            DTSFC005 - CHGIM005 RECORDS                          CHGBD212
00025 *                                                                 CHGBD212
00026 *                                                                 CHGBD212
00027 *                                                                 CHGBD212
00028 *****                                                             CHGBD212
00029                                                                   CHGBD212
00030 ******************************************************************CHGBD212
00031 * MODIFICATION HISTORY:                                          *CHGBD212
00032 *                                                                *CHGBD212
00033 * 11-06-2006 INITIAL DEVELOPMENT                                 *CHGBD212
00034 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD212
00035 *                                                                *CHGBD212
00036 * 03-09-2009 CHANGED PROGRAM CODE FROM NUMERIC TO CHARACTER.     *CHGBD212
00037 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD212
00038 *                                                                *CHGBD212
00039 * 05-04-2010 RECOMPILE PROGRAM FOR NEW CHGIM002 COPYBOOK         *CHGBD212
00040 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBD212
00041 *                                                                *   CL**2
00042 * 10-04-2014 RECOMPILE PROGRAM FOR NEW CHGIM002 COPYBOOK         *   CL**2
00043 *            REFERENCE RFP # UCPIA        AUTHOR OF CHANGE - ZL1 *   CL**2
00044 *                                                                *CHGBD212
00045 *                                                                *   CL**3
00046 * 04-19-2020 RECOMPILE PROGRAM FOR NEW CHGIM002 COPYBOOK         *   CL**3
00047 *            REFERENCE PUA FPUC FRUR      AUTHOR OF CHANGE - ZL1 *   CL**3
00048 *                                                                *   CL**3
00049 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD212
00050 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD212
00051 *            REFERENCE RFP #****          AUTHOR OF CHANGE - *** *CHGBD212
00052 ******************************************************************CHGBD212
00053                                                                   CHGBD212
00054      SKIP3                                                        CHGBD212
00055  ENVIRONMENT DIVISION.                                            CHGBD212
00056      SKIP3                                                        CHGBD212
00057  INPUT-OUTPUT SECTION.                                            CHGBD212
00058      SKIP3                                                        CHGBD212
00059  FILE-CONTROL.                                                    CHGBD212
00060      SELECT BD205-CHG-FILE-IN ASSIGN TO BD205CHG                  CHGBD212
00061             FILE STATUS IS BD205-CHG-STATUS.                      CHGBD212
00062                                                                   CHGBD212
00063      SELECT CHG5-FILE-OUT        ASSIGN TO DTSFC005               CHGBD212
00064             FILE STATUS IS CHG5-STATUS.                           CHGBD212
00065                                                                   CHGBD212
00066      EJECT                                                        CHGBD212
00067  DATA DIVISION.                                                   CHGBD212
00068                                                                   CHGBD212
00069  FILE SECTION.                                                    CHGBD212
00070  FD  BD205-CHG-FILE-IN                                            CHGBD212
00071      RECORD CONTAINS 64 CHARACTERS                                CHGBD212
00072      DATA RECORD IS BD205-CHG-REC.                                CHGBD212
00073  01  BD205-CHG-REC.                                               CHGBD212
00074  ++INCLUDE CHGIM002                                               CHGBD212
00075                                                                   CHGBD212
00076  FD  CHG5-FILE-OUT                                                CHGBD212
00077      RECORD CONTAINS 41 CHARACTERS                                CHGBD212
00078      DATA RECORD IS CHG5-REC.                                     CHGBD212
00079  01  CHG5-REC.                                                    CHGBD212
00080  ++INCLUDE CHGIM005                                               CHGBD212
00081                                                                   CHGBD212
00082  WORKING-STORAGE SECTION.                                         CHGBD212
000825 77  PAN-VALET PICTURE X(24) VALUE '003CHGBD212  04/21/20'.       CHGBD212
00083  77  PAN-VALET PICTURE X(24) VALUE '007CHGBD212  05/25/10'.       CHGBD212
00084                                                                   CHGBD212
00085  01  WRK-AREA.                                                    CHGBD212
00086      05  WRK-MOD-NAME                PIC  X(08)                   CHGBD212
00087                                  VALUE 'CHGBD212'.                CHGBD212
00088      05  ABEND-CODE                  PIC S9(04)  COMP             CHGBD212
00089                                  VALUE +212.                      CHGBD212
00090      05  ABEND-MOD                   PIC  X(08)                   CHGBD212
00091                                  VALUE 'DTSBU999'.                CHGBD212
00092      05  ABEND-MSG                   PIC  X(60).                  CHGBD212
00093                                                                   CHGBD212
00094      05  BD205-CHG-STATUS            PIC  X(02) VALUE SPACES.     CHGBD212
00095          88  BD205-FILE-OK-88    VALUE '00'.                      CHGBD212
00096          88  BD205-FILE-EOF-88   VALUE '10'.                      CHGBD212
00097                                                                   CHGBD212
00098      05  CHG5-STATUS                 PIC  X(02) VALUE SPACES.     CHGBD212
00099          88  CHG5-FILE-OK-88     VALUE '00'.                      CHGBD212
00100                                                                   CHGBD212
00101      05  WRK-ERROR-IND               PIC  X(01).                  CHGBD212
00102          88  WRK-ERROR-YES-88    VALUE 'Y'.                       CHGBD212
00103          88  WRK-ERROR-NO-88     VALUE 'N'.                       CHGBD212
00104                                                                   CHGBD212
00105      05  WRK-UPD-MASTER-IND    PIC  X(01).                        CHGBD212
00106          88  WRK-UPD-MASTER-YES-88  VALUE 'Y'.                    CHGBD212
00107          88  WRK-UPD-MASTER-NO-88   VALUE 'N'.                    CHGBD212
00108                                                                   CHGBD212
00109      05  WRK-EMP-VALID-IND      PIC  X(01).                       CHGBD212
00110          88  WRK-EMP-VALID-YES-88    VALUE 'Y'.                   CHGBD212
00111          88  WRK-EMP-VALID-NO-88     VALUE 'N'.                   CHGBD212
00112                                                                   CHGBD212
00113      05  WRK-TOT-CHG                 PIC S9(09)V99 COMP-3         CHGBD212
00114                                  VALUE +0.                        CHGBD212
00115      05  WRK-EMP-TOT-CHG             PIC S9(09)V99 COMP-3         CHGBD212
00116                                  VALUE +0.                        CHGBD212
00117      05  WRK-EMP-SSN-CHG             PIC S9(09)V99 COMP-3         CHGBD212
00118                                  VALUE +0.                        CHGBD212
00119      05  WRK-TOT-CHG-DISP            PIC  Z(08)9.99-.             CHGBD212
00120      05  AMT-DISP1                   PIC  Z(08)9.99-.             CHGBD212
00121      05  WRK-CURR-EMP                PIC S9(07)    COMP-3         CHGBD212
00122                                  VALUE +0.                        CHGBD212
00123      05  WRK-CURR-SSN                PIC S9(09)    COMP-3         CHGBD212
00124                                  VALUE +0.                        CHGBD212
00125      05  WRK-CURR-BYE                PIC S9(09)    COMP-3         CHGBD212
00126                                  VALUE +0.                        CHGBD212
00127      05  WRK-CURR-PROG               PIC  X(01)                   CHGBD212
00128                                  VALUE SPACES.                    CHGBD212
00129      05  WRK-CURR-STATUS             PIC  X(01)                   CHGBD212
00130                                  VALUE SPACES.                    CHGBD212
00131                                                                   CHGBD212
00132      05  WRK-SSN-CONV                PIC  9(10).                  CHGBD212
00133      05  FILLER REDEFINES WRK-SSN-CONV.                           CHGBD212
00134          10  WRK-SSN-9               PIC  9(09).                  CHGBD212
00135          10  FILLER                  PIC  X(01).                  CHGBD212
00136                                                                   CHGBD212
00137      05  WRK-CHG-AMT                 PIC S9(09)V99 COMP-3.        CHGBD212
00138                                                                   CHGBD212
00139      05  WRK-RATE-YRQ                PIC S9(05)  COMP-3.          CHGBD212
00140      05  WRK-RPT-TYPE                PIC  9(02) VALUE ZERO.       CHGBD212
00141          88  WRK-RPT-TYPE-RATED-88     VALUE 00.                  CHGBD212
00142          88  WRK-RPT-TYPE-FED-88       VALUE 01, 02.              CHGBD212
00143          88  WRK-RPT-TYPE-CWC-88       VALUE 04.                  CHGBD212
00144          88  WRK-RPT-TYPE-SELF-INS-88  VALUE 08.                  CHGBD212
00145          88  WRK-RPT-TYPE-DC-88        VALUE 10.                  CHGBD212
00146          88  WRK-RPT-TYPE-TEUC-88      VALUE 16.                  CHGBD212
00147                                                                   CHGBD212
00148      05  WRK-BD205-CHG-READ          PIC  9(09) COMP-3            CHGBD212
00149                                        VALUE 0.                   CHGBD212
00150      05  WRK-CHG5-WRITE              PIC  9(09) COMP-3            CHGBD212
00151                                        VALUE 0.                   CHGBD212
00152 ** ERROR MSG TABLE                                                CHGBD212
00153  01  MSG-TABLE.                                                   CHGBD212
00154      05  MSG1-NO-MPRF.                                            CHGBD212
00155          10  MSG1-ID.                                             CHGBD212
00156              15  MSG1-ID1      PIC X(08)  VALUE 'CHGBD212'.       CHGBD212
00157              15  MSG1-ID2      PIC X(03)  VALUE '001'.            CHGBD212
00158          10  MSG1-SHORT-TEXT   PIC X(20)                          CHGBD212
00159                    VALUE 'EMP NOT ON FILE     '.                  CHGBD212
00160          10  MSG1-LONG-TEXT.                                      CHGBD212
00161              15  FILLER        PIC X(29)                          CHGBD212
00162                    VALUE 'EMPLOYER NOT ON MASTER FILE: '.         CHGBD212
00163              15  MSG1-EMP-NO   PIC 9(06).                         CHGBD212
00164                                                                   CHGBD212
00165      05  MSG2-NOT-RATED.                                          CHGBD212
00166          10  MSG2-ID.                                             CHGBD212
00167              15  MSG2-ID1      PIC X(08)  VALUE 'CHGBD212'.       CHGBD212
00168              15  MSG2-ID2      PIC X(03)  VALUE '002'.            CHGBD212
00169          10  MSG2-SHORT-TEXT   PIC X(20)                          CHGBD212
00170                    VALUE 'EMP NOT RATED    :  '.                  CHGBD212
00171          10  MSG2-LONG-TEXT.                                      CHGBD212
00172              15  FILLER        PIC X(20)                          CHGBD212
00173                    VALUE 'EMPLOYER NOT RATED: '.                  CHGBD212
00174              15  MSG2-EMP-NO   PIC 9(06).                         CHGBD212
00175                                                                   CHGBD212
00176 ** ERROR MSG OUTPUT RECORD                                        CHGBD212
00177  01  RSKL-REC.                                                    CHGBD212
00178  ++INCLUDE DTSIRSK1                                               CHGBD212
00179                                                                   CHGBD212
00180  01  R907-REC.                                                    CHGBD212
00181  ++INCLUDE DTSIR907                                               CHGBD212
00182                                                                   CHGBD212
00183  01  L001-LINK-AREA.                                              CHGBD212
00184  ++INCLUDE DTSIL001                                               CHGBD212
00185                                                                   CHGBD212
00186  01  L004-LINK-AREA.                                              CHGBD212
00187  ++INCLUDE DTSIL004                                               CHGBD212
00188                                                                   CHGBD212
00189  01  L005-LINK-AREA.                                              CHGBD212
00190  ++INCLUDE DTSIL005                                               CHGBD212
00191                                                                   CHGBD212
00192  01  L006-LINK-AREA.                                              CHGBD212
00193  ++INCLUDE DTSIL006                                               CHGBD212
00194                                                                   CHGBD212
00195  01  L910-LINK-AREA.                                              CHGBD212
00196  ++INCLUDE DTSIL910                                               CHGBD212
00197                                                                   CHGBD212
00198  01  MSKL-REC.                                                    CHGBD212
00199  ++INCLUDE DTSIMSKL                                               CHGBD212
00200                                                                   CHGBD212
00201  01  MHDR-REC.                                                    CHGBD212
00202  ++INCLUDE DTSIMHDR                                               CHGBD212
00203                                                                   CHGBD212
00204  01  MPRF-REC.                                                    CHGBD212
00205  ++INCLUDE DTSIMPRF                                               CHGBD212
00206                                                                   CHGBD212
00207  PROCEDURE DIVISION.                                              CHGBD212
00208      SKIP2                                                        CHGBD212
00209  CHGBD212-MAIN.                                                   CHGBD212
00210      PERFORM I0000-INITIATE THRU I0000-EXIT.                      CHGBD212
00211      IF WRK-ERROR-YES-88                                          CHGBD212
00212         GO TO CHGBD212-EXIT.                                      CHGBD212
00213                                                                   CHGBD212
00214      PERFORM P0000-PROCESS THRU P0000-EXIT.                       CHGBD212
00215                                                                   CHGBD212
00216      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     CHGBD212
00217                                                                   CHGBD212
00218  CHGBD212-EXIT.                                                   CHGBD212
00219      STOP RUN.                                                    CHGBD212
00220      EJECT                                                        CHGBD212
00221  I0000-INITIATE.                                                  CHGBD212
00222      SET WRK-ERROR-NO-88        TO TRUE.                          CHGBD212
00223                                                                   CHGBD212
00224      MOVE MSG1-ID1              TO R907-MODULE-NAME.              CHGBD212
00225      MOVE LENGTH OF R907-REC    TO R907-LENGTH.                   CHGBD212
00226                                                                   CHGBD212
00227      PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT.                  CHGBD212
00228                                                                   CHGBD212
00229                                                                   CHGBD212
00230  I0000-EXIT.                                                      CHGBD212
00231      EXIT.                                                        CHGBD212
00232                                                                   CHGBD212
00233  I2000-OPEN-FILES-1.                                              CHGBD212
00234      OPEN INPUT BD205-CHG-FILE-IN.                                CHGBD212
00235      IF NOT BD205-FILE-OK-88                                      CHGBD212
00236         DISPLAY 'BD205 FILE OPEN ERROR: ' BD205-CHG-STATUS        CHGBD212
00237         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD212
00238      END-IF.                                                      CHGBD212
00239                                                                   CHGBD212
00240      OPEN OUTPUT  CHG5-FILE-OUT.                                  CHGBD212
00241      IF NOT CHG5-FILE-OK-88                                       CHGBD212
00242         DISPLAY 'CHG5 FILE OPEN ERROR: ' CHG5-STATUS              CHGBD212
00243         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD212
00244      END-IF.                                                      CHGBD212
00245                                                                   CHGBD212
00246      PERFORM S910-OPEN-READ THRU S910-EXIT.                       CHGBD212
00247                                                                   CHGBD212
00248      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            CHGBD212
00249                                                                   CHGBD212
00250      MOVE +0 TO MSKL-EMP-NO.                                      CHGBD212
00251                                                                   CHGBD212
00252      SET MSKL-HDR-88 TO TRUE.                                     CHGBD212
00253                                                                   CHGBD212
00254      PERFORM S910-READ THRU S910-EXIT.                            CHGBD212
00255                                                                   CHGBD212
00256      IF L910-NO-REC-88                                            CHGBD212
00257          MOVE 'MHDR RECORD IS MISSING'                            CHGBD212
00258            TO ABEND-MSG                                           CHGBD212
00259          PERFORM S999-ABEND THRU S999-EXIT.                       CHGBD212
00260                                                                   CHGBD212
00261      MOVE MSKL-REC TO MHDR-REC.                                   CHGBD212
00262                                                                   CHGBD212
00263  I2000-EXIT.                                                      CHGBD212
00264      EXIT.                                                        CHGBD212
00265                                                                   CHGBD212
00266                                                                   CHGBD212
00267  P0000-PROCESS.                                                   CHGBD212
00268      READ BD205-CHG-FILE-IN.                                      CHGBD212
00269                                                                   CHGBD212
00270      IF BD205-FILE-EOF-88                                         CHGBD212
00271         DISPLAY 'BD205 FILE EMPTY: ' BD205-CHG-STATUS             CHGBD212
00272         SET WRK-ERROR-YES-88             TO TRUE                  CHGBD212
00273         GO TO P0000-EXIT                                          CHGBD212
00274      ELSE                                                         CHGBD212
00275         ADD 1 TO WRK-BD205-CHG-READ                               CHGBD212
00276         PERFORM P1100-INIT-EMP           THRU P1100-EXIT          CHGBD212
00277         IF WRK-EMP-VALID-YES-88                                   CHGBD212
00278            PERFORM P1200-ACCUMULATE      THRU P1200-EXIT          CHGBD212
00279         END-IF                                                    CHGBD212
00280         PERFORM P1000-SUM-CHARGES        THRU P1000-EXIT          CHGBD212
00281            UNTIL BD205-FILE-EOF-88                                CHGBD212
00282            OR    WRK-ERROR-YES-88                                 CHGBD212
00283      END-IF.                                                      CHGBD212
00284                                                                   CHGBD212
00285                                                                   CHGBD212
00286  P0000-EXIT.                                                      CHGBD212
00287      EXIT.                                                        CHGBD212
00288                                                                   CHGBD212
00289  P1000-SUM-CHARGES.                                               CHGBD212
00290      MOVE CHG2-SSN                          TO WRK-SSN-CONV.      CHGBD212
00291                                                                   CHGBD212
00292      IF CHG2-EMP-NO NOT = WRK-CURR-EMP                            CHGBD212
00293         PERFORM P1300-WRITE-CHG5            THRU P1300-EXIT       CHGBD212
00294         PERFORM P1100-INIT-EMP              THRU P1100-EXIT       CHGBD212
00295         IF WRK-EMP-VALID-YES-88                                   CHGBD212
00296            PERFORM P1200-ACCUMULATE         THRU P1200-EXIT       CHGBD212
00297         END-IF                                                    CHGBD212
00298      ELSE                                                         CHGBD212
00299         IF WRK-EMP-VALID-YES-88                                   CHGBD212
00300            IF (WRK-SSN-9 NOT = WRK-CURR-SSN                       CHGBD212
00301            OR CHG2-BYE NOT = WRK-CURR-BYE                         CHGBD212
00302            OR CHG2-PROGRAM NOT = WRK-CURR-PROG)                   CHGBD212
00303               PERFORM P1300-WRITE-CHG5      THRU P1300-EXIT       CHGBD212
00304               PERFORM P1110-INIT-SSN-BYE    THRU P1110-EXIT       CHGBD212
00305               PERFORM P1200-ACCUMULATE      THRU P1200-EXIT       CHGBD212
00306            ELSE                                                   CHGBD212
00307               PERFORM P1200-ACCUMULATE      THRU P1200-EXIT       CHGBD212
00308            END-IF                                                 CHGBD212
00309         END-IF                                                    CHGBD212
00310      END-IF.                                                      CHGBD212
00311                                                                   CHGBD212
00312      READ BD205-CHG-FILE-IN.                                      CHGBD212
00313      IF BD205-FILE-EOF-88                                         CHGBD212
00314         GO TO P1000-EXIT                                          CHGBD212
00315      ELSE                                                         CHGBD212
00316         IF NOT BD205-FILE-OK-88                                   CHGBD212
00317            DISPLAY 'BD205 FILE READ ERROR: ' BD205-CHG-STATUS     CHGBD212
00318            SET WRK-ERROR-YES-88 TO TRUE                           CHGBD212
00319         ELSE                                                      CHGBD212
00320            ADD 1 TO WRK-BD205-CHG-READ                            CHGBD212
00321         END-IF                                                    CHGBD212
00322      END-IF.                                                      CHGBD212
00323                                                                   CHGBD212
00324  P1000-EXIT.                                                      CHGBD212
00325      EXIT.                                                        CHGBD212
00326                                                                   CHGBD212
00327  P1100-INIT-EMP.                                                  CHGBD212
00328      SET WRK-EMP-VALID-YES-88    TO TRUE.                         CHGBD212
00329      MOVE CHG2-EMP-NO            TO WRK-CURR-EMP.                 CHGBD212
00330      MOVE CHG2-SSN               TO WRK-SSN-CONV.                 CHGBD212
00331      MOVE WRK-SSN-9              TO WRK-CURR-SSN.                 CHGBD212
00332      MOVE CHG2-BYE               TO WRK-CURR-BYE.                 CHGBD212
00333      MOVE CHG2-PROGRAM           TO WRK-CURR-PROG.                CHGBD212
00334      MOVE +0                     TO WRK-EMP-TOT-CHG               CHGBD212
00335                                     WRK-EMP-SSN-CHG.              CHGBD212
00336                                                                   CHGBD212
00337      PERFORM P2000-EDIT-EMP      THRU P2000-EXIT.                 CHGBD212
00338                                                                   CHGBD212
00339  P1100-EXIT.                                                      CHGBD212
00340      EXIT.                                                        CHGBD212
00341                                                                   CHGBD212
00342  P1110-INIT-SSN-BYE.                                              CHGBD212
00343      MOVE CHG2-SSN               TO WRK-SSN-CONV.                 CHGBD212
00344      MOVE WRK-SSN-9              TO WRK-CURR-SSN.                 CHGBD212
00345      MOVE CHG2-BYE               TO WRK-CURR-BYE.                 CHGBD212
00346      MOVE +0                     TO WRK-EMP-SSN-CHG.              CHGBD212
00347      MOVE CHG2-PROGRAM           TO WRK-CURR-PROG.                CHGBD212
00348                                                                   CHGBD212
00349  P1110-EXIT.                                                      CHGBD212
00350      EXIT.                                                        CHGBD212
00351                                                                   CHGBD212
00352  P1200-ACCUMULATE.                                                CHGBD212
00353      COMPUTE WRK-CHG-AMT   =                                      CHGBD212
00354         (CHG2-CURR-BEN-AMT +                                      CHGBD212
00355          CHG2-CURR-ADJ-AMT).                                      CHGBD212
00356      ADD WRK-CHG-AMT       TO WRK-EMP-SSN-CHG                     CHGBD212
00357                               WRK-EMP-TOT-CHG.                    CHGBD212
00358                                                                   CHGBD212
00359 ***  IF WRK-CURR-EMP = 086243 OR 130205                           CHGBD212
00360 *          OR 075132 OR 048954                                    CHGBD212
00361 *       MOVE WRK-CHG-AMT TO WRK-TOT-CHG-DISP                      CHGBD212
00362 *       DISPLAY WRK-CURR-EMP '  ' WRK-CURR-SSN                    CHGBD212
00363 *          '  ' WRK-TOT-CHG-DISP '  ' WRK-CURR-BYE                CHGBD212
00364 *          '  ' CHG2-CHARGE-DATE                                  CHGBD212
00365 ***  END-IF.                                                      CHGBD212
00366  P1200-EXIT.                                                      CHGBD212
00367      EXIT.                                                        CHGBD212
00368                                                                   CHGBD212
00369  P1300-WRITE-CHG5.                                                CHGBD212
00370      IF WRK-EMP-VALID-NO-88                                       CHGBD212
00371         GO TO P1300-EXIT                                          CHGBD212
00372      END-IF.                                                      CHGBD212
00373                                                                   CHGBD212
00374      MOVE WRK-CURR-EMP           TO CHG5-EMP-NO.                  CHGBD212
00375      MOVE WRK-CURR-BYE           TO CHG5-BYE.                     CHGBD212
00376      MOVE WRK-CURR-SSN           TO CHG5-SSN.                     CHGBD212
00377      SET  CHG5-TYPE-ORIG-88      TO TRUE.                         CHGBD212
00378      MOVE WRK-EMP-SSN-CHG        TO CHG5-TOT-CHG-AMT.             CHGBD212
00379      MOVE WRK-CURR-PROG          TO CHG5-PROGRAM.                 CHGBD212
00380      MOVE ZERO                   TO CHG5-REL-EFF-DT               CHGBD212
00381                                     CHG5-PRED-EMP-NO              CHGBD212
00382                                     CHG5-SUCC-EMP-NO              CHGBD212
00383                                     CHG5-PERCENT-XFER             CHGBD212
00384                                     CHG5-SEQUENCE.                CHGBD212
00385      MOVE WRK-CURR-STATUS        TO CHG5-EMP-STATUS.              CHGBD212
00386 ***  IF WRK-CURR-EMP = 145684 OR 085262                           CHGBD212
00387 *       MOVE WRK-CHG-AMT TO WRK-TOT-CHG-DISP                      CHGBD212
00388 *       DISPLAY WRK-CURR-EMP '  ' WRK-CURR-SSN                    CHGBD212
00389 *          '  ' WRK-TOT-CHG-DISP '  ' WRK-CURR-BYE                CHGBD212
00390 ***  END-IF.                                                      CHGBD212
00391                                                                   CHGBD212
00392      WRITE CHG5-REC.                                              CHGBD212
00393      IF CHG5-FILE-OK-88                                           CHGBD212
00394         ADD 1 TO WRK-CHG5-WRITE                                   CHGBD212
00395      ELSE                                                         CHGBD212
00396         DISPLAY 'CANNOT WRITE TO CHG5 FILE ' CHG5-STATUS          CHGBD212
00397         SET WRK-ERROR-YES-88      TO TRUE                         CHGBD212
00398      END-IF.                                                      CHGBD212
00399                                                                   CHGBD212
00400  P1300-EXIT.                                                      CHGBD212
00401      EXIT.                                                        CHGBD212
00402                                                                   CHGBD212
00403  P2000-EDIT-EMP.                                                  CHGBD212
00404      MOVE CHG2-EMP-TYPE                 TO WRK-RPT-TYPE.          CHGBD212
00405      IF NOT WRK-RPT-TYPE-RATED-88                                 CHGBD212
00406         SET WRK-EMP-VALID-NO-88         TO TRUE                   CHGBD212
00407      ELSE                                                         CHGBD212
00408         MOVE LOW-VALUES                 TO MPRF-KEY-AREA          CHGBD212
00409         SET MPRF-PRF-88                 TO TRUE                   CHGBD212
00410         MOVE CHG2-EMP-NO                TO MPRF-EMP-NO            CHGBD212
00411         MOVE MPRF-KEY-AREA              TO MSKL-KEY-AREA          CHGBD212
00412         PERFORM S910-READ               THRU S910-EXIT            CHGBD212
00413         IF L910-NO-REC-88                                         CHGBD212
00414            PERFORM P2010-NO-EMP-ERR     THRU P2010-EXIT           CHGBD212
00415         ELSE                                                      CHGBD212
00416            MOVE MSKL-REC                TO MPRF-REC               CHGBD212
00417            MOVE MPRF-EMP-STATUS         TO WRK-CURR-STATUS        CHGBD212
00418            IF NOT MPRF-CLASS-RATED-88                             CHGBD212
00419               PERFORM P2020-NOT-RATED   THRU P2020-EXIT           CHGBD212
00420            END-IF                                                 CHGBD212
00421         END-IF                                                    CHGBD212
00422      END-IF.                                                      CHGBD212
00423                                                                   CHGBD212
00424  P2000-EXIT.                                                      CHGBD212
00425      EXIT.                                                        CHGBD212
00426                                                                   CHGBD212
00427  P2010-NO-EMP-ERR.                                                CHGBD212
00428      DISPLAY 'P2010 EMP NOT FOUND: ' CHG2-EMP-NO.                 CHGBD212
00429      SET WRK-EMP-VALID-NO-88     TO TRUE.                         CHGBD212
00430                                                                   CHGBD212
00431      MOVE MSG1-ID2               TO R907-MSG-ID.                  CHGBD212
00432      MOVE CHG2-EMP-NO            TO R907-EMP-NO                   CHGBD212
00433                                     MSG1-EMP-NO.                  CHGBD212
00434      MOVE MSG1-LONG-TEXT         TO R907-MSG-TEXT.                CHGBD212
00435      MOVE WRK-MOD-NAME           TO R907-MODULE-NAME.             CHGBD212
00436      MOVE R907-REC               TO RSKL-REC.                     CHGBD212
00437      PERFORM S946-RPT-REC-O      THRU S946-EXIT.                  CHGBD212
00438                                                                   CHGBD212
00439  P2010-EXIT.                                                      CHGBD212
00440      EXIT.                                                        CHGBD212
00441                                                                   CHGBD212
00442  P2020-NOT-RATED.                                                 CHGBD212
00443      DISPLAY 'P2020 EMP NOT RATED: ' CHG2-EMP-NO.                 CHGBD212
00444      SET WRK-EMP-VALID-NO-88     TO TRUE.                         CHGBD212
00445                                                                   CHGBD212
00446      MOVE MSG2-ID2               TO R907-MSG-ID.                  CHGBD212
00447      MOVE CHG2-EMP-NO            TO R907-EMP-NO                   CHGBD212
00448                                     MSG2-EMP-NO.                  CHGBD212
00449      MOVE MSG2-LONG-TEXT         TO R907-MSG-TEXT.                CHGBD212
00450      MOVE WRK-MOD-NAME           TO R907-MODULE-NAME.             CHGBD212
00451      MOVE R907-REC               TO RSKL-REC.                     CHGBD212
00452      PERFORM S946-RPT-REC-O      THRU S946-EXIT.                  CHGBD212
00453                                                                   CHGBD212
00454  P2020-EXIT.                                                      CHGBD212
00455      EXIT.                                                        CHGBD212
00456                                                                   CHGBD212
00457                                                                   CHGBD212
00458  S001-FROM-FED-8.                                                 CHGBD212
00459      SET L001-FROM-FED-8 TO TRUE.                                 CHGBD212
00460      GO TO S001-DATE.                                             CHGBD212
00461                                                                   CHGBD212
00462  S001-FROM-ABS.                                                   CHGBD212
00463      SET L001-FROM-ABS-DAY  TO TRUE.                              CHGBD212
00464      GO TO S001-DATE.                                             CHGBD212
00465                                                                   CHGBD212
00466  S001-DATE.                                                       CHGBD212
00467      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBD212
00468  S001-EXIT. EXIT.                                                 CHGBD212
00469                                                                   CHGBD212
00470  S004-FROM-5.                                                     CHGBD212
00471      SET L004-FROM-5    TO TRUE.                                  CHGBD212
00472      GO TO S004-YRQ.                                              CHGBD212
00473                                                                   CHGBD212
00474  S004-FROM-3.                                                     CHGBD212
00475      SET L004-FROM-3    TO TRUE.                                  CHGBD212
00476      GO TO S004-YRQ.                                              CHGBD212
00477                                                                   CHGBD212
00478  S004-FROM-DATE.                                                  CHGBD212
00479      SET L004-FROM-DATE TO TRUE.                                  CHGBD212
00480      GO TO S004-YRQ.                                              CHGBD212
00481                                                                   CHGBD212
00482  S004-FROM-ABS.                                                   CHGBD212
00483      SET L004-FROM-ABS  TO TRUE.                                  CHGBD212
00484      GO TO S004-YRQ.                                              CHGBD212
00485                                                                   CHGBD212
00486  S004-YRQ.                                                        CHGBD212
00487      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBD212
00488  S004-EXIT. EXIT.                                                 CHGBD212
00489                                                                   CHGBD212
00490  S005-SYSTEM-TIME.                                                CHGBD212
00491      CALL 'DTSBU005' USING L005-LINK-AREA.                        CHGBD212
00492  S005-EXIT.                                                       CHGBD212
00493      EXIT.                                                        CHGBD212
00494                                                                   CHGBD212
00495  S006-FROM-QTR.                                                   CHGBD212
00496      SET L006-FROM-QTR TO TRUE.                                   CHGBD212
00497      GO TO S006-UI-RATE-YEAR.                                     CHGBD212
00498                                                                   CHGBD212
00499  S006-UI-RATE-YEAR.                                               CHGBD212
00500      CALL 'DTSBU006' USING L006-LINK-AREA.                        CHGBD212
00501  S006-EXIT.                                                       CHGBD212
00502      EXIT.                                                        CHGBD212
00503                                                                   CHGBD212
00504  S910-OPEN-READ.                                                  CHGBD212
00505      SET L910-OPEN-READ-88 TO TRUE.                               CHGBD212
00506      GO TO S910-MSTR-IO.                                          CHGBD212
00507                                                                   CHGBD212
00508  S910-OPEN-UPDATE.                                                CHGBD212
00509      SET L910-OPEN-UPDATE-88 TO TRUE.                             CHGBD212
00510      GO TO S910-MSTR-IO.                                          CHGBD212
00511                                                                   CHGBD212
00512  S910-READ.                                                       CHGBD212
00513      SET L910-READ-88 TO TRUE.                                    CHGBD212
00514      GO TO S910-MSTR-IO.                                          CHGBD212
00515                                                                   CHGBD212
00516  S910-START-BROWSE.                                               CHGBD212
00517      SET L910-START-BROWSE-88 TO TRUE.                            CHGBD212
00518      GO TO S910-MSTR-IO.                                          CHGBD212
00519                                                                   CHGBD212
00520  S910-READ-NEXT.                                                  CHGBD212
00521      SET L910-READ-NEXT-88    TO TRUE.                            CHGBD212
00522      GO TO S910-MSTR-IO.                                          CHGBD212
00523                                                                   CHGBD212
00524  S910-WRITE.                                                      CHGBD212
00525      SET L910-WRITE-88        TO TRUE.                            CHGBD212
00526      GO TO S910-MSTR-IO.                                          CHGBD212
00527                                                                   CHGBD212
00528  S910-CLOSE.                                                      CHGBD212
00529      SET L910-CLOSE-88 TO TRUE.                                   CHGBD212
00530      GO TO S910-MSTR-IO.                                          CHGBD212
00531                                                                   CHGBD212
00532  S910-MSTR-IO.                                                    CHGBD212
00533      CALL 'DTSBU910' USING L910-LINK-AREA                         CHGBD212
00534                            MSKL-REC.                              CHGBD212
00535                                                                   CHGBD212
00536  S910-EXIT.                                                       CHGBD212
00537      EXIT.                                                        CHGBD212
00538                                                                   CHGBD212
00539 ** REPORT RECORD I-O                                              CHGBD212
00540  S946-RPT-REC-O.                                                  CHGBD212
00541      CALL 'DTSBU946' USING RSKL-REC.                              CHGBD212
00542                                                                   CHGBD212
00543  S946-EXIT.                                                       CHGBD212
00544      EXIT.                                                        CHGBD212
00545                                                                   CHGBD212
00546  T0000-TERMINATE.                                                 CHGBD212
00547                                                                   CHGBD212
00548      CLOSE BD205-CHG-FILE-IN                                      CHGBD212
00549            CHG5-FILE-OUT.                                         CHGBD212
00550                                                                   CHGBD212
00551      PERFORM S910-CLOSE     THRU S910-EXIT.                       CHGBD212
00552                                                                   CHGBD212
00553      DISPLAY '***********************************************'.   CHGBD212
00554      DISPLAY '***             CHGBD210 COUNTS             *** '.  CHGBD212
00555      DISPLAY '***'.                                               CHGBD212
00556                                                                   CHGBD212
00557      DISPLAY ' CHGBD210 CHARGE RECORD READ:        '              CHGBD212
00558         WRK-BD205-CHG-READ.                                       CHGBD212
00559                                                                   CHGBD212
00560      DISPLAY ' CHGM005  CHARGE RECORDS WRITTEN:    '              CHGBD212
00561         WRK-CHG5-WRITE.                                           CHGBD212
00562                                                                   CHGBD212
00563      DISPLAY '***********************************************'.   CHGBD212
00564                                                                   CHGBD212
00565  T0000-EXIT.                                                      CHGBD212
00566      EXIT.                                                        CHGBD212
00567                                                                   CHGBD212
00568  S999-ABEND.                                                      CHGBD212
00569      DISPLAY '****  CHGBD212 ABENDING '                           CHGBD212
00570         ABEND-MSG.                                                CHGBD212
00571      CALL ABEND-MOD USING ABEND-CODE.                             CHGBD212
00572                                                                   CHGBD212
00573  S999-EXIT.                                                       CHGBD212
00574      EXIT.                                                        CHGBD212
00575                                                                   CHGBD212
