giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
Dutas-Dev-Update
DUTAS/Batch/DTSBX420.cob

2141 lines
169 KiB
COBOL
Raw Permalink Blame History

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