giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
00bf12a4f5921ba658a4547dbf4a29d5dba41f97
DUTAS/Batch/DTSBX417.cob

2147 lines
170 KiB
COBOL
Raw Blame History

00001 IDENTIFICATION DIVISION. 09/06/25
00002 PROGRAM-ID. DTSBX417. DTSBX417
00003 AUTHOR. NGC. LV078
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 '078DTSBX417 09/06/25'. 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 CL*78
01210 * PERFORM P1200G-REL THRU P1200G-EXIT CL*78
01211 * MOVE +5 TO SORT-SEQ1 CL*78
01212 * MOVE X130-REC TO SORT-DATA CL*78
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. CL*78
01462 *P1200G-EXIT. CL*78
01463 * EXIT. CL*78
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
Reference in New Issue View Git Blame Copy Permalink