00001  IDENTIFICATION DIVISION.                                         05/25/10
00002  PROGRAM-ID.             CHGBD106.                                CHGBD106
00003 *AUTHOR.                 TCL.                                        LV009
00004 *DATE-WRITTEN.           FEBRUARY 1999.                           CHGBD106
00005  DATE-COMPILED.                                                   CHGBD106
00006      SKIP3                                                        CHGBD106
00007 *****                                                             CHGBD106
00008 *                                                                 CHGBD106
00009 *    FUNCTION:                                                    CHGBD106
00010 *                                                                 CHGBD106
00011 *        BENEFIT CHARGE CONVERSION STEP 1                         CHGBD106
00012 *          (1) READ DATA FROM TAPE AND CREATE CHGIM001 RECORDS    CHGBD106
00013 *                                                                 CHGBD106
00014 *****                                                             CHGBD106
00015 *        ***  NOTE  NOTE  NOTE  NOTE  NOTE  NOTE  NOTE  ***       CHGBD106
00016 *        ***                                            ***       CHGBD106
00017 *        ***  IF THE BENEFITS SYSTEM BEGINS PRODUCING   ***       CHGBD106
00018 *        ***  CHARGE RECORDS FOR A NEW BENEFIT PROGRAM  ***       CHGBD106
00019 *        ***  MODIFY THE FOLLOWING CHARGE SYSTEM        ***       CHGBD106
00020 *        ***  COMPONENTS:                               ***       CHGBD106
00021 *        ***                                            ***       CHGBD106
00022 *        ***  ADD NEW LEVEL-88S TO:                     ***       CHGBD106
00023 *        ***      CHG1-CHARGE-PROGRAM IN CHGIM001       ***       CHGBD106
00024 *        ***      WRK-PROGRAM IN CHGBD106               ***       CHGBD106
00025 *        ***      CHG2-PROGRAM IN CHGIM002              ***       CHGBD106
00026 *        ***      CHG4-PROGRAM IN CHGIM004              ***       CHGBD106
00027 *        ***      CHG30-PROGRAM IN CHGIM030             ***       CHGBD106
00028 *        ***                                            ***       CHGBD106
00029 *        ***  MODIFY P1500 IN CHGBD106                  ***       CHGBD106
00030 *        ***                                            ***       CHGBD106
00031 *****                                                             CHGBD106
00032 *                                                                 CHGBD106
00033 *        INPUT:                                                   CHGBD106
00034 *                                                                 CHGBD106
00035 *            CHGFILE  - CHARGE RECORDS GENERATED BY               CHGBD106
00036 *                       BENEFITS SYSTEM.                          CHGBD106
00037 *                                                                 CHGBD106
00038 *      OUTPUT:                                                    CHGBD106
00039 *                                                                 CHGBD106
00040 *            BD100CHG - REFORMATTED CHARGE RECORD WITHIN          CHGBD106
00041 *                       REPORTING PERIOD READY FOR SORT.          CHGBD106
00042 *****                                                             CHGBD106
00043                                                                   CHGBD106
00044 ******************************************************************CHGBD106
00045 * MODIFICATION HISTORY:                                          *CHGBD106
00046 *                                                                *CHGBD106
00047 * 02-02-1999 MODIFIED FROM MT CHG100D                            *CHGBD106
00048 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD106
00049 *                                                                *CHGBD106
00050 * 04-09-2001 ELIMINATED THE CURRENT PARAMETER FILE BY USING THE  *CHGBD106
00051 *            LINKAGE SECTION TO RECEIVE THE START AND END DATES  *CHGBD106
00052 *            FROM JCL PARM.                                      *CHGBD106
00053 *            REFERENCE RFP #              AUTHOR OF CHANGE - RW1 *CHGBD106
00054 *                                                                *CHGBD106
00055 * 05-29-2001 ELIMINATED THE LINKAGE-SECTION TO RECEIVE THE START *CHGBD106
00056 *            AND END DATES FROM JCL PARM.                        *CHGBD106
00057 *            DELETED PARAGRAPH P1600 CHECK FOR SUCCESSOR ACCOUNT *CHGBD106
00058 *            REFERENCE RFP #              AUTHOR OF CHANGE - RW1 *CHGBD106
00059 *                                                                *CHGBD106
00060 * 06-29-2004 ADDED EMP TYPE 17 - DOMESTIC VIOLENCE.              *CHGBD106
00061 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBD106
00062 *                                                                *CHGBD106
00063 * 05-04-2010 RECOMPILED FOR NEW VERSION OF CHGIM COPYBOOK.       *CHGBD106
00064 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBD106
00065 *                                                                *CHGBD106
00066 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD106
00067 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD106
00068 *            REFERENCE RFP #****          AUTHOR OF CHANGE - *** *CHGBD106
00069 *                                                                *CHGBD106
00070 ******************************************************************CHGBD106
00071                                                                   CHGBD106
00072      SKIP3                                                        CHGBD106
00073  ENVIRONMENT DIVISION.                                            CHGBD106
00074      SKIP3                                                        CHGBD106
00075  INPUT-OUTPUT SECTION.                                            CHGBD106
00076      SKIP3                                                        CHGBD106
00077  FILE-CONTROL.                                                    CHGBD106
00078                                                                   CHGBD106
00079      SELECT CHARGE-IN-FILE ASSIGN TO CHGFILE                      CHGBD106
00080             FILE STATUS IS CHARGE-IN-STATUS.                      CHGBD106
00081                                                                   CHGBD106
00082      SELECT BD100-CHG-FILE  ASSIGN TO BD100CHG                    CHGBD106
00083             FILE STATUS IS BD100-CHG-STATUS.                      CHGBD106
00084      EJECT                                                        CHGBD106
00085  DATA DIVISION.                                                   CHGBD106
00086      SKIP3                                                        CHGBD106
00087  FILE SECTION.                                                    CHGBD106
00088      SKIP3                                                        CHGBD106
00089  FD  CHARGE-IN-FILE                                               CHGBD106
00090      RECORDING MODE IS V                                          CHGBD106
00091      BLOCK CONTAINS 0 CHARACTERS                                  CHGBD106
00092      LABEL RECORDS ARE STANDARD.                                  CHGBD106
00093                                                                   CHGBD106
00094  01  CHARGE-IN-REC             PIC X(130).                        CHGBD106
00095                                                                   CHGBD106
00096  FD  BD100-CHG-FILE                                               CHGBD106
00097      LABEL RECORDS ARE STANDARD                                   CHGBD106
00098      BLOCK CONTAINS 0 CHARACTERS.                                 CHGBD106
00099      SKIP1                                                        CHGBD106
00100  01  SORT-CHG-REC.                                                CHGBD106
00101  ++INCLUDE CHGIM001                                               CHGBD106
00102                                                                   CHGBD106
00103      EJECT                                                        CHGBD106
00104  WORKING-STORAGE SECTION.                                         CHGBD106
001045 77  PAN-VALET PICTURE X(24) VALUE '009CHGBD106  05/25/10'.       CHGBD106
00105                                                                   CHGBD106
00106  01  WRK-AREA.                                                    CHGBD106
00107      05  AMT-DISP                PIC Z(06)9.99-.                  CHGBD106
00108      05  ABEND-CODE                  PIC S9(04)  COMP             CHGBD106
00109                                  VALUE +100.                      CHGBD106
00110      05  ABEND-MSG                   PIC  X(60).                  CHGBD106
00111      05  ABEND-MOD                   PIC  X(08) VALUE 'DTSBU999'. CHGBD106
00112                                                                   CHGBD106
00113      05  CHARGE-IN-STATUS            PIC  X(02) VALUE SPACES.     CHGBD106
00114          88  CHARGE-FILE-OK-88   VALUE ZERO.                      CHGBD106
00115          88  CHARGE-FILE-EOF-88  VALUE '10'.                      CHGBD106
00116                                                                   CHGBD106
00117      05  BD100-CHG-STATUS            PIC  X(02) VALUE SPACES.     CHGBD106
00118          88  BD100-FILE-OK-88    VALUE ZERO.                      CHGBD106
00119                                                                   CHGBD106
00120      05  WRK-CHG-LENGTH              PIC S9(05) COMP.             CHGBD106
00121                                                                   CHGBD106
00122      05  WRK-ERROR-IND               PIC  X(01).                  CHGBD106
00123          88  WRK-ERROR-YES-88    VALUE 'Y'.                       CHGBD106
00124          88  WRK-ERROR-NO-88     VALUE 'N'.                       CHGBD106
00125                                                                   CHGBD106
00126      05  WRK-EDIT-ERROR-IND          PIC  X(01).                  CHGBD106
00127          88  WRK-EDIT-ERROR-YES-88    VALUE 'Y'.                  CHGBD106
00128          88  WRK-EDIT-ERROR-NO-88     VALUE 'N'.                  CHGBD106
00129                                                                   CHGBD106
00130      05  CHARGE-DATE-8.                                           CHGBD106
00131          10  CHARGE-DATE-19          PIC  9(02) VALUE 19.         CHGBD106
00132          10  CHARGE-DATE-6           PIC  9(06) VALUE 0.          CHGBD106
00133      05  CHARGE-DATE-CENTURY REDEFINES CHARGE-DATE-8 PIC 9(08).   CHGBD106
00134      05  CHARGE-BWE-DATE-8.                                       CHGBD106
00135          10  CHARGE-BWE-19           PIC  9(02) VALUE 19.         CHGBD106
00136          10  CHARGE-BWE-DATE-6       PIC  9(06) VALUE 0.          CHGBD106
00137      05  CHARGE-BWE-DATE-CENTURY REDEFINES CHARGE-BWE-DATE-8      CHGBD106
00138                                      PIC  9(08).                  CHGBD106
00139      05  CHARGE-BYE-DATE-8.                                       CHGBD106
00140          10  CHARGE-BYE-19           PIC  9(02) VALUE 19.         CHGBD106
00141          10  CHARGE-BYE-DATE-6       PIC  9(06) VALUE 0.          CHGBD106
00142      05  CHARGE-BYE-DATE-CENTURY REDEFINES CHARGE-BYE-DATE-8      CHGBD106
00143                                      PIC  9(08).                  CHGBD106
00144      05  WRK-START-DATE              PIC S9(09) COMP-3.           CHGBD106
00145      05  WRK-END-DATE                PIC S9(09) COMP-3.           CHGBD106
00146      05  WRK-CHARGE-DATE             PIC S9(09) COMP-3.           CHGBD106
00147      05  WRK-BYE                     PIC S9(09) COMP-3.           CHGBD106
00148      05  WRK-KEY-X                   PIC  X(10).                  CHGBD106
00149      05  WRK-KEY-N REDEFINES WRK-KEY-X                            CHGBD106
00150                                      PIC  9(10).                  CHGBD106
00151      05  TOT-CHARGE-CURR-AMT         PIC S9(9)V99 VALUE +0.       CHGBD106
00152      05  DIS-CHARGE-CURR-AMT         PIC ZZZ,ZZZ,ZZZ.99.          CHGBD106
00153      05  INV-EMP-NO-CURR-AMT         PIC S9(9)V99 VALUE +0.       CHGBD106
00154      05  DIS-INV-EMP-NO-CURR-AMT     PIC ZZZ,ZZZ,ZZZ.99.          CHGBD106
00155 *************************************************************     CHGBD106
00156 *  WRK-PROGRAM DEFINES VALUES FOR VALID BENEFIT PROGRAMS.         CHGBD106
00157 *  IT IS SET BASED ON CHARGE-SUPP-CODE IN THE DUCAS ESPRPT04      CHGBD106
00158 *  RECORD.  IF AN NEW BENEFIT PROGRAM IS ESTABLISHED, ADD         CHGBD106
00159 *  AN ADDITIONAL LEVEL-88 AND MODIFY THE CODE IN P1500.           CHGBD106
00160 *************************************************************     CHGBD106
00161      05  WRK-PROGRAM                 PIC  9(01).                  CHGBD106
00162          88 WRK-PROG-UI-88        VALUE 1.                        CHGBD106
00163          88 WRK-PROG-EB-88        VALUE 2.                        CHGBD106
00164          88 WRK-PROG-TEUC-88      VALUE 3.                        CHGBD106
00165          88 WRK-PROG-TEUCA-88     VALUE 4.                        CHGBD106
00166      05  WRK-CHARGE-IN-READ          PIC  9(07) COMP-3.           CHGBD106
00167      05  WRK-SORT-CHG-WRITTEN        PIC  9(07) COMP-3.           CHGBD106
00168                                                                   CHGBD106
00169      05  WRK-CHG-DT-ERR-CNT          PIC  9(07) COMP-3.           CHGBD106
00170      05  WRK-BYE-ERR-CNT             PIC  9(07) COMP-3.           CHGBD106
00171      05  WRK-EMP-TYPE-ERR-CNT        PIC  9(07) COMP-3.           CHGBD106
00172      05  WRK-CHG-AMT-ERR-CNT         PIC  9(07) COMP-3.           CHGBD106
00173      05  WRK-SUPP-CD-ERR-CNT         PIC  9(07) COMP-3.           CHGBD106
00174      05  WRK-EMP-NO-ERR-CNT          PIC  9(07) COMP-3.           CHGBD106
00175      05  WRK-SSN-ERR-CNT             PIC  9(07) COMP-3.           CHGBD106
00176                                                                   CHGBD106
00177      05  WRK-EMP-ACCT                PIC  9(06).                  CHGBD106
00178          88 WRK-EMP-ACCT-FED-88  VALUE 000001 THRU 001999.        CHGBD106
00179          88 WRK-EMP-ACCT-CWC-88  VALUE 110000 THRU 119999.        CHGBD106
00180                                                                   CHGBD106
00181      05  WRK-EMP-TYPE                PIC  9(02).                  CHGBD106
00182          88 WRK-EMP-TYPE-RATED-88     VALUE 00.                   CHGBD106
00183          88 WRK-EMP-TYPE-SELF-INS-88  VALUE 08.                   CHGBD106
00184          88 WRK-EMP-TYPE-CWC-88       VALUE 04.                   CHGBD106
00185          88 WRK-EMP-TYPE-FED-88       VALUE 01, 02.               CHGBD106
00186          88 WRK-EMP-TYPE-VALID-88     VALUE 00, 01, 02, 03        CHGBD106
00187                                             04, 05, 06            CHGBD106
00188                                             07, 08, 09            CHGBD106
00189                                             10, 11, 12, 26        CHGBD106
00190                                             13, 15, 16, 17        CHGBD106
00191                                             18, 19, 20, 21        CHGBD106
00192                                             22, 23, 24, 25,       CHGBD106
00193                                             26, 27.               CHGBD106
00194 ** ADD ERROR MSG TABLE SET UP                                     CHGBD106
00195  01  MSG-TABLE.                                                   CHGBD106
00196      05  MSG1-EMP-TYPE.                                           CHGBD106
00197          10  MSG1-ID.                                             CHGBD106
00198              15  MSG1-ID1      PIC X(08)  VALUE 'CHGBD106'.       CHGBD106
00199              15  MSG1-ID2      PIC X(03)  VALUE '101'.            CHGBD106
00200          10  MSG1-SHORT-TEXT   PIC X(20)                          CHGBD106
00201                    VALUE 'INVALID EMP TYPE :  '.                  CHGBD106
00202          10  MSG1-LONG-TEXT.                                      CHGBD106
00203              15  FILLER        PIC X(29)                          CHGBD106
00204                    VALUE 'INVALID EMPLOYER TYPE        '.         CHGBD106
00205              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD106
00206              15  MSG1-SSN      PIC 9(10).                         CHGBD106
00207              15  FILLER        PIC X(13)  VALUE '  EMP TYPE = '.  CHGBD106
00208              15  MSG1-EMP-TYPE PIC 9(02).                         CHGBD106
00209                                                                   CHGBD106
00210      05  MSG2-BYE-DATE.                                           CHGBD106
00211          10  MSG2-ID.                                             CHGBD106
00212              15  MSG2-ID1      PIC X(08)  VALUE 'CHGBD106'.       CHGBD106
00213              15  MSG2-ID2      PIC X(03)  VALUE '101'.            CHGBD106
00214          10  MSG2-SHORT-TEXT   PIC X(20)                          CHGBD106
00215                    VALUE 'INVALID BYE DATE :  '.                  CHGBD106
00216          10  MSG2-LONG-TEXT.                                      CHGBD106
00217              15  FILLER        PIC X(29)                          CHGBD106
00218                    VALUE 'INVALID BYE DATE ACCEPTED    '.         CHGBD106
00219              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD106
00220              15  MSG2-SSN      PIC 9(10).                         CHGBD106
00221              15  FILLER        PIC X(13)  VALUE '  BYE DATE = '.  CHGBD106
00222              15  MSG2-BYE      PIC 9(08).                         CHGBD106
00223                                                                   CHGBD106
00224      05  MSG3-CHARGE-DATE.                                        CHGBD106
00225          10  MSG3-ID.                                             CHGBD106
00226              15  MSG3-ID1      PIC X(08)  VALUE 'CHGBD106'.       CHGBD106
00227              15  MSG3-ID2      PIC X(03)  VALUE '101'.            CHGBD106
00228          10  MSG3-SHORT-TEXT   PIC X(20)                          CHGBD106
00229                    VALUE 'INVALID CHG DATE :  '.                  CHGBD106
00230          10  MSG3-LONG-TEXT.                                      CHGBD106
00231              15  FILLER        PIC X(29)                          CHGBD106
00232                    VALUE 'INVALID CHARGE DATE          '.         CHGBD106
00233              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD106
00234              15  MSG3-SSN      PIC 9(10).                         CHGBD106
00235              15  FILLER        PIC X(13)  VALUE '  CHG DATE = '.  CHGBD106
00236              15  MSG3-CHG-DATE PIC 9(08).                         CHGBD106
00237                                                                   CHGBD106
00238      05  MSG4-CHARGE-AMT.                                         CHGBD106
00239          10  MSG4-ID.                                             CHGBD106
00240              15  MSG4-ID1      PIC X(08)  VALUE 'CHGBD106'.       CHGBD106
00241              15  MSG4-ID2      PIC X(03)  VALUE '101'.            CHGBD106
00242          10  MSG4-SHORT-TEXT   PIC X(20)                          CHGBD106
00243                    VALUE 'INVALID CHG AMOUNT :'.                  CHGBD106
00244          10  MSG4-LONG-TEXT.                                      CHGBD106
00245              15  FILLER        PIC X(29)                          CHGBD106
00246                    VALUE 'INVALID CHARGE AMOUNT        '.         CHGBD106
00247              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD106
00248              15  MSG4-SSN      PIC 9(10).                         CHGBD106
00249              15  FILLER        PIC X(15)  VALUE '  CHG AMOUNT = '.CHGBD106
00250              15  MSG4-CURR-AMT PIC S9(08)V99.                     CHGBD106
00251                                                                   CHGBD106
00252      05  MSG5-SUPP-CODE.                                          CHGBD106
00253          10  MSG5-ID.                                             CHGBD106
00254              15  MSG5-ID1      PIC X(08)  VALUE 'CHGBD106'.       CHGBD106
00255              15  MSG5-ID2      PIC X(03)  VALUE '101'.            CHGBD106
00256          10  MSG5-SHORT-TEXT   PIC X(20)                          CHGBD106
00257                    VALUE 'INVALID SUPP CODE  :'.                  CHGBD106
00258          10  MSG5-LONG-TEXT.                                      CHGBD106
00259              15  FILLER        PIC X(29)                          CHGBD106
00260                    VALUE 'INVALID SUPP CODE            '.         CHGBD106
00261              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD106
00262              15  MSG5-SSN      PIC 9(10).                         CHGBD106
00263              15  FILLER        PIC X(14)  VALUE '  SUPP CODE = '. CHGBD106
00264              15  MSG5-SUPP-CD  PIC X(01).                         CHGBD106
00265                                                                   CHGBD106
00266      05  MSG6-EMP-NO.                                             CHGBD106
00267          10  MSG6-ID.                                             CHGBD106
00268              15  MSG6-ID1      PIC X(08)  VALUE 'CHGBD106'.       CHGBD106
00269              15  MSG6-ID2      PIC X(03)  VALUE '101'.            CHGBD106
00270          10  MSG6-SHORT-TEXT   PIC X(20)                          CHGBD106
00271                    VALUE 'EMP NUMBER = ZERO  :'.                  CHGBD106
00272          10  MSG6-LONG-TEXT.                                      CHGBD106
00273              15  FILLER        PIC X(29)                          CHGBD106
00274                    VALUE 'EMPLOYER NUMBER = ZERO       '.         CHGBD106
00275              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD106
00276              15  MSG6-SSN      PIC 9(10).                         CHGBD106
00277              15  FILLER        PIC X(15)  VALUE SPACES.           CHGBD106
00278                                                                   CHGBD106
00279      05  MSG7-SSN-ERR.                                            CHGBD106
00280          10  MSG6-ID.                                             CHGBD106
00281              15  MSG7-ID1      PIC X(08)  VALUE 'CHGBD106'.       CHGBD106
00282              15  MSG7-ID2      PIC X(03)  VALUE '101'.            CHGBD106
00283          10  MSG7-SHORT-TEXT   PIC X(20)                          CHGBD106
00284                    VALUE 'SSN = ZERO         :'.                  CHGBD106
00285          10  MSG7-LONG-TEXT.                                      CHGBD106
00286              15  FILLER        PIC X(29)                          CHGBD106
00287                    VALUE 'SSN = ZERT                   '.         CHGBD106
00288              15  FILLER        PIC X(08)  VALUE '  SSN = '.       CHGBD106
00289              15  MSG7-SSN      PIC 9(10).                         CHGBD106
00290              15  FILLER        PIC X(15)  VALUE SPACES.           CHGBD106
00291                                                                   CHGBD106
00292 ** ADD ERROR MSG OUTPUT RECORD.                                   CHGBD106
00293  01  R907-REC.                                                    CHGBD106
00294  ++INCLUDE DTSIR907                                               CHGBD106
00295                                                                   CHGBD106
00296 *** BENEFITS CHARGE RECORD ***                                    CHGBD106
00297 ****NCLUDE ESPRPT04                                               CHGBD106
00298 ******************************************************************CHGBD106
00299 **        ESPRPT04 - EMPLOYER CHARGING REPORT RECORD            **CHGBD106
00300 ******************************************************************CHGBD106
00301  01  CHARGE-REC.                                                  CHGBD106
00302      05  CHARGE-SORT-KEY.                                         CHGBD106
00303          10  CHARGE-REC-TYPE         PIC 9(2)     VALUE 04.       CHGBD106
00304          10  CHARGE-EMPL-ACCT        PIC 9(6)     VALUE ZERO.     CHGBD106
00305          10  CHARGE-KEY.                                          CHGBD106
00306              15  CHARGE-SSN          PIC 9(9)     VALUE ZERO.     CHGBD106
00307              15  CHARGE-SSN-SEQ      PIC 9(1)     VALUE ZERO.     CHGBD106
00308          10  CHARGE-CODE             PIC 9(1)     VALUE ZERO.     CHGBD106
00309              88  CHARGE-ADJ                       VALUE 3.        CHGBD106
00310              88  CHARGE-BEN                       VALUE 4.        CHGBD106
00311              88  CHARGE-OP-ESTABLISH              VALUE 5.        CHGBD106
00312              88  CHARGE-OP-RECOUP                 VALUE 6.        CHGBD106
00313              88  CHARGE-IB6                       VALUE 7.        CHGBD106
00314              88  CHARGE-OP-WAIVER                 VALUE 8.        CHGBD106
00315              88  CHARGE-OTHER                     VALUE 9.        CHGBD106
00316          10  CHARGE-DATE             PIC 9(6)     VALUE ZERO.     CHGBD106
00317          10  CHARGE-SHAREABLE-IND    PIC 9(1)     VALUE ZERO.     CHGBD106
00318              88  CHARGE-SHAREABLE-YES             VALUE 1.        CHGBD106
00319          10  CHARGE-PROG-NAME        PIC X(6)     VALUE SPACE.    CHGBD106
00320          10  CHARGE-PAY-TYPE-BEN     PIC X(2)     VALUE SPACE.    CHGBD106
00321      05  CHARGE-BWE-DATE             PIC 9(6)     VALUE ZERO.     CHGBD106
00322      05  CHARGE-TRAN-ID              PIC X(2)     VALUE SPACE.    CHGBD106
00323      05  CHARGE-OPER-ID              PIC X(8)     VALUE SPACE.    CHGBD106
00324      05  CHARGE-TOT-AMT              PIC S9(8)V99 VALUE ZERO.     CHGBD106
00325      05  CHARGE-CURR-AMT             PIC S9(8)V99 VALUE ZERO.     CHGBD106
00326      05  CHARGE-BYE-DATE             PIC 9(6)     VALUE ZERO.     CHGBD106
00327      05  CHARGE-SUPP-CODE            PIC X(1)     VALUE SPACE.    CHGBD106
00328          88  CHARGE-SUPP-CODE-EB                  VALUE 'E'.      CHGBD106
00329      05  CHARGE-PAY-TYPE             PIC X(1)     VALUE SPACE.    CHGBD106
00330      05  CHARGE-NAME                 PIC X(32)    VALUE SPACE.    CHGBD106
00331      05  CHARGE-FILLER                                            CHGBD106
00332              REDEFINES                                            CHGBD106
00333                  CHARGE-NAME.                                     CHGBD106
00334          10 CHARGE-LAST-NAME         PIC X(18).                   CHGBD106
00335          10 CHARGE-NAME-SLASH        PIC X.                       CHGBD106
00336          10 CHARGE-FIRST-NAME        PIC X(12).                   CHGBD106
00337          10 CHARGE-MIDDLE-NAME       PIC X.                       CHGBD106
00338      05  CHARGE-EMPLOYER-TYPE        PIC 9(2)     VALUE ZERO.     CHGBD106
00339          88  CHARGE-EMPLOYER-CONTRIBUTORY         VALUE 00.       CHGBD106
00340          88  CHARGE-EMPLOYER-UCX                  VALUE 01.       CHGBD106
00341          88  CHARGE-EMPLOYER-UCFE                 VALUE 02.       CHGBD106
00342          88  CHARGE-EMPLOYER-ETA-PSE              VALUE 03.       CHGBD106
00343          88  CHARGE-EMPLOYER-INTERSTATE           VALUE 04.       CHGBD106
00344          88  CHARGE-EMPLOYER-VOL-QUIT             VALUE 05.       CHGBD106
00345          88  CHARGE-EMPLOYER-MISCONDUCT           VALUE 06.       CHGBD106
00346          88  CHARGE-EMPLOYER-EB                   VALUE 07.       CHGBD106
00347          88  CHARGE-EMPLOYER-SELF-INSURED         VALUE 08.       CHGBD106
00348          88  CHARGE-EMPLOYER-TRA                  VALUE 09.       CHGBD106
00349          88  CHARGE-EMPLOYER-DC-GOVERNMENT        VALUE 10.       CHGBD106
00350          88  CHARGE-EMPLOYER-UI-PSE               VALUE 11.       CHGBD106
00351          88  CHARGE-EMPLOYER-FSC                  VALUE 12.       CHGBD106
00352          88  CHARGE-EMPLOYER-DUMMY                VALUE 30.       CHGBD106
00353      05  CHARGE-REG-ADJ-CHECK        PIC 9(02)    VALUE ZEROS.    CHGBD106
00354      05  CHARGE-PROG                 PIC 9(02)    VALUE ZEROS.    CHGBD106
00355      05  CHARGE-FILLER-ONE           PIC X(14)    VALUE SPACE.    CHGBD106
00356                                                                   CHGBD106
00357  01  FILLER REDEFINES CHARGE-REC.                                 CHGBD106
00358 **** 05  FILLER                      PIC  X(04).                  CHGBD106
00359      05  WRK-CHARGE-REC              PIC  X(134).                 CHGBD106
00360                                                                   CHGBD106
00361  01  L001-LINK-AREA.                                              CHGBD106
00362  ++INCLUDE DTSIL001                                               CHGBD106
00363                                                                   CHGBD106
00364  01  L004-LINK-AREA.                                              CHGBD106
00365  ++INCLUDE DTSIL004                                               CHGBD106
00366                                                                   CHGBD106
00367  LINKAGE SECTION.                                                 CHGBD106
00368  01  PARM-AREA.                                                   CHGBD106
00369      05  PARM-LENGTH                    PIC S9(04) COMP.          CHGBD106
00370      05  PARM-START-DATE                PIC  X(06).               CHGBD106
00371      05  FILLER                         PIC  X(01).               CHGBD106
00372      05  PARM-END-DATE                  PIC  X(06).               CHGBD106
00373      EJECT                                                        CHGBD106
00374  PROCEDURE DIVISION USING PARM-AREA.                              CHGBD106
00375      SKIP2                                                        CHGBD106
00376  CHGBD106-MAIN.                                                   CHGBD106
00377      MOVE ZERO TO  WRK-CHARGE-IN-READ                             CHGBD106
00378                    WRK-SORT-CHG-WRITTEN                           CHGBD106
00379                    WRK-CHG-DT-ERR-CNT                             CHGBD106
00380                    WRK-BYE-ERR-CNT                                CHGBD106
00381                    WRK-EMP-TYPE-ERR-CNT                           CHGBD106
00382                    WRK-CHG-AMT-ERR-CNT                            CHGBD106
00383                    WRK-SUPP-CD-ERR-CNT                            CHGBD106
00384                    WRK-EMP-NO-ERR-CNT                             CHGBD106
00385                    WRK-SSN-ERR-CNT.                               CHGBD106
00386                                                                   CHGBD106
00387      SET WRK-ERROR-NO-88 TO TRUE.                                 CHGBD106
00388                                                                   CHGBD106
00389      PERFORM I0000-INITIATE THRU I0000-EXIT.                      CHGBD106
00390      IF WRK-ERROR-YES-88                                          CHGBD106
00391         GO TO CHGBD106-EXIT.                                      CHGBD106
00392                                                                   CHGBD106
00393      PERFORM P0000-PROCESS THRU P0000-EXIT.                       CHGBD106
00394                                                                   CHGBD106
00395      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     CHGBD106
00396                                                                   CHGBD106
00397      MOVE +0 TO RETURN-CODE.                                      CHGBD106
00398                                                                   CHGBD106
00399  CHGBD106-EXIT.                                                   CHGBD106
00400      STOP RUN.                                                    CHGBD106
00401      EJECT                                                        CHGBD106
00402  I0000-INITIATE.                                                  CHGBD106
00403      MOVE MSG1-ID1 TO R907-MODULE-NAME.                           CHGBD106
00404      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      CHGBD106
00405                                                                   CHGBD106
00406      PERFORM I1000-READ-PARM  THRU I1000-EXIT.                    CHGBD106
00407                                                                   CHGBD106
00408      PERFORM I2000-OPEN-FILES THRU I2000-EXIT.                    CHGBD106
00409                                                                   CHGBD106
00410  I0000-EXIT.                                                      CHGBD106
00411      EXIT.                                                        CHGBD106
00412                                                                   CHGBD106
00413  I1000-READ-PARM.                                                 CHGBD106
00414      IF PARM-LENGTH NOT = +13                                     CHGBD106
00415         DISPLAY 'INVALID PARM LENGTH'                             CHGBD106
00416         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD106
00417                                                                   CHGBD106
00418      IF PARM-START-DATE NOT NUMERIC                               CHGBD106
00419         DISPLAY 'START DATE NOT NUMERIC'                          CHGBD106
00420         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD106
00421                                                                   CHGBD106
00422      MOVE PARM-START-DATE   TO L001-CAL-6-DATE-X.                 CHGBD106
00423      PERFORM S001-FROM-CAL-6    THRU S001-EXIT.                   CHGBD106
00424      IF L001-VALID-DATE                                           CHGBD106
00425         MOVE L001-FED-8-DATE-9 TO WRK-START-DATE                  CHGBD106
00426      ELSE                                                         CHGBD106
00427         DISPLAY 'INVALID-START-DATE'                              CHGBD106
00428         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD106
00429                                                                   CHGBD106
00430      IF PARM-END-DATE NOT NUMERIC                                 CHGBD106
00431         DISPLAY 'END DATE NOT NUMERIC'                            CHGBD106
00432         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD106
00433                                                                   CHGBD106
00434      MOVE PARM-END-DATE     TO L001-CAL-6-DATE-X.                 CHGBD106
00435      PERFORM S001-FROM-CAL-6    THRU S001-EXIT.                   CHGBD106
00436      IF L001-VALID-DATE                                           CHGBD106
00437         MOVE L001-FED-8-DATE-9 TO WRK-END-DATE                    CHGBD106
00438      ELSE                                                         CHGBD106
00439         DISPLAY 'INVALID-END-DATE'                                CHGBD106
00440         PERFORM S999-ABEND THRU S999-EXIT.                        CHGBD106
00441                                                                   CHGBD106
00442      DISPLAY '****************************************'.          CHGBD106
00443      DISPLAY '**                                    **'.          CHGBD106
00444      DISPLAY '**  START DATE ' WRK-START-DATE                     CHGBD106
00445         '             **'.                                        CHGBD106
00446      DISPLAY '**                                    **'.          CHGBD106
00447      DISPLAY '**  END DATE ' WRK-END-DATE                         CHGBD106
00448         '               **'.                                      CHGBD106
00449      DISPLAY '****************************************'.          CHGBD106
00450                                                                   CHGBD106
00451  I1000-EXIT.                                                      CHGBD106
00452      EXIT.                                                        CHGBD106
00453                                                                   CHGBD106
00454  I2000-OPEN-FILES.                                                CHGBD106
00455      OPEN INPUT  CHARGE-IN-FILE.                                  CHGBD106
00456      IF NOT CHARGE-FILE-OK-88                                     CHGBD106
00457         DISPLAY 'CHARGE FILE OPEN ERROR: ' CHARGE-IN-STATUS       CHGBD106
00458         SET WRK-ERROR-YES-88 TO TRUE                              CHGBD106
00459         GO TO I2000-EXIT.                                         CHGBD106
00460                                                                   CHGBD106
00461      OPEN OUTPUT BD100-CHG-FILE.                                  CHGBD106
00462      IF NOT BD100-FILE-OK-88                                      CHGBD106
00463         DISPLAY 'SORT FILE OPEN ERROR: ' BD100-CHG-STATUS         CHGBD106
00464         SET WRK-ERROR-YES-88 TO TRUE                              CHGBD106
00465         GO TO I2000-EXIT.                                         CHGBD106
00466                                                                   CHGBD106
00467  I2000-EXIT.                                                      CHGBD106
00468      EXIT.                                                        CHGBD106
00469                                                                   CHGBD106
00470  P0000-PROCESS.                                                   CHGBD106
00471      READ CHARGE-IN-FILE INTO WRK-CHARGE-REC                      CHGBD106
00472      IF NOT CHARGE-FILE-OK-88                                     CHGBD106
00473         DISPLAY 'CHARGE FILE EMPTY: ' CHARGE-IN-STATUS            CHGBD106
00474         SET WRK-ERROR-YES-88 TO TRUE                              CHGBD106
00475         GO TO P0000-EXIT                                          CHGBD106
00476      ELSE                                                         CHGBD106
00477         ADD 1 TO WRK-CHARGE-IN-READ.                              CHGBD106
00478                                                                   CHGBD106
00479      PERFORM P1000-SELECT-CHARGES THRU P1000-EXIT                 CHGBD106
00480 ****    UNTIL WRK-SORT-CHG-WRITTEN > 1000.                        CHGBD106
00481         UNTIL CHARGE-FILE-EOF-88.                                 CHGBD106
00482                                                                   CHGBD106
00483  P0000-EXIT.                                                      CHGBD106
00484      EXIT.                                                        CHGBD106
00485                                                                   CHGBD106
00486  P1000-SELECT-CHARGES.                                            CHGBD106
00487      SET WRK-EDIT-ERROR-NO-88 TO TRUE.                            CHGBD106
00488 *****                                                             CHGBD106
00489 *****                                                             CHGBD106
00490      PERFORM P1100-EDIT-CHARGE-DATE THRU P1100-EXIT.              CHGBD106
00491      IF WRK-EDIT-ERROR-YES-88                                     CHGBD106
00492         GO TO P1000-READ-NEXT.                                    CHGBD106
00493                                                                   CHGBD106
00494      PERFORM P1200-EDIT-CWC         THRU P1200-EXIT.              CHGBD106
00495                                                                   CHGBD106
00496      PERFORM P1300-EDIT-BYE-DATE    THRU P1300-EXIT.              CHGBD106
00497                                                                   CHGBD106
00498      PERFORM P1400-EDIT-CHG-AMT     THRU P1400-EXIT.              CHGBD106
00499                                                                   CHGBD106
00500      PERFORM P1500-EDIT-SUPP-CODE   THRU P1500-EXIT.              CHGBD106
00501                                                                   CHGBD106
00502      PERFORM P1600-EDIT-EMP-NO      THRU P1600-EXIT.              CHGBD106
00503                                                                   CHGBD106
00504      PERFORM P1700-EDIT-SSN         THRU P1700-EXIT.              CHGBD106
00505                                                                   CHGBD106
00506      IF WRK-EDIT-ERROR-YES-88                                     CHGBD106
00507         GO TO P1000-READ-NEXT.                                    CHGBD106
00508                                                                   CHGBD106
00509      PERFORM P2000-WRITE-SORT-REC THRU P2000-EXIT.                CHGBD106
00510                                                                   CHGBD106
00511  P1000-READ-NEXT.                                                 CHGBD106
00512      READ CHARGE-IN-FILE INTO WRK-CHARGE-REC.                     CHGBD106
00513      IF CHARGE-FILE-OK-88                                         CHGBD106
00514         ADD 1 TO WRK-CHARGE-IN-READ                               CHGBD106
00515      ELSE                                                         CHGBD106
00516      IF CHARGE-FILE-EOF-88                                        CHGBD106
00517         NEXT SENTENCE                                             CHGBD106
00518      ELSE                                                         CHGBD106
00519         DISPLAY 'CHARGE FILE READ ERROR: ' CHARGE-IN-STATUS       CHGBD106
00520         SET WRK-ERROR-YES-88 TO TRUE                              CHGBD106
00521         SET CHARGE-FILE-EOF-88 TO TRUE.                           CHGBD106
00522                                                                   CHGBD106
00523  P1000-EXIT.                                                      CHGBD106
00524      EXIT.                                                        CHGBD106
00525                                                                   CHGBD106
00526  P1100-EDIT-CHARGE-DATE.                                          CHGBD106
00527      MOVE CHARGE-DATE TO CHARGE-DATE-6.                           CHGBD106
00528      MOVE CHARGE-DATE-8 TO L001-FED-8-DATE-X.                     CHGBD106
00529      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      CHGBD106
00530      IF L001-VALID-DATE                                           CHGBD106
00531         MOVE L001-FED-8-DATE-9 TO WRK-CHARGE-DATE                 CHGBD106
00532 ***     PERFORM P1110-CHECK-DATE THRU P1110-EXIT                  CHGBD106
00533      ELSE                                                         CHGBD106
00534         SET WRK-EDIT-ERROR-YES-88 TO TRUE                         CHGBD106
00535         ADD +1 TO WRK-CHG-DT-ERR-CNT                              CHGBD106
00536         MOVE MSG3-ID2         TO R907-MSG-ID                      CHGBD106
00537         MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO                      CHGBD106
00538         MOVE CHARGE-SSN       TO MSG3-SSN                         CHGBD106
00539         MOVE CHARGE-DATE      TO CHARGE-DATE-6                    CHGBD106
00540         MOVE CHARGE-DATE-8    TO MSG3-CHG-DATE                    CHGBD106
00541         MOVE MSG3-LONG-TEXT   TO R907-MSG-TEXT                    CHGBD106
00542         PERFORM S946-R907-WRITE THRU S946-EXIT.                   CHGBD106
00543                                                                   CHGBD106
00544  P1100-EXIT.                                                      CHGBD106
00545      EXIT.                                                        CHGBD106
00546                                                                   CHGBD106
00547  P1110-CHECK-DATE.                                                CHGBD106
00548      IF CHARGE-DATE-CENTURY < WRK-START-DATE                      CHGBD106
00549      OR CHARGE-DATE-CENTURY > WRK-END-DATE                        CHGBD106
00550         SET WRK-EDIT-ERROR-YES-88 TO TRUE                         CHGBD106
00551         DISPLAY 'DATE ' CHARGE-DATE-8                             CHGBD106
00552            '  EMP ' CHARGE-EMPL-ACCT                              CHGBD106
00553            '  SSN ' CHARGE-SSN                                    CHGBD106
00554      END-IF.                                                      CHGBD106
00555                                                                   CHGBD106
00556  P1110-EXIT.                                                      CHGBD106
00557      EXIT.                                                        CHGBD106
00558                                                                   CHGBD106
00559  P1200-EDIT-CWC.                                                  CHGBD106
00560      MOVE CHARGE-EMPL-ACCT TO WRK-EMP-ACCT.                       CHGBD106
00561      MOVE CHARGE-EMPLOYER-TYPE TO WRK-EMP-TYPE.                   CHGBD106
00562                                                                   CHGBD106
00563 ************************************************************      CHGBD106
00564 *  EMPLOYER TYPE NOT SET IN CHARGE RECORDS FOR CWC ACCOUNTS.      CHGBD106
00565 *  THE FOLLOWING CODE CORRECTS THE EMPLOYER TYPE ON THE           CHGBD106
00566 *  INPUT RECORDS.                                                 CHGBD106
00567 ************************************************************      CHGBD106
00568      IF WRK-EMP-ACCT-CWC-88                                       CHGBD106
00569         IF NOT WRK-EMP-TYPE-CWC-88                                CHGBD106
00570            SET WRK-EMP-TYPE-CWC-88 TO TRUE                        CHGBD106
00571            MOVE WRK-EMP-TYPE TO CHARGE-EMPLOYER-TYPE.             CHGBD106
00572                                                                   CHGBD106
00573  P1200-EXIT.                                                      CHGBD106
00574      EXIT.                                                        CHGBD106
00575                                                                   CHGBD106
00576  P1300-EDIT-BYE-DATE.                                             CHGBD106
00577      MOVE CHARGE-BYE-DATE       TO CHARGE-BYE-DATE-6.             CHGBD106
00578      MOVE CHARGE-BYE-DATE-8     TO L001-FED-8-DATE-X.             CHGBD106
00579      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      CHGBD106
00580      IF L001-VALID-DATE                                           CHGBD106
00581         MOVE L001-FED-8-DATE-9  TO WRK-BYE                        CHGBD106
00582      ELSE                                                         CHGBD106
00583 **                                                                CHGBD106
00584 *       SET WRK-EDIT-ERROR-YES-88 TO TRUE                         CHGBD106
00585 **                                                                CHGBD106
00586         ADD +1                  TO WRK-BYE-ERR-CNT                CHGBD106
00587         MOVE MSG2-ID2           TO R907-MSG-ID                    CHGBD106
00588         MOVE CHARGE-EMPL-ACCT   TO R907-EMP-NO                    CHGBD106
00589         MOVE CHARGE-SSN         TO MSG2-SSN                       CHGBD106
00590         MOVE CHARGE-BYE-DATE    TO CHARGE-BYE-DATE-6              CHGBD106
00591         MOVE CHARGE-BYE-DATE-8  TO MSG2-BYE                       CHGBD106
00592         MOVE MSG2-LONG-TEXT     TO R907-MSG-TEXT                  CHGBD106
00593         PERFORM S946-R907-WRITE THRU S946-EXIT                    CHGBD106
00594         MOVE ZERO               TO WRK-BYE.                       CHGBD106
00595                                                                   CHGBD106
00596  P1300-EXIT.                                                      CHGBD106
00597      EXIT.                                                        CHGBD106
00598                                                                   CHGBD106
00599  P1400-EDIT-CHG-AMT.                                              CHGBD106
00600      IF CHARGE-CURR-AMT NOT NUMERIC                               CHGBD106
00601         SET WRK-EDIT-ERROR-YES-88 TO TRUE                         CHGBD106
00602         ADD +1 TO WRK-CHG-AMT-ERR-CNT                             CHGBD106
00603         MOVE MSG4-ID2         TO R907-MSG-ID                      CHGBD106
00604         MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO                      CHGBD106
00605         MOVE CHARGE-SSN       TO MSG4-SSN                         CHGBD106
00606         MOVE CHARGE-CURR-AMT  TO MSG4-CURR-AMT                    CHGBD106
00607         MOVE MSG4-LONG-TEXT   TO R907-MSG-TEXT                    CHGBD106
00608         PERFORM S946-R907-WRITE THRU S946-EXIT.                   CHGBD106
00609                                                                   CHGBD106
00610  P1400-EXIT.                                                      CHGBD106
00611      EXIT.                                                        CHGBD106
00612                                                                   CHGBD106
00613  P1500-EDIT-SUPP-CODE.                                            CHGBD106
00614        EVALUATE CHARGE-SUPP-CODE                                  CHGBD106
00615                                                                   CHGBD106
00616          WHEN SPACE                                               CHGBD106
00617            SET WRK-PROG-UI-88 TO TRUE                             CHGBD106
00618                                                                   CHGBD106
00619          WHEN 'T'                                                 CHGBD106
00620            SET WRK-PROG-TEUC-88 TO TRUE                           CHGBD106
00621                                                                   CHGBD106
00622          WHEN 'E'                                                 CHGBD106
00623            SET WRK-PROG-EB-88 TO TRUE                             CHGBD106
00624                                                                   CHGBD106
00625          WHEN 'A'                                                 CHGBD106
00626            SET WRK-PROG-TEUCA-88 TO TRUE                          CHGBD106
00627                                                                   CHGBD106
00628         WHEN OTHER                                                CHGBD106
00629           SET WRK-EDIT-ERROR-YES-88 TO TRUE                       CHGBD106
00630           ADD +1 TO WRK-SUPP-CD-ERR-CNT                           CHGBD106
00631           MOVE MSG5-ID2         TO R907-MSG-ID                    CHGBD106
00632           MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO                    CHGBD106
00633           MOVE CHARGE-SSN       TO MSG5-SSN                       CHGBD106
00634           MOVE CHARGE-SUPP-CODE TO MSG5-SUPP-CODE                 CHGBD106
00635           MOVE MSG5-LONG-TEXT   TO R907-MSG-TEXT                  CHGBD106
00636           PERFORM S946-R907-WRITE THRU S946-EXIT                  CHGBD106
00637       END-EVALUATE.                                               CHGBD106
00638                                                                   CHGBD106
00639  P1500-EXIT.                                                      CHGBD106
00640      EXIT.                                                        CHGBD106
00641                                                                   CHGBD106
00642  P1600-EDIT-EMP-NO.                                               CHGBD106
00643      IF CHARGE-EMPL-ACCT < +1                                     CHGBD106
00644         SET WRK-EDIT-ERROR-YES-88 TO TRUE                         CHGBD106
00645         ADD +1 TO WRK-EMP-NO-ERR-CNT                              CHGBD106
00646         MOVE MSG6-ID2         TO R907-MSG-ID                      CHGBD106
00647         MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO                      CHGBD106
00648         MOVE CHARGE-SSN       TO MSG6-SSN                         CHGBD106
00649         MOVE MSG6-LONG-TEXT   TO R907-MSG-TEXT                    CHGBD106
00650         PERFORM S946-R907-WRITE THRU S946-EXIT.                   CHGBD106
00651                                                                   CHGBD106
00652  P1600-EXIT.                                                      CHGBD106
00653      EXIT.                                                        CHGBD106
00654                                                                   CHGBD106
00655  P1700-EDIT-SSN.                                                  CHGBD106
00656      MOVE CHARGE-KEY          TO WRK-KEY-X.                       CHGBD106
00657      IF WRK-KEY-N NUMERIC                                         CHGBD106
00658         IF WRK-KEY-N > ZERO                                       CHGBD106
00659            NEXT SENTENCE                                          CHGBD106
00660         ELSE                                                      CHGBD106
00661            PERFORM P1710-SSN-ERROR  THRU P1710-EXIT               CHGBD106
00662      ELSE                                                         CHGBD106
00663         PERFORM P1710-SSN-ERROR  THRU P1710-EXIT.                 CHGBD106
00664                                                                   CHGBD106
00665  P1700-EXIT.                                                      CHGBD106
00666      EXIT.                                                        CHGBD106
00667                                                                   CHGBD106
00668  P1710-SSN-ERROR.                                                 CHGBD106
00669      SET WRK-EDIT-ERROR-YES-88 TO TRUE.                           CHGBD106
00670      ADD +1 TO WRK-SSN-ERR-CNT.                                   CHGBD106
00671      MOVE MSG7-ID2         TO R907-MSG-ID.                        CHGBD106
00672      MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO.                        CHGBD106
00673      MOVE CHARGE-SSN       TO MSG7-SSN.                           CHGBD106
00674      MOVE MSG7-LONG-TEXT   TO R907-MSG-TEXT.                      CHGBD106
00675      PERFORM S946-R907-WRITE THRU S946-EXIT.                      CHGBD106
00676                                                                   CHGBD106
00677  P1710-EXIT.                                                      CHGBD106
00678      EXIT.                                                        CHGBD106
00679                                                                   CHGBD106
00680  P2000-WRITE-SORT-REC.                                            CHGBD106
00681      MOVE LOW-VALUES            TO CHG1-SORT-KEY-AREA.            CHGBD106
00682      MOVE WRK-KEY-N             TO CHG1-SSN.                      CHGBD106
00683      MOVE CHARGE-EMPL-ACCT      TO CHG1-EMP-NO.                   CHGBD106
00684      MOVE WRK-BYE               TO CHG1-BYE.                      CHGBD106
00685                                                                   CHGBD106
00686      MOVE WRK-CHARGE-DATE       TO CHG1-CHARGE-DATE.              CHGBD106
00687      MOVE CHARGE-CODE           TO CHG1-CHARGE-CODE.              CHGBD106
00688      MOVE WRK-PROGRAM           TO CHG1-CHARGE-PROGRAM.           CHGBD106
00689      MOVE CHARGE-PAY-TYPE       TO CHG1-CHARGE-PAY-TYPE.          CHGBD106
00690      MOVE CHARGE-NAME           TO CHG1-CHARGE-NAME.              CHGBD106
00691      MOVE CHARGE-EMPLOYER-TYPE  TO CHG1-CHARGE-EMP-TYPE.          CHGBD106
00692                                                                   CHGBD106
00693      MOVE CHARGE-CURR-AMT       TO CHG1-CHARGE-CURR-AMT.          CHGBD106
00694      ADD  CHARGE-CURR-AMT       TO TOT-CHARGE-CURR-AMT.           CHGBD106
00695                                                                   CHGBD106
00696      WRITE SORT-CHG-REC.                                          CHGBD106
00697      ADD 1 TO WRK-SORT-CHG-WRITTEN.                               CHGBD106
00698                                                                   CHGBD106
00699 *&                                                                CHGBD106
00700      IF CHARGE-SSN = 410213505                                    CHGBD106
00701         MOVE CHG1-CHARGE-CURR-AMT TO AMT-DISP                     CHGBD106
00702         DISPLAY '* ' CHG1-EMP-NO                                  CHGBD106
00703                 '  ' AMT-DISP.                                    CHGBD106
00704  P2000-EXIT.                                                      CHGBD106
00705      EXIT.                                                        CHGBD106
00706                                                                   CHGBD106
00707  T0000-TERMINATE.                                                 CHGBD106
00708      CLOSE CHARGE-IN-FILE                                         CHGBD106
00709            BD100-CHG-FILE.                                        CHGBD106
00710                                                                   CHGBD106
00711      DISPLAY ' CHGBD106 CHARGE RECORDS READ :   '                 CHGBD106
00712         WRK-CHARGE-IN-READ.                                       CHGBD106
00713      DISPLAY '       CHARGE RECORDS WRITTEN:    '                 CHGBD106
00714         WRK-SORT-CHG-WRITTEN.                                     CHGBD106
00715      DISPLAY '       BYE DATE ERRORS ACCEPTED:  '                 CHGBD106
00716         WRK-BYE-ERR-CNT.                                          CHGBD106
00717      DISPLAY '       CHARGE DATE ERRORS:        '                 CHGBD106
00718         WRK-CHG-DT-ERR-CNT                                        CHGBD106
00719      DISPLAY '       EMPLOYER TYPE ERRORS:      '                 CHGBD106
00720         WRK-EMP-TYPE-ERR-CNT.                                     CHGBD106
00721      DISPLAY '       CHARGE AMOUNT ERRORS:      '                 CHGBD106
00722         WRK-CHG-AMT-ERR-CNT.                                      CHGBD106
00723      DISPLAY '       SUPP CODE ERRORS:          '                 CHGBD106
00724         WRK-SUPP-CD-ERR-CNT.                                      CHGBD106
00725      DISPLAY '          EMP NO ERRORS:          '                 CHGBD106
00726         WRK-EMP-NO-ERR-CNT.                                       CHGBD106
00727      DISPLAY '             SSN ERRORS:          '                 CHGBD106
00728         WRK-SSN-ERR-CNT.                                          CHGBD106
00729                                                                   CHGBD106
00730      DISPLAY '                                  '.                CHGBD106
00731      MOVE INV-EMP-NO-CURR-AMT TO DIS-INV-EMP-NO-CURR-AMT.         CHGBD106
00732      DISPLAY ' INVALID EMP-NO CHARGE-CURR AMTS: '                 CHGBD106
00733         DIS-INV-EMP-NO-CURR-AMT.                                  CHGBD106
00734                                                                   CHGBD106
00735      DISPLAY '                                  '.                CHGBD106
00736      MOVE TOT-CHARGE-CURR-AMT TO DIS-CHARGE-CURR-AMT.             CHGBD106
00737      DISPLAY '       TOTAL CHARGE CURRENT AMTS: '                 CHGBD106
00738         DIS-CHARGE-CURR-AMT.                                      CHGBD106
00739                                                                   CHGBD106
00740  T0000-EXIT.                                                      CHGBD106
00741      EXIT.                                                        CHGBD106
00742      EJECT                                                        CHGBD106
00743                                                                   CHGBD106
00744  S001-FROM-CAL-6.                                                 CHGBD106
00745      SET L001-FROM-CAL-6 TO TRUE.                                 CHGBD106
00746      GO TO S001-DATE.                                             CHGBD106
00747                                                                   CHGBD106
00748  S001-FROM-FED-8.                                                 CHGBD106
00749      SET L001-FROM-FED-8 TO TRUE.                                 CHGBD106
00750      GO TO S001-DATE.                                             CHGBD106
00751                                                                   CHGBD106
00752  S001-DATE.                                                       CHGBD106
00753      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBD106
00754  S001-EXIT. EXIT.                                                 CHGBD106
00755                                                                   CHGBD106
00756  S004-FROM-DATE.                                                  CHGBD106
00757      SET L004-FROM-DATE TO TRUE.                                  CHGBD106
00758      GO TO S004-YRQ.                                              CHGBD106
00759                                                                   CHGBD106
00760  S004-YRQ.                                                        CHGBD106
00761      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBD106
00762  S004-EXIT. EXIT.                                                 CHGBD106
00763                                                                   CHGBD106
00764 ** ADD ERROR MSG PROCESS PARA.                                    CHGBD106
00765  S946-R907-WRITE.                                                 CHGBD106
00766      CALL 'DTSBU946' USING R907-REC.                              CHGBD106
00767  S946-EXIT. EXIT.                                                 CHGBD106
00768                                                                   CHGBD106
00769  S999-ABEND.                                                      CHGBD106
00770      DISPLAY '****  CHGBD106 ABENDING '                           CHGBD106
00771         ABEND-MSG.                                                CHGBD106
00772      CALL ABEND-MOD USING ABEND-CODE.                             CHGBD106
00773                                                                   CHGBD106
00774  S999-EXIT.                                                       CHGBD106
00775      EXIT.                                                        CHGBD106
