00001  IDENTIFICATION DIVISION.                                         09/17/10
00002  PROGRAM-ID.             CHGBR120.                                CHGBR120
00003 *AUTHOR.                 TRW.                                        LV065
00004 *DATE-WRITTEN.           APRIL 2000.                              CHGBR120
00005  DATE-COMPILED.                                                   CHGBR120
00006                                                                   CHGBR120
00007 *****                                                             CHGBR120
00008 *    CALLING SEQUENCE:  CHGBD300 CALLS                            CHGBR120
00009 *                       CHGBR120 READS CHGIM004 RECORDS           CHGBR120
00010 *                       CHGBR120 THEN WRITES CWC SUMMARY          CHGBR120
00011 *                       OR SPECIAL REPORT                         CHGBR120
00012 *                                                                 CHGBR120
00013 *    FUNCTION:  PRINT COMBINED WAGES CHARGE (CWC) SUMMARY OR      CHGBR120
00014 *               SPECIAL REPORT                                    CHGBR120
00015 *                                                                 CHGBR120
00016 *    DESCRIPTION:                                                 CHGBR120
00017 *                                                                 CHGBR120
00018 *        THIS MODULE GENERATES THE QUARTERLY/SPECIAL COMBINED     CHGBR120
00019 *        WAGES CHARGE SUMMARY/SPECIAL REPORT.                     CHGBR120
00020 *                                                                 CHGBR120
00021 *    RECORDS READ:                                                CHGBR120
00022 *                                                                 CHGBR120
00023 *        NONE.                                                    CHGBR120
00024 *                                                                 CHGBR120
00025 *    INPUT:                                                       CHGBR120
00026 *                                                                 CHGBR120
00027 *         CHGIM004 RECORD PASSED FROM CHGBD300                    CHGBR120
00028 *                                                                 CHGBR120
00029 *    PRINTED OUTPUTS:                                             CHGBR120
00030 *                                                                 CHGBR120
00031 *         RPC120R1 - COMBINE WAGES CHARGE (CWC) SUMMARY REPORT    CHGBR120
00032 *                                                                 CHGBR120
00033 *    MODULES CALLED:                                              CHGBR120
00034 *                                                                 CHGBR120
00035 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     CHGBR120
00036 *                                                                 CHGBR120
00037 ******************************************************************CHGBR120
00038 * MODIFICATION HISTORY:                                          *CHGBR120
00039 *                                                                *CHGBR120
00040 * 02-08-2001 ADDED A HDR TO 'GRAND TOTALS' PAGE,  AND WILL NOW   *CHGBR120
00041 *            PRINT IT ONLY IF MORE THAN ONE EMPLOYER HAS BEEN    *CHGBR120
00042 *            REPORTED. FIXED OVERRUN ON 1ST PAGE.          - JHP *CHGBR120
00043 *                                                                *CHGBR120
00044 * 04-25-2000 MODIFIED THE REPORT WRITER CHGBR120 TO COBOL II     *CHGBR120
00045 *            PROGRAM.                                            *CHGBR120
00046 *            REFERENCE RFP #              AUTHOR OF CHANGE - RLW *CHGBR120
00047 *                                                                *CHGBR120
00048 * 02-02-1999 MODIFIED FROM MT CHG100D                            *CHGBR120
00049 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBR120
00050 *                                                                *CHGBR120
00051 * 07-28-2008 REMOVED F ORLANDO NAME FROM REPORT                  *CHGBR120
00052 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBR120
00053 *                                                                *CHGBR120
00054 * 04-03-2009 MODIFIED FOR NEW PROGRAM CODE VALUES                *CHGBR120
00055 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBR120
00056 *                                                                *CHGBR120
00057 * 05-14-2010 RECOMPIE FOR NEW VERSION OF CHGIM004 AND PRINT      *CHGBR120
00058 *            LAST 4 DIGITS OF SSN                                *CHGBR120
00059 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBR120
00060 ******************************************************************CHGBR120
00061                                                                   CHGBR120
00062  ENVIRONMENT DIVISION.                                            CHGBR120
00063  CONFIGURATION SECTION.                                           CHGBR120
00064  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               CHGBR120
00065                                                                   CHGBR120
00066  INPUT-OUTPUT SECTION.                                            CHGBR120
00067  FILE-CONTROL.                                                    CHGBR120
00068 ***                                         BEN.CHG. RPT (O)      CHGBR120
00069      SELECT CWC-RPT ASSIGN TO RPC120R1.                           CHGBR120
00070      EJECT                                                        CHGBR120
00071  DATA DIVISION.                                                   CHGBR120
00072  FILE SECTION.                                                    CHGBR120
00073                                                                   CHGBR120
00074  FD  CWC-RPT                                                      CHGBR120
00075      RECORDING MODE IS F                                          CHGBR120
00076      RECORD CONTAINS 133 CHARACTERS                               CHGBR120
00077      BLOCK CONTAINS 0 RECORDS.                                    CHGBR120
00078                                                                   CHGBR120
00079  01  CWC-REPORT                      PIC X(133).                  CHGBR120
00080                                                                   CHGBR120
00081  WORKING-STORAGE SECTION.                                         CHGBR120
000815 77  PAN-VALET PICTURE X(24) VALUE '065CHGBR120  09/17/10'.       CHGBR120
00082                                                                   CHGBR120
00083  01  WRK-AREA.                                                    CHGBR120
00084      05  WRK-ABEND-CODE          PIC S9(04) COMP VALUE +120.      CHGBR120
00085                                                                   CHGBR120
00086      05  ABEND-MSG               PIC  X(60).                      CHGBR120
00087                                                                   CHGBR120
00088      05  ABEND-MOD               PIC  X(08) VALUE 'DTSBU999'.     CHGBR120
00089                                                                   CHGBR120
00090      05  WRK-REG-BEN-PAYMENT     PIC  X(25)                       CHGBR120
00091                            VALUE ' REGULAR BENEFIT PAYMENT '.     CHGBR120
00092      05  WRK-EXT-BEN-PAYMENT     PIC  X(25)                       CHGBR120
00093                            VALUE ' EXTENDED BENEFIT PAYMENT'.     CHGBR120
00094      05  WRK-TEUC-BEN-PAYMENT    PIC  X(25)                       CHGBR120
00095                            VALUE ' TEUC BENEFIT PAYMENT    '.     CHGBR120
00096      05  WRK-TEUCA-BEN-PAYMENT       PIC  X(25)                   CHGBR120
00097                            VALUE ' TEUCA BENEFIT PAYMENT   '.     CHGBR120
00098      05  WRK-FAC-BEN-PAYMENT         PIC  X(25)                   CHGBR120
00099                            VALUE ' FED ADDL COMP PAYMENT   '.     CHGBR120
00100      05  WRK-ADJUSTMENTS         PIC  X(25)                       CHGBR120
00101                            VALUE '       ADJUSTMENTS       '.     CHGBR120
00102      05  WRK-OVERPAYMENTS        PIC  X(25)                       CHGBR120
00103                            VALUE ' OVERPAYMENTS COLLECTED  '.     CHGBR120
00104      05  WRK-RPT-SUMMARY         PIC  X(26)                       CHGBR120
00105                            VALUE 'QUARTERLY  CHARGE  SUMMARY'.    CHGBR120
00106      05  WRK-RPT-SPECIAL         PIC  X(26)                       CHGBR120
00107                            VALUE ' BENEFIT  CHARGE  SPECIAL '.    CHGBR120
00108                                                                   CHGBR120
00109      05  WRK-SSN               PIC  9(09) VALUE ZERO.             CHGBR120
00110      05  FILLER REDEFINES WRK-SSN.                                CHGBR120
00111          10  WRK-SSN1                PIC  9(03).                  CHGBR120
00112          10  WRK-SSN2                PIC  9(02).                  CHGBR120
00113          10  WRK-SSN3                PIC  9(04).                  CHGBR120
00114                                                                   CHGBR120
00115      05  WRK-LINE-CNT                PIC  S9(04) COMP  VALUE +0.  CHGBR120
00116      05  WRK-PAGE-CNT                PIC  S9(04) COMP  VALUE +0.  CHGBR120
00117      05  WRK-EMPLYR-CNT              PIC   9(07) COMP  VALUE  0.  CHGBR120
00118      05  WS-REC                      PIC  X(133) VALUE SPACES.    CHGBR120
00119                                                                   CHGBR120
00120      05  WRK-CURR-EMP              PIC S9(07) COMP-3 VALUE +0.    CHGBR120
00121      05  WRK-CURR-AMT              PIC S9(07)V99 COMP-3 VALUE +0. CHGBR120
00122      05  WRK-TOT-AMT               PIC S9(07)V99 COMP-3 VALUE +0. CHGBR120
00123      05  WRK-TOTAL-BENEFITS        PIC S9(09)V99 COMP-3 VALUE +0. CHGBR120
00124      05  WRK-ACCT-TOTAL            PIC S9(09)V99 COMP-3 VALUE +0. CHGBR120
00125      05  WRK-GRAND-TOTAL-BENEFITS  PIC S9(10)V99 COMP-3 VALUE +0. CHGBR120
00126      05  WRK-GRAND-TOTAL-CHARGED   PIC S9(10)V99 COMP-3 VALUE +0. CHGBR120
00127      05  WRK-GRAND-TOT-BEN         PIC Z(13)9.99-.                CHGBR120
00128      05  WRK-GRAND-TOT-CHG         PIC Z(13)9.99-.                CHGBR120
00129                                                                   CHGBR120
00130                                                                   CHGBR120
00131  01  REPORT-LINE-AREA.                                            CHGBR120
00132      05  HEAD01.                                                  CHGBR120
00133          10  FILLER     PIC X(01)  VALUE  SPACE.                  CHGBR120
00134          10  FILLER     PIC X(08)  VALUE 'CHGBR120'.              CHGBR120
00135          10  FILLER     PIC X(47)  VALUE  SPACE.                  CHGBR120
00136          10  FILLER     PIC X(20)  VALUE 'DISTRICT OF COLUMBIA'.  CHGBR120
00137          10  FILLER     PIC X(42)  VALUE  SPACE.                  CHGBR120
00138          10  FILLER     PIC X(09)  VALUE 'PAGE NO.:'.             CHGBR120
00139          10  FILLER     PIC X(01)  VALUE  SPACE.                  CHGBR120
00140          10  WRK-PRT-PAGE-CNT      PIC    ZZZ99.                  CHGBR120
00141                                                                   CHGBR120
00142      05  HEAD02.                                                  CHGBR120
00143          10  FILLER     PIC X(01)  VALUE  SPACE.                  CHGBR120
00144          10  FILLER     PIC X(10)  VALUE '          '.            CHGBR120
00145          10  FILLER     PIC X(42)  VALUE  SPACE.                  CHGBR120
00146          10  H2-RPT-TYP PIC X(26)  VALUE  SPACE.                  CHGBR120
00147 *        10  FILLER     PIC X(13)  VALUE 'QUARTERLY  CH'.         CHGBR120
00148 *        10  FILLER     PIC X(13)  VALUE 'ARGE  SUMMARY'.         CHGBR120
00149          10  FILLER     PIC X(49)  VALUE  SPACE.                  CHGBR120
00150          10  FILLER     PIC X(02)  VALUE 'TT'.                    CHGBR120
00151          10  WRK-PRT-EMP-TYPE             PIC X(02).              CHGBR120
00152                                                                   CHGBR120
00153      05  HEAD03.                                                  CHGBR120
00154          10  FILLER     PIC X(01)  VALUE SPACE.                   CHGBR120
00155          10  FILLER     PIC X(10)  VALUE 'ROOM 325'.              CHGBR120
00156          10  FILLER     PIC X(35)  VALUE SPACE.                   CHGBR120
00157          10  FILLER     PIC X(13)  VALUE 'DEPARTMENT   '.         CHGBR120
00158          10  FILLER     PIC X(13)  VALUE 'OF   EMPLOYME'.         CHGBR120
00159          10  FILLER     PIC X(13)  VALUE 'NT   SERVICES'.         CHGBR120
00160                                                                   CHGBR120
00161      05  HEAD04.                                                  CHGBR120
00162          10  FILLER     PIC X(01)  VALUE SPACE.                   CHGBR120
00163          10  FILLER     PIC X(49)  VALUE SPACE.                   CHGBR120
00164          10  FILLER     PIC X(12)  VALUE 'EMPLOYER ACC'.          CHGBR120
00165          10  FILLER     PIC X(12)  VALUE 'OUNT NUMBER '.          CHGBR120
00166          10  WRK-PRT-HDR-EMP      PIC 9(06).                      CHGBR120
00167                                                                   CHGBR120
00168      05  HEAD05.                                                  CHGBR120
00169          10  FILLER     PIC X(01)  VALUE SPACE.                   CHGBR120
00170          10  FILLER     PIC X(39)  VALUE SPACE.                   CHGBR120
00171          10  FILLER     PIC X(14)  VALUE 'REPORT INCLUDE'.        CHGBR120
00172          10  FILLER     PIC X(14)  VALUE 'S PERIOD FROM '.        CHGBR120
00173          10  WS-REPORT-START-DATE  PIC X(10)  VALUE SPACE.        CHGBR120
00174          10  FILLER     PIC X(04)  VALUE ' TO '.                  CHGBR120
00175          10  WS-REPORT-END-DATE    PIC X(10)  VALUE SPACE.        CHGBR120
00176                                                                   CHGBR120
00177      05  HEAD06.                                                  CHGBR120
00178          10  FILLER     PIC X(01)  VALUE SPACE.                   CHGBR120
00179          10  FILLER     PIC X(05)  VALUE SPACE.                   CHGBR120
00180          10  FILLER     PIC X(03)  VALUE 'SSN'.                   CHGBR120
00181          10  FILLER     PIC X(10)  VALUE SPACE.                   CHGBR120
00182          10  FILLER     PIC X(03)  VALUE 'BYE'.                   CHGBR120
00183          10  FILLER     PIC X(09)  VALUE SPACE.                   CHGBR120
00184          10  FILLER     PIC X(09)  VALUE 'NAME  OF '.             CHGBR120
00185          10  FILLER     PIC X(09)  VALUE ' CLAIMANT'.             CHGBR120
00186          10  FILLER     PIC X(19)  VALUE SPACE.                   CHGBR120
00187          10  FILLER     PIC X(14)  VALUE 'TOTAL BENEFITS'.        CHGBR120
00188          10  FILLER     PIC X(05)  VALUE SPACE.                   CHGBR120
00189          10  FILLER     PIC X(15)  VALUE 'ACCOUNT CHARGES'.       CHGBR120
00190          10  FILLER     PIC X(09)  VALUE SPACE.                   CHGBR120
00191          10  FILLER     PIC X(11)  VALUE 'SOURCE TYPE'.           CHGBR120
00192                                                                   CHGBR120
00193      05  WRK-PRINT-LINE.                                          CHGBR120
00194          10  FILLER                     PIC X(01)  VALUE SPACE.   CHGBR120
00195          10  FILLER                     PIC X(04)  VALUE SPACE.   CHGBR120
00196          10  WRK-PRT-SSN1               PIC X(03)  VALUE SPACE.   CHGBR120
00197          10  FILLER                     PIC X(01) VALUE '-'.      CHGBR120
00198          10  WRK-PRT-SSN2               PIC X(02)  VALUE SPACE.   CHGBR120
00199          10  FILLER                     PIC X(01) VALUE '-'.      CHGBR120
00200          10  WRK-PRT-SSN3               PIC X(04)  VALUE SPACE.   CHGBR120
00201          10  FILLER                     PIC X(02)  VALUE SPACE.   CHGBR120
00202          10  WRK-PRT-BYE-DATE           PIC X(10)  VALUE SPACE.   CHGBR120
00203          10  FILLER                     PIC X(03)  VALUE SPACE.   CHGBR120
00204          10  WRK-PRT-CLMNT-NAME         PIC X(32)  VALUE SPACE.   CHGBR120
00205          10  FILLER                     PIC X(02)  VALUE SPACE.   CHGBR120
00206          10  WRK-PRT-TOT-AMT            PIC $$,$$$,$$$,$$9.99-.   CHGBR120
00207          10  FILLER                     PIC X(02)  VALUE SPACE.   CHGBR120
00208          10  WRK-PRT-CURR-AMT           PIC $$,$$$,$$$,$$9.99-.   CHGBR120
00209          10  FILLER                     PIC X(02)  VALUE SPACE.   CHGBR120
00210          10  WRK-PRT-SOURCE-TYPE        PIC X(25)  VALUE SPACE.   CHGBR120
00211                                                                   CHGBR120
00212      05  WRK-PRINT-TOTAL.                                         CHGBR120
00213          10  FILLER     PIC X(01)  VALUE  SPACE.                  CHGBR120
00214          10  FILLER     PIC X(34)  VALUE  SPACES.                 CHGBR120
00215          10  FILLER     PIC X(20)  VALUE 'GRAND TOTAL CHARGED:'.  CHGBR120
00216          10  FILLER     PIC X(10)  VALUE  SPACES.                 CHGBR120
00217          10  WRK-PRT-TOT-BEN       PIC $$,$$$,$$$,$$9.99-.        CHGBR120
00218          10  FILLER     PIC X(22)  VALUE  SPACES.                 CHGBR120
00219          10  FILLER     PIC X(25) VALUE                           CHGBR120
00220                                    '      ************       '.   CHGBR120
00221      05  WRK-PRINT-TOTAL-ACCT.                                    CHGBR120
00222          10  FILLER     PIC X(01)  VALUE  SPACE.                  CHGBR120
00223          10  FILLER     PIC X(39)  VALUE  SPACES.                 CHGBR120
00224          10  FILLER     PIC X(14)  VALUE 'GRAND TOTAL AC'.        CHGBR120
00225          10  FILLER     PIC X(14)  VALUE 'COUNT CHARGED:'.        CHGBR120
00226          10  FILLER     PIC X(17)  VALUE  SPACES.                 CHGBR120
00227          10  WRK-PRT-ACCT-TOT      PIC $$,$$$,$$$,$$9.99-.        CHGBR120
00228          10  FILLER     PIC X(04)  VALUE  SPACES.                 CHGBR120
00229          10  FILLER     PIC X(25) VALUE                           CHGBR120
00230                                    '    ************         '.   CHGBR120
00231                                                                   CHGBR120
00232      05  WRK-PRINT-GRAND.                                         CHGBR120
00233          10  FILLER     PIC X(01)  VALUE  SPACE.                  CHGBR120
00234          10  FILLER     PIC X(64)  VALUE  SPACES.                 CHGBR120
00235          10  FILLER     PIC X(20)  VALUE '--------------------'.  CHGBR120
00236          10  FILLER     PIC X(21)  VALUE '---------------------'. CHGBR120
00237                                                                   CHGBR120
00238      05  WRK-PRINT-GRAND-PERIOD.                                  CHGBR120
00239          10  FILLER     PIC X(01)  VALUE  SPACE.                  CHGBR120
00240          10  FILLER     PIC X(13)  VALUE  SPACES.                 CHGBR120
00241          10  FILLER     PIC X(19)  VALUE 'TOTAL AMOUNT CHARGE'.   CHGBR120
00242          10  FILLER     PIC X(18)  VALUE 'D FOR THE PERIOD: '.    CHGBR120
00243          10  FILLER     PIC X(14)  VALUE  SPACES.                 CHGBR120
00244          10  WRK-PRT-GRAND-TOT-BEN PIC $$,$$$,$$$,$$9.99-.        CHGBR120
00245          10  FILLER     PIC X(02)  VALUE  SPACES.                 CHGBR120
00246          10  WRK-PRT-GRAND-TOT-CHG PIC $$,$$$,$$$,$$9.99-.        CHGBR120
00247          10  FILLER     PIC X(03)  VALUE  SPACES.                 CHGBR120
00248          10  FILLER     PIC X(25)  VALUE                          CHGBR120
00249                                    '     ************        '.   CHGBR120
00250                                                                   CHGBR120
00251  01  L001-LINK-AREA.                                              CHGBR120
00252  ++INCLUDE DTSIL001                                               CHGBR120
00253                                                                   CHGBR120
00254  01  L005-LINK-AREA.                                              CHGBR120
00255  ++INCLUDE DTSIL005                                               CHGBR120
00256                                                                   CHGBR120
00257      EJECT                                                        CHGBR120
00258  LINKAGE SECTION.                                                 CHGBR120
00259                                                                   CHGBR120
00260  01  CHG-LINK-REC.                                                CHGBR120
00261  ++INCLUDE CHGIL001                                               CHGBR120
00262                                                                   CHGBR120
00263  01  BD210-CHG-REC.                                               CHGBR120
00264  ++INCLUDE CHGIM004                                               CHGBR120
00265      EJECT                                                        CHGBR120
00266  PROCEDURE DIVISION USING CHG-LINK-REC                            CHGBR120
00267                           BD210-CHG-REC.                          CHGBR120
00268                                                                   CHGBR120
00269  CHGBR120-MAIN.                                                   CHGBR120
00270      IF CHG-LINK1-CMD-INIT-88                                     CHGBR120
00271         PERFORM I0000-INITIATE        THRU I0000-EXIT             CHGBR120
00272      ELSE                                                         CHGBR120
00273         IF CHG-LINK1-CMD-PROCESS-88                               CHGBR120
00274            PERFORM P0000-PROCESS      THRU P0000-EXIT             CHGBR120
00275         ELSE                                                      CHGBR120
00276            IF CHG-LINK1-CMD-CLOSE-88                              CHGBR120
00277               PERFORM T0000-TERMINATE THRU T0000-EXIT             CHGBR120
00278            ELSE                                                   CHGBR120
00279               MOVE 'INVALID CHG-LINK1-COMMAND VALUE'              CHGBR120
00280                                       TO ABEND-MSG                CHGBR120
00281               PERFORM S999-ABEND      THRU S999-EXIT              CHGBR120
00282            END-IF                                                 CHGBR120
00283         END-IF                                                    CHGBR120
00284      END-IF.                                                      CHGBR120
00285                                                                   CHGBR120
00286  CHGBR120-EXIT.                                                   CHGBR120
00287      GOBACK.                                                      CHGBR120
00288      EJECT                                                        CHGBR120
00289  I0000-INITIATE.                                                  CHGBR120
00290                                                                   CHGBR120
00291      IF CHG-LINK1-RUN-TYPE-SPC-88                                 CHGBR120
00292         MOVE WRK-RPT-SPECIAL TO H2-RPT-TYP                        CHGBR120
00293      ELSE MOVE WRK-RPT-SUMMARY TO H2-RPT-TYP                      CHGBR120
00294      END-IF.                                                      CHGBR120
00295                                                                   CHGBR120
00296      MOVE CHG-LINK1-PERIOD-BEGIN TO L001-FED-8-DATE-9.            CHGBR120
00297      PERFORM S001-FROM-FED-8     THRU S001-EXIT.                  CHGBR120
00298      MOVE L001-SLASH-8-DATE TO WS-REPORT-START-DATE.              CHGBR120
00299                                                                   CHGBR120
00300      MOVE CHG-LINK1-PERIOD-END TO L001-FED-8-DATE-9.              CHGBR120
00301      PERFORM S001-FROM-FED-8     THRU S001-EXIT.                  CHGBR120
00302      MOVE L001-SLASH-8-DATE TO WS-REPORT-END-DATE.                CHGBR120
00303                                                                   CHGBR120
00304      OPEN OUTPUT CWC-RPT.                                         CHGBR120
00305                                                                   CHGBR120
00306  I0000-EXIT.                                                      CHGBR120
00307      EXIT.                                                        CHGBR120
00308                                                                   CHGBR120
00309  P0000-PROCESS.                                                   CHGBR120
00310      PERFORM P1000-CHK-FOR-NEW-PAGE THRU P1000-EXIT               CHGBR120
00311                                                                   CHGBR120
00312      EVALUATE TRUE                                                CHGBR120
00313        WHEN CHG4-PROG-UI                                          CHGBR120
00314          MOVE WRK-REG-BEN-PAYMENT   TO WRK-PRT-SOURCE-TYPE        CHGBR120
00315                                                                   CHGBR120
00316        WHEN CHG4-PROG-EB                                          CHGBR120
00317          MOVE WRK-EXT-BEN-PAYMENT   TO WRK-PRT-SOURCE-TYPE        CHGBR120
00318                                                                   CHGBR120
00319        WHEN CHG4-PROG-TEUC                                        CHGBR120
00320          MOVE WRK-TEUC-BEN-PAYMENT  TO WRK-PRT-SOURCE-TYPE        CHGBR120
00321                                                                   CHGBR120
00322        WHEN CHG4-PROG-TEUCA                                       CHGBR120
00323          MOVE WRK-TEUCA-BEN-PAYMENT TO WRK-PRT-SOURCE-TYPE        CHGBR120
00324                                                                   CHGBR120
00325        WHEN CHG4-PROG-FAC                                         CHGBR120
00326          MOVE WRK-FAC-BEN-PAYMENT   TO WRK-PRT-SOURCE-TYPE        CHGBR120
00327                                                                   CHGBR120
00328        WHEN OTHER                                                 CHGBR120
00329          MOVE ' UNKNOWN '           TO WRK-PRT-SOURCE-TYPE        CHGBR120
00330      END-EVALUATE.                                                CHGBR120
00331                                                                   CHGBR120
00332      MOVE CHG4-SSN                     TO WRK-SSN.                CHGBR120
00333      MOVE WRK-SSN1                     TO WRK-PRT-SSN1.           CHGBR120
00334      MOVE WRK-SSN2                     TO WRK-PRT-SSN2.           CHGBR120
00335      MOVE WRK-SSN3                     TO WRK-PRT-SSN3.           CHGBR120
00336                                                                   CHGBR120
00337      MOVE CHG4-BYE                     TO L001-FED-8-DATE-9.      CHGBR120
00338      PERFORM S001-FROM-FED-8         THRU S001-EXIT.              CHGBR120
00339      MOVE L001-SLASH-8-DATE            TO WRK-PRT-BYE-DATE.       CHGBR120
00340      MOVE CHG4-CLMNT-NAME              TO WRK-PRT-CLMNT-NAME      CHGBR120
00341                                                                   CHGBR120
00342      COMPUTE WRK-TOT-AMT =                                        CHGBR120
00343         CHG4-TOT-BEN-AMT + CHG4-TOT-ADJ-AMT                       CHGBR120
00344      MOVE WRK-TOT-AMT                  TO WRK-PRT-TOT-AMT.        CHGBR120
00345                                                                   CHGBR120
00346      COMPUTE WRK-CURR-AMT =                                       CHGBR120
00347      CHG4-CURR-BEN-AMT + CHG4-CURR-ADJ-AMT                        CHGBR120
00348      MOVE WRK-CURR-AMT                 TO WRK-PRT-CURR-AMT.       CHGBR120
00349                                                                   CHGBR120
00350      IF WRK-CURR-AMT NOT = ZERO                                   CHGBR120
00351         WRITE CWC-REPORT FROM WRK-PRINT-LINE                      CHGBR120
00352                                  AFTER ADVANCING 1 LINE           CHGBR120
00353         ADD +1                          TO WRK-LINE-CNT           CHGBR120
00354         PERFORM P4000-TOTALS          THRU P4000-EXIT             CHGBR120
00355      END-IF.                                                      CHGBR120
00356                                                                   CHGBR120
00357  P0000-EXIT.                                                      CHGBR120
00358      EXIT.                                                        CHGBR120
00359                                                                   CHGBR120
00360  P1000-CHK-FOR-NEW-PAGE.                                          CHGBR120
00361      IF CHG4-EMP-NO NOT = WRK-CURR-EMP                            CHGBR120
00362         IF WRK-CURR-EMP = ZERO                                    CHGBR120
00363 ***                                                   1ST TIME    CHGBR120
00364            MOVE CHG4-EMP-NO           TO WRK-CURR-EMP             CHGBR120
00365                                          WRK-PRT-HDR-EMP          CHGBR120
00366            MOVE CHG4-EMP-TYPE         TO WRK-PRT-EMP-TYPE         CHGBR120
00367            PERFORM P1100-PRINT-HEADER THRU P1100-EXIT             CHGBR120
00368            ADD       1                TO WRK-EMPLYR-CNT           CHGBR120
00369         ELSE                                                      CHGBR120
00370 ***                                                   NEW ONE     CHGBR120
00371            PERFORM P1200-PRINT-FOOTER THRU P1200-EXIT             CHGBR120
00372            MOVE CHG4-EMP-NO           TO WRK-CURR-EMP             CHGBR120
00373                                          WRK-PRT-HDR-EMP          CHGBR120
00374            MOVE CHG4-EMP-TYPE         TO WRK-PRT-EMP-TYPE         CHGBR120
00375            PERFORM P1100-PRINT-HEADER THRU P1100-EXIT             CHGBR120
00376            ADD       1                TO WRK-EMPLYR-CNT           CHGBR120
00377      ELSE                                                         CHGBR120
00378 ***                                                  SAME ONE     CHGBR120
00379         IF WRK-LINE-CNT > +54                                     CHGBR120
00380            PERFORM P1100-PRINT-HEADER THRU P1100-EXIT             CHGBR120
00381         END-IF                                                    CHGBR120
00382      END-IF.                                                      CHGBR120
00383                                                                   CHGBR120
00384  P1000-EXIT.                                                      CHGBR120
00385      EXIT.                                                        CHGBR120
00386                                                                   CHGBR120
00387  P1100-PRINT-HEADER.                                              CHGBR120
00388      MOVE ZERO         TO WRK-LINE-CNT                            CHGBR120
00389      ADD  1 TO WRK-PAGE-CNT.                                      CHGBR120
00390      MOVE WRK-PAGE-CNT TO WRK-PRT-PAGE-CNT.                       CHGBR120
00391      MOVE HEAD01 TO WS-REC                                        CHGBR120
00392      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING TOP-OF-PAGE     CHGBR120
00393      MOVE HEAD02 TO WS-REC                                        CHGBR120
00394      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 1 LINE          CHGBR120
00395      MOVE HEAD03 TO WS-REC                                        CHGBR120
00396      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 1 LINE          CHGBR120
00397      MOVE SPACES TO WS-REC                                        CHGBR120
00398      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 1 LINE          CHGBR120
00399      MOVE HEAD04 TO WS-REC                                        CHGBR120
00400      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 1 LINE          CHGBR120
00401      MOVE SPACES TO WS-REC                                        CHGBR120
00402      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 1 LINE          CHGBR120
00403      MOVE HEAD05 TO WS-REC                                        CHGBR120
00404      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 1 LINE          CHGBR120
00405      MOVE HEAD06 TO WS-REC                                        CHGBR120
00406      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 2 LINE          CHGBR120
00407      MOVE SPACES TO WS-REC                                        CHGBR120
00408      WRITE CWC-REPORT FROM WS-REC AFTER ADVANCING 1 LINE.         CHGBR120
00409      MOVE +10 TO WRK-LINE-CNT.                                    CHGBR120
00410                                                                   CHGBR120
00411  P1100-EXIT.                                                      CHGBR120
00412      EXIT.                                                        CHGBR120
00413                                                                   CHGBR120
00414  P1200-PRINT-FOOTER.                                              CHGBR120
00415      IF WRK-LINE-CNT > +48                                        CHGBR120
00416         PERFORM P1100-PRINT-HEADER THRU P1100-EXIT                CHGBR120
00417      END-IF                                                       CHGBR120
00418                                                                   CHGBR120
00419      MOVE WRK-TOTAL-BENEFITS           TO WRK-PRT-TOT-BEN.        CHGBR120
00420      MOVE WRK-ACCT-TOTAL               TO WRK-PRT-ACCT-TOT.       CHGBR120
00421                                                                   CHGBR120
00422      WRITE CWC-REPORT FROM WRK-PRINT-TOTAL                        CHGBR120
00423                                 AFTER ADVANCING 4 LINE.           CHGBR120
00424      WRITE CWC-REPORT FROM WRK-PRINT-TOTAL-ACCT                   CHGBR120
00425                                 AFTER ADVANCING 2 LINE.           CHGBR120
00426                                                                   CHGBR120
00427      ADD WRK-TOTAL-BENEFITS TO   WRK-GRAND-TOTAL-BENEFITS.        CHGBR120
00428      ADD WRK-ACCT-TOTAL     TO   WRK-GRAND-TOTAL-CHARGED.         CHGBR120
00429                                                                   CHGBR120
00430      MOVE ZERO              TO WRK-TOTAL-BENEFITS                 CHGBR120
00431                                WRK-ACCT-TOTAL.                    CHGBR120
00432  P1200-EXIT.                                                      CHGBR120
00433      EXIT.                                                        CHGBR120
00434                                                                   CHGBR120
00435  P4000-TOTALS.                                                    CHGBR120
00436      COMPUTE WRK-TOTAL-BENEFITS = WRK-TOTAL-BENEFITS              CHGBR120
00437         + CHG4-TOT-BEN-AMT                                        CHGBR120
00438         + CHG4-TOT-ADJ-AMT.                                       CHGBR120
00439                                                                   CHGBR120
00440      COMPUTE WRK-ACCT-TOTAL     = WRK-ACCT-TOTAL                  CHGBR120
00441         + CHG4-CURR-BEN-AMT                                       CHGBR120
00442         + CHG4-CURR-ADJ-AMT.                                      CHGBR120
00443                                                                   CHGBR120
00444  P4000-EXIT.                                                      CHGBR120
00445      EXIT.                                                        CHGBR120
00446      EJECT                                                        CHGBR120
00447                                                                   CHGBR120
00448  T0000-TERMINATE.                                                 CHGBR120
00449                                                                   CHGBR120
00450      IF WRK-EMPLYR-CNT > 0                                        CHGBR120
00451         PERFORM P1200-PRINT-FOOTER THRU P1200-EXIT                CHGBR120
00452      END-IF.                                                      CHGBR120
00453                                                                   CHGBR120
00454      IF WRK-EMPLYR-CNT > 1                                        CHGBR120
00455         PERFORM T1000-PRINT-GRAND-TOTALS THRU T1000-EXIT          CHGBR120
00456      END-IF.                                                      CHGBR120
00457                                                                   CHGBR120
00458      PERFORM T1100-CLOSE-FILES THRU T1100-EXIT.                   CHGBR120
00459  T0000-EXIT.                                                      CHGBR120
00460      EXIT.                                                        CHGBR120
00461                                                                   CHGBR120
00462  T1000-PRINT-GRAND-TOTALS.                                        CHGBR120
00463      MOVE SPACE TO HEAD04.                                        CHGBR120
00464      PERFORM P1100-PRINT-HEADER THRU P1100-EXIT.                  CHGBR120
00465                                                                   CHGBR120
00466      MOVE WRK-GRAND-TOTAL-BENEFITS   TO WRK-PRT-GRAND-TOT-BEN.    CHGBR120
00467      MOVE WRK-GRAND-TOTAL-CHARGED    TO WRK-PRT-GRAND-TOT-CHG.    CHGBR120
00468                                                                   CHGBR120
00469      WRITE CWC-REPORT FROM WRK-PRINT-GRAND-PERIOD                 CHGBR120
00470                                       AFTER ADVANCING 3.          CHGBR120
00471      WRITE CWC-REPORT FROM WRK-PRINT-GRAND                        CHGBR120
00472                                       AFTER ADVANCING 2.          CHGBR120
00473  T1000-EXIT.                                                      CHGBR120
00474      EXIT.                                                        CHGBR120
00475                                                                   CHGBR120
00476  T1100-CLOSE-FILES.                                               CHGBR120
00477                                                                   CHGBR120
00478       CLOSE CWC-RPT.                                              CHGBR120
00479                                                                   CHGBR120
00480  T1100-EXIT.                                                      CHGBR120
00481      EXIT.                                                        CHGBR120
00482                                                                   CHGBR120
00483  S001-FROM-FED-8.                                                 CHGBR120
00484      SET L001-FROM-FED-8 TO TRUE.                                 CHGBR120
00485      GO TO S001-DATE.                                             CHGBR120
00486                                                                   CHGBR120
00487  S001-DATE.                                                       CHGBR120
00488      CALL 'DTSBU001' USING L001-LINK-AREA.                        CHGBR120
00489                                                                   CHGBR120
00490  S001-EXIT.                                                       CHGBR120
00491      EXIT.                                                        CHGBR120
00492                                                                   CHGBR120
00493  S999-ABEND.                                                      CHGBR120
00494      DISPLAY '****  CHGBR120 ABENDING '                           CHGBR120
00495         ABEND-MSG.                                                CHGBR120
00496      CALL ABEND-MOD USING WRK-ABEND-CODE.                         CHGBR120
00497                                                                   CHGBR120
00498  S999-EXIT.                                                       CHGBR120
00499      EXIT.                                                        CHGBR120
