00001  IDENTIFICATION DIVISION.                                         05/08/09
00002  PROGRAM-ID.             DTSBX215.                                DTSBX215
00003  AUTHOR.                 NORTHROP GRUMMAN                            LV017
00004  DATE-WRITTEN.           MAY 2005.                                DTSBX215
00005 *DATE-MODIFIED.                                                   DTSBX215
00006  DATE-COMPILED.                                                   DTSBX215
00007                                                                   DTSBX215
00008 *****                                                             DTSBX215
00009 *                                                                 DTSBX215
00010 *    FUNCTION:  EXTRACT R301 ACCOUNTING BATCH REPORT RECORDS      DTSBX215
00011 *               AND R906 ONLINE UPDATE LOG RECORDS                DTSBX215
00012 *               FOR DOWNLOAD TO SQL SERVER DATABASE               DTSBX215
00013 *                                                                 DTSBX215
00014 *    MODIFICATION HISTORY:                                        DTSBX215
00015 *                                                                 DTSBX215
00016 * 05-13-2005 INITIAL DEVELOPMENT.                                 DTSBX215
00017 *          REFERENCE RFP #****            AUTHOR OF CHANGE - RW1  DTSBX215
00018 *                                                                 DTSBX215
00019 * 09-14-2006 ADDED 906 ONLINE ACTIVITY LOG RECORDS                DTSBX215
00020 *          REFERENCE RFP #****            AUTHOR OF CHANGE - GD   DTSBX215
00021 *                                                                 DTSBX215
00022 * 07-17-2008 REMOVED PROCESSING FOR AUDITS.  THIS FUNCTION        DTSBX215
00023 *            HAS BEEN MOVED TO DTSBX344.                          DTSBX215
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - GD   DTSBX215
00025 *                                                                 DTSBX215
00026 * 11-05-2008 MODIFIED R301 SELECTION TO INCLUDE ONLY RECORDS      DTSBX215
00027 *            CREATED ON THE CURRENT DATE.  MODIFIED THE PROC      DTSBX215
00028 *            TO READ ONLY THE CURRENT GDG GENERTION.              DTSBX215
00029 *          REFERENCE RFP #****            AUTHOR OF CHANGE - GD   DTSBX215
00030 *                                                                 DTSBX215
00031 * 04-17-2009 ADDED CODE IN P4000 AND P4100 TO WRITE DUMMY         DTSBX215
00032 *            RECORDS IF THERE IS NO DATA TO OUTPUT. THIS          DTSBX215
00033 *            PREVENTS PROBLEMS WITH LOADING THE FILES TO          DTSBX215
00034 *            THE SERVER DATABASE.                                 DTSBX215
00035 *          REFERENCE RFP #****            AUTHOR OF CHANGE - GD   DTSBX215
00036 *                                                                 DTSBX215
00037 * 05-05-2009 ADDED AN ADDITIONAL FILE FOR DATA ABOUT DEPOSITS.    DTSBX215
00038 *          REFERENCE RFP #****            AUTHOR OF CHANGE - GD   DTSBX215
00039 *                                                                 DTSBX215
00040 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBX215
00041 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBX215
00042 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBX215
00043 *                                                                 DTSBX215
00044 *    DESCRIPTION:                                                 DTSBX215
00045 *                                                                 DTSBX215
00046 *        DTSBX215 READS SEVERAL MAINFRAME DATA SOURCES, AND       DTSBX215
00047 *        PRODUCES FILES FOR DOWNLOAD TO A SQL SERVER DATABASE.    DTSBX215
00048 *                                                                 DTSBX215
00049 *        1. ACCOUNTING BATCH STATUS:  THE R301 REPORT RECORDS     DTSBX215
00050 *                                                                 DTSBX215
00051 *                                                                 DTSBX215
00052 *                                                                 DTSBX215
00053 *    RECORDS READ:                                                DTSBX215
00054 *                                                                 DTSBX215
00055 *        EXTRACT R301 RECORDS FROM THE SORT DAILY REPORT FILE     DTSBX215
00056 *                                                                 DTSBX215
00057 *    PRINTED OUTPUTS:                                             DTSBX215
00058 *                                                                 DTSBX215
00059 *       NONE.                                                     DTSBX215
00060 *                                                                 DTSBX215
00061 *    RECORDS WRITTEN:                                             DTSBX215
00062 *                                                                 DTSBX215
00063 *        A COMMA SEPARATED BATCH CONTROL SUMMARY INFORMATION.     DTSBX215
00064 *                                                                 DTSBX215
00065 *    MODULES CALLED:                                              DTSBX215
00066 *                                                                 DTSBX215
00067 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBX215
00068 *        DTSBU005 DATE EDIT/CONVERSION MODULE                     DTSBX215
00069 *        DTSBU941 VARIABLE LENGTH RECORD READ                     DTSBX215
00070 *                                                                 DTSBX215
00071 *****                                                             DTSBX215
00072                                                                   DTSBX215
00073  ENVIRONMENT DIVISION.                                            DTSBX215
00074                                                                   DTSBX215
00075  CONFIGURATION SECTION.                                           DTSBX215
00076                                                                   DTSBX215
00077  INPUT-OUTPUT SECTION.                                            DTSBX215
00078                                                                   DTSBX215
00079  FILE-CONTROL.                                                    DTSBX215
00080      SELECT BX215-BATCH-FILE       ASSIGN TO DTSFX215             DTSBX215
00081             FILE STATUS IS BX215-STATUS.                          DTSBX215
00082                                                                   DTSBX215
00083      SELECT BX220-ACTIVITY-FILE    ASSIGN TO DTSFX220             DTSBX215
00084             FILE STATUS IS BX220-STATUS.                          DTSBX215
00085                                                                   DTSBX215
00086      SELECT DEPOSIT-FILE           ASSIGN TO DTSFDPST             DTSBX215
00087             FILE STATUS IS DEPOSIT-STATUS.                        DTSBX215
00088                                                                   DTSBX215
00089  DATA DIVISION.                                                   DTSBX215
00090                                                                   DTSBX215
00091  FILE SECTION.                                                    DTSBX215
00092                                                                   DTSBX215
00093  FD  BX215-BATCH-FILE                                             DTSBX215
00094      RECORDING MODE IS F                                          DTSBX215
00095      BLOCK CONTAINS 0 RECORDS                                     DTSBX215
00096      LABEL RECORDS ARE OMITTED.                                   DTSBX215
00097                                                                   DTSBX215
00098  01  BX215-REC               PIC X(103).                          DTSBX215
00099                                                                   DTSBX215
00100  FD  BX220-ACTIVITY-FILE                                          DTSBX215
00101      RECORDING MODE IS F                                          DTSBX215
00102      BLOCK CONTAINS 0 RECORDS                                     DTSBX215
00103      LABEL RECORDS ARE OMITTED.                                   DTSBX215
00104                                                                   DTSBX215
00105  01  BX220-REC               PIC X(52).                           DTSBX215
00106                                                                   DTSBX215
00107  FD  DEPOSIT-FILE                                                 DTSBX215
00108      RECORDING MODE IS F                                          DTSBX215
00109      BLOCK CONTAINS 0 RECORDS                                     DTSBX215
00110      LABEL RECORDS ARE OMITTED.                                   DTSBX215
00111                                                                   DTSBX215
00112  01  DEPOSIT-REC             PIC X(103).                          DTSBX215
00113                                                                   DTSBX215
00114  WORKING-STORAGE SECTION.                                         DTSBX215
001145 77  PAN-VALET PICTURE X(24) VALUE '017DTSBX215  05/08/09'.       DTSBX215
00115  01  WRK-AREA.                                                    DTSBX215
00116      05  FILE-STATUS                  PIC 9(02) VALUE ZEROS.      DTSBX215
00117      05  WRK-MOD-NAME                 PIC X(08) VALUE 'DTSBX215'. DTSBX215
00118                                                                   DTSBX215
00119      05  WRK-ERROR-IND                PIC  X(01) VALUE 'N'.       DTSBX215
00120          88  WRK-ERROR-YES-88          VALUE 'Y'.                 DTSBX215
00121          88  WRK-ERROR-NO-88           VALUE 'N'.                 DTSBX215
00122                                                                   DTSBX215
00123      05  BX215-STATUS                 PIC  X(02).                 DTSBX215
00124          88  BX215-STATUS-OK-88        VALUE '00'.                DTSBX215
00125      05  BX220-STATUS                 PIC  X(02).                 DTSBX215
00126          88  BX220-STATUS-OK-88        VALUE '00'.                DTSBX215
00127      05  DEPOSIT-STATUS               PIC  X(02).                 DTSBX215
00128          88  DEPOSIT-STATUS-OK-88      VALUE '00'.                DTSBX215
00129                                                                   DTSBX215
00130      05  WRK-BYPASS-906-IND           PIC  X(01).                 DTSBX215
00131          88  WRK-BYPASS-906-YES-88     VALUE 'Y'.                 DTSBX215
00132          88  WRK-BYPASS-906-NO-88      VALUE 'N'.                 DTSBX215
00133                                                                   DTSBX215
00134      05  WRK-SELECT-FAS-IND           PIC  X(01).                 DTSBX215
00135          88  WRK-SELECT-FAS-YES-88     VALUE 'Y'.                 DTSBX215
00136          88  WRK-SELECT-FAS-NO-88      VALUE 'N'.                 DTSBX215
00137                                                                   DTSBX215
00138      05  WRK-SELECT-RPT-IND           PIC  X(01).                 DTSBX215
00139          88  WRK-SELECT-RPT-YES-88     VALUE 'Y'.                 DTSBX215
00140          88  WRK-SELECT-RPT-NO-88      VALUE 'N'.                 DTSBX215
00141                                                                   DTSBX215
00142      05  WRK-ABEND-CD                 PIC S9(04) COMP  VALUE +310.DTSBX215
00143      05  WRK-PRIOR-RUN-DATE           PIC S9(09) COMP-3.          DTSBX215
00144      05  WRK-CURR-RUN-DATE            PIC S9(09) COMP-3.          DTSBX215
00145      05  WRK-READ-CNT                 PIC S9(07) COMP-3 VALUE +0. DTSBX215
00146      05  WRK-X215-CNT                 PIC S9(07) COMP-3 VALUE +0. DTSBX215
00147      05  WRK-X220-CNT                 PIC S9(07) COMP-3 VALUE +0. DTSBX215
00148      05  WRK-DEPOSIT-CNT              PIC S9(07) COMP-3 VALUE +0. DTSBX215
00149                                                                   DTSBX215
00150      05  WRK-906-OPID                 PIC  X(08).                 DTSBX215
00151      05  WRK-906-EMP                  PIC S9(07) COMP-3.          DTSBX215
00152      05  WRK-906-SCREEN               PIC  X(02).                 DTSBX215
00153      05  WRK-906-DATE                 PIC S9(09) COMP-3.          DTSBX215
00154      05  WRK-906-TIME                 PIC S9(07) COMP-3.          DTSBX215
00155                                                                   DTSBX215
00156      05  DISP-REMIT                   PIC --,---,---,--9.99.      DTSBX215
00157      05  DISP-WRK-READ-CNT            PIC ZZ,ZZZ,ZZ9.             DTSBX215
00158      05  DISP-WRK-WRITE-CNT           PIC ZZ,ZZZ,ZZ9.             DTSBX215
00159                                                                   DTSBX215
00160  01  WRK-X215-REC.                                                DTSBX215
00161  ++INCLUDE DTSIX215                                               DTSBX215
00162                                                                   DTSBX215
00163  01  WRK-X220-REC.                                                DTSBX215
00164  ++INCLUDE DTSIX220                                               DTSBX215
00165                                                                   DTSBX215
00166  01  WRK-X220-CODES.                                              DTSBX215
00167  ++INCLUDE DTSIC220                                               DTSBX215
00168                                                                   DTSBX215
00169  01  L062-LINK-AREA.                                              DTSBX215
00170  ++INCLUDE DTSIL062                                               DTSBX215
00171                                                                   DTSBX215
00172  01  L001-LINK-AREA.                                              DTSBX215
00173  ++INCLUDE DTSIL001                                               DTSBX215
00174                                                                   DTSBX215
00175  01  L005-LINK-AREA.                                              DTSBX215
00176  ++INCLUDE DTSIL005                                               DTSBX215
00177                                                                   DTSBX215
00178  01  L910-LINK-AREA.                                              DTSBX215
00179  ++INCLUDE DTSIL910                                               DTSBX215
00180                                                                   DTSBX215
00181  01  MSKL-REC.                                                    DTSBX215
00182  ++INCLUDE DTSIMSKL                                               DTSBX215
00183                                                                   DTSBX215
00184  01  MHDR-REC.                                                    DTSBX215
00185  ++INCLUDE DTSIMHDR                                               DTSBX215
00186                                                                   DTSBX215
00187  01  MPRF-REC.                                                    DTSBX215
00188  ++INCLUDE DTSIMPRF                                               DTSBX215
00189                                                                   DTSBX215
00190  01  MFAS-REC.                                                    DTSBX215
00191  ++INCLUDE DTSIMFAS                                               DTSBX215
00192                                                                   DTSBX215
00193  01  MEVL-REC.                                                    DTSBX215
00194  ++INCLUDE DTSIMEVL                                               DTSBX215
00195                                                                   DTSBX215
00196  01  MRPT-REC.                                                    DTSBX215
00197  ++INCLUDE DTSIMRPT                                               DTSBX215
00198                                                                   DTSBX215
00199  01  L941-LINK-AREA.                                              DTSBX215
00200  ++INCLUDE DTSIL941                                               DTSBX215
00201                                                                   DTSBX215
00202  01  RSK3-REC.                                                    DTSBX215
00203  ++INCLUDE DTSIRSK3                                               DTSBX215
00204                                                                   DTSBX215
00205  01  R301-REC.                                                    DTSBX215
00206  ++INCLUDE DTSIR301                                               DTSBX215
00207                                                                   DTSBX215
00208  01  R906-REC.                                                    DTSBX215
00209  ++INCLUDE DTSIR906                                               DTSBX215
00210                                                                   DTSBX215
00211  PROCEDURE DIVISION.                                              DTSBX215
00212      PERFORM I0000-INITIATE     THRU I0000-EXIT.                  DTSBX215
00213      IF WRK-ERROR-NO-88                                           DTSBX215
00214         PERFORM P0000-PROCESS      THRU P0000-EXIT                DTSBX215
00215         PERFORM T0000-TERMINATE    THRU T0000-EXIT                DTSBX215
00216      END-IF.                                                      DTSBX215
00217                                                                   DTSBX215
00218      GOBACK.                                                      DTSBX215
00219                                                                   DTSBX215
00220  I0000-INITIATE.                                                  DTSBX215
00221      PERFORM I2000-OPEN-FILES     THRU I2000-EXIT.                DTSBX215
00222      IF WRK-ERROR-NO-88                                           DTSBX215
00223         PERFORM I3000-READ-MHDR      THRU I3000-EXIT              DTSBX215
00224      END-IF.                                                      DTSBX215
00225                                                                   DTSBX215
00226  I0000-EXIT.                                                      DTSBX215
00227      EXIT.                                                        DTSBX215
00228                                                                   DTSBX215
00229  I2000-OPEN-FILES.                                                DTSBX215
00230      OPEN OUTPUT BX215-BATCH-FILE.                                DTSBX215
00231      IF BX215-STATUS-OK-88                                        DTSBX215
00232         NEXT SENTENCE                                             DTSBX215
00233      ELSE                                                         DTSBX215
00234         SET WRK-ERROR-YES-88   TO TRUE                            DTSBX215
00235         DISPLAY 'CANNOT OPEN BX215 FILE ' BX215-STATUS            DTSBX215
00236         GO TO I2000-EXIT                                          DTSBX215
00237      END-IF.                                                      DTSBX215
00238                                                                   DTSBX215
00239      OPEN OUTPUT BX220-ACTIVITY-FILE.                             DTSBX215
00240      IF BX220-STATUS-OK-88                                        DTSBX215
00241         NEXT SENTENCE                                             DTSBX215
00242      ELSE                                                         DTSBX215
00243         SET WRK-ERROR-YES-88   TO TRUE                            DTSBX215
00244         DISPLAY 'CANNOT OPEN BX220 FILE ' BX220-STATUS            DTSBX215
00245         GO TO I2000-EXIT                                          DTSBX215
00246      END-IF.                                                      DTSBX215
00247                                                                   DTSBX215
00248      OPEN OUTPUT DEPOSIT-FILE.                                    DTSBX215
00249      IF DEPOSIT-STATUS-OK-88                                      DTSBX215
00250         NEXT SENTENCE                                             DTSBX215
00251      ELSE                                                         DTSBX215
00252         SET WRK-ERROR-YES-88   TO TRUE                            DTSBX215
00253         DISPLAY 'CANNOT OPEN DEPOSIT FILE ' DEPOSIT-STATUS        DTSBX215
00254         GO TO I2000-EXIT                                          DTSBX215
00255      END-IF.                                                      DTSBX215
00256                                                                   DTSBX215
00257                                                                   DTSBX215
00258      MOVE 'N'               TO L910-TRACE-IND                     DTSBX215
00259                                L941-TRACE-IND.                    DTSBX215
00260      MOVE WRK-MOD-NAME      TO L910-MOD-NAME                      DTSBX215
00261                                L941-MOD-NAME.                     DTSBX215
00262                                                                   DTSBX215
00263      PERFORM S910-OPEN-READ   THRU S910-EXIT.                     DTSBX215
00264      PERFORM S941-OPEN        THRU S941-EXIT.                     DTSBX215
00265                                                                   DTSBX215
00266  I2000-EXIT.                                                      DTSBX215
00267      EXIT.                                                        DTSBX215
00268                                                                   DTSBX215
00269  I3000-READ-MHDR.                                                 DTSBX215
00270      MOVE LOW-VALUES              TO MSKL-REC.                    DTSBX215
00271      MOVE +0                      TO MSKL-EMP-NO.                 DTSBX215
00272      SET MSKL-HDR-88              TO TRUE.                        DTSBX215
00273                                                                   DTSBX215
00274      PERFORM S910-READ            THRU S910-EXIT.                 DTSBX215
00275      IF L910-NO-REC-88                                            DTSBX215
00276         DISPLAY 'DTSBX215: MHDR RECORD IS MISSING'                DTSBX215
00277         SET WRK-ERROR-YES-88      TO TRUE                         DTSBX215
00278         GO TO I3000-EXIT                                          DTSBX215
00279      ELSE                                                         DTSBX215
00280         MOVE MSKL-REC             TO MHDR-REC                     DTSBX215
00281         MOVE MHDR-PRIOR-RUN-DATE  TO WRK-PRIOR-RUN-DATE           DTSBX215
00282         MOVE MHDR-CURR-RUN-DATE   TO WRK-CURR-RUN-DATE            DTSBX215
00283      END-IF.                                                      DTSBX215
00284                                                                   DTSBX215
00285                                                                   DTSBX215
00286      MOVE WRK-PRIOR-RUN-DATE            TO L001-FED-8-DATE-9.     DTSBX215
00287      PERFORM S001-FROM-FED-8            THRU S001-EXIT.           DTSBX215
00288      DISPLAY 'FINDING R301 RECORDS FROM ' L001-SLASH-8-DATE.      DTSBX215
00289                                                                   DTSBX215
00290      MOVE WRK-PRIOR-RUN-DATE            TO L001-FED-8-DATE-9.     DTSBX215
00291      PERFORM S001-FROM-FED-8            THRU S001-EXIT.           DTSBX215
00292      DISPLAY 'FINDING R906 RECORDS FROM ' L001-SLASH-8-DATE.      DTSBX215
00293                                                                   DTSBX215
00294  I3000-EXIT.                                                      DTSBX215
00295      EXIT.                                                        DTSBX215
00296                                                                   DTSBX215
00297  P0000-PROCESS.                                                   DTSBX215
00298      PERFORM P1000-FROM-RPTS     THRU P1000-EXIT.                 DTSBX215
00299      PERFORM P2000-FROM-EVL      THRU P2000-EXIT.                 DTSBX215
00300                                                                   DTSBX215
00301      IF WRK-X215-CNT = ZERO                                       DTSBX215
00302         PERFORM P4000-WRITE-X215-DUMMY   THRU P4000-EXIT          DTSBX215
00303      END-IF.                                                      DTSBX215
00304                                                                   DTSBX215
00305      IF WRK-X220-CNT = ZERO                                       DTSBX215
00306         PERFORM P4100-WRITE-X220-DUMMY   THRU P4100-EXIT          DTSBX215
00307      END-IF.                                                      DTSBX215
00308                                                                   DTSBX215
00309  P0000-EXIT.                                                      DTSBX215
00310      EXIT.                                                        DTSBX215
00311                                                                   DTSBX215
00312  P1000-FROM-RPTS.                                                 DTSBX215
00313      PERFORM S941-READ-NEXT THRU S941-EXIT.                       DTSBX215
00314                                                                   DTSBX215
00315      PERFORM UNTIL L941-NO-REC-88                                 DTSBX215
00316         EVALUATE RSK3-REC-TYPE                                    DTSBX215
00317           WHEN '301'                                              DTSBX215
00318             ADD +1    TO WRK-READ-CNT                             DTSBX215
00319             MOVE RSK3-REC      TO R301-REC                        DTSBX215
00320             PERFORM P1100-PROCESS-R301 THRU P1100-EXIT            DTSBX215
00321             PERFORM P1300-DEPOSITS     THRU P1300-EXIT            DTSBX215
00322                                                                   DTSBX215
00323           WHEN '906'                                              DTSBX215
00324             ADD +1    TO WRK-READ-CNT                             DTSBX215
00325             MOVE RSK3-REC      TO R906-REC                        DTSBX215
00326             PERFORM P1200-PROCESS-R906 THRU P1200-EXIT            DTSBX215
00327         END-EVALUATE                                              DTSBX215
00328         PERFORM S941-READ-NEXT THRU S941-EXIT                     DTSBX215
00329      END-PERFORM.                                                 DTSBX215
00330                                                                   DTSBX215
00331  P1000-EXIT.                                                      DTSBX215
00332      EXIT.                                                        DTSBX215
00333                                                                   DTSBX215
00334  P1100-PROCESS-R301.                                              DTSBX215
00335 *&   IF R301-CURR-RUN-DATE < 20080723                             DTSBX215
00336 *       GO TO P1100-EXIT                                          DTSBX215
00337 *&   END-IF.                                                      DTSBX215
00338                                                                   DTSBX215
00339      IF R301-CURR-RUN-DATE = WRK-PRIOR-RUN-DATE                   DTSBX215
00340         IF R301-CURR-RUN-DATE = R301-ESTB-DATE                    DTSBX215
00341         OR R301-CURR-RUN-DATE = R301-CHNG-DATE                    DTSBX215
00342            NEXT SENTENCE                                          DTSBX215
00343         ELSE                                                      DTSBX215
00344            GO TO P1100-EXIT                                       DTSBX215
00345         END-IF                                                    DTSBX215
00346      ELSE                                                         DTSBX215
00347         GO TO P1100-EXIT                                          DTSBX215
00348      END-IF.                                                      DTSBX215
00349                                                                   DTSBX215
00350      MOVE R301-CURR-RUN-DATE            TO L001-FED-8-DATE-9.     DTSBX215
00351      PERFORM S001-FROM-FED-8            THRU S001-EXIT.           DTSBX215
00352      MOVE L001-SLASH-8-DATE             TO X215-PROCESS-DT.       DTSBX215
00353                                                                   DTSBX215
00354      MOVE R301-BATCH-NO                 TO X215-BATCH.            DTSBX215
00355                                                                   DTSBX215
00356      MOVE R301-BATCH-BALANCED-IND       TO X215-BALANCED-IND.     DTSBX215
00357      MOVE R301-BATCH-HELD-IND           TO X215-HELD-IND.         DTSBX215
00358                                                                   DTSBX215
00359      MOVE R301-CONTROL-TRAN-CNT         TO X215-CONTROL-TRAN-CNT. DTSBX215
00360      MOVE R301-CONTROL-REMIT-AMT        TO X215-CONTROL-REMIT-AMT.DTSBX215
00361                                                                   DTSBX215
00362      MOVE R301-ATC-FILE-TRAN-CNT        TO                        DTSBX215
00363                                    X215-ATC-FILE-TRAN-CNT.        DTSBX215
00364      MOVE R301-ATC-FILE-REMIT-AMT       TO                        DTSBX215
00365                                    X215-ATC-FILE-REMIT-AMT.       DTSBX215
00366                                                                   DTSBX215
00367      COMPUTE X215-PROCESSED-CNT =                                 DTSBX215
00368         (R301-SUCCEEDED-PREV-TRAN-CNT +                           DTSBX215
00369          R301-SUCCEEDED-TODAY-TRAN-CNT).                          DTSBX215
00370                                                                   DTSBX215
00371      COMPUTE X215-PROCESSED-REMIT =                               DTSBX215
00372         (R301-SUCCEEDED-PREV-REMIT-AMT +                          DTSBX215
00373          R301-SUCCEEDED-TODAY-REMIT-AMT).                         DTSBX215
00374                                                                   DTSBX215
00375      MOVE R301-DEPOSIT-DATE             TO L001-FED-8-DATE-9.     DTSBX215
00376      PERFORM S001-FROM-FED-8            THRU S001-EXIT.           DTSBX215
00377      MOVE L001-SLASH-8-DATE             TO X215-DEPOSIT-DATE.     DTSBX215
00378                                                                   DTSBX215
00379      IF R301-CHNG-OP-ID = SPACES                                  DTSBX215
00380         MOVE R301-ESTB-OP-ID TO R301-CHNG-OP-ID                   DTSBX215
00381      END-IF.                                                      DTSBX215
00382                                                                   DTSBX215
00383      IF R301-CHNG-OP-ID > SPACES                                  DTSBX215
00384         MOVE R301-CHNG-OP-ID            TO X215-CHNG-OP-ID        DTSBX215
00385      ELSE                                                         DTSBX215
00386         MOVE SPACES                     TO X215-CHNG-OP-ID        DTSBX215
00387      END-IF.                                                      DTSBX215
00388                                                                   DTSBX215
00389      MOVE R301-BANK-BATCH-NO            TO X215-BANK-BATCH.       DTSBX215
00390                                                                   DTSBX215
00391      WRITE BX215-REC FROM  WRK-X215-REC.                          DTSBX215
00392      ADD +1    TO WRK-X215-CNT.                                   DTSBX215
00393                                                                   DTSBX215
00394  P1100-EXIT.                                                      DTSBX215
00395      EXIT.                                                        DTSBX215
00396                                                                   DTSBX215
00397  P1200-PROCESS-R906.                                              DTSBX215
00398      IF R906-TASK-START-DATE NOT = WRK-PRIOR-RUN-DATE             DTSBX215
00399         GO TO P1200-EXIT                                          DTSBX215
00400      END-IF.                                                      DTSBX215
00401 *&   IF R906-TASK-START-DATE < 20080806                           DTSBX215
00402 *       GO TO P1200-EXIT                                          DTSBX215
00403 *&   END-IF.                                                      DTSBX215
00404                                                                   DTSBX215
00405      IF R906-OP-ID (1:4) = 'TDEC'                                 DTSBX215
00406         GO TO P1200-EXIT                                          DTSBX215
00407      END-IF.                                                      DTSBX215
00408                                                                   DTSBX215
00409 **********************************************************        DTSBX215
00410 *  BYPASS ANY MATCHING RECORDS ENTERED WITHIN 5 MINUTES OF        DTSBX215
00411 *  EACHOTHER.                                                     DTSBX215
00412 **********************************************************        DTSBX215
00413      IF (R906-OP-ID                     = WRK-906-OPID            DTSBX215
00414      AND R906-EMP-NO                    = WRK-906-EMP             DTSBX215
00415      AND R906-SCR-ID                    = WRK-906-SCREEN          DTSBX215
00416      AND R906-TASK-START-DATE           = WRK-906-DATE)           DTSBX215
00417         IF (R906-TASK-START-TIME - WRK-906-TIME) < 500            DTSBX215
00418 ***        DISPLAY 'WITHIN 5 MIN ' R906-OP-ID '  '                DTSBX215
00419 ***           R906-EMP-NO '  ' R906-TASK-START-DATE               DTSBX215
00420            PERFORM P1220-SAVE-KEY      THRU P1220-EXIT            DTSBX215
00421            GO TO P1200-EXIT                                       DTSBX215
00422         END-IF                                                    DTSBX215
00423      ELSE                                                         DTSBX215
00424         PERFORM P1220-SAVE-KEY         THRU P1220-EXIT            DTSBX215
00425      END-IF.                                                      DTSBX215
00426                                                                   DTSBX215
00427      SET WRK-BYPASS-906-NO-88           TO TRUE.                  DTSBX215
00428      PERFORM P1210-ACTIVITY             THRU P1210-EXIT.          DTSBX215
00429      IF WRK-BYPASS-906-YES-88                                     DTSBX215
00430         GO TO P1200-EXIT                                          DTSBX215
00431      END-IF.                                                      DTSBX215
00432                                                                   DTSBX215
00433      MOVE R906-TASK-START-DATE          TO L005-DATE.             DTSBX215
00434      MOVE R906-TASK-START-TIME          TO L005-TIME.             DTSBX215
00435      SET L005-FROM-DATE-TIME            TO TRUE.                  DTSBX215
00436      PERFORM S005-DATE                  THRU S005-EXIT.           DTSBX215
00437      MOVE L005-SLASH-8-DATE             TO X220-DATE.             DTSBX215
00438      MOVE L005-DISPLAY-TIME             TO X220-TIME.             DTSBX215
00439                                                                   DTSBX215
00440      MOVE R906-EMP-NO                   TO X220-EMP-NO.           DTSBX215
00441                                                                   DTSBX215
00442      MOVE R906-OP-ID                    TO X220-OPID.             DTSBX215
00443                                                                   DTSBX215
00444      MOVE R906-BATCH-NO                 TO X220-BATCH.            DTSBX215
00445                                                                   DTSBX215
00446      MOVE R906-ITEM-NO                  TO X220-ITEM.             DTSBX215
00447                                                                   DTSBX215
00448      MOVE C220-BUSINESS-AREA            TO X220-BUSINESS-AREA.    DTSBX215
00449      MOVE C220-ACTIVITY-CODE            TO X220-ACTIVITY.         DTSBX215
00450 *&                                                                DTSBX215
00451 *    IF X220-ACTIVITY = '020'                                     DTSBX215
00452 *       NEXT SENTENCE                                             DTSBX215
00453 *    ELSE                                                         DTSBX215
00454 *       GO TO P1200-EXIT                                          DTSBX215
00455 *    END-IF.                                                      DTSBX215
00456 *&                                                                DTSBX215
00457                                                                   DTSBX215
00458      WRITE BX220-REC FROM  WRK-X220-REC.                          DTSBX215
00459      ADD +1    TO WRK-X220-CNT.                                   DTSBX215
00460                                                                   DTSBX215
00461  P1200-EXIT.                                                      DTSBX215
00462      EXIT.                                                        DTSBX215
00463                                                                   DTSBX215
00464  P1210-ACTIVITY.                                                  DTSBX215
00465      EVALUATE R906-SCR-ID                                         DTSBX215
00466        WHEN '1A'                                                  DTSBX215
00467          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00468          IF R906-FUNCTION = 'A'                                   DTSBX215
00469             SET C220-EMP-REGISTERED-88     TO TRUE                DTSBX215
00470          ELSE                                                     DTSBX215
00471             SET C220-OTHER-STATUS-88       TO TRUE                DTSBX215
00472          END-IF                                                   DTSBX215
00473                                                                   DTSBX215
00474        WHEN '1C'                                                  DTSBX215
00475          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00476          SET C220-LIAB-DETERM-88           TO TRUE                DTSBX215
00477                                                                   DTSBX215
00478        WHEN '13'                                                  DTSBX215
00479          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00480          SET C220-ADDRESS-88               TO TRUE                DTSBX215
00481                                                                   DTSBX215
00482        WHEN '15'                                                  DTSBX215
00483          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00484          SET C220-OPO-88                   TO TRUE                DTSBX215
00485                                                                   DTSBX215
00486        WHEN '16'                                                  DTSBX215
00487          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00488          SET C220-ADDRESS-88               TO TRUE                DTSBX215
00489                                                                   DTSBX215
00490        WHEN '17'                                                  DTSBX215
00491          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00492          SET C220-LIAB-DETERM-88           TO TRUE                DTSBX215
00493                                                                   DTSBX215
00494        WHEN '19'                                                  DTSBX215
00495          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00496          SET C220-RELATIONSHIP-88          TO TRUE                DTSBX215
00497                                                                   DTSBX215
00498        WHEN '24'                                                  DTSBX215
00499          SET C220-BA-ACCOUNTING-88         TO TRUE                DTSBX215
00500 ***      PERFORM P1212-RPT                 THRU P1212-EXIT        DTSBX215
00501 *        IF WRK-SELECT-RPT-NO-88                                  DTSBX215
00502 *           SET WRK-BYPASS-906-YES-88      TO TRUE                DTSBX215
00503 ***      END-IF                                                   DTSBX215
00504          IF R906-FUNCTION = 'A'                                   DTSBX215
00505             SET C220-REPORT-ADD-88         TO TRUE                DTSBX215
00506          ELSE                                                     DTSBX215
00507             SET C220-REPORT-MOD-88         TO TRUE                DTSBX215
00508          END-IF                                                   DTSBX215
00509                                                                   DTSBX215
00510        WHEN '25'                                                  DTSBX215
00511          SET C220-BA-ACCOUNTING-88         TO TRUE                DTSBX215
00512          IF R906-FUNCTION = 'A'                                   DTSBX215
00513             SET C220-PAY-ADD-88            TO TRUE                DTSBX215
00514          ELSE                                                     DTSBX215
00515             SET C220-PAY-MOD-88            TO TRUE                DTSBX215
00516          END-IF                                                   DTSBX215
00517                                                                   DTSBX215
00518        WHEN '26'                                                  DTSBX215
00519          SET C220-BA-ACCOUNTING-88         TO TRUE                DTSBX215
00520          IF R906-FUNCTION = 'A'                                   DTSBX215
00521             SET C220-ADJ-ADD-88            TO TRUE                DTSBX215
00522          ELSE                                                     DTSBX215
00523             SET C220-ADJ-MOD-88            TO TRUE                DTSBX215
00524          END-IF                                                   DTSBX215
00525                                                                   DTSBX215
00526        WHEN '42'                                                  DTSBX215
00527          SET C220-BA-COLLECTIONS-88        TO TRUE                DTSBX215
00528          SET C220-MISC-COLL-88             TO TRUE                DTSBX215
00529                                                                   DTSBX215
00530        WHEN '44'                                                  DTSBX215
00531          SET C220-BA-COLLECTIONS-88        TO TRUE                DTSBX215
00532          IF R906-FUNCTION = 'A'                                   DTSBX215
00533             SET C220-LIEN-ADD-88           TO TRUE                DTSBX215
00534          ELSE                                                     DTSBX215
00535             SET C220-LIEN-MOD-88           TO TRUE                DTSBX215
00536          END-IF                                                   DTSBX215
00537                                                                   DTSBX215
00538        WHEN '45'                                                  DTSBX215
00539          SET C220-BA-COLLECTIONS-88        TO TRUE                DTSBX215
00540          IF R906-FUNCTION = 'A'                                   DTSBX215
00541             SET C220-DPC-ADD-88            TO TRUE                DTSBX215
00542          ELSE                                                     DTSBX215
00543             SET C220-DPC-MOD-88            TO TRUE                DTSBX215
00544          END-IF                                                   DTSBX215
00545                                                                   DTSBX215
00546        WHEN '47'                                                  DTSBX215
00547          SET C220-BA-COLLECTIONS-88        TO TRUE                DTSBX215
00548          IF R906-FUNCTION = 'A'                                   DTSBX215
00549             SET C220-LEVY-ADD-88           TO TRUE                DTSBX215
00550          ELSE                                                     DTSBX215
00551             SET C220-LEVY-MOD-88           TO TRUE                DTSBX215
00552          END-IF                                                   DTSBX215
00553                                                                   DTSBX215
00554        WHEN '51'                                                  DTSBX215
00555          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00556          IF R906-FUNCTION = 'A'                                   DTSBX215
00557             SET C220-RATE-ADD-88           TO TRUE                DTSBX215
00558          ELSE                                                     DTSBX215
00559             SET C220-RATE-MOD-88           TO TRUE                DTSBX215
00560          END-IF                                                   DTSBX215
00561                                                                   DTSBX215
00562        WHEN '52'                                                  DTSBX215
00563          SET C220-BA-STATUS-88             TO TRUE                DTSBX215
00564          IF R906-FUNCTION = 'A'                                   DTSBX215
00565             SET C220-RATE-DATA-ADD-88      TO TRUE                DTSBX215
00566          ELSE                                                     DTSBX215
00567             SET C220-RATE-DATA-MOD-88      TO TRUE                DTSBX215
00568          END-IF                                                   DTSBX215
00569                                                                   DTSBX215
00570 *&     WHEN '61'                                                  DTSBX215
00571 *        PERFORM P1211-FAS                 THRU P1211-EXIT        DTSBX215
00572 *                                                                 DTSBX215
00573 *      WHEN '62'                                                  DTSBX215
00574 *        PERFORM P1211-FAS                 THRU P1211-EXIT        DTSBX215
00575 *        IF WRK-SELECT-FAS-NO-88                                  DTSBX215
00576 *           SET WRK-BYPASS-906-YES-88      TO TRUE                DTSBX215
00577 *        END-IF                                                   DTSBX215
00578 *                                                                 DTSBX215
00579 *      WHEN '63'                                                  DTSBX215
00580 *        SET C220-BA-AUDIT-88              TO TRUE                DTSBX215
00581 *&       SET C220-AUDIT-REPORT-88          TO TRUE                DTSBX215
00582                                                                   DTSBX215
00583        WHEN OTHER                                                 DTSBX215
00584           SET WRK-BYPASS-906-YES-88        TO TRUE                DTSBX215
00585 *         DISPLAY '** ' R906-EMP-NO '  ' R906-SCR-ID              DTSBX215
00586 *            '  ' X220-DATE                                       DTSBX215
00587      END-EVALUATE.                                                DTSBX215
00588                                                                   DTSBX215
00589  P1210-EXIT.                                                      DTSBX215
00590      EXIT.                                                        DTSBX215
00591                                                                   DTSBX215
00592 *P1211-FAS.                                                       DTSBX215
00593 **   DISPLAY 'P1211 ' R906-EMP-NO '  ' R906-OP-ID                 DTSBX215
00594 **     '  ' R906-SCR-ID.                                          DTSBX215
00595 *    SET WRK-SELECT-FAS-NO-88     TO TRUE.                        DTSBX215
00596 *    MOVE LOW-VALUES              TO MFAS-REC.                    DTSBX215
00597 *    MOVE R906-EMP-NO             TO MFAS-EMP-NO.                 DTSBX215
00598 *    SET MFAS-FAS-88              TO TRUE.                        DTSBX215
00599 *    MOVE MFAS-KEY-AREA           TO MSKL-KEY-AREA.               DTSBX215
00600 *    PERFORM S910-START-BROWSE    THRU S910-EXIT.                 DTSBX215
00601 *    PERFORM                                                      DTSBX215
00602 *      UNTIL L910-NO-REC-88                                       DTSBX215
00603 *        MOVE MSKL-REC            TO MFAS-REC                     DTSBX215
00604 *        IF MFAS-COMPLETED-DATE   = R906-TASK-START-DATE          DTSBX215
00605 *        OR MFAS-PROCESSED-DATE   = R906-TASK-START-DATE          DTSBX215
00606 *         DISPLAY 'AUD ' MFAS-ASSIGN-NO                           DTSBX215
00607 *            '  ' MFAS-EMP-NO                                     DTSBX215
00608 *            '  ' MFAS-STATUS-CD                                  DTSBX215
00609 *            '  ' MFAS-FLD-REP-ID                                 DTSBX215
00610 *            '  ' MFAS-COMPLETED-DATE                             DTSBX215
00611 *           SET WRK-SELECT-FAS-YES-88         TO TRUE             DTSBX215
00612 *           SET C220-BA-AUDIT-88              TO TRUE             DTSBX215
00613 *           SET C220-AUDIT-COMPLETE-88        TO TRUE             DTSBX215
00614 *           SET L910-NO-REC-88                TO TRUE             DTSBX215
00615 *        ELSE                                                     DTSBX215
00616 *           PERFORM S910-READ-NEXT    THRU S910-EXIT              DTSBX215
00617 *        END-IF                                                   DTSBX215
00618 *    END-PERFORM.                                                 DTSBX215
00619 *                                                                 DTSBX215
00620 *P1211-EXIT.                                                      DTSBX215
00621 *    EXIT.                                                        DTSBX215
00622                                                                   DTSBX215
00623  P1212-RPT.                                                       DTSBX215
00624 **   DISPLAY 'P1212 ' R906-EMP-NO '  ' R906-OP-ID                 DTSBX215
00625 **     '  ' R906-SCR-ID.                                          DTSBX215
00626      SET WRK-SELECT-RPT-NO-88     TO TRUE.                        DTSBX215
00627      MOVE LOW-VALUES              TO MRPT-REC.                    DTSBX215
00628      MOVE R906-EMP-NO             TO MRPT-EMP-NO.                 DTSBX215
00629      SET MRPT-RPT-88              TO TRUE.                        DTSBX215
00630      MOVE 20063                   TO MRPT-YRQ.                    DTSBX215
00631      MOVE R906-BATCH-NO           TO MRPT-BATCH-NO.               DTSBX215
00632      MOVE R906-ITEM-NO            TO MRPT-ITEM-NO.                DTSBX215
00633      MOVE MRPT-KEY-AREA           TO MSKL-KEY-AREA.               DTSBX215
00634      PERFORM S910-READ            THRU S910-EXIT.                 DTSBX215
00635      IF L910-OK-88                                                DTSBX215
00636         MOVE MSKL-REC            TO MRPT-REC                      DTSBX215
00637         DISPLAY 'P1212 ' MRPT-ESTB-DATE                           DTSBX215
00638         IF MRPT-ESTB-DATE   = R906-TASK-START-DATE                DTSBX215
00639         OR MRPT-CHNG-DATE   = R906-TASK-START-DATE                DTSBX215
00640            SET WRK-SELECT-RPT-YES-88         TO TRUE              DTSBX215
00641            SET C220-BA-ACCOUNTING-88         TO TRUE              DTSBX215
00642            SET C220-REPORT-ADD-88         TO TRUE                 DTSBX215
00643            SET L910-NO-REC-88                TO TRUE              DTSBX215
00644         END-IF                                                    DTSBX215
00645      END-IF.                                                      DTSBX215
00646                                                                   DTSBX215
00647  P1212-EXIT.                                                      DTSBX215
00648      EXIT.                                                        DTSBX215
00649                                                                   DTSBX215
00650  P1220-SAVE-KEY.                                                  DTSBX215
00651 **********************************************************        DTSBX215
00652 *  SAVE CURRENT RECORD TO CHECK FOR DUPLICATES - R906 RECORDS     DTSBX215
00653 *  FOR THE SAME OPID, EMP, BUSINESS AREA, ACTIVITY.               DTSBX215
00654 *  BYPASS ANY MATCHING RECORDS ENTERED WITHIN 5 MINUTES OF        DTSBX215
00655 *  EACHOTHER.                                                     DTSBX215
00656 **********************************************************        DTSBX215
00657      MOVE R906-OP-ID                    TO WRK-906-OPID.          DTSBX215
00658      MOVE R906-EMP-NO                   TO WRK-906-EMP.           DTSBX215
00659      MOVE R906-SCR-ID                   TO WRK-906-SCREEN.        DTSBX215
00660      MOVE R906-TASK-START-DATE          TO WRK-906-DATE.          DTSBX215
00661      MOVE R906-TASK-START-TIME          TO WRK-906-TIME.          DTSBX215
00662                                                                   DTSBX215
00663  P1220-EXIT.                                                      DTSBX215
00664      EXIT.                                                        DTSBX215
00665                                                                   DTSBX215
00666  P1300-DEPOSITS.                                                  DTSBX215
00667      MOVE R301-CURR-RUN-DATE            TO L001-FED-8-DATE-9.     DTSBX215
00668      PERFORM S001-FROM-FED-8            THRU S001-EXIT.           DTSBX215
00669      MOVE L001-SLASH-8-DATE             TO X215-PROCESS-DT.       DTSBX215
00670                                                                   DTSBX215
00671      MOVE R301-BATCH-NO                 TO X215-BATCH.            DTSBX215
00672                                                                   DTSBX215
00673      MOVE R301-BATCH-BALANCED-IND       TO X215-BALANCED-IND.     DTSBX215
00674      MOVE R301-BATCH-HELD-IND           TO X215-HELD-IND.         DTSBX215
00675                                                                   DTSBX215
00676      MOVE R301-CONTROL-TRAN-CNT         TO X215-CONTROL-TRAN-CNT. DTSBX215
00677      MOVE R301-CONTROL-REMIT-AMT        TO X215-CONTROL-REMIT-AMT.DTSBX215
00678                                                                   DTSBX215
00679      MOVE R301-ATC-FILE-TRAN-CNT        TO                        DTSBX215
00680                                    X215-ATC-FILE-TRAN-CNT.        DTSBX215
00681      MOVE R301-ATC-FILE-REMIT-AMT       TO                        DTSBX215
00682                                    X215-ATC-FILE-REMIT-AMT.       DTSBX215
00683                                                                   DTSBX215
00684      COMPUTE X215-PROCESSED-CNT =                                 DTSBX215
00685         (R301-SUCCEEDED-PREV-TRAN-CNT +                           DTSBX215
00686          R301-SUCCEEDED-TODAY-TRAN-CNT).                          DTSBX215
00687                                                                   DTSBX215
00688      COMPUTE X215-PROCESSED-REMIT =                               DTSBX215
00689         (R301-SUCCEEDED-PREV-REMIT-AMT +                          DTSBX215
00690          R301-SUCCEEDED-TODAY-REMIT-AMT).                         DTSBX215
00691                                                                   DTSBX215
00692      MOVE R301-DEPOSIT-DATE             TO L001-FED-8-DATE-9.     DTSBX215
00693      PERFORM S001-FROM-FED-8            THRU S001-EXIT.           DTSBX215
00694      MOVE L001-SLASH-8-DATE             TO X215-DEPOSIT-DATE.     DTSBX215
00695                                                                   DTSBX215
00696      IF R301-CHNG-OP-ID = SPACES                                  DTSBX215
00697         MOVE R301-ESTB-OP-ID TO R301-CHNG-OP-ID                   DTSBX215
00698      END-IF.                                                      DTSBX215
00699                                                                   DTSBX215
00700      IF R301-CHNG-OP-ID > SPACES                                  DTSBX215
00701         MOVE R301-CHNG-OP-ID            TO X215-CHNG-OP-ID        DTSBX215
00702      ELSE                                                         DTSBX215
00703         MOVE SPACES                     TO X215-CHNG-OP-ID        DTSBX215
00704      END-IF.                                                      DTSBX215
00705                                                                   DTSBX215
00706      MOVE R301-BANK-BATCH-NO            TO X215-BANK-BATCH.       DTSBX215
00707                                                                   DTSBX215
00708      WRITE DEPOSIT-REC FROM  WRK-X215-REC.                        DTSBX215
00709      ADD +1    TO WRK-DEPOSIT-CNT.                                DTSBX215
00710                                                                   DTSBX215
00711  P1300-EXIT.                                                      DTSBX215
00712      EXIT.                                                        DTSBX215
00713                                                                   DTSBX215
00714  P2000-FROM-EVL.                                                  DTSBX215
00715      MOVE LOW-VALUES                    TO MPRF-REC.              DTSBX215
00716      MOVE ZERO                          TO MPRF-EMP-NO.           DTSBX215
00717      SET MPRF-PRF-88                    TO TRUE.                  DTSBX215
00718      MOVE MPRF-KEY-AREA                 TO MSKL-KEY-AREA.         DTSBX215
00719      PERFORM S910-START-BROWSE          THRU S910-EXIT.           DTSBX215
00720      PERFORM UNTIL L910-NO-REC-88                                 DTSBX215
00721         MOVE MSKL-REC                   TO MPRF-REC               DTSBX215
00722         IF MPRF-CLASS-SUB-88                                      DTSBX215
00723            PERFORM P2100-SCAN-MEVL      THRU P2100-EXIT           DTSBX215
00724         END-IF                                                    DTSBX215
00725         MOVE MPRF-REC                   TO MSKL-REC               DTSBX215
00726         PERFORM S910-READ-NEXT          THRU S910-EXIT            DTSBX215
00727      END-PERFORM.                                                 DTSBX215
00728                                                                   DTSBX215
00729  P2000-EXIT.                                                      DTSBX215
00730      EXIT.                                                        DTSBX215
00731                                                                   DTSBX215
00732  P2100-SCAN-MEVL.                                                 DTSBX215
00733      MOVE LOW-VALUES                    TO MEVL-REC.              DTSBX215
00734      MOVE MPRF-EMP-NO                   TO MEVL-EMP-NO.           DTSBX215
00735      MOVE WRK-PRIOR-RUN-DATE            TO MEVL-DATE.             DTSBX215
00736      MOVE ZERO                          TO MEVL-TIME.             DTSBX215
00737      SET MEVL-EVL-88                    TO TRUE.                  DTSBX215
00738      MOVE MEVL-KEY-AREA                 TO MSKL-KEY-AREA.         DTSBX215
00739      PERFORM S910-START-BROWSE          THRU S910-EXIT.           DTSBX215
00740      PERFORM UNTIL L910-NO-REC-88                                 DTSBX215
00741         MOVE MSKL-REC                   TO MEVL-REC               DTSBX215
00742         IF MEVL-ESTB-DATE                = WRK-PRIOR-RUN-DATE     DTSBX215
00743 *&      IF MEVL-ESTB-DATE                > 20070305               DTSBX215
00744            PERFORM P2110-BUILD-X220     THRU P2110-EXIT           DTSBX215
00745         END-IF                                                    DTSBX215
00746         PERFORM S910-READ-NEXT          THRU S910-EXIT            DTSBX215
00747      END-PERFORM.                                                 DTSBX215
00748  P2100-EXIT.                                                      DTSBX215
00749      EXIT.                                                        DTSBX215
00750                                                                   DTSBX215
00751  P2110-BUILD-X220.                                                DTSBX215
00752      IF MEVL-BUSINESS-AREA > '00' AND <= '99'                     DTSBX215
00753      AND MEVL-ACTIVITY-CODE > '000' AND <= '999'                  DTSBX215
00754         NEXT SENTENCE                                             DTSBX215
00755      ELSE                                                         DTSBX215
00756         GO TO P2110-EXIT                                          DTSBX215
00757      END-IF.                                                      DTSBX215
00758                                                                   DTSBX215
00759 **      DISPLAY 'P2100 ' MPRF-EMP-NO '  ' MEVL-ESTB-DATE          DTSBX215
00760 **        '  ' MEVL-BUSINESS-AREA '  ' MEVL-ACTIVITY-CODE.        DTSBX215
00761      MOVE MEVL-DATE                     TO L005-DATE.             DTSBX215
00762      MOVE MEVL-TIME                     TO L005-TIME.             DTSBX215
00763      SET L005-FROM-DATE-TIME            TO TRUE.                  DTSBX215
00764      PERFORM S005-DATE                  THRU S005-EXIT.           DTSBX215
00765      MOVE L005-SLASH-8-DATE             TO X220-DATE.             DTSBX215
00766      MOVE L005-DISPLAY-TIME             TO X220-TIME.             DTSBX215
00767                                                                   DTSBX215
00768      MOVE MEVL-EMP-NO                   TO X220-EMP-NO.           DTSBX215
00769                                                                   DTSBX215
00770      MOVE MEVL-SOURCE                   TO X220-OPID.             DTSBX215
00771                                                                   DTSBX215
00772      MOVE ZERO                          TO X220-BATCH             DTSBX215
00773                                            X220-ITEM.             DTSBX215
00774                                                                   DTSBX215
00775      MOVE MEVL-BUSINESS-AREA            TO X220-BUSINESS-AREA.    DTSBX215
00776      MOVE MEVL-ACTIVITY-CODE            TO X220-ACTIVITY.         DTSBX215
00777                                                                   DTSBX215
00778      WRITE BX220-REC FROM  WRK-X220-REC.                          DTSBX215
00779      ADD +1    TO WRK-X220-CNT.                                   DTSBX215
00780                                                                   DTSBX215
00781  P2110-EXIT.                                                      DTSBX215
00782      EXIT.                                                        DTSBX215
00783                                                                   DTSBX215
00784  P3000-FROM-FAS.                                                  DTSBX215
00785      MOVE LOW-VALUES              TO MFAS-REC.                    DTSBX215
00786      SET MFAS-FAS-88              TO TRUE.                        DTSBX215
00787      MOVE MFAS-KEY-AREA           TO MSKL-KEY-AREA.               DTSBX215
00788      PERFORM S910-START-BROWSE    THRU S910-EXIT.                 DTSBX215
00789      PERFORM UNTIL L910-NO-REC-88                                 DTSBX215
00790          MOVE MSKL-REC            TO MFAS-REC                     DTSBX215
00791          IF MFAS-ASSIGN-TYPE = '05'                               DTSBX215
00792          AND MFAS-STATUS-PROCESSED-88                             DTSBX215
00793 *&       IF MFAS-PROCESSED-DATE   = WRK-PRIOR-RUN-DATE            DTSBX215
00794          AND MFAS-PROCESSED-DATE  >= 20080601                     DTSBX215
00795          AND MFAS-PROCESSED-DATE < 20080701                       DTSBX215
00796             PERFORM P3100-ADD-AUDIT   THRU P3100-EXIT             DTSBX215
00797          END-IF                                                   DTSBX215
00798          PERFORM S910-READ-NEXT       THRU S910-EXIT              DTSBX215
00799      END-PERFORM.                                                 DTSBX215
00800                                                                   DTSBX215
00801  P3000-EXIT.                                                      DTSBX215
00802      EXIT.                                                        DTSBX215
00803                                                                   DTSBX215
00804  P3100-ADD-AUDIT.                                                 DTSBX215
00805           DISPLAY 'AUD ' MFAS-ASSIGN-NO                           DTSBX215
00806              '  ' MFAS-EMP-NO                                     DTSBX215
00807              '  ' MFAS-STATUS-CD                                  DTSBX215
00808              '  ' MFAS-FLD-REP-ID                                 DTSBX215
00809              '  ' MFAS-COMPLETED-DATE.                            DTSBX215
00810      SET C220-BA-AUDIT-88               TO TRUE.                  DTSBX215
00811      SET C220-AUDIT-COMPLETE-88         TO TRUE.                  DTSBX215
00812      MOVE MFAS-PROCESSED-DATE           TO L005-DATE.             DTSBX215
00813      MOVE ZERO                          TO L005-TIME.             DTSBX215
00814      SET L005-FROM-DATE-TIME            TO TRUE.                  DTSBX215
00815      PERFORM S005-DATE                  THRU S005-EXIT.           DTSBX215
00816      MOVE L005-SLASH-8-DATE             TO X220-DATE.             DTSBX215
00817      MOVE L005-DISPLAY-TIME             TO X220-TIME.             DTSBX215
00818                                                                   DTSBX215
00819      MOVE MFAS-EMP-NO                   TO X220-EMP-NO.           DTSBX215
00820                                                                   DTSBX215
00821      MOVE MFAS-FLD-REP-ID               TO L062-FLD-REP-ID.       DTSBX215
00822      PERFORM S062-LOOKUP-FLD-REP        THRU S062-EXIT.           DTSBX215
00823      MOVE L062-OP-ID                    TO X220-OPID.             DTSBX215
00824                                                                   DTSBX215
00825      MOVE ZERO                          TO X220-BATCH             DTSBX215
00826                                            X220-ITEM.             DTSBX215
00827                                                                   DTSBX215
00828      WRITE BX220-REC FROM  WRK-X220-REC.                          DTSBX215
00829      ADD +1    TO WRK-X220-CNT.                                   DTSBX215
00830                                                                   DTSBX215
00831  P3100-EXIT.                                                      DTSBX215
00832      EXIT.                                                        DTSBX215
00833                                                                   DTSBX215
00834  P4000-WRITE-X215-DUMMY.                                          DTSBX215
00835      MOVE SPACES                        TO X215-PROCESS-DT.       DTSBX215
00836                                                                   DTSBX215
00837      MOVE ZEROS                         TO X215-BATCH.            DTSBX215
00838                                                                   DTSBX215
00839      MOVE SPACES                        TO X215-BALANCED-IND      DTSBX215
00840                                            X215-HELD-IND.         DTSBX215
00841                                                                   DTSBX215
00842      MOVE ZEROS                         TO X215-CONTROL-TRAN-CNT  DTSBX215
00843                                            X215-CONTROL-REMIT-AMT DTSBX215
00844                                            X215-ATC-FILE-TRAN-CNT DTSBX215
00845                                            X215-ATC-FILE-REMIT-AMTDTSBX215
00846                                            X215-PROCESSED-CNT     DTSBX215
00847                                            X215-PROCESSED-REMIT.  DTSBX215
00848                                                                   DTSBX215
00849      MOVE SPACES                        TO X215-DEPOSIT-DATE      DTSBX215
00850                                            X215-CHNG-OP-ID.       DTSBX215
00851                                                                   DTSBX215
00852      MOVE ZEROS                         TO X215-BANK-BATCH.       DTSBX215
00853                                                                   DTSBX215
00854      WRITE BX215-REC FROM  WRK-X215-REC.                          DTSBX215
00855      ADD +1    TO WRK-X215-CNT.                                   DTSBX215
00856                                                                   DTSBX215
00857  P4000-EXIT.                                                      DTSBX215
00858      EXIT.                                                        DTSBX215
00859                                                                   DTSBX215
00860  P4100-WRITE-X220-DUMMY.                                          DTSBX215
00861      MOVE ZEROS                         TO X220-EMP-NO.           DTSBX215
00862                                                                   DTSBX215
00863      MOVE SPACES                        TO X220-OPID.             DTSBX215
00864                                                                   DTSBX215
00865      MOVE ZEROS                         TO X220-BATCH             DTSBX215
00866                                            X220-ITEM.             DTSBX215
00867                                                                   DTSBX215
00868      MOVE SPACES                        TO X220-BUSINESS-AREA     DTSBX215
00869                                            X220-ACTIVITY          DTSBX215
00870                                            X220-DATE              DTSBX215
00871                                            X220-TIME.             DTSBX215
00872                                                                   DTSBX215
00873      WRITE BX220-REC FROM  WRK-X220-REC.                          DTSBX215
00874      ADD +1    TO WRK-X220-CNT.                                   DTSBX215
00875                                                                   DTSBX215
00876  P4100-EXIT.                                                      DTSBX215
00877      EXIT.                                                        DTSBX215
00878                                                                   DTSBX215
00879  S001-FROM-FED-8.                                                 DTSBX215
00880      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX215
00881      GO TO S001-DATE.                                             DTSBX215
00882                                                                   DTSBX215
00883  S001-DATE.                                                       DTSBX215
00884      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX215
00885  S001-EXIT.                                                       DTSBX215
00886      EXIT.                                                        DTSBX215
00887                                                                   DTSBX215
00888  S005-DATE.                                                       DTSBX215
00889      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX215
00890  S005-EXIT.                                                       DTSBX215
00891      EXIT.                                                        DTSBX215
00892                                                                   DTSBX215
00893  S062-LOOKUP-FLD-REP.                                             DTSBX215
00894      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBX215
00895  S062-EXIT.                                                       DTSBX215
00896      EXIT.                                                        DTSBX215
00897                                                                   DTSBX215
00898  S910-OPEN-READ.                                                  DTSBX215
00899      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX215
00900      GO TO S910-MSTR-IO.                                          DTSBX215
00901                                                                   DTSBX215
00902  S910-READ.                                                       DTSBX215
00903      SET L910-READ-88 TO TRUE.                                    DTSBX215
00904      GO TO S910-MSTR-IO.                                          DTSBX215
00905                                                                   DTSBX215
00906  S910-START-BROWSE.                                               DTSBX215
00907      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX215
00908      GO TO S910-MSTR-IO.                                          DTSBX215
00909                                                                   DTSBX215
00910  S910-READ-NEXT.                                                  DTSBX215
00911      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX215
00912      GO TO S910-MSTR-IO.                                          DTSBX215
00913                                                                   DTSBX215
00914  S910-CLOSE.                                                      DTSBX215
00915      SET L910-CLOSE-88     TO TRUE.                               DTSBX215
00916      GO TO S910-MSTR-IO.                                          DTSBX215
00917                                                                   DTSBX215
00918  S910-MSTR-IO.                                                    DTSBX215
00919      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX215
00920                            MSKL-REC.                              DTSBX215
00921  S910-EXIT.                                                       DTSBX215
00922      EXIT.                                                        DTSBX215
00923                                                                   DTSBX215
00924  S941-OPEN.                                                       DTSBX215
00925      SET L941-OPEN-READ-88 TO TRUE.                               DTSBX215
00926      GO TO S941-I.                                                DTSBX215
00927                                                                   DTSBX215
00928  S941-READ-NEXT.                                                  DTSBX215
00929      SET L941-READ-NEXT-88 TO TRUE.                               DTSBX215
00930      GO TO S941-I.                                                DTSBX215
00931                                                                   DTSBX215
00932  S941-CLOSE.                                                      DTSBX215
00933      SET L941-CLOSE-88 TO TRUE.                                   DTSBX215
00934      GO TO S941-I.                                                DTSBX215
00935                                                                   DTSBX215
00936  S941-I.                                                          DTSBX215
00937      CALL 'DTSBU941' USING L941-LINK-AREA,                        DTSBX215
00938                            RSK3-REC.                              DTSBX215
00939  S941-EXIT.                                                       DTSBX215
00940      EXIT.                                                        DTSBX215
00941                                                                   DTSBX215
00942  S999-ABEND.                                                      DTSBX215
00943      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX215
00944      SKIP2                                                        DTSBX215
00945  S999-EXIT.                                                       DTSBX215
00946      EXIT.                                                        DTSBX215
00947                                                                   DTSBX215
00948  T0000-TERMINATE.                                                 DTSBX215
00949                                                                   DTSBX215
00950      DISPLAY '      '.                                            DTSBX215
00951      MOVE WRK-READ-CNT       TO DISP-WRK-READ-CNT.                DTSBX215
00952      DISPLAY 'TOTAL R301 RECORDS READ = ' DISP-WRK-READ-CNT.      DTSBX215
00953                                                                   DTSBX215
00954      MOVE WRK-X215-CNT       TO DISP-WRK-WRITE-CNT.               DTSBX215
00955      DISPLAY 'TOTAL X215 RECORDS WRITTEN ' DISP-WRK-WRITE-CNT.    DTSBX215
00956                                                                   DTSBX215
00957      MOVE WRK-X220-CNT       TO DISP-WRK-WRITE-CNT.               DTSBX215
00958      DISPLAY 'TOTAL X220 RECORDS WRITTEN ' DISP-WRK-WRITE-CNT.    DTSBX215
00959                                                                   DTSBX215
00960      DISPLAY 'TOTAL DEPOSIT RECS WRITTEN ' WRK-DEPOSIT-CNT.       DTSBX215
00961                                                                   DTSBX215
00962      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBX215
00963      PERFORM S941-CLOSE THRU S941-EXIT.                           DTSBX215
00964      CLOSE BX215-BATCH-FILE                                       DTSBX215
00965            BX220-ACTIVITY-FILE                                    DTSBX215
00966            DEPOSIT-FILE.                                          DTSBX215
00967  T0000-EXIT.                                                      DTSBX215
00968      EXIT.                                                        DTSBX215
00969                                                                   DTSBX215
