00001  IDENTIFICATION DIVISION.                                         06/26/20
00002  PROGRAM-ID.             CHGBD235.                                CHGBD235
00003 *AUTHOR.                 TRW.                                        LV005
00004 *DATE-WRITTEN.           AUGUST 2002.                             CHGBD235
00005  DATE-COMPILED.                                                   CHGBD235
00006      SKIP3                                                        CHGBD235
00007 *****                                                             CHGBD235
00008 *                                                                 CHGBD235
00009 *    FUNCTION:                                                    CHGBD235
00010 *                                                                 CHGBD235
00011 *           FIND TOTAL BENEFITS PAID TO A GIVEN SSN               CHGBD235
00012 *           WITHIN A RANGE OF DATES FROM CHGM030 FILE.            CHGBD235
00013 *                                                                 CHGBD235
00014 *                                                                 CHGBD235
00015 *        INPUT:                                                   CHGBD235
00016 *                                                                 CHGBD235
00017 *            BD200CHG - CHARGE REPORT RECORDS GENERATED BY        CHGBD235
00018 *                       CHGBD200.                                 CHGBD235
00019 *            DTSIL030 - LINKAGE FROM CALLING PROGRAM              CHGBD235
00020 *                                                                 CHGBD235
00021 *        OUTPUT:                                                  CHGBD235
00022 *                                                                 CHGBD235
00023 *            CG-L030-TOT-CHG - TOTAL CHARGES FOR SSN/BYE          CHGBD235
00024 *                                                                 CHGBD235
00025 *                                                                 CHGBD235
00026 *                                                                 CHGBD235
00027 *****                                                             CHGBD235
00028                                                                   CHGBD235
00029 ******************************************************************CHGBD235
00030 * MODIFICATION HISTORY:                                          *CHGBD235
00031 *                                                                *CHGBD235
00032 * 08-21-2002 INITIAL DEVELOPMENT                                 *CHGBD235
00033 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD235
00034 *                                                                *CHGBD235
00035 * 03-09-2009 CHANGED PROGRAM CODE FROM NUMERIC TO CHARACTER.     *CHGBD235
00036 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD235
00037 *                                                                *CHGBD235
00038 *                                                                *CHGBD235
00039 * 08-05-2009 ADDED PROGRAM CODE FOR TRAINING,DEPENDENTS,AND AB   *CHGBD235
00040 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBD235
00041 *                                                                *CHGBD235
00042 *                                                                *CHGBD235
00043 * 05-14-2010 RECOMPILE FOR NEW VERISON OF COPYBOOK CHGIM030      *CHGBD235
00044 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBD235
00045 *                                                                *CHGBD235
00046 *                                                                *   CL**2
00047 * 10-04-2014 RECOMPILE FOR NEW VERISON OF COPYBOOK CHGIM030      *   CL**2
00048 *            REFERENCE RFP # UCPIA        AUTHOR OF CHANGE - ZL1 *   CL**2
00049 *                                                                *   CL**2
00050 *                                                                *   CL**3
00051 * 06-11-2020 RECOMPILE FOR NEW VERISON OF COPYBOOK CHGIM030      *   CL**3
00052 *            PUC FPUC FRUC REUC           AUTHOR OF CHANGE - ZL1 *   CL**3
00053 *                                                                *   CL**3
00054 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD235
00055 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD235
00056 *            REFERENCE RFP #****          AUTHOR OF CHANGE - *** *CHGBD235
00057 ******************************************************************CHGBD235
00058                                                                   CHGBD235
00059      SKIP3                                                        CHGBD235
00060  ENVIRONMENT DIVISION.                                            CHGBD235
00061      SKIP3                                                        CHGBD235
00062  INPUT-OUTPUT SECTION.                                            CHGBD235
00063      SKIP3                                                        CHGBD235
00064  FILE-CONTROL.                                                    CHGBD235
00065      SELECT BD230-CHG-FILE-IN ASSIGN TO BD230CHG                  CHGBD235
00066             ORGANIZATION IS INDEXED                               CHGBD235
00067             ACCESS MODE IS DYNAMIC                                CHGBD235
00068             RECORD KEY IS CHG30-KEY-AREA                          CHGBD235
00069             FILE STATUS IS BD230-CHG-STATUS.                      CHGBD235
00070                                                                   CHGBD235
00071      EJECT                                                        CHGBD235
00072  DATA DIVISION.                                                   CHGBD235
00073                                                                   CHGBD235
00074  FILE SECTION.                                                    CHGBD235
00075                                                                   CHGBD235
00076  FD  BD230-CHG-FILE-IN                                            CHGBD235
00077      RECORD CONTAINS 22 CHARACTERS                                CHGBD235
00078      DATA RECORD IS BD230-CHG-REC.                                CHGBD235
00079  01  BD230-CHG-REC.                                               CHGBD235
00080  ++INCLUDE CHGIM030                                               CHGBD235
00081                                                                   CHGBD235
00082      EJECT                                                        CHGBD235
00083  WORKING-STORAGE SECTION.                                         CHGBD235
000835 77  PAN-VALET PICTURE X(24) VALUE '005CHGBD235  06/26/20'.       CHGBD235
00084  77  PAN-VALET PICTURE X(24) VALUE '011CHGBD235  05/25/10'.       CHGBD235
00085                                                                   CHGBD235
00086  01  WRK-AREA.                                                    CHGBD235
00087 *&                                                                CHGBD235
00088      05  WRK-DISP-AREA.                                           CHGBD235
00089          10  WRK-CHG-DATE            PIC 9999B99B99.              CHGBD235
00090          10  FILLER                  PIC X(02) VALUE SPACES.      CHGBD235
00091          10  WRK-SSN-DISP            PIC 9(09).                   CHGBD235
00092          10  FILLER                  PIC X(02) VALUE SPACES.      CHGBD235
00093          10  WRK-CHG-AMT-DISP        PIC  Z(07)9.99-.             CHGBD235
00094          10  FILLER                  PIC X(02) VALUE SPACES.      CHGBD235
00095          10  WRK-BYE-DISP            PIC 9999B99B99.              CHGBD235
00096          10  FILLER                  PIC X(02) VALUE SPACES.      CHGBD235
00097          10  WRK-PROG                PIC X.                       CHGBD235
00098                                                                   CHGBD235
00099      05  WRK-TOT-CHG                 PIC S9(08)V99 COMP-3         CHGBD235
00100                                  VALUE +0.                        CHGBD235
00101      05  WRK-TOT-CHG-DISP            PIC  Z(07)9.99-.             CHGBD235
00102                                                                   CHGBD235
00103      05  ABEND-CODE                  PIC S9(04)  COMP             CHGBD235
00104                                  VALUE +235.                      CHGBD235
00105      05  ABEND-MOD                   PIC  X(08)                   CHGBD235
00106                                  VALUE 'DTSBU999'.                CHGBD235
00107                                                                   CHGBD235
00108      05  BD230-CHG-STATUS            PIC  X(02) VALUE SPACES.     CHGBD235
00109          88  BD230-FILE-OK-88    VALUE ZERO.                      CHGBD235
00110          88  BD230-FILE-EOF-88   VALUE '10'.                      CHGBD235
00111                                                                   CHGBD235
00112      05  WRK-SSN                     PIC  9(09).                  CHGBD235
00113      05  WRK-BEGIN-DATE              PIC S9(09) COMP-3.           CHGBD235
00114      05  WRK-END-DATE                PIC S9(09) COMP-3.           CHGBD235
00115      05  WRK-BYE                     PIC S9(09) COMP-3.           CHGBD235
00116      05  WRK-PROGRAM                 PIC  X(01).                  CHGBD235
00117         88 WRK-PROG-UI-88          VALUE '1'.                        CL**4
00118         88 WRK-PROG-EB-88          VALUE '2'.                        CL**4
00119         88 WRK-PROG-TEUC-88        VALUE '3'.                        CL**4
00120         88 WRK-PROG-TEUCA-88       VALUE '4'.                        CL**4
00121         88 WRK-PROG-FAC-88         VALUE '5'.                        CL**4
00122         88 WRK-PROG-FSB-88         VALUE '6'.                        CL**4
00123         88 WRK-PROG-FSC-88         VALUE '7'.                        CL**4
00124         88 WRK-PROG-DUA-88         VALUE '8'.                        CL**4
00125         88 WRK-PROG-TR2-88         VALUE '9'.                        CL**4
00126         88 WRK-PROG-TRA-88         VALUE '0'.                        CL**4
00127         88 WRK-PROG-STEPLDR-88     VALUE 'A'.                        CL**4
00128         88 WRK-PROG-AB-88          VALUE 'B'.                        CL**4
00129         88 WRK-PROG-TRAINING-88    VALUE 'C'.                        CL**5
00130         88 WRK-PROG-DEPENDENTS-88  VALUE 'D'.                        CL**4
00131         88 WRK-PROG-EUC08-2PLUS-88 VALUE 'E'.                        CL**4
00132         88 WRK-PROG-EUC08-TIER3-88 VALUE 'F'.                        CL**4
00133         88 WRK-PROG-EUC08-TIER4-88 VALUE 'G'.                        CL**4
00134         88 WRK-PROG-SPECIAL-PAY-88 VALUE 'H'.                        CL**4
00135         88 WRK-PROG-UCPIA-88       VALUE 'I'.                        CL**4
00136         88 WRK-PROG-GPA-88         VALUE 'J'.                        CL**4
00137         88 WRK-PROG-PUA-88         VALUE 'U'.                        CL**4
00138         88 WRK-PROG-FPUC-88        VALUE 'L'.                        CL**4
00139         88 WRK-PROG-FRUR-88        VALUE 'M'.                        CL**4
00140         88 WRK-PROG-PEUC-88        VALUE 'N'.                        CL**5
00141         88 WRK-PROG-REUR-88        VALUE 'Y'.                        CL**5
00142         88  WRK-PROG-VALID         VALUE '1' '2' '3' '4' '5'         CL**4
00143                                           '6' '7' '8' '9' '0'     CHGBD235
00144                                           'A' 'B' 'C' 'D' 'E'        CL**4
00145                                           'F' 'G' 'H' 'I' 'J'        CL**4
00146                                           'U' 'L' 'M' 'N' 'Y'.       CL**5
00147                                                                   CHGBD235
00148                                                                      CL**4
00149      05  WRK-BEGIN-DATE-DISP         PIC  9(08).                  CHGBD235
00150      05  FILLER REDEFINES WRK-BEGIN-DATE-DISP.                    CHGBD235
00151          10  WRK-BEGIN-YR            PIC  9(04).                  CHGBD235
00152          10  WRK-BEGIN-MO            PIC  9(02).                  CHGBD235
00153          10  WRK-BEGIN-DA            PIC  9(02).                  CHGBD235
00154                                                                   CHGBD235
00155      05  WRK-END-DATE-DISP           PIC  9(08).                  CHGBD235
00156      05  FILLER REDEFINES WRK-END-DATE-DISP.                      CHGBD235
00157          10  WRK-END-YR              PIC  9(04).                  CHGBD235
00158          10  WRK-END-MO              PIC  9(02).                  CHGBD235
00159          10  WRK-END-DA              PIC  9(02).                  CHGBD235
00160                                                                   CHGBD235
00161                                                                   CHGBD235
00162  01  L001-LINK-AREA.                                              CHGBD235
00163  ++INCLUDE DTSIL001                                               CHGBD235
00164                                                                   CHGBD235
00165  01  L004-LINK-AREA.                                              CHGBD235
00166  ++INCLUDE DTSIL004                                               CHGBD235
00167                                                                   CHGBD235
00168  LINKAGE SECTION.                                                 CHGBD235
00169  01  CG030-LINK-AREA.                                             CHGBD235
00170  ++INCLUDE CHGIL030                                               CHGBD235
00171                                                                   CHGBD235
00172      EJECT                                                        CHGBD235
00173  PROCEDURE DIVISION USING CG030-LINK-AREA.                        CHGBD235
00174      SKIP2                                                        CHGBD235
00175  CHGBD235-MAIN.                                                   CHGBD235
00176      EVALUATE TRUE                                                CHGBD235
00177         WHEN CG-L030-CMND-INIT-88                                 CHGBD235
00178            PERFORM I0000-OPEN-FILES THRU I0000-EXIT               CHGBD235
00179                                                                   CHGBD235
00180         WHEN CG-L030-CMND-PROCESS-88                              CHGBD235
00181            PERFORM P0000-PROCESS    THRU P0000-EXIT               CHGBD235
00182                                                                   CHGBD235
00183         WHEN CG-L030-CMND-TERM-88                                 CHGBD235
00184            PERFORM T0000-TERMINATE  THRU T0000-EXIT               CHGBD235
00185                                                                   CHGBD235
00186      END-EVALUATE.                                                CHGBD235
00187                                                                   CHGBD235
00188  CHGBD235-EXIT.                                                   CHGBD235
00189      GOBACK.                                                      CHGBD235
00190      EJECT                                                        CHGBD235
00191  I0000-OPEN-FILES.                                                CHGBD235
00192                                                                   CHGBD235
00193      OPEN INPUT BD230-CHG-FILE-IN.                                CHGBD235
00194      IF NOT BD230-FILE-OK-88                                      CHGBD235
00195         DISPLAY 'BD230 FILE OPEN ERROR: ' BD230-CHG-STATUS        CHGBD235
00196         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD235
00197                                                                   CHGBD235
00198  I0000-EXIT.                                                      CHGBD235
00199      EXIT.                                                        CHGBD235
00200                                                                   CHGBD235
00201  P0000-PROCESS.                                                   CHGBD235
00202                                                                   CHGBD235
00203      PERFORM P1000-EDIT-INPUT    THRU P1000-EXIT.                 CHGBD235
00204      MOVE WRK-SSN                TO CHG30-SSN.                    CHGBD235
00205      MOVE WRK-BEGIN-DATE         TO CHG30-CHARGE-DATE.            CHGBD235
00206      MOVE ZERO                   TO CHG30-BYE                     CHGBD235
00207                                     CHG30-PROGRAM                 CHGBD235
00208                                     CG-L030-TOT-CHG               CHGBD235
00209                                     WRK-TOT-CHG.                  CHGBD235
00210                                                                   CHGBD235
00211      START BD230-CHG-FILE-IN                                      CHGBD235
00212         KEY IS >= CHG30-KEY-AREA.                                 CHGBD235
00213                                                                   CHGBD235
00214      IF NOT BD230-FILE-OK-88                                      CHGBD235
00215         DISPLAY 'BD230: NO RECS ON CHGM030 ' BD230-CHG-STATUS     CHGBD235
00216            '  ' WRK-SSN '  ' WRK-BEGIN-DATE                       CHGBD235
00217         GO TO P0000-EXIT.                                         CHGBD235
00218 *&      PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD235
00219                                                                   CHGBD235
00220      PERFORM P2000-READ-CHARGES THRU P2000-EXIT                   CHGBD235
00221         UNTIL BD230-FILE-EOF-88.                                  CHGBD235
00222                                                                   CHGBD235
00223      MOVE WRK-TOT-CHG    TO CG-L030-TOT-CHG.                      CHGBD235
00224                                                                   CHGBD235
00225  P0000-EXIT.                                                      CHGBD235
00226      EXIT.                                                        CHGBD235
00227                                                                   CHGBD235
00228  P1000-EDIT-INPUT.                                                CHGBD235
00229                                                                   CHGBD235
00230      PERFORM P1100-EDIT-SSN       THRU P1100-EXIT.                CHGBD235
00231                                                                   CHGBD235
00232      PERFORM P1200-EDIT-DATES     THRU P1200-EXIT.                CHGBD235
00233                                                                   CHGBD235
00234      PERFORM P1300-EDIT-BYE       THRU P1300-EXIT.                CHGBD235
00235                                                                   CHGBD235
00236      PERFORM P1400-EDIT-PROGRAM   THRU P1400-EXIT.                CHGBD235
00237                                                                   CHGBD235
00238  P1000-EXIT.                                                      CHGBD235
00239      EXIT.                                                        CHGBD235
00240                                                                   CHGBD235
00241  P1100-EDIT-SSN.                                                  CHGBD235
00242      IF CG-L030-SSN NUMERIC                                       CHGBD235
00243         MOVE CG-L030-SSN  TO WRK-SSN                              CHGBD235
00244      ELSE                                                         CHGBD235
00245         DISPLAY 'PARM SSN INVALID ' CG-L030-SSN                   CHGBD235
00246         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD235
00247                                                                   CHGBD235
00248  P1100-EXIT.                                                      CHGBD235
00249      EXIT.                                                        CHGBD235
00250                                                                   CHGBD235
00251  P1200-EDIT-DATES.                                                CHGBD235
00252      MOVE ZERO TO WRK-BEGIN-DATE                                  CHGBD235
00253                   WRK-END-DATE.                                   CHGBD235
00254                                                                   CHGBD235
00255      PERFORM P1210-BEGIN-DATE THRU P1210-EXIT                     CHGBD235
00256      PERFORM P1220-END-DATE   THRU P1220-EXIT.                    CHGBD235
00257                                                                   CHGBD235
00258      IF WRK-END-DATE < WRK-BEGIN-DATE                             CHGBD235
00259          DISPLAY 'PERIOD END LESS THAN PERIOD BEGIN'              CHGBD235
00260             '  ' WRK-BEGIN-DATE                                   CHGBD235
00261             '  ' WRK-END-DATE                                     CHGBD235
00262          PERFORM S999-ABEND THRU S999-EXIT.                       CHGBD235
00263                                                                   CHGBD235
00264                                                                   CHGBD235
00265  P1200-EXIT.                                                      CHGBD235
00266      EXIT.                                                        CHGBD235
00267                                                                   CHGBD235
00268  P1210-BEGIN-DATE.                                                CHGBD235
00269      MOVE CG-L030-START-DATE TO L001-FED-8-DATE-9.                CHGBD235
00270      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      CHGBD235
00271      IF L001-VALID-DATE                                           CHGBD235
00272         MOVE L001-FED-8-DATE-9 TO WRK-BEGIN-DATE                  CHGBD235
00273      ELSE                                                         CHGBD235
00274         DISPLAY 'INVALID PERIOD BEGIN DATE'                       CHGBD235
00275            ' ' CG-L030-START-DATE                                 CHGBD235
00276         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD235
00277                                                                   CHGBD235
00278  P1210-EXIT.                                                      CHGBD235
00279      EXIT.                                                        CHGBD235
00280                                                                   CHGBD235
00281  P1220-END-DATE.                                                  CHGBD235
00282      MOVE CG-L030-END-DATE TO L001-FED-8-DATE-9.                  CHGBD235
00283      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      CHGBD235
00284      IF L001-VALID-DATE                                           CHGBD235
00285         MOVE L001-FED-8-DATE-9 TO WRK-END-DATE                    CHGBD235
00286      ELSE                                                         CHGBD235
00287         DISPLAY 'INVALID PERIOD END DATE'                         CHGBD235
00288            ' ' CG-L030-END-DATE                                   CHGBD235
00289         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD235
00290                                                                   CHGBD235
00291  P1220-EXIT.                                                      CHGBD235
00292      EXIT.                                                        CHGBD235
00293                                                                   CHGBD235
00294  P1300-EDIT-BYE.                                                  CHGBD235
00295      IF CG-L030-BYE = ZERO                                        CHGBD235
00296         MOVE CG-L030-BYE      TO WRK-BYE                          CHGBD235
00297         GO TO P1300-EXIT.                                         CHGBD235
00298                                                                   CHGBD235
00299      MOVE CG-L030-BYE      TO L001-FED-8-DATE-9.                  CHGBD235
00300      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      CHGBD235
00301      IF L001-VALID-DATE                                           CHGBD235
00302         MOVE L001-FED-8-DATE-9 TO WRK-BYE                         CHGBD235
00303      ELSE                                                         CHGBD235
00304         DISPLAY 'INVALID BYE DATE ' CG-L030-BYE                   CHGBD235
00305         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD235
00306                                                                   CHGBD235
00307  P1300-EXIT.                                                      CHGBD235
00308      EXIT.                                                        CHGBD235
00309                                                                   CHGBD235
00310  P1400-EDIT-PROGRAM.                                              CHGBD235
00311      MOVE CG-L030-PROGRAM  TO WRK-PROGRAM.                        CHGBD235
00312      IF WRK-PROG-VALID                                            CHGBD235
00313         NEXT SENTENCE                                             CHGBD235
00314      ELSE                                                         CHGBD235
00315         DISPLAY 'INVALID PROGRAM ' CG-L030-PROGRAM                CHGBD235
00316         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD235
00317                                                                   CHGBD235
00318  P1400-EXIT.                                                      CHGBD235
00319      EXIT.                                                        CHGBD235
00320                                                                   CHGBD235
00321  P2000-READ-CHARGES.                                              CHGBD235
00322      READ BD230-CHG-FILE-IN NEXT.                                 CHGBD235
00323                                                                   CHGBD235
00324      IF BD230-FILE-EOF-88                                         CHGBD235
00325      OR CHG30-SSN       NOT = WRK-SSN                             CHGBD235
00326      OR CHG30-CHARGE-DATE > WRK-END-DATE                          CHGBD235
00327         SET BD230-FILE-EOF-88 TO TRUE                             CHGBD235
00328         GO TO P2000-EXIT                                          CHGBD235
00329      ELSE                                                         CHGBD235
00330         IF BD230-FILE-EOF-88                                      CHGBD235
00331            GO TO P2000-EXIT                                       CHGBD235
00332         ELSE                                                      CHGBD235
00333            IF NOT BD230-FILE-OK-88                                CHGBD235
00334               DISPLAY 'BD230 FILE READ ERROR: '                   CHGBD235
00335                        BD230-CHG-STATUS                           CHGBD235
00336               SET BD230-FILE-EOF-88 TO TRUE                       CHGBD235
00337               GO TO P2000-EXIT.                                   CHGBD235
00338                                                                   CHGBD235
00339      IF CHG30-SSN       =  WRK-SSN                                CHGBD235
00340      AND CHG30-BYE      =  WRK-BYE                                CHGBD235
00341      AND CHG30-PROGRAM  =  WRK-PROGRAM                            CHGBD235
00342         COMPUTE WRK-TOT-CHG = WRK-TOT-CHG + CHG30-TOT-CHG-AMT.    CHGBD235
00343                                                                   CHGBD235
00344                                                                   CHGBD235
00345  P2000-EXIT.                                                      CHGBD235
00346      EXIT.                                                        CHGBD235
00347                                                                   CHGBD235
00348  S001-FROM-FED-8.                                                 CHGBD235
00349      SET L001-FROM-FED-8 TO TRUE.                                 CHGBD235
00350      GO TO S001-DATE.                                             CHGBD235
00351                                                                   CHGBD235
00352 *S001-FROM-ABS.                                                   CHGBD235
00353 **   SET L001-FROM-ABS-DAY  TO TRUE.                              CHGBD235
00354 **   GO TO S001-DATE.                                             CHGBD235
00355                                                                   CHGBD235
00356  S001-DATE.                                                       CHGBD235
00357      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBD235
00358  S001-EXIT. EXIT.                                                 CHGBD235
00359                                                                   CHGBD235
00360 *S004-FROM-DATE.                                                  CHGBD235
00361 **   SET L004-FROM-DATE TO TRUE.                                  CHGBD235
00362 **   GO TO S004-YRQ.                                              CHGBD235
00363                                                                   CHGBD235
00364 *S004-YRQ.                                                        CHGBD235
00365 *    CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBD235
00366 *S004-EXIT. EXIT.                                                 CHGBD235
00367                                                                   CHGBD235
00368  T0000-TERMINATE.                                                 CHGBD235
00369      CLOSE BD230-CHG-FILE-IN.                                     CHGBD235
00370                                                                   CHGBD235
00371                                                                   CHGBD235
00372  T0000-EXIT.                                                      CHGBD235
00373      EXIT.                                                        CHGBD235
00374      EJECT                                                        CHGBD235
00375                                                                   CHGBD235
00376  S999-ABEND.                                                      CHGBD235
00377      CALL ABEND-MOD USING ABEND-CODE.                             CHGBD235
00378                                                                   CHGBD235
00379  S999-EXIT.                                                       CHGBD235
00380      EXIT.                                                        CHGBD235
00381                                                                   CHGBD235
