00001  IDENTIFICATION DIVISION.                                         12/05/16
00002  PROGRAM-ID.             DTSZX550.                                DTSZX550
00003  AUTHOR.                 NGC.                                        LV095
00004  DATE-WRITTEN.           APRIL 2005.                              DTSZX550
00005  DATE-COMPILED.                                                   DTSZX550
00006      SKIP3                                                        DTSZX550
00007 *****                                                             DTSZX550
00008 *                                                                 DTSZX550
00009 *    FUNCTION:  AMENDED REPORTS  IMPORT DRIVER                       CL*95
00010 *               READ DATA PASSED FROM WEB APPLICATION SERVER      DTSZX550
00011 *               AND CALL THE APPROPRIATE PROCESSING PROGRAM       DTSZX550
00012 *               FOR AMENDED, REPORTS, PAYMENTS, WAGES DELETIONS      CL*95
00013 *               AND ADDITIONS.                                       CL*95
00014 *                                                                 DTSZX550
00015 *               ACCOUNTING BATCH HEADERS, REPORTS AND PAYMENTS    DTSZX550
00016 *               COMING FROM THE IN-HOUSE CASHIERING PROCESS ARE   DTSZX550
00017 *               PROCESSED LAST. IN THE SORT KEY, THE FIRST        DTSZX550
00018 *               ELEMENT (USED FOR THE EMPLOYER NUMBER FOR OTHER   DTSZX550
00019 *               PROCESSES) IS SET TO 999999.                      DTSZX550
00020 *                                                                 DTSZX550
00021 *    MODIFICATION HISTORY:                                        DTSZX550
00022 *                                                                 DTSZX550
00023 *    08-30-2015 INITIAL DEVELOPMENT COPIED FROM BX417                CL*63
00024 *               REFERENCE RFP: ESSP AMENDED REPORTING      ZL1       CL*63
00025 *                                                                 DTSZX550
00026 *                                                                 DTSZX550
00027 *                                                                    CL*23
00028 *    10-22-2014 MODIFIED FOR ESSP INTERFACE                          CL*23
00029 *               CHANGED SORT SEQUENCE FOR PROCESS X104 RECORDS       CL*23
00030 *               BEFORE PROCESSING NAMES X106.                        CL*23
00031 *               RECORDS 102 AND 106 MUST BE PRESENT TO ADD A         CL*23
00032 *               NEW EMPLOYER TO DUTAS.  IF X102 AND X104 PASS        CL*23
00033 *               ALL EDITS THEN NAME RECORD X106 RATE X108 AND        CL*23
00034 *               ADDRESS X110 MUST BE PRESENT FOR EMPLOYER TO ADD     CL*23
00035 *                                                                    CL*23
00036 *               REFERENCE RFP:                              ZL1      CL*23
00037 *                                                                    CL*23
00038 *                                                                 DTSZX550
00039 *    11-01-2014 MODIFIED FOR ESSP INTERFACE                          CL*23
00040 *               MODIFIED PROGRAM TO CALL A NEW PROGRAM BX430 TO      CL*23
00041 *               PROCESS REPORTS,WAGES AND PAYMENTS.                  CL*23
00042 *               REPORTS X140 COMING FROM ESSP CANNOT BE PROCESSED    CL*23
00043 *               UNTIL A PAYMENT X145 IS PRESENT UNLESS IT IS A       CL*23
00044 *               ZERO WAGE REPORT (REMIT AMT = 0). ALSO CHANGED       CL*23
00045 *               THE SORT SEQ TO SORT PAYMENT X145 BEFORE X140        CL*23
00046 *               PREVIOUS SORT KEY WAS 30 NOW 19.                     CL*23
00047 *               REFERENCE RFP:                              ZL1      CL*23
00048 *                                                                    CL*23
00049 *                                                                    CL*23
00050 *    12-02-2016 MODIFIED FOR ESSP INTERFACE                          CL*95
00051 *               DUTAS REJECTING AMENDMENTS THAT ARE NOT IN SEQUENC   CL*95
00052 *               E. MODIFIED PROGRAM TO MOVE SEQ NUMBER TO T28 LOG    CL*95
00053 *               NO. WITH BD140 SORT PROCESS ALL TRANSACTIONS WILL    CL*95
00054 *               BE PROCESSED AS RECEIVED.                            CL*95
00055 *                                                                    CL*95
00056 *               REFERENCE RFP: ESSP AMENDMENTS              ZL1      CL*95
00057 *                                                                    CL*40
00058 *                                                                    CL*40
00059 *****                                                             DTSZX550
00060      SKIP3                                                        DTSZX550
00061  ENVIRONMENT DIVISION.                                            DTSZX550
00062      SKIP2                                                        DTSZX550
00063  INPUT-OUTPUT SECTION.                                            DTSZX550
00064                                                                   DTSZX550
00065  FILE-CONTROL.                                                    DTSZX550
00066                                                                   DTSZX550
00067      SELECT WEB-IMP-FILE     ASSIGN TO WEBREG                     DTSZX550
00068         FILE STATUS IS WEB-IMP-STATUS.                            DTSZX550
00069                                                                   DTSZX550
00070 **   SELECT CURR-BATCH-NO    ASSIGN TO CURRBTCH                   DTSZX550
00071 **      FILE STATUS IS BATCH-STATUS.                              DTSZX550
00072                                                                   DTSZX550
00073      SELECT SORT-FILE ASSIGN TO SORTFILE.                         DTSZX550
00074                                                                   DTSZX550
00075  DATA DIVISION.                                                   DTSZX550
00076                                                                   DTSZX550
00077  FILE SECTION.                                                    DTSZX550
00078                                                                   DTSZX550
00079  FD  WEB-IMP-FILE                                                 DTSZX550
00080      RECORDING MODE IS F                                          DTSZX550
00081      BLOCK CONTAINS 0 RECORDS                                     DTSZX550
00082      LABEL RECORDS ARE OMITTED.                                   DTSZX550
00083                                                                   DTSZX550
00084  01  WEB-IMP-REC.                                                 DTSZX550
00085      05  WEB-IMP-TYPE              PIC X(03).                     DTSZX550
00086          88  WEB-IMP-TYPE-PRF-88    VALUE '102'.                  DTSZX550
00087          88  WEB-IMP-TYPE-DETERM-88 VALUE '104'.                  DTSZX550
00088          88  WEB-IMP-TYPE-NAME-88   VALUE '106'.                  DTSZX550
00089          88  WEB-IMP-TYPE-RATE-88   VALUE '108'.                  DTSZX550
00090          88  WEB-IMP-TYPE-ADDR-88   VALUE '110'.                  DTSZX550
00091          88  WEB-IMP-TYPE-OPO-88    VALUE '120'.                  DTSZX550
00092          88  WEB-IMP-TYPE-REL-88    VALUE '130'.                  DTSZX550
00093 ***      88  WEB-IMP-TYPE-IND-88    VALUE '132'.                  DTSZX550
00094          88  WEB-IMP-TYPE-RPT-88    VALUE '140'.                  DTSZX550
00095          88  WEB-IMP-TYPE-WAGE-88   VALUE '144'.                  DTSZX550
00096          88  WEB-IMP-TYPE-PAY-88    VALUE '145'.                  DTSZX550
00097          88  WEB-IMP-TYPE-AWAGE-88  VALUE '147'.                     CL*63
00098          88  WEB-IMP-TYPE-BHDR-88   VALUE '149'.                  DTSZX550
00099          88  WEB-TYPE-REG-88        VALUE '102' '104' '106'       DTSZX550
00100                                           '108' '130' '132'.      DTSZX550
00101          88  WEB-TYPE-RPT-88        VALUE '140' '144' '147'.         CL*63
00102          88  WEB-TYPE-PAY-88        VALUE '145'.                  DTSZX550
00103          88  WEB-TYPE-PRF-88        VALUE '110' '120'.            DTSZX550
00104      05  FILLER                    PIC X(01).                     DTSZX550
00105      05  WEB-IMP-EMP-NO            PIC 9(06).                     DTSZX550
00106      05  FILLER                    PIC X(01).                     DTSZX550
00107      05  WEB-IMP-QTR               PIC X(06).                     DTSZX550
00108      05  FILLER                    PIC X(495).                    DTSZX550
00109                                                                   DTSZX550
00110 *FD  CURR-BATCH-NO                                                DTSZX550
00111 *    RECORDING MODE IS F                                          DTSZX550
00112 *    BLOCK CONTAINS 0 RECORDS                                     DTSZX550
00113 *    LABEL RECORDS ARE OMITTED.                                   DTSZX550
00114 *                                                                 DTSZX550
00115 *01  CURR-BATCH-NO-REC.                                           DTSZX550
00116 *    05  CURRENT-BATCH-NO              PIC 9(05).                 DTSZX550
00117 *    05  CURRENT-ITEM-NO               PIC 9(03).                 DTSZX550
00118 *    05  FILLER                        PIC X(01).                 DTSZX550
00119 *    05  CURRENT-ARCHIVE-YEAR          PIC 9(04).                 DTSZX550
00120 *    05  FILLER                        PIC X(01).                 DTSZX550
00121 *    05  FIRST-ARCHIVE-YEAR            PIC 9(04).                 DTSZX550
00122 *    05  FILLER                        PIC X(62).                 DTSZX550
00123                                                                   DTSZX550
00124  SD  SORT-FILE.                                                   DTSZX550
00125                                                                   DTSZX550
00126  01  SORT-REC.                                                    DTSZX550
00127      05  SORT-KEY.                                                DTSZX550
00128          10  SORT-EMP-NO           PIC  9(06).                    DTSZX550
00129          10  SORT-SEQ2             PIC  X(16).                    DTSZX550
00130          10  SORT-SEQ1             PIC S9(04)       COMP.            CL*60
00131      05  RPT-PAY-SORT-KEY REDEFINES SORT-KEY.                        CL*57
00132          10  SORT-PAY-EMP-NO       PIC  9(06).                       CL*57
00133          10  SORT-PAY-QTR          PIC  X(06).                       CL*57
00134          10  SORT-FILLER           PIC  X(10).                    DTSZX550
00135          10  SORT-PAY-SEQ1         PIC  S9(04)  COMP.                CL*60
00136      05  IN-HOUSE-SORT-KEY REDEFINES SORT-KEY.                       CL*57
00137          10  SORT-IN-HOUSE-SEQ     PIC  9(06).                       CL*57
00138          10  SORT-BATCH            PIC  9(05).                       CL*57
00139          10  SORT-ITEM             PIC  9(03).                       CL*57
00140          10  SORT-FILLER           PIC  X(10).                       CL*57
00141      05  SORT-DATA                 PIC  X(512).                   DTSZX550
00142                                                                   DTSZX550
00143  WORKING-STORAGE SECTION.                                         DTSZX550
001435 77  PAN-VALET PICTURE X(24) VALUE '095DTSZX550  12/05/16'.       DTSZX550
00144  77  PAN-VALET PICTURE X(24) VALUE '013DTSBX420  10/07/14'.       DTSZX550
00145  77  PAN-VALET PICTURE X(24) VALUE '154DTSBX420  10/07/14'.       DTSZX550
00146      SKIP3                                                        DTSZX550
00147  01  WRK-AREA.                                                    DTSZX550
00148      05  W-ABEND-CD                  PIC S9(04)  COMP  VALUE 420. DTSZX550
00149      05  W-MOD-NAME                  PIC  X(08)  VALUE 'DTSBX420'.DTSZX550
00150                                                                   DTSZX550
00151      05  WEB-IMP-STATUS          PIC  X(02).                      DTSZX550
00152          88 WEB-IMP-STATUS-OK-88     VALUE '00'.                  DTSZX550
00153          88 WEB-IMP-STATUS-EOF-88    VALUE '10'.                  DTSZX550
00154                                                                   DTSZX550
00155 **   05  BATCH-STATUS            PIC  X(02).                      DTSZX550
00156 *        88 BATCH-STATUS-OK-88       VALUE '00'.                  DTSZX550
00157 **       88 BATCH-STATUS-EOF-88      VALUE '10'.                  DTSZX550
00158                                                                   DTSZX550
00159      05  SORT-EOF-IND            PIC  X(01).                      DTSZX550
00160          88 SORT-OK-88               VALUE '0'.                   DTSZX550
00161          88 SORT-EOF-88              VALUE '1'.                   DTSZX550
00162                                                                   DTSZX550
00163      05  W-ERROR-IND                 PIC  X(01) VALUE 'N'.        DTSZX550
00164          88 W-ERROR-YES-88            VALUE 'Y'.                  DTSZX550
00165          88 W-ERROR-NO-88             VALUE 'N'.                  DTSZX550
00166                                                                   DTSZX550
00167      05  W-FATAL-ERROR-IND           PIC  X(01) VALUE 'N'.        DTSZX550
00168          88 W-FATAL-ERROR-YES-88      VALUE 'Y'.                  DTSZX550
00169          88 W-FATAL-ERROR-NO-88       VALUE 'N'.                  DTSZX550
00170                                                                   DTSZX550
00171      05  W-EMP-NO                PIC  9(07) VALUE ZERO.           DTSZX550
00172      05  W-PAY-QTR               PIC  X(06) VALUE SPACES.            CL*57
00173      05  W-PSEUDO-BATCH-NO       PIC  9(05) VALUE ZERO.           DTSZX550
00174      05  W-CURR-RUN-DATE         PIC S9(09) COMP-3.               DTSZX550
00175      05  W-LAST-RATE-YEAR        PIC  9(04).                      DTSZX550
00176      05  X102-KEY-AREA           PIC  X(06) VALUE SPACES.            CL*15
00177                                                                   DTSZX550
00178      05  SUB                     PIC S9(04)    COMP.              DTSZX550
00179 **   05  W-PSEUDO-BATCH-NO       PIC  9(05) VALUE ZERO.           DTSZX550
00180 *    05  FILLER REDEFINES W-PSEUDO-BATCH-NO.                      DTSZX550
00181 *        10  W-PSEUDO-DAYS       PIC  9(03).                      DTSZX550
00182 **       10  W-PSEUDO-BATCH-SEQ  PIC  9(02).                      DTSZX550
00183                                                                   DTSZX550
00184      05  W-START-BATCH           PIC  9(05) VALUE ZERO.           DTSZX550
00185      05  W-END-BATCH             PIC  9(05) VALUE ZERO.           DTSZX550
00186                                                                   DTSZX550
00187      05  W-PSEUDO-ITEM-NO        PIC  9(03)  VALUE 0.             DTSZX550
00188                                                                   DTSZX550
00189      05  W-500-DATE.                                              DTSZX550
00190          10  W-500-DATE-MM       PIC XX.                          DTSZX550
00191          10  FILLER              PIC X.                           DTSZX550
00192          10  W-500-DATE-DD       PIC XX.                          DTSZX550
00193          10  FILLER              PIC X.                           DTSZX550
00194          10  W-500-DATE-YY       PIC XXXX.                        DTSZX550
00195                                                                   DTSZX550
00196      05  W-500-FQTR.                                              DTSZX550
00197          10  W-500-FQTR-YY       PIC XXXX.                        DTSZX550
00198          10  FILLER              PIC X VALUE '/'.                 DTSZX550
00199          10  W-500-FQTR-NO       PIC X.                           DTSZX550
00200                                                                   DTSZX550
00201      05  W-INT-9                 PIC  9(13).                      DTSZX550
00202      05  W-INT-X   REDEFINES W-INT-9                              DTSZX550
00203                                  PIC  X(13).                      DTSZX550
00204                                                                      CL*70
00205      05  Z-INT-X.                                                    CL*78
00206          15  Z-INT-A                 PIC  S9(11) VALUE ZEROS.        CL*78
00207          15  Z-INT-B                 PIC  X(01) VALUE '.'.           CL*79
00208          15  Z-INT-C                 PIC  9(02) VALUE ZEROS.         CL*78
00209      05  Z-INT-9.                                                    CL*78
00210          15  Z-INT-A9                PIC  S9(11) VALUE ZEROS.        CL*78
00211          15  Z-INT-C9                PIC  9(02) VALUE ZEROS.         CL*78
00212      05  Z-INT-Z9  REDEFINES Z-INT-9                                 CL*78
00213                                  PIC  S9(11)V99.                     CL*77
00214                                                                      CL*70
00215      05  W-INTEGER               PIC  S9(11) COMP-3.              DTSZX550
00216      05  W-FRACTION              PIC  SV9(11) COMP-3.             DTSZX550
00217      05  W-NUMBER                PIC  S9(11)V9(05) COMP-3.        DTSZX550
00218      05  Z-NUMBER                PIC  S9(11)V9(05) VALUE 0.          CL*69
00219                                                                   DTSZX550
00220 **   05  W-MULTIPLIER            PIC S9(11)V99 COMP-3             DTSZX550
00221 *                                     VALUE +0.                   DTSZX550
00222 *    05  W-DIGIT                 PIC 9.                           DTSZX550
00223 *    05  W-AMT                   PIC S9(09)V99 COMP-3             DTSZX550
00224 *                                     VALUE +0.                   DTSZX550
00225 *                                                                 DTSZX550
00226 *    05  W-DECIMAL-FOUND-IND     PIC  X(01) VALUE 'N'.            DTSZX550
00227 *        88  W-DECIMAL-FOUND-YES-88  VALUE 'Y'.                   DTSZX550
00228 *        88  W-DECIMAL-FOUND-NO-88   VALUE 'N'.                   DTSZX550
00229 *                                                                 DTSZX550
00230 *    05  W-WAGES                 PIC S9(11)V99.                   DTSZX550
00231 *    05  W-WAGES-X               PIC  X(14).                      DTSZX550
00232 *    05  W-WAGES-9 REDEFINES W-WAGES-X                            DTSZX550
00233 *                                PIC  9(11).99.                   DTSZX550
00234 *    05  W-REMIT-X               PIC  X(12).                      DTSZX550
00235 *    05  W-REMIT-9 REDEFINES W-REMIT-X                            DTSZX550
00236 *                                PIC  9(09).99.                   DTSZX550
00237      05  W-TRACE-X.                                               DTSZX550
00238          10  W-TRACE-A           PIC  X(05) VALUE '00000'.        DTSZX550
00239          10  W-TRACE-B           PIC  X(08) VALUE ZEROS.          DTSZX550
00240      05  W-TRACE-9 REDEFINES W-TRACE-X                            DTSZX550
00241                                  PIC  9(13).                      DTSZX550
00242 *    05  W-COUNT-X               PIC  X(07).                      DTSZX550
00243 *    05  W-COUNT-9 REDEFINES W-COUNT-X                            DTSZX550
00244 *                                PIC  9(07).                      DTSZX550
00245 *    05  W-EARNINGS-X            PIC  X(12).                      DTSZX550
00246 *    05  W-EARNINGS-9   REDEFINES W-EARNINGS-X                    DTSZX550
00247 *                                PIC  9(09).99.                   DTSZX550
00248 *    05  W-EARNINGS              PIC S9(07)V99.                   DTSZX550
00249 *    05  W-RATE                  PIC S9V9(04).                    DTSZX550
00250 *    05  W-RATE-X                PIC  X(06).                      DTSZX550
00251 *    05  W-RATE-9       REDEFINES W-RATE-X                        DTSZX550
00252 *                                PIC  9.9999.                     DTSZX550
00253 *                                                                 DTSZX550
00254 *    05  ISUB1                   PIC S9(04) COMP.                 DTSZX550
00255 *    05  ISUB2                   PIC S9(04) COMP.                 DTSZX550
00256 *    05  ISUB3                   PIC S9(04) COMP.                 DTSZX550
00257 *    05  ISUB4                   PIC S9(04) COMP.                 DTSZX550
00258 *    05  ISUB5                   PIC S9(04) COMP.                 DTSZX550
00259 *    05  ISUB6                   PIC S9(04) COMP.                 DTSZX550
00260 *    05  W-SLASH1                PIC S9(04) COMP.                 DTSZX550
00261 *    05  W-SLASH2                PIC S9(04) COMP.                 DTSZX550
00262 *    05  W-CURR-FIELD            PIC S9(04) COMP.                 DTSZX550
00263 *    05  W-LAST-FIELD            PIC S9(04) COMP.                 DTSZX550
00264 *    05  W-LAST-FIELD-LEN        PIC S9(04) COMP.                 DTSZX550
00265 *    05  W-INPUT-LENGTH          PIC S9(04) COMP                  DTSZX550
00266 *                                 VALUE +502.                     DTSZX550
00267 *    05  W-INPUT-LINE            PIC  X(500).                     DTSZX550
00268 *    05  W-PARSE-COMPLETE-IND    PIC  X(01).                      DTSZX550
00269 *        88  W-PARSE-COMPLETE-YES-88  VALUE 'Y'.                  DTSZX550
00270 *        88  W-PARSE-COMPLETE-NO-88   VALUE 'N'.                  DTSZX550
00271 *    05  W-FIELD-LENGTH          PIC S9(04) COMP.                 DTSZX550
00272 *    05  W-CONV-LINE             PIC  X(32).                      DTSZX550
00273 *                                                                 DTSZX550
00274 *    05  W-MDY         PIC  X(04).                                DTSZX550
00275 *    05  FILLER REDEFINES W-MDY.                                  DTSZX550
00276 *        10  FILLER              PIC  X(02).                      DTSZX550
00277 *        10  W-MDY-X-2           PIC  X(02).                      DTSZX550
00278 *        10  FILLER REDEFINES W-MDY-X-2.                          DTSZX550
00279 *            15  FILLER          PIC  X(01).                      DTSZX550
00280 **           15  W-MDY-X-1       PIC  X(01).                      DTSZX550
00281                                                                   DTSZX550
00282      05  W-WEB-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.     DTSZX550
00283      05  W-102-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00284      05  W-104-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00285      05  W-106-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00286      05  W-108-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00287      05  W-110-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00288      05  W-120-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00289      05  W-140-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00290      05  W-144-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00291      05  W-145-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*38
00292      05  W-147-IMP-CNT           PIC S9(07)  COMP-3 VALUE +0.        CL*63
00293                                                                   DTSZX550
00294      05  W-WEB-IMP-LENGTH        PIC S9(04)  COMP.                DTSZX550
00295                                                                   DTSZX550
00296      05  W-AMT-DISP1             PIC ----------9.99.              DTSZX550
00297      05  W-AMT-DISP2             PIC ----------9.99.              DTSZX550
00298      05  W-AMT-DISP4             PIC -.99999999999.               DTSZX550
00299      05  W-AMT-DISP3             PIC ------------9.               DTSZX550
00300                                                                   DTSZX550
00301 *  PROFILE                                                        DTSZX550
00302  01  X102-REC.                                                    DTSZX550
00303  ++INCLUDE DTSIX102                                               DTSZX550
00304                                                                   DTSZX550
00305 *  DETERMINATION                                                  DTSZX550
00306  01  X104-REC.                                                    DTSZX550
00307  ++INCLUDE DTSIX104                                               DTSZX550
00308                                                                   DTSZX550
00309 *  NAME                                                           DTSZX550
00310  01  X106-REC.                                                    DTSZX550
00311  ++INCLUDE DTSIX106                                               DTSZX550
00312                                                                   DTSZX550
00313 *  RATE                                                           DTSZX550
00314  01  X108-REC.                                                    DTSZX550
00315  ++INCLUDE DTSIX108                                               DTSZX550
00316                                                                   DTSZX550
00317 *  ADDRESS                                                        DTSZX550
00318  01  X110-REC.                                                    DTSZX550
00319  ++INCLUDE DTSIX110                                               DTSZX550
00320                                                                   DTSZX550
00321 *  OPO                                                            DTSZX550
00322  01  X120-REC.                                                    DTSZX550
00323  ++INCLUDE DTSIX120                                               DTSZX550
00324                                                                   DTSZX550
00325 *  WORKING COPY OF X120                                              CL*41
00326  01  W120-REC.                                                       CL*41
00327  ++INCLUDE DTSWX120                                                  CL*43
00328                                                                      CL*41
00329 *  RELATIONSHIP                                                   DTSZX550
00330  01  X130-REC.                                                    DTSZX550
00331  ++INCLUDE DTSIX130                                               DTSZX550
00332                                                                   DTSZX550
00333 ** INDUSTRY DESCRIPTION                                           DTSZX550
00334 *01  X132-REC.                                                    DTSZX550
00335 ***INCLUDE DTSIX132                                               DTSZX550
00336                                                                   DTSZX550
00337 *  REPORT DUTAS                                                      CL*73
00338  01  X140-REC.                                                    DTSZX550
00339  ++INCLUDE DTSIX140                                               DTSZX550
00340                                                                   DTSZX550
00341 *  REPORT ESSP                                                       CL*73
00342  01  W140-REC.                                                       CL*73
00343  ++INCLUDE DTSIW140                                                  CL*73
00344                                                                      CL*73
00345 *  EMPLOYEE WAGES                                                 DTSZX550
00346  01  X144-REC.                                                    DTSZX550
00347  ++INCLUDE DTSIX144                                               DTSZX550
00348                                                                   DTSZX550
00349 *  EMPLOYEE WAGES-WORK COPY                                          CL*50
00350  01  W144-REC.                                                       CL*50
00351  ++INCLUDE DTSIW144                                                  CL*50
00352                                                                      CL*50
00353 *  EMPLOYEE AMENDED WAGES (W2)                                       CL*63
00354  01  X147-REC.                                                       CL*63
00355  ++INCLUDE DTSIX147                                                  CL*63
00356                                                                      CL*63
00357 *  PAYMENT                                                        DTSZX550
00358  01  X145-REC.                                                    DTSZX550
00359  ++INCLUDE DTSIX145                                               DTSZX550
00360                                                                   DTSZX550
00361  01  X149-REC.                                                    DTSZX550
00362  ++INCLUDE DTSIX149                                               DTSZX550
00363                                                                   DTSZX550
00364  01  L001-LINK-AREA.                                              DTSZX550
00365  ++INCLUDE DTSIL001                                               DTSZX550
00366                                                                   DTSZX550
00367  01  L003-LINK-AREA.                                              DTSZX550
00368  ++INCLUDE DTSIL003                                               DTSZX550
00369                                                                   DTSZX550
00370  01  L004-LINK-AREA.                                              DTSZX550
00371  ++INCLUDE DTSIL004                                               DTSZX550
00372                                                                   DTSZX550
00373  01  L005-LINK-AREA.                                              DTSZX550
00374  ++INCLUDE DTSIL005                                               DTSZX550
00375                                                                   DTSZX550
00376  01  L205-LINK-AREA.                                              DTSZX550
00377  ++INCLUDE DTSIL205                                               DTSZX550
00378                                                                   DTSZX550
00379  01  LX42-LINK-AREA.                                              DTSZX550
00380  ++INCLUDE DTSILX42                                                  CL*39
00381                                                                   DTSZX550
00382  01  L910-LINK-AREA.                                              DTSZX550
00383  ++INCLUDE DTSIL910                                               DTSZX550
00384  01  MSKL-REC.                                                    DTSZX550
00385  ++INCLUDE DTSIMSKL                                               DTSZX550
00386                                                                   DTSZX550
00387  01  MHDR-REC.                                                    DTSZX550
00388  ++INCLUDE DTSIMHDR                                               DTSZX550
00389                                                                   DTSZX550
00390  01  MPRF-REC.                                                    DTSZX550
00391  ++INCLUDE DTSIMPRF                                               DTSZX550
00392                                                                   DTSZX550
00393  01  MSOL-REC.                                                    DTSZX550
00394  ++INCLUDE DTSIMSOL                                               DTSZX550
00395                                                                   DTSZX550
00396  01  MQTR-REC.                                                    DTSZX550
00397  ++INCLUDE DTSIMQTR                                               DTSZX550
00398                                                                   DTSZX550
00399  01  MOPO-REC.                                                    DTSZX550
00400  ++INCLUDE DTSIMOPO                                               DTSZX550
00401                                                                   DTSZX550
00402  01  MTAD-REC.                                                    DTSZX550
00403  ++INCLUDE DTSIMTAD                                               DTSZX550
00404                                                                   DTSZX550
00405  01  MNTE-REC.                                                    DTSZX550
00406  ++INCLUDE DTSIMNTE                                               DTSZX550
00407                                                                   DTSZX550
00408  01  L921-LINK-AREA.                                              DTSZX550
00409  ++INCLUDE DTSIL921                                               DTSZX550
00410      SKIP3                                                        DTSZX550
00411  01  ISKL-REC.                                                    DTSZX550
00412  ++INCLUDE DTSIISKL                                               DTSZX550
00413      SKIP3                                                        DTSZX550
00414  01  IEIN-REC.                                                    DTSZX550
00415  ++INCLUDE DTSIIEIN                                               DTSZX550
00416                                                                   DTSZX550
00417  01   L923-LINK-AREA.                                             DTSZX550
00418  ++INCLUDE DTSIL923                                               DTSZX550
00419      EJECT                                                        DTSZX550
00420  01  ASKL-REC.                                                    DTSZX550
00421  ++INCLUDE DTSIASKL                                               DTSZX550
00422      EJECT                                                        DTSZX550
00423  01  AHDR-REC.                                                    DTSZX550
00424  ++INCLUDE DTSIAHDR                                               DTSZX550
00425                                                                   DTSZX550
00426  01  ARPT-REC.                                                    DTSZX550
00427  ++INCLUDE DTSIARPT                                               DTSZX550
00428                                                                   DTSZX550
00429  01  APAY-REC.                                                    DTSZX550
00430  ++INCLUDE DTSIAPAY                                               DTSZX550
00431                                                                   DTSZX550
00432                                                                   DTSZX550
00433  01  L927-LINK-AREA.                                              DTSZX550
00434  ++INCLUDE DTSIL927                                               DTSZX550
00435                                                                   DTSZX550
00436  01  TSKL-REC.                                                    DTSZX550
00437  ++INCLUDE DTSITSKL                                               DTSZX550
00438                                                                   DTSZX550
00439  01  L931-LINK-AREA.                                              DTSZX550
00440  ++INCLUDE DTSIL931                                               DTSZX550
00441                                                                   DTSZX550
00442  01  FSKL-REC.                                                    DTSZX550
00443  ++INCLUDE DTSIFSKL                                               DTSZX550
00444                                                                   DTSZX550
00445  PROCEDURE DIVISION.                                              DTSZX550
00446                                                                   DTSZX550
00447  DTSBX420-MAIN.                                                   DTSZX550
00448      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSZX550
00449      IF W-FATAL-ERROR-YES-88                                      DTSZX550
00450         GO TO DTSBX420-MAIN-EXIT                                  DTSZX550
00451      END-IF.                                                      DTSZX550
00452                                                                   DTSZX550
00453      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSZX550
00454                                                                   DTSZX550
00455      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSZX550
00456      IF W-ERROR-YES-88                                            DTSZX550
00457         MOVE +2 TO RETURN-CODE.                                   DTSZX550
00458  DTSBX420-MAIN-EXIT.                                              DTSZX550
00459      GOBACK.                                                      DTSZX550
00460      EJECT                                                        DTSZX550
00461  I0000-INITIATE.                                                  DTSZX550
00462      SET W-ERROR-NO-88                 TO TRUE.                   DTSZX550
00463      SET W-FATAL-ERROR-NO-88           TO TRUE.                   DTSZX550
00464                                                                   DTSZX550
00465      PERFORM S005-FROM-SYS             THRU S005-EXIT.            DTSZX550
00466                                                                   DTSZX550
00467      PERFORM I2000-OPEN-FILES          THRU I2000-EXIT.           DTSZX550
00468      IF W-FATAL-ERROR-YES-88                                      DTSZX550
00469         GO TO I0000-EXIT                                          DTSZX550
00470      END-IF.                                                      DTSZX550
00471                                                                   DTSZX550
00472      PERFORM I3000-READ-HEADER         THRU I3000-EXIT.           DTSZX550
00473      IF W-FATAL-ERROR-YES-88                                      DTSZX550
00474         GO TO I0000-EXIT                                          DTSZX550
00475      END-IF.                                                      DTSZX550
00476                                                                   DTSZX550
00477 **   PERFORM I4000-CURRENT-BATCH       THRU I4000-EXIT            DTSZX550
00478 *    IF W-FATAL-ERROR-YES-88                                      DTSZX550
00479 *       GO TO I0000-EXIT                                          DTSZX550
00480 **   END-IF.                                                      DTSZX550
00481                                                                   DTSZX550
00482      PERFORM I5000-INITIAL-CALLS       THRU I5000-EXIT.           DTSZX550
00483                                                                   DTSZX550
00484  I0000-EXIT.                                                      DTSZX550
00485      EXIT.                                                        DTSZX550
00486                                                                   DTSZX550
00487  I2000-OPEN-FILES.                                                DTSZX550
00488      OPEN INPUT    WEB-IMP-FILE.                                  DTSZX550
00489      IF NOT WEB-IMP-STATUS-OK-88                                  DTSZX550
00490         SET W-FATAL-ERROR-YES-88       TO TRUE                    DTSZX550
00491         DISPLAY 'NO ESSP UPDATES FILE  TO PROCESS'                DTSZX550
00492         MOVE +3 TO RETURN-CODE                                    DTSZX550
00493         SET W-ERROR-YES-88           TO TRUE                      DTSZX550
00494         DISPLAY 'CANNOT OPEN WEB-IMP-FILE '                       DTSZX550
00495            WEB-IMP-STATUS                                         DTSZX550
00496         GO TO I2000-EXIT                                          DTSZX550
00497      END-IF.                                                      DTSZX550
00498                                                                   DTSZX550
00499      READ WEB-IMP-FILE.                                           DTSZX550
00500      IF NOT WEB-IMP-STATUS-OK-88                                  DTSZX550
00501         SET W-FATAL-ERROR-YES-88       TO TRUE                    DTSZX550
00502         DISPLAY 'NO ESSP FTP UPDATE FILES TO PROCESS'             DTSZX550
00503         MOVE +3 TO RETURN-CODE                                    DTSZX550
00504         SET W-ERROR-YES-88           TO TRUE                      DTSZX550
00505         DISPLAY 'NO RECORDS ON  WEB-IMP-FILE '                    DTSZX550
00506            WEB-IMP-STATUS                                         DTSZX550
00507         GO TO I2000-EXIT                                          DTSZX550
00508      END-IF.                                                      DTSZX550
00509      CLOSE WEB-IMP-FILE.                                          DTSZX550
00510      OPEN INPUT    WEB-IMP-FILE.                                  DTSZX550
00511      IF NOT WEB-IMP-STATUS-OK-88                                  DTSZX550
00512         SET W-FATAL-ERROR-YES-88       TO TRUE                    DTSZX550
00513         DISPLAY 'NO ESSP UPDATES FILE  TO PROCESS'                DTSZX550
00514         MOVE +3 TO RETURN-CODE                                    DTSZX550
00515         SET W-ERROR-YES-88           TO TRUE                      DTSZX550
00516         DISPLAY 'CANNOT OPEN WEB-IMP-FILE '                       DTSZX550
00517            WEB-IMP-STATUS                                         DTSZX550
00518         GO TO I2000-EXIT                                          DTSZX550
00519      END-IF.                                                      DTSZX550
00520                                                                   DTSZX550
00521      PERFORM S910-OPEN-READ     THRU S910-EXIT.                   DTSZX550
00522                                                                   DTSZX550
00523      PERFORM S921-OPEN-READ     THRU S921-EXIT.                   DTSZX550
00524                                                                   DTSZX550
00525      PERFORM S923-OPEN-READ     THRU S923-EXIT.                   DTSZX550
00526                                                                   DTSZX550
00527      PERFORM S931-OPEN-READ     THRU S931-EXIT.                   DTSZX550
00528                                                                   DTSZX550
00529 *    MOVE 'N'                  TO L927-TRACE-IND.                    CL*44
00530 *    MOVE W-MOD-NAME           TO L927-MOD-NAME.                     CL*44
00531 *    PERFORM S927A-OPEN        THRU S927A-EXIT.                      CL*44
00532                                                                   DTSZX550
00533  I2000-EXIT.                                                      DTSZX550
00534      EXIT.                                                        DTSZX550
00535                                                                   DTSZX550
00536  I3000-READ-HEADER.                                               DTSZX550
00537      MOVE LOW-VALUES TO MSKL-REC.                                 DTSZX550
00538      MOVE +0 TO MSKL-EMP-NO.                                      DTSZX550
00539      SET MSKL-HDR-88 TO TRUE.                                     DTSZX550
00540                                                                   DTSZX550
00541      PERFORM S910-READ THRU S910-EXIT.                            DTSZX550
00542      IF L910-NO-REC-88                                            DTSZX550
00543         DISPLAY 'DTSBX420: MHDR RECORD IS MISSING'                DTSZX550
00544         SET W-FATAL-ERROR-YES-88    TO TRUE                       DTSZX550
00545         MOVE +6 TO RETURN-CODE                                    DTSZX550
00546         GO TO I3000-EXIT                                          DTSZX550
00547      ELSE                                                         DTSZX550
00548         MOVE MSKL-REC               TO MHDR-REC                   DTSZX550
00549      END-IF.                                                      DTSZX550
00550                                                                   DTSZX550
00551      MOVE MHDR-CURR-RUN-DATE        TO W-CURR-RUN-DATE.           DTSZX550
00552                                                                   DTSZX550
00553      MOVE MHDR-LAST-RATE-END-YRQ    TO L004-QTR-5-9.              DTSZX550
00554      MOVE L004-QTR-5-YR             TO W-LAST-RATE-YEAR.          DTSZX550
00555      DISPLAY 'LAST RATE YEAR '         W-LAST-RATE-YEAR.          DTSZX550
00556                                                                   DTSZX550
00557  I3000-EXIT.                                                      DTSZX550
00558      EXIT.                                                        DTSZX550
00559                                                                   DTSZX550
00560  I5000-INITIAL-CALLS.                                             DTSZX550
00561         DISPLAY '!!!!! BX420- INITILIZE RECORDS START BX420'         CL*12
00562      SET LX42-INITIALIZE-88            TO TRUE.                   DTSZX550
00563      MOVE W-CURR-RUN-DATE              TO LX42-CURR-RUN-DATE.     DTSZX550
00564      MOVE L005-DATE                    TO LX42-SYS-DATE.          DTSZX550
00565      MOVE L005-TIME                    TO LX42-SYS-TIME.          DTSZX550
00566 *    MOVE ZERO                         TO LX42-BATCH-NO           DTSZX550
00566      MOVE ZERO                         TO LX42-PSEUDO-BATCH-NO    DTSZX550
00568                                           LX42-LAST-DETERM-EMP    DTSZX550
00569                                           LX42-RPT-CNT            DTSZX550
00570                                           LX42-RPT-REMIT-AMT      DTSZX550
00571                                           LX42-PAY-CNT            DTSZX550
00572                                           LX42-PAY-REMIT-AMT.     DTSZX550
00573      SET LX42-BATCH-ERR-NO-88          TO TRUE.                   DTSZX550
00574      SET LX42-ERROR-NO-88              TO TRUE.                   DTSZX550
00575      SET LX42-RPT-ERROR-NO-88          TO TRUE                       CL*29
00576      MOVE LOW-VALUES                   TO LX42-DATA-AREA.         DTSZX550
00577                                                                   DTSZX550
00578      MOVE ZERO                         TO W-102-IMP-CNT              CL*38
00579                                           W-104-IMP-CNT              CL*38
00580                                           W-106-IMP-CNT              CL*38
00581                                           W-108-IMP-CNT              CL*38
00582                                           W-110-IMP-CNT              CL*38
00583                                           W-120-IMP-CNT              CL*38
00584                                           W-140-IMP-CNT              CL*38
00585                                           W-144-IMP-CNT              CL*38
00586                                           W-145-IMP-CNT.             CL*38
00587      PERFORM S422-REPORT-PAYMT         THRU S422-EXIT.               CL*23
00588 *    PERFORM S423-REPORT-WAGE          THRU S423-EXIT.               CL*59
00589                                                                   DTSZX550
00590  I5000-EXIT.                                                      DTSZX550
00591      EXIT.                                                        DTSZX550
00592                                                                   DTSZX550
00593                                                                   DTSZX550
00594  P0000-PROCESS.                                                   DTSZX550
00595      DISPLAY '!!!! BX420- START WEB IMPORT PRELIMINARY EDIT'.        CL*12
00596      DISPLAY SPACE.                                               DTSZX550
00597                                                                   DTSZX550
00598      SET W-ERROR-NO-88 TO TRUE.                                   DTSZX550
00599                                                                   DTSZX550
00600      SORT SORT-FILE                                               DTSZX550
00601        ON ASCENDING KEY SORT-KEY                                  DTSZX550
00602        INPUT PROCEDURE  P1000-PRE-SORT   THRU P1000-EXIT          DTSZX550
00603        OUTPUT PROCEDURE P2000-POST-SORT  THRU P2000-EXIT.         DTSZX550
00604                                                                   DTSZX550
00605      IF SORT-RETURN NOT = +0                                      DTSZX550
00606         DISPLAY 'SORT FAILED ' SORT-RETURN                        DTSZX550
00607      END-IF.                                                      DTSZX550
00608                                                                   DTSZX550
00609  P0000-EXIT.                                                      DTSZX550
00610      EXIT.                                                        DTSZX550
00611                                                                   DTSZX550
00612                                                                   DTSZX550
00613  P1000-PRE-SORT.                                                  DTSZX550
00614      PERFORM S1000-READ-WEB-IMP            THRU S1000-EXIT.       DTSZX550
00615      PERFORM UNTIL WEB-IMP-STATUS-EOF-88                          DTSZX550
00616         PERFORM P1100-PARSE-IMPORT-REC     THRU P1100-EXIT        DTSZX550
00617         PERFORM P1200-BUILD-SORT-REC       THRU P1200-EXIT        DTSZX550
00618         PERFORM S1000-READ-WEB-IMP         THRU S1000-EXIT        DTSZX550
00619      END-PERFORM.                                                 DTSZX550
00620                                                                   DTSZX550
00621      DISPLAY '!!!!! BX420- ENDOF INPUT SORT PROCEDURE ****'.         CL*12
00622  P1000-EXIT.                                                      DTSZX550
00623      EXIT.                                                        DTSZX550
00624                                                                   DTSZX550
00625  P1100-PARSE-IMPORT-REC.                                          DTSZX550
00626      IF WEB-IMP-TYPE-BHDR-88                                      DTSZX550
00627         DISPLAY 'BX420 P1000 HDR ' WEB-IMP-REC(1:14)              DTSZX550
00628      END-IF.                                                      DTSZX550
00629                                                                      CL*20
00630 *    DISPLAY 'P1000 ' WEB-IMP-TYPE '  ' WEB-IMP-EMP-NO.              CL*88
00631                                                                   DTSZX550
00632      PERFORM                                                      DTSZX550
00633        VARYING SUB FROM +1 BY +1                                  DTSZX550
00634        UNTIL SUB > +100                                           DTSZX550
00635        MOVE +0                  TO L205-FIELD-LENGTH (SUB)        DTSZX550
00636                                    L205-INTEGER (SUB)             DTSZX550
00637                                    L205-FRACTION (SUB)            DTSZX550
00638        MOVE SPACES              TO L205-TEXT (SUB)                DTSZX550
00639                                    L205-DATE (SUB)                DTSZX550
00640        SET L205-TYPE-TEXT-88 (SUB)  TO TRUE                       DTSZX550
00641      END-PERFORM.                                                 DTSZX550
00642                                                                   DTSZX550
00643      EVALUATE TRUE                                                DTSZX550
00644                                                                   DTSZX550
00645 *       WHEN WEB-IMP-TYPE-RPT-88                                     CL*81
00646 *          PERFORM P1100H-RPT            THRU P1100H-EXIT            CL*81
00647                                                                   DTSZX550
00648         WHEN WEB-IMP-TYPE-WAGE-88                                 DTSZX550
00649            PERFORM P1100I-WAGE           THRU P1100I-EXIT         DTSZX550
00650                                                                   DTSZX550
00651         WHEN WEB-IMP-TYPE-AWAGE-88                                   CL*85
00652            PERFORM P1100X-AWAGE           THRU P1100X-EXIT           CL*85
00653                                                                      CL*85
00654         WHEN WEB-IMP-TYPE-PAY-88                                  DTSZX550
00655            PERFORM P1100J-PAY            THRU P1100J-EXIT         DTSZX550
00656                                                                   DTSZX550
00657                                                                   DTSZX550
00658      END-EVALUATE.                                                DTSZX550
00659                                                                   DTSZX550
00660      IF WEB-IMP-TYPE-RPT-88                                          CL*83
00661        GO TO P1100-EXIT.                                             CL*83
00662      MOVE WEB-IMP-REC              TO L205-INPUT-DATA.            DTSZX550
00663      CALL 'DTSBU205'  USING L205-LINK-AREA.                       DTSZX550
00664                                                                   DTSZX550
00665  P1100-EXIT.                                                      DTSZX550
00666      EXIT.                                                        DTSZX550
00667                                                                   DTSZX550
00668  P1100H-RPT.                                                      DTSZX550
00669 *     DISPLAY 'P1100H-RPT ' WEB-IMP-REC(1:126).                      CL*23
00670       MOVE +16                      TO L205-LAST-FIELD.              CL*24
00671       MOVE +14                      TO L205-LAST-FIELD-LEN.          CL*27
00672                                                                   DTSZX550
00673       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSZX550
00674       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSZX550
00675                                                                   DTSZX550
00676       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSZX550
00677       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSZX550
00678                                                                   DTSZX550
00679       MOVE +4                       TO L205-FIELD-LENGTH (3).     DTSZX550
00680       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSZX550
00681                                                                   DTSZX550
00682       MOVE +1                       TO L205-FIELD-LENGTH (4).     DTSZX550
00683       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSZX550
00684                                                                   DTSZX550
00685       MOVE +8                       TO L205-FIELD-LENGTH (5).     DTSZX550
00686       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSZX550
00687                                                                   DTSZX550
00688       MOVE +8                       TO L205-FIELD-LENGTH (6).     DTSZX550
00689       SET L205-TYPE-TEXT-88 (6)     TO TRUE.                      DTSZX550
00690                                                                   DTSZX550
00691       MOVE +14                      TO L205-FIELD-LENGTH (7).     DTSZX550
00692       SET L205-TYPE-NUMBER-88 (7)   TO TRUE.                      DTSZX550
00693                                                                   DTSZX550
00694       MOVE +14                      TO L205-FIELD-LENGTH (8).     DTSZX550
00695       SET L205-TYPE-NUMBER-88 (8)   TO TRUE.                      DTSZX550
00696                                                                   DTSZX550
00697       MOVE +14                      TO L205-FIELD-LENGTH (9).     DTSZX550
00698       SET L205-TYPE-NUMBER-88 (9)  TO TRUE.                       DTSZX550
00699                                                                   DTSZX550
00700       MOVE +04                      TO L205-FIELD-LENGTH (10).    DTSZX550
00701       SET L205-TYPE-TEXT-88 (10)    TO TRUE.                      DTSZX550
00702                                                                   DTSZX550
00703       MOVE +10                      TO L205-FIELD-LENGTH (11).    DTSZX550
00704       SET L205-TYPE-TEXT-88 (11)    TO TRUE.                      DTSZX550
00705                                                                   DTSZX550
00706       MOVE +8                       TO L205-FIELD-LENGTH (12).    DTSZX550
00707       SET L205-TYPE-TEXT-88 (12)    TO TRUE.                         CL*48
00708                                                                   DTSZX550
00709       MOVE +8                       TO L205-FIELD-LENGTH (13).    DTSZX550
00710       SET L205-TYPE-TEXT-88 (13)    TO TRUE.                         CL*48
00711                                                                   DTSZX550
00712       MOVE +8                       TO L205-FIELD-LENGTH (14).    DTSZX550
00713       SET L205-TYPE-TEXT-88 (14)    TO TRUE.                         CL*48
00714                                                                   DTSZX550
00715       MOVE +4                       TO L205-FIELD-LENGTH (15).    DTSZX550
00716       SET L205-TYPE-TEXT-88   (15)  TO TRUE.                      DTSZX550
00717                                                                   DTSZX550
00718       MOVE +14                      TO L205-FIELD-LENGTH (16).       CL*27
00719       SET L205-TYPE-NUMBER-88 (16)  TO TRUE.                         CL*26
00720                                                                      CL*24
00721 **    MOVE +1                       TO L205-FIELD-LENGTH (16).    DTSZX550
00722 **    SET L205-TYPE-TEXT-88 (18)     TO TRUE.                     DTSZX550
00723                                                                   DTSZX550
00724 **    MOVE +1                       TO L205-FIELD-LENGTH (17).    DTSZX550
00725 **    SET L205-TYPE-TEXT-88 (19)     TO TRUE.                     DTSZX550
00726                                                                   DTSZX550
00727 **    MOVE +3                       TO L205-FIELD-LENGTH (18).    DTSZX550
00728 **    SET L205-TYPE-TEXT-88 (20)     TO TRUE.                     DTSZX550
00729                                                                   DTSZX550
00730 **    MOVE +8                       TO L205-FIELD-LENGTH (19).    DTSZX550
00731 **    SET L205-TYPE-TEXT-88 (21)     TO TRUE.                     DTSZX550
00732 **      DISPLAY 'NANCY '.                                            CL*31
00733  P1100H-EXIT.                                                     DTSZX550
00734      EXIT.                                                        DTSZX550
00735                                                                   DTSZX550
00736  P1100I-WAGE.                                                     DTSZX550
00737 *     DISPLAY 'P1100I-WAGE ' WEB-IMP-REC(1:126).                     CL*10
00738       INITIALIZE X144-REC.                                        DTSZX550
00739       MOVE +10                      TO L205-LAST-FIELD.           DTSZX550
00740       MOVE +14                      TO L205-LAST-FIELD-LEN.       DTSZX550
00741                                                                   DTSZX550
00742       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSZX550
00743       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSZX550
00744                                                                   DTSZX550
00745       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSZX550
00746       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSZX550
00747                                                                   DTSZX550
00748       MOVE +4                       TO L205-FIELD-LENGTH (3).     DTSZX550
00749       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSZX550
00750                                                                   DTSZX550
00751       MOVE +1                       TO L205-FIELD-LENGTH (4).     DTSZX550
00752       SET L205-TYPE-TEXT-88   (4)   TO TRUE.                      DTSZX550
00753                                                                   DTSZX550
00754       MOVE +8                       TO L205-FIELD-LENGTH (5).     DTSZX550
00755       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSZX550
00756                                                                   DTSZX550
00757       MOVE +9                       TO L205-FIELD-LENGTH (6).     DTSZX550
00758       SET L205-TYPE-TEXT-88 (6)    TO TRUE.                       DTSZX550
00759                                                                   DTSZX550
00760       MOVE +30                      TO L205-FIELD-LENGTH (7).     DTSZX550
00761       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSZX550
00762                                                                   DTSZX550
00763       MOVE +30                      TO L205-FIELD-LENGTH (8).     DTSZX550
00764       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                      DTSZX550
00765                                                                   DTSZX550
00766       MOVE +1                       TO L205-FIELD-LENGTH (9).     DTSZX550
00767       SET L205-TYPE-TEXT-88   (9)   TO TRUE.                      DTSZX550
00768                                                                   DTSZX550
00769       MOVE +14                      TO L205-FIELD-LENGTH (10).    DTSZX550
00770       SET L205-TYPE-NUMBER-88 (10)   TO TRUE.                     DTSZX550
00771  P1100I-EXIT.                                                     DTSZX550
00772      EXIT.                                                        DTSZX550
00773                                                                   DTSZX550
00774  P1100J-PAY.                                                      DTSZX550
00775 *     DISPLAY 'P1100J-PAY ' WEB-IMP-REC(1:84).                       CL*10
00776       INITIALIZE X145-REC.                                        DTSZX550
00777       MOVE +12                      TO L205-LAST-FIELD.           DTSZX550
00778       MOVE +8                       TO L205-LAST-FIELD-LEN.       DTSZX550
00779                                                                   DTSZX550
00780       MOVE +3                       TO L205-FIELD-LENGTH (1).     DTSZX550
00781       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                      DTSZX550
00782                                                                   DTSZX550
00783       MOVE +6                       TO L205-FIELD-LENGTH (2).     DTSZX550
00784       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                      DTSZX550
00785                                                                   DTSZX550
00786       MOVE +6                       TO L205-FIELD-LENGTH (3).     DTSZX550
00787       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                      DTSZX550
00788                                                                   DTSZX550
00789       MOVE +6                       TO L205-FIELD-LENGTH (4).     DTSZX550
00790       SET L205-TYPE-TEXT-88 (4)     TO TRUE.                      DTSZX550
00791                                                                   DTSZX550
00792       MOVE +3                       TO L205-FIELD-LENGTH (5).     DTSZX550
00793       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                      DTSZX550
00794                                                                   DTSZX550
00795       MOVE +2                       TO L205-FIELD-LENGTH (6).     DTSZX550
00796       SET L205-TYPE-TEXT-88 (6)   TO TRUE.                        DTSZX550
00797                                                                   DTSZX550
00798       MOVE +2                       TO L205-FIELD-LENGTH (7).     DTSZX550
00799       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                      DTSZX550
00800                                                                   DTSZX550
00801       MOVE +2                       TO L205-FIELD-LENGTH (8).     DTSZX550
00802       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                      DTSZX550
00803                                                                   DTSZX550
00804       MOVE +14                      TO L205-FIELD-LENGTH (9).     DTSZX550
00805       SET L205-TYPE-NUMBER-88 (9)     TO TRUE.                    DTSZX550
00806                                                                   DTSZX550
00807       MOVE +10                      TO L205-FIELD-LENGTH (10).    DTSZX550
00808       SET L205-TYPE-TEXT-88 (10)    TO TRUE.                      DTSZX550
00809                                                                   DTSZX550
00810       MOVE +10                      TO L205-FIELD-LENGTH (11).    DTSZX550
00811       SET L205-TYPE-TEXT-88 (11)     TO TRUE.                     DTSZX550
00812                                                                   DTSZX550
00813       MOVE +8                       TO L205-FIELD-LENGTH (12).    DTSZX550
00814       SET L205-TYPE-TEXT-88 (12)     TO TRUE.                     DTSZX550
00815                                                                   DTSZX550
00816                                                                   DTSZX550
00817  P1100J-EXIT.                                                     DTSZX550
00818      EXIT.                                                        DTSZX550
00819                                                                   DTSZX550
00820                                                                      CL*85
00821  P1100X-AWAGE.                                                       CL*85
00822 *     DISPLAY 'P1100I-WAGE ' WEB-IMP-REC(1:126).                     CL*85
00823       INITIALIZE X147-REC.                                           CL*85
00824       MOVE +10                      TO L205-LAST-FIELD.              CL*85
00825       MOVE +14                      TO L205-LAST-FIELD-LEN.          CL*85
00826                                                                      CL*85
00827       MOVE +3                       TO L205-FIELD-LENGTH (1).        CL*85
00828       SET L205-TYPE-TEXT-88 (1)     TO TRUE.                         CL*85
00829                                                                      CL*85
00830       MOVE +6                       TO L205-FIELD-LENGTH (2).        CL*85
00831       SET L205-TYPE-TEXT-88 (2)     TO TRUE.                         CL*85
00832                                                                      CL*85
00833       MOVE +4                       TO L205-FIELD-LENGTH (3).        CL*85
00834       SET L205-TYPE-TEXT-88 (3)     TO TRUE.                         CL*85
00835                                                                      CL*85
00836       MOVE +1                       TO L205-FIELD-LENGTH (4).        CL*85
00837       SET L205-TYPE-TEXT-88   (4)   TO TRUE.                         CL*85
00838                                                                      CL*85
00839       MOVE +8                       TO L205-FIELD-LENGTH (5).        CL*85
00840       SET L205-TYPE-TEXT-88 (5)     TO TRUE.                         CL*85
00841                                                                      CL*85
00842       MOVE +9                       TO L205-FIELD-LENGTH (6).        CL*85
00843       SET L205-TYPE-TEXT-88 (6)    TO TRUE.                          CL*85
00844                                                                      CL*85
00845       MOVE +30                      TO L205-FIELD-LENGTH (7).        CL*85
00846       SET L205-TYPE-TEXT-88 (7)     TO TRUE.                         CL*85
00847                                                                      CL*85
00848       MOVE +30                      TO L205-FIELD-LENGTH (8).        CL*85
00849       SET L205-TYPE-TEXT-88 (8)     TO TRUE.                         CL*85
00850                                                                      CL*85
00851       MOVE +1                       TO L205-FIELD-LENGTH (9).        CL*85
00852       SET L205-TYPE-TEXT-88   (9)   TO TRUE.                         CL*85
00853                                                                      CL*85
00854       MOVE +14                      TO L205-FIELD-LENGTH (10).       CL*85
00855       SET L205-TYPE-NUMBER-88 (10)   TO TRUE.                        CL*85
00856  P1100X-EXIT.                                                        CL*85
00857      EXIT.                                                           CL*85
00858                                                                      CL*85
00859                                                                   DTSZX550
00860  P1200-BUILD-SORT-REC.                                            DTSZX550
00861      MOVE LOW-VALUES                       TO SORT-REC.           DTSZX550
00862      MOVE WEB-IMP-EMP-NO                   TO SORT-EMP-NO.        DTSZX550
00863                                                                   DTSZX550
00864      EVALUATE TRUE                                                DTSZX550
00865                                                                   DTSZX550
00866         WHEN WEB-IMP-TYPE-RPT-88                                  DTSZX550
00867           PERFORM P1200H-RPT               THRU P1200H-EXIT          CL*33
00868           MOVE +20                         TO SORT-SEQ1              CL*33
00869           MOVE X140-QUARTER                TO SORT-SEQ2              CL*56
00870 *            STRING                                                  CL*56
00871 *              X140-QUARTER '0' DELIMITED BY SIZE                    CL*56
00872 *                INTO SORT-SEQ2                                      CL*56
00873 *            END-STRING                                              CL*56
00874 *         END-IF                                                     CL*35
00875           MOVE X140-REC                    TO SORT-DATA              CL*36
00876                                                                   DTSZX550
00877         WHEN WEB-IMP-TYPE-WAGE-88                                 DTSZX550
00878           PERFORM P1200I-WAGE              THRU P1200I-EXIT       DTSZX550
00879           MOVE +21                         TO SORT-SEQ1              CL*61
00880           MOVE X144-QUARTER                TO SORT-SEQ2              CL*61
00881 *         STRING                                                     CL*61
00882 *           X140-QUARTER '1'                                         CL*61
00883 *             DELIMITED BY SIZE                                      CL*61
00884 *             INTO                                                   CL*61
00885 *           SORT-SEQ2                                                CL*61
00886 *         END-STRING                                                 CL*61
00887           MOVE X144-REC                    TO SORT-DATA              CL*36
00888                                                                   DTSZX550
00889                                                                      CL*85
00890         WHEN WEB-IMP-TYPE-AWAGE-88                                   CL*85
00891           PERFORM P1200X-AWAGE              THRU P1200X-EXIT         CL*86
00892           MOVE +21                         TO SORT-SEQ1              CL*85
00893           MOVE X144-QUARTER                TO SORT-SEQ2              CL*85
00894 *         STRING                                                     CL*85
00895 *           X140-QUARTER '1'                                         CL*85
00896 *             DELIMITED BY SIZE                                      CL*85
00897 *             INTO                                                   CL*85
00898 *           SORT-SEQ2                                                CL*85
00899 *         END-STRING                                                 CL*85
00900           MOVE X147-REC                    TO SORT-DATA              CL*85
00901                                                                      CL*85
00902 ************************************************************         CL*23
00903 * CHANGED SORT SEQ FOR PAYMENT RECORDS FROM 30 TO 19 DUE TO ESSP     CL*23
00904 * REPORTS X140 CANNOT BE PROCESSED WITHOUT A PAYMENT TRANSACTION     CL*23
00905 * UNLESS IT IS A 0 WAGE REPORT = REMIT AMOUNT = 0                    CL*23
00906 ************************************************************         CL*23
00907                                                                      CL*23
00908         WHEN WEB-IMP-TYPE-PAY-88                                  DTSZX550
00909           PERFORM P1200J-PAY               THRU P1200J-EXIT       DTSZX550
00910              MOVE +19                      TO SORT-SEQ1              CL*23
00911           MOVE X145-QTR                    TO SORT-SEQ2              CL*56
00912           MOVE X145-REC                    TO SORT-DATA           DTSZX550
00913 **        DISPLAY 'P2 PAY ' X145-REC                              DTSZX550
00914                                                                   DTSZX550
00915                                                                   DTSZX550
00916      END-EVALUATE.                                                DTSZX550
00917                                                                   DTSZX550
00918      RELEASE SORT-REC.                                            DTSZX550
00919                                                                   DTSZX550
00920  P1200-EXIT.                                                      DTSZX550
00921      EXIT.                                                        DTSZX550
00922                                                                   DTSZX550
00923  P1200H-RPT.                                                      DTSZX550
00924 *    DISPLAY '01200H-RPT '                                           CL**9
00925       INITIALIZE X140-REC.                                           CL*84
00926      MOVE WEB-IMP-REC           TO W140-REC.                         CL*82
00927                                                                   DTSZX550
00928      MOVE W140-REC-TYPE         TO X140-REC-TYPE.                    CL*73
00929 *    DISPLAY 'X140-REC-TYPE'  X140-REC-TYPE                          CL**9
00930                                                                   DTSZX550
00931      MOVE W140-EMP-NO           TO X140-EMP-NO.                      CL*73
00932      DISPLAY 'X140-EMP-NO  '  X140-EMP-NO                            CL*62
00933                                                                   DTSZX550
00934      MOVE W140-QUARTER-YR       TO X140-QUARTER(1:04).               CL*73
00935      MOVE '/'                   TO X140-QUARTER(5:01).            DTSZX550
00936      MOVE W140-QUARTER-Q        TO X140-QUARTER(6:01).               CL*76
00937      DISPLAY 'X140 QTR' X140-QUARTER.                                CL*56
00938                                                                   DTSZX550
00939      MOVE '00'                  TO X140-SOURCE.                   DTSZX550
00940 **   DISPLAY 'X140-EMP-NO  '  X140-EMP-NO                         DTSZX550
00941                                                                   DTSZX550
00942      IF W140-REPORT-TYPE = ZERO                                      CL*73
00943         MOVE 'OR' TO X140-REPORT-TYPE                             DTSZX550
00944      ELSE                                                         DTSZX550
00945         MOVE 'EA' TO X140-REPORT-TYPE                             DTSZX550
00946      END-IF.                                                      DTSZX550
00947                                                                      CL*90
00948      IF W140-AMEND-TYPE > ZERO                                       CL*90
00949         MOVE 'EA' TO X140-REPORT-TYPE                                CL*91
00950      END-IF.                                                         CL*90
00951                                                                   DTSZX550
00952      MOVE W140-WRKR-CNT-TOTAL   TO X140-WRKR-CNT-TOTAL.              CL*74
00953 *    DISPLAY 'L205-TEXT (6) (2:07) ' L205-TEXT (6) (2:07)            CL*53
00954                                                                   DTSZX550
00955      MOVE ZEROS                 TO X140-PSEUDO-BATCH-NO.          DTSZX550
00956 **   DISPLAY 'X140-PSEUDO-BATCH-NO ' X140-PSEUDO-BATCH-NO         DTSZX550
00957                                                                   DTSZX550
00958      MOVE ZEROS                 TO X140-PSEUDO-ITEM-NO.           DTSZX550
00959 **   DISPLAY 'X140-PSEUDO-ITEM-NO ' X140-PSEUDO-ITEM-NO           DTSZX550
00960                                                                   DTSZX550
00961 *     MOVE L205-INTEGER (8)      TO W-INTEGER.                       CL*66
00962 *     MOVE L205-FRACTION (8)     TO W-FRACTION.                      CL*66
00963 *     COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                     CL*66
00964 *     MOVE L205-TYPE-NUMBER-88  (8)      Z-INT-X                     CL*74
00965 *     MOVE Z-INT-X               TO AMT-DISP1.                       CL*74
00966 *    DISPLAY 'ZINTX          ' AMT-DISP1                             CL*74
00967 *     MOVE Z-INT-9               TO AMT-DISP1.                       CL*74
00968 *    DISPLAY 'ZINT9          ' AMT-DISP1                             CL*74
00969 *     MOVE Z-INT-X               TO X140-TAX-WAGES.                  CL*74
00970 *    DISPLAY 'X140-TAX-WAGES ' X140-TAX-WAGES                        CL*74
00971                                                                      CL*74
00972                                                                      CL*78
00973                                                                      CL*78
00974       MOVE W140-TAX-WAGES        TO X140-TAX-WAGES                   CL*80
00975       MOVE X140-TAX-WAGES        TO W-AMT-DISP1.                     CL*80
00976       DISPLAY 'TAX-WAGES      ' W-AMT-DISP1                          CL*80
00977                                                                      CL*78
00978 *     MOVE L205-INTEGER (9)      TO W-INTEGER.                       CL*66
00979 *     MOVE L205-FRACTION (9)     TO W-FRACTION.                      CL*66
00980 *     COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                     CL*66
00981 *     MOVE L205-TYPE-NUMBER-88  (9)      TO X140-TOTAL-WAGES         CL*74
00982 *     MOVE W-NUMBER              TO X140-TOTAL-WAGES.                CL*66
00983 *    DISPLAY 'X140-TOTAL-WAGES ' X140-TOTAL-WAGES                    CL*80
00984                                                                   DTSZX550
00985                                                                      CL*80
00986       MOVE W140-TOTAL-WAGES        TO X140-TOTAL-WAGES               CL*80
00987       MOVE X140-TOTAL-WAGES        TO W-AMT-DISP1.                   CL*80
00988       DISPLAY 'TOTAL-WAGES      ' W-AMT-DISP1                        CL*80
00989                                                                      CL*80
00990       MOVE ZERO                 TO X140-CONFIRMATION.             DTSZX550
00991                                                                   DTSZX550
00992       MOVE W140-RCVD-DATE       TO X140-RCVD-DATE.                   CL*74
00993 *    DISPLAY 'RECV DATE   '  X140-RCVD-DATE.                         CL**9
00994                                                                   DTSZX550
00995 *     MOVE L205-TEXT (12) (2:07) TO X140-WRKR-CNT-1ST-MNTH.          CL*74
00996       MOVE   W140-WRKR-CNT-1ST-MNTH  TO X140-WRKR-CNT-1ST-MNTH       CL*74
00997 *    DISPLAY 'X140-WRKR-CNT-1ST-MNTH ' X140-WRKR-CNT-1ST-MNTH        CL*74
00998                                                                   DTSZX550
00999 *     MOVE L205-TEXT (13) (2:07) TO X140-WRKR-CNT-2ND-MNTH.          CL*74
01000       MOVE W140-WRKR-CNT-2ND-MNTH   TO X140-WRKR-CNT-2ND-MNTH        CL*74
01001 *    DISPLAY 'X140-WRKR-CNT-2ND-MNTH ' X140-WRKR-CNT-2ND-MNTH        CL*74
01002                                                                   DTSZX550
01003 *     MOVE L205-TEXT (14) (2:07) TO X140-WRKR-CNT-3RD-MNTH.          CL*74
01004       MOVE W140-WRKR-CNT-3RD-MNTH  TO  X140-WRKR-CNT-3RD-MNTH        CL*74
01005 *    DISPLAY 'X140-WRKR-CNT-3RD-MNTH ' X140-WRKR-CNT-3RD-MNTH        CL*74
01006                                                                   DTSZX550
01007                                                                      CL*25
01008                                                                      CL*82
01009       MOVE W140-REMITTANCE       TO X140-REMITTANCE                  CL*82
01010       MOVE X140-REMITTANCE       TO W-AMT-DISP1.                     CL*82
01011       DISPLAY 'REMITTANCE     ' W-AMT-DISP1                          CL*82
01012                                                                      CL*82
01013 *     MOVE L205-INTEGER (16)     TO W-INTEGER.                       CL*82
01014 *     MOVE L205-FRACTION (16)    TO W-FRACTION.                      CL*82
01015 *     COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                     CL*82
01016 *     MOVE W-NUMBER              TO X140-REMITTANCE.                 CL*82
01017 *    DISPLAY 'X140-REMITTANCE  ' X140-REMITTANCE.                    CL*30
01018                                                                      CL*25
01019       MOVE SPACES               TO X140-CHECK-SCAN-DT.            DTSZX550
01020 *    DISPLAY 'X140-CHECK SCANDATE ' X140-CHECK-SCAN-DT.              CL**9
01021                                                                   DTSZX550
01022       MOVE W140-AMEND-SEQ-NO    TO X140-CHECK-SEQ-NBR.               CL*93
01023      DISPLAY 'X140-CHECK-SEQ-NBR ' X140-CHECK-SEQ-NBR                CL*93
01024                                                                   DTSZX550
01025      MOVE 'N'                   TO X140-WAIVE-INTEREST.           DTSZX550
01026 *    DISPLAY 'X140-WAIVE-INTEREST ' X140-WAIVE-INTEREST              CL**9
01027                                                                   DTSZX550
01028      MOVE 'N'                   TO X140-WAIVE-PENALTY.            DTSZX550
01029 *    DISPLAY 'X140-WAIVE-PENALTY ' X140-WAIVE-PENALTY                CL**9
01030                                                                   DTSZX550
01031      MOVE '   '                 TO X140-RESP-ACTIVITY.            DTSZX550
01032 *    DISPLAY 'X140-RESP-ACTIVITY ' X140-RESP-ACTIVITY                CL**9
01033                                                                   DTSZX550
01034      MOVE 'WEBESSP '            TO X140-RESP-OPID.                DTSZX550
01035 *    DISPLAY 'X140-RESP-OPID ' X140-RESP-OPID                        CL**9
01036                                                                   DTSZX550
01037 *&                                                                DTSZX550
01038 *    DISPLAY 'BX420 P1200H: ' X140-REC.                              CL*30
01039  P1200H-EXIT.                                                     DTSZX550
01040      EXIT.                                                        DTSZX550
01041                                                                   DTSZX550
01042  P1200I-WAGE.                                                     DTSZX550
01043      MOVE WEB-IMP-REC           TO W144-REC.                         CL*50
01044                                                                      CL*50
01045 *    DISPLAY 'WEB-REC-WORK: ' W144-REC.                              CL*55
01046      MOVE W144-REC-TYPE         TO X144-REC-TYPE.                    CL*50
01047                                                                   DTSZX550
01048      MOVE W144-EMP-NO           TO X144-EMP-NO.                      CL*50
01049                                                                   DTSZX550
01050                                                                   DTSZX550
01051      MOVE '/'                   TO W144-QUARTER-SLASH.               CL*50
01052      MOVE W144-QUARTER          TO X144-QUARTER.                     CL*50
01053                                                                   DTSZX550
01054      MOVE W144-SSN              TO X144-SSN.                         CL*50
01055                                                                   DTSZX550
01056      MOVE '5'                   TO X144-WAGE-STATUS.              DTSZX550
01057                                                                   DTSZX550
01058      MOVE W144-LAST-NAME        TO X144-LAST-NAME.                   CL*50
01059                                                                   DTSZX550
01060      MOVE W144-FIRST-NAME       TO X144-FIRST-NAME.                  CL*50
01061                                                                   DTSZX550
01062      MOVE W144-MID-INIT         TO X144-MID-INIT.                    CL*50
01063                                                                   DTSZX550
01064      MOVE W144-EARNINGS         TO X144-EARNINGS.                    CL*50
01065                                                                   DTSZX550
01066 *    DISPLAY 'W144REC: ' X144-REC.                                   CL*55
01067  P1200I-EXIT.                                                     DTSZX550
01068      EXIT.                                                        DTSZX550
01069                                                                   DTSZX550
01070  P1200J-PAY.                                                      DTSZX550
01071      MOVE L205-TEXT (1) (1:03)  TO X145-REC-TYPE.                 DTSZX550
01072                                                                   DTSZX550
01073      MOVE L205-TEXT (2) (1:06)  TO X145-EMP-NO.                   DTSZX550
01074                                                                   DTSZX550
01075      MOVE '0'                   TO X145-SOURCE.                   DTSZX550
01076                                                                   DTSZX550
01077      MOVE L205-TEXT (3) (1:06)  TO X145-QTR.                      DTSZX550
01078      DISPLAY 'X145 QTR ' X145-QTR.                                   CL*56
01079                                                                   DTSZX550
01080      MOVE L205-TEXT (8) (1:02)  TO X145-PAY-TYPE.                 DTSZX550
01081 *    DISPLAY 'X145 PAY TYPE ' X145-PAY-TYPE.                         CL**9
01082                                                                   DTSZX550
01083      MOVE L205-INTEGER (9)      TO W-INTEGER.                     DTSZX550
01084      MOVE L205-FRACTION (9)     TO W-FRACTION.                    DTSZX550
01085      COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                   DTSZX550
01086      MOVE W-NUMBER              TO X145-REMITTANCE.               DTSZX550
01087 *    DISPLAY 'X145 PAY AMT  ' X145-REMITTANCE.                       CL**9
01088                                                                   DTSZX550
01089      MOVE L205-TEXT (10) (1:10) TO X145-RCVD-DATE.                DTSZX550
01090 *    DISPLAY 'X145 PAY DATE ' X145-RCVD-DATE.                        CL**9
01091                                                                   DTSZX550
01092      MOVE L205-TEXT (12)        TO W-TRACE-B.                     DTSZX550
01093      MOVE W-TRACE-9             TO X145-TRACE-NO.                 DTSZX550
01094 *    DISPLAY 'X145 PAY NO   ' X145-TRACE-NO.                         CL**9
01095                                                                   DTSZX550
01096                                                                   DTSZX550
01097      MOVE ZEROS                 TO X145-PSEUDO-BATCH.             DTSZX550
01098                                                                   DTSZX550
01099      MOVE ZEROS                 TO X145-PSEUDO-ITEM.              DTSZX550
01100                                                                   DTSZX550
01101      MOVE SPACES                TO X145-APPLIC-ACCT.              DTSZX550
01102                                                                   DTSZX550
01103      MOVE SPACES                TO X145-CHECK-SCAN-DT.            DTSZX550
01104                                                                   DTSZX550
01105      MOVE ZEROS                 TO X145-CHECK-SEQ-NBR.            DTSZX550
01106                                                                   DTSZX550
01107      MOVE 'N'                   TO X145-WAIVE-INTEREST.           DTSZX550
01108                                                                   DTSZX550
01109      MOVE 'N'                   TO X145-WAIVE-PENALTY.            DTSZX550
01110                                                                   DTSZX550
01111      MOVE 'VOL'                 TO X145-RESP-ACTIVITY.            DTSZX550
01112                                                                   DTSZX550
01113      MOVE 'WEBESSP '            TO X145-RESP-OPID.                DTSZX550
01114                                                                   DTSZX550
01115  P1200J-EXIT.                                                     DTSZX550
01116      EXIT.                                                        DTSZX550
01117                                                                   DTSZX550
01118  P1200X-AWAGE.                                                       CL*86
01119      MOVE WEB-IMP-REC           TO W144-REC.                         CL*85
01120                                                                      CL*85
01121 *    DISPLAY 'WEB-REC-WORK: ' W144-REC.                              CL*85
01122      MOVE W144-REC-TYPE         TO X147-REC-TYPE.                    CL*85
01123                                                                      CL*85
01124      MOVE W144-EMP-NO           TO X147-EMP-NO.                      CL*85
01125                                                                      CL*85
01126                                                                      CL*85
01127      MOVE '/'                   TO W144-QUARTER-SLASH.               CL*87
01128      MOVE W144-QUARTER          TO X147-QUARTER.                     CL*85
01129                                                                      CL*85
01130      MOVE W144-SSN              TO X147-SSN.                         CL*85
01131                                                                      CL*85
01132      MOVE '5'                   TO X147-WAGE-STATUS.                 CL*85
01133                                                                      CL*85
01134      MOVE W144-LAST-NAME        TO X147-LAST-NAME.                   CL*85
01135                                                                      CL*85
01136      MOVE W144-FIRST-NAME       TO X147-FIRST-NAME.                  CL*85
01137                                                                      CL*85
01138      MOVE W144-MID-INIT         TO X147-MID-INIT.                    CL*85
01139                                                                      CL*85
01140      MOVE W144-EARNINGS         TO X147-EARNINGS.                    CL*85
01141                                                                      CL*85
01142 *    DISPLAY 'W144REC: ' X144-REC.                                   CL*85
01143  P1200X-EXIT.                                                        CL*86
01144      EXIT.                                                           CL*85
01145                                                                      CL*85
01146  P2000-POST-SORT.                                                 DTSZX550
01147      SET SORT-OK-88                      TO TRUE.                 DTSZX550
01148                                                                   DTSZX550
01149      DISPLAY 'P2000 BEG READING SORT-FILE  ' SORT-EMP-NO.            CL**7
01150      PERFORM P2100-PROCESS-SORT          THRU P2100-EXIT          DTSZX550
01151         UNTIL SORT-EOF-88.                                        DTSZX550
01152                                                                   DTSZX550
01153 *    SET LX42-TERMINATE-88           TO TRUE                         CL**9
01154 *    DISPLAY 'BX420 P2000 END READING SORT-FILE ' SORT-EMP-NO.       CL**9
01155      DISPLAY 'BX420 P2000 END READING SORT-FILE ' SORT-KEY '  '      CL**9
01156            SORT-DATA (1:14).                                         CL**7
01157  P2000-EXIT.                                                      DTSZX550
01158      EXIT.                                                        DTSZX550
01159                                                                   DTSZX550
01160  P2100-PROCESS-SORT.                                              DTSZX550
01161 *    DISPLAY 'BX420 P2100 FIRST SORT-EMP-NO  ' SORT-EMP-NO           CL*38
01162 *         ' '  SORT-DATA (1:14).                                     CL*38
01163      RETURN SORT-FILE                                             DTSZX550
01164         AT END                                                    DTSZX550
01165            SET SORT-EOF-88                 TO TRUE                DTSZX550
01166            GO TO P2100-EXIT                                       DTSZX550
01167      END-RETURN.                                                  DTSZX550
01168                                                                   DTSZX550
01169      DISPLAY 'BX420 P2100 SORT-REC     ' SORT-KEY '  '               CL*21
01170            SORT-DATA (1:14).                                         CL*21
01171                                                                   DTSZX550
01172      MOVE SORT-DATA                   TO LX42-DATA-AREA.          DTSZX550
01173      IF SORT-EMP-NO = 999999                                      DTSZX550
01174         IF SORT-BATCH = W-PSEUDO-BATCH-NO                         DTSZX550
01175 *          DISPLAY 'BX420 NEW BATCH 999999 PROCESS'                  CL*53
01176            SET LX42-PROCESS-88           TO TRUE                  DTSZX550
01177            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSZX550
01178         ELSE                                                      DTSZX550
01179            MOVE SORT-BATCH               TO W-PSEUDO-BATCH-NO     DTSZX550
01180 *          DISPLAY 'BX420 NEW BATCH  '                               CL*53
01181 **         PERFORM P2120-NEW-BATCH       THRU P2120-EXIT          DTSZX550
01182            SET LX42-PROCESS-88           TO TRUE                  DTSZX550
01183            SET LX42-ERROR-NO-88          TO TRUE                  DTSZX550
01184            SET LX42-RPT-ERROR-NO-88      TO TRUE                     CL*29
01185 **         DISPLAY 'BX420 NEW BATCH 888888 PROCESS'                  CL*13
01186            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSZX550
01187         END-IF                                                    DTSZX550
01188      ELSE                                                            CL*19
01189         IF SORT-EMP-NO = W-EMP-NO AND SORT-PAY-QTR = W-PAY-QTR       CL*57
01190 *          DISPLAY 'BX420 SORT-EMP-NO = W-EMP-NO '                   CL*53
01191            SET LX42-PROCESS-88           TO TRUE                  DTSZX550
01192            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSZX550
01193         ELSE                                                      DTSZX550
01194 *          DISPLAY 'BX420 SORT-EMP-NO < W-EMP-NO '                   CL*53
01195            MOVE SORT-EMP-NO              TO W-EMP-NO              DTSZX550
01196            MOVE SORT-PAY-QTR             TO W-PAY-QTR                CL*57
01197            PERFORM P2110-NEW-EMP         THRU P2110-EXIT          DTSZX550
01198            SET LX42-PROCESS-88           TO TRUE                  DTSZX550
01199            SET LX42-ERROR-NO-88          TO TRUE                  DTSZX550
01200            SET LX42-RPT-ERROR-NO-88      TO TRUE                     CL*29
01201            PERFORM P3000-PROCESS         THRU P3000-EXIT          DTSZX550
01202         END-IF                                                    DTSZX550
01203      END-IF.                                                      DTSZX550
01204                                                                   DTSZX550
01205  P2100-EXIT.                                                      DTSZX550
01206      EXIT.                                                        DTSZX550
01207                                                                   DTSZX550
01208  P2110-NEW-EMP.                                                   DTSZX550
01209                                                                   DTSZX550
01210      DISPLAY 'BX420 >>>>>>>> NEW-EMP ' LX42-DATA-AREA (1:20).        CL*11
01211                                                                   DTSZX550
01212      SET LX42-NEW-EMPLOYER-88          TO TRUE.                   DTSZX550
01213      MOVE ZERO                         TO LX42-LAST-DETERM-EMP.   DTSZX550
01214                                                                   DTSZX550
01215 *    PERFORM S421-REGISTRATION         THRU S421-EXIT.               CL*63
01216      PERFORM S422-REPORT-PAYMT         THRU S422-EXIT.               CL*23
01217 *    PERFORM S423-REPORT-WAGE          THRU S423-EXIT.               CL*59
01218 *    PERFORM S424-PROFILE              THRU S424-EXIT.               CL*63
01219                                                                   DTSZX550
01220  P2110-EXIT.                                                      DTSZX550
01221      EXIT.                                                        DTSZX550
01222                                                                   DTSZX550
01223  P2120-NEW-BATCH.                                                 DTSZX550
01224 *&                                                                DTSZX550
01225 *    DISPLAY 'BX420 P2120 NEW BATCH ' LX42-PSEUDO-BATCH-NO        DTSZX550
01226 *       '  ' LX42-DATA-AREA (1:20).                               DTSZX550
01227 *&                                                                DTSZX550
01228      SET LX42-NEW-BATCH-88             TO TRUE.                   DTSZX550
01229                                                                   DTSZX550
01230 *    PERFORM S426-HEADER               THRU S426-EXIT.            DTSZX550
01231 *    IF LX42-BATCH-ERR-YES-88                                     DTSZX550
01232 *       SET LX42-BATCH-ERROR-88        TO TRUE                    DTSZX550
01233 *    END-IF.                                                      DTSZX550
01234      PERFORM S422-REPORT-PAYMT         THRU S422-EXIT.               CL*23
01235 *    PERFORM S423-PAYMENT              THRU S423-EXIT.               CL*23
01236                                                                   DTSZX550
01237      MOVE W-PSEUDO-BATCH-NO            TO LX42-PSEUDO-BATCH-NO.   DTSZX550
01238      MOVE ZERO                         TO LX42-RPT-CNT            DTSZX550
01239                                           LX42-RPT-REMIT-AMT      DTSZX550
01240                                           LX42-PAY-CNT            DTSZX550
01241                                           LX42-PAY-REMIT-AMT.     DTSZX550
01242      SET LX42-BATCH-ERR-NO-88          TO TRUE.                   DTSZX550
01243                                                                   DTSZX550
01244  P2120-EXIT.                                                      DTSZX550
01245      EXIT.                                                        DTSZX550
01246                                                                   DTSZX550
01247  P3000-PROCESS.                                                   DTSZX550
01248 *&                                                                DTSZX550
01249 *&                                                                DTSZX550
01250 ****************************************************************  DTSZX550
01251 *  LX42-LAST-DETERM-EMP IS SET WHEN PROCESSING A DETERMINATION.   DTSZX550
01252 *  THE EMPLOYER ACCOUNT NUMBER IS PASSED THROUGH THIS FIELD       DTSZX550
01253 *  TO DTSBX422, WHICH PROCESSES REPORTS.  IT IS USED              DTSZX550
01254 *  TO DETERMINE WHEN TO WAIVE P & I. THE WAIVER IS AUTOMATIC      DTSZX550
01255 *  FOR REPORTS WITHIN THE LAST 5 QUARTERS SUBMITTED ALONG         DTSZX550
01256 *  WITH A WEB REGISTRATION.                                       DTSZX550
01257 ****************************************************************  DTSZX550
01258                                                                   DTSZX550
01259      EVALUATE TRUE                                                DTSZX550
01260                                                                   DTSZX550
01261         WHEN LX42-REC-TYPE-RPT-88                                 DTSZX550
01262            ADD +1  TO W-140-IMP-CNT                                  CL*38
01263            PERFORM S422-REPORT-PAYMT      THRU S422-EXIT             CL*23
01264                                                                      CL**9
01265         WHEN LX42-REC-TYPE-WAGE-88                                DTSZX550
01266            ADD +1  TO W-144-IMP-CNT                                  CL*38
01267            PERFORM S422-REPORT-PAYMT      THRU S422-EXIT             CL*59
01268                                                                   DTSZX550
01269         WHEN LX42-REC-TYPE-AWAGE-88                                  CL*85
01270            ADD +1  TO W-147-IMP-CNT                                  CL*85
01271            PERFORM S422-REPORT-PAYMT      THRU S422-EXIT             CL*85
01272                                                                      CL*85
01273         WHEN LX42-REC-TYPE-PAY-88                                 DTSZX550
01274            ADD +1  TO W-145-IMP-CNT                                  CL*38
01275            PERFORM S422-REPORT-PAYMT      THRU S422-EXIT             CL*23
01276                                                                   DTSZX550
01277      END-EVALUATE.                                                DTSZX550
01278                                                                   DTSZX550
01279  P3000-EXIT.                                                      DTSZX550
01280      EXIT.                                                        DTSZX550
01281                                                                   DTSZX550
01282  P3100-BATCH-NO.                                                  DTSZX550
01283 *&   IF W-PSEUDO-ITEM-NO < 999                                    DTSZX550
01284 *       ADD 1                       TO W-PSEUDO-ITEM-NO           DTSZX550
01285 *    ELSE                                                         DTSZX550
01286 *       ADD 1                       TO W-PSEUDO-BATCH-NO          DTSZX550
01287 *       MOVE 1                      TO W-PSEUDO-ITEM-NO           DTSZX550
01288 *    END-IF.                                                      DTSZX550
01289 *                                                                 DTSZX550
01290 *    MOVE W-PSEUDO-BATCH-NO         TO LX42-PSEUDO-BATCH-NO.      DTSZX550
01291 *&   MOVE W-PSEUDO-ITEM-NO          TO LX42-PSEUDO-ITEM-NO.       DTSZX550
01292                                                                   DTSZX550
01293  P3100-EXIT.                                                      DTSZX550
01294      EXIT.                                                        DTSZX550
01295                                                                   DTSZX550
01296                                                                   DTSZX550
01297  T0000-TERMINATE.                                                 DTSZX550
01298      PERFORM T1000-FINAL-CALLS        THRU T1000-EXIT.            DTSZX550
01299                                                                   DTSZX550
01300 ***  PERFORM T1100-UPDATE-CURR-BATCH  THRU T1100-EXIT.            DTSZX550
01301                                                                   DTSZX550
01302      DISPLAY ' '.                                                 DTSZX550
01303                                                                   DTSZX550
01304      DISPLAY '*** DTSBX450 TERMINATION AMENDED RPTS *'.              CL*64
01305                                                                   DTSZX550
01306      DISPLAY '***************************************'.              CL*30
01307      DISPLAY '***  WEB/ESSP IMPORT DRIVER COUNTS  ***'.              CL*38
01308      DISPLAY '***                                 ***'.              CL*30
01309      DISPLAY 'TOTAL INPUT RECORDS READ:   ' W-WEB-IMP-CNT.           CL*38
01310      DISPLAY '      X140  RECORDS READ:   ' W-140-IMP-CNT.           CL*38
01311      DISPLAY '      X144  RECORDS READ:   ' W-144-IMP-CNT.           CL*38
01312      DISPLAY '      X145  RECORDS READ:   ' W-145-IMP-CNT.           CL*38
01313      DISPLAY '      X147  RECORDS READ:   ' W-147-IMP-CNT.           CL*63
01314      DISPLAY ' '                                                     CL*38
01315      DISPLAY '***                                 ***'.              CL*30
01316      DISPLAY '*********** END OF RUN ****************'.              CL*38
01317                                                                   DTSZX550
01318      CLOSE                    WEB-IMP-FILE.                       DTSZX550
01319 ***                           CURR-BATCH-NO.                      DTSZX550
01320 ***                           TEMP-BTC-FILE.                      DTSZX550
01321                                                                   DTSZX550
01322      PERFORM S910-CLOSE       THRU S910-EXIT.                     DTSZX550
01323      PERFORM S921-CLOSE       THRU S921-EXIT.                     DTSZX550
01324      PERFORM S923-CLOSE       THRU S923-EXIT.                     DTSZX550
01325      PERFORM S931-CLOSE       THRU S931-EXIT.                     DTSZX550
01326 *    PERFORM S927C-CLOSE      THRU S927C-EXIT.                       CL*44
01327                                                                   DTSZX550
01328  T0000-EXIT.                                                      DTSZX550
01329      EXIT.                                                        DTSZX550
01330                                                                   DTSZX550
01331  T1000-FINAL-CALLS.                                               DTSZX550
01332 *&                                                                DTSZX550
01333      DISPLAY 'BX420 T1000 ' LX42-DATA-AREA (1:20).                   CL**7
01334 *&                                                                DTSZX550
01335      SET LX42-TERMINATE-88             TO TRUE.                   DTSZX550
01336      MOVE LOW-VALUES                   TO LX42-DATA-AREA.         DTSZX550
01337                                                                   DTSZX550
01338      PERFORM S422-REPORT-PAYMT         THRU S422-EXIT.               CL*23
01339 *    PERFORM S423-REPORT-WAGE          THRU S423-EXIT.               CL*59
01340                                                                   DTSZX550
01341  T1000-EXIT.                                                      DTSZX550
01342      EXIT.                                                        DTSZX550
01343                                                                   DTSZX550
01344                                                                   DTSZX550
01345  S001-FROM-FED-8.                                                 DTSZX550
01346      SET L001-FROM-FED-8 TO TRUE.                                 DTSZX550
01347      GO TO S001-DATE.                                             DTSZX550
01348                                                                   DTSZX550
01349  S001-FROM-CAL-8.                                                 DTSZX550
01350      SET L001-FROM-CAL-8 TO TRUE.                                 DTSZX550
01351      GO TO S001-DATE.                                             DTSZX550
01352                                                                   DTSZX550
01353  S001-FROM-ABS-DAY.                                               DTSZX550
01354      SET L001-FROM-ABS-DAY TO TRUE.                               DTSZX550
01355      GO TO S001-DATE.                                             DTSZX550
01356                                                                   DTSZX550
01357  S001-DATE.                                                       DTSZX550
01358      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSZX550
01359  S001-EXIT.                                                       DTSZX550
01360      EXIT.                                                        DTSZX550
01361                                                                   DTSZX550
01362  S003-AGENCY-DAY.                                                 DTSZX550
01363      SET L003-AGENCY-DAY TO TRUE.                                 DTSZX550
01364      GO TO S003-WORK-DAY.                                         DTSZX550
01365                                                                   DTSZX550
01366  S003-WORK-DAY.                                                   DTSZX550
01367      CALL 'DTSBU003' USING L003-LINK-AREA.                        DTSZX550
01368  S003-EXIT.                                                       DTSZX550
01369      EXIT.                                                        DTSZX550
01370                                                                   DTSZX550
01371  S004-FROM-5.                                                     DTSZX550
01372      SET L004-FROM-5        TO TRUE.                              DTSZX550
01373      GO TO S004-YRQ.                                              DTSZX550
01374                                                                   DTSZX550
01375  S004-FROM-DATE.                                                  DTSZX550
01376      SET L004-FROM-DATE     TO TRUE.                              DTSZX550
01377      GO TO S004-YRQ.                                              DTSZX550
01378                                                                   DTSZX550
01379  S004-FROM-ABS.                                                   DTSZX550
01380      SET L004-FROM-ABS      TO TRUE.                              DTSZX550
01381      GO TO S004-YRQ.                                              DTSZX550
01382                                                                   DTSZX550
01383  S004-YRQ.                                                        DTSZX550
01384      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSZX550
01385                                                                   DTSZX550
01386  S004-EXIT.                                                       DTSZX550
01387      EXIT.                                                        DTSZX550
01388                                                                   DTSZX550
01389  S005-FROM-SYS.                                                   DTSZX550
01390      SET L005-FROM-SYS       TO TRUE.                             DTSZX550
01391      GO TO S005-ABSTIME.                                          DTSZX550
01392                                                                   DTSZX550
01393  S005-ABSTIME.                                                    DTSZX550
01394      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSZX550
01395  S005-EXIT.                                                       DTSZX550
01396      EXIT.                                                        DTSZX550
01397                                                                   DTSZX550
01398                                                                   DTSZX550
01399  S422-REPORT-PAYMT.                                                  CL*23
01400 *    DISPLAY 'CALL S422-REPORTS- WAGES AND PAYMENTS'.                CL*88
01401      CALL 'DTSZX551' USING LX42-LINK-AREA.                           CL*92
01402  S422-EXIT.                                                       DTSZX550
01403      EXIT.                                                        DTSZX550
01404                                                                   DTSZX550
01405 *S423-REPORT-WAGE.                                                   CL*59
01406 *    DISPLAY 'CALL S423-RPT-WAGES'.                                  CL*59
01407 *    CALL 'DTSBX423' USING LX42-LINK-AREA.                           CL*59
01408 *S423-EXIT.                                                          CL*59
01409 *    EXIT.                                                           CL*59
01410                                                                   DTSZX550
01411                                                                   DTSZX550
01412  S426-HEADER.                                                     DTSZX550
01413      CALL 'DTSBX426' USING LX42-LINK-AREA.                        DTSZX550
01414  S426-EXIT.                                                       DTSZX550
01415      EXIT.                                                        DTSZX550
01416                                                                   DTSZX550
01417                                                                   DTSZX550
01418  S910-OPEN-READ.                                                  DTSZX550
01419      SET L910-OPEN-READ-88 TO TRUE.                               DTSZX550
01420      GO TO S910-MSTR-IO.                                          DTSZX550
01421                                                                   DTSZX550
01422  S910-OPEN-UPDATE.                                                DTSZX550
01423      SET L910-OPEN-UPDATE-88 TO TRUE.                             DTSZX550
01424      GO TO S910-MSTR-IO.                                          DTSZX550
01425                                                                   DTSZX550
01426  S910-READ.                                                       DTSZX550
01427      SET L910-READ-88 TO TRUE.                                    DTSZX550
01428      GO TO S910-MSTR-IO.                                          DTSZX550
01429                                                                   DTSZX550
01430  S910-START-BROWSE.                                               DTSZX550
01431      SET L910-START-BROWSE-88 TO TRUE.                            DTSZX550
01432      GO TO S910-MSTR-IO.                                          DTSZX550
01433                                                                   DTSZX550
01434  S910-READ-NEXT.                                                  DTSZX550
01435      SET L910-READ-NEXT-88 TO TRUE.                               DTSZX550
01436      GO TO S910-MSTR-IO.                                          DTSZX550
01437                                                                   DTSZX550
01438  S910-CLOSE.                                                      DTSZX550
01439      SET L910-CLOSE-88     TO TRUE.                               DTSZX550
01440      GO TO S910-MSTR-IO.                                          DTSZX550
01441                                                                   DTSZX550
01442  S910-MSTR-IO.                                                    DTSZX550
01443      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSZX550
01444                            MSKL-REC.                              DTSZX550
01445  S910-EXIT.                                                       DTSZX550
01446      EXIT.                                                        DTSZX550
01447                                                                   DTSZX550
01448  S921-OPEN-READ.                                                  DTSZX550
01449      SET L921-OPEN-READ-88 TO TRUE.                               DTSZX550
01450      GO TO S921-AIX-IO.                                           DTSZX550
01451                                                                   DTSZX550
01452  S921-READ.                                                       DTSZX550
01453      SET L921-READ-88 TO TRUE.                                    DTSZX550
01454      GO TO S921-AIX-IO.                                           DTSZX550
01455                                                                   DTSZX550
01456  S921-START-BROWSE.                                               DTSZX550
01457      SET L921-START-BROWSE-88 TO TRUE.                            DTSZX550
01458      GO TO S921-AIX-IO.                                           DTSZX550
01459                                                                   DTSZX550
01460  S921-READ-NEXT.                                                  DTSZX550
01461      SET L921-READ-NEXT-88 TO TRUE.                               DTSZX550
01462      GO TO S921-AIX-IO.                                           DTSZX550
01463                                                                   DTSZX550
01464  S921-CLOSE.                                                      DTSZX550
01465      SET L921-CLOSE-88 TO TRUE.                                   DTSZX550
01466      GO TO S921-AIX-IO.                                           DTSZX550
01467                                                                   DTSZX550
01468  S921-AIX-IO.                                                     DTSZX550
01469      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSZX550
01470                            ISKL-REC.                              DTSZX550
01471  S921-EXIT.                                                       DTSZX550
01472      EXIT.                                                        DTSZX550
01473                                                                   DTSZX550
01474  S923-OPEN-UPDATE.                                                DTSZX550
01475      SET L923-OPEN-UPDATE-88 TO TRUE.                             DTSZX550
01476      GO TO S923-ATC-CALL.                                         DTSZX550
01477                                                                   DTSZX550
01478  S923-OPEN-READ.                                                  DTSZX550
01479      SET L923-OPEN-READ-88 TO TRUE.                               DTSZX550
01480      GO TO S923-ATC-CALL.                                         DTSZX550
01481                                                                   DTSZX550
01482  S923-WRITE.                                                      DTSZX550
01483      SET L923-WRITE-88 TO TRUE.                                   DTSZX550
01484      GO TO S923-ATC-CALL.                                         DTSZX550
01485                                                                   DTSZX550
01486  S923-CLOSE.                                                      DTSZX550
01487      SET L923-CLOSE-88 TO TRUE.                                   DTSZX550
01488      GO TO S923-ATC-CALL.                                         DTSZX550
01489                                                                   DTSZX550
01490  S923-ATC-CALL.                                                   DTSZX550
01491      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSZX550
01492                            ASKL-REC.                              DTSZX550
01493  S923-EXIT.                                                       DTSZX550
01494      EXIT.                                                        DTSZX550
01495                                                                   DTSZX550
01496  S927A-OPEN.                                                      DTSZX550
01497      SET L927-OPEN-UPDATE-88  TO TRUE.                            DTSZX550
01498      PERFORM S927Z-IO   THRU S927Z-EXIT.                          DTSZX550
01499                                                                   DTSZX550
01500  S927A-EXIT.                                                      DTSZX550
01501      EXIT.                                                        DTSZX550
01502                                                                   DTSZX550
01503  S927C-CLOSE.                                                     DTSZX550
01504      SET L927-CLOSE-88        TO TRUE.                            DTSZX550
01505      PERFORM S927Z-IO   THRU S927Z-EXIT.                          DTSZX550
01506                                                                   DTSZX550
01507  S927C-EXIT.                                                      DTSZX550
01508      EXIT.                                                        DTSZX550
01509                                                                   DTSZX550
01510  S927Z-IO.                                                        DTSZX550
01511      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSZX550
01512                            TSKL-REC.                              DTSZX550
01513  S927Z-EXIT.                                                      DTSZX550
01514      EXIT.                                                        DTSZX550
01515                                                                   DTSZX550
01516  S931-OPEN-READ.                                                  DTSZX550
01517      SET L931-OPEN-READ-88 TO TRUE.                               DTSZX550
01518      GO TO S931-REF-IO.                                           DTSZX550
01519                                                                   DTSZX550
01520  S931-CLOSE.                                                      DTSZX550
01521      SET L931-CLOSE-88 TO TRUE.                                   DTSZX550
01522      GO TO S931-REF-IO.                                           DTSZX550
01523                                                                   DTSZX550
01524  S931-REF-IO.                                                     DTSZX550
01525      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSZX550
01526                            FSKL-REC.                              DTSZX550
01527  S931-EXIT.                                                       DTSZX550
01528      EXIT.                                                        DTSZX550
01529                                                                   DTSZX550
01530  S1000-READ-WEB-IMP.                                              DTSZX550
01531      READ WEB-IMP-FILE.                                           DTSZX550
01532      IF WEB-IMP-STATUS-OK-88                                      DTSZX550
01533         ADD +1 TO W-WEB-IMP-CNT                                   DTSZX550
01534      ELSE                                                         DTSZX550
01535         IF WEB-IMP-STATUS-EOF-88                                  DTSZX550
01536            DISPLAY 'ENE OF WEB-IMP-FILE ' WEB-IMP-STATUS             CL**3
01537         ELSE                                                      DTSZX550
01538            DISPLAY 'CANNOT READ WEB-IMP-FILE ' WEB-IMP-STATUS     DTSZX550
01539            SET W-ERROR-YES-88 TO TRUE                             DTSZX550
01540         END-IF                                                    DTSZX550
01541      END-IF.                                                      DTSZX550
01542                                                                   DTSZX550
01543 *    DISPLAY 'S1000-READ WEB ' WEB-IMP-TYPE ' ' WEB-IMP-EMP-NO.      CL*12
01544                                                                   DTSZX550
01545  S1000-EXIT.                                                      DTSZX550
01546      EXIT.                                                        DTSZX550
01547                                                                   DTSZX550
01548  S999-ABEND.                                                      DTSZX550
01549      CALL 'DTSBU999' USING W-ABEND-CD.                            DTSZX550
01550  S999-EXIT.                                                       DTSZX550
01551      EXIT.                                                        DTSZX550
01552                                                                   DTSZX550
