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