00001  IDENTIFICATION DIVISION.                                         10/17/14
00002  PROGRAM-ID.             DTSBX423.                                DTSBX423
00003  AUTHOR.                 NGC.                                        LV008
00004  DATE-WRITTEN.           APRIL 2005.                              DTSBX423
00005  DATE-COMPILED.                                                   DTSBX423
00006      SKIP3                                                        DTSBX423
00007 *****                                                             DTSBX423
00008 *                                                                 DTSBX423
00009 *    FUNCTION:  EDIT PAYMENT DATA FROM WEB APPLICATION.           DTSBX423
00010 *                                                                 DTSBX423
00011 *    MODIFICATION HISTORY:                                        DTSBX423
00012 *                                                                 DTSBX423
00013 *    04-05-2005 INITIAL DEVELOPMENT                               DTSBX423
00014 *               REFERENCE RFP: WEB REGISTRATION                   DTSBX423
00015 *                                                                 DTSBX423
00016 *    06-09-2010 MODIFIED FOR IN-HOUSE CASHIERING.                 DTSBX423
00017 *               REFERENCE RFP: IN-HOUSE CASHIERING       GD       DTSBX423
00018 *                                                                 DTSBX423
00019 *                                                                 DTSBX423
00020 *****                                                             DTSBX423
00021      SKIP3                                                        DTSBX423
00022  ENVIRONMENT DIVISION.                                            DTSBX423
00023      SKIP2                                                        DTSBX423
00024  INPUT-OUTPUT SECTION.                                            DTSBX423
00025                                                                   DTSBX423
00026  FILE-CONTROL.                                                    DTSBX423
00027                                                                   DTSBX423
00028      SELECT BATCH-XREF-FILE ASSIGN TO BX214423                    DTSBX423
00029         FILE STATUS IS BATCH-XREF-STATUS.                         DTSBX423
00030                                                                   DTSBX423
00031  DATA DIVISION.                                                   DTSBX423
00032                                                                   DTSBX423
00033  FILE SECTION.                                                    DTSBX423
00034                                                                   DTSBX423
00035  FD  BATCH-XREF-FILE                                              DTSBX423
00036      RECORDING MODE IS F                                          DTSBX423
00037      BLOCK CONTAINS 0 RECORDS                                     DTSBX423
00038      LABEL RECORDS ARE OMITTED.                                   DTSBX423
00039                                                                   DTSBX423
00040  01  BATCH-XREF-REC           PIC X(30).                          DTSBX423
00041                                                                   DTSBX423
00042  WORKING-STORAGE SECTION.                                         DTSBX423
000425 77  PAN-VALET PICTURE X(24) VALUE '008DTSBX423  10/17/14'.       DTSBX423
00043  77  PAN-VALET PICTURE X(24) VALUE '014DTSBX423  09/30/14'.       DTSBX423
00044      SKIP3                                                        DTSBX423
00045  01  WRK-AREA.                                                    DTSBX423
00046      05  W-ABEND-CD                  PIC S9(04)  COMP  VALUE 423. DTSBX423
00047      05  W-MOD-NAME                  PIC  X(08)  VALUE 'DTSBX423'.DTSBX423
00048                                                                   DTSBX423
00049      05  W-PREV-REC-TYPE         PIC  X(03) VALUE SPACES.         DTSBX423
00050          88 W-PREV-REC-NULL-88    VALUE 'XXX'.                    DTSBX423
00051          88 W-PREV-REC-PRF-88     VALUE '102'.                    DTSBX423
00052          88 W-PREV-REC-DETERM-88  VALUE '104'.                    DTSBX423
00053          88 W-PREV-REC-NAME-88    VALUE '106'.                    DTSBX423
00054          88 W-PREV-REC-RATE-88    VALUE '108'.                    DTSBX423
00055          88 W-PREV-REC-ADDR-88    VALUE '110'.                    DTSBX423
00056          88 W-PREV-REC-OPO-88     VALUE '120'.                    DTSBX423
00057          88 W-PREV-REC-REL-88     VALUE '130'.                    DTSBX423
00058          88 W-PREV-REC-IND-88     VALUE '132'.                    DTSBX423
00059          88 W-PREV-REC-RPT-88     VALUE '140'.                    DTSBX423
00060          88 W-PREV-REC-WAGE-88    VALUE '144'.                    DTSBX423
00061          88 W-PREV-REC-PAY-88     VALUE '145'.                    DTSBX423
00062                                                                   DTSBX423
00063      05  W-ERROR-IND                 PIC  X(01) VALUE 'N'.        DTSBX423
00064          88 W-ERROR-YES-88            VALUE 'Y'.                  DTSBX423
00065          88 W-ERROR-NO-88             VALUE 'N'.                  DTSBX423
00066                                                                   DTSBX423
00067      05  W-FATAL-ERROR-IND           PIC  X(01) VALUE 'N'.        DTSBX423
00068          88 W-FATAL-ERROR-YES-88      VALUE 'Y'.                  DTSBX423
00069          88 W-FATAL-ERROR-NO-88       VALUE 'N'.                  DTSBX423
00070                                                                   DTSBX423
00071      05  BATCH-XREF-STATUS       PIC  X(02).                      DTSBX423
00072          88 BATCH-XREF-OK-88          VALUE '00'.                 DTSBX423
00073                                                                   DTSBX423
00074      05  W-EMP-FOUND-IND             PIC  X(01) VALUE 'N'.        DTSBX423
00075          88 W-EMP-FOUND-YES-88        VALUE 'Y'.                  DTSBX423
00076          88 W-EMP-FOUND-NO-88         VALUE 'N'.                  DTSBX423
00077                                                                   DTSBX423
00078      05  W-APAY-MAX              PIC S9(04) COMP VALUE +100.      DTSBX423
00079      05  W-APAY-LAST             PIC S9(04) COMP VALUE +0.        DTSBX423
00080      05  PSUB                    PIC S9(04) COMP VALUE +0.        DTSBX423
00081      05  W-APAY-TABLE.                                            DTSBX423
00082          10  W-APAY-ENTRY OCCURS 100 TIMES PIC X(96).             DTSBX423
00083                                                                   DTSBX423
00084      05  W-EMP-NO                PIC S9(07) COMP-3.               DTSBX423
00085      05  W-REPORT-QTR            PIC S9(05) COMP-3.               DTSBX423
00086      05  W-REMITTANCE            PIC S9(09)V99.                   DTSBX423
00087      05  W-RECEIVED-DATE         PIC S9(09) COMP-3.               DTSBX423
00088      05  W-DEPOSIT-DATE          PIC S9(09) COMP-3.               DTSBX423
00089      05  W-CHK-SCAN-DATE         PIC S9(09) COMP-3.               DTSBX423
00090      05  W-REMIT-AMT             PIC S9(09)V99 COMP-3.            DTSBX423
00091      05  W-TRAN-CNT              PIC S9(03)    COMP-3.            DTSBX423
00092                                                                   DTSBX423
00093      05  W-EARNINGS              PIC S9(09)V99.                   DTSBX423
00094                                                                   DTSBX423
00095      05  W-PAY-TYPE             PIC  X(02).                       DTSBX423
00096          88  W-PA-PAY-88             VALUE 'PA'.                  DTSBX423
00097          88  W-OR-PAY-88             VALUE 'OR'.                  DTSBX423
00098          88  W-EA-PAY-88             VALUE 'EA'.                  DTSBX423
00099          88  W-AU-PAY-88             VALUE 'AU'.                  DTSBX423
00100          88  W-FS-PAY-88             VALUE 'FS'.                  DTSBX423
00101          88  W-AC-PAY-88             VALUE 'AC'.                  DTSBX423
00102          88  W-ES-PAY-88             VALUE 'ES'.                  DTSBX423
00103          88  W-WD-PAY-88             VALUE 'WD'.                  DTSBX423
00104          88  W-PAY-REV-88            VALUE 'PR'.                  DTSBX423
00105          88  W-REFUND-88             VALUE 'RF'.                  DTSBX423
00106          88  W-REF-REV-88            VALUE 'RR'.                  DTSBX423
00107          88  W-NG-CHECK-88           VALUE 'NG'.                  DTSBX423
00108          88  W-VALID-PAY-88          VALUE 'PA' 'OR' 'EA' 'AU'    DTSBX423
00109                                            'FS' 'AC'.             DTSBX423
00110                                                                   DTSBX423
00111      05  W-SEQ-NO                PIC  9(07)  VALUE 0.             DTSBX423
00112                                                                   DTSBX423
00113      05  W-SLASH-DATE            PIC  X(10).                      DTSBX423
00114      05  FILLER REDEFINES W-SLASH-DATE.                           DTSBX423
00115          10  W-SLASH-DT-MM       PIC  X(02).                      DTSBX423
00116          10  FILLER              PIC  X(01).                      DTSBX423
00117          10  W-SLASH-DT-DD       PIC  X(02).                      DTSBX423
00118          10  FILLER              PIC  X(01).                      DTSBX423
00119          10  W-SLASH-DT-CCYY     PIC  X(04).                      DTSBX423
00120                                                                   DTSBX423
00121      05  W-SLASH-QTR             PIC  X(06).                      DTSBX423
00122      05  FILLER REDEFINES W-SLASH-QTR.                            DTSBX423
00123          10  W-SLASH-QTR-CCYY    PIC  X(04).                      DTSBX423
00124          10  FILLER              PIC  X(01).                      DTSBX423
00125          10  W-SLASH-QTR-Q       PIC  X(01).                      DTSBX423
00126                                                                   DTSBX423
00127 *  PAYMENT                                                        DTSBX423
00128      05  W-X145-CNT              PIC S9(07)  COMP-3 VALUE +0.     DTSBX423
00129                                                                   DTSBX423
00130      05  W-APAY-WRITE-CNT        PIC S9(07)  COMP-3 VALUE +0.     DTSBX423
00131                                                                   DTSBX423
00132      05  W-T025-WRITE-CNT        PIC S9(07)  COMP-3 VALUE +0.     DTSBX423
00133                                                                   DTSBX423
00134      05  W-BX214-CNT             PIC S9(07)  COMP-3 VALUE +0.     DTSBX423
00135                                                                   DTSBX423
00136      05  W-X145-LENGTH           PIC S9(04)  COMP.                DTSBX423
00137                                                                   DTSBX423
00138      05  W-AMT-DISP1             PIC ----------9.99.              DTSBX423
00139      05  W-AMT-DISP2             PIC ----------9.99.              DTSBX423
00140 *RW1                                                              DTSBX423
00141      05  WRK-R140-CNT            PIC S9(07) COMP-3 VALUE +0.      DTSBX423
00142      05  DISPLAY-CNT             PIC  Z(06)9.                     DTSBX423
00143      05  WRK-MPRF-EMP-NO         PIC  9(06).                      DTSBX423
00144 *RW2                                                              DTSBX423
00145                                                                   DTSBX423
00146  01  MESSAGE-AREA.                                                DTSBX423
00147 *** FATAL ERRORS MSG-A                                            DTSBX423
00148      05  MSG-A1.                                                  DTSBX423
00149          10  FILLER                            PIC X(32)          DTSBX423
00150              VALUE 'TYPE A REC NOT FIRST IN FILE: '.              DTSBX423
00151          10  MSG-A1-PREV-REC-TYPE              PIC X(01).         DTSBX423
00152                                                                   DTSBX423
00153  01  T025-REC.                                                    DTSBX423
00154  ++INCLUDE DTSIT025                                               DTSBX423
00155                                                                   DTSBX423
00156 *  REPORT                                                         DTSBX423
00157  01  X140-REC.                                                    DTSBX423
00158  ++INCLUDE DTSIX140                                               DTSBX423
00159                                                                   DTSBX423
00160 *  PAYMENT                                                        DTSBX423
00161  01  X145-REC.                                                    DTSBX423
00162  ++INCLUDE DTSIX145                                               DTSBX423
00163                                                                   DTSBX423
00164 *  BATCH - PSEUDO-BATCH XREF                                      DTSBX423
00165  01  X214-REC.                                                    DTSBX423
00166  ++INCLUDE DTSIX214                                               DTSBX423
00167                                                                   DTSBX423
00168 *  ERRORS                                                         DTSBX423
00169 *01  X907-REC.                                                    DTSBX423
00170 ***INCLUDE DTSIX907                                               DTSBX423
00171                                                                   DTSBX423
00172  01  L001-LINK-AREA.                                              DTSBX423
00173  ++INCLUDE DTSIL001                                               DTSBX423
00174                                                                   DTSBX423
00175  01  L003-LINK-AREA.                                              DTSBX423
00176  ++INCLUDE DTSIL003                                               DTSBX423
00177                                                                   DTSBX423
00178  01  L004-LINK-AREA.                                              DTSBX423
00179  ++INCLUDE DTSIL004                                               DTSBX423
00180                                                                   DTSBX423
00181  01  L910-LINK-AREA.                                              DTSBX423
00182  ++INCLUDE DTSIL910                                               DTSBX423
00183  01  MSKL-REC.                                                    DTSBX423
00184  ++INCLUDE DTSIMSKL                                               DTSBX423
00185                                                                   DTSBX423
00186  01  MHDR-REC.                                                    DTSBX423
00187  ++INCLUDE DTSIMHDR                                               DTSBX423
00188                                                                   DTSBX423
00189  01  MPRF-REC.                                                    DTSBX423
00190  ++INCLUDE DTSIMPRF                                               DTSBX423
00191                                                                   DTSBX423
00192  01  MPAY-REC.                                                    DTSBX423
00193  ++INCLUDE DTSIMPAY                                               DTSBX423
00194                                                                   DTSBX423
00195  01  MNTE-REC.                                                    DTSBX423
00196  ++INCLUDE DTSIMNTE                                               DTSBX423
00197                                                                   DTSBX423
00198  01  L921-LINK-AREA.                                              DTSBX423
00199  ++INCLUDE DTSIL921                                               DTSBX423
00200      SKIP3                                                        DTSBX423
00201  01  ISKL-REC.                                                    DTSBX423
00202  ++INCLUDE DTSIISKL                                               DTSBX423
00203      SKIP3                                                        DTSBX423
00204  01  IEIN-REC.                                                    DTSBX423
00205  ++INCLUDE DTSIIEIN                                               DTSBX423
00206                                                                   DTSBX423
00207  01  L923-LINK-AREA.                                              DTSBX423
00208  ++INCLUDE DTSIL923                                               DTSBX423
00209      EJECT                                                        DTSBX423
00210  01  ASKL-REC.                                                    DTSBX423
00211  ++INCLUDE DTSIASKL                                               DTSBX423
00212      EJECT                                                        DTSBX423
00213  01  AHDR-REC.                                                    DTSBX423
00214  ++INCLUDE DTSIAHDR                                               DTSBX423
00215      EJECT                                                        DTSBX423
00216  01  ARPT-REC.                                                    DTSBX423
00217  ++INCLUDE DTSIARPT                                               DTSBX423
00218      EJECT                                                        DTSBX423
00219  01  APAY-REC.                                                    DTSBX423
00220  ++INCLUDE DTSIAPAY                                               DTSBX423
00221                                                                   DTSBX423
00222  01  L927-LINK-AREA.                                              DTSBX423
00223  ++INCLUDE DTSIL927                                               DTSBX423
00224                                                                   DTSBX423
00225  01  TSKL-REC.                                                    DTSBX423
00226  ++INCLUDE DTSITSKL                                               DTSBX423
00227                                                                   DTSBX423
00228  01  L931-LINK-AREA.                                              DTSBX423
00229  ++INCLUDE DTSIL931                                               DTSBX423
00230                                                                   DTSBX423
00231  01  FSKL-REC.                                                    DTSBX423
00232  ++INCLUDE DTSIFSKL                                               DTSBX423
00233                                                                   DTSBX423
00234  01  R140-REC.                                                    DTSBX423
00235  ++INCLUDE DTSIR140                                               DTSBX423
00236                                                                   DTSBX423
00237  LINKAGE SECTION.                                                 DTSBX423
00238                                                                   DTSBX423
00239  01  LX42-LINK-AREA.                                              DTSBX423
00240  ++INCLUDE DTSILX42                                               DTSBX423
00241                                                                   DTSBX423
00242  PROCEDURE DIVISION USING LX42-LINK-AREA.                         DTSBX423
00243                                                                   DTSBX423
00244  DTSBX423-MAIN.                                                   DTSBX423
00245      EVALUATE TRUE                                                DTSBX423
00246         WHEN LX42-INITIALIZE-88                                   DTSBX423
00247            PERFORM I0000-INITIATE        THRU I0000-EXIT          DTSBX423
00248                                                                   DTSBX423
00249         WHEN LX42-NEW-EMPLOYER-88                                 DTSBX423
00250            PERFORM P3000-NEW-EMP         THRU P3000-EXIT          DTSBX423
00251                                                                   DTSBX423
00252         WHEN LX42-NEW-BATCH-88                                    DTSBX423
00253            PERFORM P4000-NEW-BATCH       THRU P4000-EXIT          DTSBX423
00254                                                                   DTSBX423
00255         WHEN LX42-PROCESS-88                                      DTSBX423
00256            PERFORM P0000-PROCESS         THRU P0000-EXIT          DTSBX423
00257                                                                   DTSBX423
00258         WHEN LX42-TERMINATE-88                                    DTSBX423
00259            PERFORM P3000-NEW-EMP         THRU P3000-EXIT          DTSBX423
00260            PERFORM P4000-NEW-BATCH       THRU P4000-EXIT          DTSBX423
00261            PERFORM T0000-TERMINATE       THRU T0000-EXIT          DTSBX423
00262                                                                   DTSBX423
00263         WHEN LX42-BATCH-ERROR-88                                  DTSBX423
00264            PERFORM P4000-NEW-BATCH       THRU P4000-EXIT          DTSBX423
00265                                                                   DTSBX423
00266      END-EVALUATE.                                                DTSBX423
00267                                                                   DTSBX423
00268  DTSBX423-MAIN-EXIT.                                              DTSBX423
00269      GOBACK.                                                      DTSBX423
00270                                                                   DTSBX423
00271  I0000-INITIATE.                                                  DTSBX423
00272      SET W-ERROR-NO-88                 TO TRUE.                   DTSBX423
00273      SET W-FATAL-ERROR-NO-88           TO TRUE.                   DTSBX423
00274                                                                   DTSBX423
00275      MOVE LENGTH OF X145-REC    TO W-X145-LENGTH.                 DTSBX423
00276                                                                   DTSBX423
00277      MOVE LENGTH OF R140-REC    TO R140-LENGTH.                   DTSBX423
00278      MOVE '140'                 TO R140-REC-TYPE.                 DTSBX423
00279                                                                   DTSBX423
00280      PERFORM I2000-OPEN-FILES           THRU I2000-EXIT.          DTSBX423
00281                                                                   DTSBX423
00282      PERFORM P4200-RESET-TABLE          THRU P4200-EXIT.          DTSBX423
00283                                                                   DTSBX423
00284  I0000-EXIT.                                                      DTSBX423
00285      EXIT.                                                        DTSBX423
00286                                                                   DTSBX423
00287  I2000-OPEN-FILES.                                                DTSBX423
00288      OPEN OUTPUT   BATCH-XREF-FILE.                               DTSBX423
00289      IF BATCH-XREF-OK-88                                          DTSBX423
00290         NEXT SENTENCE                                             DTSBX423
00291      ELSE                                                         DTSBX423
00292         DISPLAY 'CANNOT OPEN BATCH XREF FILE '                    DTSBX423
00293            BATCH-XREF-STATUS                                      DTSBX423
00294         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX423
00295      END-IF.                                                      DTSBX423
00296                                                                   DTSBX423
00297  I2000-EXIT.                                                      DTSBX423
00298      EXIT.                                                        DTSBX423
00299                                                                   DTSBX423
00300  P0000-PROCESS.                                                   DTSBX423
00301      DISPLAY 'BX423 P0000 ' LX42-DATA-AREA (1:82).                DTSBX423
00302      EVALUATE TRUE                                                DTSBX423
00303        WHEN LX42-REC-TYPE-PAY-88                                  DTSBX423
00304          PERFORM P2100-PAYMENT            THRU P2100-EXIT         DTSBX423
00305                                                                   DTSBX423
00306        WHEN OTHER                                                 DTSBX423
00307           DISPLAY 'DTSBX423 ABENDING - =2VALID RECORD TYPE '         CL**8
00308              LX42-REC-TYPE                                        DTSBX423
00309           PERFORM S999-ABEND              THRU S999-EXIT          DTSBX423
00310                                                                   DTSBX423
00311      END-EVALUATE.                                                DTSBX423
00312                                                                   DTSBX423
00313  P0000-EXIT.                                                      DTSBX423
00314      EXIT.                                                        DTSBX423
00315                                                                   DTSBX423
00316  P2100-PAYMENT.                                                   DTSBX423
00317      MOVE LX42-DATA-AREA               TO X145-REC.               DTSBX423
00318 *&                                                                DTSBX423
00319 *&   DISPLAY SPACE.                                               DTSBX423
00320      DISPLAY 'BX423 PAYMENT ' X145-EMP-NO                         DTSBX423
00321         ' ' X145-PSEUDO-BATCH '  ' X145-PSEUDO-ITEM.              DTSBX423
00322      DISPLAY X145-REC(1:109).                                     DTSBX423
00323 *&                                                                DTSBX423
00324                                                                   DTSBX423
00325      MOVE X145-EMP-NO                 TO W-EMP-NO.                DTSBX423
00326                                                                   DTSBX423
00327      SET W-EMP-FOUND-NO-88            TO TRUE.                    DTSBX423
00328                                                                   DTSBX423
00329      SET W-PREV-REC-PAY-88             TO TRUE.                   DTSBX423
00330                                                                   DTSBX423
00331      ADD +1                            TO W-X145-CNT              DTSBX423
00332      PERFORM P2110-EDIT-PAYMENT        THRU P2110-EXIT            DTSBX423
00333      IF W-ERROR-NO-88                                             DTSBX423
00334         PERFORM P2112-CHECK-DATABASE   THRU P2112-EXIT            DTSBX423
00335         IF W-ERROR-NO-88                                          DTSBX423
00336 *          IF X145-IN-HOUSE-88                                    DTSBX423
00337 *             PERFORM P2130-SAVE-INT-PAY  THRU P2130-EXIT         DTSBX423
00338 *          ELSE                                                   DTSBX423
00339               PERFORM P2120-SAVE-EXT-PAY  THRU P2120-EXIT         DTSBX423
00340 *          END-IF                                                 DTSBX423
00341         END-IF                                                    DTSBX423
00342      END-IF.                                                      DTSBX423
00343                                                                   DTSBX423
00344  P2100-EXIT.                                                      DTSBX423
00345      EXIT.                                                        DTSBX423
00346                                                                   DTSBX423
00347  P2110-EDIT-PAYMENT.                                              DTSBX423
00348      MOVE X145-PAY-TYPE      TO W-PAY-TYPE.                       DTSBX423
00349      IF W-VALID-PAY-88                                            DTSBX423
00350        NEXT SENTENCE                                              DTSBX423
00351      ELSE                                                         DTSBX423
00352         SET W-ERROR-YES-88    TO TRUE                             DTSBX423
00353         MOVE SPACES TO R140-MESSAGE                               DTSBX423
00354         MOVE W-EMP-NO     TO R140-EMP-NO                          DTSBX423
00355         STRING                                                    DTSBX423
00356            'INVALID PAYMENT TYPE '                                DTSBX423
00357               X145-PAY-TYPE                                       DTSBX423
00358             DELIMITED BY SIZE                                     DTSBX423
00359             INTO R140-MESSAGE                                     DTSBX423
00360         END-STRING                                                DTSBX423
00361         PERFORM S946-WRITE-R140 THRU S946-EXIT                    DTSBX423
00362         DISPLAY R140-MESSAGE                                      DTSBX423
00363      END-IF.                                                      DTSBX423
00364                                                                   DTSBX423
00365      IF X145-QTR = SPACES                                         DTSBX423
00366        MOVE ZEROS               TO W-REPORT-QTR                   DTSBX423
00367      ELSE                                                         DTSBX423
00368         MOVE X145-QTR           TO W-SLASH-QTR                    DTSBX423
00369         MOVE W-SLASH-QTR-CCYY   TO L004-QTR-5-YR                  DTSBX423
00370         MOVE W-SLASH-QTR-Q      TO L004-QTR-5-Q                   DTSBX423
00371         PERFORM S004-FROM-5     THRU S004-EXIT                    DTSBX423
00372         IF NOT L004-VALID-QTR                                     DTSBX423
00373            SET W-ERROR-YES-88    TO TRUE                          DTSBX423
00374            MOVE SPACES TO R140-MESSAGE                            DTSBX423
00375            MOVE W-EMP-NO     TO R140-EMP-NO                       DTSBX423
00376            STRING                                                 DTSBX423
00377               'INVALID PAY    QUARTER ' X145-QTR                  DTSBX423
00378                DELIMITED BY SIZE                                  DTSBX423
00379                INTO R140-MESSAGE                                  DTSBX423
00380            END-STRING                                             DTSBX423
00381            PERFORM S946-WRITE-R140 THRU S946-EXIT                 DTSBX423
00382            DISPLAY R140-MESSAGE                                   DTSBX423
00383         ELSE                                                      DTSBX423
00384            MOVE L004-QTR-5-9     TO W-REPORT-QTR                  DTSBX423
00385         END-IF                                                    DTSBX423
00386      END-IF.                                                      DTSBX423
00387                                                                   DTSBX423
00388      MOVE X145-REMITTANCE     TO W-REMITTANCE.                    DTSBX423
00389                                                                   DTSBX423
00390      MOVE X145-RCVD-DATE      TO W-SLASH-DATE                     DTSBX423
00391      MOVE W-SLASH-DT-MM       TO L001-FED-8-MO                    DTSBX423
00392      MOVE W-SLASH-DT-DD       TO L001-FED-8-DA                    DTSBX423
00393      MOVE W-SLASH-DT-CCYY     TO L001-FED-8-YR                    DTSBX423
00394      PERFORM S001-FROM-FED-8  THRU S001-EXIT                      DTSBX423
00395      IF NOT L001-VALID-DATE                                       DTSBX423
00396         SET W-ERROR-YES-88  TO TRUE                               DTSBX423
00397         MOVE SPACES TO R140-MESSAGE                               DTSBX423
00398         MOVE W-EMP-NO     TO R140-EMP-NO                          DTSBX423
00399         STRING                                                    DTSBX423
00400            'INVALID PAY RECEIVED DATE ' X145-RCVD-DATE            DTSBX423
00401             DELIMITED BY SIZE                                     DTSBX423
00402             INTO R140-MESSAGE                                     DTSBX423
00403         END-STRING                                                DTSBX423
00404         PERFORM S946-WRITE-R140 THRU S946-EXIT                    DTSBX423
00405         DISPLAY R140-MESSAGE                                      DTSBX423
00406      ELSE                                                         DTSBX423
00407         MOVE L001-FED-8-DATE-9  TO W-RECEIVED-DATE                DTSBX423
00408      END-IF.                                                      DTSBX423
00409                                                                   DTSBX423
00410 *    MOVE X145-CHECK-SCAN-DT  TO W-SLASH-DATE                     DTSBX423
00411 *    MOVE W-SLASH-DT-MM       TO L001-FED-8-MO                    DTSBX423
00412 *    MOVE W-SLASH-DT-DD       TO L001-FED-8-DA                    DTSBX423
00413 *    MOVE W-SLASH-DT-CCYY     TO L001-FED-8-YR                    DTSBX423
00414 *    PERFORM S001-FROM-FED-8  THRU S001-EXIT                      DTSBX423
00415 *    IF NOT L001-VALID-DATE                                       DTSBX423
00416 *       SET W-ERROR-YES-88  TO TRUE                               DTSBX423
00417 *       MOVE SPACES TO R140-MESSAGE                               DTSBX423
00418 *       MOVE W-EMP-NO     TO R140-EMP-NO                          DTSBX423
00419 *       STRING                                                    DTSBX423
00420 *          'INVALID RPT CHK SCAN DATE ' X145-CHECK-SCAN-DT        DTSBX423
00421 *           DELIMITED BY SIZE                                     DTSBX423
00422 *           INTO R140-MESSAGE                                     DTSBX423
00423 *       END-STRING                                                DTSBX423
00424 *       PERFORM S946-WRITE-R140 THRU S946-EXIT                    DTSBX423
00425 *       DISPLAY R140-MESSAGE                                      DTSBX423
00426 *    ELSE                                                         DTSBX423
00427         MOVE ZEROS              TO W-CHK-SCAN-DATE.               DTSBX423
00428 *    END-IF.                                                      DTSBX423
00429                                                                   DTSBX423
00430  P2110-EXIT.                                                      DTSBX423
00431      EXIT.                                                        DTSBX423
00432                                                                   DTSBX423
00433  P2112-CHECK-DATABASE.                                            DTSBX423
00434      MOVE LOW-VALUE               TO MPRF-KEY-AREA.               DTSBX423
00435      MOVE W-EMP-NO                   TO MPRF-EMP-NO.              DTSBX423
00436      SET MPRF-PRF-88              TO TRUE.                        DTSBX423
00437      MOVE MPRF-KEY-AREA           TO MSKL-KEY-AREA.               DTSBX423
00438                                                                   DTSBX423
00439      PERFORM S910-READ            THRU S910-EXIT.                 DTSBX423
00440      IF L910-NO-REC-88                                            DTSBX423
00441         SET W-EMP-FOUND-NO-88     TO TRUE                         DTSBX423
00442 *       DISPLAY 'PAYMENT: EMPLOYER NOT ON FILE ' W-EMP-NO         DTSBX423
00443         MOVE SPACES TO R140-MESSAGE                               DTSBX423
00444         MOVE W-EMP-NO     TO R140-EMP-NO                          DTSBX423
00445         STRING                                                    DTSBX423
00446            'PAYMENT: EMPLOYER NOT ON FILE '                       DTSBX423
00447               X145-EMP-NO                                         DTSBX423
00448             DELIMITED BY SIZE                                     DTSBX423
00449             INTO R140-MESSAGE                                     DTSBX423
00450         END-STRING                                                DTSBX423
00451         PERFORM S946-WRITE-R140 THRU S946-EXIT                    DTSBX423
00452 *       SET W-EMP-FOUND-NO-88     TO TRUE                         DTSBX423
00453 ***     DISPLAY R140-MESSAGE                                      DTSBX423
00454      ELSE                                                         DTSBX423
00455         MOVE MSKL-REC             TO MPRF-REC                     DTSBX423
00456         SET W-EMP-FOUND-YES-88    TO TRUE                         DTSBX423
00457      END-IF.                                                      DTSBX423
00458                                                                   DTSBX423
00459  P2112-EXIT.                                                      DTSBX423
00460      EXIT.                                                        DTSBX423
00461                                                                   DTSBX423
00462  P2120-SAVE-EXT-PAY.                                              DTSBX423
00463      DISPLAY 'PAYMENT OK ' X145-EMP-NO.                           DTSBX423
00464                                                                   DTSBX423
00465      MOVE LENGTH OF T025-REC        TO T025-LENGTH                DTSBX423
00466      MOVE '025'                     TO T025-REC-TYPE.             DTSBX423
00467                                                                   DTSBX423
00468      MOVE W-EMP-NO                  TO T025-EMP-NO.               DTSBX423
00469      MOVE 'WEB PAY'                 TO T025-ORIGIN.               DTSBX423
00470      MOVE LX42-SYS-DATE             TO T025-SYS-DATE.             DTSBX423
00471      MOVE LX42-SYS-TIME             TO T025-SYS-TIME.             DTSBX423
00472 **ESSP WILL NOT ALLOW PAYMENTS TO BE APPLIED TO A SPECIFIC        DTSBX423
00473 **QUARTER.  WILL BE APPLIED TO THE OLDEST DEBT.                   DTSBX423
00474 **   IF W-REPORT-QTR > ZERO                                       DTSBX423
00475 **      MOVE W-REPORT-QTR           TO T025-APPLIC-YRQ            DTSBX423
00476 **      MOVE 'OR'                   TO T025-PAY-TYPE              DTSBX423
00477 **   ELSE                                                         DTSBX423
00478      MOVE ZERO                   TO T025-APPLIC-YRQ               DTSBX423
00479      MOVE 'PA'                   TO T025-PAY-TYPE                 DTSBX423
00480 **   END-IF.                                                      DTSBX423
00481                                                                   DTSBX423
00482      MOVE SPACES                    TO T025-APPLIC-IND.           DTSBX423
00483      MOVE ZERO                      TO T025-APPLIC-BATCH-NO       DTSBX423
00484                                        T025-APPLIC-ITEM-NO.       DTSBX423
00485                                                                   DTSBX423
00486      IF W-EMP-FOUND-YES-88                                        DTSBX423
00487         MOVE MPRF-PRIMARY-NAME (1:4)                              DTSBX423
00488                                     TO T025-NAME-CHECK            DTSBX423
00489      ELSE                                                         DTSBX423
00490         MOVE SPACES                 TO T025-NAME-CHECK            DTSBX423
00491      END-IF.                                                      DTSBX423
00492                                                                   DTSBX423
00493      MOVE LX42-CURR-RUN-DATE        TO T025-RECEIVED-DATE         DTSBX423
00494                                        T025-DEPOSIT-DATE.         DTSBX423
00495                                                                   DTSBX423
00496                                                                   DTSBX423
00497      MOVE W-REMITTANCE              TO T025-REMIT-AMT.            DTSBX423
00498                                                                   DTSBX423
00499      MOVE X145-TRACE-NO             TO T025-TRACE-NO.             DTSBX423
00500                                                                   DTSBX423
00501      MOVE 'VOL'                    TO T025-RESPONSIBLE-ACTIVITY.  DTSBX423
00502      MOVE 'WEBESSP'                TO T025-RESPONSIBLE-OP-ID.     DTSBX423
00503                                                                   DTSBX423
00504      MOVE T025-REC                  TO TSKL-REC.                  DTSBX423
00505      PERFORM S927B-WRITE            THRU S927B-EXIT.              DTSBX423
00506      ADD +1                         TO W-T025-WRITE-CNT.          DTSBX423
00507                                                                   DTSBX423
00508 **   DISPLAY 'BX423 PAYMENT ' X145-EMP-NO.                        DTSBX423
00509  P2120-EXIT.                                                      DTSBX423
00510      EXIT.                                                        DTSBX423
00511                                                                   DTSBX423
00512  P2130-SAVE-INT-PAY.                                              DTSBX423
00513 ************************************************************      DTSBX423
00514 *  PAYMENTS PROCESSED IN-HOUSE.  BATCH HEADER IS AVAILABLE        DTSBX423
00515 ************************************************************      DTSBX423
00516      IF X145-PSEUDO-BATCH    NOT = LX42-PSEUDO-BATCH-NO           DTSBX423
00517         DISPLAY 'BX420 P2030 MISSING HEADER RECORD '              DTSBX423
00518            X145-PSEUDO-BATCH    '  ' LX42-PSEUDO-BATCH-NO         DTSBX423
00519         PERFORM S999-ABEND        THRU S999-EXIT                  DTSBX423
00520      END-IF.                                                      DTSBX423
00521                                                                   DTSBX423
00522      DISPLAY 'BX423 P2130 ' LX42-PSEUDO-BATCH-NO '  '             DTSBX423
00523         X145-PSEUDO-ITEM '  ' MPRF-EMP-NO '  ' LX42-BATCH-NO.     DTSBX423
00524      MOVE LOW-VALUES               TO APAY-REC.                   DTSBX423
00525      MOVE LX42-BATCH-NO            TO APAY-BATCH-NO.              DTSBX423
00526      MOVE X145-PSEUDO-ITEM         TO APAY-ITEM-NO.               DTSBX423
00527      SET APAY-PAY-88               TO TRUE.                       DTSBX423
00528      MOVE MPRF-PRIMARY-NAME (1:4)  TO APAY-NAME-CHECK.            DTSBX423
00529      MOVE MPRF-EMP-NO              TO APAY-EMP-NO.                DTSBX423
00530      MOVE X145-PAY-TYPE            TO APAY-PAY-TYPE.              DTSBX423
00531      MOVE W-REMITTANCE             TO APAY-REMIT-AMT.             DTSBX423
00532      MOVE X145-WAIVE-INTEREST      TO APAY-WAIVE-INT-IND.         DTSBX423
00533      MOVE X145-WAIVE-PENALTY       TO APAY-WAIVE-LATE-PEN-IND.    DTSBX423
00534      SET APAY-NSF-PEN-CHARGE-NO-88 TO TRUE.                       DTSBX423
00535      MOVE W-RECEIVED-DATE          TO APAY-RECEIVED-DATE.         DTSBX423
00536      MOVE LX42-DEPOSIT-DATE        TO APAY-DEPOSIT-DATE.          DTSBX423
00537      IF W-REPORT-QTR > ZERO                                       DTSBX423
00538         MOVE W-REPORT-QTR          TO APAY-APPLIC-YRQ             DTSBX423
00539      ELSE                                                         DTSBX423
00540         MOVE ZERO                  TO APAY-APPLIC-YRQ             DTSBX423
00541      END-IF.                                                      DTSBX423
00542      MOVE X145-APPLIC-ACCT         TO APAY-APPLIC-IND.            DTSBX423
00543      MOVE ZEROS                    TO APAY-APPLIC-BATCH-NO        DTSBX423
00544                                       APAY-APPLIC-ITEM-NO.        DTSBX423
00545      MOVE 'N'                      TO APAY-DISREGARD-EDITS-IND.   DTSBX423
00546      MOVE X145-RESP-ACTIVITY       TO APAY-RESPONSIBLE-ACTIVITY.  DTSBX423
00547      MOVE X145-RESP-OPID           TO APAY-RESPONSIBLE-OP-ID.     DTSBX423
00548      SET APAY-ANNUAL-RPT-NULL-88   TO TRUE.                       DTSBX423
00549      MOVE ZERO                     TO APAY-TRACE-NO               DTSBX423
00550                                       APAY-NSF-MNTE-ABSTIME.      DTSBX423
00551      MOVE W-CHK-SCAN-DATE          TO APAY-CHECK-SCAN-DT.         DTSBX423
00552      MOVE X145-CHECK-SEQ-NBR       TO APAY-CHECK-SEQUENCE.        DTSBX423
00553                                                                   DTSBX423
00554      SET APAY-NOT-PROCESSED-88           TO TRUE.                 DTSBX423
00555                                                                   DTSBX423
00556      ADD +1                              TO W-APAY-LAST.          DTSBX423
00557      IF W-APAY-LAST > W-APAY-MAX                                  DTSBX423
00558         DISPLAY 'APAY TABLE LENGTH EXCEEDED '                     DTSBX423
00559         PERFORM S999-ABEND              THRU S999-EXIT            DTSBX423
00560      END-IF.                                                      DTSBX423
00561                                                                   DTSBX423
00562      MOVE APAY-REC              TO W-APAY-ENTRY (W-APAY-LAST).    DTSBX423
00563                                                                   DTSBX423
00564      MOVE W-APAY-LAST                   TO LX42-PAY-CNT.          DTSBX423
00565      ADD APAY-REMIT-AMT                 TO LX42-PAY-REMIT-AMT.    DTSBX423
00566                                                                   DTSBX423
00567      PERFORM P2131-BATCH-XREF           THRU P2131-EXIT.          DTSBX423
00568                                                                   DTSBX423
00569  P2130-EXIT.                                                      DTSBX423
00570      EXIT.                                                        DTSBX423
00571                                                                   DTSBX423
00572  P2131-BATCH-XREF.                                                DTSBX423
00573      MOVE APAY-BATCH-NO          TO X214-BATCH.                   DTSBX423
00574      MOVE APAY-ITEM-NO           TO X214-ITEM.                    DTSBX423
00575      MOVE X145-PSEUDO-BATCH      TO X214-PSEUDO-BATCH.            DTSBX423
00576      MOVE X145-PSEUDO-ITEM       TO X214-PSEUDO-ITEM.             DTSBX423
00577      MOVE APAY-DEPOSIT-DATE      TO L001-FED-8-DATE-9.            DTSBX423
00578      PERFORM S001-FROM-FED-8     THRU S001-EXIT.                  DTSBX423
00579 **   MOVE L001-SLASH-8-DATE      TO X214-DEPOSIT-DT.              DTSBX423
00580                                                                   DTSBX423
00581      WRITE BATCH-XREF-REC FROM X214-REC.                          DTSBX423
00582      IF BATCH-XREF-OK-88                                          DTSBX423
00583         ADD +1                   TO W-BX214-CNT                   DTSBX423
00584      ELSE                                                         DTSBX423
00585         DISPLAY 'CANNOT WRITE BATCH-XREF FILE: '                  DTSBX423
00586            BATCH-XREF-STATUS                                      DTSBX423
00587         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX423
00588      END-IF.                                                      DTSBX423
00589                                                                   DTSBX423
00590  P2131-EXIT.                                                      DTSBX423
00591      EXIT.                                                        DTSBX423
00592                                                                   DTSBX423
00593  P3000-NEW-EMP.                                                   DTSBX423
00594 *&                                                                DTSBX423
00595 *&   DISPLAY 'BX423 P3000 ' W-EMP-NO '  ' LX42-EMP-NO.            DTSBX423
00596 *&                                                                DTSBX423
00597      PERFORM P3400-INIT-NEW-EMP THRU P3400-EXIT.                  DTSBX423
00598                                                                   DTSBX423
00599  P3000-EXIT.                                                      DTSBX423
00600      EXIT.                                                        DTSBX423
00601                                                                   DTSBX423
00602                                                                   DTSBX423
00603  P3400-INIT-NEW-EMP.                                              DTSBX423
00604 **   MOVE WEB-IMP-QTR          TO W-CURR-QTR.                     DTSBX423
00605 *&                                                                DTSBX423
00606 *    DISPLAY 'P3400 ' W-EMP-NO.                                   DTSBX423
00607 *&                                                                DTSBX423
00608      MOVE LX42-EMP-NO        TO W-EMP-NO.                         DTSBX423
00609      SET W-ERROR-NO-88       TO TRUE.                             DTSBX423
00610      SET W-PREV-REC-NULL-88  TO TRUE.                             DTSBX423
00611      MOVE ZERO               TO W-REMITTANCE                      DTSBX423
00612                                 W-RECEIVED-DATE.                  DTSBX423
00613                                                                   DTSBX423
00614      INITIALIZE              X145-REC.                            DTSBX423
00615                                                                   DTSBX423
00616  P3400-EXIT.                                                      DTSBX423
00617      EXIT.                                                        DTSBX423
00618                                                                   DTSBX423
00619  P4000-NEW-BATCH.                                                 DTSBX423
00620      DISPLAY 'BX423 P4000 ' LX42-PSEUDO-BATCH-NO                  DTSBX423
00621      IF LX42-BATCH-ERROR-88                                       DTSBX423
00622         DISPLAY 'BX423 P6000 ERROR'                               DTSBX423
00623         PERFORM P4200-RESET-TABLE    THRU P4200-EXIT              DTSBX423
00624         GO TO P4000-EXIT                                          DTSBX423
00625      END-IF.                                                      DTSBX423
00626                                                                   DTSBX423
00627      IF LX42-TERMINATE-88                                         DTSBX423
00628         NEXT SENTENCE                                             DTSBX423
00629      ELSE                                                         DTSBX423
00630         IF LX42-PSEUDO-BATCH-NO = ZERO                            DTSBX423
00631            GO TO P4000-EXIT                                       DTSBX423
00632         END-IF                                                    DTSBX423
00633      END-IF.                                                      DTSBX423
00634                                                                   DTSBX423
00635      PERFORM P4100-WRITE-APAY        THRU P4100-EXIT.             DTSBX423
00636                                                                   DTSBX423
00637  P4000-EXIT.                                                      DTSBX423
00638      EXIT.                                                        DTSBX423
00639                                                                   DTSBX423
00640  P4100-WRITE-APAY.                                                DTSBX423
00641      PERFORM                                                      DTSBX423
00642        VARYING PSUB FROM +1 BY +1                                 DTSBX423
00643        UNTIL PSUB > W-APAY-LAST                                   DTSBX423
00644           MOVE W-APAY-ENTRY (PSUB)      TO ASKL-REC               DTSBX423
00645           DISPLAY 'BX423 P4100 WRITE ' ASKL-BATCH-NO              DTSBX423
00646              ' ' ASKL-ITEM-NO                                     DTSBX423
00647           PERFORM S923-WRITE            THRU S923-EXIT            DTSBX423
00648           ADD +1                        TO W-APAY-WRITE-CNT       DTSBX423
00649      END-PERFORM.                                                 DTSBX423
00650                                                                   DTSBX423
00651      PERFORM P4200-RESET-TABLE          THRU P4200-EXIT.          DTSBX423
00652                                                                   DTSBX423
00653  P4100-EXIT.                                                      DTSBX423
00654      EXIT.                                                        DTSBX423
00655                                                                   DTSBX423
00656  P4200-RESET-TABLE.                                               DTSBX423
00657      MOVE +0                           TO W-APAY-LAST.            DTSBX423
00658      PERFORM                                                      DTSBX423
00659        VARYING PSUB FROM +1 BY +1                                 DTSBX423
00660        UNTIL PSUB > W-APAY-MAX                                    DTSBX423
00661           MOVE LOW-VALUES              TO W-APAY-ENTRY (PSUB)     DTSBX423
00662      END-PERFORM.                                                 DTSBX423
00663                                                                   DTSBX423
00664  P4200-EXIT.                                                      DTSBX423
00665      EXIT.                                                        DTSBX423
00666                                                                   DTSBX423
00667  T0000-TERMINATE.                                                 DTSBX423
00668      PERFORM T1000-BATCH-XREF         THRU T1000-EXIT.            DTSBX423
00669                                                                   DTSBX423
00670      CLOSE BATCH-XREF-FILE.                                       DTSBX423
00671                                                                   DTSBX423
00672      DISPLAY ' '.                                                 DTSBX423
00673                                                                   DTSBX423
00674      DISPLAY '*** DTSBX423 TERMINATION STATISTICS ***'.           DTSBX423
00675                                                                   DTSBX423
00676      DISPLAY ' '.                                                 DTSBX423
00677                                                                   DTSBX423
00678      DISPLAY '***         WEB PAYMENTS            ***'.           DTSBX423
00679                                                                   DTSBX423
00680      DISPLAY ' '.                                                 DTSBX423
00681                                                                   DTSBX423
00682      PERFORM T2000-DISPLAY-TOTALS         THRU T2000-EXIT.        DTSBX423
00683                                                                   DTSBX423
00684      DISPLAY '***************************************'.           DTSBX423
00685                                                                   DTSBX423
00686  T0000-EXIT.                                                      DTSBX423
00687      EXIT.                                                        DTSBX423
00688                                                                   DTSBX423
00689  T1000-BATCH-XREF.                                                DTSBX423
00690      IF W-BX214-CNT = ZERO                                        DTSBX423
00691         MOVE ZEROS                  TO X214-BATCH                 DTSBX423
00692                                        X214-PSEUDO-BATCH          DTSBX423
00693                                        X214-ITEM                  DTSBX423
00694                                        X214-PSEUDO-ITEM           DTSBX423
00695 *       MOVE SPACES                 TO X214-DEPOSIT-DT            DTSBX423
00696         WRITE BATCH-XREF-REC        FROM X214-REC                 DTSBX423
00697         DISPLAY 'DUMMY X214 WRITTEN ' X214-REC                    DTSBX423
00698      END-IF.                                                      DTSBX423
00699                                                                   DTSBX423
00700  T1000-EXIT.                                                      DTSBX423
00701      EXIT.                                                        DTSBX423
00702                                                                   DTSBX423
00703  T2000-DISPLAY-TOTALS.                                            DTSBX423
00704      DISPLAY 'PAYMENT RECORDS WRITTEN:    '                       DTSBX423
00705              W-T025-WRITE-CNT.                                    DTSBX423
00706                                                                   DTSBX423
00707      DISPLAY 'IN-HOUSE PAYMENTS WRITTEN:  '                       DTSBX423
00708              W-APAY-WRITE-CNT.                                    DTSBX423
00709                                                                   DTSBX423
00710      DISPLAY '  '.                                                DTSBX423
00711                                                                   DTSBX423
00712  T2000-EXIT.                                                      DTSBX423
00713      EXIT.                                                        DTSBX423
00714                                                                   DTSBX423
00715  S001-FROM-FED-8.                                                 DTSBX423
00716      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX423
00717      GO TO S001-DATE.                                             DTSBX423
00718                                                                   DTSBX423
00719  S001-FROM-CAL-8.                                                 DTSBX423
00720      SET L001-FROM-CAL-8 TO TRUE.                                 DTSBX423
00721      GO TO S001-DATE.                                             DTSBX423
00722                                                                   DTSBX423
00723  S001-FROM-ABS-DAY.                                               DTSBX423
00724      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBX423
00725      GO TO S001-DATE.                                             DTSBX423
00726                                                                   DTSBX423
00727  S001-DATE.                                                       DTSBX423
00728      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX423
00729  S001-EXIT.                                                       DTSBX423
00730      EXIT.                                                        DTSBX423
00731                                                                   DTSBX423
00732  S003-AGENCY-DAY.                                                 DTSBX423
00733      SET L003-AGENCY-DAY TO TRUE.                                 DTSBX423
00734      GO TO S003-WORK-DAY.                                         DTSBX423
00735                                                                   DTSBX423
00736  S003-WORK-DAY.                                                   DTSBX423
00737      CALL 'DTSBU003' USING L003-LINK-AREA.                        DTSBX423
00738  S003-EXIT.                                                       DTSBX423
00739      EXIT.                                                        DTSBX423
00740                                                                   DTSBX423
00741  S004-FROM-5.                                                     DTSBX423
00742      SET L004-FROM-5        TO TRUE.                              DTSBX423
00743      GO TO S004-YRQ.                                              DTSBX423
00744                                                                   DTSBX423
00745  S004-FROM-DATE.                                                  DTSBX423
00746      SET L004-FROM-DATE     TO TRUE.                              DTSBX423
00747      GO TO S004-YRQ.                                              DTSBX423
00748                                                                   DTSBX423
00749  S004-FROM-ABS.                                                   DTSBX423
00750      SET L004-FROM-ABS      TO TRUE.                              DTSBX423
00751      GO TO S004-YRQ.                                              DTSBX423
00752                                                                   DTSBX423
00753  S004-YRQ.                                                        DTSBX423
00754      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX423
00755                                                                   DTSBX423
00756  S004-EXIT.                                                       DTSBX423
00757      EXIT.                                                        DTSBX423
00758                                                                   DTSBX423
00759 *S910-OPEN-READ.                                                  DTSBX423
00760 *    SET L910-OPEN-READ-88 TO TRUE.                               DTSBX423
00761 *    GO TO S910-MSTR-IO.                                          DTSBX423
00762 *                                                                 DTSBX423
00763  S910-READ.                                                       DTSBX423
00764      SET L910-READ-88 TO TRUE.                                    DTSBX423
00765      GO TO S910-MSTR-IO.                                          DTSBX423
00766                                                                   DTSBX423
00767  S910-START-BROWSE.                                               DTSBX423
00768      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX423
00769      GO TO S910-MSTR-IO.                                          DTSBX423
00770                                                                   DTSBX423
00771  S910-READ-NEXT.                                                  DTSBX423
00772      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX423
00773      GO TO S910-MSTR-IO.                                          DTSBX423
00774                                                                   DTSBX423
00775 *S910-CLOSE.                                                      DTSBX423
00776 *    SET L910-CLOSE-88     TO TRUE.                               DTSBX423
00777 *    GO TO S910-MSTR-IO.                                          DTSBX423
00778                                                                   DTSBX423
00779  S910-MSTR-IO.                                                    DTSBX423
00780      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX423
00781                            MSKL-REC.                              DTSBX423
00782  S910-EXIT.                                                       DTSBX423
00783      EXIT.                                                        DTSBX423
00784                                                                   DTSBX423
00785 *S921-OPEN-READ.                                                  DTSBX423
00786 *    SET L921-OPEN-READ-88 TO TRUE.                               DTSBX423
00787 *    GO TO S921-AIX-IO.                                           DTSBX423
00788                                                                   DTSBX423
00789  S921-READ.                                                       DTSBX423
00790      SET L921-READ-88 TO TRUE.                                    DTSBX423
00791      GO TO S921-AIX-IO.                                           DTSBX423
00792                                                                   DTSBX423
00793  S921-START-BROWSE.                                               DTSBX423
00794      SET L921-START-BROWSE-88 TO TRUE.                            DTSBX423
00795      GO TO S921-AIX-IO.                                           DTSBX423
00796                                                                   DTSBX423
00797  S921-READ-NEXT.                                                  DTSBX423
00798      SET L921-READ-NEXT-88 TO TRUE.                               DTSBX423
00799      GO TO S921-AIX-IO.                                           DTSBX423
00800                                                                   DTSBX423
00801 *S921-CLOSE.                                                      DTSBX423
00802 *    SET L921-CLOSE-88 TO TRUE.                                   DTSBX423
00803 *    GO TO S921-AIX-IO.                                           DTSBX423
00804                                                                   DTSBX423
00805  S921-AIX-IO.                                                     DTSBX423
00806      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBX423
00807                            ISKL-REC.                              DTSBX423
00808  S921-EXIT.                                                       DTSBX423
00809      EXIT.                                                        DTSBX423
00810                                                                   DTSBX423
00811  S923-OPEN-UPDATE.                                                DTSBX423
00812      SET L923-OPEN-UPDATE-88 TO TRUE.                             DTSBX423
00813      GO TO S923-ATC-CALL.                                         DTSBX423
00814                                                                   DTSBX423
00815  S923-WRITE.                                                      DTSBX423
00816      SET L923-WRITE-88 TO TRUE.                                   DTSBX423
00817      GO TO S923-ATC-CALL.                                         DTSBX423
00818                                                                   DTSBX423
00819  S923-CLOSE.                                                      DTSBX423
00820      SET L923-CLOSE-88 TO TRUE.                                   DTSBX423
00821      GO TO S923-ATC-CALL.                                         DTSBX423
00822                                                                   DTSBX423
00823  S923-ATC-CALL.                                                   DTSBX423
00824      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSBX423
00825                            ASKL-REC.                              DTSBX423
00826  S923-EXIT.                                                       DTSBX423
00827      EXIT.                                                        DTSBX423
00828                                                                   DTSBX423
00829 *S927A-OPEN.                                                      DTSBX423
00830 *    SET L927-OPEN-UPDATE-88  TO TRUE.                            DTSBX423
00831 *    PERFORM S927Z-IO   THRU S927Z-EXIT.                          DTSBX423
00832 *                                                                 DTSBX423
00833 *S927A-EXIT.                                                      DTSBX423
00834 *    EXIT.                                                        DTSBX423
00835                                                                   DTSBX423
00836  S927B-WRITE.                                                     DTSBX423
00837      SET L927-WRITE-88 TO TRUE.                                   DTSBX423
00838      PERFORM S927Z-IO   THRU S927Z-EXIT.                          DTSBX423
00839                                                                   DTSBX423
00840  S927B-EXIT.                                                      DTSBX423
00841      EXIT.                                                        DTSBX423
00842                                                                   DTSBX423
00843 *S927C-CLOSE.                                                     DTSBX423
00844 *    SET L927-CLOSE-88        TO TRUE.                            DTSBX423
00845 *    PERFORM S927Z-IO   THRU S927Z-EXIT.                          DTSBX423
00846 *                                                                 DTSBX423
00847 *S927C-EXIT.                                                      DTSBX423
00848 *    EXIT.                                                        DTSBX423
00849                                                                   DTSBX423
00850  S927Z-IO.                                                        DTSBX423
00851      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBX423
00852                            TSKL-REC.                              DTSBX423
00853  S927Z-EXIT.                                                      DTSBX423
00854      EXIT.                                                        DTSBX423
00855                                                                   DTSBX423
00856  S931-OPEN-READ.                                                  DTSBX423
00857      SET L931-OPEN-READ-88 TO TRUE.                               DTSBX423
00858      GO TO S931-REF-IO.                                           DTSBX423
00859                                                                   DTSBX423
00860  S931-CLOSE.                                                      DTSBX423
00861      SET L931-CLOSE-88 TO TRUE.                                   DTSBX423
00862      GO TO S931-REF-IO.                                           DTSBX423
00863                                                                   DTSBX423
00864  S931-REF-IO.                                                     DTSBX423
00865      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBX423
00866                            FSKL-REC.                              DTSBX423
00867  S931-EXIT.                                                       DTSBX423
00868      EXIT.                                                        DTSBX423
00869                                                                   DTSBX423
00870  S946-WRITE-R140.                                                 DTSBX423
00871      CALL 'DTSBU946' USING R140-REC.                              DTSBX423
00872                                                                   DTSBX423
00873  S946-EXIT.                                                       DTSBX423
00874      EXIT.                                                        DTSBX423
00875                                                                   DTSBX423
00876  S999-ABEND.                                                      DTSBX423
00877      CALL 'DTSBU999' USING W-ABEND-CD.                            DTSBX423
00878  S999-EXIT.                                                       DTSBX423
00879      EXIT.                                                        DTSBX423
00880                                                                   DTSBX423
