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