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