00001  IDENTIFICATION DIVISION.                                         05/25/10
00002  PROGRAM-ID.             CHGRT300.                                CHGRT300
00003 *AUTHOR.                 NGI.                                        LV003
00004 *DATE-WRITTEN.           FEBRUARY 2009.                           CHGRT300
00005  DATE-COMPILED.                                                   CHGRT300
00006      SKIP3                                                        CHGRT300
00007 *****                                                             CHGRT300
00008 *                                                                 CHGRT300
00009 * FUNCTION:                                                       CHGRT300
00010 *                                                                 CHGRT300
00011 *        CHARGE PRINT DRIVER USED FOR REPRINTS SELF INS           CHGRT300
00012 * BILLS.                                                          CHGRT300
00013 *****                                                             CHGRT300
00014 *                                                                 CHGRT300
00015 * DESCRIPTION:                                                    CHGRT300
00016 *                                                                 CHGRT300
00017 *    DRIVER FOR BENEFIT CHARGE REPORTING PRINT PROCESS.           CHGRT300
00018 *    CHGBD300 READS RECORDS SELECTED BY CHGBD210 AND              CHGRT300
00019 *    BD220, AND CALL CHGBR110 TO REPRINT SI BILLS.                CHGRT300
00020 *                                                                 CHGRT300
00021 *****                                                             CHGRT300
00022 *                                                                 CHGRT300
00023 * INPUT:                                                          CHGRT300
00024 *                                                                 CHGRT300
00025 *   BD220CHG - CHARGE RECORDS GENERATED BY CHGBD220.              CHGRT300
00026 *                                                                 CHGRT300
00027 *   CHGPARM  - PARAMETER DATA INPUT FROM CHGBD210                 CHGRT300
00028 * CHGSIEMP - SELECTED EMPLOYERS FOR REPRINT                       CHGRT300
00029 ******                                                            CHGRT300
00030 *                                                                 CHGRT300
00031 * OUTPUT:                                                         CHGRT300
00032 *                                                                 CHGRT300
00033 *   RPC110R1 - PRINT SELF-INSURED BILLS                           CHGRT300
00034 *   RPC110R2 - SELF-INSURED QUARTERLY/ANNUAL CHARGE SUMMARY REPORTCHGRT300
00035 *              AND BENEFIT CHARGE SPECIAL REPORT                  CHGRT300
00036 *****                                                             CHGRT300
00037 ***************************************************************** CHGRT300
00038 *                                                               * CHGRT300
00039 * MODIFICATION HISTORY:                                         * CHGRT300
00040 *                                                               * CHGRT300
00041 * 07-10-2009 COPIED FROM CHGBD300                               * CHGRT300
00042 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1* CHGRT300
00043 *                                                               * CHGRT300
00044 *                                                               * CHGRT300
00045 * 05-14-2010 RECOMPILE FOR NEW VERSION OF CHGIM004              * CHGRT300
00046 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1* CHGRT300
00047 *                                                               * CHGRT300
00048 *                                                               * CHGRT300
00049 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGRT300
00050 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGRT300
00051 *            REFERENCE RFP #****         AUTHOR OF CHANGE - *** * CHGRT300
00052 ***************************************************************** CHGRT300
00053                                                                   CHGRT300
00054      SKIP3                                                        CHGRT300
00055  ENVIRONMENT DIVISION.                                            CHGRT300
00056      SKIP3                                                        CHGRT300
00057  INPUT-OUTPUT SECTION.                                            CHGRT300
00058      SKIP3                                                        CHGRT300
00059  FILE-CONTROL.                                                    CHGRT300
00060                                                                   CHGRT300
00061      SELECT CHG-PARM-FILE  ASSIGN TO CHGPARM                      CHGRT300
00062             FILE STATUS IS CHG-PARM-STATUS.                       CHGRT300
00063                                                                   CHGRT300
00064      SELECT CHG-EMPL-FILE  ASSIGN TO CHGEMPL                      CHGRT300
00065             FILE STATUS IS CHG-EMPL-STATUS.                       CHGRT300
00066                                                                   CHGRT300
00067      SELECT BD220-CHG-FILE ASSIGN TO BD220CHG                     CHGRT300
00068             FILE STATUS IS BD220-CHG-STATUS.                      CHGRT300
00069      EJECT                                                        CHGRT300
00070  DATA DIVISION.                                                   CHGRT300
00071      SKIP3                                                        CHGRT300
00072  FILE SECTION.                                                    CHGRT300
00073      SKIP3                                                        CHGRT300
00074                                                                   CHGRT300
00075  FD  CHG-EMPL-FILE                                                CHGRT300
00076      RECORDING MODE IS F                                          CHGRT300
00077      BLOCK CONTAINS 0 CHARACTERS.                                 CHGRT300
00078      SKIP1                                                        CHGRT300
00079  01  CHG-EMPL-REC.                                                CHGRT300
00080      05  CHG-EMP-NO               PIC 9(6).                       CHGRT300
00081      05  FILLER                   PIC X(74).                      CHGRT300
00082                                                                   CHGRT300
00083  FD  CHG-PARM-FILE                                                CHGRT300
00084      RECORDING MODE IS F                                          CHGRT300
00085      BLOCK CONTAINS 0 CHARACTERS.                                 CHGRT300
00086      SKIP1                                                        CHGRT300
00087  01  CHG-PARM-REC.                                                CHGRT300
00088  ++INCLUDE CHGIM003                                               CHGRT300
00089                                                                   CHGRT300
00090  FD  BD220-CHG-FILE                                               CHGRT300
00091      LABEL RECORDS ARE STANDARD                                   CHGRT300
00092      BLOCK CONTAINS 0 CHARACTERS.                                 CHGRT300
00093      SKIP1                                                        CHGRT300
00094  01  BD220-CHG-REC.                                               CHGRT300
00095  ++INCLUDE CHGIM004                                               CHGRT300
00096      EJECT                                                        CHGRT300
00097  WORKING-STORAGE SECTION.                                         CHGRT300
000975 77  PAN-VALET PICTURE X(24) VALUE '003CHGRT300  05/25/10'.       CHGRT300
00098                                                                   CHGRT300
00099  01  WRK-AREA.                                                    CHGRT300
00100 *&                                                                CHGRT300
00101      05  WRK-CHG-EMP-NO              PIC S9(07) COMP-3 VALUE +0.  CHGRT300
00102      05  WRK-EMP-NO                  PIC S9(07) COMP-3 VALUE +0.  CHGRT300
00103      05  WRK-EMP-TOT                 PIC S9(08)V99 COMP-3         CHGRT300
00104                                  VALUE +0.                        CHGRT300
00105      05  WRK-CHG4-EMP-NO             PIC  9(06) VALUE 0.          CHGRT300
00106      05  WRK-EMPL-CHG-READ           PIC  9(06) VALUE 0.          CHGRT300
00107      05  WRK-RATED-TOT               PIC S9(09)V99 COMP-3         CHGRT300
00108                                  VALUE +0.                        CHGRT300
00109      05  WRK-EMP-TOT-DISP            PIC Z9(07)9.99-.             CHGRT300
00110      05  WRK-RATED-TOT-DISP          PIC Z9(08)9.99-.             CHGRT300
00111                                                                   CHGRT300
00112 **   05  WRK-RPT-TYPE-RATED         PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300
00113 **   05  WRK-RPT-TYPE-RATED-DISP    PIC Z9(08)9.99-.              CHGRT300
00114      05  WRK-RPT-TYPE-SELF-INS      PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300
00115      05  WRK-RPT-TYPE-SELF-INS-DISP PIC Z9(08)9.99-.              CHGRT300
00116      05  WRK-RPT-TYPE-CWC           PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300
00117      05  WRK-RPT-TYPE-CWC-DISP      PIC Z9(08)9.99-.              CHGRT300
00118      05  WRK-RPT-TYPE-FED           PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300
00119      05  WRK-RPT-TYPE-FED-DISP      PIC Z9(08)9.99-.              CHGRT300
00120      05  WRK-RPT-TYPE-TEUC          PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300
00121      05  WRK-RPT-TYPE-TEUC-DISP     PIC Z9(08)9.99-.              CHGRT300
00122      05  WRK-RPT-TYPE-DC-GOV        PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300
00123      05  WRK-RPT-TYPE-DC-GOV-DISP   PIC Z9(08)9.99-.              CHGRT300
00124                                                                   CHGRT300
00125      05  ABEND-CODE                  PIC S9(04)  COMP             CHGRT300
00126                                  VALUE +300.                      CHGRT300
00127      05  ABEND-MSG                   PIC  X(60).                  CHGRT300
00128                                                                   CHGRT300
00129      05  CHG-PARM-STATUS             PIC  X(02) VALUE SPACES.     CHGRT300
00130          88  CHG-PARM-FILE-OK-88       VALUE ZERO.                CHGRT300
00131          88  CHG-PARM-FILE-EOF-88      VALUE '10'.                CHGRT300
00132                                                                   CHGRT300
00133      05  CHG-EMPL-STATUS             PIC  X(02) VALUE SPACES.     CHGRT300
00134          88  CHG-EMPL-FILE-OK-88       VALUE ZERO.                CHGRT300
00135          88  CHG-EMPL-FILE-EOF-88      VALUE '10'.                CHGRT300
00136                                                                   CHGRT300
00137      05  BD220-CHG-STATUS            PIC  X(02) VALUE SPACES.     CHGRT300
00138          88  BD220-FILE-OK-88    VALUE ZERO.                      CHGRT300
00139          88  BD220-FILE-EOF-88   VALUE '10'.                      CHGRT300
00140                                                                   CHGRT300
00141      05  WRK-SELF-INS-STEP     PIC  X(01).                        CHGRT300
00142          88  WRK-SELF-INS-STEP1-88  VALUE '1'.                    CHGRT300
00143          88  WRK-SELF-INS-STEP2-88  VALUE '2'.                    CHGRT300
00144                                                                   CHGRT300
00145      05  WRK-ERROR-IND               PIC  X(01).                  CHGRT300
00146          88  WRK-ERROR-YES-88    VALUE 'Y'.                       CHGRT300
00147          88  WRK-ERROR-NO-88     VALUE 'N'.                       CHGRT300
00148                                                                   CHGRT300
00149      05  WRK-EMP-FOUND-IND           PIC  X(01).                  CHGRT300
00150          88  WRK-EMP-FOUND-YES-88      VALUE 'Y'.                 CHGRT300
00151          88  WRK-EMP-FOUND-NO-88       VALUE 'N'.                 CHGRT300
00152                                                                   CHGRT300
00153      05  WRK-REPORT-MOD              PIC X(08).                   CHGRT300
00154 **       88  RATED-MOD                 VALUE 'CHGBR100'.          CHGRT300
00155          88  SELF-INS-MOD              VALUE 'CHGBR110'.          CHGRT300
00156          88  TPS-UNIV-MOD              VALUE 'CHGBR111'.          CHGRT300
00157          88  T026-TAX-MOD              VALUE 'CHGBR112'.          CHGRT300
00158          88  CWC-MOD                   VALUE 'CHGBR120'.          CHGRT300
00159          88  FEDERAL-MOD               VALUE 'CHGBR130'.          CHGRT300
00160          88  PGM-NULL-MOD              VALUE 'CHGBR140'.          CHGRT300
00161          88  TEUC-MOD                  VALUE 'CHGBR150'.          CHGRT300
00162          88  DC-GOV-MOD                VALUE 'CHGBR160'.          CHGRT300
00163                                                                   CHGRT300
00164                                                                   CHGRT300
00165      05  WRK-BD220-CHG-READ          PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00166      05  WRK-BD220-CHG-SELECTED      PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00167 **   05  WRK-RATED-READ              PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00168      05  WRK-SELF-INS-READ           PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00169      05  WRK-FED-READ                PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00170      05  WRK-TEUC-READ               PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00171      05  WRK-CWC-READ                PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00172      05  WRK-DC-GOV-READ             PIC  9(07) COMP-3 VALUE 0.   CHGRT300
00173                                                                   CHGRT300
00174  01  REPORT-LINK-AREA.                                            CHGRT300
00175  ++INCLUDE CHGIL001                                               CHGRT300
00176                                                                   CHGRT300
00177  01  L001-LINK-AREA.                                              CHGRT300
00178  ++INCLUDE DTSIL001                                               CHGRT300
00179      EJECT                                                        CHGRT300
00180  01  L003-LINK-AREA.                                              CHGRT300
00181  ++INCLUDE DTSIL003                                               CHGRT300
00182      EJECT                                                        CHGRT300
00183  01  L004-LINK-AREA.                                              CHGRT300
00184  ++INCLUDE DTSIL004                                               CHGRT300
00185      EJECT                                                        CHGRT300
00186  01  L005-LINK-AREA.                                              CHGRT300
00187  ++INCLUDE DTSIL005                                               CHGRT300
00188      EJECT                                                        CHGRT300
00189  01  L931-LINK-AREA.                                              CHGRT300
00190  ++INCLUDE DTSIL931                                               CHGRT300
00191      SKIP3                                                        CHGRT300
00192  01  FSKL-REC.                                                    CHGRT300
00193  ++INCLUDE DTSIFSKL                                               CHGRT300
00194      SKIP3                                                        CHGRT300
00195  01  FQTR-REC.                                                    CHGRT300
00196  ++INCLUDE DTSIFQTR                                               CHGRT300
00197      EJECT                                                        CHGRT300
00198  LINKAGE SECTION.                                                 CHGRT300
00199      SKIP3                                                        CHGRT300
00200  01  PARM-AREA.                                                   CHGRT300
00201      05  PARM-LENGTH                PIC S9(04)  COMP.             CHGRT300
00202      05  PARM-DATA.                                               CHGRT300
00203          10  PARM-SELF-INS-STEP     PIC  X(01).                   CHGRT300
00204              88  PARM-SELF-INS-STEP1-88  VALUE '1'.               CHGRT300
00205              88  PARM-SELF-INS-STEP2-88  VALUE '2'.               CHGRT300
00206              88  PARM-SELF-INS-VALID-88  VALUE '1' '2'.           CHGRT300
00207      SKIP2                                                        CHGRT300
00208  PROCEDURE DIVISION USING PARM-AREA.                              CHGRT300
00209  CHGBD300-MAIN.                                                   CHGRT300
00210      PERFORM I0000-INITIATE THRU I0000-EXIT.                      CHGRT300
00211      IF WRK-ERROR-YES-88                                          CHGRT300
00212         DISPLAY '*** JOB CANCELLED DUE TO ERRORS ***'             CHGRT300
00213         GO TO CHGBD300-EXIT.                                      CHGRT300
00214                                                                   CHGRT300
00215      PERFORM P0000-PROCESS THRU P0000-EXIT.                       CHGRT300
00216                                                                   CHGRT300
00217      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     CHGRT300
00218                                                                   CHGRT300
00219  CHGBD300-EXIT.                                                   CHGRT300
00220      STOP RUN.                                                    CHGRT300
00221      EJECT                                                        CHGRT300
00222  I0000-INITIATE.                                                  CHGRT300
00223      MOVE ZERO TO  WRK-BD220-CHG-READ                             CHGRT300
00224                    WRK-BD220-CHG-SELECTED                         CHGRT300
00225 **                 WRK-RATED-READ                                 CHGRT300
00226                    WRK-SELF-INS-READ                              CHGRT300
00227                    WRK-FED-READ                                   CHGRT300
00228                    WRK-TEUC-READ                                  CHGRT300
00229                    WRK-CWC-READ                                   CHGRT300
00230                    WRK-DC-GOV-READ.                               CHGRT300
00231                                                                   CHGRT300
00232      SET WRK-ERROR-NO-88 TO TRUE.                                 CHGRT300
00233                                                                   CHGRT300
00234      PERFORM I0100-INPUT-PARM           THRU I0100-EXIT.          CHGRT300
00235                                                                   CHGRT300
00236      PERFORM I1000-READ-BD100-PARMS     THRU I1000-EXIT.          CHGRT300
00237                                                                   CHGRT300
00238      IF CHG3-RUN-TYPE-QTRLY-88                                    CHGRT300
00239         PERFORM I2000-CHK-QTR-STATUS    THRU I2000-EXIT.          CHGRT300
00240                                                                   CHGRT300
00241      PERFORM I4000-OPEN-CHARGE-FILE     THRU I4000-EXIT.          CHGRT300
00242                                                                   CHGRT300
00243      PERFORM I6000-INIT-REPORTS         THRU I6000-EXIT.          CHGRT300
00244                                                                   CHGRT300
00245  I0000-EXIT.                                                      CHGRT300
00246      EXIT.                                                        CHGRT300
00247                                                                   CHGRT300
00248  I0100-INPUT-PARM.                                                CHGRT300
00249      IF PARM-LENGTH = +1                                          CHGRT300
00250          NEXT SENTENCE                                            CHGRT300
00251      ELSE                                                         CHGRT300
00252          MOVE 'PARM-LENGTH NOT EQUAL TO 1'                        CHGRT300
00253            TO ABEND-MSG                                           CHGRT300
00254          PERFORM S999-ABEND THRU S999-EXIT                        CHGRT300
00255      END-IF.                                                      CHGRT300
00256                                                                   CHGRT300
00257      IF PARM-SELF-INS-VALID-88                                    CHGRT300
00258          MOVE PARM-SELF-INS-STEP TO WRK-SELF-INS-STEP             CHGRT300
00259          DISPLAY 'SELF INSURED JOB STEP ' WRK-SELF-INS-STEP       CHGRT300
00260      ELSE                                                         CHGRT300
00261          STRING 'INVALID PARM ' PARM-SELF-INS-STEP                CHGRT300
00262            DELIMITED BY SIZE                                      CHGRT300
00263            INTO ABEND-MSG                                         CHGRT300
00264          PERFORM S999-ABEND THRU S999-EXIT                        CHGRT300
00265      END-IF.                                                      CHGRT300
00266  I0100-EXIT.                                                      CHGRT300
00267      EXIT.                                                        CHGRT300
00268                                                                   CHGRT300
00269  I1000-READ-BD100-PARMS.                                          CHGRT300
00270      OPEN INPUT CHG-PARM-FILE.                                    CHGRT300
00271      IF NOT CHG-PARM-FILE-OK-88                                   CHGRT300
00272         DISPLAY 'CHG PARM FILE OPEN ERROR: ' CHG-PARM-STATUS      CHGRT300
00273         SET WRK-ERROR-YES-88 TO TRUE                              CHGRT300
00274         GO TO I1000-EXIT.                                         CHGRT300
00275                                                                   CHGRT300
00276      OPEN INPUT CHG-EMPL-FILE.                                    CHGRT300
00277      IF NOT CHG-EMPL-FILE-OK-88                                   CHGRT300
00278         DISPLAY 'CHG EMPL FILE OPEN ERROR: ' CHG-PARM-STATUS      CHGRT300
00279         SET WRK-ERROR-YES-88 TO TRUE                              CHGRT300
00280         GO TO I1000-EXIT.                                         CHGRT300
00281                                                                   CHGRT300
00282      READ CHG-PARM-FILE.                                          CHGRT300
00283      IF NOT CHG-PARM-FILE-OK-88                                   CHGRT300
00284         DISPLAY 'CHG-PARM READ ERROR: ' CHG-PARM-STATUS           CHGRT300
00285         SET WRK-ERROR-YES-88 TO TRUE                              CHGRT300
00286         GO TO I1000-EXIT.                                         CHGRT300
00287                                                                   CHGRT300
00288      IF WRK-SELF-INS-STEP2-88                                     CHGRT300
00289         IF CHG3-RUN-TYPE-QTRLY-88                                 CHGRT300
00290            NEXT SENTENCE                                          CHGRT300
00291         ELSE                                                      CHGRT300
00292            DISPLAY 'STEP 1 NOT YET RUN FOR THIS QTR '             CHGRT300
00293            PERFORM S999-ABEND  THRU S999-EXIT                     CHGRT300
00294         END-IF                                                    CHGRT300
00295      END-IF.                                                      CHGRT300
00296                                                                   CHGRT300
00297  I1000-EXIT.                                                      CHGRT300
00298      EXIT.                                                        CHGRT300
00299                                                                   CHGRT300
00300  I2000-CHK-QTR-STATUS.                                            CHGRT300
00301      MOVE SPACE           TO L931-TRACE-IND.                      CHGRT300
00302      MOVE 'CHGBD300'      TO L931-MOD-NAME.                       CHGRT300
00303                                                                   CHGRT300
00304      PERFORM S931-OPEN-READ    THRU S931-EXIT.                    CHGRT300
00305      IF L931-OK-88                                                CHGRT300
00306         NEXT SENTENCE                                             CHGRT300
00307      ELSE                                                         CHGRT300
00308         DISPLAY 'CANNOT OPEN REF FILE '                           CHGRT300
00309         PERFORM S999-ABEND  THRU S999-EXIT.                       CHGRT300
00310                                                                   CHGRT300
00311      MOVE LOW-VALUES TO FQTR-KEY-AREA.                            CHGRT300
00312                                                                   CHGRT300
00313      SET FQTR-QTR-88 TO TRUE.                                     CHGRT300
00314                                                                   CHGRT300
00315      MOVE CHG3-BEGIN-DATE TO L004-DATE.                           CHGRT300
00316      PERFORM S004-FROM-DATE THRU S004-EXIT.                       CHGRT300
00317      MOVE L004-QTR-5-9 TO FQTR-YRQ.                               CHGRT300
00318                                                                   CHGRT300
00319      MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA.                         CHGRT300
00320                                                                   CHGRT300
00321      PERFORM S931-READ THRU S931-EXIT.                            CHGRT300
00322                                                                   CHGRT300
00323      IF L931-NO-REC-88                                            CHGRT300
00324         PERFORM S931-CLOSE        THRU S931-EXIT                  CHGRT300
00325         GO TO I2000-EXIT                                          CHGRT300
00326      END-IF.                                                      CHGRT300
00327                                                                   CHGRT300
00328      MOVE FSKL-REC      TO FQTR-REC.                              CHGRT300
00329                                                                   CHGRT300
00330      PERFORM S931-CLOSE        THRU S931-EXIT.                    CHGRT300
00331                                                                   CHGRT300
00332      IF FQTR-SELF-INS-CHG-RUN-DATE NOT NUMERIC                    CHGRT300
00333         MOVE ZERO TO FQTR-SELF-INS-CHG-RUN-DATE.                  CHGRT300
00334                                                                   CHGRT300
00335      IF WRK-SELF-INS-STEP1-88                                     CHGRT300
00336         IF FQTR-SELF-INS-CHG-RUN-DATE = ZERO                      CHGRT300
00337            NEXT SENTENCE                                          CHGRT300
00338         ELSE                                                      CHGRT300
00339            DISPLAY 'CHARGES ALREADY RUN FOR THIS QTR ' FQTR-YRQ   CHGRT300
00340            PERFORM S999-ABEND  THRU S999-EXIT                     CHGRT300
00341         END-IF                                                    CHGRT300
00342      END-IF.                                                      CHGRT300
00343                                                                   CHGRT300
00344  I2000-EXIT.                                                      CHGRT300
00345      EXIT.                                                        CHGRT300
00346                                                                   CHGRT300
00347  I4000-OPEN-CHARGE-FILE.                                          CHGRT300
00348      OPEN INPUT BD220-CHG-FILE.                                   CHGRT300
00349      IF NOT BD220-FILE-OK-88                                      CHGRT300
00350         DISPLAY 'BD220 FILE OPEN ERROR: ' BD220-CHG-STATUS        CHGRT300
00351         SET WRK-ERROR-YES-88 TO TRUE.                             CHGRT300
00352                                                                   CHGRT300
00353  I4000-EXIT.                                                      CHGRT300
00354      EXIT.                                                        CHGRT300
00355                                                                   CHGRT300
00356  I6000-INIT-REPORTS.                                              CHGRT300
00357      MOVE CHG3-BEGIN-DATE       TO CHG-LINK1-PERIOD-BEGIN.        CHGRT300
00358      MOVE CHG3-END-DATE         TO CHG-LINK1-PERIOD-END.          CHGRT300
00359      MOVE CHG3-RUN-TYPE         TO CHG-LINK1-RUN-TYPE.            CHGRT300
00360                                                                   CHGRT300
00361      SET CHG-LINK1-CMD-INIT-88  TO TRUE.                          CHGRT300
00362                                                                   CHGRT300
00363      IF WRK-SELF-INS-STEP1-88                                     CHGRT300
00364         SET CHG-LINK1-SELF-INS-STEP1-88  TO TRUE                  CHGRT300
00365      ELSE                                                         CHGRT300
00366         SET CHG-LINK1-SELF-INS-STEP2-88  TO TRUE                  CHGRT300
00367      END-IF.                                                      CHGRT300
00368                                                                   CHGRT300
00369 *&                                                                CHGRT300
00370      DISPLAY 'BD300 I6 LINK1 SI STEP '                            CHGRT300
00371         CHG-LINK1-SELF-INS-STEP.                                  CHGRT300
00372      DISPLAY '   WRK STEP ' WRK-SELF-INS-STEP.                    CHGRT300
00373 *&                                                                CHGRT300
00374 ***  IF CHG3-RPT-TYPE-RATED-88                                    CHGRT300
00375 *       SET RATED-MOD             TO TRUE                         CHGRT300
00376 ***     PERFORM S2000-CALL  THRU S2000-EXIT.                      CHGRT300
00377                                                                   CHGRT300
00378      IF CHG3-RPT-TYPE-SELF-INS-88                                 CHGRT300
00379         SET SELF-INS-MOD          TO TRUE                         CHGRT300
00380         PERFORM S2000-CALL  THRU S2000-EXIT.                      CHGRT300
00381                                                                   CHGRT300
00382      IF CHG3-RUN-TYPE-QTRLY-88                                    CHGRT300
00383         SET TPS-UNIV-MOD          TO TRUE                         CHGRT300
00384         PERFORM S2000-CALL  THRU S2000-EXIT                       CHGRT300
00385         SET T026-TAX-MOD          TO TRUE                         CHGRT300
00386         PERFORM S2000-CALL  THRU S2000-EXIT                       CHGRT300
00387      END-IF.                                                      CHGRT300
00388                                                                   CHGRT300
00389      IF CHG3-RPT-TYPE-CWC-88                                      CHGRT300
00390         SET CWC-MOD               TO TRUE                         CHGRT300
00391         PERFORM S2000-CALL  THRU S2000-EXIT.                      CHGRT300
00392                                                                   CHGRT300
00393      IF CHG3-RPT-TYPE-FED-88                                      CHGRT300
00394         SET FEDERAL-MOD           TO TRUE                         CHGRT300
00395         PERFORM S2000-CALL  THRU S2000-EXIT.                      CHGRT300
00396                                                                   CHGRT300
00397      IF CHG3-RPT-TYPE-TEUC-88                                     CHGRT300
00398         SET TEUC-MOD              TO TRUE                         CHGRT300
00399         PERFORM S2000-CALL  THRU S2000-EXIT.                      CHGRT300
00400                                                                   CHGRT300
00401      IF CHG3-RPT-TYPE-DC-88                                       CHGRT300
00402         SET DC-GOV-MOD            TO TRUE                         CHGRT300
00403         PERFORM S2000-CALL  THRU S2000-EXIT.                      CHGRT300
00404                                                                   CHGRT300
00405  I6000-EXIT.                                                      CHGRT300
00406      EXIT.                                                        CHGRT300
00407                                                                   CHGRT300
00408                                                                   CHGRT300
00409  P0000-PROCESS.                                                   CHGRT300
00410      PERFORM P1000-READ-CHARGES THRU P1000-EXIT                   CHGRT300
00411         UNTIL BD220-FILE-EOF-88                                   CHGRT300
00412         OR CHG-EMPL-FILE-EOF-88                                   CHGRT300
00413         OR WRK-ERROR-YES-88.                                      CHGRT300
00414                                                                   CHGRT300
00415  P0000-EXIT.                                                      CHGRT300
00416      EXIT.                                                        CHGRT300
00417                                                                   CHGRT300
00418  P1000-READ-CHARGES.                                              CHGRT300
00419      PERFORM S1000-READ-CHG-FILE THRU S1000-EXIT.                 CHGRT300
00420         MOVE CHG4-EMP-NO TO WRK-CHG4-EMP-NO                       CHGRT300
00421      IF BD220-FILE-EOF-88                                         CHGRT300
00422      OR WRK-ERROR-YES-88                                          CHGRT300
00423         GO TO P1000-EXIT.                                         CHGRT300
00424                                                                   CHGRT300
00425      DISPLAY 'CHG4:' WRK-CHG4-EMP-NO                              CHGRT300
00426      DISPLAY 'CHGR:' CHG-EMP-NO                                   CHGRT300
00427                                                                   CHGRT300
00428      IF WRK-CHG-EMP-NO = 0                                        CHGRT300
00429         PERFORM S1100-READ-EMPL-FILE THRU S1100-EXIT              CHGRT300
00430        IF CHG-EMPL-FILE-EOF-88                                    CHGRT300
00431           OR WRK-ERROR-YES-88                                     CHGRT300
00432           GO TO P1000-EXIT                                        CHGRT300
00433        ELSE                                                       CHGRT300
00434           MOVE CHG-EMP-NO TO WRK-CHG-EMP-NO.                      CHGRT300
00435                                                                   CHGRT300
00436      IF CHG4-EMP-NO < WRK-CHG-EMP-NO                              CHGRT300
00437         GO TO P1000-EXIT.                                         CHGRT300
00438                                                                   CHGRT300
00439      IF CHG4-EMP-NO NOT EQUAL  WRK-CHG-EMP-NO                     CHGRT300
00440         PERFORM S1100-READ-EMPL-FILE THRU S1100-EXIT              CHGRT300
00441        IF CHG-EMPL-FILE-EOF-88                                    CHGRT300
00442           OR WRK-ERROR-YES-88                                     CHGRT300
00443           GO TO P1000-EXIT                                        CHGRT300
00444        ELSE                                                       CHGRT300
00445           MOVE CHG-EMP-NO TO WRK-CHG-EMP-NO.                      CHGRT300
00446                                                                   CHGRT300
00447      IF CHG4-EMP-NO < WRK-CHG-EMP-NO                              CHGRT300
00448         GO TO P1000-EXIT                                          CHGRT300
00449      ELSE                                                         CHGRT300
00450         IF CHG4-EMP-NO > WRK-CHG-EMP-NO                           CHGRT300
00451           OR WRK-ERROR-YES-88                                     CHGRT300
00452           GO TO P1000-EXIT.                                       CHGRT300
00453                                                                   CHGRT300
00454      PERFORM P2000-CALL-REPORT THRU P2000-EXIT.                   CHGRT300
00455                                                                   CHGRT300
00456  P1000-EXIT.                                                      CHGRT300
00457      EXIT.                                                        CHGRT300
00458                                                                   CHGRT300
00459  P2000-CALL-REPORT.                                               CHGRT300
00460      SET CHG-LINK1-CMD-PROCESS-88 TO TRUE.                        CHGRT300
00461                                                                   CHGRT300
00462      IF WRK-SELF-INS-STEP1-88                                     CHGRT300
00463         PERFORM P2100-STEP1  THRU P2100-EXIT                      CHGRT300
00464      ELSE                                                         CHGRT300
00465         PERFORM P2200-STEP2  THRU P2200-EXIT                      CHGRT300
00466      END-IF.                                                      CHGRT300
00467                                                                   CHGRT300
00468  P2000-EXIT.                                                      CHGRT300
00469      EXIT.                                                        CHGRT300
00470                                                                   CHGRT300
00471  P2100-STEP1.                                                     CHGRT300
00472      EVALUATE TRUE                                                CHGRT300
00473        WHEN CHG4-RPT-TYPE-SELF-INS-88                             CHGRT300
00474           IF (CHG3-RUN-TYPE-QTRLY-88                              CHGRT300
00475           AND CHG4-EMP-TYPE = 08)                                 CHGRT300
00476              SET TPS-UNIV-MOD TO TRUE                             CHGRT300
00477              PERFORM S2000-CALL  THRU S2000-EXIT                  CHGRT300
00478              SET T026-TAX-MOD TO TRUE                             CHGRT300
00479              PERFORM S2000-CALL  THRU S2000-EXIT                  CHGRT300
00480           ELSE                                                    CHGRT300
00481              SET SELF-INS-MOD TO TRUE                             CHGRT300
00482              PERFORM S2000-CALL  THRU S2000-EXIT                  CHGRT300
00483           END-IF                                                  CHGRT300
00484                                                                   CHGRT300
00485        WHEN CHG4-RPT-TYPE-CWC-88                                  CHGRT300
00486           ADD +1 TO WRK-CWC-READ                                  CHGRT300
00487           SET CWC-MOD      TO TRUE                                CHGRT300
00488           PERFORM S2000-CALL  THRU S2000-EXIT                     CHGRT300
00489                                                                   CHGRT300
00490 ***    WHEN CHG4-RPT-TYPE-RATED-88                                CHGRT300
00491 *         ADD +1 TO WRK-RATED-READ                                CHGRT300
00492 *         SET RATED-MOD    TO TRUE                                CHGRT300
00493 ***       PERFORM S2000-CALL  THRU S2000-EXIT                     CHGRT300
00494                                                                   CHGRT300
00495        WHEN CHG4-RPT-TYPE-FED-88                                  CHGRT300
00496           ADD +1 TO WRK-FED-READ                                  CHGRT300
00497           SET FEDERAL-MOD  TO TRUE                                CHGRT300
00498           PERFORM S2000-CALL  THRU S2000-EXIT                     CHGRT300
00499                                                                   CHGRT300
00500        WHEN CHG4-RPT-TYPE-TEUC-88                                 CHGRT300
00501           ADD +1 TO WRK-TEUC-READ                                 CHGRT300
00502           SET TEUC-MOD     TO TRUE                                CHGRT300
00503           PERFORM S2000-CALL  THRU S2000-EXIT                     CHGRT300
00504                                                                   CHGRT300
00505        WHEN CHG4-RPT-TYPE-DC-88                                   CHGRT300
00506           ADD +1 TO WRK-DC-GOV-READ                               CHGRT300
00507           SET DC-GOV-MOD   TO TRUE                                CHGRT300
00508           PERFORM S2000-CALL  THRU S2000-EXIT                     CHGRT300
00509                                                                   CHGRT300
00510        WHEN CHG4-RPT-TYPE-NULL-88                                 CHGRT300
00511           SET PGM-NULL-MOD  TO TRUE                               CHGRT300
00512           PERFORM S2000-CALL  THRU S2000-EXIT                     CHGRT300
00513                                                                   CHGRT300
00514        WHEN OTHER                                                 CHGRT300
00515           DISPLAY 'INVALID REPORT TYPE ' CHG4-REPORT-TYPE         CHGRT300
00516           GO TO P2000-EXIT                                        CHGRT300
00517                                                                   CHGRT300
00518      END-EVALUATE.                                                CHGRT300
00519                                                                   CHGRT300
00520      ADD 1 TO WRK-BD220-CHG-SELECTED.                             CHGRT300
00521                                                                   CHGRT300
00522  P2100-EXIT.                                                      CHGRT300
00523      EXIT.                                                        CHGRT300
00524                                                                   CHGRT300
00525  P2200-STEP2.                                                     CHGRT300
00526      IF CHG4-RPT-TYPE-SELF-INS-88                                 CHGRT300
00527         IF (CHG3-RUN-TYPE-QTRLY-88                                CHGRT300
00528         AND CHG4-EMP-TYPE = 08)                                   CHGRT300
00529            ADD +1 TO WRK-SELF-INS-READ                            CHGRT300
00530            SET SELF-INS-MOD TO TRUE                               CHGRT300
00531            PERFORM S2000-CALL  THRU S2000-EXIT                    CHGRT300
00532         END-IF                                                    CHGRT300
00533      END-IF.                                                      CHGRT300
00534                                                                   CHGRT300
00535  P2200-EXIT.                                                      CHGRT300
00536      EXIT.                                                        CHGRT300
00537                                                                   CHGRT300
00538  P2110-SELF-INS.                                                  CHGRT300
00539      ADD +1 TO WRK-SELF-INS-READ.                                 CHGRT300
00540      IF (CHG3-RUN-TYPE-QTRLY-88                                   CHGRT300
00541      AND CHG4-EMP-TYPE = 08)                                      CHGRT300
00542         IF WRK-SELF-INS-STEP1-88                                  CHGRT300
00543            SET TPS-UNIV-MOD TO TRUE                               CHGRT300
00544            PERFORM S2000-CALL  THRU S2000-EXIT                    CHGRT300
00545            SET T026-TAX-MOD TO TRUE                               CHGRT300
00546            PERFORM S2000-CALL  THRU S2000-EXIT                    CHGRT300
00547         ELSE                                                      CHGRT300
00548            SET SELF-INS-MOD TO TRUE                               CHGRT300
00549            PERFORM S2000-CALL  THRU S2000-EXIT                    CHGRT300
00550         END-IF                                                    CHGRT300
00551      ELSE                                                         CHGRT300
00552         SET SELF-INS-MOD TO TRUE                                  CHGRT300
00553         PERFORM S2000-CALL  THRU S2000-EXIT                       CHGRT300
00554      END-IF.                                                      CHGRT300
00555                                                                   CHGRT300
00556  P2110-EXIT.                                                      CHGRT300
00557      EXIT.                                                        CHGRT300
00558                                                                   CHGRT300
00559  T0000-TERMINATE.                                                 CHGRT300
00560      PERFORM T1000-CLOSE-REPORTS    THRU T1000-EXIT.              CHGRT300
00561                                                                   CHGRT300
00562      PERFORM T3000-CLOSE-FILES      THRU T3000-EXIT.              CHGRT300
00563                                                                   CHGRT300
00564      DISPLAY '*********************************************'.     CHGRT300
00565      DISPLAY '**           RT300 COUNTS                  **'.     CHGRT300
00566      DISPLAY SPACE.                                               CHGRT300
00567      DISPLAY ' CHGBD220 CHARGE RECORDS READ:     '                CHGRT300
00568         WRK-BD220-CHG-READ.                                       CHGRT300
00569      DISPLAY ' CHGBD220 CHARGE RECORDS SELECTED: '                CHGRT300
00570         WRK-BD220-CHG-SELECTED.                                   CHGRT300
00571 **   DISPLAY ' RATED RECORDS PASSED            : '                CHGRT300
00572 **      WRK-RATED-READ.                                           CHGRT300
00573      DISPLAY ' SELF INSURED RECORDS PASSED     : '                CHGRT300
00574         WRK-SELF-INS-READ.                                        CHGRT300
00575      DISPLAY ' RECORDS READ FROM PARM FILE     : '                CHGRT300
00576         WRK-EMPL-CHG-READ.                                        CHGRT300
00577      DISPLAY ' CWC RECORDS PASSED              : '                CHGRT300
00578         WRK-CWC-READ.                                             CHGRT300
00579      DISPLAY ' FEDERAL RECORDS PASSED          : '                CHGRT300
00580         WRK-FED-READ.                                             CHGRT300
00581      DISPLAY ' TEUC RECORDS PASSED             : '                CHGRT300
00582         WRK-TEUC-READ.                                            CHGRT300
00583      DISPLAY ' DC GOV RECORDS PASSED           : '                CHGRT300
00584         WRK-DC-GOV-READ.                                          CHGRT300
00585                                                                   CHGRT300
00586 **   DISPLAY SPACE.                                               CHGRT300
00587 *    MOVE WRK-RPT-TYPE-RATED TO WRK-RPT-TYPE-RATED-DISP.          CHGRT300
00588 *    DISPLAY 'TOTAL REPORT TYPE RATED          : '                CHGRT300
00589 **      WRK-RPT-TYPE-RATED-DISP.                                  CHGRT300
00590                                                                   CHGRT300
00591      DISPLAY SPACE.                                               CHGRT300
00592      MOVE WRK-RPT-TYPE-SELF-INS TO WRK-RPT-TYPE-SELF-INS-DISP.    CHGRT300
00593      DISPLAY 'TOTAL REPORT TYPE SELF-INS       : '                CHGRT300
00594         WRK-RPT-TYPE-SELF-INS-DISP.                               CHGRT300
00595                                                                   CHGRT300
00596      DISPLAY SPACE.                                               CHGRT300
00597      MOVE WRK-RPT-TYPE-CWC TO WRK-RPT-TYPE-CWC-DISP.              CHGRT300
00598      DISPLAY 'TOTAL REPORT TYPE CWC            : '                CHGRT300
00599         WRK-RPT-TYPE-CWC-DISP.                                    CHGRT300
00600                                                                   CHGRT300
00601      DISPLAY SPACE.                                               CHGRT300
00602      MOVE WRK-RPT-TYPE-FED TO WRK-RPT-TYPE-FED-DISP.              CHGRT300
00603      DISPLAY 'TOTAL REPORT TYPE FED            : '                CHGRT300
00604         WRK-RPT-TYPE-FED-DISP.                                    CHGRT300
00605                                                                   CHGRT300
00606      DISPLAY SPACE.                                               CHGRT300
00607      MOVE WRK-RPT-TYPE-TEUC TO WRK-RPT-TYPE-TEUC-DISP.            CHGRT300
00608      DISPLAY 'TOTAL REPORT TYPE TEUC           : '                CHGRT300
00609         WRK-RPT-TYPE-TEUC-DISP.                                   CHGRT300
00610                                                                   CHGRT300
00611      DISPLAY SPACE.                                               CHGRT300
00612      MOVE WRK-RPT-TYPE-DC-GOV                                     CHGRT300
00613                             TO WRK-RPT-TYPE-DC-GOV-DISP.          CHGRT300
00614      DISPLAY 'TOTAL DC GOVERNMENT              : '                CHGRT300
00615         WRK-RPT-TYPE-DC-GOV-DISP.                                 CHGRT300
00616                                                                   CHGRT300
00617 **   DISPLAY SPACE.                                               CHGRT300
00618 **   MOVE WRK-RATED-TOT                                           CHGRT300
00619 **                          TO WRK-RATED-TOT-DISP.                CHGRT300
00620 **   DISPLAY 'TOTAL CHARGE                     : '                CHGRT300
00621 **      WRK-RATED-TOT-DISP.                                       CHGRT300
00622                                                                   CHGRT300
00623  T0000-EXIT.                                                      CHGRT300
00624      EXIT.                                                        CHGRT300
00625                                                                   CHGRT300
00626  T1000-CLOSE-REPORTS.                                             CHGRT300
00627      SET CHG-LINK1-CMD-CLOSE-88 TO TRUE.                          CHGRT300
00628                                                                   CHGRT300
00629 ***  IF CHG3-RPT-TYPE-RATED-88                                    CHGRT300
00630 *       SET RATED-MOD          TO TRUE                            CHGRT300
00631 ***     PERFORM S2000-CALL     THRU S2000-EXIT.                   CHGRT300
00632                                                                   CHGRT300
00633      IF CHG3-RPT-TYPE-SELF-INS-88                                 CHGRT300
00634         SET SELF-INS-MOD       TO TRUE                            CHGRT300
00635         PERFORM S2000-CALL     THRU S2000-EXIT                    CHGRT300
00636         IF CHG3-RUN-TYPE-QTRLY-88                                 CHGRT300
00637            SET TPS-UNIV-MOD    TO TRUE                            CHGRT300
00638            PERFORM S2000-CALL  THRU S2000-EXIT                    CHGRT300
00639            SET T026-TAX-MOD    TO TRUE                            CHGRT300
00640            PERFORM S2000-CALL  THRU S2000-EXIT.                   CHGRT300
00641                                                                   CHGRT300
00642      IF CHG3-RPT-TYPE-CWC-88                                      CHGRT300
00643         SET CWC-MOD            TO TRUE                            CHGRT300
00644         PERFORM S2000-CALL     THRU S2000-EXIT.                   CHGRT300
00645                                                                   CHGRT300
00646      IF CHG3-RPT-TYPE-FED-88                                      CHGRT300
00647         SET FEDERAL-MOD        TO TRUE                            CHGRT300
00648         PERFORM S2000-CALL     THRU S2000-EXIT.                   CHGRT300
00649                                                                   CHGRT300
00650      IF CHG3-RPT-TYPE-TEUC-88                                     CHGRT300
00651         SET TEUC-MOD           TO TRUE                            CHGRT300
00652         PERFORM S2000-CALL     THRU S2000-EXIT.                   CHGRT300
00653                                                                   CHGRT300
00654      IF CHG3-RPT-TYPE-DC-88                                       CHGRT300
00655         SET DC-GOV-MOD         TO TRUE                            CHGRT300
00656         PERFORM S2000-CALL     THRU S2000-EXIT.                   CHGRT300
00657                                                                   CHGRT300
00658  T1000-EXIT.                                                      CHGRT300
00659      EXIT.                                                        CHGRT300
00660      EJECT                                                        CHGRT300
00661      EJECT                                                        CHGRT300
00662  T3000-CLOSE-FILES.                                               CHGRT300
00663      CLOSE BD220-CHG-FILE.                                        CHGRT300
00664                                                                   CHGRT300
00665      CLOSE CHG-PARM-FILE.                                         CHGRT300
00666                                                                   CHGRT300
00667  T3000-EXIT.                                                      CHGRT300
00668      EXIT.                                                        CHGRT300
00669                                                                   CHGRT300
00670  S001-FROM-FED-8.                                                 CHGRT300
00671      SET L001-FROM-FED-8 TO TRUE.                                 CHGRT300
00672      GO TO S001-DATE.                                             CHGRT300
00673                                                                   CHGRT300
00674  S001-FROM-ABS.                                                   CHGRT300
00675      SET L001-FROM-ABS-DAY TO TRUE.                               CHGRT300
00676      GO TO S001-DATE.                                             CHGRT300
00677                                                                   CHGRT300
00678  S001-DATE.                                                       CHGRT300
00679      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGRT300
00680  S001-EXIT.                                                       CHGRT300
00681      EXIT.                                                        CHGRT300
00682                                                                   CHGRT300
00683  S003-AGENCY-DAY.                                                 CHGRT300
00684      SET L003-AGENCY-DAY TO TRUE.                                 CHGRT300
00685      GO TO S003-WORK-DAY.                                         CHGRT300
00686                                                                   CHGRT300
00687  S003-WORK-DAY.                                                   CHGRT300
00688      CALL 'DTSBU003' USING L003-LINK-AREA.                        CHGRT300
00689  S003-EXIT.                                                       CHGRT300
00690      EXIT.                                                        CHGRT300
00691                                                                   CHGRT300
00692  S004-FROM-DATE.                                                  CHGRT300
00693      SET L004-FROM-DATE TO TRUE.                                  CHGRT300
00694      GO TO S004-YRQ.                                              CHGRT300
00695                                                                   CHGRT300
00696  S004-YRQ.                                                        CHGRT300
00697      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGRT300
00698  S004-EXIT.                                                       CHGRT300
00699      EXIT.                                                        CHGRT300
00700                                                                   CHGRT300
00701  S005-FROM-SYS.                                                   CHGRT300
00702      SET L005-FROM-SYS TO TRUE.                                   CHGRT300
00703      GO TO S005-ABSTIME.                                          CHGRT300
00704                                                                   CHGRT300
00705  S005-ABSTIME.                                                    CHGRT300
00706      CALL 'DTSBU005' USING L005-LINK-AREA.                        CHGRT300
00707  S005-EXIT.                                                       CHGRT300
00708      EXIT.                                                        CHGRT300
00709                                                                   CHGRT300
00710  S931-OPEN-READ.                                                  CHGRT300
00711      SET L931-OPEN-READ-88   TO TRUE.                             CHGRT300
00712      GO TO S931-REF-I.                                            CHGRT300
00713                                                                   CHGRT300
00714  S931-READ.                                                       CHGRT300
00715      SET L931-READ-88        TO TRUE.                             CHGRT300
00716      GO TO S931-REF-I.                                            CHGRT300
00717                                                                   CHGRT300
00718  S931-CLOSE.                                                      CHGRT300
00719      SET L931-CLOSE-88 TO TRUE.                                   CHGRT300
00720      GO TO S931-REF-I.                                            CHGRT300
00721                                                                   CHGRT300
00722  S931-REF-I.                                                      CHGRT300
00723      CALL 'DTSBU931' USING L931-LINK-AREA                         CHGRT300
00724                            FSKL-REC.                              CHGRT300
00725  S931-EXIT.                                                       CHGRT300
00726      EXIT.                                                        CHGRT300
00727                                                                   CHGRT300
00728  S1000-READ-CHG-FILE.                                             CHGRT300
00729      READ BD220-CHG-FILE.                                         CHGRT300
00730      IF BD220-FILE-OK-88                                          CHGRT300
00731         ADD 1 TO WRK-BD220-CHG-READ                               CHGRT300
00732         PERFORM S1200-TEST-TOTALS THRU S1200-EXIT                 CHGRT300
00733      ELSE                                                         CHGRT300
00734         IF BD220-FILE-EOF-88                                      CHGRT300
00735            NEXT SENTENCE                                          CHGRT300
00736         ELSE                                                      CHGRT300
00737            DISPLAY 'BD220 FILE READ ERROR: ' BD220-CHG-STATUS     CHGRT300
00738            SET WRK-ERROR-YES-88 TO TRUE                           CHGRT300
00739         END-IF                                                    CHGRT300
00740      END-IF.                                                      CHGRT300
00741                                                                   CHGRT300
00742  S1000-EXIT.                                                      CHGRT300
00743      EXIT.                                                        CHGRT300
00744                                                                   CHGRT300
00745  S1100-READ-EMPL-FILE.                                            CHGRT300
00746      READ CHG-EMPL-FILE.                                          CHGRT300
00747      IF CHG-EMPL-FILE-OK-88                                       CHGRT300
00748         ADD 1 TO WRK-EMPL-CHG-READ                                CHGRT300
00749      ELSE                                                         CHGRT300
00750         IF CHG-EMPL-FILE-EOF-88                                   CHGRT300
00751            NEXT SENTENCE                                          CHGRT300
00752         ELSE                                                      CHGRT300
00753            DISPLAY 'EMPL FILE READ ERROR: ' CHG-EMPL-STATUS       CHGRT300
00754            SET WRK-ERROR-YES-88 TO TRUE                           CHGRT300
00755         END-IF                                                    CHGRT300
00756      END-IF.                                                      CHGRT300
00757                                                                   CHGRT300
00758  S1100-EXIT.                                                      CHGRT300
00759      EXIT.                                                        CHGRT300
00760                                                                   CHGRT300
00761  S1200-TEST-TOTALS.                                               CHGRT300
00762                                                                   CHGRT300
00763      EVALUATE TRUE                                                CHGRT300
00764 **     WHEN CHG4-RPT-TYPE-RATED-88                                CHGRT300
00765 *         COMPUTE WRK-RPT-TYPE-RATED = WRK-RPT-TYPE-RATED         CHGRT300
00766 *                + CHG4-CURR-BEN-AMT                              CHGRT300
00767 **               + CHG4-CURR-ADJ-AMT                              CHGRT300
00768                                                                   CHGRT300
00769        WHEN CHG4-RPT-TYPE-SELF-INS-88                             CHGRT300
00770           COMPUTE WRK-RPT-TYPE-SELF-INS = WRK-RPT-TYPE-SELF-INS   CHGRT300
00771                  + CHG4-CURR-BEN-AMT                              CHGRT300
00772                  + CHG4-CURR-ADJ-AMT                              CHGRT300
00773                                                                   CHGRT300
00774        WHEN CHG4-RPT-TYPE-CWC-88                                  CHGRT300
00775           COMPUTE WRK-RPT-TYPE-CWC = WRK-RPT-TYPE-CWC             CHGRT300
00776                  + CHG4-CURR-BEN-AMT                              CHGRT300
00777                  + CHG4-CURR-ADJ-AMT                              CHGRT300
00778                                                                   CHGRT300
00779        WHEN CHG4-RPT-TYPE-FED-88                                  CHGRT300
00780            COMPUTE WRK-RPT-TYPE-FED = WRK-RPT-TYPE-FED            CHGRT300
00781                  + CHG4-CURR-BEN-AMT                              CHGRT300
00782                  + CHG4-CURR-ADJ-AMT                              CHGRT300
00783                                                                   CHGRT300
00784        WHEN CHG4-RPT-TYPE-TEUC-88                                 CHGRT300
00785            COMPUTE WRK-RPT-TYPE-TEUC = WRK-RPT-TYPE-TEUC          CHGRT300
00786                  + CHG4-CURR-BEN-AMT                              CHGRT300
00787                  + CHG4-CURR-ADJ-AMT                              CHGRT300
00788                                                                   CHGRT300
00789        WHEN CHG4-RPT-TYPE-DC-88                                   CHGRT300
00790            COMPUTE WRK-RPT-TYPE-DC-GOV = WRK-RPT-TYPE-DC-GOV      CHGRT300
00791                  + CHG4-CURR-BEN-AMT                              CHGRT300
00792                  + CHG4-CURR-ADJ-AMT                              CHGRT300
00793                                                                   CHGRT300
00794      END-EVALUATE.                                                CHGRT300
00795                                                                   CHGRT300
00796 **      COMPUTE WRK-RATED-TOT = WRK-RATED-TOT                     CHGRT300
00797 *                + CHG4-CURR-BEN-AMT                              CHGRT300
00798 **               + CHG4-CURR-ADJ-AMT.                             CHGRT300
00799                                                                   CHGRT300
00800         IF WRK-EMP-NO = ZERO                                      CHGRT300
00801            MOVE CHG4-EMP-NO TO WRK-EMP-NO                         CHGRT300
00802            COMPUTE WRK-EMP-TOT =                                  CHGRT300
00803                 CHG4-CURR-BEN-AMT                                 CHGRT300
00804               + CHG4-CURR-ADJ-AMT                                 CHGRT300
00805         ELSE                                                      CHGRT300
00806            IF CHG4-EMP-NO NOT = WRK-EMP-NO                        CHGRT300
00807               MOVE WRK-EMP-TOT TO WRK-EMP-TOT-DISP                CHGRT300
00808 *&            DISPLAY 'CHGBD300 TOT ' WRK-EMP-NO                  CHGRT300
00809 *&               '  ' WRK-EMP-TOT-DISP                            CHGRT300
00810               MOVE CHG4-EMP-NO TO WRK-EMP-NO                      CHGRT300
00811               COMPUTE WRK-EMP-TOT =                               CHGRT300
00812                  CHG4-CURR-BEN-AMT                                CHGRT300
00813                + CHG4-CURR-ADJ-AMT                                CHGRT300
00814            ELSE                                                   CHGRT300
00815               COMPUTE WRK-EMP-TOT = WRK-EMP-TOT                   CHGRT300
00816                  + CHG4-CURR-BEN-AMT                              CHGRT300
00817                  + CHG4-CURR-ADJ-AMT                              CHGRT300
00818            END-IF                                                 CHGRT300
00819         END-IF.                                                   CHGRT300
00820  S1200-EXIT.                                                      CHGRT300
00821      EXIT.                                                        CHGRT300
00822                                                                   CHGRT300
00823  S2000-CALL.                                                      CHGRT300
00824 *&                                                                CHGRT300
00825 *    IF CHG-LINK1-CMD-PROCESS-88                                  CHGRT300
00826 *       COMPUTE WRK-EMP-TOT =                                     CHGRT300
00827 *          CHG4-CURR-BEN-AMT                                      CHGRT300
00828 *        + CHG4-CURR-ADJ-AMT.                                     CHGRT300
00829 *       MOVE WRK-EMP-TOT TO WRK-EMP-TOT-DISP                      CHGRT300
00830 *    IF CHG4-SSN = 002545648                                      CHGRT300
00831 *       DISPLAY 'BD300 ' WRK-REPORT-MOD                           CHGRT300
00832 *          '  ' CHG4-REPORT-TYPE                                  CHGRT300
00833 *          '  ' CHG4-EMP-NO                                       CHGRT300
00834 *          '  ' CHG4-SSN.                                         CHGRT300
00835 *          '  ' WRK-EMP-TOT-DISP.                                 CHGRT300
00836 *&                                                                CHGRT300
00837      CALL WRK-REPORT-MOD USING REPORT-LINK-AREA                   CHGRT300
00838                                BD220-CHG-REC.                     CHGRT300
00839  S2000-EXIT.                                                      CHGRT300
00840      EXIT.                                                        CHGRT300
00841                                                                   CHGRT300
00842  S999-ABEND.                                                      CHGRT300
00843      DISPLAY '****  CHGBD300 ABENDING '                           CHGRT300
00844         ABEND-MSG.                                                CHGRT300
00845      CALL 'DTSBU999' USING ABEND-CODE.                            CHGRT300
00846  S999-EXIT.                                                       CHGRT300
00847      EXIT.                                                        CHGRT300
