00001  IDENTIFICATION DIVISION.                                         01/16/08
00002  PROGRAM-ID.             CHGBD310.                                CHGBD310
00003 *AUTHOR.                 TRW.                                        LV005
00004 *DATE-WRITTEN.           JULY 2002.                               CHGBD310
00005  DATE-COMPILED.                                                   CHGBD310
00006      SKIP3                                                        CHGBD310
00007 *****                                                             CHGBD310
00008 *                                                                 CHGBD310
00009 * FUNCTION:                                                       CHGBD310
00010 *                                                                 CHGBD310
00011 *        UPDATE REFERENCE FILE FQTR RECORD FOLLOWING              CHGBD310
00012 *        QUARTERLY BENEFIT CHARGE REPORTING PROCESS.              CHGBD310
00013 *                                                                 CHGBD310
00014 *****                                                             CHGBD310
00015 *                                                                 CHGBD310
00016 * DESCRIPTION:                                                    CHGBD310
00017 *                                                                 CHGBD310
00018 *    MOVE THE QUARTERLY BENEFIT CHARGE REPORTING PROCESS          CHGBD310
00019 *    RUN DATE AND THE SELF-INSURED TAX DUE DATE TO THE            CHGBD310
00020 *    REFERENCE FILE FQTR RECORD.                                  CHGBD310
00021 *                                                                 CHGBD310
00022 *    THIS JOB WILL ONLY RUN IF THE REPORTING PROCESS ENDS         CHGBD310
00023 *    WITH A CONDITION CODE OF ZERO.                               CHGBD310
00024 *                                                                 CHGBD310
00025 *****                                                             CHGBD310
00026 *                                                                 CHGBD310
00027 * INPUT:                                                          CHGBD310
00028 *                                                                 CHGBD310
00029 *   CHGPARM  - PARAMETER RECORD                                   CHGBD310
00030 *                                                                 CHGBD310
00031 ******                                                            CHGBD310
00032 *                                                                 CHGBD310
00033 * OUTPUT:                                                         CHGBD310
00034 *                                                                 CHGBD310
00035 *   UPDATED FQTR RECORD                                           CHGBD310
00036 *                                                                 CHGBD310
00037 *****                                                             CHGBD310
00038 ***************************************************************** CHGBD310
00039 *                                                               * CHGBD310
00040 * MODIFICATION HISTORY:                                         * CHGBD310
00041 *                                                               * CHGBD310
00042 * 07-10-2002 INITIAL DEVELOPMENT                                * CHGBD310
00043 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD * CHGBD310
00044 *                                                               * CHGBD310
00045 * 06-14-2004 MODIFIED TO ADD FQTR RECORD IF NONE FOUND.         * CHGBD310
00046 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD * CHGBD310
00047 *                                                               * CHGBD310
00048 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGBD310
00049 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGBD310
00050 *            REFERENCE RFP #****         AUTHOR OF CHANGE - *** * CHGBD310
00051 ***************************************************************** CHGBD310
00052                                                                   CHGBD310
00053      SKIP3                                                        CHGBD310
00054  ENVIRONMENT DIVISION.                                            CHGBD310
00055      SKIP3                                                        CHGBD310
00056  INPUT-OUTPUT SECTION.                                            CHGBD310
00057      SKIP3                                                        CHGBD310
00058  FILE-CONTROL.                                                    CHGBD310
00059                                                                   CHGBD310
00060      SELECT CHG-PARM-FILE  ASSIGN TO CHGPARM                      CHGBD310
00061             FILE STATUS IS CHG-PARM-STATUS.                       CHGBD310
00062                                                                   CHGBD310
00063  DATA DIVISION.                                                   CHGBD310
00064      SKIP3                                                        CHGBD310
00065  FILE SECTION.                                                    CHGBD310
00066      SKIP3                                                        CHGBD310
00067                                                                   CHGBD310
00068  FD  CHG-PARM-FILE                                                CHGBD310
00069      RECORDING MODE IS F                                          CHGBD310
00070      BLOCK CONTAINS 0 CHARACTERS.                                 CHGBD310
00071      SKIP1                                                        CHGBD310
00072  01  CHG-PARM-REC.                                                CHGBD310
00073  ++INCLUDE CHGIM003                                               CHGBD310
00074                                                                   CHGBD310
00075  WORKING-STORAGE SECTION.                                         CHGBD310
000755 77  PAN-VALET PICTURE X(24) VALUE '005CHGBD310  01/16/08'.       CHGBD310
00076                                                                   CHGBD310
00077  01  WRK-AREA.                                                    CHGBD310
00078      05  WRK-RUN-DATE-DISP          PIC  X(10).                   CHGBD310
00079      05  WRK-DUE-DATE-DISP          PIC  X(10).                   CHGBD310
00080      05  WRK-SUBJ-YRQ-DISP          PIC  X(06).                   CHGBD310
00081                                                                   CHGBD310
00082      05  ABEND-CODE                  PIC S9(04)  COMP             CHGBD310
00083                                  VALUE +310.                      CHGBD310
00084      05  ABEND-MSG                   PIC  X(60).                  CHGBD310
00085                                                                   CHGBD310
00086      05  CHG-PARM-STATUS             PIC  X(02) VALUE SPACES.     CHGBD310
00087          88  CHG-PARM-FILE-OK-88       VALUE ZERO.                CHGBD310
00088          88  CHG-PARM-FILE-EOF-88      VALUE '10'.                CHGBD310
00089                                                                   CHGBD310
00090      05  WRK-ERROR-IND               PIC  X(01).                  CHGBD310
00091          88  WRK-ERROR-YES-88    VALUE 'Y'.                       CHGBD310
00092          88  WRK-ERROR-NO-88     VALUE 'N'.                       CHGBD310
00093                                                                   CHGBD310
00094                                                                   CHGBD310
00095  01  REPORT-LINK-AREA.                                            CHGBD310
00096  ++INCLUDE CHGIL001                                               CHGBD310
00097                                                                   CHGBD310
00098  01  L001-LINK-AREA.                                              CHGBD310
00099  ++INCLUDE DTSIL001                                               CHGBD310
00100      EJECT                                                        CHGBD310
00101  01  L003-LINK-AREA.                                              CHGBD310
00102  ++INCLUDE DTSIL003                                               CHGBD310
00103      EJECT                                                        CHGBD310
00104  01  L004-LINK-AREA.                                              CHGBD310
00105  ++INCLUDE DTSIL004                                               CHGBD310
00106      EJECT                                                        CHGBD310
00107  01  L005-LINK-AREA.                                              CHGBD310
00108  ++INCLUDE DTSIL005                                               CHGBD310
00109      EJECT                                                        CHGBD310
00110  01  L931-LINK-AREA.                                              CHGBD310
00111  ++INCLUDE DTSIL931                                               CHGBD310
00112      SKIP3                                                        CHGBD310
00113  01  FSKL-REC.                                                    CHGBD310
00114  ++INCLUDE DTSIFSKL                                               CHGBD310
00115      SKIP3                                                        CHGBD310
00116  01  FQTR-REC.                                                    CHGBD310
00117  ++INCLUDE DTSIFQTR                                               CHGBD310
00118      EJECT                                                        CHGBD310
00119      SKIP2                                                        CHGBD310
00120  PROCEDURE DIVISION.                                              CHGBD310
00121  CHGBD310-MAIN.                                                   CHGBD310
00122      PERFORM I0000-INITIATE THRU I0000-EXIT.                      CHGBD310
00123      IF WRK-ERROR-YES-88                                          CHGBD310
00124         DISPLAY '*** JOB CANCELLED DUE TO ERRORS ***'             CHGBD310
00125         GO TO CHGBD310-EXIT.                                      CHGBD310
00126                                                                   CHGBD310
00127      PERFORM P0000-PROCESS THRU P0000-EXIT.                       CHGBD310
00128                                                                   CHGBD310
00129      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     CHGBD310
00130                                                                   CHGBD310
00131  CHGBD310-EXIT.                                                   CHGBD310
00132      STOP RUN.                                                    CHGBD310
00133      EJECT                                                        CHGBD310
00134  I0000-INITIATE.                                                  CHGBD310
00135      SET WRK-ERROR-NO-88 TO TRUE.                                 CHGBD310
00136                                                                   CHGBD310
00137      PERFORM S005-FROM-SYS THRU S005-EXIT.                        CHGBD310
00138                                                                   CHGBD310
00139      PERFORM I1000-READ-BD100-PARMS     THRU I1000-EXIT.          CHGBD310
00140                                                                   CHGBD310
00141  I0000-EXIT.                                                      CHGBD310
00142      EXIT.                                                        CHGBD310
00143                                                                   CHGBD310
00144  I1000-READ-BD100-PARMS.                                          CHGBD310
00145      OPEN INPUT CHG-PARM-FILE.                                    CHGBD310
00146      IF NOT CHG-PARM-FILE-OK-88                                   CHGBD310
00147         DISPLAY 'CHG PARM FILE OPEN ERROR: ' CHG-PARM-STATUS      CHGBD310
00148         SET WRK-ERROR-YES-88 TO TRUE                              CHGBD310
00149         GO TO I1000-EXIT.                                         CHGBD310
00150                                                                   CHGBD310
00151      READ CHG-PARM-FILE.                                          CHGBD310
00152      IF NOT CHG-PARM-FILE-OK-88                                   CHGBD310
00153         DISPLAY 'CHG-PARM READ ERROR: ' CHG-PARM-STATUS           CHGBD310
00154         SET WRK-ERROR-YES-88 TO TRUE                              CHGBD310
00155         GO TO I1000-EXIT.                                         CHGBD310
00156                                                                   CHGBD310
00157  I1000-EXIT.                                                      CHGBD310
00158      EXIT.                                                        CHGBD310
00159                                                                   CHGBD310
00160  I2000-OPEN-REF.                                                  CHGBD310
00161      MOVE SPACE           TO L931-TRACE-IND.                      CHGBD310
00162      MOVE 'CHGBD310'      TO L931-MOD-NAME.                       CHGBD310
00163                                                                   CHGBD310
00164      PERFORM S931-OPEN-UPDATE  THRU S931-EXIT.                    CHGBD310
00165      IF L931-OK-88                                                CHGBD310
00166         NEXT SENTENCE                                             CHGBD310
00167      ELSE                                                         CHGBD310
00168         DISPLAY 'CANNOT OPEN REF FILE '                           CHGBD310
00169         PERFORM S999-ABEND  THRU S999-EXIT.                       CHGBD310
00170                                                                   CHGBD310
00171  I2000-EXIT.                                                      CHGBD310
00172      EXIT.                                                        CHGBD310
00173                                                                   CHGBD310
00174  P0000-PROCESS.                                                   CHGBD310
00175      IF CHG3-RUN-TYPE-QTR-88                                      CHGBD310
00176         NEXT SENTENCE                                             CHGBD310
00177      ELSE                                                         CHGBD310
00178         GO TO P0000-EXIT.                                         CHGBD310
00179                                                                   CHGBD310
00180      PERFORM I2000-OPEN-REF         THRU I2000-EXIT.              CHGBD310
00181                                                                   CHGBD310
00182      PERFORM P1000-FIND-FQTR        THRU P1000-EXIT.              CHGBD310
00183                                                                   CHGBD310
00184      PERFORM P2000-UPDATE-FQTR      THRU P2000-EXIT.              CHGBD310
00185                                                                   CHGBD310
00186  P0000-EXIT.                                                      CHGBD310
00187      EXIT.                                                        CHGBD310
00188                                                                   CHGBD310
00189  P1000-FIND-FQTR.                                                 CHGBD310
00190      MOVE LOW-VALUES TO FQTR-KEY-AREA.                            CHGBD310
00191                                                                   CHGBD310
00192      SET FQTR-QTR-88 TO TRUE.                                     CHGBD310
00193                                                                   CHGBD310
00194      MOVE CHG3-BEGIN-DATE TO L004-DATE.                           CHGBD310
00195      PERFORM S004-FROM-DATE THRU S004-EXIT.                       CHGBD310
00196      MOVE L004-QTR-5-9 TO FQTR-YRQ.                               CHGBD310
00197      MOVE L004-SLASH-5-QTR TO WRK-SUBJ-YRQ-DISP.                  CHGBD310
00198                                                                   CHGBD310
00199      MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA.                         CHGBD310
00200                                                                   CHGBD310
00201      PERFORM S931-READ THRU S931-EXIT.                            CHGBD310
00202                                                                   CHGBD310
00203      IF L931-NO-REC-88                                            CHGBD310
00204         MOVE LOW-VALUES TO FQTR-DATA-AREA                         CHGBD310
00205         MOVE +0 TO        FQTR-UC30-MASS-MAIL-DATE                CHGBD310
00206                           FQTR-SELF-INS-TAX-DUE-DATE              CHGBD310
00207                           FQTR-LATE-PEN-ASSESSED-DATE             CHGBD310
00208                           FQTR-UC30-FIRST-DEL-DATE                CHGBD310
00209                           FQTR-UC30-FINAL-DEL-DATE                CHGBD310
00210                           FQTR-UC30-FINAL-ACTION-DATE             CHGBD310
00211                           FQTR-SELF-INS-CHG-RUN-DATE              CHGBD310
00212         MOVE L005-DATE TO FQTR-ESTB-DATE                          CHGBD310
00213                           FQTR-CHNG-DATE                          CHGBD310
00214         MOVE FQTR-REC TO FSKL-REC                                 CHGBD310
00215         PERFORM S931-WRITE THRU S931-EXIT                         CHGBD310
00216      ELSE                                                         CHGBD310
00217         MOVE FSKL-REC      TO FQTR-REC.                           CHGBD310
00218                                                                   CHGBD310
00219  P1000-EXIT.                                                      CHGBD310
00220      EXIT.                                                        CHGBD310
00221                                                                   CHGBD310
00222  P2000-UPDATE-FQTR.                                               CHGBD310
00223      MOVE L005-DATE              TO FQTR-SELF-INS-CHG-RUN-DATE.   CHGBD310
00224                                                                   CHGBD310
00225      PERFORM P2100-TAX-DUE-DATE  THRU P2100-EXIT.                 CHGBD310
00226                                                                   CHGBD310
00227      MOVE FQTR-REC      TO FSKL-REC.                              CHGBD310
00228                                                                   CHGBD310
00229      PERFORM S931-REWRITE THRU S931-EXIT.                         CHGBD310
00230                                                                   CHGBD310
00231      IF NOT L931-OK-88                                            CHGBD310
00232         DISPLAY 'CANNOT REWRITE FQTR ' FQTR-YRQ                   CHGBD310
00233         PERFORM S999-ABEND  THRU S999-EXIT.                       CHGBD310
00234                                                                   CHGBD310
00235  P2000-EXIT.                                                      CHGBD310
00236      EXIT.                                                        CHGBD310
00237                                                                   CHGBD310
00238  P2100-TAX-DUE-DATE.                                              CHGBD310
00239      IF FQTR-SELF-INS-TAX-DUE-DATE NUMERIC                        CHGBD310
00240         IF FQTR-SELF-INS-TAX-DUE-DATE > ZERO                      CHGBD310
00241            DISPLAY SPACE                                          CHGBD310
00242            DISPLAY '**  TAX DUE DATE ALREADY SET.            '    CHGBD310
00243                    '        **'                                   CHGBD310
00244            DISPLAY '**  CHGBD310 WILL NOT CHANGE THE CURRENT '    CHGBD310
00245                    'VALUE.  **'                                   CHGBD310
00246            DISPLAY SPACE                                          CHGBD310
00247            GO TO P2100-EXIT.                                      CHGBD310
00248                                                                   CHGBD310
00249      MOVE FQTR-SELF-INS-CHG-RUN-DATE  TO L001-FED-8-DATE-9        CHGBD310
00250      PERFORM S001-FROM-FED-8          THRU S001-EXIT              CHGBD310
00251      ADD +35 TO L001-JUL-ABS-DAY                                  CHGBD310
00252      PERFORM S001-FROM-ABS            THRU S001-EXIT              CHGBD310
00253      IF L001-VALID-DATE                                           CHGBD310
00254         MOVE L001-FED-8-DATE-9        TO L003-DATE                CHGBD310
00255         PERFORM S003-AGENCY-DAY       THRU S003-EXIT              CHGBD310
00256         PERFORM P2110-DATE-LOOP       THRU P2110-EXIT             CHGBD310
00257           UNTIL L003-IS-WORK-DAY                                  CHGBD310
00258         MOVE L001-FED-8-DATE-9 TO FQTR-SELF-INS-TAX-DUE-DATE      CHGBD310
00259         MOVE L001-SLASH-8-DATE        TO WRK-DUE-DATE-DISP.       CHGBD310
00260                                                                   CHGBD310
00261  P2100-EXIT.                                                      CHGBD310
00262      EXIT.                                                        CHGBD310
00263                                                                   CHGBD310
00264  P2110-DATE-LOOP.                                                 CHGBD310
00265      MOVE L001-FED-8-DATE-9 TO L003-DATE.                         CHGBD310
00266                                                                   CHGBD310
00267      PERFORM S003-AGENCY-DAY THRU S003-EXIT.                      CHGBD310
00268      IF L003-IS-WORK-DAY                                          CHGBD310
00269         GO TO P2110-EXIT.                                         CHGBD310
00270                                                                   CHGBD310
00271      ADD  +1  TO L001-JUL-ABS-DAY.                                CHGBD310
00272      PERFORM S001-FROM-ABS     THRU S001-EXIT.                    CHGBD310
00273                                                                   CHGBD310
00274  P2110-EXIT.                                                      CHGBD310
00275      EXIT.                                                        CHGBD310
00276                                                                   CHGBD310
00277  T0000-TERMINATE.                                                 CHGBD310
00278                                                                   CHGBD310
00279      PERFORM T1000-FINAL-DISPLAY    THRU T1000-EXIT.              CHGBD310
00280                                                                   CHGBD310
00281      PERFORM T2000-CLOSE-FILES      THRU T2000-EXIT.              CHGBD310
00282                                                                   CHGBD310
00283                                                                   CHGBD310
00284  T0000-EXIT.                                                      CHGBD310
00285      EXIT.                                                        CHGBD310
00286                                                                   CHGBD310
00287      EJECT                                                        CHGBD310
00288  T1000-FINAL-DISPLAY.                                             CHGBD310
00289      IF CHG3-RUN-TYPE-QTR-88                                      CHGBD310
00290         PERFORM T1100-QTR-DISPLAY      THRU T1100-EXIT            CHGBD310
00291      ELSE                                                         CHGBD310
00292         PERFORM T1200-NON-QTR-DISPLAY  THRU T1200-EXIT.           CHGBD310
00293                                                                   CHGBD310
00294                                                                   CHGBD310
00295  T1000-EXIT.                                                      CHGBD310
00296      EXIT.                                                        CHGBD310
00297                                                                   CHGBD310
00298  T1100-QTR-DISPLAY.                                               CHGBD310
00299      MOVE FQTR-SELF-INS-CHG-RUN-DATE TO L001-FED-8-DATE-9.        CHGBD310
00300      PERFORM S001-FROM-FED-8     THRU S001-EXIT                   CHGBD310
00301      MOVE L001-SLASH-8-DATE      TO WRK-RUN-DATE-DISP.            CHGBD310
00302                                                                   CHGBD310
00303      MOVE FQTR-SELF-INS-TAX-DUE-DATE TO L001-FED-8-DATE-9.        CHGBD310
00304      PERFORM S001-FROM-FED-8     THRU S001-EXIT                   CHGBD310
00305      MOVE L001-SLASH-8-DATE      TO WRK-DUE-DATE-DISP.            CHGBD310
00306                                                                   CHGBD310
00307      DISPLAY SPACE.                                               CHGBD310
00308      DISPLAY '*********************************************'.     CHGBD310
00309      DISPLAY '**           CHGBD310 DATES                **'.     CHGBD310
00310      DISPLAY SPACE.                                               CHGBD310
00311      DISPLAY '     SUBJECT QUARTER:      '                        CHGBD310
00312                  WRK-SUBJ-YRQ-DISP.                               CHGBD310
00313      DISPLAY SPACE.                                               CHGBD310
00314      DISPLAY '     CHARGE RUN DATE:      '                        CHGBD310
00315                  WRK-RUN-DATE-DISP.                               CHGBD310
00316      DISPLAY SPACE.                                               CHGBD310
00317      DISPLAY '        TAX DUE DATE:      '                        CHGBD310
00318                  WRK-DUE-DATE-DISP.                               CHGBD310
00319      DISPLAY '**                                         **'.     CHGBD310
00320      DISPLAY '*********************************************'.     CHGBD310
00321                                                                   CHGBD310
00322  T1100-EXIT.                                                      CHGBD310
00323      EXIT.                                                        CHGBD310
00324                                                                   CHGBD310
00325  T1200-NON-QTR-DISPLAY.                                           CHGBD310
00326      DISPLAY SPACE.                                               CHGBD310
00327      DISPLAY '*********************************************'.     CHGBD310
00328      DISPLAY '**             CHGBD310                    **'.     CHGBD310
00329      DISPLAY SPACE.                                               CHGBD310
00330      DISPLAY '**  RUN TYPE NOT QUARTERLY: ' CHG3-RUN-TYPE         CHGBD310
00331              '            **'                                     CHGBD310
00332      DISPLAY '**  FQTR WILL NOT BE UPDATED   '                    CHGBD310
00333              '            **'                                     CHGBD310
00334      DISPLAY '*********************************************'.     CHGBD310
00335      DISPLAY SPACE.                                               CHGBD310
00336  T1200-EXIT.                                                      CHGBD310
00337      EXIT.                                                        CHGBD310
00338                                                                   CHGBD310
00339  T2000-CLOSE-FILES.                                               CHGBD310
00340      CLOSE CHG-PARM-FILE.                                         CHGBD310
00341                                                                   CHGBD310
00342      IF CHG3-RUN-TYPE-QTR-88                                      CHGBD310
00343         PERFORM S931-CLOSE        THRU S931-EXIT.                 CHGBD310
00344                                                                   CHGBD310
00345  T2000-EXIT.                                                      CHGBD310
00346      EXIT.                                                        CHGBD310
00347                                                                   CHGBD310
00348  S001-FROM-FED-8.                                                 CHGBD310
00349      SET L001-FROM-FED-8 TO TRUE.                                 CHGBD310
00350      GO TO S001-DATE.                                             CHGBD310
00351                                                                   CHGBD310
00352  S001-FROM-ABS.                                                   CHGBD310
00353      SET L001-FROM-ABS-DAY TO TRUE.                               CHGBD310
00354      GO TO S001-DATE.                                             CHGBD310
00355                                                                   CHGBD310
00356  S001-DATE.                                                       CHGBD310
00357      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBD310
00358  S001-EXIT.                                                       CHGBD310
00359      EXIT.                                                        CHGBD310
00360                                                                   CHGBD310
00361  S003-AGENCY-DAY.                                                 CHGBD310
00362      SET L003-AGENCY-DAY TO TRUE.                                 CHGBD310
00363      GO TO S003-WORK-DAY.                                         CHGBD310
00364                                                                   CHGBD310
00365  S003-WORK-DAY.                                                   CHGBD310
00366      CALL 'DTSBU003' USING L003-LINK-AREA.                        CHGBD310
00367  S003-EXIT.                                                       CHGBD310
00368      EXIT.                                                        CHGBD310
00369                                                                   CHGBD310
00370  S004-FROM-DATE.                                                  CHGBD310
00371      SET L004-FROM-DATE TO TRUE.                                  CHGBD310
00372      GO TO S004-YRQ.                                              CHGBD310
00373                                                                   CHGBD310
00374  S004-YRQ.                                                        CHGBD310
00375      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBD310
00376  S004-EXIT.                                                       CHGBD310
00377      EXIT.                                                        CHGBD310
00378                                                                   CHGBD310
00379  S005-FROM-SYS.                                                   CHGBD310
00380      SET L005-FROM-SYS TO TRUE.                                   CHGBD310
00381      GO TO S005-ABSTIME.                                          CHGBD310
00382                                                                   CHGBD310
00383  S005-ABSTIME.                                                    CHGBD310
00384      CALL 'DTSBU005' USING L005-LINK-AREA.                        CHGBD310
00385  S005-EXIT.                                                       CHGBD310
00386      EXIT.                                                        CHGBD310
00387                                                                   CHGBD310
00388  S931-OPEN-UPDATE.                                                CHGBD310
00389      SET L931-OPEN-UPDATE-88 TO TRUE.                             CHGBD310
00390      GO TO S931-REF-I.                                            CHGBD310
00391                                                                   CHGBD310
00392  S931-READ.                                                       CHGBD310
00393      SET L931-READ-88        TO TRUE.                             CHGBD310
00394      GO TO S931-REF-I.                                            CHGBD310
00395                                                                   CHGBD310
00396  S931-WRITE.                                                      CHGBD310
00397      SET L931-WRITE-88       TO TRUE.                             CHGBD310
00398      GO TO S931-REF-I.                                            CHGBD310
00399                                                                   CHGBD310
00400  S931-REWRITE.                                                    CHGBD310
00401      SET L931-REWRITE-88     TO TRUE.                             CHGBD310
00402      GO TO S931-REF-I.                                            CHGBD310
00403                                                                   CHGBD310
00404  S931-CLOSE.                                                      CHGBD310
00405      SET L931-CLOSE-88 TO TRUE.                                   CHGBD310
00406      GO TO S931-REF-I.                                            CHGBD310
00407                                                                   CHGBD310
00408  S931-REF-I.                                                      CHGBD310
00409      CALL 'DTSBU931' USING L931-LINK-AREA                         CHGBD310
00410                            FSKL-REC.                              CHGBD310
00411  S931-EXIT.                                                       CHGBD310
00412      EXIT.                                                        CHGBD310
00413                                                                   CHGBD310
00414  S999-ABEND.                                                      CHGBD310
00415      DISPLAY '****  CHGBD310 ABENDING '                           CHGBD310
00416         ABEND-MSG.                                                CHGBD310
00417      CALL 'DTSBU999' USING ABEND-CODE.                            CHGBD310
00418  S999-EXIT.                                                       CHGBD310
00419      EXIT.                                                        CHGBD310
