00001  IDENTIFICATION DIVISION.                                         10/07/14
00002  PROGRAM-ID.             DTSBX420.                                DTSBX420
00003  AUTHOR.                 NGC.                                        LV013
00004  DATE-WRITTEN.           APRIL 2005.                              DTSBX420
00005  DATE-COMPILED.                                                   DTSBX420
00006      SKIP3                                                        DTSBX420
00007 *****                                                             DTSBX420
00008 *                                                                 DTSBX420
00009 *    FUNCTION:  WEB REGISTRATION IMPORT DRIVER                    DTSBX420
00010 *               READ DATA PASSED FROM WEB APPLICATION SERVER      DTSBX420
00011 *               AND CALL THE APPROPRIATE PROCESSING PROGRAM       DTSBX420
00012 *               FOR REGISTRATIONS, REPORTS, PAYMENTS OR           DTSBX420
00013 *               PROFILE UPDATES.                                  DTSBX420
00014 *                                                                 DTSBX420
00015 *               ACCOUNTING BATCH HEADERS, REPORTS AND PAYMENTS    DTSBX420
00016 *               COMING FROM THE IN-HOUSE CASHIERING PROCESS ARE   DTSBX420
00017 *               PROCESSED LAST. IN THE SORT KEY, THE FIRST        DTSBX420
00018 *               ELEMENT (USED FOR THE EMPLOYER NUMBER FOR OTHER   DTSBX420
00019 *               PROCESSES) IS SET TO 999999.                      DTSBX420
00020 *                                                                 DTSBX420
00021 *    MODIFICATION HISTORY:                                        DTSBX420
00022 *                                                                 DTSBX420
00023 *    07-23-2007 INITIAL DEVELOPMENT                               DTSBX420
00024 *               REFERENCE RFP: WEB REPORTING                      DTSBX420
00025 *                                                                 DTSBX420
00026 *    10-21-2008 MODIFIED FOR NEW VERSION OF DTSIX144.             DTSBX420
00027 *               THE NEW RECORD INCLUDES EMPLOYEE NAME.            DTSBX420
00028 *               REFERENCE RFP: WEB REPORTING                      DTSBX420
00029 *                                                                 DTSBX420
00030 *    05-28-2010 MODIFIED FOR IN-HOUSE CHECK-SCANNING AND          DTSBX420
00031 *               CASHIERING PROCESS.                               DTSBX420
00032 *               REFERENCE RFP:                        GD          DTSBX420
00033 *                                                                 DTSBX420
00034 *                                                                 DTSBX420
00035 *****                                                             DTSBX420
00036      SKIP3                                                        DTSBX420
00037  ENVIRONMENT DIVISION.                                            DTSBX420
00038      SKIP2                                                        DTSBX420
00039  INPUT-OUTPUT SECTION.                                            DTSBX420
00040                                                                   DTSBX420
00041  FILE-CONTROL.                                                    DTSBX420
00042                                                                   DTSBX420
00043      SELECT WEB-IMP-FILE     ASSIGN TO WEBREG                     DTSBX420
00044         FILE STATUS IS WEB-IMP-STATUS.                            DTSBX420
00045                                                                   DTSBX420
00046 **   SELECT CURR-BATCH-NO    ASSIGN TO CURRBTCH                   DTSBX420
00047 **      FILE STATUS IS BATCH-STATUS.                              DTSBX420
00048                                                                   DTSBX420
00049      SELECT SORT-FILE ASSIGN TO SORTFILE.                         DTSBX420
00050                                                                   DTSBX420
00051  DATA DIVISION.                                                   DTSBX420
00052                                                                   DTSBX420
00053  FILE SECTION.                                                    DTSBX420
00054                                                                   DTSBX420
00055  FD  WEB-IMP-FILE                                                 DTSBX420
00056      RECORDING MODE IS F                                          DTSBX420
00057      BLOCK CONTAINS 0 RECORDS                                     DTSBX420
00058      LABEL RECORDS ARE OMITTED.                                   DTSBX420
00059                                                                   DTSBX420
00060  01  WEB-IMP-REC.                                                 DTSBX420
00061      05  WEB-IMP-TYPE              PIC X(03).                     DTSBX420
00062          88  WEB-IMP-TYPE-PRF-88    VALUE '102'.                  DTSBX420
00063          88  WEB-IMP-TYPE-DETERM-88 VALUE '104'.                  DTSBX420
00064          88  WEB-IMP-TYPE-NAME-88   VALUE '106'.                  DTSBX420
00065          88  WEB-IMP-TYPE-RATE-88   VALUE '108'.                  DTSBX420
00066          88  WEB-IMP-TYPE-ADDR-88   VALUE '110'.                  DTSBX420
00067          88  WEB-IMP-TYPE-OPO-88    VALUE '120'.                  DTSBX420
00068          88  WEB-IMP-TYPE-REL-88    VALUE '130'.                  DTSBX420
00069 ***      88  WEB-IMP-TYPE-IND-88    VALUE '132'.                  DTSBX420
00070          88  WEB-IMP-TYPE-RPT-88    VALUE '140'.                  DTSBX420
00071          88  WEB-IMP-TYPE-WAGE-88   VALUE '144'.                  DTSBX420
00072          88  WEB-IMP-TYPE-PAY-88    VALUE '145'.                  DTSBX420
00073          88  WEB-IMP-TYPE-BHDR-88   VALUE '149'.                  DTSBX420
00074          88  WEB-TYPE-REG-88        VALUE '102' '104' '106'       DTSBX420
00075                                           '108' '130' '132'.      DTSBX420
00076          88  WEB-TYPE-RPT-88        VALUE '140' '144'.            DTSBX420
00077          88  WEB-TYPE-PAY-88        VALUE '145'.                  DTSBX420
00078          88  WEB-TYPE-PRF-88        VALUE '110' '120'.            DTSBX420
00079      05  FILLER                    PIC X(01).                     DTSBX420
00080      05  WEB-IMP-EMP-NO            PIC 9(06).                     DTSBX420
00081      05  FILLER                    PIC X(01).                     DTSBX420
00082      05  WEB-IMP-QTR               PIC X(06).                     DTSBX420
00083      05  FILLER                    PIC X(495).                    DTSBX420
00084                                                                   DTSBX420
00085 *FD  CURR-BATCH-NO                                                DTSBX420
00086 *    RECORDING MODE IS F                                          DTSBX420
00087 *    BLOCK CONTAINS 0 RECORDS                                     DTSBX420
00088 *    LABEL RECORDS ARE OMITTED.                                   DTSBX420
00089 *                                                                 DTSBX420
00090 *01  CURR-BATCH-NO-REC.                                           DTSBX420
00091 *    05  CURRENT-BATCH-NO              PIC 9(05).                 DTSBX420
00092 *    05  CURRENT-ITEM-NO               PIC 9(03).                 DTSBX420
00093 *    05  FILLER                        PIC X(01).                 DTSBX420
00094 *    05  CURRENT-ARCHIVE-YEAR          PIC 9(04).                 DTSBX420
00095 *    05  FILLER                        PIC X(01).                 DTSBX420
00096 *    05  FIRST-ARCHIVE-YEAR            PIC 9(04).                 DTSBX420
00097 *    05  FILLER                        PIC X(62).                 DTSBX420
00098                                                                   DTSBX420
00099  SD  SORT-FILE.                                                   DTSBX420
00100                                                                   DTSBX420
00101  01  SORT-REC.                                                    DTSBX420
00102      05  SORT-KEY.                                                DTSBX420
00103          10  SORT-EMP-NO           PIC  9(06).                    DTSBX420
00104          10  SORT-SEQ1             PIC S9(04)       COMP.         DTSBX420
00105          10  SORT-SEQ2             PIC  X(16).                    DTSBX420
00106      05  IN-HOUSE-SORT-KEY REDEFINES SORT-KEY.                    DTSBX420
00107          10  SORT-IN-HOUSE-SEQ     PIC  9(06).                    DTSBX420
00108          10  SORT-BATCH            PIC  9(05).                    DTSBX420
00109          10  SORT-ITEM             PIC  9(03).                    DTSBX420
00110          10  SORT-FILLER           PIC  X(10).                    DTSBX420
00111      05  SORT-DATA                 PIC  X(512).                   DTSBX420
00112                                                                   DTSBX420
00113  WORKING-STORAGE SECTION.                                         DTSBX420
001135 77  PAN-VALET PICTURE X(24) VALUE '013DTSBX420  10/07/14'.       DTSBX420
00114  77  PAN-VALET PICTURE X(24) VALUE '154DTSBX420  10/07/14'.       DTSBX420
00115      SKIP3                                                        DTSBX420
00116  01  WRK-AREA.                                                    DTSBX420
00117      05  W-ABEND-CD                  PIC S9(04)  COMP  VALUE 420. DTSBX420
00118      05  W-MOD-NAME                  PIC  X(08)  VALUE 'DTSBX420'.DTSBX420
00119                                                                   DTSBX420
00120      05  WEB-IMP-STATUS          PIC  X(02).                      DTSBX420
00121          88 WEB-IMP-STATUS-OK-88     VALUE '00'.                  DTSBX420
00122          88 WEB-IMP-STATUS-EOF-88    VALUE '10'.                  DTSBX420
00123                                                                   DTSBX420
00124 **   05  BATCH-STATUS            PIC  X(02).                      DTSBX420
00125 *        88 BATCH-STATUS-OK-88       VALUE '00'.                  DTSBX420
00126 **       88 BATCH-STATUS-EOF-88      VALUE '10'.                  DTSBX420
00127                                                                   DTSBX420
00128      05  SORT-EOF-IND            PIC  X(01).                      DTSBX420
00129          88 SORT-OK-88               VALUE '0'.                   DTSBX420
00130          88 SORT-EOF-88              VALUE '1'.                   DTSBX420
00131                                                                   DTSBX420
00132      05  W-ERROR-IND                 PIC  X(01) VALUE 'N'.        DTSBX420
00133          88 W-ERROR-YES-88            VALUE 'Y'.                  DTSBX420
00134          88 W-ERROR-NO-88             VALUE 'N'.                  DTSBX420
00135                                                                   DTSBX420
00136      05  W-FATAL-ERROR-IND           PIC  X(01) VALUE 'N'.        DTSBX420
00137          88 W-FATAL-ERROR-YES-88      VALUE 'Y'.                  DTSBX420
00138          88 W-FATAL-ERROR-NO-88       VALUE 'N'.                  DTSBX420
00139                                                                   DTSBX420
00140      05  W-EMP-NO                PIC  9(07) VALUE ZERO.           DTSBX420
00141      05  W-PSEUDO-BATCH-NO       PIC  9(05) VALUE ZERO.           DTSBX420
00142      05  W-CURR-RUN-DATE         PIC S9(09) COMP-3.               DTSBX420
00143      05  W-LAST-RATE-YEAR        PIC  9(04).                      DTSBX420
00144                                                                   DTSBX420
00145      05  SUB                     PIC S9(04)    COMP.              DTSBX420
00146 **   05  W-PSEUDO-BATCH-NO       PIC  9(05) VALUE ZERO.           DTSBX420
00147 *    05  FILLER REDEFINES W-PSEUDO-BATCH-NO.                      DTSBX420
00148 *        10  W-PSEUDO-DAYS       PIC  9(03).                      DTSBX420
00149 **       10  W-PSEUDO-BATCH-SEQ  PIC  9(02).                      DTSBX420
00150                                                                   DTSBX420
00151      05  W-START-BATCH           PIC  9(05) VALUE ZERO.           DTSBX420
00152      05  W-END-BATCH             PIC  9(05) VALUE ZERO.           DTSBX420
00153                                                                   DTSBX420
00154      05  W-PSEUDO-ITEM-NO        PIC  9(03)  VALUE 0.             DTSBX420
00155                                                                   DTSBX420
00156      05  W-500-DATE.                                              DTSBX420
00157          10  W-500-DATE-MM       PIC XX.                          DTSBX420
00158          10  FILLER              PIC X.                           DTSBX420
00159          10  W-500-DATE-DD       PIC XX.                          DTSBX420
00160          10  FILLER              PIC X.                           DTSBX420
00161          10  W-500-DATE-YY       PIC XXXX.                        DTSBX420
00162                                                                   DTSBX420
00163      05  W-500-FQTR.                                              DTSBX420
00164          10  W-500-FQTR-YY       PIC XXXX.                        DTSBX420
00165          10  FILLER              PIC X VALUE '/'.                 DTSBX420
00166          10  W-500-FQTR-NO       PIC X.                           DTSBX420
00167                                                                   DTSBX420
00168      05  W-INT-9                 PIC  9(13).                      DTSBX420
00169      05  W-INT-X   REDEFINES W-INT-9                              DTSBX420
00170                                  PIC  X(13).                      DTSBX420
00171      05  W-INTEGER               PIC  S9(11) COMP-3.              DTSBX420
00172      05  W-FRACTION              PIC  SV9(11) COMP-3.             DTSBX420
00173      05  W-NUMBER                PIC  S9(11)V9(05) COMP-3.        DTSBX420
00174                                                                   DTSBX420
00175 **   05  W-MULTIPLIER            PIC S9(11)V99 COMP-3             DTSBX420
00176 *                                     VALUE +0.                   DTSBX420
00177 *    05  W-DIGIT                 PIC 9.                           DTSBX420
00178 *    05  W-AMT                   PIC S9(09)V99 COMP-3             DTSBX420
00179 *                                     VALUE +0.                   DTSBX420
00180 *                                                                 DTSBX420
00181 *    05  W-DECIMAL-FOUND-IND     PIC  X(01) VALUE 'N'.            DTSBX420
00182 *        88  W-DECIMAL-FOUND-YES-88  VALUE 'Y'.                   DTSBX420
00183 *        88  W-DECIMAL-FOUND-NO-88   VALUE 'N'.                   DTSBX420
00184 *                                                                 DTSBX420
00185 *    05  W-WAGES                 PIC S9(11)V99.                   DTSBX420
00186 *    05  W-WAGES-X               PIC  X(14).                      DTSBX420
00187 *    05  W-WAGES-9 REDEFINES W-WAGES-X                            DTSBX420
00188 *                                PIC  9(11).99.                   DTSBX420
00189 *    05  W-REMIT-X               PIC  X(12).                      DTSBX420
00190 *    05  W-REMIT-9 REDEFINES W-REMIT-X                            DTSBX420
00191 *                                PIC  9(09).99.                   DTSBX420
00192      05  W-TRACE-X.                                               DTSBX420
00193          10  W-TRACE-A           PIC  X(05) VALUE '00000'.        DTSBX420
00194          10  W-TRACE-B           PIC  X(08) VALUE ZEROS.          DTSBX420
00195      05  W-TRACE-9 REDEFINES W-TRACE-X                            DTSBX420
00196                                  PIC  9(13).                      DTSBX420
00197 *    05  W-COUNT-X               PIC  X(07).                      DTSBX420
00198 *    05  W-COUNT-9 REDEFINES W-COUNT-X                            DTSBX420
00199 *                                PIC  9(07).                      DTSBX420
00200 *    05  W-EARNINGS-X            PIC  X(12).                      DTSBX420
00201 *    05  W-EARNINGS-9   REDEFINES W-EARNINGS-X                    DTSBX420
00202 *                                PIC  9(09).99.                   DTSBX420
00203 *    05  W-EARNINGS              PIC S9(07)V99.                   DTSBX420
00204 *    05  W-RATE                  PIC S9V9(04).                    DTSBX420
00205 *    05  W-RATE-X                PIC  X(06).                      DTSBX420
00206 *    05  W-RATE-9       REDEFINES W-RATE-X                        DTSBX420
00207 *                                PIC  9.9999.                     DTSBX420
00208 *                                                                 DTSBX420
00209 *    05  ISUB1                   PIC S9(04) COMP.                 DTSBX420
00210 *    05  ISUB2                   PIC S9(04) COMP.                 DTSBX420
00211 *    05  ISUB3                   PIC S9(04) COMP.                 DTSBX420
00212 *    05  ISUB4                   PIC S9(04) COMP.                 DTSBX420
00213 *    05  ISUB5                   PIC S9(04) COMP.                 DTSBX420
00214 *    05  ISUB6                   PIC S9(04) COMP.                 DTSBX420
00215 *    05  W-SLASH1                PIC S9(04) COMP.                 DTSBX420
00216 *    05  W-SLASH2                PIC S9(04) COMP.                 DTSBX420
00217 *    05  W-CURR-FIELD            PIC S9(04) COMP.                 DTSBX420
00218 *    05  W-LAST-FIELD            PIC S9(04) COMP.                 DTSBX420
00219 *    05  W-LAST-FIELD-LEN        PIC S9(04) COMP.                 DTSBX420
00220 *    05  W-INPUT-LENGTH          PIC S9(04) COMP                  DTSBX420
00221 *                                 VALUE +502.                     DTSBX420
00222 *    05  W-INPUT-LINE            PIC  X(500).                     DTSBX420
00223 *    05  W-PARSE-COMPLETE-IND    PIC  X(01).                      DTSBX420
00224 *        88  W-PARSE-COMPLETE-YES-88  VALUE 'Y'.                  DTSBX420
00225 *        88  W-PARSE-COMPLETE-NO-88   VALUE 'N'.                  DTSBX420
00226 *    05  W-FIELD-LENGTH          PIC S9(04) COMP.                 DTSBX420
00227 *    05  W-CONV-LINE             PIC  X(32).                      DTSBX420
00228 *                                                                 DTSBX420
00229 *    05  W-MDY         PIC  X(04).                                DTSBX420
00230 *    05  FILLER REDEFINES W-MDY.                                  DTSBX420
00231 *        10  FILLER              PIC  X(02).                      DTSBX420
00232 *        10  W-MDY-X-2           PIC  X(02).                      DTSBX420
00233 *        10  FILLER REDEFINES W-MDY-X-2.                          DTSBX420
00234 *            15  FILLER          PIC  X(01).                      DTSBX420
00235 **           15  W-MDY-X-1       PIC  X(01).                      DTSBX420
00236                                                                   DTSBX420
00237      05  W-WEB-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.     DTSBX420
00238                                                                   DTSBX420
00239      05  W-WEB-IMP-LENGTH        PIC S9(04)  COMP.                DTSBX420
00240                                                                   DTSBX420
00241      05  W-AMT-DISP1             PIC ----------9.99.              DTSBX420
00242      05  W-AMT-DISP2             PIC ----------9.99.              DTSBX420
00243      05  W-AMT-DISP4             PIC -.99999999999.               DTSBX420
00244      05  W-AMT-DISP3             PIC ------------9.               DTSBX420
00245                                                                   DTSBX420
00246 *  PROFILE                                                        DTSBX420
00247  01  X102-REC.                                                    DTSBX420
00248  ++INCLUDE DTSIX102                                               DTSBX420
00249                                                                   DTSBX420
00250 *  DETERMINATION                                                  DTSBX420
00251  01  X104-REC.                                                    DTSBX420
00252  ++INCLUDE DTSIX104                                               DTSBX420
00253                                                                   DTSBX420
00254 *  NAME                                                           DTSBX420
00255  01  X106-REC.                                                    DTSBX420
00256  ++INCLUDE DTSIX106                                               DTSBX420
00257                                                                   DTSBX420
00258 *  RATE                                                           DTSBX420
00259  01  X108-REC.                                                    DTSBX420
00260  ++INCLUDE DTSIX108                                               DTSBX420
00261                                                                   DTSBX420
00262 *  ADDRESS                                                        DTSBX420
00263  01  X110-REC.                                                    DTSBX420
00264  ++INCLUDE DTSIX110                                               DTSBX420
00265                                                                   DTSBX420
00266 *  OPO                                                            DTSBX420
00267  01  X120-REC.                                                    DTSBX420
00268  ++INCLUDE DTSIX120                                               DTSBX420
00269                                                                   DTSBX420
00270 *  RELATIONSHIP                                                   DTSBX420
00271  01  X130-REC.                                                    DTSBX420
00272  ++INCLUDE DTSIX130                                               DTSBX420
00273                                                                   DTSBX420
00274 ** INDUSTRY DESCRIPTION                                           DTSBX420
00275 *01  X132-REC.                                                    DTSBX420
00276 ***INCLUDE DTSIX132                                               DTSBX420
00277                                                                   DTSBX420
00278 *  REPORT                                                         DTSBX420
00279  01  X140-REC.                                                    DTSBX420
00280  ++INCLUDE DTSIX140                                               DTSBX420
00281                                                                   DTSBX420
00282 *  EMPLOYEE WAGES                                                 DTSBX420
00283  01  X144-REC.                                                    DTSBX420
00284  ++INCLUDE DTSIX144                                               DTSBX420
00285                                                                   DTSBX420
00286 *  PAYMENT                                                        DTSBX420
00287  01  X145-REC.                                                    DTSBX420
00288  ++INCLUDE DTSIX145                                               DTSBX420
00289                                                                   DTSBX420
00290  01  X149-REC.                                                    DTSBX420
00291  ++INCLUDE DTSIX149                                               DTSBX420
00292                                                                   DTSBX420
00293  01  L001-LINK-AREA.                                              DTSBX420
00294  ++INCLUDE DTSIL001                                               DTSBX420
00295                                                                   DTSBX420
00296  01  L003-LINK-AREA.                                              DTSBX420
00297  ++INCLUDE DTSIL003                                               DTSBX420
00298                                                                   DTSBX420
00299  01  L004-LINK-AREA.                                              DTSBX420
00300  ++INCLUDE DTSIL004                                               DTSBX420
00301                                                                   DTSBX420
00302  01  L005-LINK-AREA.                                              DTSBX420
00303  ++INCLUDE DTSIL005                                               DTSBX420
00304                                                                   DTSBX420
00305  01  L205-LINK-AREA.                                              DTSBX420
00306  ++INCLUDE DTSIL205                                               DTSBX420
00307                                                                   DTSBX420
00308  01  LX42-LINK-AREA.                                              DTSBX420
00309  ++INCLUDE DTSILX42                                               DTSBX420
00310                                                                   DTSBX420
00311  01  L910-LINK-AREA.                                              DTSBX420
00312  ++INCLUDE DTSIL910                                               DTSBX420
00313  01  MSKL-REC.                                                    DTSBX420
00314  ++INCLUDE DTSIMSKL                                               DTSBX420
00315                                                                   DTSBX420
00316  01  MHDR-REC.                                                    DTSBX420
00317  ++INCLUDE DTSIMHDR                                               DTSBX420
00318                                                                   DTSBX420
00319  01  MPRF-REC.                                                    DTSBX420
00320  ++INCLUDE DTSIMPRF                                               DTSBX420
00321                                                                   DTSBX420
00322  01  MSOL-REC.                                                    DTSBX420
00323  ++INCLUDE DTSIMSOL                                               DTSBX420
00324                                                                   DTSBX420
00325  01  MQTR-REC.                                                    DTSBX420
00326  ++INCLUDE DTSIMQTR                                               DTSBX420
00327                                                                   DTSBX420
00328  01  MOPO-REC.                                                    DTSBX420
00329  ++INCLUDE DTSIMOPO                                               DTSBX420
00330                                                                   DTSBX420
00331  01  MTAD-REC.                                                    DTSBX420
00332  ++INCLUDE DTSIMTAD                                               DTSBX420
00333                                                                   DTSBX420
00334  01  MNTE-REC.                                                    DTSBX420
00335  ++INCLUDE DTSIMNTE                                               DTSBX420
00336                                                                   DTSBX420
00337  01  L921-LINK-AREA.                                              DTSBX420
00338  ++INCLUDE DTSIL921                                               DTSBX420
00339      SKIP3                                                        DTSBX420
00340  01  ISKL-REC.                                                    DTSBX420
00341  ++INCLUDE DTSIISKL                                               DTSBX420
00342      SKIP3                                                        DTSBX420
00343  01  IEIN-REC.                                                    DTSBX420
00344  ++INCLUDE DTSIIEIN                                               DTSBX420
00345                                                                   DTSBX420
00346  01   L923-LINK-AREA.                                             DTSBX420
00347  ++INCLUDE DTSIL923                                               DTSBX420
00348      EJECT                                                        DTSBX420
00349  01  ASKL-REC.                                                    DTSBX420
00350  ++INCLUDE DTSIASKL                                               DTSBX420
00351      EJECT                                                        DTSBX420
00352  01  AHDR-REC.                                                    DTSBX420
00353  ++INCLUDE DTSIAHDR                                               DTSBX420
00354                                                                   DTSBX420
00355  01  ARPT-REC.                                                    DTSBX420
00356  ++INCLUDE DTSIARPT                                               DTSBX420
00357                                                                   DTSBX420
00358  01  APAY-REC.                                                    DTSBX420
00359  ++INCLUDE DTSIAPAY                                               DTSBX420
00360                                                                   DTSBX420
00361                                                                   DTSBX420
00362  01  L927-LINK-AREA.                                              DTSBX420
00363  ++INCLUDE DTSIL927                                               DTSBX420
00364                                                                   DTSBX420
00365  01  TSKL-REC.                                                    DTSBX420
00366  ++INCLUDE DTSITSKL                                               DTSBX420
00367                                                                   DTSBX420
00368  01  L931-LINK-AREA.                                              DTSBX420
00369  ++INCLUDE DTSIL931                                               DTSBX420
00370                                                                   DTSBX420
00371  01  FSKL-REC.                                                    DTSBX420
00372  ++INCLUDE DTSIFSKL                                               DTSBX420
00373                                                                   DTSBX420
00374  PROCEDURE DIVISION.                                              DTSBX420
00375                                                                   DTSBX420
00376  DTSBX420-MAIN.                                                   DTSBX420
00377      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBX420
00378      IF W-FATAL-ERROR-YES-88                                      DTSBX420
00379         GO TO DTSBX420-MAIN-EXIT                                  DTSBX420
00380      END-IF.                                                      DTSBX420
00381                                                                   DTSBX420
00382      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBX420
00383                                                                   DTSBX420
00384      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBX420
00385      IF W-ERROR-YES-88                                            DTSBX420
00386         MOVE +2 TO RETURN-CODE.                                   DTSBX420
00387  DTSBX420-MAIN-EXIT.                                              DTSBX420
00388      GOBACK.                                                      DTSBX420
00389      EJECT                                                        DTSBX420
00390  I0000-INITIATE.                                                  DTSBX420
00391      SET W-ERROR-NO-88                 TO TRUE.                   DTSBX420
00392      SET W-FATAL-ERROR-NO-88           TO TRUE.                   DTSBX420
00393                                                                   DTSBX420
00394      PERFORM S005-FROM-SYS             THRU S005-EXIT.            DTSBX420
00395                                                                   DTSBX420
00396      PERFORM I2000-OPEN-FILES          THRU I2000-EXIT.           DTSBX420
00397      IF W-FATAL-ERROR-YES-88                                      DTSBX420
00398         GO TO I0000-EXIT                                          DTSBX420
00399      END-IF.                                                      DTSBX420
00400                                                                   DTSBX420
00401      PERFORM I3000-READ-HEADER         THRU I3000-EXIT.           DTSBX420
00402      IF W-FATAL-ERROR-YES-88                                      DTSBX420
00403         GO TO I0000-EXIT                                          DTSBX420
00404      END-IF.                                                      DTSBX420
00405                                                                   DTSBX420
00406 **   PERFORM I4000-CURRENT-BATCH       THRU I4000-EXIT            DTSBX420
00407 *    IF W-FATAL-ERROR-YES-88                                      DTSBX420
00408 *       GO TO I0000-EXIT                                          DTSBX420
00409 **   END-IF.                                                      DTSBX420
00410                                                                   DTSBX420
00411      PERFORM I5000-INITIAL-CALLS       THRU I5000-EXIT.           DTSBX420
00412                                                                   DTSBX420
00413  I0000-EXIT.                                                      DTSBX420
00414      EXIT.                                                        DTSBX420
00415                                                                   DTSBX420
00416  I2000-OPEN-FILES.                                                DTSBX420
00417      OPEN INPUT    WEB-IMP-FILE.                                  DTSBX420
00418      IF NOT WEB-IMP-STATUS-OK-88                                  DTSBX420
00419         SET W-FATAL-ERROR-YES-88       TO TRUE                    DTSBX420
00420         DISPLAY 'NO ESSP UPDATES FILE  TO PROCESS'                DTSBX420
00421         MOVE +3 TO RETURN-CODE                                    DTSBX420
00422         SET W-ERROR-YES-88           TO TRUE                      DTSBX420
00423         DISPLAY 'CANNOT OPEN WEB-IMP-FILE '                       DTSBX420
00424            WEB-IMP-STATUS                                         DTSBX420
00425         GO TO I2000-EXIT                                          DTSBX420
00426      END-IF.                                                      DTSBX420
00427                                                                   DTSBX420
00428      READ WEB-IMP-FILE.                                           DTSBX420
00429      IF NOT WEB-IMP-STATUS-OK-88                                  DTSBX420
00430         SET W-FATAL-ERROR-YES-88       TO TRUE                    DTSBX420
00431         DISPLAY 'NO ESSP FTP UPDATE FILES TO PROCESS'             DTSBX420
00432         MOVE +3 TO RETURN-CODE                                    DTSBX420
00433         SET W-ERROR-YES-88           TO TRUE                      DTSBX420
00434         DISPLAY 'NO RECORDS ON  WEB-IMP-FILE '                    DTSBX420
00435            WEB-IMP-STATUS                                         DTSBX420
00436         GO TO I2000-EXIT                                          DTSBX420
00437      END-IF.                                                      DTSBX420
00438      CLOSE WEB-IMP-FILE.                                          DTSBX420
00439      OPEN INPUT    WEB-IMP-FILE.                                  DTSBX420
00440      IF NOT WEB-IMP-STATUS-OK-88                                  DTSBX420
00441         SET W-FATAL-ERROR-YES-88       TO TRUE                    DTSBX420
00442         DISPLAY 'NO ESSP UPDATES FILE  TO PROCESS'                DTSBX420
00443         MOVE +3 TO RETURN-CODE                                    DTSBX420
00444         SET W-ERROR-YES-88           TO TRUE                      DTSBX420
00445         DISPLAY 'CANNOT OPEN WEB-IMP-FILE '                       DTSBX420
00446            WEB-IMP-STATUS                                         DTSBX420
00447         GO TO I2000-EXIT                                          DTSBX420
00448      END-IF.                                                      DTSBX420
00449                                                                   DTSBX420
00450      PERFORM S910-OPEN-READ     THRU S910-EXIT.                   DTSBX420
00451                                                                   DTSBX420
00452      PERFORM S921-OPEN-READ     THRU S921-EXIT.                   DTSBX420
00453                                                                   DTSBX420
00454      PERFORM S923-OPEN-READ     THRU S923-EXIT.                   DTSBX420
00455                                                                   DTSBX420
00456      PERFORM S931-OPEN-READ     THRU S931-EXIT.                   DTSBX420
00457                                                                   DTSBX420
00458      MOVE 'N'                  TO L927-TRACE-IND.                 DTSBX420
00459      MOVE W-MOD-NAME           TO L927-MOD-NAME.                  DTSBX420
00460      PERFORM S927A-OPEN        THRU S927A-EXIT.                   DTSBX420
00461                                                                   DTSBX420
00462  I2000-EXIT.                                                      DTSBX420
00463      EXIT.                                                        DTSBX420
00464                                                                   DTSBX420
00465  I3000-READ-HEADER.                                               DTSBX420
00466      MOVE LOW-VALUES TO MSKL-REC.                                 DTSBX420
00467      MOVE +0 TO MSKL-EMP-NO.                                      DTSBX420
00468      SET MSKL-HDR-88 TO TRUE.                                     DTSBX420
00469                                                                   DTSBX420
00470      PERFORM S910-READ THRU S910-EXIT.                            DTSBX420
00471      IF L910-NO-REC-88                                            DTSBX420
00472         DISPLAY 'DTSBX420: MHDR RECORD IS MISSING'                DTSBX420
00473         SET W-FATAL-ERROR-YES-88    TO TRUE                       DTSBX420
00474         MOVE +6 TO RETURN-CODE                                    DTSBX420
00475         GO TO I3000-EXIT                                          DTSBX420
00476      ELSE                                                         DTSBX420
00477         MOVE MSKL-REC               TO MHDR-REC                   DTSBX420
00478      END-IF.                                                      DTSBX420
00479                                                                   DTSBX420
00480      MOVE MHDR-CURR-RUN-DATE        TO W-CURR-RUN-DATE.           DTSBX420
00481                                                                   DTSBX420
00482      MOVE MHDR-LAST-RATE-END-YRQ    TO L004-QTR-5-9.              DTSBX420
00483      MOVE L004-QTR-5-YR             TO W-LAST-RATE-YEAR.          DTSBX420
00484      DISPLAY 'LAST RATE YEAR '         W-LAST-RATE-YEAR.          DTSBX420
00485                                                                   DTSBX420
00486  I3000-EXIT.                                                      DTSBX420
00487      EXIT.                                                        DTSBX420
00488                                                                   DTSBX420
00489 *I4000-CURRENT-BATCH.                                             DTSBX420
00490 *    OPEN I-O      CURR-BATCH-NO.                                 DTSBX420
00491 *    IF NOT BATCH-STATUS-OK-88                                    DTSBX420
00492 *       SET W-FATAL-ERROR-YES-88      TO TRUE                     DTSBX420
00493 *       DISPLAY 'CANNOT OPEN CURR BATCH NUMBER FILE '             DTSBX420
00494 *          BATCH-STATUS                                           DTSBX420
00495 *       GO TO I4000-EXIT                                          DTSBX420
00496 *    END-IF.                                                      DTSBX420
00497 *                                                                 DTSBX420
00498 *    READ CURR-BATCH-NO                                           DTSBX420
00499 *    IF BATCH-STATUS-OK-88                                        DTSBX420
00500 *       DISPLAY 'OLD BATCH     '        CURRENT-BATCH-NO          DTSBX420
00501 *       COMPUTE W-PSEUDO-BATCH-NO = (CURRENT-BATCH-NO + 1)        DTSBX420
00502 *       MOVE W-PSEUDO-BATCH-NO    TO W-START-BATCH                DTSBX420
00503 *       MOVE ZERO                 TO W-PSEUDO-ITEM-NO             DTSBX420
00504 *       DISPLAY 'CURRENT BATCH '        W-PSEUDO-BATCH-NO         DTSBX420
00505 *       DISPLAY 'CURRENT ITEM  '        W-PSEUDO-ITEM-NO          DTSBX420
00506 *    ELSE                                                         DTSBX420
00507 *       SET W-FATAL-ERROR-YES-88      TO TRUE                     DTSBX420
00508 *       DISPLAY 'CANNOT READ CURR BATCH NUMBER FILE '             DTSBX420
00509 *          BATCH-STATUS                                           DTSBX420
00510 *       GO TO I4000-EXIT                                          DTSBX420
00511 *    END-IF.                                                      DTSBX420
00512 *                                                                 DTSBX420
00513 *I4000-EXIT.                                                      DTSBX420
00514 *    EXIT.                                                        DTSBX420
00515                                                                   DTSBX420
00516  I5000-INITIAL-CALLS.                                             DTSBX420
00517      SET LX42-INITIALIZE-88            TO TRUE.                   DTSBX420
00518      MOVE W-CURR-RUN-DATE              TO LX42-CURR-RUN-DATE.     DTSBX420
00519      MOVE L005-DATE                    TO LX42-SYS-DATE.          DTSBX420
00520      MOVE L005-TIME                    TO LX42-SYS-TIME.          DTSBX420
00521      MOVE ZERO                         TO LX42-BATCH-NO           DTSBX420
00522                                           LX42-PSEUDO-BATCH-NO    DTSBX420
00523                                           LX42-LAST-DETERM-EMP    DTSBX420
00524                                           LX42-RPT-CNT            DTSBX420
00525                                           LX42-RPT-REMIT-AMT      DTSBX420
00526                                           LX42-PAY-CNT            DTSBX420
00527                                           LX42-PAY-REMIT-AMT.     DTSBX420
00528      SET LX42-BATCH-ERR-NO-88          TO TRUE.                   DTSBX420
00529      SET LX42-ERROR-NO-88              TO TRUE.                   DTSBX420
00530      MOVE LOW-VALUES                   TO LX42-DATA-AREA.         DTSBX420
00531                                                                   DTSBX420
00532      PERFORM S421-REGISTRATION         THRU S421-EXIT.            DTSBX420
00533      PERFORM S422-REPORT               THRU S422-EXIT.            DTSBX420
00534      PERFORM S423-PAYMENT              THRU S423-EXIT.            DTSBX420
00535      PERFORM S424-PROFILE              THRU S424-EXIT.            DTSBX420
00536 **   PERFORM S426-HEADER               THRU S426-EXIT.            DTSBX420
00537                                                                   DTSBX420
00538  I5000-EXIT.                                                      DTSBX420
00539      EXIT.                                                        DTSBX420
00540                                                                   DTSBX420
00541                                                                   DTSBX420
00542  P0000-PROCESS.                                                   DTSBX420
00543      DISPLAY 'WEB IMPORT PRELIMINARY EDIT'.                       DTSBX420
00544      DISPLAY SPACE.                                               DTSBX420
00545                                                                   DTSBX420
00546      SET W-ERROR-NO-88 TO TRUE.                                   DTSBX420
00547                                                                   DTSBX420
00548      SORT SORT-FILE                                               DTSBX420
00549        ON ASCENDING KEY SORT-KEY                                  DTSBX420
00550        INPUT PROCEDURE  P1000-PRE-SORT   THRU P1000-EXIT          DTSBX420
00551        OUTPUT PROCEDURE P2000-POST-SORT  THRU P2000-EXIT.         DTSBX420
00552                                                                   DTSBX420
00553      IF SORT-RETURN NOT = +0                                      DTSBX420
00554         DISPLAY 'SORT FAILED ' SORT-RETURN                        DTSBX420
00555      END-IF.                                                      DTSBX420
00556                                                                   DTSBX420
00557  P0000-EXIT.                                                      DTSBX420
00558      EXIT.                                                        DTSBX420
00559                                                                   DTSBX420
00560                                                                   DTSBX420
00561  P1000-PRE-SORT.                                                  DTSBX420
00562 **   DISPLAY 'P1000-PRE-SORT'                                     DTSBX420
00563      PERFORM S1000-READ-WEB-IMP            THRU S1000-EXIT.       DTSBX420
00564 **   DISPLAY 'S1000-READ-WEB-IMP'                                 DTSBX420
00565      PERFORM UNTIL WEB-IMP-STATUS-EOF-88                          DTSBX420
00566         PERFORM P1100-PARSE-IMPORT-REC     THRU P1100-EXIT        DTSBX420
00567 **      DISPLAY 'P1100-PARSE-IMPORT-REC '                         DTSBX420
00568         PERFORM P1200-BUILD-SORT-REC       THRU P1200-EXIT        DTSBX420
00569 **      DISPLAY 'P1200-BUILD-SORT-REC   '                         DTSBX420
00570         PERFORM S1000-READ-WEB-IMP         THRU S1000-EXIT        DTSBX420
00571 **      DISPLAY 'S1000-READ-WEB-IMP '                             DTSBX420
00572      END-PERFORM.                                                 DTSBX420
00573                                                                   DTSBX420
00574  P1000-EXIT.                                                      DTSBX420
00575      EXIT.                                                        DTSBX420
00576                                                                   DTSBX420
00577  P1100-PARSE-IMPORT-REC.                                          DTSBX420
00578      IF WEB-IMP-TYPE-BHDR-88                                      DTSBX420
00579         DISPLAY 'BX420 P1000 HDR ' WEB-IMP-REC(1:14)              DTSBX420
00580      END-IF.                                                      DTSBX420
00581      DISPLAY 'P1000 ' WEB-IMP-TYPE '  ' WEB-IMP-EMP-NO.           DTSBX420
00582                                                                   DTSBX420
00583      PERFORM                                                      DTSBX420
00584        VARYING SUB FROM +1 BY +1                                  DTSBX420
00585        UNTIL SUB > +100                                           DTSBX420
00586        MOVE +0                  TO L205-FIELD-LENGTH (SUB)        DTSBX420
00587                                    L205-INTEGER (SUB)             DTSBX420
00588                                    L205-FRACTION (SUB)            DTSBX420
00589        MOVE SPACES              TO L205-TEXT (SUB)                DTSBX420
00590                                    L205-DATE (SUB)                DTSBX420
00591        SET L205-TYPE-TEXT-88 (SUB)  TO TRUE                       DTSBX420
00592      END-PERFORM.                                                 DTSBX420
00593                                                                   DTSBX420
00594      EVALUATE TRUE                                                DTSBX420
00595         WHEN WEB-IMP-TYPE-PRF-88                                  DTSBX420
00596            PERFORM P1100A-PRF            THRU P1100A-EXIT         DTSBX420
00597                                                                   DTSBX420
00598         WHEN WEB-IMP-TYPE-DETERM-88                               DTSBX420
00599            PERFORM P1100B-DETERM         THRU P1100B-EXIT         DTSBX420
00600                                                                   DTSBX420
00601         WHEN WEB-IMP-TYPE-NAME-88                                 DTSBX420
00602            PERFORM P1100C-NAME           THRU P1100C-EXIT         DTSBX420
00603                                                                   DTSBX420
00604         WHEN WEB-IMP-TYPE-RATE-88                                 DTSBX420
00605            PERFORM P1100D-RATE           THRU P1100D-EXIT         DTSBX420
00606                                                                   DTSBX420
00607         WHEN WEB-IMP-TYPE-ADDR-88                                 DTSBX420
00608            PERFORM P1100E-ADDR           THRU P1100E-EXIT         DTSBX420
00609                                                                   DTSBX420
00610         WHEN WEB-IMP-TYPE-OPO-88                                  DTSBX420
00611            PERFORM P1100F-OPO            THRU P1100F-EXIT         DTSBX420
00612                                                                   DTSBX420
00613         WHEN WEB-IMP-TYPE-REL-88                                  DTSBX420
00614            PERFORM P1100G-REL            THRU P1100G-EXIT         DTSBX420
00615                                                                   DTSBX420
00616 ***     WHEN WEB-IMP-TYPE-IND-88                                  DTSBX420
00617 *          PERFORM P1100X-IND            THRU P1100X-EXIT         DTSBX420
00618 *          INITIALIZE X132-REC                                    DTSBX420
00619 *          MOVE +4                       TO L205-LAST-FIELD       DTSBX420
00620 ***        MOVE +500                     TO L205-LAST-FIELD-LEN   DTSBX420
00621                                                                   DTSBX420
00622         WHEN WEB-IMP-TYPE-RPT-88                                  DTSBX420
00623            PERFORM P1100H-RPT            THRU P1100H-EXIT         DTSBX420
00624                                                                   DTSBX420
00625         WHEN WEB-IMP-TYPE-WAGE-88                                 DTSBX420
00626            PERFORM P1100I-WAGE           THRU P1100I-EXIT         DTSBX420
00627                                                                   DTSBX420
00628         WHEN WEB-IMP-TYPE-PAY-88                                  DTSBX420
00629            PERFORM P1100J-PAY            THRU P1100J-EXIT         DTSBX420
00630                                                                   DTSBX420
00631 *       WHEN WEB-IMP-TYPE-BHDR-88                                 DTSBX420
00632 *          PERFORM P1100K-BATCH-HEADER   THRU P1100K-EXIT         DTSBX420
00633                                                                   DTSBX420
00634      END-EVALUATE.                                                DTSBX420
00635                                                                   DTSBX420
00636 **   IF WEB-IMP-TYPE-PAY-88                                       DTSBX420
00637 *       GO TO P1100-EXIT                                          DTSBX420
00638 **   END-IF.                                                      DTSBX420
00639                                                                   DTSBX420
00640                                                                   DTSBX420
00641      MOVE WEB-IMP-REC              TO L205-INPUT-DATA.            DTSBX420
00642      CALL 'DTSBU205'  USING L205-LINK-AREA.                       DTSBX420
00643                                                                   DTSBX420
00644  P1100-EXIT.                                                      DTSBX420
00645      EXIT.                                                        DTSBX420
00646                                                                   DTSBX420
00647  P1100A-PRF.                                                      DTSBX420
00648       INITIALIZE X102-REC                                         DTSBX420
00649       MOVE +7                       TO L205-LAST-FIELD            DTSBX420
00650       MOVE +1                       TO L205-LAST-FIELD-LEN        DTSBX420
00651                                                                   DTSBX420
00652       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00653       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
00654                                                                   DTSBX420
00655       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00656       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSBX420
00657                                                                   DTSBX420
00658       MOVE +9                       TO L205-FIELD-LENGTH (3).     DTSBX420
00659       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSBX420
00660                                                                   DTSBX420
00661       MOVE +1                       TO L205-FIELD-LENGTH (4).     DTSBX420
00662       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSBX420
00663                                                                   DTSBX420
00664       MOVE +1                       TO L205-FIELD-LENGTH (5).     DTSBX420
00665       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSBX420
00666                                                                   DTSBX420
00667       MOVE +2                       TO L205-FIELD-LENGTH (6).     DTSBX420
00668       SET L205-TYPE-NUMBER-88 (6)   TO TRUE.                      DTSBX420
00669                                                                   DTSBX420
00670       MOVE +1                       TO L205-FIELD-LENGTH (7).     DTSBX420
00671       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSBX420
00672                                                                   DTSBX420
00673  P1100A-EXIT.                                                     DTSBX420
00674      EXIT.                                                        DTSBX420
00675                                                                   DTSBX420
00676  P1100B-DETERM.                                                   DTSBX420
00677       INITIALIZE X104-REC                                         DTSBX420
00678       MOVE +18                      TO L205-LAST-FIELD            DTSBX420
00679       MOVE +1                       TO L205-LAST-FIELD-LEN        DTSBX420
00680                                                                   DTSBX420
00681       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00682       SET L205-TYPE-TEXT-88 (1)   TO TRUE.                        DTSBX420
00683                                                                   DTSBX420
00684       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00685       SET L205-TYPE-TEXT-88 (2)   TO TRUE.                        DTSBX420
00686                                                                   DTSBX420
00687       MOVE +1                       TO L205-FIELD-LENGTH (3).     DTSBX420
00688       SET L205-TYPE-TEXT-88 (3)   TO TRUE.                        DTSBX420
00689                                                                   DTSBX420
00690       MOVE +2                       TO L205-FIELD-LENGTH (4).     DTSBX420
00691       SET L205-TYPE-NUMBER-88 (4)   TO TRUE.                      DTSBX420
00692                                                                   DTSBX420
00693       MOVE +2                       TO L205-FIELD-LENGTH (5).     DTSBX420
00694       SET L205-TYPE-NUMBER-88 (5)   TO TRUE.                      DTSBX420
00695                                                                   DTSBX420
00696       MOVE +6                       TO L205-FIELD-LENGTH (6).     DTSBX420
00697       SET L205-TYPE-TEXT-88 (6)     TO TRUE.                      DTSBX420
00698                                                                   DTSBX420
00699       MOVE +3                       TO L205-FIELD-LENGTH (7).     DTSBX420
00700       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSBX420
00701                                                                   DTSBX420
00702       MOVE +2                       TO L205-FIELD-LENGTH (8).     DTSBX420
00703       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                      DTSBX420
00704                                                                   DTSBX420
00705       MOVE +10                      TO L205-FIELD-LENGTH (9).     DTSBX420
00706       SET L205-TYPE-DATE-88 (9)     TO TRUE.                      DTSBX420
00707                                                                   DTSBX420
00708       MOVE +1                       TO L205-FIELD-LENGTH (10).    DTSBX420
00709       SET L205-TYPE-TEXT-88 (10)    TO TRUE.                      DTSBX420
00710                                                                   DTSBX420
00711       MOVE +10                      TO L205-FIELD-LENGTH (11).    DTSBX420
00712       SET L205-TYPE-DATE-88 (11)    TO TRUE.                      DTSBX420
00713                                                                   DTSBX420
00714       MOVE +10                      TO L205-FIELD-LENGTH (12).    DTSBX420
00715       SET L205-TYPE-TEXT-88 (12)    TO TRUE.                      DTSBX420
00716                                                                   DTSBX420
00717       MOVE +1                       TO L205-FIELD-LENGTH (13).    DTSBX420
00718       SET L205-TYPE-TEXT-88 (13)    TO TRUE.                      DTSBX420
00719                                                                   DTSBX420
00720       MOVE +1                       TO L205-FIELD-LENGTH (14).    DTSBX420
00721       SET L205-TYPE-TEXT-88 (14)    TO TRUE.                      DTSBX420
00722                                                                   DTSBX420
00723       MOVE +1                       TO L205-FIELD-LENGTH (15).    DTSBX420
00724       SET L205-TYPE-TEXT-88 (15)    TO TRUE.                      DTSBX420
00725                                                                   DTSBX420
00726       MOVE +1                       TO L205-FIELD-LENGTH (16).    DTSBX420
00727       SET L205-TYPE-TEXT-88 (16)    TO TRUE.                      DTSBX420
00728                                                                   DTSBX420
00729       MOVE +1                       TO L205-FIELD-LENGTH (17).    DTSBX420
00730       SET L205-TYPE-TEXT-88 (17)    TO TRUE.                      DTSBX420
00731                                                                   DTSBX420
00732       MOVE +1                       TO L205-FIELD-LENGTH (18).    DTSBX420
00733       SET L205-TYPE-TEXT-88 (18)    TO TRUE.                      DTSBX420
00734                                                                   DTSBX420
00735  P1100B-EXIT.                                                     DTSBX420
00736      EXIT.                                                        DTSBX420
00737                                                                   DTSBX420
00738  P1100C-NAME.                                                     DTSBX420
00739       INITIALIZE X106-REC                                         DTSBX420
00740       MOVE +4                       TO L205-LAST-FIELD            DTSBX420
00741       MOVE +40                      TO L205-LAST-FIELD-LEN        DTSBX420
00742                                                                   DTSBX420
00743       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00744       SET L205-TYPE-TEXT-88 (1)   TO TRUE.                        DTSBX420
00745                                                                   DTSBX420
00746       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00747       SET L205-TYPE-TEXT-88 (2)   TO TRUE.                        DTSBX420
00748                                                                   DTSBX420
00749       MOVE +1                       TO L205-FIELD-LENGTH (3).     DTSBX420
00750       SET L205-TYPE-TEXT-88 (3)   TO TRUE.                        DTSBX420
00751                                                                   DTSBX420
00752       MOVE +40                      TO L205-FIELD-LENGTH (4).     DTSBX420
00753       SET L205-TYPE-TEXT-88 (4)   TO TRUE.                        DTSBX420
00754                                                                   DTSBX420
00755  P1100C-EXIT.                                                     DTSBX420
00756      EXIT.                                                        DTSBX420
00757                                                                   DTSBX420
00758  P1100D-RATE.                                                     DTSBX420
00759 **    DISPLAY 'RATE P1100D ' WEB-IMP-REC (1:23).                  DTSBX420
00760                                                                   DTSBX420
00761       INITIALIZE X108-REC.                                        DTSBX420
00762       MOVE +4                       TO L205-LAST-FIELD.           DTSBX420
00763       MOVE +6                       TO L205-LAST-FIELD-LEN.       DTSBX420
00764                                                                   DTSBX420
00765       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00766       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
00767                                                                   DTSBX420
00768       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00769       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSBX420
00770                                                                   DTSBX420
00771       MOVE +4                       TO L205-FIELD-LENGTH (3).     DTSBX420
00772       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSBX420
00773                                                                   DTSBX420
00774       MOVE +6                       TO L205-FIELD-LENGTH (4).     DTSBX420
00775       SET L205-TYPE-NUMBER-88 (4)   TO TRUE.                      DTSBX420
00776                                                                   DTSBX420
00777  P1100D-EXIT.                                                     DTSBX420
00778      EXIT.                                                        DTSBX420
00779                                                                   DTSBX420
00780  P1100E-ADDR.                                                     DTSBX420
00781       INITIALIZE X110-REC.                                        DTSBX420
00782       MOVE +14                      TO L205-LAST-FIELD.           DTSBX420
00783       MOVE +40                      TO L205-LAST-FIELD-LEN.       DTSBX420
00784                                                                   DTSBX420
00785       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00786       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
00787                                                                   DTSBX420
00788       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00789       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSBX420
00790                                                                   DTSBX420
00791       MOVE +2                       TO L205-FIELD-LENGTH (3).     DTSBX420
00792       SET L205-TYPE-NUMBER-88 (3)   TO TRUE.                      DTSBX420
00793                                                                   DTSBX420
00794       MOVE +40                      TO L205-FIELD-LENGTH (4).     DTSBX420
00795       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSBX420
00796                                                                   DTSBX420
00797       MOVE +40                      TO L205-FIELD-LENGTH (5).     DTSBX420
00798       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSBX420
00799                                                                   DTSBX420
00800       MOVE +40                      TO L205-FIELD-LENGTH (6).     DTSBX420
00801       SET L205-TYPE-TEXT-88 (6)     TO TRUE.                      DTSBX420
00802                                                                   DTSBX420
00803       MOVE +25                      TO L205-FIELD-LENGTH (7).     DTSBX420
00804       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSBX420
00805                                                                   DTSBX420
00806       MOVE +2                       TO L205-FIELD-LENGTH (8).     DTSBX420
00807       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                      DTSBX420
00808                                                                   DTSBX420
00809       MOVE +10                      TO L205-FIELD-LENGTH (9).     DTSBX420
00810       SET L205-TYPE-TEXT-88 (9)     TO TRUE.                      DTSBX420
00811                                                                   DTSBX420
00812       MOVE +15                      TO L205-FIELD-LENGTH (10).    DTSBX420
00813       SET L205-TYPE-TEXT-88 (10)     TO TRUE.                     DTSBX420
00814                                                                   DTSBX420
00815       MOVE +15                      TO L205-FIELD-LENGTH (11).    DTSBX420
00816       SET L205-TYPE-TEXT-88 (11)     TO TRUE.                     DTSBX420
00817                                                                   DTSBX420
00818       MOVE +40                      TO L205-FIELD-LENGTH (12).    DTSBX420
00819       SET L205-TYPE-TEXT-88 (12)     TO TRUE.                     DTSBX420
00820                                                                   DTSBX420
00821       MOVE +40                      TO L205-FIELD-LENGTH (13).    DTSBX420
00822       SET L205-TYPE-TEXT-88 (13)     TO TRUE.                     DTSBX420
00823                                                                   DTSBX420
00824       MOVE +40                      TO L205-FIELD-LENGTH (14).    DTSBX420
00825       SET L205-TYPE-TEXT-88 (14)     TO TRUE.                     DTSBX420
00826                                                                   DTSBX420
00827  P1100E-EXIT.                                                     DTSBX420
00828      EXIT.                                                        DTSBX420
00829                                                                   DTSBX420
00830  P1100F-OPO.                                                      DTSBX420
00831       INITIALIZE X120-REC.                                        DTSBX420
00832       MOVE +18                      TO L205-LAST-FIELD.           DTSBX420
00833       MOVE +40                      TO L205-LAST-FIELD-LEN.       DTSBX420
00834                                                                   DTSBX420
00835       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00836       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
00837                                                                   DTSBX420
00838       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00839       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSBX420
00840                                                                   DTSBX420
00841       MOVE +2                       TO L205-FIELD-LENGTH (3).     DTSBX420
00842       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSBX420
00843                                                                   DTSBX420
00844       MOVE +20                      TO L205-FIELD-LENGTH (4).     DTSBX420
00845       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSBX420
00846                                                                   DTSBX420
00847       MOVE +1                       TO L205-FIELD-LENGTH (5).     DTSBX420
00848       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSBX420
00849                                                                   DTSBX420
00850       MOVE +20                      TO L205-FIELD-LENGTH (6).     DTSBX420
00851       SET L205-TYPE-TEXT-88 (6)     TO TRUE.                      DTSBX420
00852                                                                   DTSBX420
00853       MOVE +40                      TO L205-FIELD-LENGTH (7).     DTSBX420
00854       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSBX420
00855                                                                   DTSBX420
00856       MOVE +9                       TO L205-FIELD-LENGTH (8).     DTSBX420
00857       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                      DTSBX420
00858                                                                   DTSBX420
00859       MOVE +40                      TO L205-FIELD-LENGTH (9).     DTSBX420
00860       SET L205-TYPE-TEXT-88 (9)     TO TRUE.                      DTSBX420
00861                                                                   DTSBX420
00862       MOVE +40                      TO L205-FIELD-LENGTH (10).    DTSBX420
00863       SET L205-TYPE-TEXT-88 (10)    TO TRUE.                      DTSBX420
00864                                                                   DTSBX420
00865       MOVE +40                      TO L205-FIELD-LENGTH (11).    DTSBX420
00866       SET L205-TYPE-TEXT-88 (11)    TO TRUE.                      DTSBX420
00867                                                                   DTSBX420
00868       MOVE +40                      TO L205-FIELD-LENGTH (12).    DTSBX420
00869       SET L205-TYPE-TEXT-88 (12)    TO TRUE.                      DTSBX420
00870                                                                   DTSBX420
00871       MOVE +25                      TO L205-FIELD-LENGTH (13).    DTSBX420
00872       SET L205-TYPE-TEXT-88 (13)    TO TRUE.                      DTSBX420
00873                                                                   DTSBX420
00874       MOVE +2                       TO L205-FIELD-LENGTH (14).    DTSBX420
00875       SET L205-TYPE-TEXT-88 (14)    TO TRUE.                      DTSBX420
00876                                                                   DTSBX420
00877       MOVE +10                      TO L205-FIELD-LENGTH (15).    DTSBX420
00878       SET L205-TYPE-TEXT-88 (15)    TO TRUE.                      DTSBX420
00879                                                                   DTSBX420
00880       MOVE +15                      TO L205-FIELD-LENGTH (16).    DTSBX420
00881       SET L205-TYPE-TEXT-88 (16)    TO TRUE.                      DTSBX420
00882                                                                   DTSBX420
00883       MOVE +15                      TO L205-FIELD-LENGTH (17).    DTSBX420
00884       SET L205-TYPE-TEXT-88 (17)    TO TRUE.                      DTSBX420
00885                                                                   DTSBX420
00886       MOVE +40                      TO L205-FIELD-LENGTH (18).    DTSBX420
00887       SET L205-TYPE-TEXT-88 (18)    TO TRUE.                      DTSBX420
00888                                                                   DTSBX420
00889  P1100F-EXIT.                                                     DTSBX420
00890      EXIT.                                                        DTSBX420
00891                                                                   DTSBX420
00892  P1100G-REL.                                                      DTSBX420
00893       INITIALIZE X130-REC.                                        DTSBX420
00894       MOVE +16                      TO L205-LAST-FIELD.           DTSBX420
00895       MOVE +40                      TO L205-LAST-FIELD-LEN.       DTSBX420
00896                                                                   DTSBX420
00897  P1100G-EXIT.                                                     DTSBX420
00898      EXIT.                                                        DTSBX420
00899                                                                   DTSBX420
00900  P1100H-RPT.                                                      DTSBX420
00901       DISPLAY 'P1100H-RPT ' WEB-IMP-REC(1:126).                   DTSBX420
00902       INITIALIZE X140-REC.                                        DTSBX420
00903       MOVE +15                      TO L205-LAST-FIELD.           DTSBX420
00904       MOVE +4                       TO L205-LAST-FIELD-LEN.       DTSBX420
00905                                                                   DTSBX420
00906       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00907       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
00908                                                                   DTSBX420
00909       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00910       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSBX420
00911                                                                   DTSBX420
00912       MOVE +4                       TO L205-FIELD-LENGTH (3).     DTSBX420
00913       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSBX420
00914                                                                   DTSBX420
00915       MOVE +1                       TO L205-FIELD-LENGTH (4).     DTSBX420
00916       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSBX420
00917                                                                   DTSBX420
00918       MOVE +8                       TO L205-FIELD-LENGTH (5).     DTSBX420
00919       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSBX420
00920                                                                   DTSBX420
00921       MOVE +8                       TO L205-FIELD-LENGTH (6).     DTSBX420
00922       SET L205-TYPE-TEXT-88 (6)     TO TRUE.                      DTSBX420
00923                                                                   DTSBX420
00924       MOVE +14                      TO L205-FIELD-LENGTH (7).     DTSBX420
00925       SET L205-TYPE-NUMBER-88 (7)   TO TRUE.                      DTSBX420
00926                                                                   DTSBX420
00927       MOVE +14                      TO L205-FIELD-LENGTH (8).     DTSBX420
00928       SET L205-TYPE-NUMBER-88 (8)   TO TRUE.                      DTSBX420
00929                                                                   DTSBX420
00930       MOVE +14                      TO L205-FIELD-LENGTH (9).     DTSBX420
00931       SET L205-TYPE-NUMBER-88 (9)  TO TRUE.                       DTSBX420
00932                                                                   DTSBX420
00933       MOVE +04                      TO L205-FIELD-LENGTH (10).    DTSBX420
00934       SET L205-TYPE-TEXT-88 (10)    TO TRUE.                      DTSBX420
00935                                                                   DTSBX420
00936       MOVE +10                      TO L205-FIELD-LENGTH (11).    DTSBX420
00937       SET L205-TYPE-TEXT-88 (11)    TO TRUE.                      DTSBX420
00938                                                                   DTSBX420
00939       MOVE +8                       TO L205-FIELD-LENGTH (12).    DTSBX420
00940       SET L205-TYPE-NUMBER-88 (12)  TO TRUE.                      DTSBX420
00941                                                                   DTSBX420
00942       MOVE +8                       TO L205-FIELD-LENGTH (13).    DTSBX420
00943       SET L205-TYPE-NUMBER-88 (13)  TO TRUE.                      DTSBX420
00944                                                                   DTSBX420
00945       MOVE +8                       TO L205-FIELD-LENGTH (14).    DTSBX420
00946       SET L205-TYPE-NUMBER-88 (14)  TO TRUE.                      DTSBX420
00947                                                                   DTSBX420
00948       MOVE +4                       TO L205-FIELD-LENGTH (15).    DTSBX420
00949       SET L205-TYPE-TEXT-88   (15)  TO TRUE.                      DTSBX420
00950                                                                   DTSBX420
00951 **    MOVE +1                       TO L205-FIELD-LENGTH (16).    DTSBX420
00952 **    SET L205-TYPE-TEXT-88 (18)     TO TRUE.                     DTSBX420
00953                                                                   DTSBX420
00954 **    MOVE +1                       TO L205-FIELD-LENGTH (17).    DTSBX420
00955 **    SET L205-TYPE-TEXT-88 (19)     TO TRUE.                     DTSBX420
00956                                                                   DTSBX420
00957 **    MOVE +3                       TO L205-FIELD-LENGTH (18).    DTSBX420
00958 **    SET L205-TYPE-TEXT-88 (20)     TO TRUE.                     DTSBX420
00959                                                                   DTSBX420
00960 **    MOVE +8                       TO L205-FIELD-LENGTH (19).    DTSBX420
00961 **    SET L205-TYPE-TEXT-88 (21)     TO TRUE.                     DTSBX420
00962         DISPLAY 'NANCY '.                                         DTSBX420
00963  P1100H-EXIT.                                                     DTSBX420
00964      EXIT.                                                        DTSBX420
00965                                                                   DTSBX420
00966  P1100I-WAGE.                                                     DTSBX420
00967       DISPLAY 'P1100I-WAGE ' WEB-IMP-REC(1:126).                  DTSBX420
00968       INITIALIZE X144-REC.                                        DTSBX420
00969       MOVE +10                      TO L205-LAST-FIELD.           DTSBX420
00970       MOVE +14                      TO L205-LAST-FIELD-LEN.       DTSBX420
00971                                                                   DTSBX420
00972       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
00973       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
00974                                                                   DTSBX420
00975       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
00976       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSBX420
00977                                                                   DTSBX420
00978       MOVE +4                       TO L205-FIELD-LENGTH (3).     DTSBX420
00979       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSBX420
00980                                                                   DTSBX420
00981       MOVE +1                       TO L205-FIELD-LENGTH (4).     DTSBX420
00982       SET L205-TYPE-TEXT-88   (4)   TO TRUE.                      DTSBX420
00983                                                                   DTSBX420
00984       MOVE +8                       TO L205-FIELD-LENGTH (5).     DTSBX420
00985       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSBX420
00986                                                                   DTSBX420
00987       MOVE +9                       TO L205-FIELD-LENGTH (6).     DTSBX420
00988       SET L205-TYPE-TEXT-88 (6)    TO TRUE.                       DTSBX420
00989                                                                   DTSBX420
00990       MOVE +30                      TO L205-FIELD-LENGTH (7).     DTSBX420
00991       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSBX420
00992                                                                   DTSBX420
00993       MOVE +30                      TO L205-FIELD-LENGTH (8).     DTSBX420
00994       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                      DTSBX420
00995                                                                   DTSBX420
00996       MOVE +1                       TO L205-FIELD-LENGTH (9).     DTSBX420
00997       SET L205-TYPE-TEXT-88   (9)   TO TRUE.                      DTSBX420
00998                                                                   DTSBX420
00999       MOVE +14                      TO L205-FIELD-LENGTH (10).    DTSBX420
01000       SET L205-TYPE-NUMBER-88 (10)   TO TRUE.                     DTSBX420
01001  P1100I-EXIT.                                                     DTSBX420
01002      EXIT.                                                        DTSBX420
01003                                                                   DTSBX420
01004  P1100J-PAY.                                                      DTSBX420
01005       DISPLAY 'P1100J-PAY ' WEB-IMP-REC(1:84).                    DTSBX420
01006       INITIALIZE X145-REC.                                        DTSBX420
01007       MOVE +12                      TO L205-LAST-FIELD.           DTSBX420
01008       MOVE +8                       TO L205-LAST-FIELD-LEN.       DTSBX420
01009                                                                   DTSBX420
01010       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
01011       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
01012                                                                   DTSBX420
01013       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSBX420
01014       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSBX420
01015                                                                   DTSBX420
01016       MOVE +6                       TO L205-FIELD-LENGTH (3).     DTSBX420
01017       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSBX420
01018                                                                   DTSBX420
01019       MOVE +6                       TO L205-FIELD-LENGTH (4).     DTSBX420
01020       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSBX420
01021                                                                   DTSBX420
01022       MOVE +3                       TO L205-FIELD-LENGTH (5).     DTSBX420
01023       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSBX420
01024                                                                   DTSBX420
01025       MOVE +2                       TO L205-FIELD-LENGTH (6).     DTSBX420
01026       SET L205-TYPE-TEXT-88 (6)   TO TRUE.                        DTSBX420
01027                                                                   DTSBX420
01028       MOVE +2                       TO L205-FIELD-LENGTH (7).     DTSBX420
01029       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSBX420
01030                                                                   DTSBX420
01031       MOVE +2                       TO L205-FIELD-LENGTH (8).     DTSBX420
01032       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                      DTSBX420
01033                                                                   DTSBX420
01034       MOVE +14                      TO L205-FIELD-LENGTH (9).     DTSBX420
01035       SET L205-TYPE-NUMBER-88 (9)     TO TRUE.                    DTSBX420
01036                                                                   DTSBX420
01037       MOVE +10                      TO L205-FIELD-LENGTH (10).    DTSBX420
01038       SET L205-TYPE-TEXT-88 (10)    TO TRUE.                      DTSBX420
01039                                                                   DTSBX420
01040       MOVE +10                      TO L205-FIELD-LENGTH (11).    DTSBX420
01041       SET L205-TYPE-TEXT-88 (11)     TO TRUE.                     DTSBX420
01042                                                                   DTSBX420
01043       MOVE +8                       TO L205-FIELD-LENGTH (12).    DTSBX420
01044       SET L205-TYPE-TEXT-88 (12)     TO TRUE.                     DTSBX420
01045                                                                   DTSBX420
01046                                                                   DTSBX420
01047  P1100J-EXIT.                                                     DTSBX420
01048      EXIT.                                                        DTSBX420
01049                                                                   DTSBX420
01050  P1100K-BATCH-HEADER.                                             DTSBX420
01051 **    DISPLAY 'BX420 P1100K-HDR ' WEB-IMP-REC(1:84).              DTSBX420
01052       INITIALIZE X149-REC.                                        DTSBX420
01053       MOVE +13                      TO L205-LAST-FIELD.           DTSBX420
01054       MOVE +1                       TO L205-LAST-FIELD-LEN.       DTSBX420
01055                                                                   DTSBX420
01056       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSBX420
01057       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSBX420
01058                                                                   DTSBX420
01059       MOVE +5                       TO L205-FIELD-LENGTH (2).     DTSBX420
01060       SET L205-TYPE-TEXT-88(2)      TO TRUE.                      DTSBX420
01061                                                                   DTSBX420
01062       MOVE +3                       TO L205-FIELD-LENGTH (3).     DTSBX420
01063       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSBX420
01064                                                                   DTSBX420
01065       MOVE +8                       TO L205-FIELD-LENGTH (4).     DTSBX420
01066       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSBX420
01067                                                                   DTSBX420
01068       MOVE +10                      TO L205-FIELD-LENGTH (5).     DTSBX420
01069       SET L205-TYPE-DATE-88 (5)      TO TRUE.                     DTSBX420
01070                                                                   DTSBX420
01071       MOVE +10                      TO L205-FIELD-LENGTH (6).     DTSBX420
01072       SET L205-TYPE-DATE-88 (6)      TO TRUE.                     DTSBX420
01073                                                                   DTSBX420
01074       MOVE +10                      TO L205-FIELD-LENGTH (7).     DTSBX420
01075       SET L205-TYPE-DATE-88 (7)      TO TRUE.                     DTSBX420
01076                                                                   DTSBX420
01077       MOVE +3                       TO L205-FIELD-LENGTH (8).     DTSBX420
01078       SET L205-TYPE-NUMBER-88 (8)   TO TRUE.                      DTSBX420
01079                                                                   DTSBX420
01080       MOVE +3                       TO L205-FIELD-LENGTH (9).     DTSBX420
01081       SET L205-TYPE-NUMBER-88 (9)   TO TRUE.                      DTSBX420
01082                                                                   DTSBX420
01083       MOVE +12                      TO L205-FIELD-LENGTH (10).    DTSBX420
01084       SET L205-TYPE-NUMBER-88 (10)   TO TRUE.                     DTSBX420
01085                                                                   DTSBX420
01086       MOVE +3                       TO L205-FIELD-LENGTH (11).    DTSBX420
01087       SET L205-TYPE-NUMBER-88 (11)  TO TRUE.                      DTSBX420
01088                                                                   DTSBX420
01089       MOVE +10                      TO L205-FIELD-LENGTH (12).    DTSBX420
01090       SET L205-TYPE-DATE-88 (12)    TO TRUE.                      DTSBX420
01091                                                                   DTSBX420
01092       MOVE +1                       TO L205-FIELD-LENGTH (13).    DTSBX420
01093       SET L205-TYPE-TEXT-88 (13)    TO TRUE.                      DTSBX420
01094                                                                   DTSBX420
01095  P1100K-EXIT.                                                     DTSBX420
01096      EXIT.                                                        DTSBX420
01097                                                                   DTSBX420
01098  P1200-BUILD-SORT-REC.                                            DTSBX420
01099      MOVE LOW-VALUES                       TO SORT-REC.           DTSBX420
01100      MOVE WEB-IMP-EMP-NO                   TO SORT-EMP-NO.        DTSBX420
01101                                                                   DTSBX420
01102      EVALUATE TRUE                                                DTSBX420
01103         WHEN WEB-IMP-TYPE-PRF-88                                  DTSBX420
01104           PERFORM P1200A-PRF               THRU P1200A-EXIT       DTSBX420
01105           MOVE +1                          TO SORT-SEQ1           DTSBX420
01106           MOVE X102-REC                    TO SORT-DATA           DTSBX420
01107                                                                   DTSBX420
01108         WHEN WEB-IMP-TYPE-NAME-88                                 DTSBX420
01109           PERFORM P1200C-NAME              THRU P1200C-EXIT       DTSBX420
01110           MOVE +2                          TO SORT-SEQ1           DTSBX420
01111           MOVE X106-NAME-TYPE              TO SORT-SEQ2           DTSBX420
01112           MOVE X106-REC                    TO SORT-DATA           DTSBX420
01113                                                                   DTSBX420
01114         WHEN WEB-IMP-TYPE-DETERM-88                               DTSBX420
01115           PERFORM P1200B-DETERM            THRU P1200B-EXIT       DTSBX420
01116           MOVE +3                          TO SORT-SEQ1           DTSBX420
01117           MOVE X104-REC                    TO SORT-DATA           DTSBX420
01118                                                                   DTSBX420
01119         WHEN WEB-IMP-TYPE-RATE-88                                 DTSBX420
01120           PERFORM P1200D-RATE              THRU P1200D-EXIT       DTSBX420
01121           MOVE +4                          TO SORT-SEQ1           DTSBX420
01122           MOVE X108-REC                    TO SORT-DATA           DTSBX420
01123                                                                   DTSBX420
01124         WHEN WEB-IMP-TYPE-ADDR-88                                 DTSBX420
01125           PERFORM P1200E-ADDR              THRU P1200E-EXIT       DTSBX420
01126           MOVE +90                         TO SORT-SEQ1           DTSBX420
01127           MOVE X110-REC                    TO SORT-DATA           DTSBX420
01128                                                                   DTSBX420
01129         WHEN WEB-IMP-TYPE-OPO-88                                  DTSBX420
01130           PERFORM P1200F-OPO               THRU P1200F-EXIT       DTSBX420
01131           MOVE +91                         TO SORT-SEQ1           DTSBX420
01132           MOVE X120-REC                    TO SORT-DATA           DTSBX420
01133                                                                   DTSBX420
01134         WHEN WEB-IMP-TYPE-REL-88                                  DTSBX420
01135           PERFORM P1200G-REL               THRU P1200G-EXIT       DTSBX420
01136           MOVE +5                          TO SORT-SEQ1           DTSBX420
01137           MOVE X130-REC                    TO SORT-DATA           DTSBX420
01138                                                                   DTSBX420
01139 ***     WHEN WEB-IMP-TYPE-IND-88                                  DTSBX420
01140 *         MOVE +6                          TO SORT-SEQ1           DTSBX420
01141 ***       MOVE X132-REC                    TO SORT-DATA           DTSBX420
01142                                                                   DTSBX420
01143         WHEN WEB-IMP-TYPE-RPT-88                                  DTSBX420
01144           PERFORM P1200H-RPT               THRU P1200H-EXIT       DTSBX420
01145 *         IF X140-IN-HOUSE-88                                     DTSBX420
01146 *            MOVE 999999                   TO SORT-IN-HOUSE-SEQ   DTSBX420
01147 **           MOVE X140-PSEUDO-BATCH-NO     TO SORT-BATCH          DTSBX420
01148 **           MOVE X140-PSEUDO-ITEM-NO      TO SORT-ITEM           DTSBX420
01149 *            MOVE LOW-VALUES               TO SORT-FILLER         DTSBX420
01150 *         ELSE                                                    DTSBX420
01151              MOVE +20                      TO SORT-SEQ1           DTSBX420
01152              STRING                                               DTSBX420
01153                X140-QUARTER '0' DELIMITED BY SIZE                 DTSBX420
01154                  INTO SORT-SEQ2                                   DTSBX420
01155              END-STRING                                           DTSBX420
01156 *         END-IF                                                  DTSBX420
01157           MOVE X140-REC                    TO SORT-DATA           DTSBX420
01158                                                                   DTSBX420
01159         WHEN WEB-IMP-TYPE-WAGE-88                                 DTSBX420
01160           PERFORM P1200I-WAGE              THRU P1200I-EXIT       DTSBX420
01161           MOVE +20                         TO SORT-SEQ1           DTSBX420
01162           STRING                                                  DTSBX420
01163             X140-QUARTER '1'                                      DTSBX420
01164               DELIMITED BY SIZE                                   DTSBX420
01165               INTO                                                DTSBX420
01166             SORT-SEQ2                                             DTSBX420
01167           END-STRING                                              DTSBX420
01168           MOVE X144-REC                    TO SORT-DATA           DTSBX420
01169                                                                   DTSBX420
01170         WHEN WEB-IMP-TYPE-PAY-88                                  DTSBX420
01171           PERFORM P1200J-PAY               THRU P1200J-EXIT       DTSBX420
01172 *         IF X145-IN-HOUSE-88                                     DTSBX420
01173 *            MOVE 999999                   TO SORT-IN-HOUSE-SEQ   DTSBX420
01174 *            MOVE X145-PSEUDO-BATCH        TO SORT-BATCH          DTSBX420
01175 *            MOVE X145-PSEUDO-ITEM         TO SORT-ITEM           DTSBX420
01176 *            MOVE LOW-VALUES               TO SORT-FILLER         DTSBX420
01177 *         ELSE                                                    DTSBX420
01178              MOVE +30                      TO SORT-SEQ1           DTSBX420
01179 *         END-IF                                                  DTSBX420
01180           MOVE X145-REC                    TO SORT-DATA           DTSBX420
01181 **        DISPLAY 'P2 PAY ' X145-REC                              DTSBX420
01182                                                                   DTSBX420
01183                                                                   DTSBX420
01184 **      WHEN WEB-IMP-TYPE-BHDR-88                                 DTSBX420
01185 *         PERFORM P1200K-BATCH-HEADER      THRU P1200K-EXIT       DTSBX420
01186 *         MOVE 999999                      TO SORT-IN-HOUSE-SEQ   DTSBX420
01187 *         MOVE X149-PSEUDO-BATCH           TO SORT-BATCH          DTSBX420
01188 *         MOVE X149-PSEUDO-ITEM            TO SORT-ITEM           DTSBX420
01189 *         MOVE LOW-VALUES                  TO SORT-FILLER         DTSBX420
01190 *         MOVE X149-REC                    TO SORT-DATA           DTSBX420
01191                                                                   DTSBX420
01192      END-EVALUATE.                                                DTSBX420
01193                                                                   DTSBX420
01194      RELEASE SORT-REC.                                            DTSBX420
01195                                                                   DTSBX420
01196  P1200-EXIT.                                                      DTSBX420
01197      EXIT.                                                        DTSBX420
01198                                                                   DTSBX420
01199  P1200A-PRF.                                                      DTSBX420
01200        MOVE L205-TEXT (1) (1:3)   TO X102-REC-TYPE.               DTSBX420
01201 **     DISPLAY X102-REC-TYPE                                      DTSBX420
01202        MOVE L205-TEXT (2) (1:6)   TO X102-EMP-NO.                 DTSBX420
01203 **     DISPLAY X102-EMP-NO                                        DTSBX420
01204                                                                   DTSBX420
01205        MOVE L205-TEXT (3) (1:9)   TO X102-EMP-FEIN.               DTSBX420
01206 **     DISPLAY X102-EMP-FEIN                                      DTSBX420
01207                                                                   DTSBX420
01208        MOVE L205-TEXT (4) (1:1)   TO X102-EMP-CLASS.              DTSBX420
01209 **     DISPLAY X102-EMP-CLASS                                     DTSBX420
01210                                                                   DTSBX420
01211        MOVE L205-TEXT (5) (1:1)   TO X102-EMP-STATUS.             DTSBX420
01212 **     DISPLAY X102-EMP-STATUS                                    DTSBX420
01213                                                                   DTSBX420
01214        MOVE L205-INTEGER (6)      TO W-INT-9.                     DTSBX420
01215        MOVE W-INT-X (12:2)        TO X102-SOURCE-CD.              DTSBX420
01216 **     DISPLAY X102-SOURCE-CD                                     DTSBX420
01217                                                                   DTSBX420
01218 **     DISPLAY X102-REC-TYPE                                      DTSBX420
01219        MOVE L205-TEXT (7) (1:1)   TO X102-ACTION-CD.              DTSBX420
01220 **     DISPLAY X102-ACTION-CD.                                    DTSBX420
01221                                                                   DTSBX420
01222  P1200A-EXIT.                                                     DTSBX420
01223      EXIT.                                                        DTSBX420
01224                                                                   DTSBX420
01225  P1200B-DETERM.                                                   DTSBX420
01226       MOVE L205-TEXT (1) (1:03)  TO X104-REC-TYPE.                DTSBX420
01227                                                                   DTSBX420
01228       MOVE L205-TEXT (2) (1:06)  TO X104-EMP-NO.                  DTSBX420
01229                                                                   DTSBX420
01230       MOVE L205-TEXT (3) (1:01)  TO X104-STAFF-REVIEW-IND.        DTSBX420
01231                                                                   DTSBX420
01232       MOVE L205-INTEGER (4)        TO W-INT-9.                    DTSBX420
01233       MOVE W-INT-X (12:2)          TO X104-LIAB-CD.               DTSBX420
01234                                                                   DTSBX420
01235       MOVE L205-INTEGER (5)        TO W-INT-9.                    DTSBX420
01236       MOVE W-INT-X (12:2)          TO X104-ELIG-CD.               DTSBX420
01237                                                                   DTSBX420
01238       MOVE L205-TEXT (6) (1:06)  TO X104-NAICS-CD.                DTSBX420
01239                                                                   DTSBX420
01240       MOVE L205-TEXT (7) (1:03)  TO X104-ORG-TYPE.                DTSBX420
01241                                                                   DTSBX420
01242       MOVE L205-TEXT (8) (1:02)  TO X104-INCORP-STATE.            DTSBX420
01243                                                                   DTSBX420
01244       MOVE L205-DATE (9)           TO X104-INCORP-DATE.           DTSBX420
01245                                                                   DTSBX420
01246       MOVE L205-TEXT (10) (1:01)  TO X104-HOUSEHOLD-FILING.       DTSBX420
01247                                                                   DTSBX420
01248       MOVE L205-DATE (11)          TO X104-FIRST-WAGE-DT.         DTSBX420
01249                                                                   DTSBX420
01250       MOVE L205-TEXT (12)         TO W-500-DATE.                  DTSBX420
01251                                                                   DTSBX420
01252       MOVE SPACES                  TO X104-FIRST-500-QTR          DTSBX420
01253       IF W-500-DATE > SPACES                                      DTSBX420
01254          MOVE W-500-DATE-YY        TO W-500-FQTR-YY.              DTSBX420
01255        IF W-500-DATE-MM < '04'                                    DTSBX420
01256          MOVE '1'                  TO W-500-FQTR-NO.              DTSBX420
01257        IF W-500-DATE-MM > '03' AND < '07'                         DTSBX420
01258          MOVE '2'                  TO W-500-FQTR-NO.              DTSBX420
01259        IF W-500-DATE-MM > '06' AND < '10'                         DTSBX420
01260          MOVE '3'                  TO W-500-FQTR-NO.              DTSBX420
01261        IF W-500-DATE-MM > '09' AND < '13'                         DTSBX420
01262          MOVE '4'                  TO W-500-FQTR-NO.              DTSBX420
01263       MOVE W-500-FQTR              TO X104-FIRST-500-QTR          DTSBX420
01264                                                                   DTSBX420
01265       MOVE L205-TEXT (13) (1:01)  TO X104-ACQUIRE-IND.            DTSBX420
01266                                                                   DTSBX420
01267       MOVE L205-TEXT (14) (1:01)  TO X104-MERGER-SPLIT-IND.       DTSBX420
01268                                                                   DTSBX420
01269       MOVE L205-TEXT (15) (1:01)  TO X104-REORG-IND.              DTSBX420
01270                                                                   DTSBX420
01271       MOVE L205-TEXT (16) (1:01)  TO X104-COMMON-OWN-IND.         DTSBX420
01272                                                                   DTSBX420
01273       MOVE L205-TEXT (17) (1:01)  TO X104-SALE-TRANSFER-IND.      DTSBX420
01274                                                                   DTSBX420
01275       MOVE L205-TEXT (18) (1:01)  TO X104-NOT-LIAB-REASON.        DTSBX420
01276 **    DISPLAY X104-REC.                                           DTSBX420
01277  P1200B-EXIT.                                                     DTSBX420
01278      EXIT.                                                        DTSBX420
01279                                                                   DTSBX420
01280  P1200C-NAME.                                                     DTSBX420
01281       MOVE L205-TEXT (1) (1:03)  TO X106-REC-TYPE.                DTSBX420
01282                                                                   DTSBX420
01283       MOVE L205-TEXT (2) (1:06)  TO X106-EMP-NO.                  DTSBX420
01284                                                                   DTSBX420
01285       MOVE L205-TEXT (3) (1:01)  TO X106-NAME-TYPE                DTSBX420
01286                                                                   DTSBX420
01287       MOVE L205-TEXT (4) (1:40)  TO X106-EMP-NAME.                DTSBX420
01288                                                                   DTSBX420
01289  P1200C-EXIT.                                                     DTSBX420
01290      EXIT.                                                        DTSBX420
01291                                                                   DTSBX420
01292  P1200D-RATE.                                                     DTSBX420
01293       MOVE L205-TEXT (1) (1:03)  TO X108-REC-TYPE.                DTSBX420
01294                                                                   DTSBX420
01295       MOVE L205-TEXT (2) (1:06)  TO X108-EMP-NO.                  DTSBX420
01296                                                                   DTSBX420
01297       MOVE L205-TEXT (3) (1:04)  TO X108-RATE-YEAR(1:04).         DTSBX420
01298       MOVE '/1'                  TO X108-RATE-YEAR(5:02).         DTSBX420
01299                                                                   DTSBX420
01300       MOVE L205-INTEGER (4)      TO W-INTEGER.                    DTSBX420
01301       MOVE L205-FRACTION (4)     TO W-FRACTION.                   DTSBX420
01302       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX420
01303       MOVE W-NUMBER              TO X108-RATE.                    DTSBX420
01304 **    DISPLAY 'BX420 RATE ' X108-RATE '  ' W-NUMBER.              DTSBX420
01305 **    DISPLAY '  RATE YR ' X108-RATE-YEAR.                        DTSBX420
01306                                                                   DTSBX420
01307  P1200D-EXIT.                                                     DTSBX420
01308      EXIT.                                                        DTSBX420
01309                                                                   DTSBX420
01310  P1200E-ADDR.                                                     DTSBX420
01311      MOVE L205-TEXT (1) (1:03)  TO X110-REC-TYPE.                 DTSBX420
01312                                                                   DTSBX420
01313      MOVE L205-TEXT (2) (1:06)  TO X110-EMP-NO.                   DTSBX420
01314                                                                   DTSBX420
01315      MOVE L205-INTEGER (3)      TO W-INT-9.                       DTSBX420
01316      MOVE W-INT-X (12:2)        TO X110-ADDR-TYPE.                DTSBX420
01317                                                                   DTSBX420
01318      MOVE L205-TEXT (4) (1:40)  TO X110-ATTENTION.                DTSBX420
01319                                                                   DTSBX420
01320      MOVE L205-TEXT (5) (1:40)  TO X110-STREET-1.                 DTSBX420
01321                                                                   DTSBX420
01322      MOVE L205-TEXT (6) (1:40)  TO X110-STREET-2.                 DTSBX420
01323                                                                   DTSBX420
01324      MOVE L205-TEXT (7) (1:25)  TO X110-CITY.                     DTSBX420
01325                                                                   DTSBX420
01326      MOVE L205-TEXT (8) (1:02)  TO X110-STATE.                    DTSBX420
01327                                                                   DTSBX420
01328      MOVE L205-TEXT (9) (1:10)  TO X110-ZIP.                      DTSBX420
01329                                                                   DTSBX420
01330      MOVE L205-TEXT (10) (1:15)  TO X110-PHONE.                   DTSBX420
01331                                                                   DTSBX420
01332      MOVE L205-TEXT (11) (1:15)  TO X110-FAX.                     DTSBX420
01333                                                                   DTSBX420
01334      MOVE L205-TEXT(12) (1:40)  TO X110-EMAIL.                    DTSBX420
01335                                                                   DTSBX420
01336      MOVE L205-TEXT (13) (1:40)  TO X110-WEB-SITE.                DTSBX420
01337                                                                   DTSBX420
01338      MOVE L205-TEXT (14) (1:40)  TO X110-EMP-NAME.                DTSBX420
01339                                                                   DTSBX420
01340  P1200E-EXIT.                                                     DTSBX420
01341      EXIT.                                                        DTSBX420
01342                                                                   DTSBX420
01343  P1200F-OPO.                                                      DTSBX420
01344      MOVE L205-TEXT (1) (1:03)  TO X120-REC-TYPE.                 DTSBX420
01345                                                                   DTSBX420
01346      MOVE L205-TEXT (2) (1:06)  TO X120-EMP-NO.                   DTSBX420
01347                                                                   DTSBX420
01348      MOVE L205-TEXT (3) (1:02)  TO X120-TYPE-IND.                 DTSBX420
01349                                                                   DTSBX420
01350      MOVE L205-TEXT (4) (1:20)  TO X120-OPO-FIRST-NAME.           DTSBX420
01351                                                                   DTSBX420
01352      MOVE L205-TEXT (5) (1:01)  TO X120-OPO-MID-INIT.             DTSBX420
01353                                                                   DTSBX420
01354      MOVE L205-TEXT (6) (1:20)  TO X120-OPO-LAST-NAME.            DTSBX420
01355                                                                   DTSBX420
01356      MOVE L205-TEXT (7) (1:40)  TO X120-OPO-MEMBER-NAME.          DTSBX420
01357                                                                   DTSBX420
01358      MOVE L205-TEXT (8) (1:09)  TO X120-OPO-SSN.                  DTSBX420
01359                                                                   DTSBX420
01360      MOVE L205-TEXT (9) (1:40)  TO X120-OPO-TITLE.                DTSBX420
01361                                                                   DTSBX420
01362      MOVE L205-TEXT (10) (1:40)  TO X120-OPO-ATTENTION.           DTSBX420
01363                                                                   DTSBX420
01364      MOVE L205-TEXT (11) (1:40)  TO X120-OPO-STREET-1.            DTSBX420
01365                                                                   DTSBX420
01366      MOVE L205-TEXT (12) (1:40)  TO X120-OPO-STREET-2.            DTSBX420
01367                                                                   DTSBX420
01368      MOVE L205-TEXT (13) (1:25)  TO X120-OPO-CITY.                DTSBX420
01369                                                                   DTSBX420
01370      MOVE L205-TEXT (14) (1:02)  TO X120-OPO-STATE.               DTSBX420
01371                                                                   DTSBX420
01372      MOVE L205-TEXT (15) (1:10)  TO X120-OPO-ZIP.                 DTSBX420
01373                                                                   DTSBX420
01374      MOVE L205-TEXT (16) (1:15)  TO X120-OPO-PHONE.               DTSBX420
01375                                                                   DTSBX420
01376      MOVE L205-TEXT (17) (1:15)  TO X120-OPO-FAX.                 DTSBX420
01377                                                                   DTSBX420
01378      MOVE L205-TEXT (18) (1:40)  TO X120-OPO-EMAIL.               DTSBX420
01379                                                                   DTSBX420
01380  P1200F-EXIT.                                                     DTSBX420
01381      EXIT.                                                        DTSBX420
01382                                                                   DTSBX420
01383  P1200G-REL.                                                      DTSBX420
01384  P1200G-EXIT.                                                     DTSBX420
01385      EXIT.                                                        DTSBX420
01386                                                                   DTSBX420
01387  P1200H-RPT.                                                      DTSBX420
01388      DISPLAY '01200H-RPT '                                        DTSBX420
01389                                                                   DTSBX420
01390      MOVE L205-TEXT (1) (1:03)  TO X140-REC-TYPE.                 DTSBX420
01391      DISPLAY 'X140-REC-TYPE'  X140-REC-TYPE                       DTSBX420
01392                                                                   DTSBX420
01393      MOVE L205-TEXT (2) (1:06)  TO X140-EMP-NO.                   DTSBX420
01394 **   DISPLAY 'X140-EMP-NO  '  X140-EMP-NO                         DTSBX420
01395                                                                   DTSBX420
01396      MOVE L205-TEXT (3) (1:04)  TO X140-QUARTER(1:04).            DTSBX420
01397      MOVE '/'                   TO X140-QUARTER(5:01).            DTSBX420
01398      MOVE L205-TEXT (4) (1:01)  TO X140-QUARTER(6:01).            DTSBX420
01399                                                                   DTSBX420
01400      MOVE '00'                  TO X140-SOURCE.                   DTSBX420
01401 **   DISPLAY 'X140-EMP-NO  '  X140-EMP-NO                         DTSBX420
01402                                                                   DTSBX420
01403      MOVE L205-TEXT (5) (1:02)  TO X140-REPORT-TYPE.              DTSBX420
01404      IF X140-REPORT-TYPE = ZERO                                   DTSBX420
01405         MOVE 'OR' TO X140-REPORT-TYPE                             DTSBX420
01406      ELSE                                                         DTSBX420
01407         MOVE 'EA' TO X140-REPORT-TYPE                             DTSBX420
01408      END-IF.                                                      DTSBX420
01409                                                                   DTSBX420
01410 **   DISPLAY 'L205-TEXT (6) (1:02) ' L205-TEXT (6) (1:02)         DTSBX420
01411 **   DISPLAY 'X140-REPORT-TYPE '  X140-REPORT-TYPE                DTSBX420
01412                                                                   DTSBX420
01413      MOVE ZEROS                 TO X140-PSEUDO-BATCH-NO.          DTSBX420
01414 **   DISPLAY 'X140-PSEUDO-BATCH-NO ' X140-PSEUDO-BATCH-NO         DTSBX420
01415                                                                   DTSBX420
01416      MOVE ZEROS                 TO X140-PSEUDO-ITEM-NO.           DTSBX420
01417 **   DISPLAY 'X140-PSEUDO-ITEM-NO ' X140-PSEUDO-ITEM-NO           DTSBX420
01418                                                                   DTSBX420
01419       MOVE L205-INTEGER (8)      TO W-INTEGER.                    DTSBX420
01420       MOVE L205-FRACTION (8)     TO W-FRACTION.                   DTSBX420
01421       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX420
01422       MOVE W-NUMBER              TO X140-TAX-WAGES.               DTSBX420
01423      DISPLAY 'X140-TAX-WAGES ' X140-TAX-WAGES                     DTSBX420
01424                                                                   DTSBX420
01425       MOVE L205-INTEGER (9)      TO W-INTEGER.                    DTSBX420
01426       MOVE L205-FRACTION (9)     TO W-FRACTION.                   DTSBX420
01427       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX420
01428       MOVE W-NUMBER              TO X140-TOTAL-WAGES.             DTSBX420
01429      DISPLAY 'X140-TOTAL-WAGES ' X140-TOTAL-WAGES                 DTSBX420
01430                                                                   DTSBX420
01431       MOVE ZEROS                 TO X140-REMITTANCE.              DTSBX420
01432      DISPLAY 'X140-REMITTANCE ' X140-REMITTANCE                   DTSBX420
01433                                                                   DTSBX420
01434       MOVE ZERO                 TO X140-CONFIRMATION.             DTSBX420
01435                                                                   DTSBX420
01436       MOVE L205-TEXT (11)       TO X140-RCVD-DATE.                DTSBX420
01437      DISPLAY 'RECV DATE   '  X140-RCVD-DATE.                      DTSBX420
01438                                                                   DTSBX420
01439       MOVE L205-INTEGER (12)    TO X140-WRKR-CNT-1ST-MNTH.        DTSBX420
01440      DISPLAY 'X140-WRKR-CNT-1ST-MNTH ' X140-WRKR-CNT-1ST-MNTH     DTSBX420
01441                                                                   DTSBX420
01442       MOVE L205-INTEGER (13)    TO X140-WRKR-CNT-2ND-MNTH.        DTSBX420
01443      DISPLAY 'X140-WRKR-CNT-2ND-MNTH ' X140-WRKR-CNT-2ND-MNTH     DTSBX420
01444                                                                   DTSBX420
01445       MOVE L205-INTEGER (14)    TO X140-WRKR-CNT-3RD-MNTH.        DTSBX420
01446      DISPLAY 'X140-WRKR-CNT-3RD-MNTH ' X140-WRKR-CNT-3RD-MNTH     DTSBX420
01447                                                                   DTSBX420
01448       MOVE SPACES               TO X140-CHECK-SCAN-DT.            DTSBX420
01449      DISPLAY 'X140-CHECK SCANDATE ' X140-CHECK-SCAN-DT.           DTSBX420
01450                                                                   DTSBX420
01451       MOVE ZEROS                TO X140-CHECK-SEQ-NBR.            DTSBX420
01452      DISPLAY 'X140-CHECK-SEQ-NBR ' X140-CHECK-SEQ-NBR             DTSBX420
01453                                                                   DTSBX420
01454      MOVE 'N'                   TO X140-WAIVE-INTEREST.           DTSBX420
01455      DISPLAY 'X140-WAIVE-INTEREST ' X140-WAIVE-INTEREST           DTSBX420
01456                                                                   DTSBX420
01457      MOVE 'N'                   TO X140-WAIVE-PENALTY.            DTSBX420
01458      DISPLAY 'X140-WAIVE-PENALTY ' X140-WAIVE-PENALTY             DTSBX420
01459                                                                   DTSBX420
01460      MOVE '   '                 TO X140-RESP-ACTIVITY.            DTSBX420
01461      DISPLAY 'X140-RESP-ACTIVITY ' X140-RESP-ACTIVITY             DTSBX420
01462                                                                   DTSBX420
01463      MOVE 'WEBESSP '            TO X140-RESP-OPID.                DTSBX420
01464      DISPLAY 'X140-RESP-OPID ' X140-RESP-OPID                     DTSBX420
01465                                                                   DTSBX420
01466 *&                                                                DTSBX420
01467      DISPLAY 'BX420 P1200H: ' X140-REC.                           DTSBX420
01468  P1200H-EXIT.                                                     DTSBX420
01469      EXIT.                                                        DTSBX420
01470                                                                   DTSBX420
01471  P1200I-WAGE.                                                     DTSBX420
01472      MOVE L205-TEXT (1) (1:03)  TO X144-REC-TYPE.                 DTSBX420
01473                                                                   DTSBX420
01474      MOVE L205-TEXT (2) (1:06)  TO X144-EMP-NO.                   DTSBX420
01475                                                                   DTSBX420
01476 **   MOVE L205-TEXT (3)  (1:06)  TO X144-QUARTER.                 DTSBX420
01477                                                                   DTSBX420
01478      MOVE L205-TEXT (3) (1:04)  TO X144-QUARTER(1:04).            DTSBX420
01479      MOVE '/'                   TO X144-QUARTER(5:01).            DTSBX420
01480      MOVE L205-TEXT (4) (1:01)  TO X144-QUARTER(6:01).            DTSBX420
01481                                                                   DTSBX420
01482      MOVE L205-TEXT (6) (1:09)  TO X144-SSN.                      DTSBX420
01483                                                                   DTSBX420
01484      MOVE '5'                   TO X144-WAGE-STATUS.              DTSBX420
01485                                                                   DTSBX420
01486      MOVE L205-TEXT (7) (1:20)  TO X144-LAST-NAME.                DTSBX420
01487                                                                   DTSBX420
01488      MOVE L205-TEXT (8) (1:15)  TO X144-FIRST-NAME.               DTSBX420
01489                                                                   DTSBX420
01490      MOVE L205-TEXT (9) (1:01)  TO X144-MID-INIT.                 DTSBX420
01491                                                                   DTSBX420
01492      MOVE L205-INTEGER (10)      TO W-INTEGER.                    DTSBX420
01493      MOVE L205-FRACTION (10)     TO W-FRACTION.                   DTSBX420
01494      COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                   DTSBX420
01495      MOVE W-NUMBER              TO X144-EARNINGS.                 DTSBX420
01496      DISPLAY 'WAGES ' X144-EARNINGS.                              DTSBX420
01497                                                                   DTSBX420
01498  P1200I-EXIT.                                                     DTSBX420
01499      EXIT.                                                        DTSBX420
01500                                                                   DTSBX420
01501  P1200J-PAY.                                                      DTSBX420
01502      MOVE L205-TEXT (1) (1:03)  TO X145-REC-TYPE.                 DTSBX420
01503                                                                   DTSBX420
01504      MOVE L205-TEXT (2) (1:06)  TO X145-EMP-NO.                   DTSBX420
01505                                                                   DTSBX420
01506      MOVE '0'                   TO X145-SOURCE.                   DTSBX420
01507                                                                   DTSBX420
01508      MOVE L205-TEXT (3) (1:06)  TO X145-QTR.                      DTSBX420
01509      DISPLAY 'X145 QTR ' X145-QTR.                                DTSBX420
01510                                                                   DTSBX420
01511      MOVE L205-TEXT (8) (1:02)  TO X145-PAY-TYPE.                 DTSBX420
01512      DISPLAY 'X145 PAY TYPE ' X145-PAY-TYPE.                      DTSBX420
01513                                                                   DTSBX420
01514      MOVE L205-INTEGER (9)      TO W-INTEGER.                     DTSBX420
01515      MOVE L205-FRACTION (9)     TO W-FRACTION.                    DTSBX420
01516      COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                   DTSBX420
01517      MOVE W-NUMBER              TO X145-REMITTANCE.               DTSBX420
01518      DISPLAY 'X145 PAY AMT  ' X145-REMITTANCE.                    DTSBX420
01519                                                                   DTSBX420
01520      MOVE L205-TEXT (10) (1:10) TO X145-RCVD-DATE.                DTSBX420
01521      DISPLAY 'X145 PAY DATE ' X145-RCVD-DATE.                     DTSBX420
01522                                                                   DTSBX420
01523      MOVE L205-TEXT (12)        TO W-TRACE-B.                     DTSBX420
01524      MOVE W-TRACE-9             TO X145-TRACE-NO.                 DTSBX420
01525      DISPLAY 'X145 PAY NO   ' X145-TRACE-NO.                      DTSBX420
01526                                                                   DTSBX420
01527                                                                   DTSBX420
01528      MOVE ZEROS                 TO X145-PSEUDO-BATCH.             DTSBX420
01529                                                                   DTSBX420
01530      MOVE ZEROS                 TO X145-PSEUDO-ITEM.              DTSBX420
01531                                                                   DTSBX420
01532      MOVE SPACES                TO X145-APPLIC-ACCT.              DTSBX420
01533                                                                   DTSBX420
01534      MOVE SPACES                TO X145-CHECK-SCAN-DT.            DTSBX420
01535                                                                   DTSBX420
01536      MOVE ZEROS                 TO X145-CHECK-SEQ-NBR.            DTSBX420
01537                                                                   DTSBX420
01538      MOVE 'N'                   TO X145-WAIVE-INTEREST.           DTSBX420
01539                                                                   DTSBX420
01540      MOVE 'N'                   TO X145-WAIVE-PENALTY.            DTSBX420
01541                                                                   DTSBX420
01542      MOVE 'VOL'                 TO X145-RESP-ACTIVITY.            DTSBX420
01543                                                                   DTSBX420
01544      MOVE 'WEBESSP '            TO X145-RESP-OPID.                DTSBX420
01545                                                                   DTSBX420
01546  P1200J-EXIT.                                                     DTSBX420
01547      EXIT.                                                        DTSBX420
01548                                                                   DTSBX420
01549  P1200K-BATCH-HEADER.                                             DTSBX420
01550      MOVE L205-TEXT (1) (1:03)  TO X149-REC-TYPE.                 DTSBX420
01551                                                                   DTSBX420
01552      MOVE L205-TEXT (2) (1:5)   TO X149-PSEUDO-BATCH.             DTSBX420
01553                                                                   DTSBX420
01554      MOVE L205-TEXT (3) (1:3)   TO X149-PSEUDO-ITEM.              DTSBX420
01555                                                                   DTSBX420
01556      MOVE L205-TEXT (4) (1:08)  TO X149-ESTB-OPID.                DTSBX420
01557                                                                   DTSBX420
01558      MOVE L205-DATE (5)         TO X149-ESTB-DATE.                DTSBX420
01559                                                                   DTSBX420
01560      MOVE L205-DATE (6)         TO X149-DEPOSIT-DATE.             DTSBX420
01561                                                                   DTSBX420
01562      IF L205-VALID-NO-88 (7)                                      DTSBX420
01563         MOVE SPACES             TO X149-RCVD-DATE                 DTSBX420
01564      ELSE                                                         DTSBX420
01565         MOVE L205-DATE (7)      TO X149-RCVD-DATE                 DTSBX420
01566      END-IF.                                                      DTSBX420
01567                                                                   DTSBX420
01568      MOVE L205-INTEGER (8)      TO X149-LAST-ITEM-NBR.            DTSBX420
01569                                                                   DTSBX420
01570      MOVE L205-INTEGER (9)      TO X149-CONTROL-TRAN-CNT.         DTSBX420
01571                                                                   DTSBX420
01572      MOVE L205-INTEGER (10)     TO W-INTEGER.                     DTSBX420
01573      MOVE L205-FRACTION (10)    TO W-FRACTION.                    DTSBX420
01574      COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                   DTSBX420
01575      MOVE W-NUMBER              TO X149-CONTROL-REMIT-AMT.        DTSBX420
01576      MOVE W-INTEGER TO W-AMT-DISP1.                               DTSBX420
01577      MOVE W-FRACTION TO W-AMT-DISP4.                              DTSBX420
01578      MOVE W-NUMBER TO W-AMT-DISP2.                                DTSBX420
01579 **   DISPLAY 'BX420 P1200 HDR ' X149-PSEUDO-BATCH                 DTSBX420
01580 **      '  INT ' W-AMT-DISP1 '  FR ' W-AMT-DISP4                  DTSBX420
01581 **      '  NBR ' W-AMT-DISP2                                      DTSBX420
01582 **      '  X149 ' X149-CONTROL-REMIT-AMT.                         DTSBX420
01583                                                                   DTSBX420
01584      MOVE L205-INTEGER (11)     TO X149-CONTROL-CHECK-CNT.        DTSBX420
01585                                                                   DTSBX420
01586      MOVE L205-DATE (12)        TO X149-CHECK-SCAN-DATE.          DTSBX420
01587                                                                   DTSBX420
01588      MOVE L205-TEXT (13) (1:08) TO X149-ANN-BATCH-IND.            DTSBX420
01589                                                                   DTSBX420
01590 **   DISPLAY 'BX420 P1200 HDR ' X149-PSEUDO-BATCH                 DTSBX420
01591 **      '  ' X149-PSEUDO-ITEM '  ' X149-ESTB-OPID.                DTSBX420
01592  P1200K-EXIT.                                                     DTSBX420
01593      EXIT.                                                        DTSBX420
01594                                                                   DTSBX420
01595  P2000-POST-SORT.                                                 DTSBX420
01596      SET SORT-OK-88                      TO TRUE.                 DTSBX420
01597                                                                   DTSBX420
01598      PERFORM P2100-PROCESS-SORT          THRU P2100-EXIT          DTSBX420
01599         UNTIL SORT-EOF-88.                                        DTSBX420
01600                                                                   DTSBX420
01601  P2000-EXIT.                                                      DTSBX420
01602      EXIT.                                                        DTSBX420
01603                                                                   DTSBX420
01604  P2100-PROCESS-SORT.                                              DTSBX420
01605      RETURN SORT-FILE                                             DTSBX420
01606         AT END                                                    DTSBX420
01607            SET SORT-EOF-88                 TO TRUE                DTSBX420
01608            GO TO P2100-EXIT                                       DTSBX420
01609      END-RETURN.                                                  DTSBX420
01610                                                                   DTSBX420
01611 **   DISPLAY 'P2100 SORT-EMP-NO  ' SORT-EMP-NO.                   DTSBX420
01612 **   DISPLAY 'BX420 P2100 SORT-REC     ' SORT-KEY '  '            DTSBX420
01613 **         SORT-DATA (1:14).                                      DTSBX420
01614                                                                   DTSBX420
01615      MOVE SORT-DATA                   TO LX42-DATA-AREA.          DTSBX420
01616      IF SORT-EMP-NO = 999999                                      DTSBX420
01617         IF SORT-BATCH = W-PSEUDO-BATCH-NO                         DTSBX420
01618 **         DISPLAY 'BX420 PROCESS'                                DTSBX420
01619            SET LX42-PROCESS-88           TO TRUE                  DTSBX420
01620            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSBX420
01621         ELSE                                                      DTSBX420
01622            MOVE SORT-BATCH               TO W-PSEUDO-BATCH-NO     DTSBX420
01623            DISPLAY 'BX420 NEW    '                                DTSBX420
01624 **         PERFORM P2120-NEW-BATCH       THRU P2120-EXIT          DTSBX420
01625            SET LX42-PROCESS-88           TO TRUE                  DTSBX420
01626            SET LX42-ERROR-NO-88          TO TRUE                  DTSBX420
01627 **         DISPLAY 'BX420 NEW PROCESS'                            DTSBX420
01628            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSBX420
01629         END-IF                                                    DTSBX420
01630      ELSE                                                         DTSBX420
01631         IF SORT-EMP-NO = W-EMP-NO                                 DTSBX420
01632            SET LX42-PROCESS-88           TO TRUE                  DTSBX420
01633            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSBX420
01634         ELSE                                                      DTSBX420
01635            MOVE SORT-EMP-NO              TO W-EMP-NO              DTSBX420
01636            PERFORM P2110-NEW-EMP         THRU P2110-EXIT          DTSBX420
01637            SET LX42-PROCESS-88           TO TRUE                  DTSBX420
01638            SET LX42-ERROR-NO-88          TO TRUE                  DTSBX420
01639            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSBX420
01640         END-IF                                                    DTSBX420
01641      END-IF.                                                      DTSBX420
01642                                                                   DTSBX420
01643  P2100-EXIT.                                                      DTSBX420
01644      EXIT.                                                        DTSBX420
01645                                                                   DTSBX420
01646  P2110-NEW-EMP.                                                   DTSBX420
01647                                                                   DTSBX420
01648 **   DISPLAY 'P2110 NEW ' LX42-DATA-AREA (1:20).                  DTSBX420
01649                                                                   DTSBX420
01650      SET LX42-NEW-EMPLOYER-88          TO TRUE.                   DTSBX420
01651      MOVE ZERO                         TO LX42-LAST-DETERM-EMP.   DTSBX420
01652                                                                   DTSBX420
01653      PERFORM S421-REGISTRATION         THRU S421-EXIT.            DTSBX420
01654      PERFORM S422-REPORT               THRU S422-EXIT.            DTSBX420
01655      PERFORM S423-PAYMENT              THRU S423-EXIT.            DTSBX420
01656      PERFORM S424-PROFILE              THRU S424-EXIT.            DTSBX420
01657                                                                   DTSBX420
01658  P2110-EXIT.                                                      DTSBX420
01659      EXIT.                                                        DTSBX420
01660                                                                   DTSBX420
01661  P2120-NEW-BATCH.                                                 DTSBX420
01662 *&                                                                DTSBX420
01663 *    DISPLAY 'BX420 P2120 NEW BATCH ' LX42-PSEUDO-BATCH-NO        DTSBX420
01664 *       '  ' LX42-DATA-AREA (1:20).                               DTSBX420
01665 *&                                                                DTSBX420
01666      SET LX42-NEW-BATCH-88             TO TRUE.                   DTSBX420
01667                                                                   DTSBX420
01668 *    PERFORM S426-HEADER               THRU S426-EXIT.            DTSBX420
01669 *    IF LX42-BATCH-ERR-YES-88                                     DTSBX420
01670 *       SET LX42-BATCH-ERROR-88        TO TRUE                    DTSBX420
01671 *    END-IF.                                                      DTSBX420
01672      PERFORM S422-REPORT               THRU S422-EXIT.            DTSBX420
01673      PERFORM S423-PAYMENT              THRU S423-EXIT.            DTSBX420
01674                                                                   DTSBX420
01675      MOVE W-PSEUDO-BATCH-NO            TO LX42-PSEUDO-BATCH-NO.   DTSBX420
01676      MOVE ZERO                         TO LX42-RPT-CNT            DTSBX420
01677                                           LX42-RPT-REMIT-AMT      DTSBX420
01678                                           LX42-PAY-CNT            DTSBX420
01679                                           LX42-PAY-REMIT-AMT.     DTSBX420
01680      SET LX42-BATCH-ERR-NO-88          TO TRUE.                   DTSBX420
01681                                                                   DTSBX420
01682  P2120-EXIT.                                                      DTSBX420
01683      EXIT.                                                        DTSBX420
01684                                                                   DTSBX420
01685  P3000-PROCESS.                                                   DTSBX420
01686 *&                                                                DTSBX420
01687 **   DISPLAY 'P3000 ' LX42-DATA-AREA (1:20).                      DTSBX420
01688 *&                                                                DTSBX420
01689 ****************************************************************  DTSBX420
01690 *  LX42-LAST-DETERM-EMP IS SET WHEN PROCESSING A DETERMINATION.   DTSBX420
01691 *  THE EMPLOYER ACCOUNT NUMBER IS PASSED THROUGH THIS FIELD       DTSBX420
01692 *  TO DTSBX422, WHICH PROCESSES REPORTS.  IT IS USED              DTSBX420
01693 *  TO DETERMINE WHEN TO WAIVE P & I. THE WAIVER IS AUTOMATIC      DTSBX420
01694 *  FOR REPORTS WITHIN THE LAST 5 QUARTERS SUBMITTED ALONG         DTSBX420
01695 *  WITH A WEB REGISTRATION.                                       DTSBX420
01696 ****************************************************************  DTSBX420
01697                                                                   DTSBX420
01698      EVALUATE TRUE                                                DTSBX420
01699         WHEN LX42-REC-TYPE-PRF-88                                 DTSBX420
01700            PERFORM S421-REGISTRATION      THRU S421-EXIT          DTSBX420
01701         WHEN LX42-REC-TYPE-DETERM-88                              DTSBX420
01702            MOVE W-EMP-NO                                          DTSBX420
01703               TO LX42-LAST-DETERM-EMP                             DTSBX420
01704            PERFORM S421-REGISTRATION      THRU S421-EXIT          DTSBX420
01705         WHEN LX42-REC-TYPE-RATE-88                                DTSBX420
01706            PERFORM S421-REGISTRATION      THRU S421-EXIT          DTSBX420
01707         WHEN LX42-REC-TYPE-NAME-88                                DTSBX420
01708            PERFORM S421-REGISTRATION      THRU S421-EXIT          DTSBX420
01709         WHEN LX42-REC-TYPE-REL-88                                 DTSBX420
01710            PERFORM S421-REGISTRATION      THRU S421-EXIT          DTSBX420
01711                                                                   DTSBX420
01712         WHEN LX42-REC-TYPE-RPT-88                                 DTSBX420
01713 ***        PERFORM P3100-BATCH-NO         THRU P3100-EXIT         DTSBX420
01714            PERFORM S422-REPORT            THRU S422-EXIT          DTSBX420
01715         WHEN LX42-REC-TYPE-WAGE-88                                DTSBX420
01716            PERFORM S422-REPORT            THRU S422-EXIT          DTSBX420
01717                                                                   DTSBX420
01718         WHEN LX42-REC-TYPE-BHDR-88                                DTSBX420
01719            PERFORM S426-HEADER            THRU S426-EXIT          DTSBX420
01720                                                                   DTSBX420
01721         WHEN LX42-REC-TYPE-PAY-88                                 DTSBX420
01722            PERFORM S423-PAYMENT           THRU S423-EXIT          DTSBX420
01723                                                                   DTSBX420
01724         WHEN LX42-REC-TYPE-ADDR-88                                DTSBX420
01725            PERFORM S424-PROFILE           THRU S424-EXIT          DTSBX420
01726         WHEN LX42-REC-TYPE-OPO-88                                 DTSBX420
01727            PERFORM S424-PROFILE           THRU S424-EXIT          DTSBX420
01728                                                                   DTSBX420
01729      END-EVALUATE.                                                DTSBX420
01730                                                                   DTSBX420
01731  P3000-EXIT.                                                      DTSBX420
01732      EXIT.                                                        DTSBX420
01733                                                                   DTSBX420
01734  P3100-BATCH-NO.                                                  DTSBX420
01735 *&   IF W-PSEUDO-ITEM-NO < 999                                    DTSBX420
01736 *       ADD 1                       TO W-PSEUDO-ITEM-NO           DTSBX420
01737 *    ELSE                                                         DTSBX420
01738 *       ADD 1                       TO W-PSEUDO-BATCH-NO          DTSBX420
01739 *       MOVE 1                      TO W-PSEUDO-ITEM-NO           DTSBX420
01740 *    END-IF.                                                      DTSBX420
01741 *                                                                 DTSBX420
01742 *    MOVE W-PSEUDO-BATCH-NO         TO LX42-PSEUDO-BATCH-NO.      DTSBX420
01743 *&   MOVE W-PSEUDO-ITEM-NO          TO LX42-PSEUDO-ITEM-NO.       DTSBX420
01744                                                                   DTSBX420
01745  P3100-EXIT.                                                      DTSBX420
01746      EXIT.                                                        DTSBX420
01747                                                                   DTSBX420
01748                                                                   DTSBX420
01749  T0000-TERMINATE.                                                 DTSBX420
01750      PERFORM T1000-FINAL-CALLS        THRU T1000-EXIT.            DTSBX420
01751                                                                   DTSBX420
01752 ***  PERFORM T1100-UPDATE-CURR-BATCH  THRU T1100-EXIT.            DTSBX420
01753                                                                   DTSBX420
01754      DISPLAY ' '.                                                 DTSBX420
01755                                                                   DTSBX420
01756      DISPLAY '*** DTSBX420 TERMINATION STATISTICS ***'.           DTSBX420
01757                                                                   DTSBX420
01758      DISPLAY ' '.                                                 DTSBX420
01759                                                                   DTSBX420
01760      DISPLAY '***       WEB IMPORT DRIVER         ***'.           DTSBX420
01761                                                                   DTSBX420
01762      DISPLAY ' '.                                                 DTSBX420
01763                                                                   DTSBX420
01764      DISPLAY 'INPUT RECORDS READ:       '                         DTSBX420
01765              W-WEB-IMP-CNT.                                       DTSBX420
01766                                                                   DTSBX420
01767      DISPLAY ' '.                                                 DTSBX420
01768                                                                   DTSBX420
01769      DISPLAY '***************************************'.           DTSBX420
01770                                                                   DTSBX420
01771      CLOSE                    WEB-IMP-FILE.                       DTSBX420
01772 ***                           CURR-BATCH-NO.                      DTSBX420
01773 ***                           TEMP-BTC-FILE.                      DTSBX420
01774                                                                   DTSBX420
01775      PERFORM S910-CLOSE       THRU S910-EXIT.                     DTSBX420
01776      PERFORM S921-CLOSE       THRU S921-EXIT.                     DTSBX420
01777      PERFORM S923-CLOSE       THRU S923-EXIT.                     DTSBX420
01778      PERFORM S931-CLOSE       THRU S931-EXIT.                     DTSBX420
01779      PERFORM S927C-CLOSE      THRU S927C-EXIT.                    DTSBX420
01780                                                                   DTSBX420
01781  T0000-EXIT.                                                      DTSBX420
01782      EXIT.                                                        DTSBX420
01783                                                                   DTSBX420
01784  T1000-FINAL-CALLS.                                               DTSBX420
01785 *&                                                                DTSBX420
01786 *    DISPLAY 'BX420 T1000 ' LX42-DATA-AREA (1:20).                DTSBX420
01787 *&                                                                DTSBX420
01788      SET LX42-TERMINATE-88             TO TRUE.                   DTSBX420
01789      MOVE LOW-VALUES                   TO LX42-DATA-AREA.         DTSBX420
01790                                                                   DTSBX420
01791      PERFORM S421-REGISTRATION         THRU S421-EXIT.            DTSBX420
01792 **   PERFORM S426-HEADER               THRU S426-EXIT.            DTSBX420
01793      PERFORM S422-REPORT               THRU S422-EXIT.            DTSBX420
01794      PERFORM S423-PAYMENT              THRU S423-EXIT.            DTSBX420
01795      PERFORM S424-PROFILE              THRU S424-EXIT.            DTSBX420
01796                                                                   DTSBX420
01797  T1000-EXIT.                                                      DTSBX420
01798      EXIT.                                                        DTSBX420
01799                                                                   DTSBX420
01800 *T1100-UPDATE-CURR-BATCH.                                         DTSBX420
01801 *    MOVE W-PSEUDO-BATCH-NO    TO CURRENT-BATCH-NO                DTSBX420
01802 *                                 W-END-BATCH.                    DTSBX420
01803 *    MOVE W-PSEUDO-ITEM-NO     TO CURRENT-ITEM-NO.                DTSBX420
01804 *    DISPLAY 'REWRITING CURRENT BATCH '                           DTSBX420
01805 *       W-PSEUDO-BATCH-NO '/' W-PSEUDO-ITEM-NO                    DTSBX420
01806 *    REWRITE CURR-BATCH-NO-REC.                                   DTSBX420
01807 *    IF BATCH-STATUS-OK-88                                        DTSBX420
01808 *       NEXT SENTENCE                                             DTSBX420
01809 *    ELSE                                                         DTSBX420
01810 *       DISPLAY 'T1100 - CANNOT REWRITE BATCH NUMBER FILE '       DTSBX420
01811 *          BATCH-STATUS                                           DTSBX420
01812 *    END-IF.                                                      DTSBX420
01813 *                                                                 DTSBX420
01814 *T1100-EXIT.                                                      DTSBX420
01815 *    EXIT.                                                        DTSBX420
01816                                                                   DTSBX420
01817  S001-FROM-FED-8.                                                 DTSBX420
01818      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX420
01819      GO TO S001-DATE.                                             DTSBX420
01820                                                                   DTSBX420
01821  S001-FROM-CAL-8.                                                 DTSBX420
01822      SET L001-FROM-CAL-8 TO TRUE.                                 DTSBX420
01823      GO TO S001-DATE.                                             DTSBX420
01824                                                                   DTSBX420
01825  S001-FROM-ABS-DAY.                                               DTSBX420
01826      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBX420
01827      GO TO S001-DATE.                                             DTSBX420
01828                                                                   DTSBX420
01829  S001-DATE.                                                       DTSBX420
01830      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX420
01831  S001-EXIT.                                                       DTSBX420
01832      EXIT.                                                        DTSBX420
01833                                                                   DTSBX420
01834  S003-AGENCY-DAY.                                                 DTSBX420
01835      SET L003-AGENCY-DAY TO TRUE.                                 DTSBX420
01836      GO TO S003-WORK-DAY.                                         DTSBX420
01837                                                                   DTSBX420
01838  S003-WORK-DAY.                                                   DTSBX420
01839      CALL 'DTSBU003' USING L003-LINK-AREA.                        DTSBX420
01840  S003-EXIT.                                                       DTSBX420
01841      EXIT.                                                        DTSBX420
01842                                                                   DTSBX420
01843  S004-FROM-5.                                                     DTSBX420
01844      SET L004-FROM-5        TO TRUE.                              DTSBX420
01845      GO TO S004-YRQ.                                              DTSBX420
01846                                                                   DTSBX420
01847  S004-FROM-DATE.                                                  DTSBX420
01848      SET L004-FROM-DATE     TO TRUE.                              DTSBX420
01849      GO TO S004-YRQ.                                              DTSBX420
01850                                                                   DTSBX420
01851  S004-FROM-ABS.                                                   DTSBX420
01852      SET L004-FROM-ABS      TO TRUE.                              DTSBX420
01853      GO TO S004-YRQ.                                              DTSBX420
01854                                                                   DTSBX420
01855  S004-YRQ.                                                        DTSBX420
01856      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX420
01857                                                                   DTSBX420
01858  S004-EXIT.                                                       DTSBX420
01859      EXIT.                                                        DTSBX420
01860                                                                   DTSBX420
01861  S005-FROM-SYS.                                                   DTSBX420
01862      SET L005-FROM-SYS       TO TRUE.                             DTSBX420
01863      GO TO S005-ABSTIME.                                          DTSBX420
01864                                                                   DTSBX420
01865  S005-ABSTIME.                                                    DTSBX420
01866      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX420
01867  S005-EXIT.                                                       DTSBX420
01868      EXIT.                                                        DTSBX420
01869                                                                   DTSBX420
01870  S421-REGISTRATION.                                               DTSBX420
01871      DISPLAY 'S421-REG'                                           DTSBX420
01872      CALL 'DTSBX421' USING LX42-LINK-AREA.                        DTSBX420
01873  S421-EXIT.                                                       DTSBX420
01874      EXIT.                                                        DTSBX420
01875                                                                   DTSBX420
01876  S422-REPORT.                                                     DTSBX420
01877      DISPLAY 'S422-REP'                                           DTSBX420
01878      CALL 'DTSBX422' USING LX42-LINK-AREA.                        DTSBX420
01879  S422-EXIT.                                                       DTSBX420
01880      EXIT.                                                        DTSBX420
01881                                                                   DTSBX420
01882  S423-PAYMENT.                                                    DTSBX420
01883      DISPLAY 'S423-PAY'                                           DTSBX420
01884      CALL 'DTSBX423' USING LX42-LINK-AREA.                        DTSBX420
01885  S423-EXIT.                                                       DTSBX420
01886      EXIT.                                                        DTSBX420
01887                                                                   DTSBX420
01888  S424-PROFILE.                                                    DTSBX420
01889      DISPLAY 'S424-PRO'                                           DTSBX420
01890 **   DISPLAY 'LINK AREA '  LX42-LINK-AREA                         DTSBX420
01891      CALL 'DTSBX424' USING LX42-LINK-AREA.                        DTSBX420
01892  S424-EXIT.                                                       DTSBX420
01893      EXIT.                                                        DTSBX420
01894                                                                   DTSBX420
01895  S426-HEADER.                                                     DTSBX420
01896      CALL 'DTSBX426' USING LX42-LINK-AREA.                        DTSBX420
01897  S426-EXIT.                                                       DTSBX420
01898      EXIT.                                                        DTSBX420
01899                                                                   DTSBX420
01900                                                                   DTSBX420
01901  S910-OPEN-READ.                                                  DTSBX420
01902      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX420
01903      GO TO S910-MSTR-IO.                                          DTSBX420
01904                                                                   DTSBX420
01905  S910-OPEN-UPDATE.                                                DTSBX420
01906      SET L910-OPEN-UPDATE-88 TO TRUE.                             DTSBX420
01907      GO TO S910-MSTR-IO.                                          DTSBX420
01908                                                                   DTSBX420
01909  S910-READ.                                                       DTSBX420
01910      SET L910-READ-88 TO TRUE.                                    DTSBX420
01911      GO TO S910-MSTR-IO.                                          DTSBX420
01912                                                                   DTSBX420
01913  S910-START-BROWSE.                                               DTSBX420
01914      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX420
01915      GO TO S910-MSTR-IO.                                          DTSBX420
01916                                                                   DTSBX420
01917  S910-READ-NEXT.                                                  DTSBX420
01918      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX420
01919      GO TO S910-MSTR-IO.                                          DTSBX420
01920                                                                   DTSBX420
01921  S910-CLOSE.                                                      DTSBX420
01922      SET L910-CLOSE-88     TO TRUE.                               DTSBX420
01923      GO TO S910-MSTR-IO.                                          DTSBX420
01924                                                                   DTSBX420
01925  S910-MSTR-IO.                                                    DTSBX420
01926      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX420
01927                            MSKL-REC.                              DTSBX420
01928  S910-EXIT.                                                       DTSBX420
01929      EXIT.                                                        DTSBX420
01930                                                                   DTSBX420
01931  S921-OPEN-READ.                                                  DTSBX420
01932      SET L921-OPEN-READ-88 TO TRUE.                               DTSBX420
01933      GO TO S921-AIX-IO.                                           DTSBX420
01934                                                                   DTSBX420
01935  S921-READ.                                                       DTSBX420
01936      SET L921-READ-88 TO TRUE.                                    DTSBX420
01937      GO TO S921-AIX-IO.                                           DTSBX420
01938                                                                   DTSBX420
01939  S921-START-BROWSE.                                               DTSBX420
01940      SET L921-START-BROWSE-88 TO TRUE.                            DTSBX420
01941      GO TO S921-AIX-IO.                                           DTSBX420
01942                                                                   DTSBX420
01943  S921-READ-NEXT.                                                  DTSBX420
01944      SET L921-READ-NEXT-88 TO TRUE.                               DTSBX420
01945      GO TO S921-AIX-IO.                                           DTSBX420
01946                                                                   DTSBX420
01947  S921-CLOSE.                                                      DTSBX420
01948      SET L921-CLOSE-88 TO TRUE.                                   DTSBX420
01949      GO TO S921-AIX-IO.                                           DTSBX420
01950                                                                   DTSBX420
01951  S921-AIX-IO.                                                     DTSBX420
01952      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBX420
01953                            ISKL-REC.                              DTSBX420
01954  S921-EXIT.                                                       DTSBX420
01955      EXIT.                                                        DTSBX420
01956                                                                   DTSBX420
01957  S923-OPEN-UPDATE.                                                DTSBX420
01958      SET L923-OPEN-UPDATE-88 TO TRUE.                             DTSBX420
01959      GO TO S923-ATC-CALL.                                         DTSBX420
01960                                                                   DTSBX420
01961  S923-OPEN-READ.                                                  DTSBX420
01962      SET L923-OPEN-READ-88 TO TRUE.                               DTSBX420
01963      GO TO S923-ATC-CALL.                                         DTSBX420
01964                                                                   DTSBX420
01965  S923-WRITE.                                                      DTSBX420
01966      SET L923-WRITE-88 TO TRUE.                                   DTSBX420
01967      GO TO S923-ATC-CALL.                                         DTSBX420
01968                                                                   DTSBX420
01969  S923-CLOSE.                                                      DTSBX420
01970      SET L923-CLOSE-88 TO TRUE.                                   DTSBX420
01971      GO TO S923-ATC-CALL.                                         DTSBX420
01972                                                                   DTSBX420
01973  S923-ATC-CALL.                                                   DTSBX420
01974      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSBX420
01975                            ASKL-REC.                              DTSBX420
01976  S923-EXIT.                                                       DTSBX420
01977      EXIT.                                                        DTSBX420
01978                                                                   DTSBX420
01979  S927A-OPEN.                                                      DTSBX420
01980      SET L927-OPEN-UPDATE-88  TO TRUE.                            DTSBX420
01981      PERFORM S927Z-IO   THRU S927Z-EXIT.                          DTSBX420
01982                                                                   DTSBX420
01983  S927A-EXIT.                                                      DTSBX420
01984      EXIT.                                                        DTSBX420
01985                                                                   DTSBX420
01986  S927C-CLOSE.                                                     DTSBX420
01987      SET L927-CLOSE-88        TO TRUE.                            DTSBX420
01988      PERFORM S927Z-IO   THRU S927Z-EXIT.                          DTSBX420
01989                                                                   DTSBX420
01990  S927C-EXIT.                                                      DTSBX420
01991      EXIT.                                                        DTSBX420
01992                                                                   DTSBX420
01993  S927Z-IO.                                                        DTSBX420
01994      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBX420
01995                            TSKL-REC.                              DTSBX420
01996  S927Z-EXIT.                                                      DTSBX420
01997      EXIT.                                                        DTSBX420
01998                                                                   DTSBX420
01999  S931-OPEN-READ.                                                  DTSBX420
02000      SET L931-OPEN-READ-88 TO TRUE.                               DTSBX420
02001      GO TO S931-REF-IO.                                           DTSBX420
02002                                                                   DTSBX420
02003  S931-CLOSE.                                                      DTSBX420
02004      SET L931-CLOSE-88 TO TRUE.                                   DTSBX420
02005      GO TO S931-REF-IO.                                           DTSBX420
02006                                                                   DTSBX420
02007  S931-REF-IO.                                                     DTSBX420
02008      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBX420
02009                            FSKL-REC.                              DTSBX420
02010  S931-EXIT.                                                       DTSBX420
02011      EXIT.                                                        DTSBX420
02012                                                                   DTSBX420
02013  S1000-READ-WEB-IMP.                                              DTSBX420
02014      READ WEB-IMP-FILE.                                           DTSBX420
02015      IF WEB-IMP-STATUS-OK-88                                      DTSBX420
02016         ADD +1 TO W-WEB-IMP-CNT                                   DTSBX420
02017      ELSE                                                         DTSBX420
02018         IF WEB-IMP-STATUS-EOF-88                                  DTSBX420
02019            NEXT SENTENCE                                          DTSBX420
02020         ELSE                                                      DTSBX420
02021            DISPLAY 'CANNOT READ WEB-IMP-FILE ' WEB-IMP-STATUS     DTSBX420
02022            SET W-ERROR-YES-88 TO TRUE                             DTSBX420
02023         END-IF                                                    DTSBX420
02024      END-IF.                                                      DTSBX420
02025                                                                   DTSBX420
02026 **   IF WEB-IMP-EMP-NO = 464465                                   DTSBX420
02027 *       DISPLAY 'S1000-READ EMP-NO  ' WEB-IMP-EMP-NO              DTSBX420
02028 **      GO TO S1000-READ-WEB-IMP.                                 DTSBX420
02029                                                                   DTSBX420
02030  S1000-EXIT.                                                      DTSBX420
02031      EXIT.                                                        DTSBX420
02032                                                                   DTSBX420
02033  S999-ABEND.                                                      DTSBX420
02034      CALL 'DTSBU999' USING W-ABEND-CD.                            DTSBX420
02035  S999-EXIT.                                                       DTSBX420
02036      EXIT.                                                        DTSBX420
02037                                                                   DTSBX420
