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