1649 lines
130 KiB
COBOL
1649 lines
130 KiB
COBOL
00001 IDENTIFICATION DIVISION. 12/08/23
|
|
00002 PROGRAM-ID. DTSBD710. DTSBD710
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV010
|
|
00004 DATE-WRITTEN. APRIL 1999. DTSBD710
|
|
00005 DATE-COMPILED. DTSBD710
|
|
00006 SKIP3 DTSBD710
|
|
00007 ***** DTSBD710
|
|
00008 * DTSBD710
|
|
00009 * FUNCTION: INITIALIZE ANNUAL RATING CUTOFF RECORD DTSBD710
|
|
00010 * OCCURRENCES. DTSBD710
|
|
00011 * DTSBD710
|
|
00012 * DTSBD710
|
|
00013 * MODIFICATION LOG: DTSBD710
|
|
00014 * DTSBD710
|
|
00015 * 04/01/1999 WRITTEN FOR DC. DTSBD710
|
|
00016 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD710
|
|
00017 * DTSBD710
|
|
00018 * 12/22/1999 MODIFIED TO BYPASS BAD JOURNAL ENTRIES DTSBD710
|
|
00019 * REFERENCE: PROGRAMMER: GD DTSBD710
|
|
00020 * DTSBD710
|
|
00021 * 07/03/2002 MODIFIED TO READ BENEFIT CHARGE DISK FILE DTSBD710
|
|
00022 * AND TO HANDLE HOUSEHOLD EMPLOYERS FILING DTSBD710
|
|
00023 * ANNUALLY. DTSBD710
|
|
00024 * REFERENCE: PROGRAMMER: GD DTSBD710
|
|
00025 * DTSBD710
|
|
00026 * 12/12/2003 MODIFIED TO SELECT MJRN RECORDS BASED ON DTSBD710
|
|
00027 * RECEIVED DATE RATHER THAN PROCESSED DATE. DTSBD710
|
|
00028 * NEEDED TO ACCOMMODATE ANNUAL FILING. DTSBD710
|
|
00029 * REFERENCE: PROGRAMMER: GD DTSBD710
|
|
00030 * DTSBD710
|
|
00031 * 09/17/2008 MODIFIED TO SELECT ONLY ANNUAL FILING DTSBD710
|
|
00032 * WHEN RUNNING ANNUAL FILERS TAX RATE NOTICES. DTSBD710
|
|
00033 * PROGRAM WILL NOT DELETE ANY RATE RECORDS THAT DTSBD710
|
|
00034 * WAS CREATED BY THE EXPERIENCE RATINGS JOB DTSBD710
|
|
00035 * IT WILL CREATE A RATE RECORD FOR ALL ANNUAL DTSBD710
|
|
00036 * FILERS WHO DO NOT HAVE ONE. DTSBD710
|
|
00037 * REFERENCE: PROGRAMMER: ZL1 DTSBD710
|
|
00038 * DTSBD710
|
|
00039 * 07/07/2009 RESTORED CODE IN P0000 TO SELECT ONLY RATED DTSBD710
|
|
00040 * EMPLOYERS. THIS WAS ACCIDENTALLY LEFT OUT DTSBD710
|
|
00041 * DURING THE SEPTEMBER 2008 REWRITE. DTSBD710
|
|
00042 * REFERENCE: PROGRAMMER: GD DTSBD710
|
|
00043 * DTSBD710
|
|
00044 * 07/11/2019 MODIFIED TO LIST EARLIST LIAB DATE OF LAST CL**5
|
|
00045 * YEAR RATE. THIS WILL BE USED BY BD720 TO CORRECT CL**5
|
|
00046 * ELD DATE DURING THE RATE PROCESS. CL**5
|
|
00047 * REFERENCE: PROGRAMMER: ZL1 CL**5
|
|
00048 * CL**5
|
|
00049 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD710
|
|
00050 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD710
|
|
00051 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD710
|
|
00052 * DTSBD710
|
|
00053 * DTSBD710
|
|
00054 * DESCRIPTION: DTSBD710
|
|
00055 * DTSBD710
|
|
00056 * DTSBD710 PERFORMS THE FUNCTIONS DESCRIBED IN SECTION DTSBD710
|
|
00057 * 5.4.2 OF THE DC UI TAX REQUIREMENTS DOCUMENT. DTSBD710
|
|
00058 * DTSBD710
|
|
00059 * ADDITIONAL PROCESSING IS NEEDED FOR HOUSEHOLD EMPLOYERS DTSBD710
|
|
00060 * FILING ANNUALLY: DTSBD710
|
|
00061 * DTSBD710
|
|
00062 * AT THE TIME THE RATING PROCESS RUNS, HOUSEHOLD DTSBD710
|
|
00063 * EMPLOYERS FILING ANNUALLY WILL NOT HAVE DTSBD710
|
|
00064 * REPORTED THE FIRST QUARTER WAGES FOR THE YEAR DTSBD710
|
|
00065 * PRECEDING THE RATE YEAR. THE MISSING WAGES DTSBD710
|
|
00066 * NEED TO BE ESTIMATED FOR THESE EMPLOYERS. DTSBD710
|
|
00067 * FOR RATE YEAR 2004, WAGES FOR 2003/1 WILL NOT BE DTSBD710
|
|
00068 * REPORTED UNTIL APRIL 2004. DTSBD710
|
|
00069 * DTSBD710
|
|
00070 * THE FIRST QUARTER TAXABLE WAGE AMOUNT REPORTED DTSBD710
|
|
00071 * FOR THE PREVIOUS YEAR IS THE 'ESTIMATE' FOR THE DTSBD710
|
|
00072 * MISSING FIRST QUARTER. USE 2002/1 AS AN ESTIMATE DTSBD710
|
|
00073 * FOR THE WAGES NOT YET REPORTED FOR 2003/1. DTSBD710
|
|
00074 * DTSBD710
|
|
00075 * THE PROGRAM CALCULATES THE QUARTER USED FOR THE DTSBD710
|
|
00076 * ESTIMATE IN I4000. DTSBD710
|
|
00077 * DTSBD710
|
|
00078 * P1400, WHICH SETS THE WAGE AMOUNTS IN THE MRCT DTSBD710
|
|
00079 * RECORD, ALSO SAVES THE TAXABLE WAGES REPORTED DTSBD710
|
|
00080 * IN THE QUARTER USED FOR THE ESTIMATE, AND MOVES DTSBD710
|
|
00081 * THIS AMOUNT TO MRCT-QTR1-ESTIM-TAX-WAGE. DTSBD710
|
|
00082 * DTSBD710
|
|
00083 * THE PROGRAM ONLY STORES THE ESTIMATED WAGES FOR DTSBD710
|
|
00084 * HOUSEHOLD EMPLOYERS. THE FIELD IS SET TO ZERO DTSBD710
|
|
00085 * FOR ALL OTHER EMPLOYERS. DTSBD710
|
|
00086 * DTSBD710
|
|
00087 * ANY PROGRAM THAT USES MRCT WAGE DATA CAN DECIDE DTSBD710
|
|
00088 * WHETHER TO USE THE ESTIMATED WAGE AMOUNT OR NOT. DTSBD710
|
|
00089 * DTSBD710
|
|
00090 * DURING THE FINAL RUN THAT SENDS RATE NOTICES TO DTSBD710
|
|
00091 * ANNUAL FILERS, THE PROGRAM REBUILDS THE WAGE DATA DTSBD710
|
|
00092 * ON THE MRCT RECORD, SO ANY WAGES REPORTED FOR THE DTSBD710
|
|
00093 * MISSING QUARTER WILL NOW BE INCLUDED IN THE RATE DTSBD710
|
|
00094 * CALCULATION. THE PROGRAM WILL EXCLUDE WAGES FROM DTSBD710
|
|
00095 * REPORTS SUBMITTED AFTER THE ORIGINAL RATING RUN, DTSBD710
|
|
00096 * EXCEPT FOR THE MISSING FIRST QUARTER REPORT. DTSBD710
|
|
00097 * DTSBD710
|
|
00098 ***** DTSBD710
|
|
00099 SKIP3 DTSBD710
|
|
00100 ENVIRONMENT DIVISION. DTSBD710
|
|
00101 SKIP2 DTSBD710
|
|
00102 INPUT-OUTPUT SECTION. DTSBD710
|
|
00103 DTSBD710
|
|
00104 FILE-CONTROL. DTSBD710
|
|
00105 SELECT CHARGE-FILE ASSIGN TO DTSFCHG5 DTSBD710
|
|
00106 ORGANIZATION IS INDEXED DTSBD710
|
|
00107 ACCESS MODE IS DYNAMIC DTSBD710
|
|
00108 RECORD KEY IS CHG5-SORT-KEY-AREA DTSBD710
|
|
00109 FILE STATUS IS CHG5-STATUS. DTSBD710
|
|
00110 DTSBD710
|
|
00111 DATA DIVISION. DTSBD710
|
|
00112 SKIP3 DTSBD710
|
|
00113 FILE SECTION. DTSBD710
|
|
00114 SKIP2 DTSBD710
|
|
00115 FD CHARGE-FILE DTSBD710
|
|
00116 RECORD CONTAINS 41 CHARACTERS DTSBD710
|
|
00117 DATA RECORD IS CHG5-REC. DTSBD710
|
|
00118 01 CHG5-REC. DTSBD710
|
|
00119 ++INCLUDE CHGIM005 DTSBD710
|
|
00120 DTSBD710
|
|
00121 WORKING-STORAGE SECTION. DTSBD710
|
|
001215 77 PAN-VALET PICTURE X(24) VALUE '010DTSBD710 12/08/23'. DTSBD710
|
|
00122 77 PAN-VALET PICTURE X(24) VALUE '061DTSBD710 12/09/09'. DTSBD710
|
|
00123 SKIP3 DTSBD710
|
|
00124 01 WRK-AREA. DTSBD710
|
|
00125 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +710.DTSBD710
|
|
00126 DTSBD710
|
|
00127 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD710'.DTSBD710
|
|
00128 DTSBD710
|
|
00129 05 ALL-NINES-EMP-NO PIC S9(07) COMP-3 DTSBD710
|
|
00130 VALUE +9999999. DTSBD710
|
|
00131 DTSBD710
|
|
00132 05 ABEND-MSG PIC X(60). DTSBD710
|
|
00133 DTSBD710
|
|
00134 DTSBD710
|
|
00135 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3. DTSBD710
|
|
00136 DTSBD710
|
|
00137 05 WRK-SYS-DATE PIC S9(09) COMP-3. DTSBD710
|
|
00138 DTSBD710
|
|
00139 05 WRK-SYS-TIME PIC S9(07) COMP-3. DTSBD710
|
|
00140 DTSBD710
|
|
00141 DTSBD710
|
|
00142 05 WRK-PURGE-MRCT-IND PIC X(01). DTSBD710
|
|
00143 DTSBD710
|
|
00144 05 WRK-RTE-YR-START-YRQ PIC S9(05) COMP-3. DTSBD710
|
|
00145 DTSBD710
|
|
00146 05 WRK-RTE-YR-END-YRQ PIC S9(05) COMP-3. DTSBD710
|
|
00147 DTSBD710
|
|
00148 05 WRK-RTE-YR-START-DATE PIC S9(09) COMP-3. DTSBD710
|
|
00149 DTSBD710
|
|
00150 05 WRK-RTE-YR-END-DATE PIC S9(09) COMP-3. DTSBD710
|
|
00151 DTSBD710
|
|
00152 05 WRK-EXP-CUTOFF-DATE PIC S9(09) COMP-3. DTSBD710
|
|
00153 DTSBD710
|
|
00154 05 WRK-PRIOR-RTE-YR-START-YRQ PIC S9(05) COMP-3. DTSBD710
|
|
00155 DTSBD710
|
|
00156 05 WRK-ESTIMATED-WAGE-AREA. DTSBD710
|
|
00157 10 WRK-ESTIM-WAGE-YRQ PIC S9(05) COMP-3 DTSBD710
|
|
00158 VALUE +0. DTSBD710
|
|
00159 10 WRK-ESTIM-TAX-WAGE PIC S9(11)V9(02) COMP-3 DTSBD710
|
|
00160 VALUE +0. DTSBD710
|
|
00161 10 WRK-ESTIM-WAGE-CNT PIC S9(07) COMP-3 DTSBD710
|
|
00162 VALUE +0. DTSBD710
|
|
00163 10 WRK-ESTIM-TOT-WAGE1 PIC S9(11)V9(02) COMP-3 DTSBD710
|
|
00164 VALUE +0. DTSBD710
|
|
00165 10 WRK-ESTIM-TAX-WAGE1 PIC S9(11)V9(02) COMP-3 DTSBD710
|
|
00166 VALUE +0. DTSBD710
|
|
00167 DTSBD710
|
|
00168 05 CHG5-STATUS PIC X(02). DTSBD710
|
|
00169 88 CHG5-FILE-OK-88 VALUE '00'. DTSBD710
|
|
00170 88 CHG5-FILE-EOF-88 VALUE '10'. DTSBD710
|
|
00171 DTSBD710
|
|
00172 05 WRK-ERROR-IND PIC X(01). DTSBD710
|
|
00173 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBD710
|
|
00174 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBD710
|
|
00175 DTSBD710
|
|
00176 05 BCF-REC-CNT PIC S9(09) COMP-3. DTSBD710
|
|
00177 DTSBD710
|
|
00178 05 WRK-TOT-CHARGE PIC S9(11)V9(02) COMP-3. DTSBD710
|
|
00179 ** 05 BCF-CHARGE-CURR-AMT PIC S9(11)V9(02) COMP-3. DTSBD710
|
|
00180 DTSBD710
|
|
00181 DTSBD710
|
|
00182 05 WRK-REC-SELECTED-IND PIC X(01). DTSBD710
|
|
00183 88 WRK-REC-SELECTED-YES-88 VALUE 'Y'. DTSBD710
|
|
00184 88 WRK-REC-SELECTED-NO-88 VALUE 'N'. DTSBD710
|
|
00185 DTSBD710
|
|
00186 05 WRK-ANNUAL-FILER-IND PIC X(01). DTSBD710
|
|
00187 88 WRK-ANNUAL-FILER-YES-88 VALUE 'Y'. DTSBD710
|
|
00188 88 WRK-ANNUAL-FILER-NO-88 VALUE 'N'. DTSBD710
|
|
00189 DTSBD710
|
|
00190 05 WRK-UPDATE-MASTER-IND PIC X(01). DTSBD710
|
|
00191 88 WRK-UPDATE-MASTER-YES-88 VALUE 'Y'. DTSBD710
|
|
00192 88 WRK-UPDATE-MASTER-NO-88 VALUE 'N'. DTSBD710
|
|
00193 DTSBD710
|
|
00194 05 WRK-RUN-TYPE-IND PIC X(01). DTSBD710
|
|
00195 88 WRK-RUN-TYPE-REG-88 VALUE '0'. DTSBD710
|
|
00196 88 WRK-RUN-TYPE-ANN-88 VALUE '1'. DTSBD710
|
|
00197 DTSBD710
|
|
00198 05 RCT-REC-DELETE-CNT PIC S9(07) COMP-3. DTSBD710
|
|
00199 DTSBD710
|
|
00200 05 RCT-REC-WRITE-CNT PIC S9(07) COMP-3. DTSBD710
|
|
00201 DTSBD710
|
|
00202 05 RRA-REC-DELETE-CNT PIC S9(07) COMP-3. DTSBD710
|
|
00203 DTSBD710
|
|
00204 DTSBD710
|
|
00205 05 BCF-HOLD-CHARGE-EMPL-ACCT PIC 9(06). DTSBD710
|
|
00206 DTSBD710
|
|
00207 05 BCF-HOLD-CHARGE-CURR-AMT PIC S9(09)V9(02) COMP-3. DTSBD710
|
|
00208 DTSBD710
|
|
00209 05 WRK-CHARGE PIC S9(09)V9(02) COMP-3. DTSBD710
|
|
00210 DTSBD710
|
|
00211 05 WRK-AVG-WAGE PIC S9(13)V9(02) COMP-3. DTSBD710
|
|
00212 DTSBD710
|
|
00213 05 WRK-EMP-NO PIC 9(06). DTSBD710
|
|
00214 88 WRK-POOL-ACCT-88 VALUE 999000 THRU 999992 DTSBD710
|
|
00215 028411. DTSBD710
|
|
00216 DTSBD710
|
|
00217 05 WRK-EMP-TYPE PIC 9(02). DTSBD710
|
|
00218 88 WRK-EMP-TYPE-RATED-88 VALUE 00. DTSBD710
|
|
00219 DTSBD710
|
|
00220 05 WRK-DISPLAY-CNT-X PIC X(11). DTSBD710
|
|
00221 05 WRK-DISPLAY-CNT-9 REDEFINES WRK-DISPLAY-CNT-X DTSBD710
|
|
00222 PIC ZZZ,ZZZ,ZZ9. DTSBD710
|
|
00223 DTSBD710
|
|
00224 05 WRK-DISPLAY-AMT-X PIC X(17). DTSBD710
|
|
00225 05 WRK-DISPLAY-AMT-9 REDEFINES WRK-DISPLAY-AMT-X DTSBD710
|
|
00226 PIC ZZZZZ,ZZZ,ZZ9.99-. DTSBD710
|
|
00227 05 WRK-DISPLAY-AMT-9A PIC ZZZZZ,ZZZ,ZZ9.99-. DTSBD710
|
|
00228 05 WRK-DISPLAY-AMT-9B PIC ZZZZZ,ZZZ,ZZ9.99-. DTSBD710
|
|
00229 DTSBD710
|
|
00230 DTSBD710
|
|
00231 05 WRK-PRIOR-RESERVE-AMT PIC S9(09)V9(02) COMP-3. DTSBD710
|
|
00232 EJECT DTSBD710
|
|
00233 01 MSG-TABLE. DTSBD710
|
|
00234 05 MSG01-AREA. DTSBD710
|
|
00235 10 MSG01-MSG-IDENTIFIER PIC X(04) VALUE '1001'. DTSBD710
|
|
00236 10 MSG01-MSG-TEXT. DTSBD710
|
|
00237 15 FILLER PIC X(40) DTSBD710
|
|
00238 VALUE 'EMPLOYER NOT ON UI TAX EMPLOYER MASTER F'. DTSBD710
|
|
00239 15 FILLER PIC X(43) DTSBD710
|
|
00240 VALUE 'ILE. BENEFIT CHARGES BYPASSED. CHRG AMT: '. DTSBD710
|
|
00241 15 MSG01-CHARGE-TOT-AMT PIC ----,---,--9.99. DTSBD710
|
|
00242 DTSBD710
|
|
00243 05 MSG02-AREA. DTSBD710
|
|
00244 10 MSG02-MSG-IDENTIFIER PIC X(04) VALUE '1002'. DTSBD710
|
|
00245 10 MSG02-MSG-TEXT. DTSBD710
|
|
00246 15 FILLER PIC X(40) DTSBD710
|
|
00247 VALUE 'EMPLOYER NOT A RATED EMPLOYER. RATED BE'. DTSBD710
|
|
00248 15 FILLER PIC X(41) DTSBD710
|
|
00249 VALUE 'NEFIT CHARGES BYPASSED. CHARGED AMOUNT: '. DTSBD710
|
|
00250 15 MSG02-CHARGE-TOT-AMT PIC ----,---,--9.99. DTSBD710
|
|
00251 DTSBD710
|
|
00252 05 MSG03-AREA. DTSBD710
|
|
00253 10 MSG03-MSG-IDENTIFIER PIC X(04) VALUE '1003'. DTSBD710
|
|
00254 10 MSG03-MSG-TEXT. DTSBD710
|
|
00255 15 FILLER PIC X(40) DTSBD710
|
|
00256 VALUE 'RATE CUTOFF RECORD FOR RATE YEAR ALREADY'. DTSBD710
|
|
00257 15 FILLER PIC X(41) DTSBD710
|
|
00258 VALUE ' EXISTS. RATE CUTOFF RECORD NOT UPDATED.'. DTSBD710
|
|
00259 DTSBD710
|
|
00260 05 MSG04-AREA. DTSBD710
|
|
00261 10 MSG04-MSG-IDENTIFIER PIC X(04) VALUE '1004'. DTSBD710
|
|
00262 10 MSG04-MSG-TEXT. DTSBD710
|
|
00263 15 FILLER PIC X(40) DTSBD710
|
|
00264 VALUE 'DESPITE BEING LOCKED AGAINST UPDATE, AN '. DTSBD710
|
|
00265 15 FILLER PIC X(40) DTSBD710
|
|
00266 VALUE 'ANNUAL RATING BATCH PROCESS UPDATED A MR'. DTSBD710
|
|
00267 15 FILLER PIC X(20) DTSBD710
|
|
00268 VALUE 'CT RECORD OCCURRENCE'. DTSBD710
|
|
00269 DTSBD710
|
|
00270 05 MSG05-AREA. DTSBD710
|
|
00271 10 MSG05-MSG-IDENTIFIER PIC X(04) VALUE '1005'. DTSBD710
|
|
00272 10 MSG05-MSG-TEXT. DTSBD710
|
|
00273 15 FILLER PIC X(40) DTSBD710
|
|
00274 VALUE 'TAXABLE WAGE AND TOTAL WAGE INFORMATION '. DTSBD710
|
|
00275 15 FILLER PIC X(40) DTSBD710
|
|
00276 VALUE 'REQUIRED FOR ANNUAL RATING MAY BE ARCHIV'. DTSBD710
|
|
00277 15 FILLER PIC X(20) DTSBD710
|
|
00278 VALUE 'ED. '. DTSBD710
|
|
00279 DTSBD710
|
|
00280 EJECT DTSBD710
|
|
00281 01 L910-LINK-AREA. DTSBD710
|
|
00282 ++INCLUDE DTSIL910 DTSBD710
|
|
00283 SKIP3 DTSBD710
|
|
00284 01 MSKL-REC. DTSBD710
|
|
00285 ++INCLUDE DTSIMSKL DTSBD710
|
|
00286 SKIP3 DTSBD710
|
|
00287 01 MHDR-REC. DTSBD710
|
|
00288 ++INCLUDE DTSIMHDR DTSBD710
|
|
00289 SKIP3 DTSBD710
|
|
00290 01 MPRF-REC. DTSBD710
|
|
00291 ++INCLUDE DTSIMPRF DTSBD710
|
|
00292 SKIP3 DTSBD710
|
|
00293 01 MRCT-REC. DTSBD710
|
|
00294 ++INCLUDE DTSIMRCT DTSBD710
|
|
00295 SKIP3 DTSBD710
|
|
00296 01 MRRA-REC. DTSBD710
|
|
00297 ++INCLUDE DTSIMRRA DTSBD710
|
|
00298 SKIP3 DTSBD710
|
|
00299 01 MJRN-REC. DTSBD710
|
|
00300 ++INCLUDE DTSIMJRN DTSBD710
|
|
00301 SKIP3 DTSBD710
|
|
00302 01 MQTR-REC. DTSBD710
|
|
00303 ++INCLUDE DTSIMQTR DTSBD710
|
|
00304 SKIP3 DTSBD710
|
|
00305 01 MSOL-REC. DTSBD710
|
|
00306 ++INCLUDE DTSIMSOL DTSBD710
|
|
00307 EJECT DTSBD710
|
|
00308 01 L931-LINK-AREA. DTSBD710
|
|
00309 ++INCLUDE DTSIL931 DTSBD710
|
|
00310 SKIP3 DTSBD710
|
|
00311 01 FSKL-REC. DTSBD710
|
|
00312 ++INCLUDE DTSIFSKL DTSBD710
|
|
00313 SKIP3 DTSBD710
|
|
00314 01 FUIR-REC. DTSBD710
|
|
00315 ++INCLUDE DTSIFUIR DTSBD710
|
|
00316 EJECT DTSBD710
|
|
00317 01 R507-REC. DTSBD710
|
|
00318 ++INCLUDE DTSIR507 DTSBD710
|
|
00319 EJECT DTSBD710
|
|
00320 01 L001-LINK-AREA. DTSBD710
|
|
00321 ++INCLUDE DTSIL001 DTSBD710
|
|
00322 SKIP3 DTSBD710
|
|
00323 01 L004-LINK-AREA. DTSBD710
|
|
00324 ++INCLUDE DTSIL004 DTSBD710
|
|
00325 SKIP3 DTSBD710
|
|
00326 01 L005-LINK-AREA. DTSBD710
|
|
00327 ++INCLUDE DTSIL005 DTSBD710
|
|
00328 SKIP3 DTSBD710
|
|
00329 01 L006-LINK-AREA. DTSBD710
|
|
00330 ++INCLUDE DTSIL006 DTSBD710
|
|
00331 SKIP3 DTSBD710
|
|
00332 01 L055-LINK-AREA. DTSBD710
|
|
00333 ++INCLUDE DTSIL055 DTSBD710
|
|
00334 EJECT DTSBD710
|
|
00335 01 L410-LINK-AREA. DTSBD710
|
|
00336 ++INCLUDE DTSIL410 DTSBD710
|
|
00337 EJECT DTSBD710
|
|
00338 01 MMAX-LITERALS. DTSBD710
|
|
00339 ++INCLUDE DTSIMMAX DTSBD710
|
|
00340 SKIP3 DTSBD710
|
|
00341 01 FMAX-LITERALS. DTSBD710
|
|
00342 ++INCLUDE DTSIFMAX DTSBD710
|
|
00343 EJECT DTSBD710
|
|
00344 LINKAGE SECTION. DTSBD710
|
|
00345 SKIP3 DTSBD710
|
|
00346 01 PARM-AREA. DTSBD710
|
|
00347 05 PARM-LENGTH PIC S9(04) COMP. DTSBD710
|
|
00348 05 PARM-DATA. DTSBD710
|
|
00349 10 PARM-RTE-YR-START-YRQ-X DTSBD710
|
|
00350 PIC X(03). DTSBD710
|
|
00351 10 PARM-RTE-YR-START-YRQ DTSBD710
|
|
00352 REDEFINES PARM-RTE-YR-START-YRQ-X DTSBD710
|
|
00353 PIC 9(03). DTSBD710
|
|
00354 10 FILLER PIC X(01). DTSBD710
|
|
00355 10 PARM-PURGE-MRCT-IND PIC X(01). DTSBD710
|
|
00356 10 FILLER PIC X(01). DTSBD710
|
|
00357 10 PARM-UPDATE-MASTER-IND PIC X(01). DTSBD710
|
|
00358 88 PARM-UPDATE-MASTER-YES-88 VALUE 'Y'. DTSBD710
|
|
00359 88 PARM-UPDATE-MASTER-NO-88 VALUE 'N'. DTSBD710
|
|
00360 10 FILLER PIC X(01). DTSBD710
|
|
00361 10 PARM-RUN-TYPE-IND PIC X(01). DTSBD710
|
|
00362 88 PARM-RUN-TYPE-REG-88 VALUE 'R'. DTSBD710
|
|
00363 88 PARM-RUN-TYPE-ANN-88 VALUE 'A'. DTSBD710
|
|
00364 EJECT DTSBD710
|
|
00365 PROCEDURE DIVISION USING PARM-AREA. DTSBD710
|
|
00366 DTSBD710
|
|
00367 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD710
|
|
00368 DTSBD710
|
|
00369 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD710
|
|
00370 DTSBD710
|
|
00371 MOVE +0 TO MSKL-EMP-NO. DTSBD710
|
|
00372 DTSBD710
|
|
00373 SET MSKL-PRF-88 TO TRUE. DTSBD710
|
|
00374 DTSBD710
|
|
00375 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD710
|
|
00376 DTSBD710
|
|
00377 IF L910-OK-88 DTSBD710
|
|
00378 MOVE MSKL-REC TO MPRF-REC. DTSBD710
|
|
00379 DTSBD710
|
|
00380 DTSBD710
|
|
00381 *** PERFORM S1300-SBCF-READ-NEXT THRU S1300-EXIT. DTSBD710
|
|
00382 DTSBD710
|
|
00383 DTSBD710
|
|
00384 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD710
|
|
00385 DTSBD710
|
|
00386 DTSBD710
|
|
00387 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD710
|
|
00388 DTSBD710
|
|
00389 DTSBD710
|
|
00390 GOBACK. DTSBD710
|
|
00391 EJECT DTSBD710
|
|
00392 I0000-INITIATE. DTSBD710
|
|
00393 OPEN INPUT CHARGE-FILE. DTSBD710
|
|
00394 IF NOT CHG5-FILE-OK-88 DTSBD710
|
|
00395 DISPLAY 'CHARGE FILE OPEN ERROR: ' CHG5-STATUS DTSBD710
|
|
00396 PERFORM S999-ABEND THRU S999-EXIT DTSBD710
|
|
00397 END-IF. DTSBD710
|
|
00398 DTSBD710
|
|
00399 PERFORM S910-OPEN-UPDATE THRU S910-EXIT. DTSBD710
|
|
00400 DTSBD710
|
|
00401 PERFORM S931-OPEN-UPDATE THRU S931-EXIT. DTSBD710
|
|
00402 DTSBD710
|
|
00403 *** PERFORM S1100-SBCF-OPEN THRU S1100-EXIT. DTSBD710
|
|
00404 DTSBD710
|
|
00405 DTSBD710
|
|
00406 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD710
|
|
00407 DTSBD710
|
|
00408 MOVE +0 TO MSKL-EMP-NO. DTSBD710
|
|
00409 DTSBD710
|
|
00410 SET MSKL-HDR-88 TO TRUE. DTSBD710
|
|
00411 DTSBD710
|
|
00412 PERFORM S910-READ THRU S910-EXIT. DTSBD710
|
|
00413 DTSBD710
|
|
00414 IF L910-NO-REC-88 DTSBD710
|
|
00415 MOVE 'MHDR RECORD IS MISSING' DTSBD710
|
|
00416 TO ABEND-MSG DTSBD710
|
|
00417 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00418 DTSBD710
|
|
00419 MOVE MSKL-REC TO MHDR-REC. DTSBD710
|
|
00420 DTSBD710
|
|
00421 DTSBD710
|
|
00422 PERFORM I1000-PROCESS-PARMS THRU I1000-EXIT. DTSBD710
|
|
00423 DTSBD710
|
|
00424 DTSBD710
|
|
00425 PERFORM I2000-FIND-RATE-PERIOD THRU I2000-EXIT. DTSBD710
|
|
00426 DTSBD710
|
|
00427 DTSBD710
|
|
00428 PERFORM I3000-INITIALIZE-REC-CNTS THRU I3000-EXIT. DTSBD710
|
|
00429 DTSBD710
|
|
00430 DTSBD710
|
|
00431 PERFORM I4000-SET-ESTIM-WAGE-YRQ THRU I4000-EXIT. DTSBD710
|
|
00432 DTSBD710
|
|
00433 DTSBD710
|
|
00434 MOVE LENGTH OF R507-REC TO R507-LENGTH. DTSBD710
|
|
00435 DTSBD710
|
|
00436 MOVE '507' TO R507-REC-TYPE. DTSBD710
|
|
00437 DTSBD710
|
|
00438 MOVE WRK-EXP-CUTOFF-DATE TO R507-EXP-CUTOFF-DATE. DTSBD710
|
|
00439 DTSBD710
|
|
00440 MOVE WRK-RTE-YR-START-YRQ TO R507-EFF-QTR. DTSBD710
|
|
00441 DTSBD710
|
|
00442 DTSBD710
|
|
00443 MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD710
|
|
00444 DTSBD710
|
|
00445 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD710
|
|
00446 DTSBD710
|
|
00447 SUBTRACT 1 FROM L004-ABS-QTR. DTSBD710
|
|
00448 DTSBD710
|
|
00449 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD710
|
|
00450 DTSBD710
|
|
00451 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD710
|
|
00452 DTSBD710
|
|
00453 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD710
|
|
00454 DTSBD710
|
|
00455 MOVE L006-RTE-YR-START-YRQ TO WRK-PRIOR-RTE-YR-START-YRQ. DTSBD710
|
|
00456 DTSBD710
|
|
00457 DTSBD710
|
|
00458 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBD710
|
|
00459 DTSBD710
|
|
00460 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. DTSBD710
|
|
00461 DTSBD710
|
|
00462 MOVE L005-DATE TO WRK-SYS-DATE. DTSBD710
|
|
00463 DTSBD710
|
|
00464 MOVE L005-TIME TO WRK-SYS-TIME. DTSBD710
|
|
00465 DTSBD710
|
|
00466 DTSBD710
|
|
00467 IF WRK-PURGE-MRCT-IND = 'Y' DTSBD710
|
|
00468 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBD710
|
|
00469 MOVE +0 TO MSKL-EMP-NO DTSBD710
|
|
00470 SET MSKL-PRF-88 TO TRUE DTSBD710
|
|
00471 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBD710
|
|
00472 PERFORM DTSBD710
|
|
00473 UNTIL L910-NO-REC-88 DTSBD710
|
|
00474 MOVE MSKL-REC TO MPRF-REC DTSBD710
|
|
00475 PERFORM I9000-DELETE-MRCT THRU I9000-EXIT DTSBD710
|
|
00476 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA DTSBD710
|
|
00477 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD710
|
|
00478 END-PERFORM. DTSBD710
|
|
00479 I0000-EXIT. DTSBD710
|
|
00480 EXIT. DTSBD710
|
|
00481 EJECT DTSBD710
|
|
00482 I1000-PROCESS-PARMS. DTSBD710
|
|
00483 IF PARM-LENGTH = +9 DTSBD710
|
|
00484 NEXT SENTENCE DTSBD710
|
|
00485 ELSE DTSBD710
|
|
00486 MOVE 'PARM-LENGTH NOT EQUAL TO 9' DTSBD710
|
|
00487 TO ABEND-MSG DTSBD710
|
|
00488 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00489 DTSBD710
|
|
00490 DTSBD710
|
|
00491 DISPLAY '***'. DTSBD710
|
|
00492 DTSBD710
|
|
00493 DISPLAY '*** ' DTSBD710
|
|
00494 WRK-MOD-NAME DTSBD710
|
|
00495 ' PARAMETERS: ' DTSBD710
|
|
00496 PARM-DATA. DTSBD710
|
|
00497 DTSBD710
|
|
00498 DISPLAY '***'. DTSBD710
|
|
00499 DTSBD710
|
|
00500 DTSBD710
|
|
00501 IF PARM-RTE-YR-START-YRQ-X = SPACES OR LOW-VALUES OR '000' DTSBD710
|
|
00502 PERFORM I1100-DEFAULT-START-YRQ THRU I1100-EXIT DTSBD710
|
|
00503 ELSE DTSBD710
|
|
00504 PERFORM I1200-EDIT-START-YRQ THRU I1200-EXIT. DTSBD710
|
|
00505 DTSBD710
|
|
00506 DTSBD710
|
|
00507 IF PARM-PURGE-MRCT-IND = SPACES OR LOW-VALUES DTSBD710
|
|
00508 MOVE 'N' TO WRK-PURGE-MRCT-IND DTSBD710
|
|
00509 ELSE DTSBD710
|
|
00510 IF PARM-PURGE-MRCT-IND = 'N' OR 'Y' DTSBD710
|
|
00511 MOVE PARM-PURGE-MRCT-IND TO WRK-PURGE-MRCT-IND DTSBD710
|
|
00512 ELSE DTSBD710
|
|
00513 MOVE 'INVALID PARM-PURGE-MRCT-IND VALUE ENCOUNTERED' DTSBD710
|
|
00514 TO ABEND-MSG DTSBD710
|
|
00515 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00516 DTSBD710
|
|
00517 IF PARM-UPDATE-MASTER-YES-88 DTSBD710
|
|
00518 SET WRK-UPDATE-MASTER-YES-88 TO TRUE DTSBD710
|
|
00519 ELSE DTSBD710
|
|
00520 IF PARM-UPDATE-MASTER-NO-88 DTSBD710
|
|
00521 SET WRK-UPDATE-MASTER-NO-88 TO TRUE DTSBD710
|
|
00522 ELSE DTSBD710
|
|
00523 MOVE 'PARM-UPDATE-MASTER-IND NOT VALID' TO ABEND-MSG DTSBD710
|
|
00524 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00525 DTSBD710
|
|
00526 IF PARM-RUN-TYPE-REG-88 DTSBD710
|
|
00527 SET WRK-RUN-TYPE-REG-88 TO TRUE DTSBD710
|
|
00528 ELSE DTSBD710
|
|
00529 IF PARM-RUN-TYPE-ANN-88 DTSBD710
|
|
00530 SET WRK-RUN-TYPE-ANN-88 TO TRUE DTSBD710
|
|
00531 ELSE DTSBD710
|
|
00532 MOVE 'PARM-RUN-TYPE-IND NOT VALID' TO ABEND-MSG DTSBD710
|
|
00533 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00534 I1000-EXIT. DTSBD710
|
|
00535 EXIT. DTSBD710
|
|
00536 SKIP3 DTSBD710
|
|
00537 I1100-DEFAULT-START-YRQ. DTSBD710
|
|
00538 MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9. DTSBD710
|
|
00539 DTSBD710
|
|
00540 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD710
|
|
00541 DTSBD710
|
|
00542 IF L004-INVALID-QTR DTSBD710
|
|
00543 MOVE 'LOGIC ERROR I1100-1' DTSBD710
|
|
00544 TO ABEND-MSG DTSBD710
|
|
00545 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00546 DTSBD710
|
|
00547 DTSBD710
|
|
00548 ADD +1 TO L004-ABS-QTR. DTSBD710
|
|
00549 DTSBD710
|
|
00550 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD710
|
|
00551 DTSBD710
|
|
00552 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD710
|
|
00553 DTSBD710
|
|
00554 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD710
|
|
00555 DTSBD710
|
|
00556 IF L004-QTR-5-9 = L006-RTE-YR-START-YRQ DTSBD710
|
|
00557 MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ DTSBD710
|
|
00558 MOVE L006-RTE-YR-END-YRQ TO WRK-RTE-YR-END-YRQ DTSBD710
|
|
00559 MOVE L006-RTE-YR-START-DATE TO WRK-RTE-YR-START-DATE DTSBD710
|
|
00560 MOVE L006-RTE-YR-END-DATE TO WRK-RTE-YR-END-DATE DTSBD710
|
|
00561 ELSE DTSBD710
|
|
00562 MOVE 'INVALID MHDR-LAST-RATE-YRQ ENCOUNTERED' DTSBD710
|
|
00563 TO ABEND-MSG DTSBD710
|
|
00564 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00565 I1100-EXIT. DTSBD710
|
|
00566 EXIT. DTSBD710
|
|
00567 SKIP3 DTSBD710
|
|
00568 I1200-EDIT-START-YRQ. DTSBD710
|
|
00569 MOVE PARM-RTE-YR-START-YRQ-X TO L004-QTR-3. DTSBD710
|
|
00570 DTSBD710
|
|
00571 PERFORM S004-FROM-3 THRU S004-EXIT. DTSBD710
|
|
00572 DTSBD710
|
|
00573 IF L004-INVALID-QTR DTSBD710
|
|
00574 MOVE 'INVALID PARM-RTE-YR-START-YRQ-X ENCOUNTERED' DTSBD710
|
|
00575 TO ABEND-MSG DTSBD710
|
|
00576 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00577 DTSBD710
|
|
00578 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD710
|
|
00579 DTSBD710
|
|
00580 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD710
|
|
00581 DTSBD710
|
|
00582 IF L004-QTR-5-9 = L006-RTE-YR-START-YRQ DTSBD710
|
|
00583 MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ DTSBD710
|
|
00584 MOVE L006-RTE-YR-END-YRQ TO WRK-RTE-YR-END-YRQ DTSBD710
|
|
00585 MOVE L006-RTE-YR-START-DATE TO WRK-RTE-YR-START-DATE DTSBD710
|
|
00586 MOVE L006-RTE-YR-END-DATE TO WRK-RTE-YR-END-DATE DTSBD710
|
|
00587 ELSE DTSBD710
|
|
00588 MOVE 'PARM-RTE-YR-START-YRQ NOT FIRST QTR IN RATE YEAR' DTSBD710
|
|
00589 TO ABEND-MSG DTSBD710
|
|
00590 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00591 I1200-EXIT. DTSBD710
|
|
00592 EXIT. DTSBD710
|
|
00593 SKIP3 DTSBD710
|
|
00594 I2000-FIND-RATE-PERIOD. DTSBD710
|
|
00595 MOVE MHDR-PRIOR-RUN-DATE TO WRK-EXP-CUTOFF-DATE. DTSBD710
|
|
00596 DTSBD710
|
|
00597 MOVE WRK-RTE-YR-START-YRQ TO L055-EFF-YRQ. DTSBD710
|
|
00598 DTSBD710
|
|
00599 PERFORM S055-FROM-QTR THRU S055-EXIT. DTSBD710
|
|
00600 DTSBD710
|
|
00601 DTSBD710
|
|
00602 IF MHDR-LAST-MJRN-PURGE-DATE < L055-UI-TAX-PAID-FROM-DATE DTSBD710
|
|
00603 NEXT SENTENCE DTSBD710
|
|
00604 ELSE DTSBD710
|
|
00605 MOVE DTSBD710
|
|
00606 'MHDR-LAST-MJRN-PURGE-DATE/UI-TAX-PAID-FROM-DATE CONFLICT' DTSBD710
|
|
00607 TO ABEND-MSG DTSBD710
|
|
00608 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00609 I2000-EXIT. DTSBD710
|
|
00610 EXIT. DTSBD710
|
|
00611 SKIP3 DTSBD710
|
|
00612 I3000-INITIALIZE-REC-CNTS. DTSBD710
|
|
00613 MOVE +0 TO BCF-REC-CNT DTSBD710
|
|
00614 *** BCF-CHARGE-CURR-AMT DTSBD710
|
|
00615 RCT-REC-DELETE-CNT DTSBD710
|
|
00616 RCT-REC-WRITE-CNT DTSBD710
|
|
00617 RRA-REC-DELETE-CNT. DTSBD710
|
|
00618 I3000-EXIT. DTSBD710
|
|
00619 EXIT. DTSBD710
|
|
00620 SKIP3 DTSBD710
|
|
00621 ************************************************************* DTSBD710
|
|
00622 * WHEN CREATING A PRELIMINARY RATE FOR A HOUSEHOLD EMPLOYER DTSBD710
|
|
00623 * DTSBD710 USES THE FIRST QUARTER WAGES FROM THE PRIOR YEAR DTSBD710
|
|
00624 * AS AN ESTIMATE OF THE MISSING FIRST QUARTER WAGES. DTSBD710
|
|
00625 * THE FOLLOWING PARAGRAPH CALCULATES THE QUARTER WHOSE WAGES DTSBD710
|
|
00626 * ARE THE BASIS OF THE ESTIMATE. DTSBD710
|
|
00627 ************************************************************* DTSBD710
|
|
00628 I4000-SET-ESTIM-WAGE-YRQ. DTSBD710
|
|
00629 MOVE L055-WAGES-THRU-YRQ (3) TO L004-QTR-5-9. DTSBD710
|
|
00630 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD710
|
|
00631 DTSBD710
|
|
00632 IF L004-INVALID-QTR DTSBD710
|
|
00633 MOVE 'LOGIC ERROR I4000-1' DTSBD710
|
|
00634 TO ABEND-MSG DTSBD710
|
|
00635 PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
00636 DTSBD710
|
|
00637 DTSBD710
|
|
00638 SUBTRACT +1 FROM L004-QTR-5-YR. DTSBD710
|
|
00639 DTSBD710
|
|
00640 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD710
|
|
00641 DTSBD710
|
|
00642 MOVE L004-QTR-5-9 TO WRK-ESTIM-WAGE-YRQ. DTSBD710
|
|
00643 DTSBD710
|
|
00644 DISPLAY 'DTSBD710 I4000 L055 THRU YRQ ' DTSBD710
|
|
00645 L055-WAGES-THRU-YRQ (3) DTSBD710
|
|
00646 ' EST WAGE YRQ ' WRK-ESTIM-WAGE-YRQ. DTSBD710
|
|
00647 DTSBD710
|
|
00648 I4000-EXIT. DTSBD710
|
|
00649 EXIT. DTSBD710
|
|
00650 SKIP3 DTSBD710
|
|
00651 I9000-DELETE-MRCT. DTSBD710
|
|
00652 PERFORM I9100-MRCT THRU I9100-EXIT. DTSBD710
|
|
00653 PERFORM I9200-MRRA THRU I9200-EXIT. DTSBD710
|
|
00654 DTSBD710
|
|
00655 PERFORM S9000-EMPLOYER-UPDATED THRU S9000-EXIT. DTSBD710
|
|
00656 DTSBD710
|
|
00657 I9000-EXIT. DTSBD710
|
|
00658 EXIT. DTSBD710
|
|
00659 DTSBD710
|
|
00660 I9100-MRCT. DTSBD710
|
|
00661 MOVE LOW-VALUES TO MRCT-KEY-AREA. DTSBD710
|
|
00662 MOVE MPRF-EMP-NO TO MRCT-EMP-NO. DTSBD710
|
|
00663 SET MRCT-RCT-88 TO TRUE. DTSBD710
|
|
00664 MOVE WRK-RTE-YR-START-YRQ TO MRCT-EFF-YRQ. DTSBD710
|
|
00665 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. DTSBD710
|
|
00666 PERFORM S910-READ THRU S910-EXIT. DTSBD710
|
|
00667 IF L910-NO-REC-88 DTSBD710
|
|
00668 GO TO I9100-EXIT DTSBD710
|
|
00669 ELSE DTSBD710
|
|
00670 PERFORM S910-DELETE THRU S910-EXIT DTSBD710
|
|
00671 END-IF. DTSBD710
|
|
00672 DTSBD710
|
|
00673 ADD +1 TO RCT-REC-DELETE-CNT. DTSBD710
|
|
00674 DTSBD710
|
|
00675 I9100-EXIT. DTSBD710
|
|
00676 EXIT. DTSBD710
|
|
00677 DTSBD710
|
|
00678 I9200-MRRA. DTSBD710
|
|
00679 MOVE LOW-VALUES TO MRRA-KEY-AREA. DTSBD710
|
|
00680 MOVE MPRF-EMP-NO TO MRRA-EMP-NO. DTSBD710
|
|
00681 SET MRRA-RRA-88 TO TRUE. DTSBD710
|
|
00682 MOVE WRK-RTE-YR-START-YRQ TO MRRA-RATE-EFF-YRQ. DTSBD710
|
|
00683 MOVE MRRA-KEY-AREA TO MSKL-KEY-AREA. DTSBD710
|
|
00684 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD710
|
|
00685 IF L910-OK-88 DTSBD710
|
|
00686 PERFORM UNTIL L910-NO-REC-88 DTSBD710
|
|
00687 MOVE MSKL-REC TO MRRA-REC DTSBD710
|
|
00688 IF MRRA-RATE-EFF-YRQ = WRK-RTE-YR-START-YRQ DTSBD710
|
|
00689 PERFORM S910-DELETE THRU S910-EXIT DTSBD710
|
|
00690 ADD +1 TO RRA-REC-DELETE-CNT DTSBD710
|
|
00691 END-IF DTSBD710
|
|
00692 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD710
|
|
00693 DTSBD710
|
|
00694 END-PERFORM DTSBD710
|
|
00695 END-IF. DTSBD710
|
|
00696 DTSBD710
|
|
00697 I9200-EXIT. DTSBD710
|
|
00698 EXIT. DTSBD710
|
|
00699 DTSBD710
|
|
00700 P0000-PROCESS. DTSBD710
|
|
00701 PERFORM UNTIL L910-NO-REC-88 DTSBD710
|
|
00702 MOVE MSKL-REC TO MPRF-REC DTSBD710
|
|
00703 IF MPRF-CLASS-RATED-88 DTSBD710
|
|
00704 PERFORM P1000-PROCESS-MPRF THRU P1000-EXIT DTSBD710
|
|
00705 END-IF DTSBD710
|
|
00706 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA DTSBD710
|
|
00707 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD710
|
|
00708 END-PERFORM. DTSBD710
|
|
00709 DTSBD710
|
|
00710 P0000-EXIT. DTSBD710
|
|
00711 EXIT. DTSBD710
|
|
00712 EJECT DTSBD710
|
|
00713 P1000-PROCESS-MPRF. DTSBD710
|
|
00714 IF WRK-RUN-TYPE-ANN-88 DTSBD710
|
|
00715 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBD710
|
|
00716 SET L410-MODE-INPUT-YRQ-88 TO TRUE DTSBD710
|
|
00717 MOVE MPRF-EMP-NO TO L410-EMP-NO DTSBD710
|
|
00718 MOVE WRK-RTE-YR-START-YRQ TO L410-YRQ DTSBD710
|
|
00719 PERFORM S410-FILING-SCHEDULE THRU S410-EXIT DTSBD710
|
|
00720 IF L410-ANN-SCHED-88 DTSBD710
|
|
00721 NEXT SENTENCE DTSBD710
|
|
00722 ELSE DTSBD710
|
|
00723 GO TO P1000-EXIT DTSBD710
|
|
00724 END-IF DTSBD710
|
|
00725 ELSE DTSBD710
|
|
00726 GO TO P1000-EXIT DTSBD710
|
|
00727 END-IF DTSBD710
|
|
00728 END-IF. DTSBD710
|
|
00729 DTSBD710
|
|
00730 DTSBD710
|
|
00731 DTSBD710
|
|
00732 MOVE LOW-VALUES TO MRCT-KEY-AREA. DTSBD710
|
|
00733 DTSBD710
|
|
00734 MOVE MPRF-EMP-NO TO MRCT-EMP-NO. DTSBD710
|
|
00735 DTSBD710
|
|
00736 SET MRCT-RCT-88 TO TRUE. DTSBD710
|
|
00737 DTSBD710
|
|
00738 MOVE WRK-RTE-YR-START-YRQ TO MRCT-EFF-YRQ. DTSBD710
|
|
00739 DTSBD710
|
|
00740 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. DTSBD710
|
|
00741 DTSBD710
|
|
00742 PERFORM S910-READ THRU S910-EXIT. DTSBD710
|
|
00743 DTSBD710
|
|
00744 IF L910-OK-88 DTSBD710
|
|
00745 MOVE MPRF-EMP-NO TO R507-SUCC-EMP-NO DTSBD710
|
|
00746 MOVE MPRF-PRIMARY-NAME TO R507-SUCC-PRIMARY-NAME DTSBD710
|
|
00747 MOVE +0 TO R507-PRED-EMP-NO DTSBD710
|
|
00748 MOVE SPACES TO R507-PRED-PRIMARY-NAME DTSBD710
|
|
00749 MOVE MSG03-MSG-TEXT TO R507-MSG-TEXT DTSBD710
|
|
00750 PERFORM S946-WRITE-R507 THRU S946-EXIT DTSBD710
|
|
00751 GO TO P1000-EXIT. DTSBD710
|
|
00752 DTSBD710
|
|
00753 DTSBD710
|
|
00754 MOVE +0 TO WRK-PRIOR-RESERVE-AMT. DTSBD710
|
|
00755 DTSBD710
|
|
00756 PERFORM P1100-PRIOR-RESERVE-AMT THRU P1100-EXIT. DTSBD710
|
|
00757 DTSBD710
|
|
00758 DTSBD710
|
|
00759 PERFORM P1200-INITIALIZE-MRCT THRU P1200-EXIT. DTSBD710
|
|
00760 DTSBD710
|
|
00761 DTSBD710
|
|
00762 IF MPRF-STATUS-ACT-88 DTSBD710
|
|
00763 SET MRCT-EMP-ACTIVE-YES-88 TO TRUE DTSBD710
|
|
00764 ELSE DTSBD710
|
|
00765 SET MRCT-EMP-ACTIVE-NO-88 TO TRUE. DTSBD710
|
|
00766 DTSBD710
|
|
00767 DTSBD710
|
|
00768 MOVE WRK-PRIOR-RESERVE-AMT TO MRCT-PRIOR-RESERVE-AMT. DTSBD710
|
|
00769 DTSBD710
|
|
00770 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD710
|
|
00771 DTSBD710
|
|
00772 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD710
|
|
00773 DTSBD710
|
|
00774 SET MSKL-JRN-88 TO TRUE. DTSBD710
|
|
00775 DTSBD710
|
|
00776 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD710
|
|
00777 DTSBD710
|
|
00778 PERFORM DTSBD710
|
|
00779 UNTIL L910-NO-REC-88 DTSBD710
|
|
00780 MOVE MSKL-REC TO MJRN-REC DTSBD710
|
|
00781 PERFORM P1300-PROCESS-MJRN THRU P1300-EXIT DTSBD710
|
|
00782 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD710
|
|
00783 END-PERFORM. DTSBD710
|
|
00784 DTSBD710
|
|
00785 DTSBD710
|
|
00786 PERFORM P2000-BENEFIT-CHARGE THRU P2000-EXIT. DTSBD710
|
|
00787 MOVE WRK-TOT-CHARGE TO MRCT-BENEFITS-CHARGED-AMT. DTSBD710
|
|
00788 *** MOVE BCF-HOLD-CHARGE-CURR-AMT TO MRCT-BENEFITS-CHARGED-AMT. DTSBD710
|
|
00789 DTSBD710
|
|
00790 DTSBD710
|
|
00791 IF MPRF-LAST-ARCHIVED-YRQ < L055-WAGES-FROM-YRQ (1) DTSBD710
|
|
00792 NEXT SENTENCE DTSBD710
|
|
00793 ELSE DTSBD710
|
|
00794 MOVE MSG05-MSG-IDENTIFIER TO R507-MSG-IDENTIFIER DTSBD710
|
|
00795 MOVE MPRF-EMP-NO TO R507-SUCC-EMP-NO DTSBD710
|
|
00796 MOVE MPRF-PRIMARY-NAME TO R507-SUCC-PRIMARY-NAME DTSBD710
|
|
00797 MOVE +0 TO R507-PRED-EMP-NO DTSBD710
|
|
00798 MOVE SPACES TO R507-PRED-PRIMARY-NAME DTSBD710
|
|
00799 MOVE MSG05-MSG-TEXT TO R507-MSG-TEXT DTSBD710
|
|
00800 PERFORM S946-WRITE-R507 THRU S946-EXIT. DTSBD710
|
|
00801 DTSBD710
|
|
00802 DTSBD710
|
|
00803 MOVE ZERO TO WRK-ESTIM-TAX-WAGE. DTSBD710
|
|
00804 DTSBD710
|
|
00805 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBD710
|
|
00806 DTSBD710
|
|
00807 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD710
|
|
00808 DTSBD710
|
|
00809 SET MQTR-QTR-88 TO TRUE. DTSBD710
|
|
00810 DTSBD710
|
|
00811 MOVE L055-WAGES-FROM-YRQ (1) TO MQTR-YRQ. DTSBD710
|
|
00812 DTSBD710
|
|
00813 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD710
|
|
00814 DTSBD710
|
|
00815 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD710
|
|
00816 DTSBD710
|
|
00817 PERFORM DTSBD710
|
|
00818 UNTIL L910-NO-REC-88 DTSBD710
|
|
00819 MOVE MSKL-REC TO MQTR-REC DTSBD710
|
|
00820 PERFORM P1400-PROCESS-MQTR THRU P1400-EXIT DTSBD710
|
|
00821 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD710
|
|
00822 END-PERFORM. DTSBD710
|
|
00823 DTSBD710
|
|
00824 DTSBD710
|
|
00825 IF WRK-RUN-TYPE-REG-88 DTSBD710
|
|
00826 PERFORM P1450-CHECK-HOUSEHOLD THRU P1450-EXIT. DTSBD710
|
|
00827 DTSBD710
|
|
00828 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD710
|
|
00829 DTSBD710
|
|
00830 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD710
|
|
00831 DTSBD710
|
|
00832 SET MSKL-SOL-88 TO TRUE. DTSBD710
|
|
00833 DTSBD710
|
|
00834 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD710
|
|
00835 DTSBD710
|
|
00836 PERFORM DTSBD710
|
|
00837 UNTIL (L910-NO-REC-88) DTSBD710
|
|
00838 OR DTSBD710
|
|
00839 (MRCT-EARLIEST-LIAB-DATE > +0) DTSBD710
|
|
00840 MOVE MSKL-REC TO MSOL-REC DTSBD710
|
|
00841 PERFORM P1500-PROCESS-MSOL THRU P1500-EXIT DTSBD710
|
|
00842 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD710
|
|
00843 END-PERFORM. DTSBD710
|
|
00844 DTSBD710
|
|
00845 IF MRCT-EARLIEST-LIAB-DATE = +0 DTSBD710
|
|
00846 DISPLAY ' ELD DATE = ZEROS ' MRCT-EMP-NO CL**4
|
|
00847 MOVE WRK-EXP-CUTOFF-DATE TO MRCT-EARLIEST-LIAB-DATE. DTSBD710
|
|
00848 DTSBD710
|
|
00849 MOVE MPRF-PURSUED-RPT-CNT TO MRCT-MISS-RPT-CNT. DTSBD710
|
|
00850 DTSBD710
|
|
00851 DTSBD710
|
|
00852 IF MPRF-TOT-BALANCE-AMT > +0 DTSBD710
|
|
00853 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBD710
|
|
00854 MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBD710
|
|
00855 SET MSKL-QTR-88 TO TRUE DTSBD710
|
|
00856 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBD710
|
|
00857 PERFORM DTSBD710
|
|
00858 UNTIL L910-NO-REC-88 DTSBD710
|
|
00859 MOVE MSKL-REC TO MQTR-REC DTSBD710
|
|
00860 PERFORM P1600-PROCESS-MQTR THRU P1600-EXIT DTSBD710
|
|
00861 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD710
|
|
00862 END-PERFORM. DTSBD710
|
|
00863 DTSBD710
|
|
00864 DTSBD710
|
|
00865 SET MRCT-PRED-DUE-NO-88 TO TRUE. DTSBD710
|
|
00866 DTSBD710
|
|
00867 DTSBD710
|
|
00868 MOVE +0 TO MRCT-TRANSFERRED-TO-EMP-NO. DTSBD710
|
|
00869 DTSBD710
|
|
00870 DTSBD710
|
|
00871 SET MRCT-CHNG-SYSTEM-88 TO TRUE. DTSBD710
|
|
00872 DTSBD710
|
|
00873 DTSBD710
|
|
00874 MOVE MRCT-REC TO MSKL-REC. DTSBD710
|
|
00875 DTSBD710
|
|
00876 PERFORM S910-WRITE THRU S910-EXIT. DTSBD710
|
|
00877 DTSBD710
|
|
00878 DISPLAY 'BD710 -MSOL/MRCT ELD DATE ' MPRF-EMP-NO ' ' CL**3
|
|
00879 MRCT-EARLIEST-LIAB-DATE. CL**3
|
|
00880 CL**3
|
|
00881 ADD +1 TO RCT-REC-WRITE-CNT. DTSBD710
|
|
00882 DTSBD710
|
|
00883 PERFORM S9000-EMPLOYER-UPDATED THRU S9000-EXIT. DTSBD710
|
|
00884 P1000-EXIT. DTSBD710
|
|
00885 EXIT. DTSBD710
|
|
00886 DTSBD710
|
|
00887 P1100-PRIOR-RESERVE-AMT. DTSBD710
|
|
00888 MOVE LOW-VALUES TO MRCT-KEY-AREA. DTSBD710
|
|
00889 DTSBD710
|
|
00890 MOVE MPRF-EMP-NO TO MRCT-EMP-NO. DTSBD710
|
|
00891 DTSBD710
|
|
00892 SET MRCT-RCT-88 TO TRUE. DTSBD710
|
|
00893 DTSBD710
|
|
00894 MOVE WRK-PRIOR-RTE-YR-START-YRQ TO MRCT-EFF-YRQ. DTSBD710
|
|
00895 DTSBD710
|
|
00896 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. DTSBD710
|
|
00897 DTSBD710
|
|
00898 PERFORM S910-READ THRU S910-EXIT. DTSBD710
|
|
00899 DTSBD710
|
|
00900 IF L910-NO-REC-88 DTSBD710
|
|
00901 NEXT SENTENCE CL**6
|
|
00902 ELSE CL**6
|
|
00903 GO TO P1100-PRIOR-RESERVE-AMT-CONT. CL**6
|
|
00904 CL**6
|
|
00905 MOVE 20221 TO MRCT-EFF-YRQ. CL*10
|
|
00906 CL**6
|
|
00907 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. CL**6
|
|
00908 CL**6
|
|
00909 PERFORM S910-READ THRU S910-EXIT. CL**6
|
|
00910 CL**6
|
|
00911 IF L910-NO-REC-88 CL**6
|
|
00912 NEXT SENTENCE CL**9
|
|
00913 ELSE CL**9
|
|
00914 DISPLAY ' USING 2022 RESERVE BAL ' MRCT-EMP-NO CL*10
|
|
00915 GO TO P1100-PRIOR-RESERVE-AMT-CONT. CL**9
|
|
00916 CL**7
|
|
00917 MOVE 20211 TO MRCT-EFF-YRQ. CL*10
|
|
00918 CL**9
|
|
00919 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. CL**9
|
|
00920 CL**9
|
|
00921 PERFORM S910-READ THRU S910-EXIT. CL**9
|
|
00922 CL**9
|
|
00923 IF L910-NO-REC-88 CL**9
|
|
00924 NEXT SENTENCE CL*10
|
|
00925 ELSE CL**9
|
|
00926 DISPLAY ' USING 2021 RESERVE BAL ' MRCT-EMP-NO CL*10
|
|
00927 GO TO P1100-PRIOR-RESERVE-AMT-CONT. CL**9
|
|
00928 CL**9
|
|
00929 MOVE 20201 TO MRCT-EFF-YRQ. CL*10
|
|
00930 CL*10
|
|
00931 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. CL*10
|
|
00932 CL*10
|
|
00933 PERFORM S910-READ THRU S910-EXIT. CL*10
|
|
00934 CL*10
|
|
00935 IF L910-NO-REC-88 CL*10
|
|
00936 NEXT SENTENCE CL*10
|
|
00937 ELSE CL*10
|
|
00938 DISPLAY ' USING 2020 RESERVE BAL ' MRCT-EMP-NO CL*10
|
|
00939 GO TO P1100-PRIOR-RESERVE-AMT-CONT. CL*10
|
|
00940 CL*10
|
|
00941 MOVE 20191 TO MRCT-EFF-YRQ. CL*10
|
|
00942 CL*10
|
|
00943 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. CL*10
|
|
00944 CL*10
|
|
00945 PERFORM S910-READ THRU S910-EXIT. CL*10
|
|
00946 CL*10
|
|
00947 IF L910-NO-REC-88 CL*10
|
|
00948 DISPLAY ' ******** NO RESERVE BAL FOUND ' MRCT-EMP-NO CL*10
|
|
00949 GO TO P1100-EXIT CL*10
|
|
00950 ELSE CL*10
|
|
00951 DISPLAY ' USING 2020 RESERVE BAL ' MRCT-EMP-NO CL*10
|
|
00952 GO TO P1100-PRIOR-RESERVE-AMT-CONT. CL*10
|
|
00953 P1100-PRIOR-RESERVE-AMT-CONT. CL**6
|
|
00954 MOVE MSKL-REC TO MRCT-REC. DTSBD710
|
|
00955 DTSBD710
|
|
00956 DTSBD710
|
|
00957 IF MRCT-TRANSFERRED-TO-EMP-NO = +0 DTSBD710
|
|
00958 NEXT SENTENCE DTSBD710
|
|
00959 ELSE DTSBD710
|
|
00960 GO TO P1100-EXIT. DTSBD710
|
|
00961 DTSBD710
|
|
00962 DTSBD710
|
|
00963 COMPUTE WRK-PRIOR-RESERVE-AMT DTSBD710
|
|
00964 = MRCT-PRIOR-RESERVE-AMT DTSBD710
|
|
00965 + MRCT-UI-TAX-PAID-AMT DTSBD710
|
|
00966 + MRCT-TRUST-FUND-INTEREST-AMT DTSBD710
|
|
00967 - MRCT-BENEFITS-CHARGED-AMT. DTSBD710
|
|
00968 P1100-EXIT. DTSBD710
|
|
00969 EXIT. DTSBD710
|
|
00970 EJECT DTSBD710
|
|
00971 P1200-INITIALIZE-MRCT. DTSBD710
|
|
00972 MOVE LOW-VALUES TO MRCT-REC. DTSBD710
|
|
00973 DTSBD710
|
|
00974 MOVE MPRF-EMP-NO TO MRCT-EMP-NO. DTSBD710
|
|
00975 DTSBD710
|
|
00976 SET MRCT-RCT-88 TO TRUE. DTSBD710
|
|
00977 DTSBD710
|
|
00978 MOVE WRK-RTE-YR-START-YRQ TO MRCT-EFF-YRQ. DTSBD710
|
|
00979 DTSBD710
|
|
00980 MOVE +0 TO MRCT-PURGE-DATE. DTSBD710
|
|
00981 DTSBD710
|
|
00982 SET MRCT-EMP-ACTIVE-NO-88 TO TRUE. DTSBD710
|
|
00983 DTSBD710
|
|
00984 MOVE +0 TO MRCT-PRIOR-RESERVE-AMT DTSBD710
|
|
00985 MRCT-UI-TAX-PAID-AMT DTSBD710
|
|
00986 MRCT-TRUST-FUND-INTEREST-AMT DTSBD710
|
|
00987 MRCT-BENEFITS-CHARGED-AMT DTSBD710
|
|
00988 MRCT-QTR1-ESTIM-TAX-WAGE. DTSBD710
|
|
00989 DTSBD710
|
|
00990 PERFORM DTSBD710
|
|
00991 VARYING MRCT-WAGES-IDX FROM 1 BY 1 DTSBD710
|
|
00992 UNTIL MRCT-WAGES-IDX > MMAX-RCT-EXP-MAX DTSBD710
|
|
00993 MOVE +0 TO MRCT-TOT-WAGE (MRCT-WAGES-IDX) DTSBD710
|
|
00994 MRCT-TAX-WAGE (MRCT-WAGES-IDX) DTSBD710
|
|
00995 END-PERFORM. DTSBD710
|
|
00996 DTSBD710
|
|
00997 MOVE +0 TO MRCT-EARLIEST-LIAB-DATE DTSBD710
|
|
00998 MRCT-MISS-RPT-CNT DTSBD710
|
|
00999 MRCT-TOT-UI-TAX-BALANCE-AMT. DTSBD710
|
|
01000 DTSBD710
|
|
01001 SET MRCT-PRED-DUE-NO-88 TO TRUE. DTSBD710
|
|
01002 DTSBD710
|
|
01003 MOVE +0 TO MRCT-TRANSFERRED-TO-EMP-NO. DTSBD710
|
|
01004 DTSBD710
|
|
01005 SET MRCT-CHNG-SYSTEM-88 TO TRUE. DTSBD710
|
|
01006 DTSBD710
|
|
01007 SET MRCT-NOT-CONVERTED-88 TO TRUE. DTSBD710
|
|
01008 DTSBD710
|
|
01009 MOVE MHDR-CURR-RUN-DATE TO MRCT-ESTB-DATE DTSBD710
|
|
01010 MRCT-CHNG-DATE. DTSBD710
|
|
01011 P1200-EXIT. DTSBD710
|
|
01012 EXIT. DTSBD710
|
|
01013 EJECT DTSBD710
|
|
01014 P1300-PROCESS-MJRN. DTSBD710
|
|
01015 ***> CHANGED TO INCLUDE JRN RECORDS BASED ON RECEIVED DTSBD710
|
|
01016 ***> DATE RATHER THAN PROCESSED DATE. 12/12/2003 GD DTSBD710
|
|
01017 IF (MJRN-RECEIVED-DATE < L055-UI-TAX-PAID-FROM-DATE) DTSBD710
|
|
01018 OR DTSBD710
|
|
01019 (MJRN-RECEIVED-DATE > L055-UI-TAX-PAID-THRU-DATE) DTSBD710
|
|
01020 GO TO P1300-EXIT. DTSBD710
|
|
01021 DTSBD710
|
|
01022 * IF (MJRN-ESTB-DATE < L055-UI-TAX-PAID-FROM-DATE) DTSBD710
|
|
01023 * OR DTSBD710
|
|
01024 * (MJRN-ESTB-DATE > L055-UI-TAX-PAID-THRU-DATE) DTSBD710
|
|
01025 * GO TO P1300-EXIT. DTSBD710
|
|
01026 DTSBD710
|
|
01027 DTSBD710
|
|
01028 PERFORM DTSBD710
|
|
01029 VARYING MJRN-OCC-IDX FROM 1 BY 1 DTSBD710
|
|
01030 UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT DTSBD710
|
|
01031 IF (MJRN-ROW-UI-88 (MJRN-OCC-IDX)) DTSBD710
|
|
01032 AND DTSBD710
|
|
01033 (MJRN-COL-PAID-88 (MJRN-OCC-IDX)) DTSBD710
|
|
01034 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBD710
|
|
01035 TO MRCT-UI-TAX-PAID-AMT DTSBD710
|
|
01036 END-IF DTSBD710
|
|
01037 END-PERFORM. DTSBD710
|
|
01038 P1300-EXIT. DTSBD710
|
|
01039 EXIT. DTSBD710
|
|
01040 P1400-PROCESS-MQTR. DTSBD710
|
|
01041 PERFORM DTSBD710
|
|
01042 VARYING L055-WAGES-IDX FROM 1 BY 1 DTSBD710
|
|
01043 UNTIL L055-WAGES-IDX > MMAX-RCT-EXP-MAX DTSBD710
|
|
01044 IF (MQTR-YRQ >= L055-WAGES-FROM-YRQ (L055-WAGES-IDX)) DTSBD710
|
|
01045 AND DTSBD710
|
|
01046 (MQTR-YRQ <= L055-WAGES-THRU-YRQ (L055-WAGES-IDX)) DTSBD710
|
|
01047 SET MRCT-WAGES-IDX TO L055-WAGES-IDX DTSBD710
|
|
01048 ADD MQTR-TOT-WAGE DTSBD710
|
|
01049 TO MRCT-TOT-WAGE (MRCT-WAGES-IDX) DTSBD710
|
|
01050 ADD MQTR-TAX-WAGE DTSBD710
|
|
01051 TO MRCT-TAX-WAGE (MRCT-WAGES-IDX) DTSBD710
|
|
01052 END-IF DTSBD710
|
|
01053 IF MQTR-YRQ = WRK-ESTIM-WAGE-YRQ DTSBD710
|
|
01054 MOVE MQTR-TAX-WAGE TO WRK-ESTIM-TAX-WAGE DTSBD710
|
|
01055 END-IF DTSBD710
|
|
01056 END-PERFORM. DTSBD710
|
|
01057 DTSBD710
|
|
01058 P1400-EXIT. DTSBD710
|
|
01059 EXIT. DTSBD710
|
|
01060 EJECT DTSBD710
|
|
01061 ************************************************************* DTSBD710
|
|
01062 * FOR HOUSEHOLD EMPLOYERS ONLY, SAVE THE TAXABLE WAGE DTSBD710
|
|
01063 * AMOUNT FROM THE QUARTER THAT IS USED TO ESTIMATE THE DTSBD710
|
|
01064 * MISSING QUARTER. DTSBD710
|
|
01065 * DTSBD710
|
|
01066 ************************************************************** DTSBD710
|
|
01067 P1450-CHECK-HOUSEHOLD. DTSBD710
|
|
01068 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBD710
|
|
01069 MOVE WRK-ESTIM-TAX-WAGE TO MRCT-QTR1-ESTIM-TAX-WAGE DTSBD710
|
|
01070 ADD +1 TO WRK-ESTIM-WAGE-CNT DTSBD710
|
|
01071 ELSE DTSBD710
|
|
01072 MOVE ZERO TO MRCT-QTR1-ESTIM-TAX-WAGE. DTSBD710
|
|
01073 DTSBD710
|
|
01074 P1450-EXIT. DTSBD710
|
|
01075 EXIT. DTSBD710
|
|
01076 DTSBD710
|
|
01077 DTSBD710
|
|
01078 P1500-PROCESS-MSOL. DTSBD710
|
|
01079 IF MSOL-INACT-WITHDRAWN-88 DTSBD710
|
|
01080 NEXT SENTENCE DTSBD710
|
|
01081 ELSE DTSBD710
|
|
01082 MOVE MSOL-LIAB-DATE TO MRCT-EARLIEST-LIAB-DATE. DTSBD710
|
|
01083 P1500-EXIT. DTSBD710
|
|
01084 EXIT. DTSBD710
|
|
01085 EJECT DTSBD710
|
|
01086 P1600-PROCESS-MQTR. DTSBD710
|
|
01087 PERFORM DTSBD710
|
|
01088 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD710
|
|
01089 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBD710
|
|
01090 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD710
|
|
01091 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD710
|
|
01092 TO MRCT-TOT-UI-TAX-BALANCE-AMT DTSBD710
|
|
01093 END-IF DTSBD710
|
|
01094 END-PERFORM. DTSBD710
|
|
01095 P1600-EXIT. DTSBD710
|
|
01096 EXIT. DTSBD710
|
|
01097 DTSBD710
|
|
01098 P2000-BENEFIT-CHARGE. DTSBD710
|
|
01099 MOVE ZERO TO WRK-TOT-CHARGE. DTSBD710
|
|
01100 MOVE LOW-VALUES TO CHG5-SORT-KEY-AREA. DTSBD710
|
|
01101 MOVE MPRF-EMP-NO TO CHG5-EMP-NO. DTSBD710
|
|
01102 DTSBD710
|
|
01103 START CHARGE-FILE DTSBD710
|
|
01104 KEY IS >= CHG5-SORT-KEY-AREA. DTSBD710
|
|
01105 DTSBD710
|
|
01106 IF NOT CHG5-FILE-OK-88 DTSBD710
|
|
01107 GO TO P2000-EXIT DTSBD710
|
|
01108 ** DISPLAY 'CHARGE FILE START ERROR: ' CHG5-STATUS DTSBD710
|
|
01109 ** ' ' CHG5-EMP-NO DTSBD710
|
|
01110 ELSE DTSBD710
|
|
01111 READ CHARGE-FILE NEXT DTSBD710
|
|
01112 PERFORM DTSBD710
|
|
01113 UNTIL CHG5-FILE-EOF-88 DTSBD710
|
|
01114 OR CHG5-EMP-NO NOT = MPRF-EMP-NO DTSBD710
|
|
01115 OR WRK-ERROR-YES-88 DTSBD710
|
|
01116 ADD CHG5-TOT-CHG-AMT TO WRK-TOT-CHARGE DTSBD710
|
|
01117 READ CHARGE-FILE NEXT DTSBD710
|
|
01118 END-PERFORM DTSBD710
|
|
01119 END-IF. DTSBD710
|
|
01120 DTSBD710
|
|
01121 P2000-EXIT. DTSBD710
|
|
01122 EXIT. DTSBD710
|
|
01123 DTSBD710
|
|
01124 T0000-TERMINATE. DTSBD710
|
|
01125 DTSBD710
|
|
01126 IF WRK-RUN-TYPE-ANN-88 DTSBD710
|
|
01127 GO TO T0000-TERMINATE-ANN. DTSBD710
|
|
01128 DTSBD710
|
|
01129 MOVE LOW-VALUE TO FUIR-KEY-AREA. DTSBD710
|
|
01130 DTSBD710
|
|
01131 SET FUIR-UIR-88 TO TRUE. DTSBD710
|
|
01132 DTSBD710
|
|
01133 MOVE WRK-RTE-YR-START-YRQ TO FUIR-EFF-YRQ. DTSBD710
|
|
01134 DTSBD710
|
|
01135 MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA. DTSBD710
|
|
01136 DTSBD710
|
|
01137 PERFORM S931-READ THRU S931-EXIT. DTSBD710
|
|
01138 DTSBD710
|
|
01139 IF L931-OK-88 DTSBD710
|
|
01140 MOVE FSKL-REC TO FUIR-REC DTSBD710
|
|
01141 MOVE WRK-EXP-CUTOFF-DATE TO FUIR-RATE-CUTOFF-DATE DTSBD710
|
|
01142 MOVE MHDR-CURR-RUN-DATE TO FUIR-CHNG-DATE DTSBD710
|
|
01143 MOVE FUIR-REC TO FSKL-REC DTSBD710
|
|
01144 PERFORM S931-REWRITE THRU S931-EXIT DTSBD710
|
|
01145 ELSE DTSBD710
|
|
01146 PERFORM T1000-NEW-FUIR THRU T1000-EXIT. DTSBD710
|
|
01147 DTSBD710
|
|
01148 T0000-TERMINATE-ANN. DTSBD710
|
|
01149 DTSBD710
|
|
01150 PERFORM S910-CLOSE THRU S910-EXIT. DTSBD710
|
|
01151 DTSBD710
|
|
01152 PERFORM S931-CLOSE THRU S931-EXIT. DTSBD710
|
|
01153 DTSBD710
|
|
01154 CLOSE CHARGE-FILE. DTSBD710
|
|
01155 DTSBD710
|
|
01156 *** PERFORM S1400-SBCF-CLOSE THRU S1400-EXIT. DTSBD710
|
|
01157 DTSBD710
|
|
01158 MOVE -1 TO R507-LENGTH. DTSBD710
|
|
01159 DTSBD710
|
|
01160 PERFORM S946-WRITE-R507 THRU S946-EXIT. DTSBD710
|
|
01161 DTSBD710
|
|
01162 DTSBD710
|
|
01163 DISPLAY '***'. DTSBD710
|
|
01164 DTSBD710
|
|
01165 DISPLAY '*** ' DTSBD710
|
|
01166 WRK-MOD-NAME DTSBD710
|
|
01167 ' TERMINATION DISPLAYS'. DTSBD710
|
|
01168 DTSBD710
|
|
01169 DTSBD710
|
|
01170 MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD710
|
|
01171 DTSBD710
|
|
01172 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD710
|
|
01173 DTSBD710
|
|
01174 DISPLAY '*** RATE YEAR START QUARTER: ' DTSBD710
|
|
01175 L004-SLASH-5-QTR. DTSBD710
|
|
01176 DTSBD710
|
|
01177 DTSBD710
|
|
01178 DISPLAY '***'. DTSBD710
|
|
01179 DTSBD710
|
|
01180 MOVE WRK-RTE-YR-END-YRQ TO L004-QTR-5-9. DTSBD710
|
|
01181 DTSBD710
|
|
01182 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD710
|
|
01183 DTSBD710
|
|
01184 DISPLAY '*** RATE YEAR END QUARTER: ' DTSBD710
|
|
01185 L004-SLASH-5-QTR. DTSBD710
|
|
01186 DTSBD710
|
|
01187 DTSBD710
|
|
01188 DISPLAY '***'. DTSBD710
|
|
01189 DTSBD710
|
|
01190 MOVE WRK-RTE-YR-START-DATE TO L001-FED-8-DATE-9. DTSBD710
|
|
01191 DTSBD710
|
|
01192 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD710
|
|
01193 DTSBD710
|
|
01194 DISPLAY '*** RATE YEAR START DATE: ' DTSBD710
|
|
01195 L001-SLASH-8-DATE. DTSBD710
|
|
01196 DTSBD710
|
|
01197 DTSBD710
|
|
01198 DISPLAY '***'. DTSBD710
|
|
01199 DTSBD710
|
|
01200 MOVE WRK-RTE-YR-END-DATE TO L001-FED-8-DATE-9. DTSBD710
|
|
01201 DTSBD710
|
|
01202 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD710
|
|
01203 DTSBD710
|
|
01204 DISPLAY '*** RATE YEAR END DATE: ' DTSBD710
|
|
01205 L001-SLASH-8-DATE. DTSBD710
|
|
01206 DTSBD710
|
|
01207 DTSBD710
|
|
01208 DISPLAY '***'. DTSBD710
|
|
01209 DTSBD710
|
|
01210 MOVE WRK-EXP-CUTOFF-DATE TO L001-FED-8-DATE-9. DTSBD710
|
|
01211 DTSBD710
|
|
01212 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD710
|
|
01213 DTSBD710
|
|
01214 DISPLAY '*** RATING EXPERIENCE CUTOFF DATE: ' DTSBD710
|
|
01215 L001-SLASH-8-DATE. DTSBD710
|
|
01216 DTSBD710
|
|
01217 DTSBD710
|
|
01218 DISPLAY '***'. DTSBD710
|
|
01219 DTSBD710
|
|
01220 MOVE WRK-PRIOR-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD710
|
|
01221 DTSBD710
|
|
01222 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD710
|
|
01223 DTSBD710
|
|
01224 DISPLAY '*** PRIOR RATE YEAR START QUARTER: ' DTSBD710
|
|
01225 L004-SLASH-5-QTR. DTSBD710
|
|
01226 DTSBD710
|
|
01227 DTSBD710
|
|
01228 DISPLAY '***'. DTSBD710
|
|
01229 DTSBD710
|
|
01230 MOVE L055-UI-BEN-CHGD-FROM-DATE TO L001-FED-8-DATE-9. DTSBD710
|
|
01231 DTSBD710
|
|
01232 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD710
|
|
01233 DTSBD710
|
|
01234 DISPLAY '*** UI BENEFITS CHARGED FROM DATE: ' DTSBD710
|
|
01235 L001-SLASH-8-DATE. DTSBD710
|
|
01236 DTSBD710
|
|
01237 DTSBD710
|
|
01238 DISPLAY '***'. DTSBD710
|
|
01239 DTSBD710
|
|
01240 MOVE L055-UI-BEN-CHGD-THRU-DATE TO L001-FED-8-DATE-9. DTSBD710
|
|
01241 DTSBD710
|
|
01242 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD710
|
|
01243 DTSBD710
|
|
01244 DISPLAY '*** UI BENEFITS CHARGED THRU DATE: ' DTSBD710
|
|
01245 L001-SLASH-8-DATE. DTSBD710
|
|
01246 DTSBD710
|
|
01247 DTSBD710
|
|
01248 DISPLAY '***'. DTSBD710
|
|
01249 DTSBD710
|
|
01250 MOVE BCF-REC-CNT TO WRK-DISPLAY-CNT-9. DTSBD710
|
|
01251 DTSBD710
|
|
01252 DISPLAY '*** CHARGE DETAIL RECORDS INPUT: ' DTSBD710
|
|
01253 WRK-DISPLAY-CNT-X. DTSBD710
|
|
01254 DTSBD710
|
|
01255 DTSBD710
|
|
01256 DISPLAY '***'. DTSBD710
|
|
01257 DTSBD710
|
|
01258 ** MOVE BCF-CHARGE-CURR-AMT TO WRK-DISPLAY-AMT-9. DTSBD710
|
|
01259 * DTSBD710
|
|
01260 * DISPLAY '*** CHARGE CURRENT AMOUNT INPUT: ' DTSBD710
|
|
01261 ** WRK-DISPLAY-AMT-X. DTSBD710
|
|
01262 DTSBD710
|
|
01263 DTSBD710
|
|
01264 DTSBD710
|
|
01265 DISPLAY '***'. DTSBD710
|
|
01266 DTSBD710
|
|
01267 MOVE RCT-REC-DELETE-CNT TO WRK-DISPLAY-CNT-9. DTSBD710
|
|
01268 DTSBD710
|
|
01269 DISPLAY '*** MRCT RECORD OCCURRENCES DELETED: ' DTSBD710
|
|
01270 WRK-DISPLAY-CNT-X. DTSBD710
|
|
01271 DTSBD710
|
|
01272 DTSBD710
|
|
01273 DISPLAY '***'. DTSBD710
|
|
01274 DTSBD710
|
|
01275 MOVE RCT-REC-WRITE-CNT TO WRK-DISPLAY-CNT-9. DTSBD710
|
|
01276 DTSBD710
|
|
01277 DISPLAY '*** MRCT RECORD OCCURRENCES WRITTEN: ' DTSBD710
|
|
01278 WRK-DISPLAY-CNT-X. DTSBD710
|
|
01279 DTSBD710
|
|
01280 DISPLAY '***'. DTSBD710
|
|
01281 DTSBD710
|
|
01282 MOVE WRK-ESTIM-WAGE-CNT TO WRK-DISPLAY-CNT-9. DTSBD710
|
|
01283 DTSBD710
|
|
01284 DISPLAY '*** EMPLOYERS WITH ESTIMATED WAGES: ' DTSBD710
|
|
01285 WRK-DISPLAY-CNT-X. DTSBD710
|
|
01286 DTSBD710
|
|
01287 T0000-EXIT. DTSBD710
|
|
01288 EXIT. DTSBD710
|
|
01289 SKIP3 DTSBD710
|
|
01290 T1000-NEW-FUIR. DTSBD710
|
|
01291 MOVE LOW-VALUES TO FUIR-DATA-AREA. DTSBD710
|
|
01292 DTSBD710
|
|
01293 DTSBD710
|
|
01294 MOVE SPACES TO FUIR-RATE-TABLE. DTSBD710
|
|
01295 DTSBD710
|
|
01296 MOVE +0 TO FUIR-TOT-TRUST-FUND-INT-AMT DTSBD710
|
|
01297 FUIR-TOT-POS-RESERVE-BAL-AMT DTSBD710
|
|
01298 FUIR-TOT-POS-RESERVE-EMP-CNT DTSBD710
|
|
01299 FUIR-DIST-TRUST-FUND-INT-AMT. DTSBD710
|
|
01300 DTSBD710
|
|
01301 MOVE 999999999.99 TO FUIR-MIN-TAX-BAL-DUE-AMT. DTSBD710
|
|
01302 DTSBD710
|
|
01303 MOVE 999 TO FUIR-MIN-MISS-RPT-CNT. DTSBD710
|
|
01304 DTSBD710
|
|
01305 MOVE WRK-EXP-CUTOFF-DATE TO FUIR-RATE-CUTOFF-DATE. DTSBD710
|
|
01306 DTSBD710
|
|
01307 MOVE +0 TO FUIR-RATE-NOTICE-DATE DTSBD710
|
|
01308 FUIR-PENALTY-RATE-DATE DTSBD710
|
|
01309 FUIR-DEFAULT-NEW-EMP-RATE DTSBD710
|
|
01310 FUIR-RATE-CNT. DTSBD710
|
|
01311 DTSBD710
|
|
01312 PERFORM DTSBD710
|
|
01313 VARYING FUIR-RATE-IDX FROM 1 BY 1 DTSBD710
|
|
01314 UNTIL FUIR-RATE-IDX > FMAX-UIR-RATE-RATIO-MAX DTSBD710
|
|
01315 MOVE +0 TO FUIR-UI-RATE (FUIR-RATE-IDX) DTSBD710
|
|
01316 FUIR-MIN-RATIO (FUIR-RATE-IDX) DTSBD710
|
|
01317 FUIR-MAX-RATIO (FUIR-RATE-IDX) DTSBD710
|
|
01318 END-PERFORM. DTSBD710
|
|
01319 DTSBD710
|
|
01320 MOVE MHDR-CURR-RUN-DATE TO FUIR-ESTB-DATE DTSBD710
|
|
01321 FUIR-CHNG-DATE. DTSBD710
|
|
01322 DTSBD710
|
|
01323 MOVE FUIR-REC TO FSKL-REC. DTSBD710
|
|
01324 DTSBD710
|
|
01325 PERFORM S931-WRITE THRU S931-EXIT. DTSBD710
|
|
01326 T1000-EXIT. DTSBD710
|
|
01327 EXIT. DTSBD710
|
|
01328 EJECT DTSBD710
|
|
01329 *S1000-ACCUM-BEN-CHARGE. DTSBD710
|
|
01330 * MOVE CHG4-EMP-NO TO BCF-HOLD-CHARGE-EMPL-ACCT. DTSBD710
|
|
01331 * DTSBD710
|
|
01332 * MOVE +0 TO BCF-HOLD-CHARGE-CURR-AMT. DTSBD710
|
|
01333 * DTSBD710
|
|
01334 * PERFORM DTSBD710
|
|
01335 * UNTIL (BCF-FILE-NO-REC-88) DTSBD710
|
|
01336 * OR DTSBD710
|
|
01337 * (CHG4-EMP-NO NOT = BCF-HOLD-CHARGE-EMPL-ACCT) DTSBD710
|
|
01338 * COMPUTE BCF-HOLD-CHARGE-CURR-AMT = DTSBD710
|
|
01339 * BCF-HOLD-CHARGE-CURR-AMT + DTSBD710
|
|
01340 * WRK-CHARGE DTSBD710
|
|
01341 * PERFORM S1300-SBCF-READ-NEXT THRU S1300-EXIT DTSBD710
|
|
01342 * END-PERFORM. DTSBD710
|
|
01343 * DTSBD710
|
|
01344 *S1000-EXIT. DTSBD710
|
|
01345 * EXIT. DTSBD710
|
|
01346 * DTSBD710
|
|
01347 *S1100-SBCF-OPEN. DTSBD710
|
|
01348 * OPEN INPUT BENEFIT-CHARGE-FILE. DTSBD710
|
|
01349 * DTSBD710
|
|
01350 * IF BCF-FILE-OK-88 DTSBD710
|
|
01351 * NEXT SENTENCE DTSBD710
|
|
01352 * ELSE DTSBD710
|
|
01353 * MOVE 'OPEN' TO FILE-COMMAND DTSBD710
|
|
01354 * PERFORM S1900-SBCF-FILE-ERROR DTSBD710
|
|
01355 * THRU S1900-EXIT DTSBD710
|
|
01356 * GO TO S1100-EXIT. DTSBD710
|
|
01357 * DTSBD710
|
|
01358 *S1100-EXIT. DTSBD710
|
|
01359 * EXIT. DTSBD710
|
|
01360 * DTSBD710
|
|
01361 *S1300-SBCF-READ-NEXT. DTSBD710
|
|
01362 * MOVE ZERO TO WRK-CHARGE. DTSBD710
|
|
01363 * READ BENEFIT-CHARGE-FILE. DTSBD710
|
|
01364 * DTSBD710
|
|
01365 * IF BCF-FILE-NO-REC-88 DTSBD710
|
|
01366 * MOVE ALL-NINES-EMP-NO TO CHG4-EMP-NO DTSBD710
|
|
01367 * GO TO S1300-EXIT DTSBD710
|
|
01368 * END-IF. DTSBD710
|
|
01369 * DTSBD710
|
|
01370 * IF BCF-FILE-OK-88 DTSBD710
|
|
01371 * ADD +1 TO BCF-REC-CNT DTSBD710
|
|
01372 * COMPUTE WRK-CHARGE = DTSBD710
|
|
01373 * CHG4-CURR-BEN-AMT + DTSBD710
|
|
01374 * CHG4-CURR-ADJ-AMT DTSBD710
|
|
01375 * COMPUTE BCF-CHARGE-CURR-AMT = DTSBD710
|
|
01376 * (BCF-CHARGE-CURR-AMT + DTSBD710
|
|
01377 * WRK-CHARGE) DTSBD710
|
|
01378 * ELSE DTSBD710
|
|
01379 * MOVE 'READ NEXT' TO FILE-COMMAND DTSBD710
|
|
01380 * PERFORM S1900-SBCF-FILE-ERROR DTSBD710
|
|
01381 * THRU S1900-EXIT. DTSBD710
|
|
01382 * DTSBD710
|
|
01383 *S1300-EXIT. DTSBD710
|
|
01384 * EXIT. DTSBD710
|
|
01385 * DTSBD710
|
|
01386 *S1400-SBCF-CLOSE. DTSBD710
|
|
01387 * CLOSE BENEFIT-CHARGE-FILE. DTSBD710
|
|
01388 * DTSBD710
|
|
01389 * IF BCF-FILE-OK-88 DTSBD710
|
|
01390 * GO TO S1400-EXIT DTSBD710
|
|
01391 * ELSE DTSBD710
|
|
01392 * MOVE 'CLOSE' TO FILE-COMMAND DTSBD710
|
|
01393 * PERFORM S1900-SBCF-FILE-ERROR DTSBD710
|
|
01394 * THRU S1900-EXIT. DTSBD710
|
|
01395 * DTSBD710
|
|
01396 *S1400-EXIT. DTSBD710
|
|
01397 * EXIT. DTSBD710
|
|
01398 * DTSBD710
|
|
01399 *S1900-SBCF-FILE-ERROR. DTSBD710
|
|
01400 * MOVE SPACES TO ABEND-MSG. DTSBD710
|
|
01401 * DTSBD710
|
|
01402 * STRING DTSBD710
|
|
01403 * 'UNEXPECTED BENEFIT CLAIM FILE STATUS ON ' DTSBD710
|
|
01404 * DELIMITED BY SIZE DTSBD710
|
|
01405 * FILE-COMMAND DTSBD710
|
|
01406 * DELIMITED BY ' ' DTSBD710
|
|
01407 * ': ' DTSBD710
|
|
01408 * DELIMITED BY SIZE DTSBD710
|
|
01409 * BCF-FILE-STATUS DTSBD710
|
|
01410 * DELIMITED BY SIZE DTSBD710
|
|
01411 * INTO DTSBD710
|
|
01412 * ABEND-MSG. DTSBD710
|
|
01413 * DTSBD710
|
|
01414 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD710
|
|
01415 *S1900-EXIT. DTSBD710
|
|
01416 * EXIT. DTSBD710
|
|
01417 * SKIP3 DTSBD710
|
|
01418 * EJECT DTSBD710
|
|
01419 *S2000-ORPHAN-CHARGES-MSG. DTSBD710
|
|
01420 * MOVE MSG01-MSG-IDENTIFIER TO R507-MSG-IDENTIFIER. DTSBD710
|
|
01421 * DTSBD710
|
|
01422 * MOVE BCF-HOLD-CHARGE-EMPL-ACCT TO R507-SUCC-EMP-NO. DTSBD710
|
|
01423 * DTSBD710
|
|
01424 * MOVE 'NOT FOUND ON EMPLOYER MASTER FILE' DTSBD710
|
|
01425 * TO R507-SUCC-PRIMARY-NAME. DTSBD710
|
|
01426 * DTSBD710
|
|
01427 * MOVE +0 TO R507-PRED-EMP-NO. DTSBD710
|
|
01428 * DTSBD710
|
|
01429 * MOVE SPACES TO R507-PRED-PRIMARY-NAME. DTSBD710
|
|
01430 * DTSBD710
|
|
01431 * MOVE BCF-HOLD-CHARGE-CURR-AMT TO MSG01-CHARGE-TOT-AMT. DTSBD710
|
|
01432 * DTSBD710
|
|
01433 * MOVE MSG01-MSG-TEXT TO R507-MSG-TEXT. DTSBD710
|
|
01434 * DTSBD710
|
|
01435 * PERFORM S946-WRITE-R507 THRU S946-EXIT. DTSBD710
|
|
01436 *S2000-EXIT. DTSBD710
|
|
01437 * EXIT. DTSBD710
|
|
01438 * EJECT DTSBD710
|
|
01439 *S3000-ORPHAN-CHARGES-MSG. DTSBD710
|
|
01440 * MOVE MSG02-MSG-IDENTIFIER TO R507-MSG-IDENTIFIER. DTSBD710
|
|
01441 * DTSBD710
|
|
01442 * MOVE BCF-HOLD-CHARGE-EMPL-ACCT TO R507-SUCC-EMP-NO. DTSBD710
|
|
01443 * DTSBD710
|
|
01444 * MOVE 'NOT FOUND ON EMPLOYER MASTER FILE' DTSBD710
|
|
01445 * TO R507-SUCC-PRIMARY-NAME. DTSBD710
|
|
01446 * DTSBD710
|
|
01447 * MOVE +0 TO R507-PRED-EMP-NO. DTSBD710
|
|
01448 * DTSBD710
|
|
01449 * MOVE SPACES TO R507-PRED-PRIMARY-NAME. DTSBD710
|
|
01450 * DTSBD710
|
|
01451 * MOVE BCF-HOLD-CHARGE-CURR-AMT TO MSG02-CHARGE-TOT-AMT. DTSBD710
|
|
01452 * DTSBD710
|
|
01453 * MOVE MSG02-MSG-TEXT TO R507-MSG-TEXT. DTSBD710
|
|
01454 * DTSBD710
|
|
01455 * PERFORM S946-WRITE-R507 THRU S946-EXIT. DTSBD710
|
|
01456 *S3000-EXIT. DTSBD710
|
|
01457 * EXIT. DTSBD710
|
|
01458 * EJECT DTSBD710
|
|
01459 S9000-EMPLOYER-UPDATED. DTSBD710
|
|
01460 IF MPRF-UPDATE-ACTIVE-88 DTSBD710
|
|
01461 MOVE MSG04-MSG-IDENTIFIER TO R507-MSG-IDENTIFIER DTSBD710
|
|
01462 MOVE MPRF-EMP-NO TO R507-SUCC-EMP-NO DTSBD710
|
|
01463 MOVE MPRF-PRIMARY-NAME TO R507-SUCC-PRIMARY-NAME DTSBD710
|
|
01464 MOVE +0 TO R507-PRED-EMP-NO DTSBD710
|
|
01465 MOVE SPACES TO R507-PRED-PRIMARY-NAME DTSBD710
|
|
01466 MOVE MSG04-MSG-TEXT TO R507-MSG-TEXT DTSBD710
|
|
01467 PERFORM S946-WRITE-R507 THRU S946-EXIT DTSBD710
|
|
01468 ELSE DTSBD710
|
|
01469 MOVE WRK-SYS-ABSTIME TO MPRF-UPDATE-END-ABSTIME DTSBD710
|
|
01470 MOVE +0 TO MPRF-UPDATE-TASK-ID DTSBD710
|
|
01471 MOVE 'RATES' TO MPRF-UPDATE-OP-ID CL**3
|
|
01472 MOVE SPACES TO MPRF-UPDATE-TERMID DTSBD710
|
|
01473 MPRF-UPDATE-NETNAME DTSBD710
|
|
01474 MOVE WRK-SYS-DATE TO MPRF-UPDATE-START-DATE DTSBD710
|
|
01475 MOVE WRK-SYS-TIME TO MPRF-UPDATE-START-TIME DTSBD710
|
|
01476 MOVE SPACES TO MPRF-UPDATE-SCR-ID DTSBD710
|
|
01477 MPRF-UPDATE-FUNCTION DTSBD710
|
|
01478 MOVE MHDR-CURR-RUN-DATE TO MPRF-CHNG-DATE DTSBD710
|
|
01479 MOVE MPRF-REC TO MSKL-REC DTSBD710
|
|
01480 PERFORM S910-REWRITE THRU S910-EXIT. DTSBD710
|
|
01481 S9000-EXIT. DTSBD710
|
|
01482 EXIT. DTSBD710
|
|
01483 EJECT DTSBD710
|
|
01484 S001-FROM-FED-8. DTSBD710
|
|
01485 SET L001-FROM-FED-8 TO TRUE. DTSBD710
|
|
01486 GO TO S001-DATE. DTSBD710
|
|
01487 DTSBD710
|
|
01488 S001-FROM-ABS-DAY. DTSBD710
|
|
01489 SET L001-FROM-ABS-DAY TO TRUE. DTSBD710
|
|
01490 GO TO S001-DATE. DTSBD710
|
|
01491 DTSBD710
|
|
01492 S001-FROM-CAL-6. DTSBD710
|
|
01493 SET L001-FROM-CAL-6 TO TRUE. DTSBD710
|
|
01494 GO TO S001-DATE. DTSBD710
|
|
01495 DTSBD710
|
|
01496 S001-FROM-FED-6. DTSBD710
|
|
01497 SET L001-FROM-FED-6 TO TRUE. DTSBD710
|
|
01498 GO TO S001-DATE. DTSBD710
|
|
01499 DTSBD710
|
|
01500 S001-DATE. DTSBD710
|
|
01501 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD710
|
|
01502 S001-EXIT. DTSBD710
|
|
01503 EXIT. DTSBD710
|
|
01504 SKIP3 DTSBD710
|
|
01505 S004-FROM-5. DTSBD710
|
|
01506 SET L004-FROM-5 TO TRUE. DTSBD710
|
|
01507 GO TO S004-QTR. DTSBD710
|
|
01508 DTSBD710
|
|
01509 S004-FROM-ABS. DTSBD710
|
|
01510 SET L004-FROM-ABS TO TRUE. DTSBD710
|
|
01511 GO TO S004-QTR. DTSBD710
|
|
01512 DTSBD710
|
|
01513 S004-FROM-3. DTSBD710
|
|
01514 SET L004-FROM-3 TO TRUE. DTSBD710
|
|
01515 GO TO S004-QTR. DTSBD710
|
|
01516 DTSBD710
|
|
01517 S004-QTR. DTSBD710
|
|
01518 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD710
|
|
01519 S004-EXIT. DTSBD710
|
|
01520 EXIT. DTSBD710
|
|
01521 SKIP3 DTSBD710
|
|
01522 S005-FROM-SYS. DTSBD710
|
|
01523 SET L005-FROM-SYS TO TRUE. DTSBD710
|
|
01524 GO TO S005-ABSTIME. DTSBD710
|
|
01525 DTSBD710
|
|
01526 S005-ABSTIME. DTSBD710
|
|
01527 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD710
|
|
01528 S005-EXIT. DTSBD710
|
|
01529 EXIT. DTSBD710
|
|
01530 SKIP3 DTSBD710
|
|
01531 S006-FROM-QTR. DTSBD710
|
|
01532 SET L006-FROM-QTR TO TRUE. DTSBD710
|
|
01533 GO TO S006-UI-RATE-YEAR. DTSBD710
|
|
01534 DTSBD710
|
|
01535 S006-UI-RATE-YEAR. DTSBD710
|
|
01536 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBD710
|
|
01537 S006-EXIT. DTSBD710
|
|
01538 EXIT. DTSBD710
|
|
01539 SKIP3 DTSBD710
|
|
01540 S055-FROM-QTR. DTSBD710
|
|
01541 SET L055-FROM-EFF-YRQ-88 TO TRUE. DTSBD710
|
|
01542 GO TO S055-EXP-PERIOD. DTSBD710
|
|
01543 DTSBD710
|
|
01544 S055-EXP-PERIOD. DTSBD710
|
|
01545 CALL 'DTSBU055' USING L055-LINK-AREA. DTSBD710
|
|
01546 S055-EXIT. DTSBD710
|
|
01547 EXIT. DTSBD710
|
|
01548 DTSBD710
|
|
01549 S410-FILING-SCHEDULE. DTSBD710
|
|
01550 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBD710
|
|
01551 S410-EXIT. DTSBD710
|
|
01552 EXIT. DTSBD710
|
|
01553 DTSBD710
|
|
01554 S910-OPEN-UPDATE. DTSBD710
|
|
01555 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBD710
|
|
01556 GO TO S910-MSTR-IO. DTSBD710
|
|
01557 DTSBD710
|
|
01558 S910-READ. DTSBD710
|
|
01559 SET L910-READ-88 TO TRUE. DTSBD710
|
|
01560 GO TO S910-MSTR-IO. DTSBD710
|
|
01561 DTSBD710
|
|
01562 S910-START-BROWSE. DTSBD710
|
|
01563 SET L910-START-BROWSE-88 TO TRUE. DTSBD710
|
|
01564 GO TO S910-MSTR-IO. DTSBD710
|
|
01565 DTSBD710
|
|
01566 S910-READ-NEXT. DTSBD710
|
|
01567 SET L910-READ-NEXT-88 TO TRUE. DTSBD710
|
|
01568 GO TO S910-MSTR-IO. DTSBD710
|
|
01569 DTSBD710
|
|
01570 S910-DELETE. DTSBD710
|
|
01571 SET L910-DELETE-88 TO TRUE. DTSBD710
|
|
01572 GO TO S910-MSTR-IO. DTSBD710
|
|
01573 DTSBD710
|
|
01574 S910-REWRITE. DTSBD710
|
|
01575 SET L910-REWRITE-88 TO TRUE. DTSBD710
|
|
01576 GO TO S910-MSTR-IO. DTSBD710
|
|
01577 DTSBD710
|
|
01578 S910-WRITE. DTSBD710
|
|
01579 SET L910-WRITE-88 TO TRUE. DTSBD710
|
|
01580 GO TO S910-MSTR-IO. DTSBD710
|
|
01581 DTSBD710
|
|
01582 S910-CLOSE. DTSBD710
|
|
01583 SET L910-CLOSE-88 TO TRUE. DTSBD710
|
|
01584 GO TO S910-MSTR-IO. DTSBD710
|
|
01585 DTSBD710
|
|
01586 S910-MSTR-IO. DTSBD710
|
|
01587 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD710
|
|
01588 MSKL-REC. DTSBD710
|
|
01589 S910-EXIT. DTSBD710
|
|
01590 EXIT. DTSBD710
|
|
01591 SKIP3 DTSBD710
|
|
01592 S931-OPEN-UPDATE. DTSBD710
|
|
01593 SET L931-OPEN-UPDATE-88 TO TRUE. DTSBD710
|
|
01594 GO TO S931-REF-IO. DTSBD710
|
|
01595 DTSBD710
|
|
01596 S931-READ. DTSBD710
|
|
01597 SET L931-READ-88 TO TRUE. DTSBD710
|
|
01598 GO TO S931-REF-IO. DTSBD710
|
|
01599 DTSBD710
|
|
01600 S931-START-BROWSE. DTSBD710
|
|
01601 SET L931-START-BROWSE-88 TO TRUE. DTSBD710
|
|
01602 GO TO S931-REF-IO. DTSBD710
|
|
01603 DTSBD710
|
|
01604 S931-READ-NEXT. DTSBD710
|
|
01605 SET L931-READ-NEXT-88 TO TRUE. DTSBD710
|
|
01606 GO TO S931-REF-IO. DTSBD710
|
|
01607 DTSBD710
|
|
01608 S931-DELETE. DTSBD710
|
|
01609 SET L931-DELETE-88 TO TRUE. DTSBD710
|
|
01610 GO TO S931-REF-IO. DTSBD710
|
|
01611 DTSBD710
|
|
01612 S931-REWRITE. DTSBD710
|
|
01613 SET L931-REWRITE-88 TO TRUE. DTSBD710
|
|
01614 GO TO S931-REF-IO. DTSBD710
|
|
01615 DTSBD710
|
|
01616 S931-WRITE. DTSBD710
|
|
01617 SET L931-WRITE-88 TO TRUE. DTSBD710
|
|
01618 GO TO S931-REF-IO. DTSBD710
|
|
01619 DTSBD710
|
|
01620 S931-CLOSE. DTSBD710
|
|
01621 SET L931-CLOSE-88 TO TRUE. DTSBD710
|
|
01622 GO TO S931-REF-IO. DTSBD710
|
|
01623 DTSBD710
|
|
01624 S931-REF-IO. DTSBD710
|
|
01625 CALL 'DTSBU931' USING L931-LINK-AREA DTSBD710
|
|
01626 FSKL-REC. DTSBD710
|
|
01627 S931-EXIT. DTSBD710
|
|
01628 EXIT. DTSBD710
|
|
01629 SKIP3 DTSBD710
|
|
01630 S946-WRITE-R507. DTSBD710
|
|
01631 CALL 'DTSBU946' USING R507-REC. DTSBD710
|
|
01632 GO TO S946-EXIT. DTSBD710
|
|
01633 DTSBD710
|
|
01634 S946-EXIT. DTSBD710
|
|
01635 EXIT. DTSBD710
|
|
01636 SKIP3 DTSBD710
|
|
01637 S999-ABEND. DTSBD710
|
|
01638 DISPLAY '***'. DTSBD710
|
|
01639 DTSBD710
|
|
01640 DISPLAY '*** ' DTSBD710
|
|
01641 WRK-MOD-NAME DTSBD710
|
|
01642 ' IS ABENDING BECAUSE ' DTSBD710
|
|
01643 ABEND-MSG. DTSBD710
|
|
01644 DTSBD710
|
|
01645 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD710
|
|
01646 S999-EXIT. DTSBD710
|
|
01647 EXIT. DTSBD710
|