00001  IDENTIFICATION DIVISION.                                         05/25/10
00002  PROGRAM-ID.             CHGBR112.                                CHGBR112
00003 *AUTHOR.                 TCL.                                        LV025
00004 *DATE-WRITTEN.           JULY 1999.                               CHGBR112
00005  DATE-COMPILED.                                                   CHGBR112
00006      SKIP3                                                        CHGBR112
00007 *****                                                             CHGBR112
00008 *    CALLING SEQUENCE:  CHGBD300 CALLS                            CHGBR112
00009 *                       CHGBR112 READS BD210-CHG-REC              CHGBR112
00010 *                       CHGBR112 THEN WRITES T0260-TAX-REC        CHGBR112
00011 *****                                                             CHGBR112
00012 *                                                                 CHGBR112
00013 *    FUNCTION:                                                    CHGBR112
00014 *                                                                 CHGBR112
00015 *        CREATE T026 TRANSACTION RECORDS TO EXPORT BENEFIT        CHGBR112
00016 *        CHARGES TO TAX MASTER FILE.                              CHGBR112
00017 *                                                                 CHGBR112
00018 *        INPUT:                                                   CHGBR112
00019 *                                                                 CHGBR112
00020 *            CHGBD210 OUTPUT BENEFIT CHARGE FILE                  CHGBR112
00021 *                                                                 CHGBR112
00022 *       OUTPUT: NONE                                              CHGBR112
00023 *                                                                 CHGBR112
00024 *       RECORDS READ:                                             CHGBR112
00025 *                                                                 CHGBR112
00026 *         BD210-CHG-REC                                           CHGBR112
00027 *                                                                 CHGBR112
00028 *                                                                 CHGBR112
00029 *    MODULES CALLED:                                              CHGBR112
00030 *                                                                 CHGBR112
00031 *        DTSBU004 QUARTER EDIT/CONVERSION MODULE                  CHGBR112
00032 *        DTSBU005 ABSOLUTE TIME EDIT/CONVERSION MODULE            CHGBR112
00033 *        DTSBU927 BATCH TRANSACTION COLLECTION MODULE             CHGBR112
00034 *                                                                 CHGBR112
00035 *****                                                             CHGBR112
00036                                                                   CHGBR112
00037 ******************************************************************CHGBR112
00038 * MODIFICATION HISTORY:                                          *CHGBR112
00039 *                                                                *CHGBR112
00040 * 07-02-1999 NEW DEVELOPMENT                                     *CHGBR112
00041 *            REFERENCE RFP #              AUTHOR OF CHANGE - GD  *CHGBR112
00042 *                                                                *CHGBR112
00043 *                                                                *CHGBR112
00044 * 05-14-2010 RECOMPILE FOR NEW VERSION OF CHGIM004               *CHGBR112
00045 *            REFERENCE RFP #              AUTHOR OF CHANGE - ZL1 *CHGBR112
00046 *                                                                *CHGBR112
00047 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR112
00048 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR112
00049 *            REFERENCE RFP #****          AUTHOR OF CHANGE - *** *CHGBR112
00050 ******************************************************************CHGBR112
00051                                                                   CHGBR112
00052      SKIP3                                                        CHGBR112
00053  ENVIRONMENT DIVISION.                                            CHGBR112
00054      SKIP3                                                        CHGBR112
00055  DATA DIVISION.                                                   CHGBR112
00056  WORKING-STORAGE SECTION.                                         CHGBR112
000565 77  PAN-VALET PICTURE X(24) VALUE '025CHGBR112  05/25/10'.       CHGBR112
00057                                                                   CHGBR112
00058  01  WRK-AREA.                                                    CHGBR112
00059      05  WRK-ABEND-CODE              PIC S9(04)  COMP             CHGBR112
00060                                  VALUE +120.                      CHGBR112
00061      05  ABEND-MSG                   PIC  X(60).                  CHGBR112
00062                                                                   CHGBR112
00063      05  WRK-FIRST-TIME-IND          PIC  X(01) VALUE 'Y'.        CHGBR112
00064          88  WRK-FIRST-TIME-YES-88 VALUE 'Y'.                     CHGBR112
00065          88  WRK-FIRST-TIME-NO-88  VALUE 'N'.                     CHGBR112
00066                                                                   CHGBR112
00067      05  WRK-ERROR-IND               PIC  X(01).                  CHGBR112
00068          88  WRK-ERROR-YES-88    VALUE 'Y'.                       CHGBR112
00069          88  WRK-ERROR-NO-88     VALUE 'N'.                       CHGBR112
00070                                                                   CHGBR112
00071      05  WRK-CURR-EMP                PIC S9(07) COMP-3.           CHGBR112
00072      05  WRK-NAME-CHK                PIC  X(04).                  CHGBR112
00073      05  WRK-TOT-CHG-AMT             PIC S9(07)V99 COMP-3.        CHGBR112
00074      05  WRK-TOT-CHG-AMT-DISP        PIC  Z(06)9.99-.             CHGBR112
00075      05  WRK-BEN-AMT-DISP            PIC  Z(06)9.99-.             CHGBR112
00076      05  WRK-ADJ-AMT-DISP            PIC  Z(06)9.99-.             CHGBR112
00077      05  WRK-SUBJECT-QTR             PIC S9(05)  COMP-3.          CHGBR112
00078                                                                   CHGBR112
00079  01  L004-LINK-AREA.                                              CHGBR112
00080  ++INCLUDE DTSIL004                                               CHGBR112
00081                                                                   CHGBR112
00082  01  L005-LINK-AREA.                                              CHGBR112
00083  ++INCLUDE DTSIL005                                               CHGBR112
00084                                                                   CHGBR112
00085  01  L927-LINK-AREA.                                              CHGBR112
00086  ++INCLUDE DTSIL927                                               CHGBR112
00087                                                                   CHGBR112
00088  01  T026-REC.                                                    CHGBR112
00089  ++INCLUDE DTSIT026                                               CHGBR112
00090                                                                   CHGBR112
00091      EJECT                                                        CHGBR112
00092  LINKAGE SECTION.                                                 CHGBR112
00093  01  CHG-LINK-REC.                                                CHGBR112
00094  ++INCLUDE CHGIL001                                               CHGBR112
00095                                                                   CHGBR112
00096  01  BD210-CHG-REC.                                               CHGBR112
00097  ++INCLUDE CHGIM004                                               CHGBR112
00098                                                                   CHGBR112
00099  PROCEDURE DIVISION USING CHG-LINK-REC                            CHGBR112
00100                           BD210-CHG-REC.                          CHGBR112
00101      SKIP2                                                        CHGBR112
00102  CHGBR112-MAIN.                                                   CHGBR112
00103      IF CHG-LINK1-COMMAND = 'P'                                   CHGBR112
00104         PERFORM P0000-PROCESS THRU P0000-EXIT                     CHGBR112
00105      ELSE                                                         CHGBR112
00106      IF CHG-LINK1-COMMAND = 'I'                                   CHGBR112
00107         PERFORM I0000-INITIATE THRU I0000-EXIT                    CHGBR112
00108      ELSE                                                         CHGBR112
00109         PERFORM T0000-TERMINATE THRU T0000-EXIT.                  CHGBR112
00110                                                                   CHGBR112
00111  CHGBR112-EXIT.                                                   CHGBR112
00112      GOBACK.                                                      CHGBR112
00113      EJECT                                                        CHGBR112
00114  I0000-INITIATE.                                                  CHGBR112
00115      MOVE ZERO TO WRK-CURR-EMP                                    CHGBR112
00116                   WRK-TOT-CHG-AMT.                                CHGBR112
00117                                                                   CHGBR112
00118      PERFORM S927-OPEN-UPDATE THRU S927-EXIT.                     CHGBR112
00119                                                                   CHGBR112
00120      MOVE LENGTH OF T026-REC TO T026-LENGTH.                      CHGBR112
00121                                                                   CHGBR112
00122      MOVE '026' TO T026-REC-TYPE.                                 CHGBR112
00123                                                                   CHGBR112
00124      MOVE 'SYSTEM' TO T026-ORIGIN.                                CHGBR112
00125                                                                   CHGBR112
00126      PERFORM S005-FROM-SYS THRU S005-EXIT.                        CHGBR112
00127                                                                   CHGBR112
00128      MOVE L005-DATE TO T026-SYS-DATE.                             CHGBR112
00129                                                                   CHGBR112
00130      MOVE L005-TIME TO T026-SYS-TIME.                             CHGBR112
00131                                                                   CHGBR112
00132      MOVE LOW-VALUES TO T026-DATA-AREA.                           CHGBR112
00133                                                                   CHGBR112
00134      MOVE CHG-LINK1-PERIOD-BEGIN TO L004-DATE.                    CHGBR112
00135      PERFORM S004-FROM-DATE THRU S004-EXIT.                       CHGBR112
00136      MOVE L004-QTR-5-9 TO WRK-SUBJECT-QTR.                        CHGBR112
00137                                                                   CHGBR112
00138  I0000-EXIT.                                                      CHGBR112
00139      EXIT.                                                        CHGBR112
00140                                                                   CHGBR112
00141  P0000-PROCESS.                                                   CHGBR112
00142 *&                                                                CHGBR112
00143      IF CHG4-EMP-NO <= 010172                                     CHGBR112
00144         MOVE CHG4-CURR-BEN-AMT TO WRK-BEN-AMT-DISP.               CHGBR112
00145         MOVE CHG4-CURR-ADJ-AMT TO WRK-ADJ-AMT-DISP.               CHGBR112
00146 **      DISPLAY 'P0000 ' CHG4-EMP-NO '  ' CHG4-SSN                CHGBR112
00147 **         '  ' WRK-BEN-AMT-DISP                                  CHGBR112
00148 **         '  ' WRK-ADJ-AMT-DISP.                                 CHGBR112
00149 *&                                                                CHGBR112
00150      IF CHG4-EMP-NO NOT = WRK-CURR-EMP                            CHGBR112
00151         IF WRK-CURR-EMP NOT = ZERO                                CHGBR112
00152            PERFORM P3000-GENERATE-T026 THRU P3000-EXIT            CHGBR112
00153            PERFORM P1000-INIT-EMP      THRU P1000-EXIT            CHGBR112
00154            PERFORM P2000-ACCUM-CHG     THRU P2000-EXIT            CHGBR112
00155         ELSE                                                      CHGBR112
00156            PERFORM P1000-INIT-EMP      THRU P1000-EXIT            CHGBR112
00157            PERFORM P2000-ACCUM-CHG     THRU P2000-EXIT            CHGBR112
00158         END-IF                                                    CHGBR112
00159      ELSE                                                         CHGBR112
00160         PERFORM P2000-ACCUM-CHG        THRU P2000-EXIT.           CHGBR112
00161                                                                   CHGBR112
00162  P0000-EXIT.                                                      CHGBR112
00163      EXIT.                                                        CHGBR112
00164                                                                   CHGBR112
00165  P1000-INIT-EMP.                                                  CHGBR112
00166      MOVE CHG4-EMP-NO       TO WRK-CURR-EMP.                      CHGBR112
00167      MOVE CHG4-EMP-NAME-CHK TO WRK-NAME-CHK.                      CHGBR112
00168      MOVE ZERO              TO WRK-TOT-CHG-AMT.                   CHGBR112
00169                                                                   CHGBR112
00170  P1000-EXIT.                                                      CHGBR112
00171      EXIT.                                                        CHGBR112
00172                                                                   CHGBR112
00173  P2000-ACCUM-CHG.                                                 CHGBR112
00174      COMPUTE WRK-TOT-CHG-AMT =                                    CHGBR112
00175          WRK-TOT-CHG-AMT     +                                    CHGBR112
00176          CHG4-CURR-BEN-AMT   +                                    CHGBR112
00177          CHG4-CURR-ADJ-AMT.                                       CHGBR112
00178                                                                   CHGBR112
00179  P2000-EXIT.                                                      CHGBR112
00180      EXIT.                                                        CHGBR112
00181                                                                   CHGBR112
00182  P3000-GENERATE-T026.                                             CHGBR112
00183      MOVE WRK-CURR-EMP TO T026-EMP-NO.                            CHGBR112
00184                                                                   CHGBR112
00185      SET T026-REIMB-CHG TO TRUE.                                  CHGBR112
00186                                                                   CHGBR112
00187      MOVE WRK-NAME-CHK      TO T026-NAME-CHECK.                   CHGBR112
00188                                                                   CHGBR112
00189      MOVE WRK-TOT-CHG-AMT TO T026-AMT.                            CHGBR112
00190                                                                   CHGBR112
00191      MOVE +0 TO T026-RECEIVED-DATE.                               CHGBR112
00192                                                                   CHGBR112
00193      MOVE WRK-SUBJECT-QTR TO T026-APPLIC-YRQ.                     CHGBR112
00194                                                                   CHGBR112
00195      MOVE SPACES TO T026-APPLIC-IND                               CHGBR112
00196                     T026-INT-SPAN-IND.                            CHGBR112
00197                                                                   CHGBR112
00198      MOVE +0 TO T026-APPLIC-BATCH-NO                              CHGBR112
00199                 T026-APPLIC-ITEM-NO                               CHGBR112
00200                 T026-DATE-1                                       CHGBR112
00201                 T026-DATE-2.                                      CHGBR112
00202                                                                   CHGBR112
00203                                                                   CHGBR112
00204      SET T026-NO-INT-RATE-88 TO TRUE.                             CHGBR112
00205                                                                   CHGBR112
00206      MOVE 'SYS' TO T026-RESPONSIBLE-ACTIVITY.                     CHGBR112
00207                                                                   CHGBR112
00208      MOVE 'SYSTEM' TO T026-RESPONSIBLE-OP-ID.                     CHGBR112
00209                                                                   CHGBR112
00210                                                                   CHGBR112
00211 *&                                                                CHGBR112
00212 *    IF WRK-CURR-EMP = 010170                                     CHGBR112
00213         MOVE WRK-TOT-CHG-AMT TO WRK-TOT-CHG-AMT-DISP.             CHGBR112
00214 **      DISPLAY 'P3000 ' WRK-CURR-EMP                             CHGBR112
00215 **         '  ' WRK-TOT-CHG-AMT-DISP                              CHGBR112
00216 **         '  ' WRK-NAME-CHK                                      CHGBR112
00217 **         '  ' WRK-SUBJECT-QTR.                                  CHGBR112
00218 *&                                                                CHGBR112
00219      PERFORM S927-WRITE THRU S927-EXIT.                           CHGBR112
00220                                                                   CHGBR112
00221  P3000-EXIT.                                                      CHGBR112
00222      EXIT.                                                        CHGBR112
00223      EJECT                                                        CHGBR112
00224  T0000-TERMINATE.                                                 CHGBR112
00225      IF WRK-TOT-CHG-AMT NOT = ZERO                                CHGBR112
00226         PERFORM P3000-GENERATE-T026 THRU P3000-EXIT.              CHGBR112
00227                                                                   CHGBR112
00228      PERFORM S927-CLOSE THRU S927-EXIT.                           CHGBR112
00229  T0000-EXIT.                                                      CHGBR112
00230      EXIT.                                                        CHGBR112
00231      EJECT                                                        CHGBR112
00232  S004-FROM-DATE.                                                  CHGBR112
00233      SET L004-FROM-DATE TO TRUE.                                  CHGBR112
00234      GO TO S004-YRQ.                                              CHGBR112
00235                                                                   CHGBR112
00236  S004-YRQ.                                                        CHGBR112
00237      CALL 'DTSBU004' USING L004-LINK-AREA.                        CHGBR112
00238  S004-EXIT.                                                       CHGBR112
00239      EXIT.                                                        CHGBR112
00240                                                                   CHGBR112
00241  S005-FROM-SYS.                                                   CHGBR112
00242      SET L005-FROM-SYS TO TRUE.                                   CHGBR112
00243      GO TO S005-ABSTIME.                                          CHGBR112
00244                                                                   CHGBR112
00245  S005-ABSTIME.                                                    CHGBR112
00246      CALL 'DTSBU005' USING L005-LINK-AREA.                        CHGBR112
00247  S005-EXIT.                                                       CHGBR112
00248      EXIT.                                                        CHGBR112
00249                                                                   CHGBR112
00250  S927-OPEN-UPDATE.                                                CHGBR112
00251      SET L927-OPEN-UPDATE-88 TO TRUE.                             CHGBR112
00252      GO TO S927-BTC-O.                                            CHGBR112
00253                                                                   CHGBR112
00254  S927-WRITE.                                                      CHGBR112
00255      SET L927-WRITE-88 TO TRUE.                                   CHGBR112
00256      GO TO S927-BTC-O.                                            CHGBR112
00257                                                                   CHGBR112
00258  S927-CLOSE.                                                      CHGBR112
00259      SET L927-CLOSE-88 TO TRUE.                                   CHGBR112
00260      GO TO S927-BTC-O.                                            CHGBR112
00261                                                                   CHGBR112
00262  S927-BTC-O.                                                      CHGBR112
00263      CALL 'DTSBU927' USING L927-LINK-AREA                         CHGBR112
00264                            T026-REC.                              CHGBR112
00265  S927-EXIT.                                                       CHGBR112
00266      EXIT.                                                        CHGBR112
00267      SKIP3                                                        CHGBR112
00268                                                                   CHGBR112
00269                                                                   CHGBR112
00270                                                                   CHGBR112
00271  S999-ABEND.                                                      CHGBR112
00272      DISPLAY '****  CHGBR100 ABENDING '                           CHGBR112
00273         ABEND-MSG.                                                CHGBR112
00274 *& ABEND COMMENTED OUT FOR TESTING                                CHGBR112
00275      CALL 'DTSBU999' USING WRK-ABEND-CODE.                        CHGBR112
00276      SET WRK-ERROR-YES-88 TO TRUE.                                CHGBR112
00277  S999-EXIT.                                                       CHGBR112
00278      EXIT.                                                        CHGBR112
