00001  IDENTIFICATION DIVISION.                                         04/05/24
00002  PROGRAM-ID.             CHGBR110.                                CHGBR110
00003 *AUTHOR.                 TCL.                                        LV004
00004 *DATE-WRITTEN.           FEBRUARY 1999.                           CHGBR110
00005  DATE-COMPILED.                                                   CHGBR110
00006                                                                   CHGBR110
00007 *****                                                             CHGBR110
00008 *    CALLING SEQUENCE:  CHGBD300 CALLS                            CHGBR110
00009 *                       CHGBR110 READS CHGIM004 RECORDS           CHGBR110
00010 *                       CHGBR110 PRINTS SELF-INSURED REPORT       CHGBR110
00011 *                                AND BILLS                        CHGBR110
00012 *****                                                             CHGBR110
00013 *                                                                 CHGBR110
00014 *    FUNCTION:                                                    CHGBR110
00015 *                                                                 CHGBR110
00016 *      (1) FOR QUARTERLY RUN:                                     CHGBR110
00017 *          THIS MODULE WILL GENERATE A LETTER OF SELF-INSURED     CHGBR110
00018 *          BILL AND A QUARTERLY BENEFIT REPORT.                   CHGBR110
00019 *      (2) FOR SPECIAL RUN:                                       CHGBR110
00020 *          THIS MODULE WILL GENERATE A BENEFIT CHARGE REPORT ONLY CHGBR110
00021 *      (2) FOR ANNUAL RUN:                                        CHGBR110
00022 *          THIS MODULE WILL GENERATE NEITHER SELF-INSURED BILL OR CHGBR110
00023 *          BENEFIT CHARGE REPORT.                                 CHGBR110
00024 *                                                                 CHGBR110
00025 *    RECORDS READ:                                                CHGBR110
00026 *                                                                 CHGBR110
00027 *        NONE.                                                    CHGBR110
00028 *                                                                 CHGBR110
00029 *    INPUT:                                                       CHGBR110
00030 *                                                                 CHGBR110
00031 *         CHGIM004 RECORD PASSED FROM CHGBD300                    CHGBR110
00032 *                                                                 CHGBR110
00033 *    OUTPUT:                                                      CHGBR110
00034 *                                                                 CHGBR110
00035 *         RPC100R1 - SELF-INSURANCE LETTER                        CHGBR110
00036 *         RPC100R2 - SELF-INSURANCE BENEFIT CHARGE REPORT         CHGBR110
00037 *                                                                 CHGBR110
00038 *    RECORDS WRITTEN ON DISK:                                     CHGBR110
00039 *                                                                 CHGBR110
00040 *         NONE                                                    CHGBR110
00041 *                                                                 CHGBR110
00042 *    MODULES CALLED:                                              CHGBR110
00043 *                                                                 CHGBR110
00044 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     CHGBR110
00045 *        DTSBU071 NAME CONVERSION MODULE                          CHGBR110
00046 *                                                                 CHGBR110
00047 *****                                                             CHGBR110
00048                                                                   CHGBR110
00049 ******************************************************************CHGBR110
00050 * MODIFICATION HISTORY:                                          *CHGBR110
00051 *                                                                *CHGBR110
00052 * 02-08-2001 ADDED A HDR TO 'GRAND TOTALS' PAGE,  AND WILL NOW   *CHGBR110
00053 *            PRINT IT ONLY IF MORE THAN ONE EMPLOYER HAS BEEN    *CHGBR110
00054 *            REPORTED                                      - JHP *CHGBR110
00055 *                                                                *CHGBR110
00056 * 02-02-1999 MODIFIED FROM MT CHG100D                            *CHGBR110
00057 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBR110
00058 *                                                                *CHGBR110
00059 * 04-29-2004 MODIFIED TO HANDLE EMPLOYER CREDITS CORRECTLY.      *CHGBR110
00060 *            THE PROGRAM FINDS THE MQTR BALANCE DUE (WHICH HAS   *CHGBR110
00061 *            BEEN ADJUSTED FOR CREDITS DURING THE ACCOUNTING     *CHGBR110
00062 *            UPDATE), AND PRINTS THIS AMOUNT ON THE BILL RATHER  *CHGBR110
00063 *            THAN THE RAW TOTAL CHARGED. WHEN THE MQTR BALANCE   *CHGBR110
00064 *            IS LESS THAN THE TOTAL CHARGED, IT PRINTS A MESSAGE *CHGBR110
00065 *            ON THE BILL (BILL-LINE10) INDICATING THAT A CREDIT  *CHGBR110
00066 *            HAS BEEN APPLIED.                                   *CHGBR110
00067 *            REFERENCE DIR 105            AUTHOR OF CHANGE - GD  *CHGBR110
00068 *                                                                *CHGBR110
00069 * 01-11-2005 MODIFIED P2200 TO BYPASS PRINTING OF BILL IF AMOUNT *CHGBR110
00070 *            CHARGED FOR THE QUARTER IS NEGATIVE.                *CHGBR110
00071 *            REFERENCE: PROD PROBLEM      AUTHOR OF CHANGE - GD  *CHGBR110
00072 *                                                                *CHGBR110
00073 * 07-28-2008 REMOVED F ORLANDO NAME FROM REPORT            - ZL1 *CHGBR110
00074 *                                                                *CHGBR110
00075 * 04-03-2009 MODIFIED FOR NEW PROGRAM CODES                - GD  *CHGBR110
00076 *                                                                *CHGBR110
00077 * 05-04-2010 MODIFIED FOR NEW PROGRAM CODES                - ZL1 *CHGBR110
00078 *                                                                *CHGBR110
00079 * 01-06-2017 NEW REPORT LISTING EMPLOYERS RECEIVING BILL   - ZL1 *CHGBR110
00080 *                                                                *CHGBR110
00081 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR110
00082 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR110
00083 *            REFERENCE RFP #****          AUTHOR OF CHANGE - *** *CHGBR110
00084 ******************************************************************CHGBR110
00085                                                                   CHGBR110
00086  ENVIRONMENT DIVISION.                                            CHGBR110
00087  CONFIGURATION SECTION.                                           CHGBR110
00088  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               CHGBR110
00089                                                                   CHGBR110
00090  INPUT-OUTPUT SECTION.                                            CHGBR110
00091  FILE-CONTROL.                                                    CHGBR110
00092 ***                                             LETTERS (I)       CHGBR110
00093      SELECT SELF-INS-BILL ASSIGN TO RPC110R1.                     CHGBR110
00094 ***                                             BEN.CHG. RPT (O)  CHGBR110
00095      SELECT SELF-INS-RPT  ASSIGN TO RPC110R2.                     CHGBR110
00096 ***                                             BEN.CHG. RPT (O)  CHGBR110
00097      SELECT SELF-INS-DET  ASSIGN TO RPC110R3.                     CHGBR110
00098      EJECT                                                        CHGBR110
00099  DATA DIVISION.                                                   CHGBR110
00100                                                                   CHGBR110
00101  FILE SECTION.                                                    CHGBR110
00102  FD  SELF-INS-BILL                                                CHGBR110
00103      RECORDING MODE IS F                                          CHGBR110
00104      BLOCK CONTAINS 0 RECORDS                                     CHGBR110
00105      LABEL RECORDS ARE OMITTED.                                   CHGBR110
00106                                                                   CHGBR110
00107  01  SELF-BILL-REC                   PIC X(133).                  CHGBR110
00108                                                                   CHGBR110
00109  FD  SELF-INS-RPT                                                 CHGBR110
00110      RECORDING MODE IS F                                          CHGBR110
00111      RECORD CONTAINS 133 CHARACTERS                               CHGBR110
00112      BLOCK CONTAINS 0 RECORDS                                     CHGBR110
00113      LABEL RECORDS ARE OMITTED.                                   CHGBR110
00114                                                                   CHGBR110
00115  01  SELF-RPT-REC                    PIC X(133).                  CHGBR110
00116                                                                   CHGBR110
00117  FD  SELF-INS-DET                                                 CHGBR110
00118      RECORDING MODE IS F                                          CHGBR110
00119      RECORD CONTAINS 133 CHARACTERS                               CHGBR110
00120      BLOCK CONTAINS 0 RECORDS                                     CHGBR110
00121      LABEL RECORDS ARE OMITTED.                                   CHGBR110
00122                                                                   CHGBR110
00123  01  SELF-DET-REC                    PIC X(133).                  CHGBR110
00124                                                                   CHGBR110
00125  WORKING-STORAGE SECTION.                                         CHGBR110
001255 77  PAN-VALET PICTURE X(24) VALUE '004CHGBR110  04/05/24'.       CHGBR110
00126  77  PAN-VALET PICTURE X(24) VALUE '169CHGBR110  01/06/17'.       CHGBR110
00127  77  PAN-VALET PICTURE X(24) VALUE '004CHGBR110  01/06/17'.       CHGBR110
00128  77  PAN-VALET PICTURE X(24) VALUE '167CHGBR110  01/06/17'.       CHGBR110
00129  77  PAN-VALET PICTURE X(24) VALUE '002CHGBR110  01/06/17'.       CHGBR110
00130  77  PAN-VALET PICTURE X(24) VALUE '165CHGBR110  05/28/13'.       CHGBR110
00131  77  PAN-VALET PICTURE X(24) VALUE '002CHGBR110  05/28/13'.       CHGBR110
00132  77  PAN-VALET PICTURE X(24) VALUE '163CHGBR110  04/10/13'.       CHGBR110
00133  77  PAN-VALET PICTURE X(24) VALUE '009CHGBR110  04/10/13'.       CHGBR110
00134                                                                   CHGBR110
00135  01  WRK-AREA.                                                    CHGBR110
00136      05  WRK-ABEND-CODE              PIC S9(04)     COMP          CHGBR110
00137                                                     VALUE +110.   CHGBR110
00138      05  ABEND-MSG                   PIC  X(60) VALUE SPACE.      CHGBR110
00139                                                                   CHGBR110
00140      05  NEW-PAGE-SW                 PIC  X         VALUE 'N'.    CHGBR110
00141                                                                   CHGBR110
00142      05  WRK-REG-BENEFITS            PIC X(25)                    CHGBR110
00143                              VALUE ' REGULAR BENEFIT PAYMENT '.   CHGBR110
00144      05  WRK-EXT-BENEFITS            PIC X(25)                    CHGBR110
00145                              VALUE ' EXTENDED BENEFIT PAYMENT'.   CHGBR110
00146      05  WRK-TEUC-BENEFITS           PIC X(25)                    CHGBR110
00147                              VALUE ' TEUC BENEFIT PAYMENT    '.   CHGBR110
00148      05  WRK-TEUCA-BEN-PAYMENT       PIC  X(25)                   CHGBR110
00149                              VALUE ' TEUCA BENEFIT PAYMENT   '.   CHGBR110
00150      05  WRK-FAC-BEN-PAYMENT         PIC  X(25)                   CHGBR110
00151                              VALUE ' FED ADDL COMP PAYMENT   '.   CHGBR110
00152      05  WRK-ADJUSTMENTS             PIC X(25)                    CHGBR110
00153                              VALUE '        ADJUSTMENTS      '.   CHGBR110
00154      05  WRK-RPT-TYPE1               PIC X(26)                    CHGBR110
00155                              VALUE 'QUARTERLY  CHARGE  SUMMARY'.  CHGBR110
00156      05  WRK-RPT-TYPE2               PIC X(26)                    CHGBR110
00157                              VALUE ' BENEFIT  CHARGE  SPECIAL '.  CHGBR110
00158                                                                   CHGBR110
00159      05  WRK-LINE-CNT                PIC  S9(02) COMP-3 VALUE +0. CHGBR110
00160      05  WRK-PAGE-CNT                PIC  S9(05) COMP-3 VALUE +0. CHGBR110
00161      05  WRK-EMPLYR-CNT              PIC   9(07) COMP-3 VALUE  0. CHGBR110
00162                                                                   CHGBR110
00163      05  WRK-SSN                     PIC  9(09) VALUE 0.          CHGBR110
00164      05  FILLER REDEFINES WRK-SSN.                                CHGBR110
00165          10  WRK-SSN1                PIC  9(03).                  CHGBR110
00166          10  WRK-SSN2                PIC  9(02).                  CHGBR110
00167          10  WRK-SSN3                PIC  9(04).                  CHGBR110
00168                                                                   CHGBR110
00169      05  WRK-MAIL-DATE.                                           CHGBR110
00170          10  WRK-MAIL-YY             PIC  9(04).                  CHGBR110
00171          10  WRK-MAIL-MM             PIC  9(02).                  CHGBR110
00172          10  WRK-MAIL-DD             PIC  9(02).                  CHGBR110
00173                                                                   CHGBR110
00174      05  WRK-CURR-EMP                PIC S9(07)  COMP-3 VALUE +0. CHGBR110
00175                                                                   CHGBR110
00176      05  WRK-TOT-AMT                 PIC S9(09)V99  VALUE +0.     CHGBR110
00177      05  WRK-CURR-AMT                PIC S9(09)V99  VALUE +0.     CHGBR110
00178      05  WRK-EMP-TOT-CHG             PIC S9(09)V99  VALUE +0.     CHGBR110
00179      05  WRK-EMP-ACCT-CHG            PIC S9(09)V99  VALUE +0.     CHGBR110
00180      05  WRK-RPT-TOT-CHG             PIC S9(10)V99  VALUE +0.     CHGBR110
00181      05  WRK-RPT-ACCT-CHG            PIC S9(10)V99  VALUE +0.     CHGBR110
00182      05  WS-OVPY-RECOVER             PIC S9(09)V99  VALUE +0.     CHGBR110
00183      05  WRK-MQTR-BAL                PIC S9(11)V99  VALUE +0.     CHGBR110
00184                                                                   CHGBR110
00185      05  AMT-DISP1                   PIC $$,$$$,$$$,$$9.99-.      CHGBR110
00186      05  AMT-DISP2                   PIC $$,$$$,$$$,$$9.99-.      CHGBR110
00187                                                                   CHGBR110
00188  01  ADDRESSES.                                                   CHGBR110
00189      05  WS-ADDR-LINE                PIC X(40)  OCCURS 5          CHGBR110
00190                                        INDEXED BY ADDRX.          CHGBR110
00191                                                                   CHGBR110
00192  01  VSCA-LINE.                                                   CHGBR110
00193      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     CHGBR110
00194                                                                   CHGBR110
00195  01  XF-CA-CNTL-LINE.                                             CHGBR110
00196 *    05  XF-CA-FILLER        PIC X(01) VALUE SPACE.               CHGBR110
00197      05  X1-CA-DJDE          PIC X(12) VALUE '$X9700$DJDE '.      CHGBR110
00198      05  X1-CA-JDL           PIC X(09) VALUE 'JDL=XMOM,'.         CHGBR110
00199      05  X1-CA-JDE           PIC X(11) VALUE 'JDE=SWORKS,'.       CHGBR110
00200      05  X1-CA-LINE-END      PIC X(01) VALUE ';'.                 CHGBR110
00201                                                                   CHGBR110
00202  01  X1-CA-CNTL-LINE.                                             CHGBR110
00203 *    05  X1-CA-FILLER        PIC X(01) VALUE SPACE.               CHGBR110
00204      05  X1-CA-DJDE          PIC X(12) VALUE '$X9700$DJDE '.      CHGBR110
00205      05  X1-CA-FORMS         PIC X(13) VALUE 'FORMS=UC244A,'.     CHGBR110
00206      05  X1-CA-BFORM         PIC X(11) VALUE 'BFORM=NONE,'.       CHGBR110
00207      05  X1-CA-OTEXT         PIC X(37) VALUE                      CHGBR110
00208         'OTEXT=(''LOAD NO HOLE WHITE PARER''),;'.                 CHGBR110
00209                                                                   CHGBR110
00210  01  X2-CA-CNTL-LINE.                                             CHGBR110
00211 *    05  X2-CA-FILLER        PIC X(01) VALUE SPACE.               CHGBR110
00212      05  X2-CA-DJDE          PIC X(12) VALUE '$X9700$DJDE '.      CHGBR110
00213      05  X2-CA-DUPLEX        PIC X(10) VALUE 'DUPLEX=NO,'.        CHGBR110
00214      05  X2-CA-FORMAT        PIC X(12) VALUE 'FORMAT=FMT7,'.      CHGBR110
00215      05  X2-CA-FONTS         PIC X(13) VALUE 'FONTS=UN210E,'.     CHGBR110
00216      05  X2-CA-LINE-END      PIC X(01) VALUE ';'.                 CHGBR110
00217                                                                   CHGBR110
00218  01  X3-CA-CNTL-LINE.                                             CHGBR110
00219 *    05  X3-CA-FILLER        PIC X(01) VALUE SPACE.               CHGBR110
00220      05  X3-CA-DJDE          PIC X(12) VALUE '$X9700$DJDE '.      CHGBR110
00221      05  X3-CA-DATA          PIC X(13) VALUE 'DATA=(0,131),'.     CHGBR110
00222      05  X3-CA-ASSIGN        PIC X(13) VALUE 'ASSIGN=(1,1),'.     CHGBR110
00223      05  X3-CA-BEGIN         PIC X(18) VALUE 'BEGIN=(1.00,0.50),'.CHGBR110
00224      05  X3-CA-TOF           PIC X(07) VALUE 'TOF=05,'.           CHGBR110
00225      05  X3-CA-BOF           PIC X(07) VALUE 'TOF=62,'.           CHGBR110
00226      05  X3-CA-LINE-END      PIC X(04) VALUE 'END;'.              CHGBR110
00227                                                                   CHGBR110
00228  01  BILL-LINE1.                                                  CHGBR110
00229      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00230      05  FILLER              PIC X(29) VALUE SPACES.              CHGBR110
00231      05  FILLER              PIC X(58) VALUE SPACES.              CHGBR110
00232      05  BILL-END-OF-QTR     PIC X(10) VALUE SPACE.               CHGBR110
00233                                                                   CHGBR110
00234  01  BILL-LINE2.                                                  CHGBR110
00235      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00236      05  FILLER              PIC X(22) VALUE SPACES.              CHGBR110
00237      05  BILL-EMP-NO-1       PIC 999B999.                         CHGBR110
00238      05  FILLER              PIC X(58) VALUE SPACES.              CHGBR110
00239      05  BILL-MAILED-DATE    PIC X(10) VALUE SPACE.               CHGBR110
00240                                                                   CHGBR110
00241  01  BILL-LINE3.                                                  CHGBR110
00242      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00243      05  BILL-ADDR-LINE1     PIC X(40) VALUE SPACES.              CHGBR110
00244                                                                   CHGBR110
00245  01  BILL-LINE4.                                                  CHGBR110
00246      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00247      05  BILL-ADDR-LINE2     PIC X(40) VALUE SPACES.              CHGBR110
00248                                                                   CHGBR110
00249  01  BILL-LINE5.                                                  CHGBR110
00250      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00251      05  BILL-ADDR-LINE3     PIC X(40) VALUE SPACES.              CHGBR110
00252                                                                   CHGBR110
00253  01  BILL-LINE6.                                                  CHGBR110
00254      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00255      05  BILL-ADDR-LINE4     PIC X(40) VALUE SPACES.              CHGBR110
00256                                                                   CHGBR110
00257  01  BILL-LINE7.                                                  CHGBR110
00258      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00259      05  BILL-ADDR-LINE5     PIC X(40) VALUE SPACES.              CHGBR110
00260                                                                   CHGBR110
00261  01  BILL-LINE8.                                                  CHGBR110
00262      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00263      05  FILLER              PIC X(30) VALUE SPACES.              CHGBR110
00264      05  BILL-TOTAL-DUE      PIC $$,$$$,$$$,$$9.99-.              CHGBR110
00265                                                                   CHGBR110
00266  01  BILL-LINE9.                                                  CHGBR110
00267      05  FILLER              PIC X(01) VALUE SPACES.              CHGBR110
00268      05  FILLER              PIC X(03) VALUE SPACES.              CHGBR110
00269      05  BILL-NAME-CHK       PIC X(04) VALUE SPACE.               CHGBR110
00270      05  FILLER              PIC X(06) VALUE SPACES.              CHGBR110
00271      05  BILL-EMP-NO-2       PIC 999B999.                         CHGBR110
00272      05  FILLER              PIC X(32) VALUE SPACES.              CHGBR110
00273      05  BILL-YRQ            PIC X(06) VALUE SPACE.               CHGBR110
00274                                                                   CHGBR110
00275  01  BILL-LINE10.                                                 CHGBR110
00276      05  FILLER              PIC X(15) VALUE SPACES.              CHGBR110
00277      05  FILLER              PIC X(50) VALUE                      CHGBR110
00278          'YOUR CREDIT HAS BEEN APPLIED TO THE BALANCE DUE'.       CHGBR110
00279                                                                   CHGBR110
00280      EJECT                                                        CHGBR110
00281  01  CHG-DETAIL-HEADER-AREA.                                      CHGBR110
00282      05  CHG-DETAIL-HDR1.                                         CHGBR110
00283          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00284          10 FILLER                   PIC X(08)                    CHGBR110
00285             VALUE 'CHGBR110'.                                     CHGBR110
00286          10 FILLER                   PIC X(47)  VALUE SPACES.     CHGBR110
00287          10 FILLER                   PIC X(20)                    CHGBR110
00288             VALUE 'DISTRICT OF COLUMBIA'.                         CHGBR110
00289          10 FILLER                   PIC X(43)  VALUE SPACES.     CHGBR110
00290          10 FILLER                   PIC X(09)                    CHGBR110
00291             VALUE 'PAGE NO.:'.                                    CHGBR110
00292          10 CHG-DTL-PAGE-NO          PIC ZZZ99.                   CHGBR110
00293                                                                   CHGBR110
00294      05  CHG-EETAIL-HDR1.                                         CHGBR110
00295          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00296          10 FILLER                   PIC X(08)                    CHGBR110
00297             VALUE 'CHGBR110'.                                     CHGBR110
00298          10 FILLER                   PIC X(04)  VALUE SPACES.     CHGBR110
00299          10 FILLER                   PIC X(20)                    CHGBR110
00300             VALUE 'DISTRICT OF COLUMBIA'.                         CHGBR110
00301          10 FILLER                   PIC X(53)  VALUE SPACES.     CHGBR110
00302      05  CHG-EETAIL-HDR2.                                         CHGBR110
00303          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00304          10 FILLER                   PIC X(09) VALUE SPACES.      CHGBR110
00305          10 E2-RPT-TYPE              PIC X(26)                    CHGBR110
00306             VALUE 'SI QUARTLY CHARGE  SUMMARY'.                   CHGBR110
00307          10 FILLER                   PIC X(49)  VALUE SPACES.     CHGBR110
00308                                                                   CHGBR110
00309      05  CHG-DETAIL-HDR2.                                         CHGBR110
00310          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00311          10 FILLER                   PIC X(10)                    CHGBR110
00312             VALUE '          '.                                   CHGBR110
00313          10 FILLER                   PIC X(42)  VALUE SPACES.     CHGBR110
00314          10 H2-RPT-TYPE              PIC X(26)  VALUE SPACES.     CHGBR110
00315 *           VALUE 'QUARTERLY  CHARGE  SUMMARY'.                   CHGBR110
00316          10 FILLER                   PIC X(49)  VALUE SPACES.     CHGBR110
00317          10 FILLER                   PIC X(02)  VALUE 'TT'.       CHGBR110
00318          10 CHG-DTL-EMP-TYPE         PIC 9(02) VALUE 0.           CHGBR110
00319                                                                   CHGBR110
00320      05  CHG-DETAIL-HDR3.                                         CHGBR110
00321          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00322          10 FILLER                   PIC X(08)                    CHGBR110
00323             VALUE 'ROOM 425'.                                     CHGBR110
00324          10 FILLER                   PIC X(37)  VALUE SPACES.     CHGBR110
00325          10 FILLER                   PIC X(39)                    CHGBR110
00326             VALUE 'DEPARTMENT   OF   EMPLOYMENT   SERVICES'.      CHGBR110
00327                                                                   CHGBR110
00328      05  CHG-DETAIL-HDR4.                                         CHGBR110
00329          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00330          10 FILLER                   PIC X(49)  VALUE SPACES.     CHGBR110
00331          10 FILLER                   PIC X(24)                    CHGBR110
00332             VALUE 'EMPLOYER ACCOUNT NUMBER '.                     CHGBR110
00333          10 CHG-DTL-EMP-NO           PIC 9(06) VALUE 0.           CHGBR110
00334                                                                   CHGBR110
00335      05  CHG-DETAIL-HDR5.                                         CHGBR110
00336          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00337          10 FILLER                   PIC X(39)  VALUE SPACES.     CHGBR110
00338          10 FILLER                   PIC X(28)                    CHGBR110
00339             VALUE 'REPORT INCLUDES PERIOD FROM '.                 CHGBR110
00340          10 CHG-DTL-START-DT         PIC X(10) VALUE SPACE.       CHGBR110
00341          10 FILLER                   PIC X(04)  VALUE ' TO '.     CHGBR110
00342          10 CHG-DTL-END-DT           PIC X(10) VALUE SPACE.       CHGBR110
00343                                                                   CHGBR110
00344      05  CHG-DETAIL-HDR6.                                         CHGBR110
00345          10 FILLER                   PIC X VALUE SPACE.           CHGBR110
00346          10 FILLER                   PIC X(05)  VALUE SPACES.     CHGBR110
00347          10 FILLER                   PIC X(03)  VALUE 'SSN'.      CHGBR110
00348          10 FILLER                   PIC X(09)  VALUE SPACES.     CHGBR110
00349          10 FILLER                   PIC X(03)  VALUE 'BYE'.      CHGBR110
00350          10 FILLER                   PIC X(09)  VALUE SPACES.     CHGBR110
00351          10 FILLER                   PIC X(18)                    CHGBR110
00352             VALUE 'NAME  OF  CLAIMANT'.                           CHGBR110
00353          10 FILLER      PIC X(19)  VALUE SPACES.                  CHGBR110
00354          10 FILLER      PIC X(14)  VALUE 'TOTAL BENEFITS'.        CHGBR110
00355          10 FILLER      PIC X(07)  VALUE SPACES.                  CHGBR110
00356          10 FILLER      PIC X(15)  VALUE 'ACCOUNT CHARGES'.       CHGBR110
00357          10 FILLER      PIC X(08)  VALUE SPACES.                  CHGBR110
00358          10 FILLER      PIC X(11)  VALUE 'SOURCE TYPE'.           CHGBR110
00359                                                                   CHGBR110
00360  01  CHG-DETAIL-LINE.                                             CHGBR110
00361      05 FILLER                 PIC X(04)  VALUE SPACES.           CHGBR110
00362      05 CHG-DTL-SSN1           PIC X(03) VALUE SPACE.             CHGBR110
00363      05 FILLER                 PIC X(01)  VALUE '-'.              CHGBR110
00364      05 CHG-DTL-SSN2           PIC X(02) VALUE SPACE.             CHGBR110
00365      05 FILLER                 PIC X(01)  VALUE '-'.              CHGBR110
00366      05 CHG-DTL-SSN3           PIC X(04) VALUE SPACE.             CHGBR110
00367      05 FILLER                 PIC X(02)  VALUE SPACES.           CHGBR110
00368      05 CHG-DTL-BYE            PIC X(10) VALUE SPACE.             CHGBR110
00369      05 FILLER                 PIC X(03)  VALUE SPACES.           CHGBR110
00370      05 CHG-DTL-NAME           PIC X(32) VALUE SPACE.             CHGBR110
00371      05 FILLER                 PIC X(02)  VALUE SPACES.           CHGBR110
00372      05 CHG-DTL-TOT-AMT        PIC $$,$$$,$$$,$$9.99-.            CHGBR110
00373      05 FILLER                 PIC X(04)  VALUE SPACES.           CHGBR110
00374      05 CHG-DTL-CURR-AMT       PIC $$,$$$,$$$,$$9.99-.            CHGBR110
00375      05 FILLER                 PIC X(03)  VALUE SPACES.           CHGBR110
00376      05 CHG-DTL-SOURCE         PIC X(25) VALUE SPACE.             CHGBR110
00377                                                                   CHGBR110
00378  01  CHG-DETAIL-EMP-FOOTER-AREA.                                  CHGBR110
00379      05  CHG-DETAIL-EMP-FOOTER1.                                  CHGBR110
00380          10 FILLER                       PIC X(34)  VALUE SPACES. CHGBR110
00381          10 FILLER                       PIC X(20)                CHGBR110
00382             VALUE 'GRAND TOTAL CHARGED:'.                         CHGBR110
00383          10 FILLER                       PIC X(10)  VALUE SPACES. CHGBR110
00384          10 CHG-DTL-EMP-TOT-CHG          PIC $$,$$$,$$$,$$9.99-.  CHGBR110
00385          10 FILLER                       PIC X(25)  VALUE SPACES. CHGBR110
00386          10 FILLER                       PIC X(25)                CHGBR110
00387             VALUE '      ************       '.                    CHGBR110
00388                                                                   CHGBR110
00389      05  CHG-DETAIL-EMP-FOOTER2.                                  CHGBR110
00390          10 FILLER                       PIC X(41)  VALUE SPACES. CHGBR110
00391          10 FILLER                       PIC X(28)                CHGBR110
00392             VALUE 'GRAND TOTAL ACCOUNT CHARGED:'.                 CHGBR110
00393          10 FILLER                       PIC X(17)  VALUE SPACES. CHGBR110
00394          10 CHG-DTL-EMP-ACCT-CHG         PIC $$,$$$,$$$,$$9.99-.  CHGBR110
00395          10 FILLER                       PIC X(03)  VALUE SPACES. CHGBR110
00396          10 FILLER                       PIC X(25)                CHGBR110
00397             VALUE '      ************       '.                    CHGBR110
00398                                                                   CHGBR110
00399  01  CHG-DETAIL-RPT-FOOTER-AREA.                                  CHGBR110
00400      05  CHG-DETAIL-RPT-FOOTER1.                                  CHGBR110
00401          10 FILLER                       PIC X(65)  VALUE SPACES. CHGBR110
00402          10 FILLER                       PIC X(41)                CHGBR110
00403             VALUE '-----------------------------------------'.    CHGBR110
00404                                                                   CHGBR110
00405      05  CHG-DETAIL-RPT-FOOTER2.                                  CHGBR110
00406          10 FILLER                       PIC X(15)  VALUE SPACES. CHGBR110
00407          10 FILLER                       PIC X(37)                CHGBR110
00408             VALUE 'TOTAL AMOUNT CHARGED FOR THE PERIOD: '.        CHGBR110
00409          10 FILLER                       PIC X(12)  VALUE SPACES. CHGBR110
00410          10 CHG-DTL-RPT-TOT-CHG          PIC $$,$$$,$$$,$$9.99-.  CHGBR110
00411          10 FILLER                       PIC X(04)  VALUE SPACES. CHGBR110
00412          10 CHG-DTL-RPT-ACCT-CHG         PIC $$,$$$,$$$,$$9.99-.  CHGBR110
00413          10 FILLER                       PIC X(03)  VALUE SPACES. CHGBR110
00414          10 FILLER                       PIC X(25)                CHGBR110
00415             VALUE '      ************       '.                    CHGBR110
00416      EJECT                                                        CHGBR110
00417  01  CHG-DETAIL-REC.                                              CHGBR110
00418          10  FILLER              PIC X(01) VALUE SPACES.          CHGBR110
00419          10  FILLER              PIC X(03)  VALUE SPACES.         CHGBR110
00420          10  DET-EMP-NO-1        PIC 999999.                      CHGBR110
00421          10  FILLER              PIC X(03) VALUE SPACES.          CHGBR110
00422          10  DET-NAME-CHK        PIC X(15) VALUE SPACE.           CHGBR110
00423          10  FILLER              PIC X(03) VALUE SPACES.          CHGBR110
00424          10  DET-YRQ             PIC X(06) VALUE SPACE.           CHGBR110
00425          10  FILLER              PIC X(03) VALUE SPACES.          CHGBR110
00426          10  DET-TOTAL-DUE      PIC $$,$$$,$$$,$$9.99-.           CHGBR110
00427          10  FILLER              PIC X(72) VALUE SPACES.          CHGBR110
00428                                                                   CHGBR110
00429  01  L001-LINK-AREA.                                              CHGBR110
00430  ++INCLUDE DTSIL001                                               CHGBR110
00431      EJECT                                                        CHGBR110
00432  01  L003-LINK-AREA.                                              CHGBR110
00433  ++INCLUDE DTSIL003                                               CHGBR110
00434      EJECT                                                        CHGBR110
00435  01  L004-LINK-AREA.                                              CHGBR110
00436  ++INCLUDE DTSIL004                                               CHGBR110
00437      EJECT                                                        CHGBR110
00438  01  L005-LINK-AREA.                                              CHGBR110
00439  ++INCLUDE DTSIL005                                               CHGBR110
00440      EJECT                                                        CHGBR110
00441  01  L910-LINK-AREA.                                              CHGBR110
00442  ++INCLUDE DTSIL910                                               CHGBR110
00443                                                                   CHGBR110
00444  01  MSKL-REC.                                                    CHGBR110
00445  ++INCLUDE DTSIMSKL                                               CHGBR110
00446                                                                   CHGBR110
00447  01  MQTR-REC.                                                    CHGBR110
00448  ++INCLUDE DTSIMQTR                                               CHGBR110
00449                                                                   CHGBR110
00450  LINKAGE SECTION.                                                 CHGBR110
00451  01  CHG-LINK-REC.                                                CHGBR110
00452  ++INCLUDE CHGIL001                                               CHGBR110
00453      EJECT                                                        CHGBR110
00454  01  BD210-CHG-REC.                                               CHGBR110
00455  ++INCLUDE CHGIM004                                               CHGBR110
00456      EJECT                                                        CHGBR110
00457  PROCEDURE DIVISION USING CHG-LINK-REC                            CHGBR110
00458                           BD210-CHG-REC.                          CHGBR110
00459                                                                   CHGBR110
00460  CHGBR110-MAIN.                                                   CHGBR110
00461      IF CHG-LINK1-CMD-INIT-88                                     CHGBR110
00462         PERFORM I0000-INITIATE         THRU I0000-EXIT            CHGBR110
00463      ELSE                                                         CHGBR110
00464         IF CHG-LINK1-CMD-PROCESS-88                               CHGBR110
00465            PERFORM P0000-PROCESS       THRU P0000-EXIT            CHGBR110
00466         ELSE                                                      CHGBR110
00467            IF CHG-LINK1-CMD-CLOSE-88                              CHGBR110
00468              PERFORM T0000-TERMINATE   THRU T0000-EXIT            CHGBR110
00469            ELSE                                                   CHGBR110
00470               MOVE 'INVALID CHG-LINK1-COMMAND VALUE'              CHGBR110
00471                                        TO ABEND-MSG               CHGBR110
00472               PERFORM S999-ABEND      THRU S999-EXIT              CHGBR110
00473            END-IF                                                 CHGBR110
00474         END-IF                                                    CHGBR110
00475      END-IF.                                                      CHGBR110
00476                                                                   CHGBR110
00477      GOBACK.                                                      CHGBR110
00478      EJECT                                                        CHGBR110
00479  I0000-INITIATE.                                                  CHGBR110
00480 *&                                                                CHGBR110
00481 *    DISPLAY 'BR110 INIT - STEP = ' CHG-LINK1-SELF-INS-STEP.      CHGBR110
00482 *&                                                                CHGBR110
00483      MOVE ZERO TO                                                 CHGBR110
00484                                                                   CHGBR110
00485                   WRK-PAGE-CNT                                    CHGBR110
00486                   WRK-EMP-TOT-CHG                                 CHGBR110
00487                   WRK-EMP-ACCT-CHG                                CHGBR110
00488                   WRK-RPT-TOT-CHG                                 CHGBR110
00489                   WRK-RPT-ACCT-CHG.                               CHGBR110
00490                                                                   CHGBR110
00491      IF CHG-LINK1-RUN-TYPE-SPC-88                                 CHGBR110
00492      OR CHG-LINK1-RUN-TYPE-RPTS-88                                CHGBR110
00493      OR CHG-LINK1-RUN-TYPE-AGTS-88                                CHGBR110
00494         MOVE WRK-RPT-TYPE2 TO H2-RPT-TYPE                         CHGBR110
00495      ELSE MOVE WRK-RPT-TYPE1 TO H2-RPT-TYPE                       CHGBR110
00496      END-IF.                                                      CHGBR110
00497                                                                   CHGBR110
00498      MOVE CHG-LINK1-PERIOD-BEGIN TO L001-FED-8-DATE-9.            CHGBR110
00499      SET L001-FROM-FED-8 TO TRUE.                                 CHGBR110
00500      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBR110
00501      MOVE L001-SLASH-8-DATE TO CHG-DTL-START-DT.                  CHGBR110
00502                                                                   CHGBR110
00503      MOVE CHG-LINK1-PERIOD-END TO L001-FED-8-DATE-9.              CHGBR110
00504      SET L001-FROM-FED-8 TO TRUE.                                 CHGBR110
00505      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBR110
00506      MOVE L001-SLASH-8-DATE TO CHG-DTL-END-DT                     CHGBR110
00507                                BILL-END-OF-QTR.                   CHGBR110
00508                                                                   CHGBR110
00509      MOVE CHG-LINK1-PERIOD-END TO L004-DATE.                      CHGBR110
00510      SET L004-FROM-DATE TO TRUE.                                  CHGBR110
00511      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBR110
00512      MOVE L004-SLASH-5-QTR TO BILL-YRQ DET-YRQ.                   CHGBR110
00513                                                                   CHGBR110
00514      SET L005-FROM-SYS TO TRUE.                                   CHGBR110
00515      CALL 'DTSBU005' USING L005-LINK-AREA.                        CHGBR110
00516                                                                   CHGBR110
00517      MOVE L005-DATE-8-YR    TO WRK-MAIL-YY.                       CHGBR110
00518      MOVE L005-DATE-8-MO    TO WRK-MAIL-MM.                       CHGBR110
00519      MOVE L005-DATE-8-DA    TO WRK-MAIL-DD.                       CHGBR110
00520                                                                   CHGBR110
00521      MOVE WRK-MAIL-DATE          TO L001-FED-8-DATE-9             CHGBR110
00522                                                                   CHGBR110
00523      SET L001-FROM-FED-8 TO TRUE.                                 CHGBR110
00524      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBR110
00525                                                                   CHGBR110
00526      ADD +4  TO L001-JUL-ABS-DAY                                  CHGBR110
00527                                                                   CHGBR110
00528      SET L001-FROM-ABS-DAY TO TRUE.                               CHGBR110
00529      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBR110
00530                                                                   CHGBR110
00531      IF L001-VALID-DATE                                           CHGBR110
00532         MOVE L001-FED-8-DATE-9        TO L003-DATE                CHGBR110
00533         SET L003-AGENCY-DAY TO TRUE                               CHGBR110
00534         CALL 'DTSBU003' USING L003-LINK-AREA                      CHGBR110
00535         PERFORM P2110-DATE-LOOP       THRU P2110-EXIT             CHGBR110
00536                 UNTIL L003-IS-WORK-DAY                            CHGBR110
00537            MOVE L001-SLASH-8-DATE        TO BILL-MAILED-DATE.     CHGBR110
00538                                                                   CHGBR110
00539      IF CHG-LINK1-SELF-INS-STEP2-88                               CHGBR110
00540         PERFORM S910-OPEN-READ THRU S910-EXIT                     CHGBR110
00541      END-IF.                                                      CHGBR110
00542                                                                   CHGBR110
00543      OPEN OUTPUT SELF-INS-RPT.                                    CHGBR110
00544      OPEN OUTPUT SELF-INS-DET.                                    CHGBR110
00545       WRITE SELF-DET-REC    FROM CHG-EETAIL-HDR1 AFTER            CHGBR110
00546             ADVANCING TOP-OF-PAGE.                                CHGBR110
00547       WRITE SELF-DET-REC    FROM CHG-EETAIL-HDR2 AFTER 1.         CHGBR110
00548                                                                   CHGBR110
00549      IF CHG-LINK1-RUN-TYPE-SPC-88                                 CHGBR110
00550      OR CHG-LINK1-RUN-TYPE-RPTS-88                                CHGBR110
00551      OR CHG-LINK1-RUN-TYPE-AGTS-88                                CHGBR110
00552         NEXT SENTENCE                                             CHGBR110
00553      ELSE                                                         CHGBR110
00554         OPEN OUTPUT SELF-INS-BILL                                 CHGBR110
00555         WRITE SELF-BILL-REC FROM XF-CA-CNTL-LINE                  CHGBR110
00556             AFTER ADVANCING TOP-OF-PAGE                           CHGBR110
00557         WRITE SELF-BILL-REC FROM X1-CA-CNTL-LINE                  CHGBR110
00558         WRITE SELF-BILL-REC FROM X2-CA-CNTL-LINE                  CHGBR110
00559         WRITE SELF-BILL-REC FROM X3-CA-CNTL-LINE                  CHGBR110
00560      END-IF.                                                      CHGBR110
00561                                                                   CHGBR110
00562  I0000-EXIT.                                                      CHGBR110
00563      EXIT.                                                        CHGBR110
00564      EJECT                                                        CHGBR110
00565  P2110-DATE-LOOP.                                                 CHGBR110
00566      MOVE L001-FED-8-DATE-9 TO L003-DATE.                         CHGBR110
00567                                                                   CHGBR110
00568      SET L003-AGENCY-DAY TO TRUE                                  CHGBR110
00569      CALL 'DTSBU003' USING L003-LINK-AREA                         CHGBR110
00570      IF L003-IS-WORK-DAY                                          CHGBR110
00571         GO TO P2110-EXIT.                                         CHGBR110
00572                                                                   CHGBR110
00573      ADD  +1  TO L001-JUL-ABS-DAY.                                CHGBR110
00574      SET L001-FROM-ABS-DAY TO TRUE.                               CHGBR110
00575      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBR110
00576                                                                   CHGBR110
00577  P2110-EXIT.                                                      CHGBR110
00578      EXIT.                                                        CHGBR110
00579  P0000-PROCESS.                                                   CHGBR110
00580      IF CHG4-EMP-NO = 318633 AND CHG4-SSN = 171629741 OR             CL**2
00581         CHG4-SSN = 239632420 OR                                      CL**2
00582         CHG4-SSN = 577197421                                         CL**2
00583         DISPLAY ' FAKE SSN ' CHG4-SSN                                CL**2
00584      GO TO P0000-EXIT.                                               CL**2
00585      IF CHG4-EMP-NO  NOT = WRK-CURR-EMP                              CL**2
00586         IF WRK-CURR-EMP = ZERO                                    CHGBR110
00587 ***                                                    1ST TIME   CHGBR110
00588            MOVE CHG4-EMP-NO             TO WRK-CURR-EMP           CHGBR110
00589                                            CHG-DTL-EMP-NO         CHGBR110
00590            MOVE CHG4-EMP-TYPE           TO CHG-DTL-EMP-TYPE       CHGBR110
00591            ADD     1                    TO WRK-EMPLYR-CNT         CHGBR110
00592            PERFORM P1000-PRINT-HEADER   THRU P1000-EXIT           CHGBR110
00593            PERFORM P4000-INIT-BILL      THRU P4000-EXIT           CHGBR110
00594         ELSE                                                      CHGBR110
00595 ***                                                    NEW ONE    CHGBR110
00596            PERFORM P2000-EMP-COMPLETE   THRU P2000-EXIT           CHGBR110
00597            MOVE CHG4-EMP-NO             TO WRK-CURR-EMP           CHGBR110
00598                                            CHG-DTL-EMP-NO         CHGBR110
00599            MOVE CHG4-EMP-TYPE           TO CHG-DTL-EMP-TYPE       CHGBR110
00600            ADD     1                    TO WRK-EMPLYR-CNT         CHGBR110
00601            PERFORM P1000-PRINT-HEADER   THRU P1000-EXIT           CHGBR110
00602            PERFORM P4000-INIT-BILL      THRU P4000-EXIT           CHGBR110
00603         END-IF                                                    CHGBR110
00604      ELSE                                                         CHGBR110
00605 ***                                                   SAME ONE    CHGBR110
00606         IF WRK-LINE-CNT > +54                                     CHGBR110
00607            PERFORM P1000-PRINT-HEADER   THRU P1000-EXIT           CHGBR110
00608         END-IF                                                    CHGBR110
00609      END-IF.                                                      CHGBR110
00610                                                                   CHGBR110
00611      PERFORM P3000-BUILD-CHG-DETAIL     THRU P3000-EXIT.          CHGBR110
00612                                                                   CHGBR110
00613 *&   IF CHG4-OP-RECOVER-AMT > +0                                  CHGBR110
00614 *&       MOVE SPACES                      TO EI-SPACES            CHGBR110
00615 *&       MOVE CHG4-OP-RECOVER-AMT         TO EI-CURR-AMT          CHGBR110
00616 *&       MOVE '   OVERPAYMENTS COLLECTED' TO EI-BENNIE            CHGBR110
00617 *&       PERFORM P2000-WRITE-RPT                                  CHGBR110
00618 *&          THRU P2000-EXIT.                                      CHGBR110
00619                                                                   CHGBR110
00620  P0000-EXIT.                                                      CHGBR110
00621      EXIT.                                                        CHGBR110
00622      EJECT                                                        CHGBR110
00623  P1000-PRINT-HEADER.                                              CHGBR110
00624      ADD +1               TO WRK-PAGE-CNT.                        CHGBR110
00625      MOVE WRK-PAGE-CNT    TO CHG-DTL-PAGE-NO.                     CHGBR110
00626                                                                   CHGBR110
00627      WRITE SELF-RPT-REC   FROM CHG-DETAIL-HDR1                    CHGBR110
00628                                AFTER ADVANCING TOP-OF-PAGE.       CHGBR110
00629      WRITE SELF-RPT-REC   FROM CHG-DETAIL-HDR2                    CHGBR110
00630                                AFTER ADVANCING 1 LINE.            CHGBR110
00631      WRITE SELF-RPT-REC   FROM CHG-DETAIL-HDR3                    CHGBR110
00632                                AFTER ADVANCING 1 LINE.            CHGBR110
00633      WRITE SELF-RPT-REC   FROM CHG-DETAIL-HDR4                    CHGBR110
00634                                AFTER ADVANCING 2 LINES.           CHGBR110
00635      WRITE SELF-RPT-REC   FROM CHG-DETAIL-HDR5                    CHGBR110
00636                                AFTER ADVANCING 2 LINES.           CHGBR110
00637      WRITE SELF-RPT-REC   FROM CHG-DETAIL-HDR6                    CHGBR110
00638                                AFTER ADVANCING 2 LINES.           CHGBR110
00639      MOVE     SPACE       TO SELF-RPT-REC.                        CHGBR110
00640      WRITE SELF-RPT-REC        AFTER ADVANCING 1 LINES.           CHGBR110
00641                                                                   CHGBR110
00642      MOVE +10              TO WRK-LINE-CNT.                       CHGBR110
00643  P1000-EXIT.                                                      CHGBR110
00644      EXIT.                                                        CHGBR110
00645                                                                   CHGBR110
00646  P2000-EMP-COMPLETE.                                              CHGBR110
00647      PERFORM P2100-CHG-DTL-FOOTER THRU P2100-EXIT.                CHGBR110
00648      PERFORM P2200-GENERATE-BILL  THRU P2200-EXIT.                CHGBR110
00649                                                                   CHGBR110
00650      MOVE ZERO              TO WRK-EMP-TOT-CHG                    CHGBR110
00651                                WRK-EMP-ACCT-CHG.                  CHGBR110
00652                                                                   CHGBR110
00653  P2000-EXIT.                                                      CHGBR110
00654      EXIT.                                                        CHGBR110
00655                                                                   CHGBR110
00656  P2100-CHG-DTL-FOOTER.                                            CHGBR110
00657      IF WRK-PAGE-CNT > +48                                        CHGBR110
00658          PERFORM P1000-PRINT-HEADER THRU P1000-EXIT               CHGBR110
00659      END-IF.                                                      CHGBR110
00660                                                                   CHGBR110
00661      MOVE WRK-EMP-TOT-CHG         TO CHG-DTL-EMP-TOT-CHG.         CHGBR110
00662      MOVE WRK-EMP-ACCT-CHG        TO CHG-DTL-EMP-ACCT-CHG.        CHGBR110
00663      MOVE +0                      TO WRK-PAGE-CNT.                CHGBR110
00664                                                                   CHGBR110
00665      WRITE SELF-RPT-REC FROM CHG-DETAIL-EMP-FOOTER1               CHGBR110
00666          AFTER ADVANCING 4 LINES.                                 CHGBR110
00667                                                                   CHGBR110
00668      WRITE SELF-RPT-REC FROM CHG-DETAIL-EMP-FOOTER2               CHGBR110
00669          AFTER ADVANCING 2 LINES.                                 CHGBR110
00670                                                                   CHGBR110
00671  P2100-EXIT.                                                      CHGBR110
00672      EXIT.                                                        CHGBR110
00673                                                                   CHGBR110
00674  P2200-GENERATE-BILL.                                             CHGBR110
00675                                                                   CHGBR110
00676      IF CHG-LINK1-RUN-TYPE-SPC-88                                 CHGBR110
00677      OR CHG-LINK1-RUN-TYPE-RPTS-88                                CHGBR110
00678      OR CHG-LINK1-RUN-TYPE-AGTS-88                                CHGBR110
00679         GO TO P2200-EXIT.                                         CHGBR110
00680                                                                   CHGBR110
00681      IF CHG-LINK1-SELF-INS-STEP2-88                               CHGBR110
00682         IF WRK-EMP-ACCT-CHG < ZERO                                CHGBR110
00683            GO TO P2200-EXIT                                       CHGBR110
00684         END-IF                                                    CHGBR110
00685      END-IF.                                                      CHGBR110
00686                                                                   CHGBR110
00687      MOVE SPACES          TO  VSCA-DATA.                          CHGBR110
00688      WRITE SELF-BILL-REC FROM VSCA-DATA                           CHGBR110
00689          AFTER ADVANCING TOP-OF-PAGE.                             CHGBR110
00690                                                                   CHGBR110
00691      MOVE BILL-LINE1       TO  VSCA-DATA.                         CHGBR110
00692      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00693          AFTER ADVANCING 11 LINES.                                CHGBR110
00694                                                                   CHGBR110
00695      MOVE BILL-LINE2       TO  VSCA-DATA.                         CHGBR110
00696      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00697          AFTER ADVANCING 02 LINES.                                CHGBR110
00698                                                                   CHGBR110
00699      MOVE BILL-LINE3       TO  VSCA-DATA.                         CHGBR110
00700      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00701          AFTER ADVANCING 03 LINES.                                CHGBR110
00702                                                                   CHGBR110
00703      MOVE BILL-LINE4       TO  VSCA-DATA.                         CHGBR110
00704      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00705          AFTER ADVANCING 1 LINES.                                 CHGBR110
00706                                                                   CHGBR110
00707      MOVE BILL-LINE5       TO  VSCA-DATA.                         CHGBR110
00708      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00709          AFTER ADVANCING 1 LINES.                                 CHGBR110
00710                                                                   CHGBR110
00711      MOVE BILL-LINE6       TO  VSCA-DATA.                         CHGBR110
00712      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00713          AFTER ADVANCING 1 LINES.                                 CHGBR110
00714                                                                   CHGBR110
00715      MOVE BILL-LINE7       TO  VSCA-DATA.                         CHGBR110
00716      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00717          AFTER ADVANCING 1 LINE.                                  CHGBR110
00718                                                                   CHGBR110
00719      IF CHG-LINK1-SELF-INS-STEP1-88                               CHGBR110
00720         MOVE WRK-EMP-ACCT-CHG      TO  BILL-TOTAL-DUE             CHGBR110
00721                                        DET-TOTAL-DUE              CHGBR110
00722      ELSE                                                         CHGBR110
00723 **      IF WRK-EMP-ACCT-CHG < ZERO                                CHGBR110
00724 **         MOVE WRK-EMP-ACCT-CHG   TO  BILL-TOTAL-DUE             CHGBR110
00725 **      ELSE                                                      CHGBR110
00726            PERFORM P2210-READ-TAX  THRU P2210-EXIT                CHGBR110
00727            MOVE WRK-MQTR-BAL       TO  BILL-TOTAL-DUE             CHGBR110
00728                                        DET-TOTAL-DUE              CHGBR110
00729 **      END-IF                                                    CHGBR110
00730      END-IF.                                                      CHGBR110
00731      MOVE BILL-LINE8       TO  VSCA-DATA.                         CHGBR110
00732      WRITE SELF-BILL-REC  FROM VSCA-LINE                          CHGBR110
00733          AFTER ADVANCING 13 LINES.                                CHGBR110
00734                                                                   CHGBR110
00735      MOVE BILL-LINE9        TO  VSCA-DATA.                        CHGBR110
00736      WRITE SELF-BILL-REC   FROM VSCA-LINE                         CHGBR110
00737          AFTER ADVANCING 20 LINES.                                CHGBR110
00738                                                                   CHGBR110
00739      IF WRK-EMP-ACCT-CHG > WRK-MQTR-BAL                           CHGBR110
00740         MOVE BILL-LINE10       TO  VSCA-DATA                      CHGBR110
00741         WRITE SELF-BILL-REC   FROM VSCA-LINE                      CHGBR110
00742           AFTER ADVANCING 03 LINES                                CHGBR110
00743      END-IF.                                                      CHGBR110
00744                                                                   CHGBR110
00745       WRITE SELF-DET-REC    FROM CHG-DETAIL-REC.                  CHGBR110
00746                                                                   CHGBR110
00747  P2200-EXIT.                                                      CHGBR110
00748      EXIT.                                                        CHGBR110
00749                                                                   CHGBR110
00750  P2210-READ-TAX.                                                  CHGBR110
00751 *&                                                                CHGBR110
00752 *    MOVE WRK-EMP-ACCT-CHG TO AMT-DISP1.                          CHGBR110
00753 *    DISPLAY 'BR110 ' WRK-CURR-EMP '  ' BILL-EMP-NO-1             CHGBR110
00754 *       '  WRK ' AMT-DISP1.                                       CHGBR110
00755 *&                                                                CHGBR110
00756      MOVE ZERO                   TO WRK-MQTR-BAL.                 CHGBR110
00757      MOVE LOW-VALUES             TO MQTR-KEY-AREA.                CHGBR110
00758                                                                   CHGBR110
00759      MOVE CHG-LINK1-PERIOD-BEGIN TO L004-DATE.                    CHGBR110
00760      PERFORM S004-FROM-DATE      THRU S004-EXIT.                  CHGBR110
00761                                                                   CHGBR110
00762      MOVE WRK-CURR-EMP           TO MQTR-EMP-NO.                  CHGBR110
00763      SET MQTR-QTR-88             TO TRUE.                         CHGBR110
00764      MOVE L004-QTR-5-9           TO MQTR-YRQ.                     CHGBR110
00765      MOVE MQTR-KEY-AREA          TO MSKL-KEY-AREA.                CHGBR110
00766      PERFORM S910-READ           THRU S910-EXIT.                  CHGBR110
00767      IF L910-OK-88                                                CHGBR110
00768         MOVE MSKL-REC            TO MQTR-REC                      CHGBR110
00769         PERFORM                                                   CHGBR110
00770           VARYING MQTR-ACCT-IDX FROM +1 BY +1                     CHGBR110
00771           UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                     CHGBR110
00772             IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                    CHGBR110
00773                ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)              CHGBR110
00774                     TO WRK-MQTR-BAL                               CHGBR110
00775             END-IF                                                CHGBR110
00776         END-PERFORM                                               CHGBR110
00777      END-IF.                                                      CHGBR110
00778                                                                   CHGBR110
00779 *&                                                                CHGBR110
00780 *    MOVE WRK-MQTR-BAL TO AMT-DISP2.                              CHGBR110
00781 *    DISPLAY 'BR110 MQTR ' AMT-DISP2                              CHGBR110
00782 *       '  ' MQTR-YRQ.                                            CHGBR110
00783 *&                                                                CHGBR110
00784  P2210-EXIT.                                                      CHGBR110
00785      EXIT.                                                        CHGBR110
00786                                                                   CHGBR110
00787  P3000-BUILD-CHG-DETAIL.                                          CHGBR110
00788      MOVE CHG4-SSN                TO WRK-SSN.                     CHGBR110
00789 *    MOVE WRK-SSN1                TO CHG-DTL-SSN1.                   CL**3
00790 *    MOVE WRK-SSN2                TO CHG-DTL-SSN2.                   CL**3
00791      MOVE WRK-SSN3                TO CHG-DTL-SSN3.                CHGBR110
00792      MOVE '###'                   TO CHG-DTL-SSN1.                   CL**3
00793      MOVE '**'                    TO CHG-DTL-SSN2.                   CL**3
00794                                                                   CHGBR110
00795      MOVE CHG4-CLMNT-NAME         TO CHG-DTL-NAME.                CHGBR110
00796                                                                   CHGBR110
00797      MOVE CHG4-BYE                TO L001-FED-8-DATE-9.           CHGBR110
00798      SET L001-FROM-FED-8          TO TRUE.                        CHGBR110
00799      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBR110
00800      MOVE L001-SLASH-8-DATE       TO CHG-DTL-BYE.                 CHGBR110
00801                                                                   CHGBR110
00802      EVALUATE TRUE                                                CHGBR110
00803        WHEN CHG4-PROG-UI                                          CHGBR110
00804          MOVE WRK-REG-BENEFITS      TO CHG-DTL-SOURCE             CHGBR110
00805                                                                   CHGBR110
00806        WHEN CHG4-PROG-EB                                          CHGBR110
00807          MOVE WRK-EXT-BENEFITS      TO CHG-DTL-SOURCE             CHGBR110
00808                                                                   CHGBR110
00809        WHEN CHG4-PROG-TEUC                                        CHGBR110
00810          MOVE WRK-TEUC-BENEFITS     TO CHG-DTL-SOURCE             CHGBR110
00811                                                                   CHGBR110
00812        WHEN CHG4-PROG-TEUCA                                       CHGBR110
00813          MOVE WRK-TEUCA-BEN-PAYMENT TO CHG-DTL-SOURCE             CHGBR110
00814                                                                   CHGBR110
00815        WHEN CHG4-PROG-FAC                                         CHGBR110
00816          MOVE WRK-FAC-BEN-PAYMENT   TO CHG-DTL-SOURCE             CHGBR110
00817                                                                   CHGBR110
00818        WHEN OTHER                                                 CHGBR110
00819          MOVE ' UNKNOWN '           TO CHG-DTL-SOURCE             CHGBR110
00820      END-EVALUATE.                                                CHGBR110
00821                                                                   CHGBR110
00822      COMPUTE WRK-TOT-AMT =                                        CHGBR110
00823           CHG4-TOT-BEN-AMT +                                      CHGBR110
00824           CHG4-TOT-ADJ-AMT.                                       CHGBR110
00825      MOVE WRK-TOT-AMT          TO CHG-DTL-TOT-AMT.                CHGBR110
00826                                                                   CHGBR110
00827      COMPUTE WRK-CURR-AMT =                                       CHGBR110
00828           CHG4-CURR-BEN-AMT +                                     CHGBR110
00829           CHG4-CURR-ADJ-AMT.                                      CHGBR110
00830      MOVE WRK-CURR-AMT         TO CHG-DTL-CURR-AMT.               CHGBR110
00831                                                                   CHGBR110
00832      IF WRK-CURR-AMT NOT = ZEROS                                  CHGBR110
00833         WRITE SELF-RPT-REC        FROM CHG-DETAIL-LINE            CHGBR110
00834                       AFTER ADVANCING 1 LINE                      CHGBR110
00835         ADD +1                    TO WRK-LINE-CNT                 CHGBR110
00836         PERFORM P3900-TOTALS    THRU P3900-EXIT                   CHGBR110
00837      END-IF.                                                      CHGBR110
00838                                                                   CHGBR110
00839  P3000-EXIT.                                                      CHGBR110
00840      EXIT.                                                        CHGBR110
00841                                                                   CHGBR110
00842  P3900-TOTALS.                                                    CHGBR110
00843      COMPUTE WRK-EMP-ACCT-CHG =                                   CHGBR110
00844           WRK-EMP-ACCT-CHG    +                                   CHGBR110
00845           CHG4-CURR-BEN-AMT   +                                   CHGBR110
00846           CHG4-CURR-ADJ-AMT.                                      CHGBR110
00847                                                                   CHGBR110
00848      COMPUTE WRK-RPT-ACCT-CHG =                                   CHGBR110
00849           WRK-RPT-ACCT-CHG    +                                   CHGBR110
00850           CHG4-CURR-BEN-AMT   +                                   CHGBR110
00851           CHG4-CURR-ADJ-AMT.                                      CHGBR110
00852                                                                   CHGBR110
00853      COMPUTE WRK-EMP-TOT-CHG =                                    CHGBR110
00854           WRK-EMP-TOT-CHG    +                                    CHGBR110
00855           CHG4-TOT-BEN-AMT   +                                    CHGBR110
00856           CHG4-TOT-ADJ-AMT.                                       CHGBR110
00857                                                                   CHGBR110
00858      COMPUTE WRK-RPT-TOT-CHG =                                    CHGBR110
00859           WRK-RPT-TOT-CHG    +                                    CHGBR110
00860           CHG4-TOT-BEN-AMT   +                                    CHGBR110
00861           CHG4-TOT-ADJ-AMT.                                       CHGBR110
00862                                                                   CHGBR110
00863  P3900-EXIT.                                                      CHGBR110
00864      EXIT.                                                        CHGBR110
00865                                                                   CHGBR110
00866  P4000-INIT-BILL.                                                 CHGBR110
00867      MOVE CHG4-EMP-NO              TO BILL-EMP-NO-1               CHGBR110
00868                                       BILL-EMP-NO-2               CHGBR110
00869                                       DET-EMP-NO-1.               CHGBR110
00870                                                                   CHGBR110
00871      MOVE CHG4-FMT-LINE (1)        TO BILL-ADDR-LINE1.            CHGBR110
00872      MOVE CHG4-FMT-LINE (2)        TO BILL-ADDR-LINE2.            CHGBR110
00873      MOVE CHG4-FMT-LINE (3)        TO BILL-ADDR-LINE3.            CHGBR110
00874      MOVE CHG4-FMT-LINE (4)        TO BILL-ADDR-LINE4.            CHGBR110
00875      MOVE CHG4-FMT-LINE (5)        TO BILL-ADDR-LINE5.            CHGBR110
00876                                                                   CHGBR110
00877                                                                   CHGBR110
00878      IF CHG4-FMT-LINE (1) > SPACES                                CHGBR110
00879      MOVE CHG4-FMT-LINE (1)        TO DET-NAME-CHK                CHGBR110
00880      ELSE                                                         CHGBR110
00881      IF CHG4-FMT-LINE (2) > SPACES                                CHGBR110
00882      MOVE CHG4-FMT-LINE (2)        TO DET-NAME-CHK                CHGBR110
00883      ELSE                                                         CHGBR110
00884      IF CHG4-FMT-LINE (3) > SPACES                                CHGBR110
00885      MOVE CHG4-FMT-LINE (3)        TO DET-NAME-CHK                CHGBR110
00886      ELSE                                                         CHGBR110
00887      MOVE CHG4-EMP-NAME-CHK        TO BILL-NAME-CHK.              CHGBR110
00888                                                                   CHGBR110
00889                                                                   CHGBR110
00890  P4000-EXIT.                                                      CHGBR110
00891      EXIT.                                                        CHGBR110
00892                                                                   CHGBR110
00893      EJECT                                                        CHGBR110
00894  T0000-TERMINATE.                                                 CHGBR110
00895      IF WRK-EMPLYR-CNT > 0                                        CHGBR110
00896         PERFORM P2000-EMP-COMPLETE THRU P2000-EXIT                CHGBR110
00897      END-IF                                                       CHGBR110
00898                                                                   CHGBR110
00899      IF WRK-EMPLYR-CNT > 1                                        CHGBR110
00900         PERFORM T1000-FINAL-TOTALS THRU T1000-EXIT                CHGBR110
00901      END-IF                                                       CHGBR110
00902                                                                   CHGBR110
00903      CLOSE SELF-INS-RPT.                                          CHGBR110
00904      CLOSE SELF-INS-DET.                                          CHGBR110
00905                                                                   CHGBR110
00906      IF CHG-LINK1-RUN-TYPE-SPC-88                                 CHGBR110
00907      OR CHG-LINK1-RUN-TYPE-RPTS-88                                CHGBR110
00908      OR CHG-LINK1-RUN-TYPE-AGTS-88                                CHGBR110
00909         GO TO T0000-EXIT                                          CHGBR110
00910      ELSE                                                         CHGBR110
00911         CLOSE SELF-INS-BILL                                       CHGBR110
00912      END-IF.                                                      CHGBR110
00913                                                                   CHGBR110
00914      IF CHG-LINK1-SELF-INS-STEP2-88                               CHGBR110
00915         PERFORM S910-CLOSE     THRU S910-EXIT                     CHGBR110
00916      END-IF.                                                      CHGBR110
00917                                                                   CHGBR110
00918  T0000-EXIT.                                                      CHGBR110
00919      EXIT.                                                        CHGBR110
00920                                                                   CHGBR110
00921  T1000-FINAL-TOTALS.                                              CHGBR110
00922      MOVE        SPACE          TO CHG-DETAIL-HDR4.               CHGBR110
00923      PERFORM P1000-PRINT-HEADER THRU P1000-EXIT.                  CHGBR110
00924                                                                   CHGBR110
00925      MOVE WRK-RPT-TOT-CHG   TO CHG-DTL-RPT-TOT-CHG.               CHGBR110
00926      MOVE  WRK-RPT-ACCT-CHG TO CHG-DTL-RPT-ACCT-CHG.                 CL**4
00927                                                                   CHGBR110
00928      WRITE SELF-RPT-REC FROM CHG-DETAIL-RPT-FOOTER2               CHGBR110
00929                              AFTER ADVANCING 3 LINES.             CHGBR110
00930                                                                   CHGBR110
00931      WRITE SELF-RPT-REC FROM CHG-DETAIL-RPT-FOOTER1               CHGBR110
00932                              AFTER ADVANCING 2 LINES.             CHGBR110
00933                                                                   CHGBR110
00934  T1000-EXIT.                                                      CHGBR110
00935      EXIT.                                                        CHGBR110
00936                                                                   CHGBR110
00937  S004-FROM-DATE.                                                  CHGBR110
00938      SET L004-FROM-DATE TO TRUE.                                  CHGBR110
00939      GO TO S004-YRQ.                                              CHGBR110
00940                                                                   CHGBR110
00941  S004-YRQ.                                                        CHGBR110
00942      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBR110
00943  S004-EXIT. EXIT.                                                 CHGBR110
00944                                                                   CHGBR110
00945  S910-OPEN-READ.                                                  CHGBR110
00946      SET L910-OPEN-READ-88 TO TRUE.                               CHGBR110
00947      GO TO S910-MSTR-IO.                                          CHGBR110
00948                                                                   CHGBR110
00949  S910-READ.                                                       CHGBR110
00950      SET L910-READ-88 TO TRUE.                                    CHGBR110
00951      GO TO S910-MSTR-IO.                                          CHGBR110
00952                                                                   CHGBR110
00953  S910-CLOSE.                                                      CHGBR110
00954      SET L910-CLOSE-88 TO TRUE.                                   CHGBR110
00955      GO TO S910-MSTR-IO.                                          CHGBR110
00956                                                                   CHGBR110
00957  S910-MSTR-IO.                                                    CHGBR110
00958      CALL 'DTSBU910' USING L910-LINK-AREA                         CHGBR110
00959                            MSKL-REC.                              CHGBR110
00960                                                                   CHGBR110
00961  S910-EXIT.                                                       CHGBR110
00962      EXIT.                                                        CHGBR110
00963                                                                   CHGBR110
00964  S999-ABEND.                                                      CHGBR110
00965      DISPLAY '****  CHGBR110 ABENDING '                           CHGBR110
00966         ABEND-MSG.                                                CHGBR110
00967                                                                   CHGBR110
00968      CALL 'DTSBU999' USING WRK-ABEND-CODE.                        CHGBR110
00969                                                                   CHGBR110
00970  S999-EXIT.                                                       CHGBR110
00971      EXIT.                                                        CHGBR110
