giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f8b9dd0f5612ad38b5ea474fd5af67b0e43194ce
DUTAS/Batch/DTSBX420.cob
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

2039 lines
161 KiB
COBOL
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink