00001  IDENTIFICATION DIVISION.                                         05/02/22
00002  PROGRAM-ID.             CHGBD205.                                CHGBD205
00003 *AUTHOR.                 TRW.                                        LV040
00004 *DATE-WRITTEN.           JUNE 2001.                               CHGBD205
00005  DATE-COMPILED.                                                   CHGBD205
00006      SKIP3                                                        CHGBD205
00007 *****                                                             CHGBD205
00008 *                                                                 CHGBD205
00009 *    FUNCTION:                                                    CHGBD205
00010 *                                                                 CHGBD205
00011 *           EXTRACT BENEFIT CHARGE RECORDS FROM SUMMARY CHARGE    CHGBD205
00012 *           FILE, BASED ON SELECTION PARAMETERS.                  CHGBD205
00013 *                                                                 CHGBD205
00014 *           WRITE CHG2 OUTPUT RECORD.                             CHGBD205
00015 *                                                                 CHGBD205
00016 *        INPUT:                                                   CHGBD205
00017 *                                                                 CHGBD205
00018 *            BD200CHG - CHARGE REPORT RECORDS GENERATED BY        CHGBD205
00019 *                       CHGBD200.                                 CHGBD205
00020 *             CHGPARM - EXTRACT PARAMETERS                        CHGBD205
00021 *                                                                 CHGBD205
00022 *        OUTPUT:                                                  CHGBD205
00023 *                                                                 CHGBD205
00024 *            BD2-5CHG - CHARGE RECORDS SELECTED IN                CHGBD205
00025 *                       CHGBD205.                                 CHGBD205
00026 *                                                                 CHGBD205
00027 *                                                                 CHGBD205
00028 *        PARAMETERS:                                              CHGBD205
00029 *                                                                 CHGBD205
00030 *            RUN TYPE -                                           CHGBD205
00031 *               QUARTERLY ('QTR') - REGULAR QUARTERLY REPORTING   CHGBD205
00032 *               ANNUAL    ('ANN') - ANNUAL REPORTING              CHGBD205
00033 *               EMPLOYER  ('EMP') - SPECIAL REPORT FOR A SINGLE   CHGBD205
00034 *                                   EMPLOYER                      CHGBD205
00035 *               EMPLOYER  ('MNE') - SPECIAL REPORT FOR A SINGLE   CHGBD205
00036 *                                   EMPLOYER - LAST COMPLETED MNTHCHGBD205
00037 *               EMPLOYER  ('WKE') - SPECIAL REPORT FOR A SINGLE   CHGBD205
00038 *                                   EMPLOYER - LAST COMPLETED WEEKCHGBD205
00039 *               REPORTS   ('RPT') - SPECIAL REPORT TO REPRINT     CHGBD205
00040 *                                   REPORTS. USE THE REPORT TYPE  CHGBD205
00041 *                                   PARM TO INDICATE WHICH TYPES  CHGBD205
00042 *                                   OF REPORTS TO INCLUDE.        CHGBD205
00043 *               FISCAL AGENTS                                     CHGBD205
00044 *                         ('AGT') - RERUN FISCAL AGENT TAPES.     CHGBD205
00045 *                                                                 CHGBD205
00046 *                  >> WHEN RUN TYPE IS 'QTR' THE SYSTEM WILL      CHGBD205
00047 *                  >> GENERATE T026 BENEFIT CHARGE ACCOUNTING     CHGBD205
00048 *                  >> TRANSACTIONS AND TPS RECORDS.               CHGBD205
00049 *                                                                 CHGBD205
00050 *            BEGIN DATE - DATE FROM WHICH TO BEGIN SELECTION      CHGBD205
00051 *                         OF CHARGE RECORDS.                      CHGBD205
00052 *                         REQUIRED FOR ALL RUN TYPES.             CHGBD205
00053 *                                                                 CHGBD205
00054 *            END DATE   - DATE AT WHICH TO END SELECTION          CHGBD205
00055 *                         OF CHARGE RECORDS.                      CHGBD205
00056 *                         REQUIRED FOR ALL RUN TYPES.             CHGBD205
00057 *                                                                 CHGBD205
00058 *            REPORT TYPES - YES/NO INDICATORS TO SPECIFY          CHGBD205
00059 *                           WHICH TYPES OF REPORTS TO INCLUDE.    CHGBD205
00060 *                           VALID ONLY WHEN THE RUN TYPE IS       CHGBD205
00061 *                           'RPT'.                                CHGBD205
00062 *                           THE INDICATORS ARE IN THE FOLLOWING   CHGBD205
00063 *                           ORDER:                                CHGBD205
00064 *                              RATED                              CHGBD205
00065 *                              SELF-INSURED                       CHGBD205
00066 *                              CWC                                CHGBD205
00067 *                              FEDERAL                            CHGBD205
00068 *                              TEUC                               CHGBD205
00069 *                                                                 CHGBD205
00070 *            EMPLOYER     - THE EMPLOYER ACCOUNT NUMBER TO        CHGBD205
00071 *                           INCLUDE IN THE SELECTION.             CHGBD205
00072 *                           VALID ONLY WHEN RUN TYPE IS 'EMP'.    CHGBD205
00073 *                                                                 CHGBD205
00074 *****                                                             CHGBD205
00075                                                                   CHGBD205
00076 ******************************************************************CHGBD205
00077 * MODIFICATION HISTORY:                                          *CHGBD205
00078 *                                                                *CHGBD205
00079 * 02-02-1999 INITIAL DEVELOPMENT                                 *CHGBD205
00080 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD205
00081 *                                                                *CHGBD205
00082 * 06-21-2001 MODIFIED FOR NEW CHARGE PROCESS                      CHGBD205
00083 *            REFERENCE RFP #****          AUTHOR OF CHANGE - GD  *CHGBD205
00084 *                                                                *CHGBD205
00085 * 04-23-2002 MODIFIED TO OUTPUT TEUC RPC150R1 REPORT              CHGBD205
00086 *            REFERENCE RFP #****          AUTHOR OF CHANGE - RW1 *CHGBD205
00087 *                                                                *CHGBD205
00088 * 03-03-2003 ADDED NEW RUN TYPES FOR EMPLOYER REPORTS:            CHGBD205
00089 *               MNE - REPORT FOR LAST COMPLETED MONTH            *CHGBD205
00090 *               WKE - REPORT FOR LAST COMPLETED WEEK             *CHGBD205
00091 *            REFERENCE RFP #****          AUTHOR OF CHANGE - GD  *CHGBD205
00092 *                                                                *CHGBD205
00093 * 09-04-2003 ADDED NEW RPT TYPE FOR DC GOVERNMENT                 CHGBD205
00094 *            REFERENCE RFP #****          AUTHOR OF CHANGE - GD  *CHGBD205
00095 *                                                                *CHGBD205
00096 * 06-29-2004 ADDED EMP TYPE 17 - DOMESTIC VIOLENCE.               CHGBD205
00097 *            REFERENCE RFP #****          AUTHOR OF CHANGE - GD  *CHGBD205
00098 *                                                                *CHGBD205
00099 * 03-09-2009 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED   *CHGBD205
00100 *            FROM NUMERIC TO CHARACTER.                          *CHGBD205
00101 *            UPDATED EMPLOYER TYPES.                             *CHGBD205
00102 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD205
00103 *                                                                *CHGBD205
00104 * 04-03-2009 MODIFIED I2230 TO USE QUARTERLY DEFAULT DATES       *CHGBD205
00105 *            IF NO DATES ARE ENTERED, AND THE RUN TYPE IS RPTS.  *CHGBD205
00106 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD205
00107 *                                                                *CHGBD205
00108 * 06-24-2009 REMOVED CODE THAT BYPASSED CHARGE RECORDS THAT      *CHGBD205
00109 *            MIGHT HAVE BEEN AFFECTED BY A PROBLEM IN THE        *CHGBD205
00110 *            BENEFITS SYSTEM THAT RESULTED IN LARGE REVERSALS.   *CHGBD205
00111 *            THE PROBLEM HAS BEEN CORRECTED, AND THE CODE IS     *CHGBD205
00112 *            NO LONGER NEEDED.                                   *CHGBD205
00113 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD205
00114 *                                                                *CHGBD205
00115 * 05-04-2010 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED   *CHGBD205
00116 *            FROM COPYBOOK CHGIM002.                             *CHGBD205
00117 *            UPDATED EMPLOYER TYPES.                             *CHGBD205
00118 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBD205
00119 *                                                                *CHGBD205
00120 * 10-04-2014 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED   *   CL*26
00121 *            UPDATED EMPLOYER TYPES ADDED 28 UCPIA               *   CL*26
00122 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *   CL*26
00123 *                                                                *   CL*27
00124 * 04-20-2020 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED   *   CL*27
00125 *            UPDATED EMPLOYER TYPES PUA FPUC AND FRUR            *   CL*27
00126 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *   CL*27
00127 *                                                                *   CL*36
00128 * 05-01-2020 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED   *   CL*36
00129 *            UPDATED EMPLOYER TYPES PEUC                         *   CL*36
00130 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *   CL*36
00131 *                                                                *   CL*26
00132 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD205
00133 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD205
00134 *            REFERENCE RFP #****          AUTHOR OF CHANGE - *** *CHGBD205
00135 ******************************************************************CHGBD205
00136                                                                   CHGBD205
00137      SKIP3                                                        CHGBD205
00138  ENVIRONMENT DIVISION.                                            CHGBD205
00139      SKIP3                                                        CHGBD205
00140  INPUT-OUTPUT SECTION.                                            CHGBD205
00141      SKIP3                                                        CHGBD205
00142  FILE-CONTROL.                                                    CHGBD205
00143      SELECT INPUT-PARM     ASSIGN TO SYSIN                        CHGBD205
00144             FILE STATUS IS INPUT-PARM-STATUS.                     CHGBD205
00145                                                                   CHGBD205
00146      SELECT BD200-CHG-FILE-IN ASSIGN TO BD200CHG                  CHGBD205
00147             ORGANIZATION IS INDEXED                               CHGBD205
00148             ACCESS MODE IS DYNAMIC                                CHGBD205
00149             RECORD KEY IS CHG2-KEY-AREA                           CHGBD205
00150             FILE STATUS IS BD200-CHG-STATUS.                      CHGBD205
00151                                                                   CHGBD205
00152      SELECT BD205-CHG-FILE-OUT   ASSIGN TO BD205CHG               CHGBD205
00153             FILE STATUS IS BD205-CHG-STATUS.                      CHGBD205
00154                                                                   CHGBD205
00155      SELECT CHG-PARM-FILE  ASSIGN TO CHGPARM                      CHGBD205
00156             FILE STATUS IS CHG-PARM-STATUS.                       CHGBD205
00157      EJECT                                                        CHGBD205
00158  DATA DIVISION.                                                   CHGBD205
00159                                                                   CHGBD205
00160  FILE SECTION.                                                    CHGBD205
00161  FD  INPUT-PARM                                                   CHGBD205
00162      LABEL RECORDS ARE STANDARD                                   CHGBD205
00163      BLOCK CONTAINS 0 CHARACTERS.                                 CHGBD205
00164      SKIP1                                                        CHGBD205
00165  01  INPUT-PARM-REC.                                              CHGBD205
00166      05  PARM-RUN-TYPE                    PIC X(03).              CHGBD205
00167      05  FILLER                           PIC X(01).              CHGBD205
00168      05  PARM-BEGIN-DATE                  PIC 9(06).              CHGBD205
00169      05  FILLER                           PIC X(01).              CHGBD205
00170      05  PARM-END-DATE                    PIC 9(06).              CHGBD205
00171      05  FILLER                           PIC X(01).              CHGBD205
00172      05  PARM-REPORT-TYPES.                                       CHGBD205
00173          10  PARM-RPT-TYPE-RATED          PIC X(01).              CHGBD205
00174          10  PARM-RPT-TYPE-SELF-IND       PIC X(01).              CHGBD205
00175          10  PARM-RPT-TYPE-CWC            PIC X(01).              CHGBD205
00176          10  PARM-RPT-TYPE-FED            PIC X(01).              CHGBD205
00177          10  PARM-RPT-TYPE-TEUC           PIC X(01).              CHGBD205
00178          10  PARM-RPT-TYPE-DC             PIC X(01).              CHGBD205
00179          10  PARM-RPT-TYPE-FPUC           PIC X(01).                 CL*28
00180      05  FILLER                           PIC X(01).              CHGBD205
00181      05  PARM-EMP-NO                      PIC 9(06).              CHGBD205
00182      05  FILLER                           PIC X(48).                 CL*28
00183                                                                   CHGBD205
00184  FD  BD200-CHG-FILE-IN                                            CHGBD205
00185      RECORD CONTAINS 64 CHARACTERS                                CHGBD205
00186      DATA RECORD IS BD200-CHG-REC.                                CHGBD205
00187  01  BD200-CHG-REC.                                               CHGBD205
00188  ++INCLUDE CHGIM002                                               CHGBD205
00189                                                                   CHGBD205
00190  FD  BD205-CHG-FILE-OUT                                           CHGBD205
00191      LABEL RECORDS ARE STANDARD                                   CHGBD205
00192      BLOCK CONTAINS 0 CHARACTERS.                                 CHGBD205
00193      SKIP1                                                        CHGBD205
00194  01  BD205-CHG-REC                   PIC X(64).                   CHGBD205
00195                                                                   CHGBD205
00196  FD  CHG-PARM-FILE                                                CHGBD205
00197      RECORDING MODE IS F                                          CHGBD205
00198      BLOCK CONTAINS 0 CHARACTERS.                                 CHGBD205
00199      SKIP1                                                        CHGBD205
00200  01  CHG-PARM-REC                    PIC X(80).                   CHGBD205
00201                                                                   CHGBD205
00202      EJECT                                                        CHGBD205
00203  WORKING-STORAGE SECTION.                                         CHGBD205
002035 77  PAN-VALET PICTURE X(24) VALUE '040CHGBD205  05/02/22'.       CHGBD205
00204                                                                   CHGBD205
00205  01  WRK-AREA.                                                    CHGBD205
00206 *&                                                                CHGBD205
00207      05  WRK-DISP-AREA.                                           CHGBD205
00208          10  WRK-DATE                PIC 9999B99B99.              CHGBD205
00209          10  FILLER                  PIC X(02) VALUE SPACES.      CHGBD205
00210          10  WRK-EMP-DISP            PIC 9(06).                   CHGBD205
00211          10  FILLER                  PIC X(02) VALUE SPACES.      CHGBD205
00212          10  WRK-SSN-DISP            PIC 9(10).                   CHGBD205
00213          10  FILLER                  PIC X(02) VALUE SPACES.      CHGBD205
00214          10  WRK-CHG-AMT-DISP        PIC  Z(08)9.99-.             CHGBD205
00215                                                                   CHGBD205
00216      05  WRK-SSN                 PIC 9(10).                       CHGBD205
00217      05  FILLER REDEFINES WRK-SSN.                                CHGBD205
00218          10  WRK-SSN9            PIC 9(09).                       CHGBD205
00219          10  WRK-SSN0            PIC 9(01).                       CHGBD205
00220                                                                   CHGBD205
00221      05  WRK-TOT-CHG                 PIC S9(09)V99 COMP-3         CHGBD205
00222                                  VALUE +0.                        CHGBD205
00223      05  WRK-TOT-CHG-DISP            PIC  Z(08)9.99-.             CHGBD205
00224      05  WRK-CHG-AMT                 PIC S9(09)V99 COMP-3.        CHGBD205
00225      05  WRK-CURR-SUMM-AMT           PIC S9(09)V99 COMP-3         CHGBD205
00226                                  VALUE +0.                        CHGBD205
00227      05  WRK-CURR-SUMM-AMT-DISP      PIC  Z(08)9.99-.             CHGBD205
00228 *&                                                                CHGBD205
00229      05  ABEND-CODE                  PIC S9(04)  COMP             CHGBD205
00230                                  VALUE +205.                      CHGBD205
00231      05  ABEND-MOD                   PIC  X(08)                   CHGBD205
00232                                  VALUE 'DTSBU999'.                CHGBD205
00233      05  ABEND-MSG                   PIC  X(60).                  CHGBD205
00234                                                                   CHGBD205
00235      05  INPUT-PARM-STATUS           PIC  X(02) VALUE SPACES.     CHGBD205
00236          88  INPUT-PARM-OK-88    VALUE ZERO.                      CHGBD205
00237          88  INPUT-PARM-EOF-88   VALUE '10'.                      CHGBD205
00238                                                                   CHGBD205
00239      05  BD200-CHG-STATUS            PIC  X(02) VALUE SPACES.     CHGBD205
00240          88  BD200-FILE-OK-88    VALUE ZERO.                      CHGBD205
00241          88  BD200-FILE-EOF-88   VALUE '10'.                      CHGBD205
00242                                                                   CHGBD205
00243      05  BD205-CHG-STATUS            PIC  X(02) VALUE SPACES.     CHGBD205
00244          88  BD205-FILE-OK-88    VALUE ZERO.                      CHGBD205
00245          88  BD205-FILE-EOF-88   VALUE '10'.                      CHGBD205
00246                                                                   CHGBD205
00247      05  CHG-PARM-STATUS             PIC  X(02) VALUE SPACES.     CHGBD205
00248          88  CHG-PARM-FILE-OK-88      VALUE ZERO.                 CHGBD205
00249          88  CHG-PARM-FILE-EOF-88     VALUE '10'.                 CHGBD205
00250                                                                   CHGBD205
00251      05  WRK-ERROR-IND               PIC  X(01).                  CHGBD205
00252          88  WRK-ERROR-YES-88    VALUE 'Y'.                       CHGBD205
00253          88  WRK-ERROR-NO-88     VALUE 'N'.                       CHGBD205
00254                                                                   CHGBD205
00255      05  WRK-EMP-VALID-IND           PIC  X(01).                  CHGBD205
00256          88  WRK-EMP-VALID-YES-88  VALUE 'Y'.                     CHGBD205
00257          88  WRK-EMP-VALID-NO-88   VALUE 'N'.                     CHGBD205
00258                                                                   CHGBD205
00259      05  WRK-BEGIN-DATE              PIC S9(09) COMP-3.           CHGBD205
00260      05  WRK-END-DATE                PIC S9(09) COMP-3.           CHGBD205
00261                                                                   CHGBD205
00262      05  WRK-BEGIN-DATE-DISP         PIC  9(08).                  CHGBD205
00263      05  FILLER REDEFINES WRK-BEGIN-DATE-DISP.                    CHGBD205
00264          10  WRK-BEGIN-YR            PIC  9(04).                  CHGBD205
00265          10  WRK-BEGIN-MO            PIC  9(02).                  CHGBD205
00266          10  WRK-BEGIN-DA            PIC  9(02).                  CHGBD205
00267                                                                   CHGBD205
00268      05  WRK-END-DATE-DISP           PIC  9(08).                  CHGBD205
00269      05  FILLER REDEFINES WRK-END-DATE-DISP.                      CHGBD205
00270          10  WRK-END-YR              PIC  9(04).                  CHGBD205
00271          10  WRK-END-MO              PIC  9(02).                  CHGBD205
00272          10  WRK-END-DA              PIC  9(02).                  CHGBD205
00273                                                                   CHGBD205
00274      05  WRK-EMP-NO                  PIC S9(07) COMP-3.           CHGBD205
00275          88  WRK-POOL-ACCT-88   VALUE +028411,                    CHGBD205
00276                          +999000 THRU +999992.                    CHGBD205
00277          88  WRK-FED-ACCT-88    VALUE +1 THRU +1999.              CHGBD205
00278                                                                   CHGBD205
00279      05  WRK-EMP-TYPE                PIC  9(02).                  CHGBD205
00280          88  WRK-EMP-TYPE-CONTRIB-88   VALUE 00.                  CHGBD205
00281          88  WRK-EMP-TYPE-UCX-88       VALUE 01.                  CHGBD205
00282          88  WRK-EMP-TYPE-UCFE-88      VALUE 02.                  CHGBD205
00283          88  WRK-EMP-TYPE-FED-88       VALUE 01, 02.              CHGBD205
00284          88  WRK-EMP-TYPE-CWC-88       VALUE 04.                  CHGBD205
00285          88  WRK-EMP-TYPE-SELF-INS-88  VALUE 08.                  CHGBD205
00286          88  WRK-EMP-TYPE-DC-GOV-88    VALUE 10.                  CHGBD205
00287          88  WRK-EMP-TYPE-NOT-LIAB-88  VALUE 13.                  CHGBD205
00288          88  WRK-EMP-TYPE-TEUC-88      VALUE 16.                  CHGBD205
00289          88  WRK-EMP-TYPE-DOM-VIOLENC-88  VALUE 17.               CHGBD205
00290          88  WRK-EMP-TYPE-STEP-88        VALUE 18.                   CL*27
00291          88  WRK-EMP-TYPE-EUC08-88       VALUE 19.                   CL*27
00292          88  WRK-EMP-TYPE-FAC-88         VALUE 20.                   CL*27
00293          88  WRK-EMP-TYPE-AB-88          VALUE 21.                   CL*27
00294          88  WRK-EMP-TYPE-DEPND-88       VALUE 22.                   CL*27
00295          88  WRK-EMP-TYPE-TRAIN-88       VALUE 23.                   CL*27
00296          88  WRK-EMP-TYPE-EUC08-2PL-88   VALUE 24.                   CL*27
00297          88  WRK-EMP-TYPE-EUC08TR3-88    VALUE 25.                   CL*27
00298          88  WRK-EMP-TYPE-EUC08TR4-88    VALUE 26.                   CL*27
00299          88  WRK-EMP-TYPE-SPEC-PAY-88    VALUE 27.                   CL*27
00300          88  WRK-EMP-TYPE-UCPIA-88       VALUE 28.                   CL*27
00301          88  WRK-EMP-TYP2-PUA-88         VALUE 29.                   CL*27
00302          88  WRK-EMP-TYPE-GPA-88         VALUE 31.                   CL*27
00303          88  WRK-EMP-TYPE-FPUC-88        VALUE 32.                   CL*27
00304          88  WRK-EMP-TYPE-FRUR-88        VALUE 33.                   CL*27
00305          88  WRK-EMP-TYPE-PEUC-88        VALUE 34.                   CL*36
00306          88  WRK-EMP-TYPE-REUR-88        VALUE 35.                   CL*39
00307          88  WRK-EMP-TYPE-POOL-88      VALUE                      CHGBD205
00308                           03, 05, 06, 07, 09,                     CHGBD205
00309                           11, 12, 15, 16, 17                      CHGBD205
00310                           18, 19, 20, 21, 22, 23, 24, 25,         CHGBD205
00311                           26, 27, 28.                                CL*31
00312          88  WRK-EMP-TYPE-VALID-88     VALUE                      CHGBD205
00313                           00, 01, 02, 03, 04, 05,                 CHGBD205
00314                           06, 07, 08, 09, 10, 11, 12,             CHGBD205
00315                           12, 13, 15, 16, 17, 18, 19, 20,         CHGBD205
00316                           21, 22, 23, 24, 25, 26, 27, 28             CL*27
00317                           29, 31, 32, 33, 34, 35.                    CL*39
00318                                                                   CHGBD205
00319      05  WRK-LAST-EMP-CHECKED        PIC S9(07) COMP-3.           CHGBD205
00320                                                                   CHGBD205
00321      05  WRK-RPT-TYPE                PIC  9(02) VALUE ZERO.       CHGBD205
00322          88  WRK-RPT-TYPE-RATED-88     VALUE 00.                  CHGBD205
00323          88  WRK-RPT-TYPE-FED-88       VALUE 01, 02.              CHGBD205
00324          88  WRK-RPT-TYPE-CWC-88       VALUE 04.                  CHGBD205
00325          88  WRK-RPT-TYPE-SELF-INS-88  VALUE 08.                  CHGBD205
00326          88  WRK-RPT-TYPE-DC-88        VALUE 10.                  CHGBD205
00327          88  WRK-RPT-TYPE-FPUC-88      VALUE 29, 31, 32, 33, 34,     CL*39
00328                                              35.                     CL*39
00329          88  WRK-RPT-TYPE-EMP-88       VALUE 00, 01, 02,          CHGBD205
00330                                              04, 08, 10, 29, 31,     CL*36
00331                                              32, 33, 34, 35.         CL*39
00332                                                                   CHGBD205
00333      05  WRK-REC-SELECTED-IND        PIC  X(01) VALUE SPACE.      CHGBD205
00334          88  WRK-REC-SELECTED-YES  VALUE 'Y'.                     CHGBD205
00335          88  WRK-REC-SELECTED-NO   VALUE 'N'.                     CHGBD205
00336                                                                   CHGBD205
00337      05  WRK-EMPLOYER-DATA-AREA.                                  CHGBD205
00338          10  WRK-FISCAL-AGENT-CD        PIC X(03).                CHGBD205
00339              88  WRK-FISC-AG-NONE-88     VALUE SPACES.            CHGBD205
00340          10  WRK-FMT-ADDR.                                        CHGBD205
00341              15  WRK-FMT-LINE OCCURS 5 TIMES                      CHGBD205
00342                                         PIC X(40).                CHGBD205
00343              15  WRK-ZIP                PIC X(10).                CHGBD205
00344              15  WRK-ADVANCED-BARCODE   PIC X(14).                CHGBD205
00345          10  WRK-EMP-NAME-CHK           PIC X(04).                CHGBD205
00346                                                                   CHGBD205
00347      05  WRK-LABEL-ROUTE-AREA.                                    CHGBD205
00348          10  WRK-LABEL-ROUTE-STARS      PIC X(40)  VALUE          CHGBD205
00349              ALL '*'.                                             CHGBD205
00350          10  WRK-LABEL-ROUTE-SELF-INS   PIC X(40)  VALUE          CHGBD205
00351              '             SELF-INSURED               '.          CHGBD205
00352          10  WRK-LABEL-ROUTE-CWC        PIC X(40)  VALUE          CHGBD205
00353              '                  CWC                   '.          CHGBD205
00354          10  WRK-LABEL-ROUTE-FED        PIC X(40)  VALUE          CHGBD205
00355              '                FEDERAL                 '.          CHGBD205
00356                                                                   CHGBD205
00357      05  WRK-BD200-CHG-READ        PIC  9(09) COMP-3 VALUE 0.     CHGBD205
00358      05  WRK-BD205-WRITE           PIC  9(09) COMP-3 VALUE 0.     CHGBD205
00359      05  WRK-BD200-CHG-DELETE      PIC  9(09) COMP-3 VALUE 0.     CHGBD205
00360      05  WRK-BD200-NOT-LIAB-CNT    PIC  9(09) COMP-3 VALUE 0.     CHGBD205
00361      05  WRK-INV-CHRG-ERR-CNT      PIC  9(09) COMP-3 VALUE 0.     CHGBD205
00362      05  WRK-CNT-DISP              PIC  Z(08)9.                   CHGBD205
00363                                                                   CHGBD205
00364  01  WRK-PARM-AREA.                                               CHGBD205
00365  ++INCLUDE CHGIM003                                               CHGBD205
00366                                                                   CHGBD205
00367 ** ADD ERROR MSG TABLE SET UP                                     CHGBD205
00368  01  MSG-TABLE.                                                   CHGBD205
00369      05  MSG1-NO-MPRF.                                            CHGBD205
00370          10  MSG1-ID.                                             CHGBD205
00371              15  MSG1-ID1      PIC X(08)  VALUE 'CHGBD205'.       CHGBD205
00372              15  MSG1-ID2      PIC X(03)  VALUE '205'.            CHGBD205
00373          10  MSG1-SHORT-TEXT   PIC X(20)                          CHGBD205
00374                    VALUE 'EMP NOT ON FILE  :  '.                  CHGBD205
00375          10  MSG1-LONG-TEXT.                                      CHGBD205
00376              15  FILLER        PIC X(29)                          CHGBD205
00377                    VALUE 'EMPLOYER NOT ON MASTER FILE  '.         CHGBD205
00378              15  FILLER        PIC X(32)  VALUE SPACES.           CHGBD205
00379                                                                   CHGBD205
00380      05  MSG2-NOT-LIABLE.                                         CHGBD205
00381          10  MSG2-ID.                                             CHGBD205
00382              15  MSG2-ID1      PIC X(08)  VALUE 'CHGBD205'.       CHGBD205
00383              15  MSG2-ID2      PIC X(03)  VALUE '205'.            CHGBD205
00384          10  MSG2-SHORT-TEXT   PIC X(20)                          CHGBD205
00385                    VALUE 'EMP NOT LIABLE   :  '.                  CHGBD205
00386          10  MSG2-LONG-TEXT.                                      CHGBD205
00387              15  FILLER        PIC X(29)                          CHGBD205
00388                    VALUE 'EMPLOYER IS NOT LIABLE       '.         CHGBD205
00389              15  FILLER        PIC X(32)  VALUE SPACES.           CHGBD205
00390                                                                   CHGBD205
00391      05  MSG4-PRINTING-TURNED-OFF.                                CHGBD205
00392          10  MSG4-ID.                                             CHGBD205
00393              15  MSG4-ID1      PIC X(08)  VALUE 'CHGBD205'.       CHGBD205
00394              15  MSG4-ID2      PIC X(03)  VALUE '205'.            CHGBD205
00395          10  MSG4-SHORT-TEXT   PIC X(20)                          CHGBD205
00396                    VALUE 'CHG STMT PRINT OFF: '.                  CHGBD205
00397          10  MSG4-LONG-TEXT.                                      CHGBD205
00398              15  FILLER        PIC X(36)                          CHGBD205
00399                    VALUE 'CHARGE STATEMENT PRINTING TURNED OFF'.  CHGBD205
00400              15  FILLER        PIC X(25)  VALUE SPACES.           CHGBD205
00401                                                                   CHGBD205
00402      05  MSG5-NO-ADDRESS.                                         CHGBD205
00403          10  MSG5-ID.                                             CHGBD205
00404              15  MSG5-ID1      PIC X(08)  VALUE 'CHGBD205'.       CHGBD205
00405              15  MSG5-ID2      PIC X(03)  VALUE '205'.            CHGBD205
00406          10  MSG5-SHORT-TEXT   PIC X(20)                          CHGBD205
00407                    VALUE 'NO ADDRESS FOUND:   '.                  CHGBD205
00408          10  MSG5-LONG-TEXT.                                      CHGBD205
00409              15  FILLER        PIC X(29)                          CHGBD205
00410                    VALUE 'ADDRESS NOT FOUND            '.         CHGBD205
00411              15  FILLER        PIC X(25)                          CHGBD205
00412                    VALUE '  MPRF EMPLOYER NUMBER = '.             CHGBD205
00413              15  MSG5-EMP-NO   PIC 9(07).                         CHGBD205
00414                                                                   CHGBD205
00415 *&      ADDED 02-21-2002                                          CHGBD205
00416      05  MSG8-TOT-CREDIT-AMT.                                     CHGBD205
00417          10  MSG8-ID.                                             CHGBD205
00418              15  MSG8-ID1      PIC X(08)  VALUE 'CHGBD205'.       CHGBD205
00419              15  MSG8-ID2      PIC X(03)  VALUE '205'.            CHGBD205
00420          10  MSG8-SHORT-TEXT   PIC X(20)                          CHGBD205
00421                    VALUE '                    '.                  CHGBD205
00422          10  MSG8-LONG-TEXT.                                      CHGBD205
00423              15  FILLER        PIC X(15)                          CHGBD205
00424                    VALUE 'BYE < 1/1/2001 '.                       CHGBD205
00425              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD205
00426              15  MSG8-SSN      PIC 9(09)B9.                       CHGBD205
00427              15  FILLER        PIC X(08)  VALUE '  BYE = '.       CHGBD205
00428              15  MSG8-BYE      PIC 9999B99B99.                    CHGBD205
00429              15  FILLER        PIC X(06)  VALUE '  PGM '.         CHGBD205
00430              15  MSG8-PGM      PIC X(01).                         CHGBD205
00431              15  FILLER        PIC X(12)  VALUE '  CHG AMT = '.   CHGBD205
00432              15  MSG8-AMT      PIC Z(04)9.99-.                    CHGBD205
00433              15  FILLER        PIC X(13)  VALUE '  CHG DATE = '.  CHGBD205
00434              15  MSG8-DATE     PIC 9999B99B99.                    CHGBD205
00435                                                                   CHGBD205
00436 ** ERROR MSG OUTPUT RECORD                                        CHGBD205
00437  01  R907-REC.                                                    CHGBD205
00438  ++INCLUDE DTSIR907                                               CHGBD205
00439                                                                   CHGBD205
00440  01  L910-LINK-AREA.                                              CHGBD205
00441  ++INCLUDE DTSIL910                                               CHGBD205
00442                                                                   CHGBD205
00443  01  MSKL-REC.                                                    CHGBD205
00444  ++INCLUDE DTSIMSKL                                               CHGBD205
00445                                                                   CHGBD205
00446  01  MHDR-REC.                                                    CHGBD205
00447  ++INCLUDE DTSIMHDR                                               CHGBD205
00448                                                                   CHGBD205
00449  01  L001-LINK-AREA.                                              CHGBD205
00450  ++INCLUDE DTSIL001                                               CHGBD205
00451                                                                   CHGBD205
00452  01  L004-LINK-AREA.                                              CHGBD205
00453  ++INCLUDE DTSIL004                                               CHGBD205
00454                                                                   CHGBD205
00455      EJECT                                                        CHGBD205
00456  PROCEDURE DIVISION.                                              CHGBD205
00457      SKIP2                                                        CHGBD205
00458  CHGBD210-MAIN.                                                   CHGBD205
00459      PERFORM I0000-INITIATE THRU I0000-EXIT.                      CHGBD205
00460      IF WRK-ERROR-YES-88                                          CHGBD205
00461         GO TO CHGBD210-EXIT.                                      CHGBD205
00462                                                                   CHGBD205
00463      PERFORM P0000-PROCESS THRU P0000-EXIT.                       CHGBD205
00464                                                                   CHGBD205
00465      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     CHGBD205
00466                                                                   CHGBD205
00467  CHGBD210-EXIT.                                                   CHGBD205
00468      STOP RUN.                                                    CHGBD205
00469      EJECT                                                        CHGBD205
00470  I0000-INITIATE.                                                  CHGBD205
00471                                                                   CHGBD205
00472      MOVE ZERO TO  WRK-BD200-CHG-READ                             CHGBD205
00473                    WRK-BD200-NOT-LIAB-CNT                         CHGBD205
00474                    WRK-BD205-WRITE                                CHGBD205
00475                    WRK-BD200-CHG-DELETE                           CHGBD205
00476                    WRK-LAST-EMP-CHECKED.                          CHGBD205
00477                                                                   CHGBD205
00478      MOVE MSG8-ID1 TO R907-MODULE-NAME.                           CHGBD205
00479      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      CHGBD205
00480                                                                   CHGBD205
00481      SET WRK-ERROR-NO-88 TO TRUE.                                 CHGBD205
00482                                                                   CHGBD205
00483      PERFORM I1000-OPEN-FILES THRU I1000-EXIT.                    CHGBD205
00484                                                                   CHGBD205
00485      PERFORM I2000-PROCESS-PARMS THRU I2000-EXIT.                 CHGBD205
00486                                                                   CHGBD205
00487  I0000-EXIT.                                                      CHGBD205
00488      EXIT.                                                        CHGBD205
00489                                                                   CHGBD205
00490  I1000-OPEN-FILES.                                                CHGBD205
00491                                                                   CHGBD205
00492      OPEN INPUT BD200-CHG-FILE-IN.                                CHGBD205
00493      IF NOT BD200-FILE-OK-88                                      CHGBD205
00494         DISPLAY 'BD200 FILE OPEN ERROR: ' BD200-CHG-STATUS        CHGBD205
00495         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00496                                                                   CHGBD205
00497      OPEN OUTPUT BD205-CHG-FILE-OUT.                              CHGBD205
00498      IF NOT BD205-FILE-OK-88                                      CHGBD205
00499         DISPLAY 'BD205 FILE OPEN ERROR: ' BD205-CHG-STATUS        CHGBD205
00500         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00501                                                                   CHGBD205
00502      PERFORM S910-OPEN-READ          THRU S910-EXIT.              CHGBD205
00503                                                                   CHGBD205
00504  I1000-EXIT.                                                      CHGBD205
00505      EXIT.                                                        CHGBD205
00506                                                                   CHGBD205
00507  I2000-PROCESS-PARMS.                                             CHGBD205
00508      OPEN INPUT INPUT-PARM.                                       CHGBD205
00509      IF NOT INPUT-PARM-OK-88                                      CHGBD205
00510         DISPLAY 'INPUT PARM FILE OPEN ERROR: '                    CHGBD205
00511            INPUT-PARM-STATUS                                      CHGBD205
00512         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00513                                                                   CHGBD205
00514      READ INPUT-PARM.                                             CHGBD205
00515      IF NOT INPUT-PARM-OK-88                                      CHGBD205
00516         DISPLAY 'INPUT PARM FILE READ ERROR: '                    CHGBD205
00517            INPUT-PARM-STATUS                                      CHGBD205
00518         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00519                                                                   CHGBD205
00520      DISPLAY '***** CHGBD205 PARM RECORD  *****'.                 CHGBD205
00521      DISPLAY INPUT-PARM-REC.                                      CHGBD205
00522      DISPLAY SPACE.                                               CHGBD205
00523                                                                   CHGBD205
00524      DISPLAY '***** CHGBD205 EDITED PARMS *****'.                 CHGBD205
00525 ***  DISPLAY SPACE.                                               CHGBD205
00526                                                                   CHGBD205
00527      PERFORM I2100-PARM-RUN-TYPE  THRU I2100-EXIT.                CHGBD205
00528                                                                   CHGBD205
00529      PERFORM I2200-PARM-DATES     THRU I2200-EXIT.                CHGBD205
00530                                                                   CHGBD205
00531      PERFORM I2300-PARM-RPT-TYPES THRU I2300-EXIT.                CHGBD205
00532                                                                   CHGBD205
00533      PERFORM I2400-PARM-EMP-NO    THRU I2400-EXIT.                CHGBD205
00534                                                                   CHGBD205
00535      OPEN OUTPUT CHG-PARM-FILE.                                   CHGBD205
00536      IF NOT CHG-PARM-FILE-OK-88                                   CHGBD205
00537         DISPLAY 'TEMP PARM FILE OPEN ERROR: ' CHG-PARM-STATUS     CHGBD205
00538         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00539                                                                   CHGBD205
00540      WRITE CHG-PARM-REC FROM WRK-PARM-AREA.                       CHGBD205
00541      CLOSE CHG-PARM-FILE.                                         CHGBD205
00542                                                                   CHGBD205
00543  I2000-EXIT.                                                      CHGBD205
00544      EXIT.                                                        CHGBD205
00545                                                                   CHGBD205
00546  I2100-PARM-RUN-TYPE.                                             CHGBD205
00547      MOVE PARM-RUN-TYPE TO CHG3-RUN-TYPE.                         CHGBD205
00548      IF CHG3-RUN-TYPE-VALID-88                                    CHGBD205
00549         NEXT SENTENCE                                             CHGBD205
00550      ELSE                                                         CHGBD205
00551         MOVE 'PARM RUN TYPE INVALID ' TO ABEND-MSG                CHGBD205
00552         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00553                                                                   CHGBD205
00554      DISPLAY 'RUN TYPE   : ' CHG3-RUN-TYPE.                       CHGBD205
00555 ***  DISPLAY SPACE.                                               CHGBD205
00556                                                                   CHGBD205
00557  I2100-EXIT.                                                      CHGBD205
00558      EXIT.                                                        CHGBD205
00559                                                                   CHGBD205
00560  I2200-PARM-DATES.                                                CHGBD205
00561      MOVE ZERO TO WRK-BEGIN-DATE                                  CHGBD205
00562                   WRK-END-DATE.                                   CHGBD205
00563                                                                   CHGBD205
00564      IF (PARM-BEGIN-DATE = SPACES OR LOW-VALUES)                  CHGBD205
00565      AND (PARM-END-DATE = SPACES OR LOW-VALUES)                   CHGBD205
00566         PERFORM I2230-DEFAULT-DATES THRU I2230-EXIT               CHGBD205
00567      ELSE                                                         CHGBD205
00568         PERFORM I2210-BEGIN-DATE THRU I2210-EXIT                  CHGBD205
00569         PERFORM I2220-END-DATE   THRU I2220-EXIT.                 CHGBD205
00570                                                                   CHGBD205
00571      IF WRK-END-DATE < WRK-BEGIN-DATE                             CHGBD205
00572          MOVE 'PERIOD END LESS THAN PERIOD BEGIN'                 CHGBD205
00573             TO ABEND-MSG                                          CHGBD205
00574          PERFORM S999-ABEND THRU S999-EXIT.                       CHGBD205
00575                                                                   CHGBD205
00576      MOVE WRK-BEGIN-DATE         TO CHG3-BEGIN-DATE.              CHGBD205
00577      MOVE WRK-END-DATE           TO CHG3-END-DATE.                CHGBD205
00578                                                                   CHGBD205
00579      DISPLAY 'START DATE : ' WRK-BEGIN-DATE.                      CHGBD205
00580      DISPLAY 'END DATE   : ' WRK-END-DATE.                        CHGBD205
00581      DISPLAY SPACE.                                               CHGBD205
00582                                                                   CHGBD205
00583  I2200-EXIT.                                                      CHGBD205
00584      EXIT.                                                        CHGBD205
00585                                                                   CHGBD205
00586  I2210-BEGIN-DATE.                                                CHGBD205
00587      MOVE PARM-BEGIN-DATE TO L001-CAL-6-DATE-X.                   CHGBD205
00588      PERFORM S001-FROM-CAL-6 THRU S001-EXIT.                      CHGBD205
00589      IF L001-VALID-DATE                                           CHGBD205
00590         MOVE L001-FED-8-DATE-9 TO WRK-BEGIN-DATE                  CHGBD205
00591      ELSE                                                         CHGBD205
00592         MOVE 'INVALID PERIOD BEGIN DATE' TO ABEND-MSG             CHGBD205
00593         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00594                                                                   CHGBD205
00595      IF CHG3-RUN-TYPE-QTRLY-88                                    CHGBD205
00596         PERFORM I2211-QTR-BEGIN-DATE  THRU I2211-EXIT             CHGBD205
00597      ELSE                                                         CHGBD205
00598      IF CHG3-RUN-TYPE-ANNUAL-88                                   CHGBD205
00599         PERFORM I2212-ANN-BEGIN-DATE  THRU I2212-EXIT             CHGBD205
00600      ELSE                                                         CHGBD205
00601      IF CHG3-RUN-TYPE-MONTHLY-88                                  CHGBD205
00602         PERFORM I2213-MON-BEGIN-DATE  THRU I2213-EXIT             CHGBD205
00603      ELSE                                                         CHGBD205
00604      IF CHG3-RUN-TYPE-WEEKLY-88                                   CHGBD205
00605         PERFORM I2214-WKLY-BEGIN-DATE  THRU I2214-EXIT.           CHGBD205
00606                                                                   CHGBD205
00607  I2210-EXIT.                                                      CHGBD205
00608      EXIT.                                                        CHGBD205
00609                                                                   CHGBD205
00610  I2211-QTR-BEGIN-DATE.                                            CHGBD205
00611      MOVE WRK-BEGIN-DATE TO L004-DATE.                            CHGBD205
00612      PERFORM S004-FROM-DATE THRU S004-EXIT.                       CHGBD205
00613      IF WRK-BEGIN-DATE NOT = L004-QTR-START-DATE                  CHGBD205
00614         MOVE 'PERIOD BEGIN NOT START OF QTR'                      CHGBD205
00615                                  TO ABEND-MSG                     CHGBD205
00616         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00617      END-IF.                                                      CHGBD205
00618                                                                   CHGBD205
00619  I2211-EXIT.                                                      CHGBD205
00620      EXIT.                                                        CHGBD205
00621                                                                   CHGBD205
00622  I2212-ANN-BEGIN-DATE.                                            CHGBD205
00623      MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP.                  CHGBD205
00624      IF WRK-BEGIN-MO = 07                                         CHGBD205
00625      AND WRK-BEGIN-DA = 01                                        CHGBD205
00626         NEXT SENTENCE                                             CHGBD205
00627      ELSE                                                         CHGBD205
00628         MOVE 'ANNUAL START DATE MUST BE JULY 1'                   CHGBD205
00629                                  TO ABEND-MSG                     CHGBD205
00630         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00631      END-IF.                                                      CHGBD205
00632                                                                   CHGBD205
00633  I2212-EXIT.                                                      CHGBD205
00634      EXIT.                                                        CHGBD205
00635                                                                   CHGBD205
00636  I2213-MON-BEGIN-DATE.                                            CHGBD205
00637      MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP.                  CHGBD205
00638      IF WRK-BEGIN-DA = 01                                         CHGBD205
00639         NEXT SENTENCE                                             CHGBD205
00640      ELSE                                                         CHGBD205
00641         MOVE 'MONTHLY START DATE MUST BE FIRST DAY OF MONTH'      CHGBD205
00642                                  TO ABEND-MSG                     CHGBD205
00643         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00644      END-IF.                                                      CHGBD205
00645                                                                   CHGBD205
00646  I2213-EXIT.                                                      CHGBD205
00647      EXIT.                                                        CHGBD205
00648                                                                   CHGBD205
00649  I2214-WKLY-BEGIN-DATE.                                           CHGBD205
00650      IF L001-SUNDAY                                               CHGBD205
00651      OR L001-MONDAY                                               CHGBD205
00652         NEXT SENTENCE                                             CHGBD205
00653      ELSE                                                         CHGBD205
00654         MOVE 'WEEKLY START DATE MUST BE SUNDAY OR MONDAY'         CHGBD205
00655                                  TO ABEND-MSG                     CHGBD205
00656         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00657      END-IF.                                                      CHGBD205
00658                                                                   CHGBD205
00659  I2214-EXIT.                                                      CHGBD205
00660      EXIT.                                                        CHGBD205
00661                                                                   CHGBD205
00662  I2220-END-DATE.                                                  CHGBD205
00663      MOVE PARM-END-DATE TO L001-CAL-6-DATE-X.                     CHGBD205
00664      PERFORM S001-FROM-CAL-6 THRU S001-EXIT.                      CHGBD205
00665      IF L001-VALID-DATE                                           CHGBD205
00666         MOVE L001-FED-8-DATE-9 TO WRK-END-DATE                    CHGBD205
00667      ELSE                                                         CHGBD205
00668         MOVE 'INVALID PERIOD END DATE' TO ABEND-MSG               CHGBD205
00669         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00670                                                                   CHGBD205
00671      IF CHG3-RUN-TYPE-QTRLY-88                                    CHGBD205
00672         PERFORM I2221-QTR-END-DATE    THRU I2221-EXIT             CHGBD205
00673      ELSE                                                         CHGBD205
00674      IF CHG3-RUN-TYPE-ANNUAL-88                                   CHGBD205
00675         PERFORM I2222-ANN-END-DATE    THRU I2222-EXIT             CHGBD205
00676      ELSE                                                         CHGBD205
00677      IF CHG3-RUN-TYPE-MONTHLY-88                                  CHGBD205
00678         PERFORM I2223-MON-END-DATE    THRU I2223-EXIT             CHGBD205
00679      ELSE                                                         CHGBD205
00680      IF CHG3-RUN-TYPE-WEEKLY-88                                   CHGBD205
00681         PERFORM I2224-WKLY-END-DATE   THRU I2224-EXIT.            CHGBD205
00682                                                                   CHGBD205
00683  I2220-EXIT.                                                      CHGBD205
00684      EXIT.                                                        CHGBD205
00685                                                                   CHGBD205
00686  I2221-QTR-END-DATE.                                              CHGBD205
00687      MOVE WRK-END-DATE TO L004-DATE.                              CHGBD205
00688      PERFORM S004-FROM-DATE THRU S004-EXIT.                       CHGBD205
00689      IF WRK-END-DATE NOT = L004-QTR-END-DATE                      CHGBD205
00690         MOVE 'PERIOD END NOT END OF QTR'                          CHGBD205
00691                                  TO ABEND-MSG                     CHGBD205
00692         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00693      END-IF.                                                      CHGBD205
00694                                                                   CHGBD205
00695  I2221-EXIT.                                                      CHGBD205
00696      EXIT.                                                        CHGBD205
00697                                                                   CHGBD205
00698  I2222-ANN-END-DATE.                                              CHGBD205
00699      MOVE WRK-END-DATE TO WRK-END-DATE-DISP.                      CHGBD205
00700      IF WRK-END-MO = 06                                           CHGBD205
00701      AND WRK-END-DA = 30                                          CHGBD205
00702         NEXT SENTENCE                                             CHGBD205
00703      ELSE                                                         CHGBD205
00704         MOVE 'ANNUAL END DATE MUST BE JUNE 30'                    CHGBD205
00705                                  TO ABEND-MSG                     CHGBD205
00706         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00707      END-IF.                                                      CHGBD205
00708                                                                   CHGBD205
00709      IF (WRK-BEGIN-YR + 1) = WRK-END-YR                           CHGBD205
00710         NEXT SENTENCE                                             CHGBD205
00711      ELSE                                                         CHGBD205
00712         MOVE 'START DATE NOT 1 YEAR PRIOR TO END DATE'            CHGBD205
00713                                  TO ABEND-MSG                     CHGBD205
00714         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00715      END-IF.                                                      CHGBD205
00716                                                                   CHGBD205
00717  I2222-EXIT.                                                      CHGBD205
00718      EXIT.                                                        CHGBD205
00719                                                                   CHGBD205
00720  I2223-MON-END-DATE.                                              CHGBD205
00721      MOVE WRK-END-DATE       TO L001-FED-8-DATE-9.                CHGBD205
00722      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      CHGBD205
00723      ADD +1                  TO L001-JUL-ABS-DAY.                 CHGBD205
00724      PERFORM S001-FROM-ABS   THRU S001-EXIT.                      CHGBD205
00725      IF L001-FED-8-DA = 01                                        CHGBD205
00726         NEXT SENTENCE                                             CHGBD205
00727      ELSE                                                         CHGBD205
00728         MOVE 'END DATE MUST BE END OF MONTH'                      CHGBD205
00729                                  TO ABEND-MSG                     CHGBD205
00730         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00731      END-IF.                                                      CHGBD205
00732                                                                   CHGBD205
00733      IF (WRK-END-DATE - WRK-BEGIN-DATE) > 30                      CHGBD205
00734         MOVE 'BEGIN AND END DATES NOT IN SAME MONTH'              CHGBD205
00735                                  TO ABEND-MSG                     CHGBD205
00736         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00737      END-IF.                                                      CHGBD205
00738                                                                   CHGBD205
00739  I2223-EXIT.                                                      CHGBD205
00740      EXIT.                                                        CHGBD205
00741                                                                   CHGBD205
00742  I2224-WKLY-END-DATE.                                             CHGBD205
00743      IF L001-FRIDAY                                               CHGBD205
00744      OR L001-SATURDAY                                             CHGBD205
00745         NEXT SENTENCE                                             CHGBD205
00746      ELSE                                                         CHGBD205
00747         MOVE 'WEEKLY END DATE MUST BE FRIDAY OR SATURDAY'         CHGBD205
00748                                  TO ABEND-MSG                     CHGBD205
00749         PERFORM S999-ABEND THRU S999-EXIT                         CHGBD205
00750      END-IF.                                                      CHGBD205
00751                                                                   CHGBD205
00752  I2224-EXIT.                                                      CHGBD205
00753      EXIT.                                                        CHGBD205
00754                                                                   CHGBD205
00755  I2230-DEFAULT-DATES.                                             CHGBD205
00756      IF CHG3-RUN-TYPE-SPECIAL-88                                  CHGBD205
00757         MOVE 'DATES REQUIRED FOR SPECIAL REQUEST'                 CHGBD205
00758                                TO ABEND-MSG                       CHGBD205
00759         PERFORM S999-ABEND     THRU S999-EXIT.                    CHGBD205
00760                                                                   CHGBD205
00761      MOVE LOW-VALUES           TO MSKL-KEY-AREA.                  CHGBD205
00762      MOVE +0                   TO MSKL-EMP-NO.                    CHGBD205
00763      SET MSKL-HDR-88           TO TRUE.                           CHGBD205
00764      PERFORM S910-READ         THRU S910-EXIT.                    CHGBD205
00765                                                                   CHGBD205
00766      IF L910-NO-REC-88                                            CHGBD205
00767         MOVE 'MHDR RECORD IS MISSING'                             CHGBD205
00768                                TO ABEND-MSG                       CHGBD205
00769         PERFORM S999-ABEND     THRU S999-EXIT.                    CHGBD205
00770                                                                   CHGBD205
00771      MOVE MSKL-REC             TO MHDR-REC.                       CHGBD205
00772                                                                   CHGBD205
00773      IF CHG3-RUN-TYPE-QTRLY-88                                    CHGBD205
00774      OR CHG3-RUN-TYPE-RPTS-88                                     CHGBD205
00775         PERFORM I2231-DEFAULT-QTR-DATES THRU I2231-EXIT           CHGBD205
00776      ELSE                                                         CHGBD205
00777      IF CHG3-RUN-TYPE-ANNUAL-88                                   CHGBD205
00778         PERFORM I2232-DEFAULT-ANN-DATES THRU I2232-EXIT           CHGBD205
00779      ELSE                                                         CHGBD205
00780      IF CHG3-RUN-TYPE-MONTHLY-88                                  CHGBD205
00781         PERFORM I2233-DEFAULT-MON-DATES THRU I2233-EXIT           CHGBD205
00782      ELSE                                                         CHGBD205
00783      IF CHG3-RUN-TYPE-WEEKLY-88                                   CHGBD205
00784         PERFORM I2234-DEFAULT-WKLY-DATES THRU I2234-EXIT.         CHGBD205
00785                                                                   CHGBD205
00786  I2230-EXIT.                                                      CHGBD205
00787      EXIT.                                                        CHGBD205
00788                                                                   CHGBD205
00789  I2231-DEFAULT-QTR-DATES.                                         CHGBD205
00790      MOVE MHDR-CMPL-QTR-BEGIN-DATE                                CHGBD205
00791                                TO WRK-BEGIN-DATE.                 CHGBD205
00792      MOVE MHDR-CMPL-QTR-END-DATE                                  CHGBD205
00793                                TO WRK-END-DATE.                   CHGBD205
00794                                                                   CHGBD205
00795  I2231-EXIT.                                                      CHGBD205
00796      EXIT.                                                        CHGBD205
00797                                                                   CHGBD205
00798  I2232-DEFAULT-ANN-DATES.                                         CHGBD205
00799      MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9.                 CHGBD205
00800      MOVE L004-QTR-5-YR          TO WRK-END-YR.                   CHGBD205
00801      MOVE 06                     TO WRK-END-MO.                   CHGBD205
00802      MOVE 30                     TO WRK-END-DA.                   CHGBD205
00803      MOVE WRK-END-DATE-DISP      TO WRK-END-DATE.                 CHGBD205
00804                                                                   CHGBD205
00805      COMPUTE WRK-BEGIN-YR = (WRK-END-YR - 1).                     CHGBD205
00806      MOVE 07                     TO WRK-BEGIN-MO.                 CHGBD205
00807      MOVE 01                     TO WRK-BEGIN-DA.                 CHGBD205
00808      MOVE WRK-BEGIN-DATE-DISP    TO WRK-BEGIN-DATE.               CHGBD205
00809                                                                   CHGBD205
00810      IF WRK-END-DATE >= MHDR-CURR-RUN-DATE                        CHGBD205
00811         MOVE 'ANNUAL RPT CAN NOT RUN UNTIL AFTER JUNE 30'         CHGBD205
00812            TO ABEND-MSG                                           CHGBD205
00813         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00814                                                                   CHGBD205
00815  I2232-EXIT.                                                      CHGBD205
00816      EXIT.                                                        CHGBD205
00817                                                                   CHGBD205
00818  I2233-DEFAULT-MON-DATES.                                         CHGBD205
00819      MOVE MHDR-CMPL-MONTH-BEGIN-DATE                              CHGBD205
00820                                TO WRK-BEGIN-DATE.                 CHGBD205
00821      MOVE MHDR-CMPL-MONTH-END-DATE                                CHGBD205
00822                                TO WRK-END-DATE.                   CHGBD205
00823                                                                   CHGBD205
00824  I2233-EXIT.                                                      CHGBD205
00825      EXIT.                                                        CHGBD205
00826                                                                   CHGBD205
00827  I2234-DEFAULT-WKLY-DATES.                                        CHGBD205
00828      MOVE MHDR-CMPL-WEEK-BEGIN-DATE                               CHGBD205
00829                                TO WRK-BEGIN-DATE.                 CHGBD205
00830      MOVE MHDR-CMPL-WEEK-END-DATE                                 CHGBD205
00831                                TO WRK-END-DATE.                   CHGBD205
00832                                                                   CHGBD205
00833  I2234-EXIT.                                                      CHGBD205
00834      EXIT.                                                        CHGBD205
00835                                                                   CHGBD205
00836  I2300-PARM-RPT-TYPES.                                            CHGBD205
00837      IF CHG3-RUN-TYPE-RPTS-88                                     CHGBD205
00838         NEXT SENTENCE                                             CHGBD205
00839      ELSE                                                         CHGBD205
00840         PERFORM I2310-DEFAULT-RPTS THRU I2310-EXIT                CHGBD205
00841         GO TO I2300-EXIT.                                         CHGBD205
00842                                                                   CHGBD205
00843      MOVE PARM-REPORT-TYPES      TO CHG3-RPT-TYPES.               CHGBD205
00844                                                                   CHGBD205
00845      IF CHG3-RPT-TYPE-RATED-88                                    CHGBD205
00846      OR CHG3-RPT-TYPE-SELF-INS-88                                 CHGBD205
00847      OR CHG3-RPT-TYPE-CWC-88                                      CHGBD205
00848      OR CHG3-RPT-TYPE-FED-88                                      CHGBD205
00849      OR CHG3-RPT-TYPE-TEUC-88                                     CHGBD205
00850      OR CHG3-RPT-TYPE-DC-88                                       CHGBD205
00851      OR CHG3-RPT-TYPE-FPUC-88                                        CL*29
00852         NEXT SENTENCE                                             CHGBD205
00853      ELSE                                                         CHGBD205
00854         MOVE 'AT LEAST ONE RPT TYPE MUST SET TO Y ' TO ABEND-MSG  CHGBD205
00855         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00856                                                                   CHGBD205
00857      IF CHG3-RPT-TYPE-RATED-88                                    CHGBD205
00858         DISPLAY 'SELECT RATED EMPLOYERS'.                         CHGBD205
00859      IF CHG3-RPT-TYPE-SELF-INS-88                                 CHGBD205
00860         DISPLAY 'SELECT SELF-INSURED EMPLOYERS'.                  CHGBD205
00861      IF CHG3-RPT-TYPE-CWC-88                                      CHGBD205
00862         DISPLAY 'SELECT CWC EMPLOYERS'.                           CHGBD205
00863      IF CHG3-RPT-TYPE-FED-88                                      CHGBD205
00864         DISPLAY 'SELECT FEDERAL EMPLOYERS'.                       CHGBD205
00865      IF CHG3-RPT-TYPE-TEUC-88                                     CHGBD205
00866         DISPLAY 'SELECT TEUC EMPLOYERS'.                          CHGBD205
00867      IF CHG3-RPT-TYPE-DC-88                                       CHGBD205
00868         DISPLAY 'SELECT DC GOV EMPLOYERS'.                        CHGBD205
00869      IF CHG3-RPT-TYPE-FPUC-88                                        CL*29
00870         DISPLAY 'SELECT FPUC  EMPLOYERS'.                            CL*29
00871      DISPLAY SPACE.                                               CHGBD205
00872                                                                   CHGBD205
00873  I2300-EXIT.                                                      CHGBD205
00874      EXIT.                                                        CHGBD205
00875                                                                   CHGBD205
00876  I2310-DEFAULT-RPTS.                                              CHGBD205
00877      IF CHG3-RUN-TYPE-QTRLY-88                                    CHGBD205
00878      OR CHG3-RUN-TYPE-EMP-88                                      CHGBD205
00879      OR CHG3-RUN-TYPE-MONTHLY-88                                  CHGBD205
00880      OR CHG3-RUN-TYPE-WEEKLY-88                                      CL*38
00881         SET CHG3-RPT-TYPE-RATED-88     TO TRUE                    CHGBD205
00882         SET CHG3-RPT-TYPE-SELF-INS-88  TO TRUE                    CHGBD205
00883         SET CHG3-RPT-TYPE-CWC-88       TO TRUE                    CHGBD205
00884         SET CHG3-RPT-TYPE-FED-88       TO TRUE                    CHGBD205
00885         SET CHG3-RPT-TYPE-DC-88        TO TRUE                    CHGBD205
00886      ELSE                                                         CHGBD205
00887      IF CHG3-RUN-TYPE-ANNUAL-88                                   CHGBD205
00888      OR CHG3-RUN-TYPE-AGENT-88                                    CHGBD205
00889         SET CHG3-RPT-TYPE-RATED-88     TO TRUE                    CHGBD205
00890      ELSE                                                         CHGBD205
00891      IF CHG3-RUN-TYPE-TEUC-88                                     CHGBD205
00892         SET CHG3-RPT-TYPE-TEUC-88      TO TRUE                       CL*30
00893      ELSE                                                            CL*30
00894      IF CHG3-RUN-TYPE-FPUC-88                                        CL*30
00895         SET CHG3-RPT-TYPE-FPUC-88      TO TRUE.                      CL*38
00896                                                                   CHGBD205
00897  I2310-EXIT.                                                      CHGBD205
00898      EXIT.                                                        CHGBD205
00899                                                                   CHGBD205
00900  I2400-PARM-EMP-NO.                                               CHGBD205
00901      IF CHG3-RUN-TYPE-EMP-88                                      CHGBD205
00902      OR CHG3-RUN-TYPE-ANN-EMP-88                                  CHGBD205
00903      OR CHG3-RUN-TYPE-MON-EMP-88                                  CHGBD205
00904      OR CHG3-RUN-TYPE-WK-EMP-88                                   CHGBD205
00905         NEXT SENTENCE                                             CHGBD205
00906      ELSE                                                         CHGBD205
00907         MOVE ZERO         TO CHG3-EMP-NO                          CHGBD205
00908         GO TO I2400-EXIT.                                         CHGBD205
00909                                                                   CHGBD205
00910      IF PARM-EMP-NO NUMERIC                                       CHGBD205
00911         IF PARM-EMP-NO > ZERO                                     CHGBD205
00912            NEXT SENTENCE                                          CHGBD205
00913         ELSE                                                      CHGBD205
00914            MOVE 'PARM EMP NO MUST BE > ZERO' TO ABEND-MSG         CHGBD205
00915            PERFORM S999-ABEND THRU S999-EXIT                      CHGBD205
00916         END-IF                                                    CHGBD205
00917      ELSE                                                         CHGBD205
00918         MOVE 'PARM EMP NO NOT NUMERIC' TO ABEND-MSG               CHGBD205
00919         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD205
00920                                                                   CHGBD205
00921      MOVE PARM-EMP-NO              TO CHG3-EMP-NO.                CHGBD205
00922                                                                   CHGBD205
00923      DISPLAY 'EMPLOYER SELECTED: ' CHG3-EMP-NO.                   CHGBD205
00924                                                                   CHGBD205
00925  I2400-EXIT.                                                      CHGBD205
00926      EXIT.                                                        CHGBD205
00927                                                                   CHGBD205
00928  P0000-PROCESS.                                                   CHGBD205
00929                                                                   CHGBD205
00930      MOVE WRK-BEGIN-DATE         TO CHG2-CHARGE-DATE.             CHGBD205
00931      MOVE +0                     TO CHG2-EMP-NO                   CHGBD205
00932                                     CHG2-SSN                      CHGBD205
00933                                     CHG2-BYE.                     CHGBD205
00934      MOVE '0'                    TO CHG2-PROGRAM.                 CHGBD205
00935      START BD200-CHG-FILE-IN                                      CHGBD205
00936         KEY IS >= CHG2-KEY-AREA.                                  CHGBD205
00937                                                                   CHGBD205
00938      IF NOT BD200-FILE-OK-88                                      CHGBD205
00939         DISPLAY 'BD200 FIRST READ ERROR: ' BD200-CHG-STATUS       CHGBD205
00940         PERFORM P0100-NO-RECS THRU P0100-EXIT                     CHGBD205
00941         GO TO P0000-EXIT.                                         CHGBD205
00942                                                                   CHGBD205
00943      PERFORM P1000-READ-CHARGES THRU P1000-EXIT                   CHGBD205
00944         UNTIL BD200-FILE-EOF-88                                   CHGBD205
00945         OR    CHG2-CHARGE-DATE > WRK-END-DATE                     CHGBD205
00946         OR    WRK-ERROR-YES-88.                                   CHGBD205
00947                                                                   CHGBD205
00948  P0000-EXIT.                                                      CHGBD205
00949      EXIT.                                                        CHGBD205
00950                                                                   CHGBD205
00951  P0100-NO-RECS.                                                   CHGBD205
00952      DISPLAY '***  NO RECORDS FOUND FOR PARM  ***'.               CHGBD205
00953      DISPLAY '***          RUN ENDING         ***'.               CHGBD205
00954                                                                   CHGBD205
00955  P0100-EXIT.                                                      CHGBD205
00956      EXIT.                                                        CHGBD205
00957                                                                   CHGBD205
00958  P1000-READ-CHARGES.                                              CHGBD205
00959      READ BD200-CHG-FILE-IN NEXT.                                 CHGBD205
00960                                                                   CHGBD205
00961      IF BD200-FILE-EOF-88                                         CHGBD205
00962      OR CHG2-CHARGE-DATE > WRK-END-DATE                           CHGBD205
00963         GO TO P1000-EXIT                                          CHGBD205
00964      ELSE                                                         CHGBD205
00965         IF NOT BD200-FILE-OK-88                                   CHGBD205
00966            DISPLAY 'BD200 FILE READ ERROR: ' BD200-CHG-STATUS     CHGBD205
00967            SET WRK-ERROR-YES-88 TO TRUE                           CHGBD205
00968            GO TO P1000-EXIT.                                      CHGBD205
00969                                                                   CHGBD205
00970      ADD 1 TO WRK-BD200-CHG-READ.                                 CHGBD205
00971      MOVE CHG2-EMP-TYPE  TO WRK-EMP-TYPE.                         CHGBD205
00972      IF WRK-EMP-TYPE-POOL-88                                      CHGBD205
00973         ADD +1 TO WRK-BD200-CHG-DELETE                            CHGBD205
00974         COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT +           CHGBD205
00975                (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT)            CHGBD205
00976         GO TO P1000-EXIT.                                         CHGBD205
00977                                                                   CHGBD205
00978      MOVE CHG2-EMP-NO    TO WRK-EMP-NO.                           CHGBD205
00979      IF WRK-POOL-ACCT-88                                          CHGBD205
00980         ADD +1 TO WRK-BD200-CHG-DELETE                            CHGBD205
00981         COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT +           CHGBD205
00982                (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT)            CHGBD205
00983         GO TO P1000-EXIT.                                         CHGBD205
00984                                                                   CHGBD205
00985                                                                   CHGBD205
00986 *&   EXCLUDE RECORDS WITH BYE PRIOR TO 1/1/2001                   CHGBD205
00987 *&   FOR EMPLOYER TYPE = UCX, UCFE, SELF-INSURED,                 CHGBD205
00988 *&   DC GOVERNMENT.  PER FRANK ORLANDO 2/21/2002 - GD.            CHGBD205
00989                                                                   CHGBD205
00990 **   THERE IS NO LONGER ANY NEED TO BYPASS THE CHARGE             CHGBD205
00991 **   DATA - THE PROBLEM IN THE BENEFITS PROCESS HAS               CHGBD205
00992 **   BEEN FIXED PER BRUCE.  6/24/2009  GD                         CHGBD205
00993 ***  IF (CHG2-BYE = ZERO) OR (CHG2-CHARGE-DATE < 20010101)        CHGBD205
00994 *       NEXT SENTENCE                                             CHGBD205
00995 *    ELSE                                                         CHGBD205
00996 *      IF CHG2-BYE < 20010101                                     CHGBD205
00997 *         IF WRK-EMP-TYPE-UCX-88                                  CHGBD205
00998 *         OR WRK-EMP-TYPE-UCFE-88                                 CHGBD205
00999 *         OR WRK-EMP-TYPE-SELF-INS-88                             CHGBD205
01000 *         OR WRK-EMP-TYPE-DC-GOV-88                               CHGBD205
01001 *         OR (WRK-EMP-TYPE-CWC-88 AND WRK-FED-ACCT-88)            CHGBD205
01002 *            MOVE MSG8-ID2          TO R907-MSG-ID                CHGBD205
01003 *            MOVE CHG2-EMP-NO       TO R907-EMP-NO                CHGBD205
01004 *            MOVE CHG2-SSN          TO MSG8-SSN                   CHGBD205
01005 *            MOVE CHG2-BYE          TO MSG8-BYE                   CHGBD205
01006 *            MOVE CHG2-PROGRAM      TO MSG8-PGM                   CHGBD205
01007 *            MOVE CHG2-CURR-BEN-AMT TO MSG8-AMT                   CHGBD205
01008 *            MOVE CHG2-CHARGE-DATE  TO MSG8-DATE                  CHGBD205
01009 *            MOVE MSG8-LONG-TEXT    TO R907-MSG-TEXT              CHGBD205
01010 *            ADD +1                 TO WRK-INV-CHRG-ERR-CNT       CHGBD205
01011 *            COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT +      CHGBD205
01012 *                (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT)          CHGBD205
01013 *            PERFORM S946-R907-WRITE THRU S946-EXIT               CHGBD205
01014 **           GO TO P1000-EXIT.                                    CHGBD205
01015                                                                   CHGBD205
01016      IF CHG2-EMP-TYPE = 10 AND CHG2-PROGRAM NOT = '1'                CL*40
01017          GO TO P1000-EXIT.                                           CL*40
01018                                                                      CL*40
01019      PERFORM S1100-WRITE-BD205  THRU S1100-EXIT                   CHGBD205
01020      COMPUTE WRK-TOT-CHG = WRK-TOT-CHG +                          CHGBD205
01021        (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT).                   CHGBD205
01022                                                                   CHGBD205
01023  P1000-EXIT.                                                      CHGBD205
01024      EXIT.                                                        CHGBD205
01025                                                                   CHGBD205
01026  S1100-WRITE-BD205.                                               CHGBD205
01027      WRITE BD205-CHG-REC FROM BD200-CHG-REC.                      CHGBD205
01028      IF BD205-FILE-OK-88                                          CHGBD205
01029         ADD 1 TO WRK-BD205-WRITE.                                 CHGBD205
01030                                                                   CHGBD205
01031  S1100-EXIT.                                                      CHGBD205
01032      EXIT.                                                        CHGBD205
01033                                                                   CHGBD205
01034  S001-FROM-CAL-6.                                                 CHGBD205
01035      SET L001-FROM-CAL-6 TO TRUE.                                 CHGBD205
01036      GO TO S001-DATE.                                             CHGBD205
01037                                                                   CHGBD205
01038  S001-FROM-FED-8.                                                 CHGBD205
01039      SET L001-FROM-FED-8 TO TRUE.                                 CHGBD205
01040      GO TO S001-DATE.                                             CHGBD205
01041                                                                   CHGBD205
01042  S001-FROM-ABS.                                                   CHGBD205
01043      SET L001-FROM-ABS-DAY  TO TRUE.                              CHGBD205
01044      GO TO S001-DATE.                                             CHGBD205
01045                                                                   CHGBD205
01046  S001-DATE.                                                       CHGBD205
01047      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBD205
01048  S001-EXIT. EXIT.                                                 CHGBD205
01049                                                                   CHGBD205
01050  S004-FROM-DATE.                                                  CHGBD205
01051      SET L004-FROM-DATE TO TRUE.                                  CHGBD205
01052      GO TO S004-YRQ.                                              CHGBD205
01053                                                                   CHGBD205
01054  S004-YRQ.                                                        CHGBD205
01055      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBD205
01056  S004-EXIT. EXIT.                                                 CHGBD205
01057                                                                   CHGBD205
01058  S910-OPEN-READ.                                                  CHGBD205
01059      SET L910-OPEN-READ-88 TO TRUE.                               CHGBD205
01060      GO TO S910-MSTR-IO.                                          CHGBD205
01061                                                                   CHGBD205
01062  S910-READ.                                                       CHGBD205
01063      SET L910-READ-88 TO TRUE.                                    CHGBD205
01064      GO TO S910-MSTR-IO.                                          CHGBD205
01065                                                                   CHGBD205
01066  S910-CLOSE.                                                      CHGBD205
01067      SET L910-CLOSE-88 TO TRUE.                                   CHGBD205
01068      GO TO S910-MSTR-IO.                                          CHGBD205
01069                                                                   CHGBD205
01070  S910-MSTR-IO.                                                    CHGBD205
01071      CALL 'DTSBU910' USING L910-LINK-AREA                         CHGBD205
01072                            MSKL-REC.                              CHGBD205
01073                                                                   CHGBD205
01074  S910-EXIT.                                                       CHGBD205
01075      EXIT.                                                        CHGBD205
01076                                                                   CHGBD205
01077 ** ADD ERROR MSG PROCESS PARA.                                    CHGBD205
01078  S946-R907-WRITE.                                                 CHGBD205
01079      CALL 'DTSBU946' USING R907-REC.                              CHGBD205
01080  S946-EXIT. EXIT.                                                 CHGBD205
01081                                                                   CHGBD205
01082  T0000-TERMINATE.                                                 CHGBD205
01083      CLOSE BD200-CHG-FILE-IN                                      CHGBD205
01084            BD205-CHG-FILE-OUT.                                    CHGBD205
01085                                                                   CHGBD205
01086      PERFORM S910-CLOSE     THRU S910-EXIT.                       CHGBD205
01087                                                                   CHGBD205
01088      DISPLAY '**************  CHGBD205 COUNTS  **************'.   CHGBD205
01089      DISPLAY '***                                         ***'.   CHGBD205
01090                                                                   CHGBD205
01091      MOVE WRK-BD200-CHG-READ TO WRK-CNT-DISP.                     CHGBD205
01092      DISPLAY 'CHARGE RECORDS READ:     '                          CHGBD205
01093         WRK-CNT-DISP.                                             CHGBD205
01094                                                                   CHGBD205
01095      MOVE WRK-BD205-WRITE TO WRK-CNT-DISP.                        CHGBD205
01096      DISPLAY 'CHARGE RECORDS WRITTEN:  '                          CHGBD205
01097         WRK-CNT-DISP.                                             CHGBD205
01098                                                                   CHGBD205
01099      DISPLAY SPACE.                                               CHGBD205
01100                                                                   CHGBD205
01101      MOVE WRK-TOT-CHG   TO WRK-TOT-CHG-DISP.                      CHGBD205
01102 ***  DISPLAY SPACE.                                               CHGBD205
01103      DISPLAY 'CHGBD205 TOTAL CHARGE:     ' WRK-TOT-CHG-DISP.      CHGBD205
01104                                                                   CHGBD205
01105      MOVE WRK-INV-CHRG-ERR-CNT TO WRK-CNT-DISP.                   CHGBD205
01106      DISPLAY SPACE.                                               CHGBD205
01107      DISPLAY 'PRE-2001 CHARGES EXCLUDED: '                        CHGBD205
01108                                       WRK-CNT-DISP.               CHGBD205
01109                                                                   CHGBD205
01110      MOVE WRK-BD200-CHG-DELETE TO WRK-CNT-DISP.                   CHGBD205
01111      DISPLAY 'POOL ACCOUNTS EXCLUDED:  '                          CHGBD205
01112         WRK-CNT-DISP.                                             CHGBD205
01113                                                                   CHGBD205
01114      MOVE WRK-CURR-SUMM-AMT TO WRK-CURR-SUMM-AMT-DISP.            CHGBD205
01115      DISPLAY SPACE.                                               CHGBD205
01116      DISPLAY 'POOL ACCT CHARGES EXCLUDED: '                       CHGBD205
01117                                       WRK-CURR-SUMM-AMT-DISP.     CHGBD205
01118      DISPLAY '***********************************************'.   CHGBD205
01119                                                                   CHGBD205
01120  T0000-EXIT.                                                      CHGBD205
01121      EXIT.                                                        CHGBD205
01122      EJECT                                                        CHGBD205
01123                                                                   CHGBD205
01124  S999-ABEND.                                                      CHGBD205
01125      DISPLAY '****  CHGBD205 ABENDING '                           CHGBD205
01126         ABEND-MSG.                                                CHGBD205
01127      CALL ABEND-MOD USING ABEND-CODE.                             CHGBD205
01128                                                                   CHGBD205
01129  S999-EXIT.                                                       CHGBD205
01130      EXIT.                                                        CHGBD205
01131                                                                   CHGBD205
