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