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