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