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