2119 lines
168 KiB
COBOL
2119 lines
168 KiB
COBOL
00001 IDENTIFICATION DIVISION. 07/18/11
|
|
00002 PROGRAM-ID. DTSBD790. DTSBD790
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV032
|
|
00004 DATE-WRITTEN. SPETEMBER 1994. DTSBD790
|
|
00005 DATE-COMPILED. DTSBD790
|
|
00006 SKIP3 DTSBD790
|
|
00007 ***** DTSBD790
|
|
00008 * DTSBD790
|
|
00009 * FUNCTION: PRODUCE ETA-204 REPORT RECORDS. DTSBD790
|
|
00010 * DTSBD790
|
|
00011 * DTSBD790
|
|
00012 * MODIFICATION LOG: DTSBD790
|
|
00013 * DTSBD790
|
|
00014 * 12/22/97 MODIFIED TO REFLECT THE 07/30/97 ETA 204 FEDERAL DTSBD790
|
|
00015 * SPECIFICATION (ET HANDBOOK 401, 2ND EDITION, DTSBD790
|
|
00016 * CHANGE 13, DATED 07/30/97). DTSBD790
|
|
00017 * WORK ORDER: TCL 225 PROGRAMMER: EHH DTSBD790
|
|
00018 * DTSBD790
|
|
00019 * 04/23/1999 REVIEWIED AND MODIFIED FOR DC. DTSBD790
|
|
00020 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD790
|
|
00021 * DTSBD790
|
|
00022 * 11/23/1999 P2000-PROCESS-CHARGE MODIFIED FOR CORRECT DTSBD790
|
|
00023 * HANDLING OF POOL ACCOUNTS. DTSBD790
|
|
00024 * REFERENCE: PROGRAMMER: GD DTSBD790
|
|
00025 * DTSBD790
|
|
00026 * 08/05/2002 MODIFIED PGM. TO READ CHGM002 VSAM DIRECTLY DTSBD790
|
|
00027 * INSTEAD USING BENEFIT TAPE READ-IN PROCESSES DTSBD790
|
|
00028 * TO SUMMARIZE BENEFIT PAID ON LINE6A, LINE6B, DTSBD790
|
|
00029 * AND LINE7A ON PARAGRAPH P2000-PROCESS-CHARGE. DTSBD790
|
|
00030 * REFERENCE: HOUSEHOLD PROGRAMMER: RW1 DTSBD790
|
|
00031 * DTSBD790
|
|
00032 * 08/11/2006 MODIFIED FOR NEW FORMAT OF DOWNLOAD FILE FOR DTSBD790
|
|
00033 * SECTION C EXPERIENCE RATING DATA. DTSBD790
|
|
00034 * REFERENCE: REQUIREMENT PROGRAMMER: GD DTSBD790
|
|
00035 * DTSBD790
|
|
00036 * 04/13/2007 CHANGED MEANING OF 'COMPUTATION DATE' AT THE DTSBD790
|
|
00037 * TOP OF THE REPORT. IT NOW CONTAINS THE DTSBD790
|
|
00038 * COMPUTATION DATE FOR THE RATE YEAR - JUNE 30 DTSBD790
|
|
00039 * OF THE YEAR PRIOR TO THE RATING YEAR. DTSBD790
|
|
00040 * THE CHANGE WAS NEEDED TO COMPLY WITH EDITS DTSBD790
|
|
00041 * IN THE SOFTWARE USED TO TRANSMIT THE REPORT. DTSBD790
|
|
00042 * REFERENCE: PROGRAMMER: GD DTSBD790
|
|
00043 * DTSBD790
|
|
00044 * 04/14/2010 RECOMPILE FOR NEW VERSION OF CHGIM030 DTSBD790
|
|
00045 * REFERENCE: DC DEVELOPMENT PROGRAMMER: Z1L DTSBD790
|
|
00046 * DTSBD790
|
|
00047 * XX/XX/XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD790
|
|
00048 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD790
|
|
00049 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD790
|
|
00050 * DTSBD790
|
|
00051 * DTSBD790
|
|
00052 * DESCRIPTION: DTSBD790
|
|
00053 * DTSBD790
|
|
00054 * ASSEMBLES THE INFORMATION NEEDED FOR THE FEDERAL ETA DTSBD790
|
|
00055 * 204 (EXPERIENCE RATING REPORT) REPORT. DTSBD790
|
|
00056 * DTSBD790
|
|
00057 * DTSBD790
|
|
00058 * PARAMETERS INPUT: DTSBD790
|
|
00059 * DTSBD790
|
|
00060 * RATE EFFECTIVE QUARTER IS THE QUARTER ASSOCIATED DTSBD790
|
|
00061 * WITH MHDR-LAST-RATE-END-YRQ (THIS JOB RUNS AFTER DTSBD790
|
|
00062 * RATES ARE ASSIGNED). DTSBD790
|
|
00063 * DTSBD790
|
|
00064 * THIS REPORT IS A HORRIBLE MESS. DTSBD790
|
|
00065 * DTSBD790
|
|
00066 * MY BEST ADVICE IS TO PRAY. DTSBD790
|
|
00067 * DTSBD790
|
|
00068 * DTSBD790
|
|
00069 * TAPES INPUT: DTSBD790
|
|
00070 * DTSBD790
|
|
00071 * QUARTERLY BENEFIT CHARGES. DTSBD790
|
|
00072 * DTSBD790
|
|
00073 * DTSBD790
|
|
00074 * MASTER FILE RECORDS READ: DTSBD790
|
|
00075 * DTSBD790
|
|
00076 * MPRF DTSBD790
|
|
00077 * MHDR DTSBD790
|
|
00078 * MSOL DTSBD790
|
|
00079 * MQTR DTSBD790
|
|
00080 * MRCT DTSBD790
|
|
00081 * DTSBD790
|
|
00082 * DTSBD790
|
|
00083 * ALTERNATE INDEX FILE RECORDS READ: DTSBD790
|
|
00084 * DTSBD790
|
|
00085 * NONE DTSBD790
|
|
00086 * DTSBD790
|
|
00087 * DTSBD790
|
|
00088 * REFERENCE FILE RECORDS READ: DTSBD790
|
|
00089 * DTSBD790
|
|
00090 * FCYR DTSBD790
|
|
00091 * FUIR DTSBD790
|
|
00092 * DTSBD790
|
|
00093 * DTSBD790
|
|
00094 * MASTER FILE RECORDS UPDATED: DTSBD790
|
|
00095 * DTSBD790
|
|
00096 * NONE. DTSBD790
|
|
00097 * DTSBD790
|
|
00098 * DTSBD790
|
|
00099 * REPORT RECORDS WRITTEN: DTSBD790
|
|
00100 * DTSBD790
|
|
00101 * R517 ETA-204 EXTRACT. DTSBD790
|
|
00102 * DTSBD790
|
|
00103 * DTSBD790
|
|
00104 * MODULES CALLED: DTSBD790
|
|
00105 * DTSBD790
|
|
00106 * DTSBU001 DATE EDIT/DESCRIPTION. DTSBD790
|
|
00107 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBD790
|
|
00108 * DTSBU006 RATING YEAR PERIOD START/END. DTSBD790
|
|
00109 * DTSBU055 UI RATE EXPERIENCE PERIOD. DTSBD790
|
|
00110 * DTSBU910 MASTER FILE I/O. DTSBD790
|
|
00111 * DTSBU931 REFERENCE FILE I/O. DTSBD790
|
|
00112 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD790
|
|
00113 * DTSBD790
|
|
00114 * DTSBD790
|
|
00115 ***** DTSBD790
|
|
00116 SKIP3 DTSBD790
|
|
00117 ENVIRONMENT DIVISION. DTSBD790
|
|
00118 SKIP2 DTSBD790
|
|
00119 INPUT-OUTPUT SECTION. DTSBD790
|
|
00120 DTSBD790
|
|
00121 FILE-CONTROL. DTSBD790
|
|
00122 SELECT BEN-CHG-FILE-IN ASSIGN TO BENCHRGI DTSBD790
|
|
00123 ORGANIZATION IS INDEXED DTSBD790
|
|
00124 ACCESS MODE IS DYNAMIC DTSBD790
|
|
00125 RECORD KEY IS CHG2-KEY-AREA DTSBD790
|
|
00126 FILE STATUS IS BEN-CHG-STATUS. DTSBD790
|
|
00127 DTSBD790
|
|
00128 SELECT ETA204-DOWNLOAD ASSIGN TO RPT517R3 DTSBD790
|
|
00129 FILE STATUS IS DWNLD-STATUS. DTSBD790
|
|
00130 DTSBD790
|
|
00131 DATA DIVISION. DTSBD790
|
|
00132 SKIP3 DTSBD790
|
|
00133 FILE SECTION. DTSBD790
|
|
00134 SKIP3 DTSBD790
|
|
00135 FD BEN-CHG-FILE-IN DTSBD790
|
|
00136 RECORD CONTAINS 64 CHARACTERS DTSBD790
|
|
00137 DATA RECORD IS BEN-CHG-REC. DTSBD790
|
|
00138 01 BEN-CHG-REC. DTSBD790
|
|
00139 ++INCLUDE CHGIM002 DTSBD790
|
|
00140 DTSBD790
|
|
00141 FD ETA204-DOWNLOAD DTSBD790
|
|
00142 RECORDING MODE IS F DTSBD790
|
|
00143 BLOCK CONTAINS 0 RECORDS DTSBD790
|
|
00144 LABEL RECORDS ARE OMITTED. DTSBD790
|
|
00145 01 ETA204-DOWNLOAD-REC PIC X(80). DTSBD790
|
|
00146 DTSBD790
|
|
00147 WORKING-STORAGE SECTION. DTSBD790
|
|
001475 77 PAN-VALET PICTURE X(24) VALUE '032DTSBD790 07/18/11'. DTSBD790
|
|
00148 SKIP3 DTSBD790
|
|
00149 01 WRK-AREA. DTSBD790
|
|
00150 *& DTSBD790
|
|
00151 05 WRK-CHG-AMT PIC S9(11)V9(02) COMP-3. DTSBD790
|
|
00152 05 WRK-NEG6B-TOT PIC S9(11)V9(02) COMP-3 DTSBD790
|
|
00153 VALUE +0. DTSBD790
|
|
00154 05 WRK-POS6B-TOT PIC S9(11)V9(02) COMP-3 DTSBD790
|
|
00155 VALUE +0. DTSBD790
|
|
00156 *& DTSBD790
|
|
00157 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +790.DTSBD790
|
|
00158 DTSBD790
|
|
00159 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD790'.DTSBD790
|
|
00160 DTSBD790
|
|
00161 05 WRK-ELG-REG-OCC-MAX PIC S9(04) COMP VALUE +70. DTSBD790
|
|
00162 DTSBD790
|
|
00163 DTSBD790
|
|
00164 05 ABEND-MSG PIC X(60). DTSBD790
|
|
00165 DTSBD790
|
|
00166 DTSBD790
|
|
00167 05 FILE-COMMAND PIC X(10). DTSBD790
|
|
00168 DTSBD790
|
|
00169 05 BEN-CHG-STATUS PIC X(02) VALUE SPACES. DTSBD790
|
|
00170 88 BEN-FILE-OK-88 VALUE ZERO. DTSBD790
|
|
00171 88 BEN-FILE-EOF-88 VALUE '10'. DTSBD790
|
|
00172 ** 88 BEN-FILE-EOF-88 VALUE '10' '23'. DTSBD790
|
|
00173 DTSBD790
|
|
00174 05 DWNLD-STATUS PIC X(02) VALUE SPACES. DTSBD790
|
|
00175 88 DWNLD-STATUS-OK-88 VALUE '00'. DTSBD790
|
|
00176 DTSBD790
|
|
00177 05 WRK-BEN-CHG-READ PIC S9(09) COMP-3 VALUE +0.DTSBD790
|
|
00178 DTSBD790
|
|
00179 05 WRK-CHARGE-CURR-AMT PIC S9(11)V9(02) COMP-3. DTSBD790
|
|
00180 DTSBD790
|
|
00181 05 WRK-SELECTED-REC-CNT PIC S9(09) COMP-3. DTSBD790
|
|
00182 DTSBD790
|
|
00183 05 WRK-SELECTED-CHARGE-CURR-AMT PIC S9(11)V9(02) COMP-3. DTSBD790
|
|
00184 DTSBD790
|
|
00185 DTSBD790
|
|
00186 05 DISPLAY-CNT-X PIC X(11). DTSBD790
|
|
00187 DTSBD790
|
|
00188 05 DISPLAY-CNT REDEFINES DISPLAY-CNT-X DTSBD790
|
|
00189 PIC ZZZ,ZZZ,ZZ9. DTSBD790
|
|
00190 DTSBD790
|
|
00191 05 DISPLAY-AMT-X PIC X(17). DTSBD790
|
|
00192 DTSBD790
|
|
00193 05 DISPLAY-AMT REDEFINES DISPLAY-AMT-X DTSBD790
|
|
00194 PIC ------,---,--9.99. DTSBD790
|
|
00195 DTSBD790
|
|
00196 05 DISPLAY-AMT1-X PIC X(17). DTSBD790
|
|
00197 DTSBD790
|
|
00198 05 DISPLAY-AMT1 REDEFINES DISPLAY-AMT1-X DTSBD790
|
|
00199 PIC ------,---,--9.99. DTSBD790
|
|
00200 DTSBD790
|
|
00201 DTSBD790
|
|
00202 05 WRK-RTE-YR-START-YRQ PIC S9(05) COMP-3. DTSBD790
|
|
00203 DTSBD790
|
|
00204 05 WRK-RTE-YR-END-YRQ PIC S9(05) COMP-3. DTSBD790
|
|
00205 DTSBD790
|
|
00206 05 WRK-RTE-YR-START-DATE PIC S9(09) COMP-3. DTSBD790
|
|
00207 DTSBD790
|
|
00208 05 WRK-RTE-YR-END-DATE PIC S9(09) COMP-3. DTSBD790
|
|
00209 DTSBD790
|
|
00210 05 WRK-COMPUTATION-DATE PIC S9(09) COMP-3. DTSBD790
|
|
00211 DTSBD790
|
|
00212 05 WRK-NUMBER-AS-OF-DATE PIC S9(09) COMP-3. DTSBD790
|
|
00213 DTSBD790
|
|
00214 05 WRK-PAYROLL-YEAR-END-DATE PIC S9(09) COMP-3. DTSBD790
|
|
00215 DTSBD790
|
|
00216 05 WRK-PAYROLL-START-YRQ PIC S9(05) COMP-3. DTSBD790
|
|
00217 DTSBD790
|
|
00218 05 WRK-PAYROLL-END-YRQ PIC S9(05) COMP-3. DTSBD790
|
|
00219 DTSBD790
|
|
00220 05 WRK-BEN-CHRG-YEAR-START-DATE PIC S9(09) COMP-3. DTSBD790
|
|
00221 DTSBD790
|
|
00222 05 WRK-BEN-CHRG-YEAR-END-DATE PIC S9(09) COMP-3. DTSBD790
|
|
00223 DTSBD790
|
|
00224 05 SUB PIC S9(04) COMP. DTSBD790
|
|
00225 DTSBD790
|
|
00226 05 ACTIVE-AT-COMPUTATION-DATE-IND PIC X(01). DTSBD790
|
|
00227 DTSBD790
|
|
00228 05 DOWNLOAD-DATA-AREA. DTSBD790
|
|
00229 10 DWN-RPT-DATE PIC 9(08). DTSBD790
|
|
00230 10 DWN-AVG-RATE-AREA. DTSBD790
|
|
00231 15 DWN-AVG-RATE PIC 9.99. DTSBD790
|
|
00232 15 DWN-CONTRIB PIC 9(11). DTSBD790
|
|
00233 15 DWN-TAX-WAGE PIC 9(11). DTSBD790
|
|
00234 15 DWN-AVERAGE PIC S9(01)V9(04). DTSBD790
|
|
00235 10 DWN-COUNT PIC 9(11). DTSBD790
|
|
00236 10 DWN-COUNT-DISP REDEFINES DWN-COUNT DTSBD790
|
|
00237 PIC X(11). DTSBD790
|
|
00238 10 DWN-TOTAL PIC S9(11) COMP-3. DTSBD790
|
|
00239 10 DWN-TOTAL-DISP PIC 9(11). DTSBD790
|
|
00240 10 DWN-TOTAL-DISP-X REDEFINES DWN-TOTAL-DISP DTSBD790
|
|
00241 PIC X(11). DTSBD790
|
|
00242 10 SUB1 PIC S9(04) COMP. DTSBD790
|
|
00243 10 SUB2 PIC S9(04) COMP. DTSBD790
|
|
00244 DTSBD790
|
|
00245 EJECT DTSBD790
|
|
00246 ***INCLUDE ESPRPT04 DTSBD790
|
|
00247 *** EJECT DTSBD790
|
|
00248 01 L910-LINK-AREA. DTSBD790
|
|
00249 ++INCLUDE DTSIL910 DTSBD790
|
|
00250 SKIP3 DTSBD790
|
|
00251 01 MSKL-REC. DTSBD790
|
|
00252 ++INCLUDE DTSIMSKL DTSBD790
|
|
00253 SKIP3 DTSBD790
|
|
00254 01 MHDR-REC. DTSBD790
|
|
00255 ++INCLUDE DTSIMHDR DTSBD790
|
|
00256 SKIP3 DTSBD790
|
|
00257 01 MPRF-REC. DTSBD790
|
|
00258 ++INCLUDE DTSIMPRF DTSBD790
|
|
00259 SKIP3 DTSBD790
|
|
00260 01 MSOL-REC. DTSBD790
|
|
00261 ++INCLUDE DTSIMSOL DTSBD790
|
|
00262 SKIP3 DTSBD790
|
|
00263 01 MQTR-REC. DTSBD790
|
|
00264 ++INCLUDE DTSIMQTR DTSBD790
|
|
00265 SKIP3 DTSBD790
|
|
00266 01 MRCT-REC. DTSBD790
|
|
00267 ++INCLUDE DTSIMRCT DTSBD790
|
|
00268 EJECT DTSBD790
|
|
00269 01 L931-LINK-AREA. DTSBD790
|
|
00270 ++INCLUDE DTSIL931 DTSBD790
|
|
00271 SKIP3 DTSBD790
|
|
00272 01 L941-LINK-AREA. DTSBD790
|
|
00273 ++INCLUDE DTSIL941 DTSBD790
|
|
00274 SKIP3 DTSBD790
|
|
00275 01 RSK3-REC. DTSBD790
|
|
00276 ++INCLUDE DTSIRSK3 DTSBD790
|
|
00277 SKIP3 DTSBD790
|
|
00278 01 FSKL-REC. DTSBD790
|
|
00279 ++INCLUDE DTSIFSKL DTSBD790
|
|
00280 SKIP3 DTSBD790
|
|
00281 01 FUIR-REC. DTSBD790
|
|
00282 ++INCLUDE DTSIFUIR DTSBD790
|
|
00283 SKIP3 DTSBD790
|
|
00284 01 FCYR-REC. DTSBD790
|
|
00285 ++INCLUDE DTSIFCYR DTSBD790
|
|
00286 EJECT DTSBD790
|
|
00287 01 R517-REC. DTSBD790
|
|
00288 ++INCLUDE DTSIR517 DTSBD790
|
|
00289 EJECT DTSBD790
|
|
00290 01 R530-REC. DTSBD790
|
|
00291 ++INCLUDE DTSIR530 DTSBD790
|
|
00292 01 ACCUMULATOR-AREAS. DTSBD790
|
|
00293 05 ACCUM-LINE1A-TOT-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00294 05 ACCUM-LINE1A-TAX-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00295 DTSBD790
|
|
00296 05 ACCUM-LINE1B-TOT-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00297 05 ACCUM-LINE1B-TAX-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00298 DTSBD790
|
|
00299 05 ACCUM-LINE2-TOT-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00300 DTSBD790
|
|
00301 05 ACCUM-LINE3A-TOT-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00302 05 ACCUM-LINE3A-TAX-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00303 DTSBD790
|
|
00304 05 ACCUM-LINE3B-TOT-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00305 05 ACCUM-LINE3B-TAX-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00306 DTSBD790
|
|
00307 05 ACCUM-LINE4A-TOT-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00308 05 ACCUM-LINE4A-TAX-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00309 DTSBD790
|
|
00310 05 ACCUM-LINE4B-TOT-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00311 05 ACCUM-LINE4B-TAX-WAGES PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00312 DTSBD790
|
|
00313 05 ACCUM-LINE6A-CHARGES PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00314 05 ACCUM-LINE6A1-CHARGES PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00315 05 ACCUM-LINE6B-CHARGES PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00316 05 ACCUM-LINE7A-CHARGES PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00317 05 ACCUM-LINE7B-CHARGES PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00318 05 W-TOT-MRCT-CHG PIC S9(09)V9(02) COMP-3 DTSBD790
|
|
00319 VALUE +0. DTSBD790
|
|
00320 05 W-TOT-ACT-MRCT-CHG PIC S9(09)V9(02) COMP-3 DTSBD790
|
|
00321 VALUE +0. DTSBD790
|
|
00322 DTSBD790
|
|
00323 05 ACCUM-ELG-REG-SUB PIC S9(04) COMP. DTSBD790
|
|
00324 DTSBD790
|
|
00325 05 ACCUM-ELG-REG-OCC DTSBD790
|
|
00326 OCCURS 70 TIMES DTSBD790
|
|
00327 INDEXED BY ACCUM-ELG-REG-IDX. DTSBD790
|
|
00328 10 ACCUM-ELG-REG-MIN-RATIO PIC S9(02)V9(05) COMP-3.DTSBD790
|
|
00329 10 ACCUM-ELG-REG-MAX-RATIO PIC S9(02)V9(05) COMP-3.DTSBD790
|
|
00330 10 ACCUM-ELG-REG-EMPLR-CNT PIC S9(07) COMP-3.DTSBD790
|
|
00331 10 ACCUM-ELG-REG-TOT-WAGE PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00332 10 ACCUM-ELG-REG-TAX-WAGE PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00333 10 ACCUM-ELG-REG-BEN-CHARGED PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00334 10 ACCUM-ELG-REG-EST-UI-PAID PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00335 DTSBD790
|
|
00336 05 TOTAL-ELG-REG. DTSBD790
|
|
00337 10 TOTAL-ELG-REG-EMPLR-CNT PIC S9(07) COMP-3.DTSBD790
|
|
00338 10 TOTAL-ELG-REG-TOT-WAGE PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00339 10 TOTAL-ELG-REG-TAX-WAGE PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00340 10 TOTAL-ELG-REG-BEN-CHARGED PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00341 10 TOTAL-ELG-REG-EST-UI-PAID PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00342 DTSBD790
|
|
00343 05 ACCUM-ELG-SPECIAL-OCC. DTSBD790
|
|
00344 10 ACCUM-ELG-SPECIAL-EMPLR-CNT DTSBD790
|
|
00345 PIC S9(07) COMP-3.DTSBD790
|
|
00346 10 ACCUM-ELG-SPECIAL-TOT-WAGE DTSBD790
|
|
00347 PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00348 10 ACCUM-ELG-SPECIAL-TAX-WAGE DTSBD790
|
|
00349 PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00350 10 ACCUM-ELG-SPECIAL-BEN-CHARGED DTSBD790
|
|
00351 PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00352 10 ACCUM-ELG-SPECIAL-EST-UI-PAID DTSBD790
|
|
00353 PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00354 DTSBD790
|
|
00355 05 ACCUM-INELG-OCC. DTSBD790
|
|
00356 10 ACCUM-INELG-EMPLR-CNT DTSBD790
|
|
00357 PIC S9(07) COMP-3.DTSBD790
|
|
00358 10 ACCUM-INELG-TOT-WAGE DTSBD790
|
|
00359 PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00360 10 ACCUM-INELG-TAX-WAGE DTSBD790
|
|
00361 PIC S9(11)V9(02) COMP-3.DTSBD790
|
|
00362 10 ACCUM-INELG-BEN-CHARGED DTSBD790
|
|
00363 PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00364 10 ACCUM-INELG-EST-UI-PAID DTSBD790
|
|
00365 PIC S9(09)V9(02) COMP-3.DTSBD790
|
|
00366 EJECT DTSBD790
|
|
00367 01 L001-LINK-AREA. DTSBD790
|
|
00368 ++INCLUDE DTSIL001 DTSBD790
|
|
00369 SKIP3 DTSBD790
|
|
00370 01 L004-LINK-AREA. DTSBD790
|
|
00371 ++INCLUDE DTSIL004 DTSBD790
|
|
00372 SKIP3 DTSBD790
|
|
00373 01 L006-LINK-AREA. DTSBD790
|
|
00374 ++INCLUDE DTSIL006 DTSBD790
|
|
00375 SKIP3 DTSBD790
|
|
00376 01 L054-LINK-AREA. DTSBD790
|
|
00377 ++INCLUDE DTSIL054 DTSBD790
|
|
00378 SKIP3 DTSBD790
|
|
00379 01 L055-LINK-AREA. DTSBD790
|
|
00380 ++INCLUDE DTSIL055 DTSBD790
|
|
00381 EJECT DTSBD790
|
|
00382 01 MMAX-LITERALS. DTSBD790
|
|
00383 ++INCLUDE DTSIMMAX DTSBD790
|
|
00384 EJECT DTSBD790
|
|
00385 LINKAGE SECTION. DTSBD790
|
|
00386 SKIP3 DTSBD790
|
|
00387 01 PARM-AREA. DTSBD790
|
|
00388 05 PARM-LENGTH PIC S9(04) COMP. DTSBD790
|
|
00389 05 PARM-DATA. DTSBD790
|
|
00390 10 PARM-RTE-YR-START-YRQ PIC X(03). DTSBD790
|
|
00391 EJECT DTSBD790
|
|
00392 PROCEDURE DIVISION USING PARM-AREA. DTSBD790
|
|
00393 DTSBD790
|
|
00394 DTSBD790
|
|
00395 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD790
|
|
00396 DTSBD790
|
|
00397 DTSBD790
|
|
00398 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD790
|
|
00399 DTSBD790
|
|
00400 MOVE +0 TO MSKL-EMP-NO. DTSBD790
|
|
00401 DTSBD790
|
|
00402 SET MSKL-PRF-88 TO TRUE. DTSBD790
|
|
00403 DTSBD790
|
|
00404 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD790
|
|
00405 DTSBD790
|
|
00406 PERFORM DTSBD790
|
|
00407 UNTIL L910-NO-REC-88 DTSBD790
|
|
00408 MOVE MSKL-REC TO MPRF-REC DTSBD790
|
|
00409 PERFORM P1000-PROCESS-TAX THRU P1000-EXIT DTSBD790
|
|
00410 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA DTSBD790
|
|
00411 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD790
|
|
00412 END-PERFORM. DTSBD790
|
|
00413 DTSBD790
|
|
00414 PERFORM P2000-PROCESS-CHARGE THRU P2000-EXIT. DTSBD790
|
|
00415 DTSBD790
|
|
00416 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD790
|
|
00417 SKIP2 DTSBD790
|
|
00418 GOBACK. DTSBD790
|
|
00419 EJECT DTSBD790
|
|
00420 I0000-INITIATE. DTSBD790
|
|
00421 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBD790
|
|
00422 DTSBD790
|
|
00423 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBD790
|
|
00424 DTSBD790
|
|
00425 PERFORM S941-OPEN-READ THRU S941-EXIT. DTSBD790
|
|
00426 DTSBD790
|
|
00427 PERFORM SBCF-OPEN-INPUT THRU SBCF-EXIT. DTSBD790
|
|
00428 DTSBD790
|
|
00429 PERFORM SDWN01-OPEN THRU SDWN01-EXIT. DTSBD790
|
|
00430 DTSBD790
|
|
00431 MOVE +0 TO WRK-BEN-CHG-READ DTSBD790
|
|
00432 WRK-CHARGE-CURR-AMT DTSBD790
|
|
00433 WRK-SELECTED-REC-CNT DTSBD790
|
|
00434 WRK-SELECTED-CHARGE-CURR-AMT. DTSBD790
|
|
00435 DTSBD790
|
|
00436 DTSBD790
|
|
00437 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD790
|
|
00438 DTSBD790
|
|
00439 MOVE +0 TO MSKL-EMP-NO. DTSBD790
|
|
00440 DTSBD790
|
|
00441 SET MSKL-HDR-88 TO TRUE. DTSBD790
|
|
00442 DTSBD790
|
|
00443 PERFORM S910-READ THRU S910-EXIT. DTSBD790
|
|
00444 DTSBD790
|
|
00445 IF L910-NO-REC-88 DTSBD790
|
|
00446 MOVE 'MHDR RECORD NOT FOUND' DTSBD790
|
|
00447 TO ABEND-MSG DTSBD790
|
|
00448 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00449 DTSBD790
|
|
00450 MOVE MSKL-REC TO MHDR-REC. DTSBD790
|
|
00451 DTSBD790
|
|
00452 DTSBD790
|
|
00453 PERFORM I1000-PROCESS-PARMS THRU I1000-EXIT. DTSBD790
|
|
00454 DTSBD790
|
|
00455 DTSBD790
|
|
00456 PERFORM I2000-SET-WRK-AREAS THRU I2000-EXIT. DTSBD790
|
|
00457 DTSBD790
|
|
00458 DTSBD790
|
|
00459 PERFORM I3000-INITIALIZE-R517 THRU I3000-EXIT. DTSBD790
|
|
00460 DTSBD790
|
|
00461 PERFORM S941-READ-NEXT THRU S941-EXIT. DTSBD790
|
|
00462 DTSBD790
|
|
00463 IF L941-NO-REC-88 DTSBD790
|
|
00464 DISPLAY '**** ERROR ON TAX-RATE-FILE ' DTSBD790
|
|
00465 ELSE DTSBD790
|
|
00466 IF RSK3-REC-TYPE = '530' DTSBD790
|
|
00467 MOVE RSK3-REC TO R530-REC DTSBD790
|
|
00468 MOVE R530-YR-2-AVG-TAX-RATE TO DTSBD790
|
|
00469 R517-YR-2-AVG-TAX-RATE DTSBD790
|
|
00470 MOVE R530-YR-2-AVG-TOT-RATE TO DTSBD790
|
|
00471 R517-YR-2-AVG-TOT-RATE DTSBD790
|
|
00472 DISPLAY 'R530 TAX ' R530-YR-2-AVG-TAX-RATE DTSBD790
|
|
00473 DISPLAY 'R517 TAX ' R517-YR-2-AVG-TAX-RATE DTSBD790
|
|
00474 DISPLAY 'R530 TOT ' R530-YR-2-AVG-TOT-RATE DTSBD790
|
|
00475 DISPLAY 'R517 TOT ' R517-YR-2-AVG-TOT-RATE DTSBD790
|
|
00476 ELSE DTSBD790
|
|
00477 DISPLAY 'NO R530 REC - TAX-RATE-FILE ' RSK3-REC. DTSBD790
|
|
00478 DTSBD790
|
|
00479 PERFORM I4000-INITIALIZE-ACCUM THRU I4000-EXIT. DTSBD790
|
|
00480 I0000-EXIT. DTSBD790
|
|
00481 EXIT. DTSBD790
|
|
00482 EJECT DTSBD790
|
|
00483 I1000-PROCESS-PARMS. DTSBD790
|
|
00484 IF PARM-LENGTH = +3 DTSBD790
|
|
00485 NEXT SENTENCE DTSBD790
|
|
00486 ELSE DTSBD790
|
|
00487 MOVE 'PARM-LENGTH NOT EQUAL TO 3' TO ABEND-MSG DTSBD790
|
|
00488 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00489 DTSBD790
|
|
00490 IF PARM-RTE-YR-START-YRQ = SPACES OR LOW-VALUES OR ZEROS DTSBD790
|
|
00491 PERFORM I1100-DEFAULT-RTE-YEAR THRU I1100-EXIT DTSBD790
|
|
00492 ELSE DTSBD790
|
|
00493 PERFORM I1200-EDIT-RTE-YEAR THRU I1200-EXIT. DTSBD790
|
|
00494 I1000-EXIT. DTSBD790
|
|
00495 EXIT. DTSBD790
|
|
00496 SKIP3 DTSBD790
|
|
00497 I1100-DEFAULT-RTE-YEAR. DTSBD790
|
|
00498 MOVE MHDR-LAST-RATE-END-YRQ TO L006-YRQ. DTSBD790
|
|
00499 DTSBD790
|
|
00500 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD790
|
|
00501 DTSBD790
|
|
00502 MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ. DTSBD790
|
|
00503 DTSBD790
|
|
00504 MOVE L006-RTE-YR-END-YRQ TO WRK-RTE-YR-END-YRQ. DTSBD790
|
|
00505 DTSBD790
|
|
00506 MOVE L006-RTE-YR-START-DATE TO WRK-RTE-YR-START-DATE. DTSBD790
|
|
00507 DTSBD790
|
|
00508 MOVE L006-RTE-YR-END-DATE TO WRK-RTE-YR-END-DATE. DTSBD790
|
|
00509 I1100-EXIT. DTSBD790
|
|
00510 EXIT. DTSBD790
|
|
00511 SKIP3 DTSBD790
|
|
00512 I1200-EDIT-RTE-YEAR. DTSBD790
|
|
00513 MOVE PARM-RTE-YR-START-YRQ TO L004-QTR-3. DTSBD790
|
|
00514 DTSBD790
|
|
00515 PERFORM S004-FROM-3 THRU S004-EXIT. DTSBD790
|
|
00516 DTSBD790
|
|
00517 IF L004-INVALID-QTR DTSBD790
|
|
00518 MOVE 'INVALID PARM-RTE-YR-START-YRQ ENCOUNTERED' DTSBD790
|
|
00519 TO ABEND-MSG DTSBD790
|
|
00520 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00521 DTSBD790
|
|
00522 DTSBD790
|
|
00523 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD790
|
|
00524 DTSBD790
|
|
00525 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD790
|
|
00526 DTSBD790
|
|
00527 IF L006-RTE-YR-START-YRQ = L004-QTR-5-9 DTSBD790
|
|
00528 MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ DTSBD790
|
|
00529 MOVE L006-RTE-YR-END-YRQ TO WRK-RTE-YR-END-YRQ DTSBD790
|
|
00530 MOVE L006-RTE-YR-START-DATE TO WRK-RTE-YR-START-DATE DTSBD790
|
|
00531 MOVE L006-RTE-YR-END-DATE TO WRK-RTE-YR-END-DATE DTSBD790
|
|
00532 ELSE DTSBD790
|
|
00533 MOVE 'PARM-RTE-YR-START-YRQ NOT FIRST QTR OF RATE YEAR' DTSBD790
|
|
00534 TO ABEND-MSG DTSBD790
|
|
00535 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00536 I1200-EXIT. DTSBD790
|
|
00537 EXIT. DTSBD790
|
|
00538 SKIP3 DTSBD790
|
|
00539 I2000-SET-WRK-AREAS. DTSBD790
|
|
00540 MOVE WRK-RTE-YR-START-YRQ TO L055-EFF-YRQ. DTSBD790
|
|
00541 DTSBD790
|
|
00542 PERFORM S055-FROM-QTR THRU S055-EXIT. DTSBD790
|
|
00543 DTSBD790
|
|
00544 DTSBD790
|
|
00545 MOVE LOW-VALUES TO FUIR-KEY-AREA. DTSBD790
|
|
00546 DTSBD790
|
|
00547 SET FUIR-UIR-88 TO TRUE. DTSBD790
|
|
00548 DTSBD790
|
|
00549 MOVE WRK-RTE-YR-START-YRQ TO FUIR-EFF-YRQ. DTSBD790
|
|
00550 DTSBD790
|
|
00551 MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA. DTSBD790
|
|
00552 DTSBD790
|
|
00553 PERFORM S931-READ THRU S931-EXIT. DTSBD790
|
|
00554 DTSBD790
|
|
00555 IF L931-NO-REC-88 DTSBD790
|
|
00556 MOVE 'NO FUIR RECORD OCCURRENCE FOR RATE YEAR' DTSBD790
|
|
00557 TO ABEND-MSG DTSBD790
|
|
00558 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00559 DTSBD790
|
|
00560 MOVE FSKL-REC TO FUIR-REC. DTSBD790
|
|
00561 DTSBD790
|
|
00562 DTSBD790
|
|
00563 *** MOVE FUIR-RATE-CUTOFF-DATE TO WRK-COMPUTATION-DATE. DTSBD790
|
|
00564 *** USE BENEFIT CHARGE END DATE FROM L055 (BELOW). DTSBD790
|
|
00565 DTSBD790
|
|
00566 MOVE FUIR-RATE-CUTOFF-DATE TO WRK-NUMBER-AS-OF-DATE. DTSBD790
|
|
00567 DTSBD790
|
|
00568 MOVE L055-WAGES-THRU-DATE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
00569 TO WRK-PAYROLL-YEAR-END-DATE. DTSBD790
|
|
00570 DTSBD790
|
|
00571 MOVE L055-WAGES-FROM-YRQ (MMAX-RCT-EXP-MAX) DTSBD790
|
|
00572 TO WRK-PAYROLL-START-YRQ. DTSBD790
|
|
00573 DTSBD790
|
|
00574 MOVE L055-WAGES-THRU-YRQ (MMAX-RCT-EXP-MAX) DTSBD790
|
|
00575 TO WRK-PAYROLL-END-YRQ. DTSBD790
|
|
00576 DTSBD790
|
|
00577 MOVE L055-UI-BEN-CHGD-FROM-DATE DTSBD790
|
|
00578 TO WRK-BEN-CHRG-YEAR-START-DATE. DTSBD790
|
|
00579 DTSBD790
|
|
00580 MOVE L055-UI-BEN-CHGD-THRU-DATE DTSBD790
|
|
00581 TO WRK-BEN-CHRG-YEAR-END-DATE DTSBD790
|
|
00582 WRK-COMPUTATION-DATE. DTSBD790
|
|
00583 I2000-EXIT. DTSBD790
|
|
00584 EXIT. DTSBD790
|
|
00585 SKIP3 DTSBD790
|
|
00586 I3000-INITIALIZE-R517. DTSBD790
|
|
00587 MOVE LENGTH OF R517-REC TO R517-LENGTH. DTSBD790
|
|
00588 DTSBD790
|
|
00589 MOVE '517' TO R517-REC-TYPE. DTSBD790
|
|
00590 DTSBD790
|
|
00591 DTSBD790
|
|
00592 INITIALIZE R517-DATA-AREA. DTSBD790
|
|
00593 DTSBD790
|
|
00594 DTSBD790
|
|
00595 MOVE MHDR-PRIOR-RUN-DATE TO R517-RUN-DATE. DTSBD790
|
|
00596 DTSBD790
|
|
00597 MOVE WRK-COMPUTATION-DATE TO R517-COMPUTATION-DATE. DTSBD790
|
|
00598 DTSBD790
|
|
00599 MOVE WRK-RTE-YR-END-DATE TO R517-RATE-YEAR-END-DATE. DTSBD790
|
|
00600 DTSBD790
|
|
00601 MOVE WRK-NUMBER-AS-OF-DATE TO R517-NUMBER-AS-OF-DATE. DTSBD790
|
|
00602 DTSBD790
|
|
00603 MOVE WRK-PAYROLL-YEAR-END-DATE TO R517-PAYROLL-YEAR-END-DATE.DTSBD790
|
|
00604 DTSBD790
|
|
00605 MOVE WRK-BEN-CHRG-YEAR-END-DATE DTSBD790
|
|
00606 TO R517-BEN-CHRG-YEAR-END-DATE. DTSBD790
|
|
00607 DTSBD790
|
|
00608 DTSBD790
|
|
00609 MOVE LOW-VALUES TO FCYR-KEY-AREA. DTSBD790
|
|
00610 DTSBD790
|
|
00611 SET FCYR-CYR-88 TO TRUE. DTSBD790
|
|
00612 DTSBD790
|
|
00613 MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD790
|
|
00614 DTSBD790
|
|
00615 MOVE L004-QTR-5-YR TO FCYR-YR. DTSBD790
|
|
00616 DTSBD790
|
|
00617 MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBD790
|
|
00618 DTSBD790
|
|
00619 PERFORM S931-READ THRU S931-EXIT. DTSBD790
|
|
00620 DTSBD790
|
|
00621 IF L931-NO-REC-88 DTSBD790
|
|
00622 MOVE 'RATE YEAR FCYR RECORD MISSING' DTSBD790
|
|
00623 TO ABEND-MSG DTSBD790
|
|
00624 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00625 DTSBD790
|
|
00626 MOVE FSKL-REC TO FCYR-REC. DTSBD790
|
|
00627 DTSBD790
|
|
00628 IF FCYR-TAXABLE-WAGE-BASE = +0 DTSBD790
|
|
00629 MOVE 'RATE YEAR FCYR-TAXABLE-WAGE-BASE MISSING' DTSBD790
|
|
00630 TO ABEND-MSG DTSBD790
|
|
00631 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00632 DTSBD790
|
|
00633 MOVE FCYR-TAXABLE-WAGE-BASE TO R517-RATE-YEAR-TX-WG-BASE. DTSBD790
|
|
00634 DTSBD790
|
|
00635 MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD790
|
|
00636 DTSBD790
|
|
00637 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD790
|
|
00638 DTSBD790
|
|
00639 IF L004-INVALID-QTR DTSBD790
|
|
00640 MOVE 'UNEXPECTED INVALID YRQ ENCOUNTERED I3000-01' DTSBD790
|
|
00641 TO ABEND-MSG DTSBD790
|
|
00642 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00643 DTSBD790
|
|
00644 SUBTRACT 1 FROM L004-ABS-QTR. DTSBD790
|
|
00645 DTSBD790
|
|
00646 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD790
|
|
00647 DTSBD790
|
|
00648 IF L004-INVALID-QTR DTSBD790
|
|
00649 MOVE 'UNEXPECTED INVALID YRQ ENCOUNTERED I3000-02' DTSBD790
|
|
00650 TO ABEND-MSG DTSBD790
|
|
00651 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00652 DTSBD790
|
|
00653 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD790
|
|
00654 DTSBD790
|
|
00655 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD790
|
|
00656 DTSBD790
|
|
00657 MOVE L006-RTE-YR-START-DATE TO R517-RY-MINUS-ONE-START-DATE. DTSBD790
|
|
00658 DTSBD790
|
|
00659 MOVE L006-RTE-YR-END-DATE TO R517-RY-MINUS-ONE-END-DATE. DTSBD790
|
|
00660 DTSBD790
|
|
00661 MOVE L006-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD790
|
|
00662 DTSBD790
|
|
00663 MOVE L004-QTR-5-YR TO FCYR-YR. DTSBD790
|
|
00664 DTSBD790
|
|
00665 MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBD790
|
|
00666 DTSBD790
|
|
00667 PERFORM S931-READ THRU S931-EXIT. DTSBD790
|
|
00668 DTSBD790
|
|
00669 IF L931-NO-REC-88 DTSBD790
|
|
00670 MOVE 'RATE YEAR MINUS ONE FCYR RECORD MISSING' DTSBD790
|
|
00671 TO ABEND-MSG DTSBD790
|
|
00672 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00673 DTSBD790
|
|
00674 MOVE FSKL-REC TO FCYR-REC. DTSBD790
|
|
00675 DTSBD790
|
|
00676 IF FCYR-TAXABLE-WAGE-BASE = +0 DTSBD790
|
|
00677 MOVE 'RATE YEAR MINUS ONE FCYR-TAXABLE-WAGE-BASE MISSING' DTSBD790
|
|
00678 TO ABEND-MSG DTSBD790
|
|
00679 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00680 DTSBD790
|
|
00681 MOVE FCYR-TAXABLE-WAGE-BASE TO R517-RY-MINUS-ONE-TX-WG-BASE. DTSBD790
|
|
00682 DTSBD790
|
|
00683 DTSBD790
|
|
00684 MOVE L006-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD790
|
|
00685 DTSBD790
|
|
00686 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD790
|
|
00687 DTSBD790
|
|
00688 IF L004-INVALID-QTR DTSBD790
|
|
00689 MOVE 'UNEXPECTED INVALID YRQ ENCOUNTERED I3000-03' DTSBD790
|
|
00690 TO ABEND-MSG DTSBD790
|
|
00691 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00692 DTSBD790
|
|
00693 SUBTRACT 1 FROM L004-ABS-QTR. DTSBD790
|
|
00694 DTSBD790
|
|
00695 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD790
|
|
00696 DTSBD790
|
|
00697 IF L004-INVALID-QTR DTSBD790
|
|
00698 MOVE 'UNEXPECTED INVALID YRQ ENCOUNTERED I3000-04' DTSBD790
|
|
00699 TO ABEND-MSG DTSBD790
|
|
00700 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00701 DTSBD790
|
|
00702 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD790
|
|
00703 DTSBD790
|
|
00704 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD790
|
|
00705 DTSBD790
|
|
00706 MOVE L006-RTE-YR-START-DATE TO R517-RY-MINUS-TWO-START-DATE. DTSBD790
|
|
00707 DTSBD790
|
|
00708 MOVE L006-RTE-YR-END-DATE TO R517-RY-MINUS-TWO-END-DATE. DTSBD790
|
|
00709 DTSBD790
|
|
00710 MOVE L006-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD790
|
|
00711 DTSBD790
|
|
00712 MOVE L004-QTR-5-YR TO FCYR-YR. DTSBD790
|
|
00713 DTSBD790
|
|
00714 MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBD790
|
|
00715 DTSBD790
|
|
00716 PERFORM S931-READ THRU S931-EXIT. DTSBD790
|
|
00717 DTSBD790
|
|
00718 IF L931-NO-REC-88 DTSBD790
|
|
00719 MOVE 'RATE YEAR MINUS TWO FCYR RECORD MISSING' DTSBD790
|
|
00720 TO ABEND-MSG DTSBD790
|
|
00721 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00722 DTSBD790
|
|
00723 MOVE FSKL-REC TO FCYR-REC. DTSBD790
|
|
00724 DTSBD790
|
|
00725 IF FCYR-TAXABLE-WAGE-BASE = +0 DTSBD790
|
|
00726 MOVE 'RATING YEAR MINUS TWO FCYR-TAXABLE-WAGE-BASE MISSING' DTSBD790
|
|
00727 TO ABEND-MSG DTSBD790
|
|
00728 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00729 DTSBD790
|
|
00730 MOVE FCYR-TAXABLE-WAGE-BASE TO R517-RY-MINUS-TWO-TX-WG-BASE. DTSBD790
|
|
00731 I3000-EXIT. DTSBD790
|
|
00732 EXIT. DTSBD790
|
|
00733 SKIP3 DTSBD790
|
|
00734 I4000-INITIALIZE-ACCUM. DTSBD790
|
|
00735 INITIALIZE ACCUMULATOR-AREAS. DTSBD790
|
|
00736 DTSBD790
|
|
00737 MOVE -99.99999 TO ACCUM-ELG-REG-MIN-RATIO (1) DTSBD790
|
|
00738 MOVE -0.80000 TO ACCUM-ELG-REG-MAX-RATIO (1). DTSBD790
|
|
00739 DTSBD790
|
|
00740 MOVE -0.80000 TO ACCUM-ELG-REG-MIN-RATIO (2). DTSBD790
|
|
00741 MOVE -0.60000 TO ACCUM-ELG-REG-MAX-RATIO (2). DTSBD790
|
|
00742 DTSBD790
|
|
00743 MOVE -0.60000 TO ACCUM-ELG-REG-MIN-RATIO (3). DTSBD790
|
|
00744 MOVE -0.40000 TO ACCUM-ELG-REG-MAX-RATIO (3). DTSBD790
|
|
00745 DTSBD790
|
|
00746 MOVE -0.40000 TO ACCUM-ELG-REG-MIN-RATIO (4). DTSBD790
|
|
00747 MOVE -0.20000 TO ACCUM-ELG-REG-MAX-RATIO (4). DTSBD790
|
|
00748 DTSBD790
|
|
00749 MOVE -0.20000 TO ACCUM-ELG-REG-MIN-RATIO (5). DTSBD790
|
|
00750 MOVE -0.19000 TO ACCUM-ELG-REG-MAX-RATIO (5). DTSBD790
|
|
00751 DTSBD790
|
|
00752 MOVE -0.19000 TO ACCUM-ELG-REG-MIN-RATIO (6). DTSBD790
|
|
00753 MOVE -0.18000 TO ACCUM-ELG-REG-MAX-RATIO (6). DTSBD790
|
|
00754 DTSBD790
|
|
00755 MOVE -0.18000 TO ACCUM-ELG-REG-MIN-RATIO (7). DTSBD790
|
|
00756 MOVE -0.17000 TO ACCUM-ELG-REG-MAX-RATIO (7). DTSBD790
|
|
00757 DTSBD790
|
|
00758 MOVE -0.17000 TO ACCUM-ELG-REG-MIN-RATIO (8). DTSBD790
|
|
00759 MOVE -0.16000 TO ACCUM-ELG-REG-MAX-RATIO (8). DTSBD790
|
|
00760 DTSBD790
|
|
00761 MOVE -0.16000 TO ACCUM-ELG-REG-MIN-RATIO (9). DTSBD790
|
|
00762 MOVE -0.15000 TO ACCUM-ELG-REG-MAX-RATIO (9). DTSBD790
|
|
00763 DTSBD790
|
|
00764 MOVE -0.15000 TO ACCUM-ELG-REG-MIN-RATIO (10). DTSBD790
|
|
00765 MOVE -0.14000 TO ACCUM-ELG-REG-MAX-RATIO (10). DTSBD790
|
|
00766 DTSBD790
|
|
00767 MOVE -0.14000 TO ACCUM-ELG-REG-MIN-RATIO (11). DTSBD790
|
|
00768 MOVE -0.13000 TO ACCUM-ELG-REG-MAX-RATIO (11). DTSBD790
|
|
00769 DTSBD790
|
|
00770 MOVE -0.13000 TO ACCUM-ELG-REG-MIN-RATIO (12). DTSBD790
|
|
00771 MOVE -0.12000 TO ACCUM-ELG-REG-MAX-RATIO (12). DTSBD790
|
|
00772 DTSBD790
|
|
00773 MOVE -0.12000 TO ACCUM-ELG-REG-MIN-RATIO (13). DTSBD790
|
|
00774 MOVE -0.11000 TO ACCUM-ELG-REG-MAX-RATIO (13). DTSBD790
|
|
00775 DTSBD790
|
|
00776 MOVE -0.11000 TO ACCUM-ELG-REG-MIN-RATIO (14). DTSBD790
|
|
00777 MOVE -0.10000 TO ACCUM-ELG-REG-MAX-RATIO (14). DTSBD790
|
|
00778 DTSBD790
|
|
00779 MOVE -0.10000 TO ACCUM-ELG-REG-MIN-RATIO (15). DTSBD790
|
|
00780 MOVE -0.09000 TO ACCUM-ELG-REG-MAX-RATIO (15). DTSBD790
|
|
00781 DTSBD790
|
|
00782 MOVE -0.09000 TO ACCUM-ELG-REG-MIN-RATIO (16). DTSBD790
|
|
00783 MOVE -0.08000 TO ACCUM-ELG-REG-MAX-RATIO (16). DTSBD790
|
|
00784 DTSBD790
|
|
00785 MOVE -0.08000 TO ACCUM-ELG-REG-MIN-RATIO (17). DTSBD790
|
|
00786 MOVE -0.07000 TO ACCUM-ELG-REG-MAX-RATIO (17). DTSBD790
|
|
00787 DTSBD790
|
|
00788 MOVE -0.07000 TO ACCUM-ELG-REG-MIN-RATIO (18). DTSBD790
|
|
00789 MOVE -0.06000 TO ACCUM-ELG-REG-MAX-RATIO (18). DTSBD790
|
|
00790 DTSBD790
|
|
00791 MOVE -0.06000 TO ACCUM-ELG-REG-MIN-RATIO (19). DTSBD790
|
|
00792 MOVE -0.05000 TO ACCUM-ELG-REG-MAX-RATIO (19). DTSBD790
|
|
00793 DTSBD790
|
|
00794 MOVE -0.05000 TO ACCUM-ELG-REG-MIN-RATIO (20). DTSBD790
|
|
00795 MOVE -0.04500 TO ACCUM-ELG-REG-MAX-RATIO (20). DTSBD790
|
|
00796 DTSBD790
|
|
00797 MOVE -0.04500 TO ACCUM-ELG-REG-MIN-RATIO (21). DTSBD790
|
|
00798 MOVE -0.04000 TO ACCUM-ELG-REG-MAX-RATIO (21). DTSBD790
|
|
00799 DTSBD790
|
|
00800 MOVE -0.04000 TO ACCUM-ELG-REG-MIN-RATIO (22). DTSBD790
|
|
00801 MOVE -0.03500 TO ACCUM-ELG-REG-MAX-RATIO (22). DTSBD790
|
|
00802 DTSBD790
|
|
00803 MOVE -0.03500 TO ACCUM-ELG-REG-MIN-RATIO (23). DTSBD790
|
|
00804 MOVE -0.03000 TO ACCUM-ELG-REG-MAX-RATIO (23). DTSBD790
|
|
00805 DTSBD790
|
|
00806 MOVE -0.03000 TO ACCUM-ELG-REG-MIN-RATIO (24). DTSBD790
|
|
00807 MOVE -0.02500 TO ACCUM-ELG-REG-MAX-RATIO (24). DTSBD790
|
|
00808 DTSBD790
|
|
00809 MOVE -0.02500 TO ACCUM-ELG-REG-MIN-RATIO (25). DTSBD790
|
|
00810 MOVE -0.02000 TO ACCUM-ELG-REG-MAX-RATIO (25). DTSBD790
|
|
00811 DTSBD790
|
|
00812 MOVE -0.02000 TO ACCUM-ELG-REG-MIN-RATIO (26). DTSBD790
|
|
00813 MOVE -0.01500 TO ACCUM-ELG-REG-MAX-RATIO (26). DTSBD790
|
|
00814 DTSBD790
|
|
00815 MOVE -0.01500 TO ACCUM-ELG-REG-MIN-RATIO (27). DTSBD790
|
|
00816 MOVE -0.01000 TO ACCUM-ELG-REG-MAX-RATIO (27). DTSBD790
|
|
00817 DTSBD790
|
|
00818 MOVE -0.01000 TO ACCUM-ELG-REG-MIN-RATIO (28). DTSBD790
|
|
00819 MOVE -0.00500 TO ACCUM-ELG-REG-MAX-RATIO (28). DTSBD790
|
|
00820 DTSBD790
|
|
00821 MOVE -0.00500 TO ACCUM-ELG-REG-MIN-RATIO (29). DTSBD790
|
|
00822 MOVE 0.00000 TO ACCUM-ELG-REG-MAX-RATIO (29). DTSBD790
|
|
00823 DTSBD790
|
|
00824 MOVE 0.00000 TO ACCUM-ELG-REG-MIN-RATIO (30). DTSBD790
|
|
00825 MOVE 0.00500 TO ACCUM-ELG-REG-MAX-RATIO (30). DTSBD790
|
|
00826 DTSBD790
|
|
00827 MOVE 0.00500 TO ACCUM-ELG-REG-MIN-RATIO (31). DTSBD790
|
|
00828 MOVE 0.01000 TO ACCUM-ELG-REG-MAX-RATIO (31). DTSBD790
|
|
00829 DTSBD790
|
|
00830 MOVE 0.01000 TO ACCUM-ELG-REG-MIN-RATIO (32). DTSBD790
|
|
00831 MOVE 0.01500 TO ACCUM-ELG-REG-MAX-RATIO (32). DTSBD790
|
|
00832 DTSBD790
|
|
00833 MOVE 0.01500 TO ACCUM-ELG-REG-MIN-RATIO (33). DTSBD790
|
|
00834 MOVE 0.02000 TO ACCUM-ELG-REG-MAX-RATIO (33). DTSBD790
|
|
00835 DTSBD790
|
|
00836 MOVE 0.02000 TO ACCUM-ELG-REG-MIN-RATIO (34). DTSBD790
|
|
00837 MOVE 0.02500 TO ACCUM-ELG-REG-MAX-RATIO (34). DTSBD790
|
|
00838 DTSBD790
|
|
00839 MOVE 0.02500 TO ACCUM-ELG-REG-MIN-RATIO (35). DTSBD790
|
|
00840 MOVE 0.03000 TO ACCUM-ELG-REG-MAX-RATIO (35). DTSBD790
|
|
00841 DTSBD790
|
|
00842 MOVE 0.03000 TO ACCUM-ELG-REG-MIN-RATIO (36). DTSBD790
|
|
00843 MOVE 0.03500 TO ACCUM-ELG-REG-MAX-RATIO (36). DTSBD790
|
|
00844 DTSBD790
|
|
00845 MOVE 0.03500 TO ACCUM-ELG-REG-MIN-RATIO (37). DTSBD790
|
|
00846 MOVE 0.04000 TO ACCUM-ELG-REG-MAX-RATIO (37). DTSBD790
|
|
00847 DTSBD790
|
|
00848 MOVE 0.04000 TO ACCUM-ELG-REG-MIN-RATIO (38). DTSBD790
|
|
00849 MOVE 0.04500 TO ACCUM-ELG-REG-MAX-RATIO (38). DTSBD790
|
|
00850 DTSBD790
|
|
00851 MOVE 0.04500 TO ACCUM-ELG-REG-MIN-RATIO (39). DTSBD790
|
|
00852 MOVE 0.05000 TO ACCUM-ELG-REG-MAX-RATIO (39). DTSBD790
|
|
00853 DTSBD790
|
|
00854 MOVE 0.05000 TO ACCUM-ELG-REG-MIN-RATIO (40). DTSBD790
|
|
00855 MOVE 0.05500 TO ACCUM-ELG-REG-MAX-RATIO (40). DTSBD790
|
|
00856 DTSBD790
|
|
00857 MOVE 0.05500 TO ACCUM-ELG-REG-MIN-RATIO (41). DTSBD790
|
|
00858 MOVE 0.06000 TO ACCUM-ELG-REG-MAX-RATIO (41). DTSBD790
|
|
00859 DTSBD790
|
|
00860 MOVE 0.06000 TO ACCUM-ELG-REG-MIN-RATIO (42). DTSBD790
|
|
00861 MOVE 0.06500 TO ACCUM-ELG-REG-MAX-RATIO (42). DTSBD790
|
|
00862 DTSBD790
|
|
00863 MOVE 0.06500 TO ACCUM-ELG-REG-MIN-RATIO (43). DTSBD790
|
|
00864 MOVE 0.07000 TO ACCUM-ELG-REG-MAX-RATIO (43). DTSBD790
|
|
00865 DTSBD790
|
|
00866 MOVE 0.07000 TO ACCUM-ELG-REG-MIN-RATIO (44). DTSBD790
|
|
00867 MOVE 0.07500 TO ACCUM-ELG-REG-MAX-RATIO (44). DTSBD790
|
|
00868 DTSBD790
|
|
00869 MOVE 0.07500 TO ACCUM-ELG-REG-MIN-RATIO (45). DTSBD790
|
|
00870 MOVE 0.08000 TO ACCUM-ELG-REG-MAX-RATIO (45). DTSBD790
|
|
00871 DTSBD790
|
|
00872 MOVE 0.08000 TO ACCUM-ELG-REG-MIN-RATIO (46). DTSBD790
|
|
00873 MOVE 0.08500 TO ACCUM-ELG-REG-MAX-RATIO (46). DTSBD790
|
|
00874 DTSBD790
|
|
00875 MOVE 0.08500 TO ACCUM-ELG-REG-MIN-RATIO (47). DTSBD790
|
|
00876 MOVE 0.09000 TO ACCUM-ELG-REG-MAX-RATIO (47). DTSBD790
|
|
00877 DTSBD790
|
|
00878 MOVE 0.09000 TO ACCUM-ELG-REG-MIN-RATIO (48). DTSBD790
|
|
00879 MOVE 0.09500 TO ACCUM-ELG-REG-MAX-RATIO (48). DTSBD790
|
|
00880 DTSBD790
|
|
00881 MOVE 0.09500 TO ACCUM-ELG-REG-MIN-RATIO (49). DTSBD790
|
|
00882 MOVE 0.10000 TO ACCUM-ELG-REG-MAX-RATIO (49). DTSBD790
|
|
00883 DTSBD790
|
|
00884 MOVE 0.10000 TO ACCUM-ELG-REG-MIN-RATIO (50). DTSBD790
|
|
00885 MOVE 0.10500 TO ACCUM-ELG-REG-MAX-RATIO (50). DTSBD790
|
|
00886 DTSBD790
|
|
00887 MOVE 0.10500 TO ACCUM-ELG-REG-MIN-RATIO (51). DTSBD790
|
|
00888 MOVE 0.11000 TO ACCUM-ELG-REG-MAX-RATIO (51). DTSBD790
|
|
00889 DTSBD790
|
|
00890 MOVE 0.11000 TO ACCUM-ELG-REG-MIN-RATIO (52). DTSBD790
|
|
00891 MOVE 0.11500 TO ACCUM-ELG-REG-MAX-RATIO (52). DTSBD790
|
|
00892 DTSBD790
|
|
00893 MOVE 0.11500 TO ACCUM-ELG-REG-MIN-RATIO (53). DTSBD790
|
|
00894 MOVE 0.12000 TO ACCUM-ELG-REG-MAX-RATIO (53). DTSBD790
|
|
00895 DTSBD790
|
|
00896 MOVE 0.12000 TO ACCUM-ELG-REG-MIN-RATIO (54). DTSBD790
|
|
00897 MOVE 0.12500 TO ACCUM-ELG-REG-MAX-RATIO (54). DTSBD790
|
|
00898 DTSBD790
|
|
00899 MOVE 0.12500 TO ACCUM-ELG-REG-MIN-RATIO (55). DTSBD790
|
|
00900 MOVE 0.13000 TO ACCUM-ELG-REG-MAX-RATIO (55). DTSBD790
|
|
00901 DTSBD790
|
|
00902 MOVE 0.13000 TO ACCUM-ELG-REG-MIN-RATIO (56). DTSBD790
|
|
00903 MOVE 0.13500 TO ACCUM-ELG-REG-MAX-RATIO (56). DTSBD790
|
|
00904 DTSBD790
|
|
00905 MOVE 0.13500 TO ACCUM-ELG-REG-MIN-RATIO (57). DTSBD790
|
|
00906 MOVE 0.14000 TO ACCUM-ELG-REG-MAX-RATIO (57). DTSBD790
|
|
00907 DTSBD790
|
|
00908 MOVE 0.14000 TO ACCUM-ELG-REG-MIN-RATIO (58). DTSBD790
|
|
00909 MOVE 0.14500 TO ACCUM-ELG-REG-MAX-RATIO (58). DTSBD790
|
|
00910 DTSBD790
|
|
00911 MOVE 0.14500 TO ACCUM-ELG-REG-MIN-RATIO (59). DTSBD790
|
|
00912 MOVE 0.15000 TO ACCUM-ELG-REG-MAX-RATIO (59). DTSBD790
|
|
00913 DTSBD790
|
|
00914 MOVE 0.15000 TO ACCUM-ELG-REG-MIN-RATIO (60). DTSBD790
|
|
00915 MOVE 0.16000 TO ACCUM-ELG-REG-MAX-RATIO (60). DTSBD790
|
|
00916 DTSBD790
|
|
00917 MOVE 0.16000 TO ACCUM-ELG-REG-MIN-RATIO (61). DTSBD790
|
|
00918 MOVE 0.17000 TO ACCUM-ELG-REG-MAX-RATIO (61). DTSBD790
|
|
00919 DTSBD790
|
|
00920 MOVE 0.17000 TO ACCUM-ELG-REG-MIN-RATIO (62). DTSBD790
|
|
00921 MOVE 0.18000 TO ACCUM-ELG-REG-MAX-RATIO (62). DTSBD790
|
|
00922 DTSBD790
|
|
00923 MOVE 0.18000 TO ACCUM-ELG-REG-MIN-RATIO (63). DTSBD790
|
|
00924 MOVE 0.19000 TO ACCUM-ELG-REG-MAX-RATIO (63). DTSBD790
|
|
00925 DTSBD790
|
|
00926 MOVE 0.19000 TO ACCUM-ELG-REG-MIN-RATIO (64). DTSBD790
|
|
00927 MOVE 0.20000 TO ACCUM-ELG-REG-MAX-RATIO (64). DTSBD790
|
|
00928 DTSBD790
|
|
00929 MOVE 0.20000 TO ACCUM-ELG-REG-MIN-RATIO (65). DTSBD790
|
|
00930 MOVE 0.25000 TO ACCUM-ELG-REG-MAX-RATIO (65). DTSBD790
|
|
00931 DTSBD790
|
|
00932 MOVE 0.25000 TO ACCUM-ELG-REG-MIN-RATIO (66). DTSBD790
|
|
00933 MOVE 0.30000 TO ACCUM-ELG-REG-MAX-RATIO (66). DTSBD790
|
|
00934 DTSBD790
|
|
00935 MOVE 0.30000 TO ACCUM-ELG-REG-MIN-RATIO (67). DTSBD790
|
|
00936 MOVE 0.35000 TO ACCUM-ELG-REG-MAX-RATIO (67). DTSBD790
|
|
00937 DTSBD790
|
|
00938 MOVE 0.35000 TO ACCUM-ELG-REG-MIN-RATIO (68). DTSBD790
|
|
00939 MOVE 0.40000 TO ACCUM-ELG-REG-MAX-RATIO (68). DTSBD790
|
|
00940 DTSBD790
|
|
00941 MOVE 0.40000 TO ACCUM-ELG-REG-MIN-RATIO (69). DTSBD790
|
|
00942 MOVE 0.45000 TO ACCUM-ELG-REG-MAX-RATIO (69). DTSBD790
|
|
00943 DTSBD790
|
|
00944 MOVE 0.45000 TO ACCUM-ELG-REG-MIN-RATIO (70). DTSBD790
|
|
00945 MOVE 99.99999 TO ACCUM-ELG-REG-MAX-RATIO (70). DTSBD790
|
|
00946 I4000-EXIT. DTSBD790
|
|
00947 EXIT. DTSBD790
|
|
00948 EJECT DTSBD790
|
|
00949 P1000-PROCESS-TAX. DTSBD790
|
|
00950 IF MPRF-CLASS-RATED-88 DTSBD790
|
|
00951 PERFORM P1100-RATED-EMPLOYER THRU P1100-EXIT DTSBD790
|
|
00952 ELSE DTSBD790
|
|
00953 IF MPRF-CLASS-SELF-INS-88 DTSBD790
|
|
00954 PERFORM P1200-SELF-INS-EMPLOYER THRU P1200-EXIT. DTSBD790
|
|
00955 P1000-EXIT. DTSBD790
|
|
00956 EXIT. DTSBD790
|
|
00957 EJECT DTSBD790
|
|
00958 P1100-RATED-EMPLOYER. DTSBD790
|
|
00959 MOVE LOW-VALUES TO MRCT-KEY-AREA. DTSBD790
|
|
00960 DTSBD790
|
|
00961 MOVE MPRF-EMP-NO TO MRCT-EMP-NO. DTSBD790
|
|
00962 DTSBD790
|
|
00963 SET MRCT-RCT-88 TO TRUE. DTSBD790
|
|
00964 DTSBD790
|
|
00965 MOVE WRK-RTE-YR-START-YRQ TO MRCT-EFF-YRQ. DTSBD790
|
|
00966 DTSBD790
|
|
00967 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. DTSBD790
|
|
00968 DTSBD790
|
|
00969 PERFORM S910-READ THRU S910-EXIT. DTSBD790
|
|
00970 DTSBD790
|
|
00971 IF L910-NO-REC-88 DTSBD790
|
|
00972 GO TO P1100-EXIT. DTSBD790
|
|
00973 DTSBD790
|
|
00974 DTSBD790
|
|
00975 MOVE MSKL-REC TO MRCT-REC. DTSBD790
|
|
00976 DTSBD790
|
|
00977 ADD MRCT-BENEFITS-CHARGED-AMT TO W-TOT-MRCT-CHG. DTSBD790
|
|
00978 IF MRCT-EMP-ACTIVE-YES-88 DTSBD790
|
|
00979 ADD MRCT-BENEFITS-CHARGED-AMT TO W-TOT-ACT-MRCT-CHG. DTSBD790
|
|
00980 DTSBD790
|
|
00981 IF MRCT-EMP-ACTIVE-NO-88 DTSBD790
|
|
00982 GO TO P1100-EXIT. DTSBD790
|
|
00983 DTSBD790
|
|
00984 DTSBD790
|
|
00985 IF MRCT-TRANSFERRED-TO-EMP-NO > +0 DTSBD790
|
|
00986 GO TO P1100-EXIT. DTSBD790
|
|
00987 DTSBD790
|
|
00988 DTSBD790
|
|
00989 ADD MRCT-BENEFITS-CHARGED-AMT TO ACCUM-LINE6A1-CHARGES. DTSBD790
|
|
00990 DTSBD790
|
|
00991 DTSBD790
|
|
00992 PERFORM S054-DETERMINE-RATE THRU S054-EXIT. DTSBD790
|
|
00993 DTSBD790
|
|
00994 DTSBD790
|
|
00995 IF L054-NO-FUIR-88 DTSBD790
|
|
00996 MOVE 'L054-NO-FUIR-88 CONDITION ENCOUNTERED' DTSBD790
|
|
00997 TO ABEND-MSG DTSBD790
|
|
00998 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
00999 DTSBD790
|
|
01000 DTSBD790
|
|
01001 IF L054-NONCLASSIFIED-88 DTSBD790
|
|
01002 ADD +1 TO R517-LINE1B-COUNT DTSBD790
|
|
01003 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01004 TO ACCUM-LINE1B-TOT-WAGES DTSBD790
|
|
01005 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01006 TO ACCUM-LINE1B-TAX-WAGES DTSBD790
|
|
01007 ELSE DTSBD790
|
|
01008 ADD +1 TO R517-LINE1A-COUNT DTSBD790
|
|
01009 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01010 TO ACCUM-LINE1A-TOT-WAGES DTSBD790
|
|
01011 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01012 TO ACCUM-LINE1A-TAX-WAGES. DTSBD790
|
|
01013 DTSBD790
|
|
01014 IF L054-CURRENT-RESERVE-AMT < 0.00 DTSBD790
|
|
01015 IF L054-NONCLASSIFIED-88 DTSBD790
|
|
01016 ADD +1 TO R517-LINE4B-COUNT DTSBD790
|
|
01017 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01018 TO ACCUM-LINE4B-TOT-WAGES DTSBD790
|
|
01019 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01020 TO ACCUM-LINE4B-TAX-WAGES DTSBD790
|
|
01021 ELSE DTSBD790
|
|
01022 ADD +1 TO R517-LINE4A-COUNT DTSBD790
|
|
01023 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01024 TO ACCUM-LINE4A-TOT-WAGES DTSBD790
|
|
01025 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01026 TO ACCUM-LINE4A-TAX-WAGES DTSBD790
|
|
01027 ELSE DTSBD790
|
|
01028 IF L054-NONCLASSIFIED-88 DTSBD790
|
|
01029 ADD +1 TO R517-LINE3B-COUNT DTSBD790
|
|
01030 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01031 TO ACCUM-LINE3B-TOT-WAGES DTSBD790
|
|
01032 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01033 TO ACCUM-LINE3B-TAX-WAGES DTSBD790
|
|
01034 ELSE DTSBD790
|
|
01035 ADD +1 TO R517-LINE3A-COUNT DTSBD790
|
|
01036 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01037 TO ACCUM-LINE3A-TOT-WAGES DTSBD790
|
|
01038 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01039 TO ACCUM-LINE3A-TAX-WAGES. DTSBD790
|
|
01040 DTSBD790
|
|
01041 DTSBD790
|
|
01042 IF L054-CLASSIFIED-88 DTSBD790
|
|
01043 IF L054-UI-PEN-RATE-NO-88 DTSBD790
|
|
01044 PERFORM P1110-ELG-REG-SECTION-C THRU P1110-EXIT DTSBD790
|
|
01045 ELSE DTSBD790
|
|
01046 PERFORM P1120-ELG-SPECIAL-SECTION-C THRU P1120-EXIT DTSBD790
|
|
01047 ELSE DTSBD790
|
|
01048 IF L054-NONCLASSIFIED-88 DTSBD790
|
|
01049 PERFORM P1130-INELG-SECTION-C THRU P1130-EXIT DTSBD790
|
|
01050 ELSE DTSBD790
|
|
01051 MOVE 'UNEXPECTED L054-UI-RATE-CATEGORY VALUE ENCOUNTERED'DTSBD790
|
|
01052 TO ABEND-MSG DTSBD790
|
|
01053 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
01054 P1100-EXIT. DTSBD790
|
|
01055 EXIT. DTSBD790
|
|
01056 SKIP3 DTSBD790
|
|
01057 P1110-ELG-REG-SECTION-C. DTSBD790
|
|
01058 MOVE +0 TO ACCUM-ELG-REG-SUB. DTSBD790
|
|
01059 DTSBD790
|
|
01060 PERFORM DTSBD790
|
|
01061 VARYING ACCUM-ELG-REG-IDX FROM 1 BY 1 DTSBD790
|
|
01062 UNTIL (ACCUM-ELG-REG-SUB NOT = +0) DTSBD790
|
|
01063 OR DTSBD790
|
|
01064 (ACCUM-ELG-REG-IDX > WRK-ELG-REG-OCC-MAX) DTSBD790
|
|
01065 IF (L054-RATIO >= ACCUM-ELG-REG-MIN-RATIO DTSBD790
|
|
01066 (ACCUM-ELG-REG-IDX)) DTSBD790
|
|
01067 AND DTSBD790
|
|
01068 (L054-RATIO <= ACCUM-ELG-REG-MAX-RATIO DTSBD790
|
|
01069 (ACCUM-ELG-REG-IDX)) DTSBD790
|
|
01070 SET ACCUM-ELG-REG-SUB TO ACCUM-ELG-REG-IDX DTSBD790
|
|
01071 END-IF DTSBD790
|
|
01072 END-PERFORM. DTSBD790
|
|
01073 DTSBD790
|
|
01074 IF ACCUM-ELG-REG-SUB = +0 DTSBD790
|
|
01075 MOVE 'UNEXPECTED L054-RATIO VALUE ENCOUNTERED' DTSBD790
|
|
01076 TO ABEND-MSG DTSBD790
|
|
01077 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
01078 DTSBD790
|
|
01079 ADD +1 DTSBD790
|
|
01080 TO ACCUM-ELG-REG-EMPLR-CNT (ACCUM-ELG-REG-SUB). DTSBD790
|
|
01081 DTSBD790
|
|
01082 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01083 TO ACCUM-ELG-REG-TOT-WAGE (ACCUM-ELG-REG-SUB). DTSBD790
|
|
01084 DTSBD790
|
|
01085 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01086 TO ACCUM-ELG-REG-TAX-WAGE (ACCUM-ELG-REG-SUB). DTSBD790
|
|
01087 DTSBD790
|
|
01088 ADD MRCT-BENEFITS-CHARGED-AMT DTSBD790
|
|
01089 TO ACCUM-ELG-REG-BEN-CHARGED (ACCUM-ELG-REG-SUB). DTSBD790
|
|
01090 DTSBD790
|
|
01091 COMPUTE ACCUM-ELG-REG-EST-UI-PAID DTSBD790
|
|
01092 (ACCUM-ELG-REG-SUB) ROUNDED DTSBD790
|
|
01093 = ACCUM-ELG-REG-EST-UI-PAID (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01094 + (MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01095 * L054-UI-CALC-RATE). DTSBD790
|
|
01096 P1110-EXIT. DTSBD790
|
|
01097 EXIT. DTSBD790
|
|
01098 SKIP3 DTSBD790
|
|
01099 P1120-ELG-SPECIAL-SECTION-C. DTSBD790
|
|
01100 ADD +1 DTSBD790
|
|
01101 TO ACCUM-ELG-SPECIAL-EMPLR-CNT. DTSBD790
|
|
01102 DTSBD790
|
|
01103 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01104 TO ACCUM-ELG-SPECIAL-TOT-WAGE. DTSBD790
|
|
01105 DTSBD790
|
|
01106 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01107 TO ACCUM-ELG-SPECIAL-TAX-WAGE. DTSBD790
|
|
01108 DTSBD790
|
|
01109 ADD MRCT-BENEFITS-CHARGED-AMT DTSBD790
|
|
01110 TO ACCUM-ELG-SPECIAL-BEN-CHARGED. DTSBD790
|
|
01111 DTSBD790
|
|
01112 IF L054-UI-PEN-RATE-YES-88 OR L054-UI-PEN-RATE-INEFF-88 DTSBD790
|
|
01113 COMPUTE ACCUM-ELG-SPECIAL-EST-UI-PAID ROUNDED DTSBD790
|
|
01114 = ACCUM-ELG-SPECIAL-EST-UI-PAID DTSBD790
|
|
01115 + (MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01116 * L054-UI-PEN-RATE) DTSBD790
|
|
01117 ELSE DTSBD790
|
|
01118 MOVE DTSBD790
|
|
01119 'UNEXPECTED L054-UI-PEN-RATE-CD VALUE ENCOUNTERED IN P1120' DTSBD790
|
|
01120 TO ABEND-MSG DTSBD790
|
|
01121 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
01122 P1120-EXIT. DTSBD790
|
|
01123 EXIT. DTSBD790
|
|
01124 SKIP3 DTSBD790
|
|
01125 P1130-INELG-SECTION-C. DTSBD790
|
|
01126 ADD +1 DTSBD790
|
|
01127 TO ACCUM-INELG-EMPLR-CNT. DTSBD790
|
|
01128 DTSBD790
|
|
01129 ADD MRCT-TOT-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01130 TO ACCUM-INELG-TOT-WAGE. DTSBD790
|
|
01131 DTSBD790
|
|
01132 ADD MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01133 TO ACCUM-INELG-TAX-WAGE. DTSBD790
|
|
01134 DTSBD790
|
|
01135 ADD MRCT-BENEFITS-CHARGED-AMT DTSBD790
|
|
01136 TO ACCUM-INELG-BEN-CHARGED. DTSBD790
|
|
01137 DTSBD790
|
|
01138 IF L054-UI-PEN-RATE-NO-88 DTSBD790
|
|
01139 COMPUTE ACCUM-INELG-EST-UI-PAID ROUNDED DTSBD790
|
|
01140 = ACCUM-INELG-EST-UI-PAID DTSBD790
|
|
01141 + (MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01142 * L054-UI-CALC-RATE) DTSBD790
|
|
01143 ELSE DTSBD790
|
|
01144 IF L054-UI-PEN-RATE-YES-88 OR L054-UI-PEN-RATE-INEFF-88 DTSBD790
|
|
01145 COMPUTE ACCUM-INELG-EST-UI-PAID ROUNDED DTSBD790
|
|
01146 = ACCUM-INELG-EST-UI-PAID DTSBD790
|
|
01147 + (MRCT-TAX-WAGE (MMAX-RCT-EXP-MAX) DTSBD790
|
|
01148 * L054-UI-PEN-RATE) DTSBD790
|
|
01149 ELSE DTSBD790
|
|
01150 MOVE DTSBD790
|
|
01151 'UNEXPECTED L054-UI-PEN-RATE-CD VALUE ENCOUNTERED IN P1130' DTSBD790
|
|
01152 TO ABEND-MSG DTSBD790
|
|
01153 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
01154 P1130-EXIT. DTSBD790
|
|
01155 EXIT. DTSBD790
|
|
01156 EJECT DTSBD790
|
|
01157 P1200-SELF-INS-EMPLOYER. DTSBD790
|
|
01158 MOVE 'N' TO ACTIVE-AT-COMPUTATION-DATE-IND. DTSBD790
|
|
01159 DTSBD790
|
|
01160 DTSBD790
|
|
01161 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD790
|
|
01162 DTSBD790
|
|
01163 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD790
|
|
01164 DTSBD790
|
|
01165 SET MSKL-SOL-88 TO TRUE. DTSBD790
|
|
01166 DTSBD790
|
|
01167 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD790
|
|
01168 DTSBD790
|
|
01169 PERFORM P1210-MSOL-SCAN THRU P1210-EXIT DTSBD790
|
|
01170 UNTIL L910-NO-REC-88. DTSBD790
|
|
01171 DTSBD790
|
|
01172 DTSBD790
|
|
01173 IF ACTIVE-AT-COMPUTATION-DATE-IND = 'N' DTSBD790
|
|
01174 GO TO P1200-EXIT. DTSBD790
|
|
01175 DTSBD790
|
|
01176 DTSBD790
|
|
01177 ADD +1 TO R517-LINE2-COUNT. DTSBD790
|
|
01178 DTSBD790
|
|
01179 DTSBD790
|
|
01180 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBD790
|
|
01181 DTSBD790
|
|
01182 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD790
|
|
01183 DTSBD790
|
|
01184 SET MQTR-QTR-88 TO TRUE. DTSBD790
|
|
01185 DTSBD790
|
|
01186 MOVE WRK-PAYROLL-START-YRQ TO MQTR-YRQ. DTSBD790
|
|
01187 DTSBD790
|
|
01188 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD790
|
|
01189 DTSBD790
|
|
01190 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD790
|
|
01191 DTSBD790
|
|
01192 PERFORM P1220-MQTR-SCAN THRU P1220-EXIT DTSBD790
|
|
01193 UNTIL L910-NO-REC-88. DTSBD790
|
|
01194 P1200-EXIT. DTSBD790
|
|
01195 EXIT. DTSBD790
|
|
01196 SKIP3 DTSBD790
|
|
01197 P1210-MSOL-SCAN. DTSBD790
|
|
01198 MOVE MSKL-REC TO MSOL-REC. DTSBD790
|
|
01199 DTSBD790
|
|
01200 IF MSOL-INACT-WITHDRAWN-88 DTSBD790
|
|
01201 NEXT SENTENCE DTSBD790
|
|
01202 ELSE DTSBD790
|
|
01203 IF (MSOL-LIAB-DATE > WRK-COMPUTATION-DATE) DTSBD790
|
|
01204 OR DTSBD790
|
|
01205 (MSOL-INACT-DATE < WRK-COMPUTATION-DATE) DTSBD790
|
|
01206 NEXT SENTENCE DTSBD790
|
|
01207 ELSE DTSBD790
|
|
01208 MOVE 'Y' TO ACTIVE-AT-COMPUTATION-DATE-IND DTSBD790
|
|
01209 SET L910-NO-REC-88 TO TRUE DTSBD790
|
|
01210 GO TO P1210-EXIT. DTSBD790
|
|
01211 DTSBD790
|
|
01212 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD790
|
|
01213 P1210-EXIT. DTSBD790
|
|
01214 EXIT. DTSBD790
|
|
01215 SKIP3 DTSBD790
|
|
01216 P1220-MQTR-SCAN. DTSBD790
|
|
01217 MOVE MSKL-REC TO MQTR-REC. DTSBD790
|
|
01218 DTSBD790
|
|
01219 IF MQTR-YRQ > WRK-PAYROLL-END-YRQ DTSBD790
|
|
01220 SET L910-NO-REC-88 TO TRUE DTSBD790
|
|
01221 GO TO P1220-EXIT. DTSBD790
|
|
01222 DTSBD790
|
|
01223 ADD MQTR-TOT-WAGE TO ACCUM-LINE2-TOT-WAGES. DTSBD790
|
|
01224 DTSBD790
|
|
01225 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD790
|
|
01226 P1220-EXIT. DTSBD790
|
|
01227 EXIT. DTSBD790
|
|
01228 EJECT DTSBD790
|
|
01229 P2000-PROCESS-CHARGE. DTSBD790
|
|
01230 DTSBD790
|
|
01231 ***** DTSBD790
|
|
01232 * DTSBD790
|
|
01233 * THE FOLLOWING CODE MUST BE REVIEWED AND, PROBABLY MODIFIED, DTSBD790
|
|
01234 * FOR DC. DTSBD790
|
|
01235 * DTSBD790
|
|
01236 * MEANING OF THE FOUR "ACCUM" DATA ELEMENTS WHICH MUST BE DTSBD790
|
|
01237 * UPDATED IN THIS PARAGRAPH ARE: DTSBD790
|
|
01238 * DTSBD790
|
|
01239 * ACCUM-LINE6A-CHARGES IS IDENTIFIED ON THE ETA 204 REPORT DTSBD790
|
|
01240 * AS "SUMMARY OF BENEFITS PAID; TOTAL FOR TAXABLE EMPLOYER DTSBD790
|
|
01241 * ACCOUNTS; CHARGED". DTSBD790
|
|
01242 * DTSBD790
|
|
01243 * ACCUM-LINE6B-CHARGES IS IDENTIFIED ON THE ETA 204 REPORT DTSBD790
|
|
01244 * AS "SUMMARY OF BENEFITS PAID; TOTAL FOR TAXABLE EMPLOYER DTSBD790
|
|
01245 * ACCOUNTS; NONCHARGED". DTSBD790
|
|
01246 * DTSBD790
|
|
01247 * ACCUM-LINE7A-CHARGES IS IDENTIFIED ON THE ETA 204 REPORT DTSBD790
|
|
01248 * AS "SUMMARY OF BENEFITS PAID; REIMBURSABLE EMPLOYER DTSBD790
|
|
01249 * ACCOUNTS; CHARGED". DTSBD790
|
|
01250 * DTSBD790
|
|
01251 * ACCUM-LINE7B-CHARGES IS IDENTIFIED ON THE ETA 204 REPORT DTSBD790
|
|
01252 * AS "SUMMARY OF BENEFITS PAID; REIMBURSABLE EMPLOYER DTSBD790
|
|
01253 * ACCOUNTS; NONCHARGED". DTSBD790
|
|
01254 * DTSBD790
|
|
01255 * DTSBD790
|
|
01256 * WHEN THIS CODE WAS WRITTEN, IT WAS UNCLEAR WHETHER, IN DC, DTSBD790
|
|
01257 * SELF INSURED EMPLOYER CHARGES CAN BE "NONCHARGED". IF DTSBD790
|
|
01258 * SELF INSURED EMPLOYER CHARGES CAN BE "NONCHARGED", THEN DTSBD790
|
|
01259 * THE CHARGE DETAIL RECORDS ASSOCIATED WITH SELF INSURED DTSBD790
|
|
01260 * "NONCHARGED" AMOUNTS MUST BE IDENTIFIED AND ACCUM-LINE7B- DTSBD790
|
|
01261 * CHARGES UPDATED AS APPROPRIATE. DTSBD790
|
|
01262 * DTSBD790
|
|
01263 * 11/23/1999: SELF-INSURED EMPLOYERS CANNOT BE RELIEVED OF DTSBD790
|
|
01264 * CHARGES IN DC. - GD DTSBD790
|
|
01265 * ACCOUNT NUMBERS 999000 - 999008 ARE OVERPAYMENT POOL ACCOUNTSDTSBD790
|
|
01266 * USED WHEN RATED EMPLOYERS ARE RELIEVED OF CHARGES FOR DTSBD790
|
|
01267 * BENEFITS OVERPAID. DTSBD790
|
|
01268 * EMPLOYER TYPE 05 IS THE 'VOLUNARY QUIT' POOL ACCOUNT. DTSBD790
|
|
01269 * EMPLOYER TYPE 06 IS THE 'MISCONDUCT' POOL ACCOUNT. DTSBD790
|
|
01270 * EMPLOYER TYPE 15 IS THE 'CONTINUING EMPLOYMENT' POOL ACCOUNT.DTSBD790
|
|
01271 ***** DTSBD790
|
|
01272 DTSBD790
|
|
01273 ** MOVE WRK-BEGIN-DATE TO CHG2-CHARGE-DATE. DTSBD790
|
|
01274 MOVE WRK-BEN-CHRG-YEAR-START-DATE TO CHG2-CHARGE-DATE. DTSBD790
|
|
01275 MOVE +0 TO CHG2-EMP-NO DTSBD790
|
|
01276 CHG2-SSN DTSBD790
|
|
01277 CHG2-BYE. DTSBD790
|
|
01278 MOVE 0 TO CHG2-PROGRAM. DTSBD790
|
|
01279 START BEN-CHG-FILE-IN DTSBD790
|
|
01280 KEY IS >= CHG2-KEY-AREA. DTSBD790
|
|
01281 DTSBD790
|
|
01282 IF NOT BEN-FILE-OK-88 DTSBD790
|
|
01283 DISPLAY 'BEN CHG FIRST READ ERROR: ' BEN-CHG-STATUS DTSBD790
|
|
01284 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
01285 DTSBD790
|
|
01286 PERFORM P2100-ACCUM-CHARGES THRU P2100-EXIT DTSBD790
|
|
01287 UNTIL BEN-FILE-EOF-88. DTSBD790
|
|
01288 DTSBD790
|
|
01289 P2000-EXIT. DTSBD790
|
|
01290 EXIT. DTSBD790
|
|
01291 EJECT DTSBD790
|
|
01292 P2100-ACCUM-CHARGES. DTSBD790
|
|
01293 READ BEN-CHG-FILE-IN NEXT. DTSBD790
|
|
01294 DTSBD790
|
|
01295 IF BEN-FILE-EOF-88 DTSBD790
|
|
01296 GO TO P2100-EXIT DTSBD790
|
|
01297 ELSE DTSBD790
|
|
01298 IF NOT BEN-FILE-OK-88 DTSBD790
|
|
01299 DISPLAY 'BEN CHG FILE READ ERROR: ' BEN-CHG-STATUS DTSBD790
|
|
01300 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
01301 DTSBD790
|
|
01302 IF CHG2-CHARGE-DATE > WRK-BEN-CHRG-YEAR-END-DATE DTSBD790
|
|
01303 SET BEN-FILE-EOF-88 TO TRUE DTSBD790
|
|
01304 GO TO P2100-EXIT. DTSBD790
|
|
01305 DTSBD790
|
|
01306 IF CHG2-PROG-UI DTSBD790
|
|
01307 NEXT SENTENCE DTSBD790
|
|
01308 ELSE DTSBD790
|
|
01309 GO TO P2100-EXIT. DTSBD790
|
|
01310 DTSBD790
|
|
01311 ADD 1 TO WRK-BEN-CHG-READ DTSBD790
|
|
01312 COMPUTE WRK-CHARGE-CURR-AMT = WRK-CHARGE-CURR-AMT + DTSBD790
|
|
01313 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT). DTSBD790
|
|
01314 DTSBD790
|
|
01315 DTSBD790
|
|
01316 ************************************************************** DTSBD790
|
|
01317 * NEW DTSBD790
|
|
01318 ************************************************************** DTSBD790
|
|
01319 IF CHG2-EMP-TYPE = 00 DTSBD790
|
|
01320 IF (CHG2-EMP-NO < 999000) OR (CHG2-EMP-NO > 999008) DTSBD790
|
|
01321 COMPUTE ACCUM-LINE6A-CHARGES = ACCUM-LINE6A-CHARGES + DTSBD790
|
|
01322 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01323 ELSE DTSBD790
|
|
01324 COMPUTE ACCUM-LINE6B-CHARGES = ACCUM-LINE6B-CHARGES + DTSBD790
|
|
01325 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01326 END-IF DTSBD790
|
|
01327 ELSE DTSBD790
|
|
01328 IF CHG2-EMP-TYPE = DTSBD790
|
|
01329 (05 OR 06 OR 09 OR 13 OR 15 OR 17 OR 18) DTSBD790
|
|
01330 COMPUTE ACCUM-LINE6B-CHARGES = ACCUM-LINE6B-CHARGES + DTSBD790
|
|
01331 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01332 ELSE DTSBD790
|
|
01333 IF CHG2-EMP-TYPE = (04 OR 07 OR 08 OR 10) DTSBD790
|
|
01334 COMPUTE ACCUM-LINE7A-CHARGES = ACCUM-LINE7A-CHARGES DTSBD790
|
|
01335 + (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01336 END-IF DTSBD790
|
|
01337 END-IF DTSBD790
|
|
01338 END-IF. DTSBD790
|
|
01339 DTSBD790
|
|
01340 ***************************************************************** DTSBD790
|
|
01341 * ORIGINAL VERSION AS OF 11/24/2008 - START DTSBD790
|
|
01342 * *( MARKS CODE INCLUDED. DTSBD790
|
|
01343 ***************************************************************** DTSBD790
|
|
01344 *( IF CHG2-EMP-TYPE = 00 DTSBD790
|
|
01345 *( IF (CHG2-EMP-NO < 999000) OR (CHG2-EMP-NO > 999008) DTSBD790
|
|
01346 *( COMPUTE ACCUM-LINE6A-CHARGES = ACCUM-LINE6A-CHARGES + DTSBD790
|
|
01347 *( (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01348 *( ELSE DTSBD790
|
|
01349 *( PERFORM P2110-NON-CHARGE THRU P2110-EXIT DTSBD790
|
|
01350 ** COMPUTE ACCUM-LINE6B-CHARGES = ACCUM-LINE6B-CHARGES + DTSBD790
|
|
01351 ** (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01352 *( END-IF DTSBD790
|
|
01353 *( ELSE DTSBD790
|
|
01354 *( IF CHG2-EMP-TYPE = 05 OR 06 OR 15 DTSBD790
|
|
01355 *( PERFORM P2110-NON-CHARGE THRU P2110-EXIT DTSBD790
|
|
01356 ** COMPUTE ACCUM-LINE6B-CHARGES = ACCUM-LINE6B-CHARGES + DTSBD790
|
|
01357 ** (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01358 *( ELSE DTSBD790
|
|
01359 *** CHANGED 7/23/2007 TO INCLUDE SELF-INSURED, DC GOVERNMENT, DTSBD790
|
|
01360 *** THE STATE SHARE OF EB, AND DC-LIABLE INTERSTATE DTSBD790
|
|
01361 *( IF CHG2-EMP-TYPE = (04 OR 07 OR 08 OR 10) DTSBD790
|
|
01362 *( COMPUTE ACCUM-LINE7A-CHARGES = ACCUM-LINE7A-CHARGES DTSBD790
|
|
01363 *( + (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01364 *& DTSBD790
|
|
01365 *( COMPUTE WRK-CHG-AMT = DTSBD790
|
|
01366 *( (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01367 *( IF WRK-CHG-AMT < -1000 DTSBD790
|
|
01368 *( ADD WRK-CHG-AMT TO WRK-NEG6B-TOT DTSBD790
|
|
01369 *( MOVE CHG2-CURR-BEN-AMT TO DISPLAY-AMT DTSBD790
|
|
01370 *( MOVE CHG2-CURR-ADJ-AMT TO DISPLAY-AMT1 DTSBD790
|
|
01371 *( DISPLAY 'NEG LINE 6B ' CHG2-EMP-NO ' SSN ' CHG2-SSN DTSBD790
|
|
01372 *( ' BYE ' CHG2-BYE ' PROG ' CHG2-PROGRAM DTSBD790
|
|
01373 *( DISPLAY ' CURR ' DISPLAY-AMT ' ADJ ' DISPLAY-AMT1 DTSBD790
|
|
01374 *( ' TYPE ' CHG2-EMP-TYPE ' DATE ' CHG2-CHARGE-DATE DTSBD790
|
|
01375 *( END-IF DTSBD790
|
|
01376 *& DTSBD790
|
|
01377 *( END-IF DTSBD790
|
|
01378 *( END-IF. DTSBD790
|
|
01379 ***************************************************************** DTSBD790
|
|
01380 * ORIGINAL VERSION AS OF 11/24/2008 - END DTSBD790
|
|
01381 ***************************************************************** DTSBD790
|
|
01382 DTSBD790
|
|
01383 P2100-EXIT. DTSBD790
|
|
01384 EXIT. DTSBD790
|
|
01385 DTSBD790
|
|
01386 P2110-NON-CHARGE. DTSBD790
|
|
01387 IF (CHG2-BYE = ZERO) OR (CHG2-CHARGE-DATE < 20010101) DTSBD790
|
|
01388 COMPUTE ACCUM-LINE6B-CHARGES = ACCUM-LINE6B-CHARGES + DTSBD790
|
|
01389 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01390 *& DTSBD790
|
|
01391 COMPUTE WRK-CHG-AMT = DTSBD790
|
|
01392 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01393 IF WRK-CHG-AMT < ZERO DTSBD790
|
|
01394 ADD WRK-CHG-AMT TO WRK-NEG6B-TOT DTSBD790
|
|
01395 MOVE CHG2-CURR-BEN-AMT TO DISPLAY-AMT DTSBD790
|
|
01396 MOVE CHG2-CURR-ADJ-AMT TO DISPLAY-AMT1 DTSBD790
|
|
01397 DISPLAY 'NEG LINE 6B ' CHG2-EMP-NO ' SSN ' CHG2-SSN DTSBD790
|
|
01398 ' BYE ' CHG2-BYE ' PROG ' CHG2-PROGRAM DTSBD790
|
|
01399 DISPLAY ' CURR ' DISPLAY-AMT ' ADJ ' DISPLAY-AMT1 DTSBD790
|
|
01400 ' TYPE ' CHG2-EMP-TYPE ' DATE ' CHG2-CHARGE-DATE DTSBD790
|
|
01401 ELSE DTSBD790
|
|
01402 ADD WRK-CHG-AMT TO WRK-POS6B-TOT DTSBD790
|
|
01403 END-IF DTSBD790
|
|
01404 *& DTSBD790
|
|
01405 ELSE DTSBD790
|
|
01406 IF CHG2-BYE < 20010101 DTSBD790
|
|
01407 NEXT SENTENCE DTSBD790
|
|
01408 ELSE DTSBD790
|
|
01409 COMPUTE ACCUM-LINE6B-CHARGES = ACCUM-LINE6B-CHARGES + DTSBD790
|
|
01410 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01411 *& DTSBD790
|
|
01412 COMPUTE WRK-CHG-AMT = DTSBD790
|
|
01413 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) DTSBD790
|
|
01414 IF WRK-CHG-AMT < ZERO DTSBD790
|
|
01415 ADD WRK-CHG-AMT TO WRK-NEG6B-TOT DTSBD790
|
|
01416 MOVE CHG2-CURR-BEN-AMT TO DISPLAY-AMT DTSBD790
|
|
01417 MOVE CHG2-CURR-ADJ-AMT TO DISPLAY-AMT1 DTSBD790
|
|
01418 *& DISPLAY 'NEG LINE 6B ' CHG2-EMP-NO ' SSN ' CHG2-SSN DTSBD790
|
|
01419 * ' BYE ' CHG2-BYE ' PROG ' CHG2-PROGRAM DTSBD790
|
|
01420 * DISPLAY ' CURR ' DISPLAY-AMT ' ADJ ' DISPLAY-AMT1 DTSBD790
|
|
01421 *& ' TYPE ' CHG2-EMP-TYPE ' DATE ' CHG2-CHARGE-DATE DTSBD790
|
|
01422 ELSE DTSBD790
|
|
01423 ADD WRK-CHG-AMT TO WRK-POS6B-TOT DTSBD790
|
|
01424 END-IF. DTSBD790
|
|
01425 *& DTSBD790
|
|
01426 DTSBD790
|
|
01427 P2110-EXIT. DTSBD790
|
|
01428 EXIT. DTSBD790
|
|
01429 DTSBD790
|
|
01430 T0000-TERMINATE. DTSBD790
|
|
01431 PERFORM T1000-CONSTRUCT-WRITE-R517 THRU T1000-EXIT. DTSBD790
|
|
01432 DTSBD790
|
|
01433 PERFORM T1100-BUILD-DOWNLOAD THRU T1100-EXIT. DTSBD790
|
|
01434 DTSBD790
|
|
01435 PERFORM T2000-TERMINATION-DISPLAYS THRU T2000-EXIT. DTSBD790
|
|
01436 DTSBD790
|
|
01437 PERFORM SBCF-CLOSE THRU SBCF-EXIT. DTSBD790
|
|
01438 DTSBD790
|
|
01439 PERFORM S910-CLOSE THRU S910-EXIT. DTSBD790
|
|
01440 DTSBD790
|
|
01441 PERFORM S931-CLOSE THRU S931-EXIT. DTSBD790
|
|
01442 DTSBD790
|
|
01443 MOVE -1 TO R517-LENGTH. DTSBD790
|
|
01444 DTSBD790
|
|
01445 PERFORM S946-WRITE-R517 THRU S946-EXIT. DTSBD790
|
|
01446 DTSBD790
|
|
01447 DTSBD790
|
|
01448 T0000-EXIT. DTSBD790
|
|
01449 EXIT. DTSBD790
|
|
01450 SKIP3 DTSBD790
|
|
01451 T1000-CONSTRUCT-WRITE-R517. DTSBD790
|
|
01452 COMPUTE R517-LINE1A-TOT-WAGES ROUNDED DTSBD790
|
|
01453 = ACCUM-LINE1A-TOT-WAGES. DTSBD790
|
|
01454 DTSBD790
|
|
01455 COMPUTE R517-LINE1A-TAX-WAGES ROUNDED DTSBD790
|
|
01456 = ACCUM-LINE1A-TAX-WAGES. DTSBD790
|
|
01457 DTSBD790
|
|
01458 COMPUTE R517-LINE1B-TOT-WAGES ROUNDED DTSBD790
|
|
01459 = ACCUM-LINE1B-TOT-WAGES. DTSBD790
|
|
01460 DTSBD790
|
|
01461 COMPUTE R517-LINE1B-TAX-WAGES ROUNDED DTSBD790
|
|
01462 = ACCUM-LINE1B-TAX-WAGES. DTSBD790
|
|
01463 DTSBD790
|
|
01464 COMPUTE R517-LINE2-TOT-WAGES ROUNDED DTSBD790
|
|
01465 = ACCUM-LINE2-TOT-WAGES. DTSBD790
|
|
01466 DTSBD790
|
|
01467 COMPUTE R517-LINE3A-TOT-WAGES ROUNDED DTSBD790
|
|
01468 = ACCUM-LINE3A-TOT-WAGES. DTSBD790
|
|
01469 DTSBD790
|
|
01470 COMPUTE R517-LINE3A-TAX-WAGES ROUNDED DTSBD790
|
|
01471 = ACCUM-LINE3A-TAX-WAGES. DTSBD790
|
|
01472 DTSBD790
|
|
01473 COMPUTE R517-LINE3B-TOT-WAGES ROUNDED DTSBD790
|
|
01474 = ACCUM-LINE3B-TOT-WAGES. DTSBD790
|
|
01475 DTSBD790
|
|
01476 COMPUTE R517-LINE3B-TAX-WAGES ROUNDED DTSBD790
|
|
01477 = ACCUM-LINE3B-TAX-WAGES. DTSBD790
|
|
01478 DTSBD790
|
|
01479 COMPUTE R517-LINE4A-TOT-WAGES ROUNDED DTSBD790
|
|
01480 = ACCUM-LINE4A-TOT-WAGES. DTSBD790
|
|
01481 DTSBD790
|
|
01482 COMPUTE R517-LINE4A-TAX-WAGES ROUNDED DTSBD790
|
|
01483 = ACCUM-LINE4A-TAX-WAGES. DTSBD790
|
|
01484 DTSBD790
|
|
01485 COMPUTE R517-LINE4B-TOT-WAGES ROUNDED DTSBD790
|
|
01486 = ACCUM-LINE4B-TOT-WAGES. DTSBD790
|
|
01487 DTSBD790
|
|
01488 COMPUTE R517-LINE4B-TAX-WAGES ROUNDED DTSBD790
|
|
01489 = ACCUM-LINE4B-TAX-WAGES. DTSBD790
|
|
01490 DTSBD790
|
|
01491 DTSBD790
|
|
01492 COMPUTE R517-LINE6A-CHARGES ROUNDED DTSBD790
|
|
01493 = ACCUM-LINE6A-CHARGES. DTSBD790
|
|
01494 DTSBD790
|
|
01495 COMPUTE R517-LINE6A1-CHARGES ROUNDED DTSBD790
|
|
01496 = ACCUM-LINE6A1-CHARGES. DTSBD790
|
|
01497 DTSBD790
|
|
01498 COMPUTE R517-LINE6B-CHARGES ROUNDED DTSBD790
|
|
01499 = ACCUM-LINE6B-CHARGES. DTSBD790
|
|
01500 DTSBD790
|
|
01501 COMPUTE R517-LINE7A-CHARGES ROUNDED DTSBD790
|
|
01502 = ACCUM-LINE7A-CHARGES. DTSBD790
|
|
01503 DTSBD790
|
|
01504 COMPUTE R517-LINE7B-CHARGES ROUNDED DTSBD790
|
|
01505 = ACCUM-LINE7B-CHARGES. DTSBD790
|
|
01506 DTSBD790
|
|
01507 DTSBD790
|
|
01508 MOVE WRK-ELG-REG-OCC-MAX TO R517-ELG-REG-OCC-CNT. DTSBD790
|
|
01509 DTSBD790
|
|
01510 DTSBD790
|
|
01511 PERFORM DTSBD790
|
|
01512 VARYING ACCUM-ELG-REG-SUB FROM 1 BY 1 DTSBD790
|
|
01513 UNTIL ACCUM-ELG-REG-SUB > R517-ELG-REG-OCC-CNT DTSBD790
|
|
01514 COMPUTE R517-ELG-REG-MIN-RATIO (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01515 = ACCUM-ELG-REG-MIN-RATIO (ACCUM-ELG-REG-SUB) * 100 DTSBD790
|
|
01516 COMPUTE R517-ELG-REG-MAX-RATIO (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01517 = ACCUM-ELG-REG-MAX-RATIO (ACCUM-ELG-REG-SUB) * 100 DTSBD790
|
|
01518 MOVE ACCUM-ELG-REG-EMPLR-CNT (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01519 TO R517-ELG-REG-EMPLR-CNT (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01520 COMPUTE R517-ELG-REG-TOT-WAGE DTSBD790
|
|
01521 (ACCUM-ELG-REG-SUB) ROUNDED DTSBD790
|
|
01522 = ACCUM-ELG-REG-TOT-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01523 COMPUTE R517-ELG-REG-TAX-WAGE DTSBD790
|
|
01524 (ACCUM-ELG-REG-SUB) ROUNDED DTSBD790
|
|
01525 = ACCUM-ELG-REG-TAX-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01526 COMPUTE R517-ELG-REG-BEN-CHARGED DTSBD790
|
|
01527 (ACCUM-ELG-REG-SUB) ROUNDED DTSBD790
|
|
01528 = ACCUM-ELG-REG-BEN-CHARGED (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01529 COMPUTE R517-ELG-REG-EST-UI-PAID DTSBD790
|
|
01530 (ACCUM-ELG-REG-SUB) ROUNDED DTSBD790
|
|
01531 = ACCUM-ELG-REG-EST-UI-PAID (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01532 END-PERFORM. DTSBD790
|
|
01533 DTSBD790
|
|
01534 DTSBD790
|
|
01535 MOVE ACCUM-ELG-SPECIAL-EMPLR-CNT DTSBD790
|
|
01536 TO R517-ELG-SPECIAL-EMPLR-CNT. DTSBD790
|
|
01537 DTSBD790
|
|
01538 COMPUTE R517-ELG-SPECIAL-TOT-WAGE ROUNDED DTSBD790
|
|
01539 = ACCUM-ELG-SPECIAL-TOT-WAGE. DTSBD790
|
|
01540 DTSBD790
|
|
01541 COMPUTE R517-ELG-SPECIAL-TAX-WAGE ROUNDED DTSBD790
|
|
01542 = ACCUM-ELG-SPECIAL-TAX-WAGE. DTSBD790
|
|
01543 DTSBD790
|
|
01544 COMPUTE R517-ELG-SPECIAL-BEN-CHARGED ROUNDED DTSBD790
|
|
01545 = ACCUM-ELG-SPECIAL-BEN-CHARGED. DTSBD790
|
|
01546 DTSBD790
|
|
01547 COMPUTE R517-ELG-SPECIAL-EST-UI-PAID ROUNDED DTSBD790
|
|
01548 = ACCUM-ELG-SPECIAL-EST-UI-PAID. DTSBD790
|
|
01549 DTSBD790
|
|
01550 DTSBD790
|
|
01551 MOVE ACCUM-INELG-EMPLR-CNT DTSBD790
|
|
01552 TO R517-INELG-EMPLR-CNT. DTSBD790
|
|
01553 DTSBD790
|
|
01554 COMPUTE R517-INELG-TOT-WAGE ROUNDED DTSBD790
|
|
01555 = ACCUM-INELG-TOT-WAGE. DTSBD790
|
|
01556 DTSBD790
|
|
01557 COMPUTE R517-INELG-TAX-WAGE ROUNDED DTSBD790
|
|
01558 = ACCUM-INELG-TAX-WAGE. DTSBD790
|
|
01559 DTSBD790
|
|
01560 COMPUTE R517-INELG-BEN-CHARGED ROUNDED DTSBD790
|
|
01561 = ACCUM-INELG-BEN-CHARGED. DTSBD790
|
|
01562 DTSBD790
|
|
01563 COMPUTE R517-INELG-EST-UI-PAID ROUNDED DTSBD790
|
|
01564 = ACCUM-INELG-EST-UI-PAID. DTSBD790
|
|
01565 DTSBD790
|
|
01566 DTSBD790
|
|
01567 PERFORM S946-WRITE-R517 THRU S946-EXIT. DTSBD790
|
|
01568 T1000-EXIT. DTSBD790
|
|
01569 EXIT. DTSBD790
|
|
01570 SKIP3 DTSBD790
|
|
01571 T1100-BUILD-DOWNLOAD. DTSBD790
|
|
01572 PERFORM T1110-WRITE-RPT-DATE THRU T1110-EXIT. DTSBD790
|
|
01573 DTSBD790
|
|
01574 *& DTSBD790
|
|
01575 DISPLAY 'T1100 DWN-TOTAL ' DWN-TOTAL. DTSBD790
|
|
01576 *& DTSBD790
|
|
01577 PERFORM DTSBD790
|
|
01578 VARYING ACCUM-ELG-REG-SUB FROM 1 BY 1 DTSBD790
|
|
01579 UNTIL ACCUM-ELG-REG-SUB > WRK-ELG-REG-OCC-MAX DTSBD790
|
|
01580 PERFORM T1130-WRITE-AVG-RATE THRU T1130-EXIT DTSBD790
|
|
01581 MOVE ACCUM-ELG-REG-EMPLR-CNT (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01582 TO DWN-TOTAL DTSBD790
|
|
01583 ADD ACCUM-ELG-REG-EMPLR-CNT (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01584 TO TOTAL-ELG-REG-EMPLR-CNT DTSBD790
|
|
01585 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT DTSBD790
|
|
01586 COMPUTE DWN-TOTAL = DTSBD790
|
|
01587 ACCUM-ELG-REG-TOT-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01588 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000) DTSBD790
|
|
01589 ADD ACCUM-ELG-REG-TOT-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01590 TO TOTAL-ELG-REG-TOT-WAGE DTSBD790
|
|
01591 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT DTSBD790
|
|
01592 COMPUTE DWN-TOTAL = DTSBD790
|
|
01593 ACCUM-ELG-REG-TAX-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01594 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000) DTSBD790
|
|
01595 ADD ACCUM-ELG-REG-TAX-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01596 TO TOTAL-ELG-REG-TAX-WAGE DTSBD790
|
|
01597 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT DTSBD790
|
|
01598 COMPUTE DWN-TOTAL = DTSBD790
|
|
01599 ACCUM-ELG-REG-BEN-CHARGED (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01600 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000) DTSBD790
|
|
01601 ADD ACCUM-ELG-REG-BEN-CHARGED (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01602 TO TOTAL-ELG-REG-BEN-CHARGED DTSBD790
|
|
01603 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT DTSBD790
|
|
01604 COMPUTE DWN-TOTAL = DTSBD790
|
|
01605 ACCUM-ELG-REG-EST-UI-PAID (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01606 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000) DTSBD790
|
|
01607 ADD ACCUM-ELG-REG-EST-UI-PAID (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01608 TO TOTAL-ELG-REG-EST-UI-PAID DTSBD790
|
|
01609 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT DTSBD790
|
|
01610 END-PERFORM. DTSBD790
|
|
01611 DTSBD790
|
|
01612 *** REGULAR/ELIGIBLE TOTALS *** DTSBD790
|
|
01613 MOVE TOTAL-ELG-REG-EST-UI-PAID TO DWN-CONTRIB. DTSBD790
|
|
01614 MOVE TOTAL-ELG-REG-TAX-WAGE TO DWN-TAX-WAGE. DTSBD790
|
|
01615 PERFORM T1140-WRITE-TOTAL-AVG-RATE THRU T1140-EXIT. DTSBD790
|
|
01616 DTSBD790
|
|
01617 MOVE TOTAL-ELG-REG-EMPLR-CNT TO DWN-TOTAL. DTSBD790
|
|
01618 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01619 DTSBD790
|
|
01620 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-TOT-WAGE. DTSBD790
|
|
01621 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01622 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01623 DTSBD790
|
|
01624 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-TAX-WAGE. DTSBD790
|
|
01625 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01626 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01627 DTSBD790
|
|
01628 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-BEN-CHARGED. DTSBD790
|
|
01629 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01630 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01631 DTSBD790
|
|
01632 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-EST-UI-PAID. DTSBD790
|
|
01633 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01634 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01635 DTSBD790
|
|
01636 *** SPECIALLY TAXED TOTALS *** DTSBD790
|
|
01637 MOVE 0.00 TO DWN-AVG-RATE. DTSBD790
|
|
01638 MOVE DWN-AVG-RATE TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01639 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01640 DTSBD790
|
|
01641 MOVE '0' TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01642 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01643 DTSBD790
|
|
01644 MOVE '0' TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01645 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01646 DTSBD790
|
|
01647 MOVE '0' TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01648 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01649 DTSBD790
|
|
01650 MOVE '0' TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01651 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01652 DTSBD790
|
|
01653 MOVE '0' TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01654 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01655 DTSBD790
|
|
01656 *** REGULAR/ELIGIBLE GRAND TOTALS *** DTSBD790
|
|
01657 MOVE TOTAL-ELG-REG-EST-UI-PAID TO DWN-CONTRIB. DTSBD790
|
|
01658 MOVE TOTAL-ELG-REG-TAX-WAGE TO DWN-TAX-WAGE. DTSBD790
|
|
01659 PERFORM T1140-WRITE-TOTAL-AVG-RATE THRU T1140-EXIT. DTSBD790
|
|
01660 DTSBD790
|
|
01661 MOVE TOTAL-ELG-REG-EMPLR-CNT TO DWN-TOTAL. DTSBD790
|
|
01662 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01663 DTSBD790
|
|
01664 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-TOT-WAGE. DTSBD790
|
|
01665 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01666 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01667 DTSBD790
|
|
01668 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-TAX-WAGE. DTSBD790
|
|
01669 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01670 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01671 DTSBD790
|
|
01672 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-BEN-CHARGED. DTSBD790
|
|
01673 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01674 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01675 DTSBD790
|
|
01676 COMPUTE DWN-TOTAL = TOTAL-ELG-REG-EST-UI-PAID. DTSBD790
|
|
01677 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01678 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01679 DTSBD790
|
|
01680 *** REGULAR/INELIGIBLE TOTALS *** DTSBD790
|
|
01681 MOVE ACCUM-INELG-EST-UI-PAID TO DWN-CONTRIB. DTSBD790
|
|
01682 MOVE ACCUM-INELG-TAX-WAGE TO DWN-TAX-WAGE. DTSBD790
|
|
01683 PERFORM T1140-WRITE-TOTAL-AVG-RATE THRU T1140-EXIT. DTSBD790
|
|
01684 DTSBD790
|
|
01685 MOVE ACCUM-INELG-EMPLR-CNT TO DWN-TOTAL. DTSBD790
|
|
01686 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01687 DTSBD790
|
|
01688 COMPUTE DWN-TOTAL = ACCUM-INELG-TOT-WAGE. DTSBD790
|
|
01689 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01690 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01691 DTSBD790
|
|
01692 COMPUTE DWN-TOTAL = ACCUM-INELG-TAX-WAGE. DTSBD790
|
|
01693 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01694 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01695 DTSBD790
|
|
01696 COMPUTE DWN-TOTAL = ACCUM-INELG-BEN-CHARGED. DTSBD790
|
|
01697 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01698 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01699 DTSBD790
|
|
01700 COMPUTE DWN-TOTAL = ACCUM-INELG-EST-UI-PAID. DTSBD790
|
|
01701 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01702 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01703 DTSBD790
|
|
01704 *** GRAND TOTAL *** DTSBD790
|
|
01705 COMPUTE DWN-CONTRIB = DTSBD790
|
|
01706 (TOTAL-ELG-REG-EST-UI-PAID + ACCUM-INELG-EST-UI-PAID). DTSBD790
|
|
01707 COMPUTE DWN-TAX-WAGE = DTSBD790
|
|
01708 (TOTAL-ELG-REG-TAX-WAGE + ACCUM-INELG-TAX-WAGE). DTSBD790
|
|
01709 PERFORM T1140-WRITE-TOTAL-AVG-RATE THRU T1140-EXIT. DTSBD790
|
|
01710 DTSBD790
|
|
01711 COMPUTE DWN-TOTAL = DTSBD790
|
|
01712 (TOTAL-ELG-REG-EMPLR-CNT + ACCUM-INELG-EMPLR-CNT) DTSBD790
|
|
01713 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01714 DTSBD790
|
|
01715 COMPUTE DWN-TOTAL = DTSBD790
|
|
01716 (TOTAL-ELG-REG-TOT-WAGE + ACCUM-INELG-TOT-WAGE). DTSBD790
|
|
01717 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01718 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01719 DTSBD790
|
|
01720 COMPUTE DWN-TOTAL = DTSBD790
|
|
01721 (TOTAL-ELG-REG-TAX-WAGE + ACCUM-INELG-TAX-WAGE). DTSBD790
|
|
01722 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01723 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01724 DTSBD790
|
|
01725 COMPUTE DWN-TOTAL = DTSBD790
|
|
01726 (TOTAL-ELG-REG-BEN-CHARGED + ACCUM-INELG-BEN-CHARGED). DTSBD790
|
|
01727 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01728 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01729 DTSBD790
|
|
01730 COMPUTE DWN-TOTAL = DTSBD790
|
|
01731 (TOTAL-ELG-REG-EST-UI-PAID + ACCUM-INELG-EST-UI-PAID). DTSBD790
|
|
01732 COMPUTE DWN-TOTAL ROUNDED = (DWN-TOTAL / 1000). DTSBD790
|
|
01733 PERFORM T1120-WRITE-TOTAL THRU T1120-EXIT. DTSBD790
|
|
01734 DTSBD790
|
|
01735 T1100-EXIT. DTSBD790
|
|
01736 EXIT. DTSBD790
|
|
01737 SKIP3 DTSBD790
|
|
01738 T1110-WRITE-RPT-DATE. DTSBD790
|
|
01739 MOVE WRK-RTE-YR-END-DATE TO L001-FED-8-DATE-9. DTSBD790
|
|
01740 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD790
|
|
01741 MOVE L001-CAL-8-DATE-9 TO DWN-RPT-DATE. DTSBD790
|
|
01742 MOVE DWN-RPT-DATE TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01743 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01744 DTSBD790
|
|
01745 T1110-EXIT. DTSBD790
|
|
01746 EXIT. DTSBD790
|
|
01747 SKIP3 DTSBD790
|
|
01748 T1120-WRITE-TOTAL. DTSBD790
|
|
01749 *& DTSBD790
|
|
01750 DISPLAY 'T1120 DWN-TOTAL ' DWN-TOTAL. DTSBD790
|
|
01751 *& DTSBD790
|
|
01752 MOVE DWN-TOTAL TO DWN-TOTAL-DISP. DTSBD790
|
|
01753 PERFORM SDWN03-WRITE-TOTAL THRU SDWN03-EXIT. DTSBD790
|
|
01754 DTSBD790
|
|
01755 T1120-EXIT. DTSBD790
|
|
01756 EXIT. DTSBD790
|
|
01757 SKIP3 DTSBD790
|
|
01758 T1130-WRITE-AVG-RATE. DTSBD790
|
|
01759 *& DTSBD790
|
|
01760 DISPLAY 'T1130 UI-PAID ' DTSBD790
|
|
01761 ACCUM-ELG-REG-EST-UI-PAID (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01762 ' ' ACCUM-ELG-REG-SUB. DTSBD790
|
|
01763 DISPLAY 'T1130 TAX WAGE ' DTSBD790
|
|
01764 ACCUM-ELG-REG-TAX-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01765 ' ' ACCUM-ELG-REG-SUB. DTSBD790
|
|
01766 *& DTSBD790
|
|
01767 MOVE ACCUM-ELG-REG-EST-UI-PAID (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01768 TO DWN-CONTRIB. DTSBD790
|
|
01769 MOVE ACCUM-ELG-REG-TAX-WAGE (ACCUM-ELG-REG-SUB) DTSBD790
|
|
01770 TO DWN-TAX-WAGE. DTSBD790
|
|
01771 COMPUTE DWN-AVERAGE ROUNDED = DTSBD790
|
|
01772 (DWN-CONTRIB / DWN-TAX-WAGE) * 100. DTSBD790
|
|
01773 COMPUTE DWN-AVG-RATE ROUNDED = DWN-AVERAGE. DTSBD790
|
|
01774 MOVE DWN-AVG-RATE TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01775 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01776 DTSBD790
|
|
01777 T1130-EXIT. DTSBD790
|
|
01778 EXIT. DTSBD790
|
|
01779 SKIP3 DTSBD790
|
|
01780 T1140-WRITE-TOTAL-AVG-RATE. DTSBD790
|
|
01781 *& DTSBD790
|
|
01782 DISPLAY 'T1140 UI-PAID ' DTSBD790
|
|
01783 DWN-CONTRIB. DTSBD790
|
|
01784 DISPLAY 'T1140 TAX WAGE ' DTSBD790
|
|
01785 DWN-TAX-WAGE. DTSBD790
|
|
01786 *& DTSBD790
|
|
01787 COMPUTE DWN-AVERAGE ROUNDED = DTSBD790
|
|
01788 (DWN-CONTRIB / DWN-TAX-WAGE) * 100. DTSBD790
|
|
01789 COMPUTE DWN-AVG-RATE ROUNDED = DWN-AVERAGE. DTSBD790
|
|
01790 MOVE DWN-AVG-RATE TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01791 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01792 DTSBD790
|
|
01793 T1140-EXIT. DTSBD790
|
|
01794 EXIT. DTSBD790
|
|
01795 SKIP3 DTSBD790
|
|
01796 T2000-TERMINATION-DISPLAYS. DTSBD790
|
|
01797 DISPLAY '***'. DTSBD790
|
|
01798 DTSBD790
|
|
01799 DISPLAY '*** ' DTSBD790
|
|
01800 WRK-MOD-NAME DTSBD790
|
|
01801 ' TERMINATION STATISTICS'. DTSBD790
|
|
01802 DTSBD790
|
|
01803 DTSBD790
|
|
01804 DISPLAY '***'. DTSBD790
|
|
01805 DTSBD790
|
|
01806 MOVE W-TOT-MRCT-CHG TO DISPLAY-AMT. DTSBD790
|
|
01807 DISPLAY 'TOT MRCT CHG ' DISPLAY-AMT. DTSBD790
|
|
01808 MOVE W-TOT-ACT-MRCT-CHG TO DISPLAY-AMT. DTSBD790
|
|
01809 DISPLAY 'TOT ACT MRCT CHG ' DISPLAY-AMT. DTSBD790
|
|
01810 DTSBD790
|
|
01811 MOVE WRK-BEN-CHG-READ TO DISPLAY-CNT. DTSBD790
|
|
01812 DTSBD790
|
|
01813 DISPLAY '*** CHARGE RECORDS READ: ' DTSBD790
|
|
01814 DISPLAY-CNT-X. DTSBD790
|
|
01815 DTSBD790
|
|
01816 DTSBD790
|
|
01817 DISPLAY '***'. DTSBD790
|
|
01818 DTSBD790
|
|
01819 MOVE WRK-CHARGE-CURR-AMT TO DISPLAY-AMT. DTSBD790
|
|
01820 DTSBD790
|
|
01821 DISPLAY '*** CHARGE-CURR-AMT READ: ' DTSBD790
|
|
01822 DISPLAY-AMT-X. DTSBD790
|
|
01823 DTSBD790
|
|
01824 DTSBD790
|
|
01825 DISPLAY '***'. DTSBD790
|
|
01826 DTSBD790
|
|
01827 MOVE WRK-SELECTED-REC-CNT TO DISPLAY-CNT. DTSBD790
|
|
01828 DTSBD790
|
|
01829 DISPLAY '*** CHARGE RECORDS SELECTED: ' DTSBD790
|
|
01830 DISPLAY-CNT-X. DTSBD790
|
|
01831 DTSBD790
|
|
01832 DTSBD790
|
|
01833 DISPLAY '***'. DTSBD790
|
|
01834 DTSBD790
|
|
01835 MOVE WRK-SELECTED-CHARGE-CURR-AMT TO DISPLAY-AMT. DTSBD790
|
|
01836 DTSBD790
|
|
01837 DISPLAY '*** CHARGE-CURR-AMT SELECTED: ' DTSBD790
|
|
01838 DISPLAY-AMT-X. DTSBD790
|
|
01839 DTSBD790
|
|
01840 DTSBD790
|
|
01841 MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD790
|
|
01842 DTSBD790
|
|
01843 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD790
|
|
01844 DTSBD790
|
|
01845 DISPLAY '*** RATE YEAR START QUARTER: ' DTSBD790
|
|
01846 L004-SLASH-5-QTR. DTSBD790
|
|
01847 DTSBD790
|
|
01848 DTSBD790
|
|
01849 MOVE WRK-RTE-YR-END-YRQ TO L004-QTR-5-9. DTSBD790
|
|
01850 DTSBD790
|
|
01851 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD790
|
|
01852 DTSBD790
|
|
01853 DISPLAY '*** RATE YEAR END QUARTER: ' DTSBD790
|
|
01854 L004-SLASH-5-QTR. DTSBD790
|
|
01855 DTSBD790
|
|
01856 DISPLAY '*** '. DTSBD790
|
|
01857 MOVE WRK-POS6B-TOT TO DISPLAY-AMT. DTSBD790
|
|
01858 DISPLAY '*** POSITIVE LINE 6B CHARGE: ' DTSBD790
|
|
01859 DISPLAY-AMT-X. DTSBD790
|
|
01860 DTSBD790
|
|
01861 DISPLAY '*** '. DTSBD790
|
|
01862 MOVE WRK-NEG6B-TOT TO DISPLAY-AMT. DTSBD790
|
|
01863 DISPLAY '*** NEGATIVE LINE 6B CHARGE: ' DTSBD790
|
|
01864 DISPLAY-AMT-X. DTSBD790
|
|
01865 T2000-EXIT. DTSBD790
|
|
01866 EXIT. DTSBD790
|
|
01867 EJECT DTSBD790
|
|
01868 SBCF-OPEN-INPUT. DTSBD790
|
|
01869 OPEN INPUT BEN-CHG-FILE-IN. DTSBD790
|
|
01870 DTSBD790
|
|
01871 IF BEN-FILE-OK-88 DTSBD790
|
|
01872 GO TO SBCF-EXIT DTSBD790
|
|
01873 ELSE DTSBD790
|
|
01874 MOVE 'OPEN' TO FILE-COMMAND DTSBD790
|
|
01875 PERFORM SBCF-UNEXPECTED-FILE-STATUS DTSBD790
|
|
01876 THRU SBCF-UNEXPECTED-EXIT DTSBD790
|
|
01877 GO TO SBCF-EXIT. DTSBD790
|
|
01878 DTSBD790
|
|
01879 SBCF-CLOSE. DTSBD790
|
|
01880 CLOSE BEN-CHG-FILE-IN. DTSBD790
|
|
01881 DTSBD790
|
|
01882 IF BEN-FILE-OK-88 DTSBD790
|
|
01883 GO TO SBCF-EXIT DTSBD790
|
|
01884 ELSE DTSBD790
|
|
01885 MOVE 'CLOSED' TO FILE-COMMAND DTSBD790
|
|
01886 PERFORM SBCF-UNEXPECTED-FILE-STATUS DTSBD790
|
|
01887 THRU SBCF-UNEXPECTED-EXIT DTSBD790
|
|
01888 GO TO SBCF-EXIT. DTSBD790
|
|
01889 DTSBD790
|
|
01890 SBCF-EXIT. DTSBD790
|
|
01891 EXIT. DTSBD790
|
|
01892 SKIP3 DTSBD790
|
|
01893 SBCF-UNEXPECTED-FILE-STATUS. DTSBD790
|
|
01894 MOVE SPACES TO ABEND-MSG. DTSBD790
|
|
01895 DTSBD790
|
|
01896 STRING DTSBD790
|
|
01897 'UNEXPECTED BENEFIT CLAIM FILE STATUS ON ' DTSBD790
|
|
01898 DELIMITED BY SIZE DTSBD790
|
|
01899 FILE-COMMAND DTSBD790
|
|
01900 DELIMITED BY ' ' DTSBD790
|
|
01901 ': ' DTSBD790
|
|
01902 DELIMITED BY SIZE DTSBD790
|
|
01903 BEN-CHG-STATUS DTSBD790
|
|
01904 DELIMITED BY SIZE DTSBD790
|
|
01905 INTO DTSBD790
|
|
01906 ABEND-MSG. DTSBD790
|
|
01907 DTSBD790
|
|
01908 PERFORM S999-ABEND THRU S999-EXIT. DTSBD790
|
|
01909 SBCF-UNEXPECTED-EXIT. DTSBD790
|
|
01910 EXIT. DTSBD790
|
|
01911 SKIP3 DTSBD790
|
|
01912 SDWN01-OPEN. DTSBD790
|
|
01913 OPEN OUTPUT ETA204-DOWNLOAD. DTSBD790
|
|
01914 IF NOT DWNLD-STATUS-OK-88 DTSBD790
|
|
01915 DISPLAY 'CANNOT OPEN DOWNLOAD FILE ' DWNLD-STATUS DTSBD790
|
|
01916 PERFORM S999-ABEND THRU S999-EXIT DTSBD790
|
|
01917 END-IF. DTSBD790
|
|
01918 DTSBD790
|
|
01919 SDWN01-EXIT. DTSBD790
|
|
01920 EXIT. DTSBD790
|
|
01921 DTSBD790
|
|
01922 SDWN02-WRITE. DTSBD790
|
|
01923 WRITE ETA204-DOWNLOAD-REC. DTSBD790
|
|
01924 IF NOT DWNLD-STATUS-OK-88 DTSBD790
|
|
01925 DISPLAY 'CANNOT WRITE DOWNLOAD FILE ' DWNLD-STATUS DTSBD790
|
|
01926 PERFORM S999-ABEND THRU S999-EXIT DTSBD790
|
|
01927 END-IF. DTSBD790
|
|
01928 DTSBD790
|
|
01929 SDWN02-EXIT. DTSBD790
|
|
01930 EXIT. DTSBD790
|
|
01931 DTSBD790
|
|
01932 SDWN03-WRITE-TOTAL. DTSBD790
|
|
01933 MOVE SPACES TO ETA204-DOWNLOAD-REC. DTSBD790
|
|
01934 MOVE +0 TO SUB2. DTSBD790
|
|
01935 INSPECT DWN-TOTAL-DISP-X REPLACING LEADING ZEROS BY '*'. DTSBD790
|
|
01936 PERFORM DTSBD790
|
|
01937 VARYING SUB1 FROM +1 BY +1 DTSBD790
|
|
01938 UNTIL SUB1 > +11 DTSBD790
|
|
01939 IF (DWN-TOTAL-DISP-X (SUB1:1) >= '0' DTSBD790
|
|
01940 AND DWN-TOTAL-DISP-X (SUB1:1) <= '9') DTSBD790
|
|
01941 ADD +1 TO SUB2 DTSBD790
|
|
01942 MOVE DWN-TOTAL-DISP-X (SUB1:1) TO DTSBD790
|
|
01943 ETA204-DOWNLOAD-REC (SUB2:1) DTSBD790
|
|
01944 END-IF DTSBD790
|
|
01945 END-PERFORM. DTSBD790
|
|
01946 DTSBD790
|
|
01947 PERFORM SDWN02-WRITE THRU SDWN02-EXIT. DTSBD790
|
|
01948 DTSBD790
|
|
01949 SDWN03-EXIT. DTSBD790
|
|
01950 EXIT. DTSBD790
|
|
01951 DTSBD790
|
|
01952 SDWN04-CLOSE. DTSBD790
|
|
01953 CLOSE ETA204-DOWNLOAD. DTSBD790
|
|
01954 DTSBD790
|
|
01955 SDWN04-EXIT. DTSBD790
|
|
01956 EXIT. DTSBD790
|
|
01957 DTSBD790
|
|
01958 S001-FROM-FED-8. DTSBD790
|
|
01959 SET L001-FROM-FED-8 TO TRUE. DTSBD790
|
|
01960 GO TO S001-DATE. DTSBD790
|
|
01961 DTSBD790
|
|
01962 S001-FROM-ABS-DAY. DTSBD790
|
|
01963 SET L001-FROM-ABS-DAY TO TRUE. DTSBD790
|
|
01964 GO TO S001-DATE. DTSBD790
|
|
01965 DTSBD790
|
|
01966 S001-FROM-CAL-6. DTSBD790
|
|
01967 SET L001-FROM-CAL-6 TO TRUE. DTSBD790
|
|
01968 GO TO S001-DATE. DTSBD790
|
|
01969 DTSBD790
|
|
01970 S001-FROM-FED-6. DTSBD790
|
|
01971 SET L001-FROM-FED-6 TO TRUE. DTSBD790
|
|
01972 GO TO S001-DATE. DTSBD790
|
|
01973 DTSBD790
|
|
01974 S001-DATE. DTSBD790
|
|
01975 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD790
|
|
01976 S001-EXIT. DTSBD790
|
|
01977 EXIT. DTSBD790
|
|
01978 SKIP3 DTSBD790
|
|
01979 S004-FROM-5. DTSBD790
|
|
01980 SET L004-FROM-5 TO TRUE. DTSBD790
|
|
01981 GO TO S004-QTR. DTSBD790
|
|
01982 DTSBD790
|
|
01983 S004-FROM-ABS. DTSBD790
|
|
01984 SET L004-FROM-ABS TO TRUE. DTSBD790
|
|
01985 GO TO S004-QTR. DTSBD790
|
|
01986 DTSBD790
|
|
01987 S004-FROM-3. DTSBD790
|
|
01988 SET L004-FROM-3 TO TRUE. DTSBD790
|
|
01989 GO TO S004-QTR. DTSBD790
|
|
01990 DTSBD790
|
|
01991 S004-QTR. DTSBD790
|
|
01992 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD790
|
|
01993 S004-EXIT. DTSBD790
|
|
01994 EXIT. DTSBD790
|
|
01995 SKIP3 DTSBD790
|
|
01996 S006-FROM-QTR. DTSBD790
|
|
01997 SET L006-FROM-QTR TO TRUE. DTSBD790
|
|
01998 GO TO S006-RATING-YEAR. DTSBD790
|
|
01999 DTSBD790
|
|
02000 S006-RATING-YEAR. DTSBD790
|
|
02001 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBD790
|
|
02002 S006-EXIT. DTSBD790
|
|
02003 EXIT. DTSBD790
|
|
02004 SKIP3 DTSBD790
|
|
02005 S054-DETERMINE-RATE. DTSBD790
|
|
02006 SET L054-RATE-LOOKUP-YES-88 TO TRUE. DTSBD790
|
|
02007 GO TO S054-RATE-LOOKUP. DTSBD790
|
|
02008 DTSBD790
|
|
02009 S054-RATE-LOOKUP. DTSBD790
|
|
02010 CALL 'DTSBU054' USING L054-LINK-AREA DTSBD790
|
|
02011 MRCT-REC. DTSBD790
|
|
02012 S054-EXIT. DTSBD790
|
|
02013 EXIT. DTSBD790
|
|
02014 SKIP3 DTSBD790
|
|
02015 S055-FROM-QTR. DTSBD790
|
|
02016 SET L055-FROM-EFF-YRQ-88 TO TRUE. DTSBD790
|
|
02017 GO TO S055-EXPERIENCE-PERIOD. DTSBD790
|
|
02018 DTSBD790
|
|
02019 S055-EXPERIENCE-PERIOD. DTSBD790
|
|
02020 CALL 'DTSBU055' USING L055-LINK-AREA. DTSBD790
|
|
02021 S055-EXIT. DTSBD790
|
|
02022 EXIT. DTSBD790
|
|
02023 SKIP3 DTSBD790
|
|
02024 S910-OPEN-READ. DTSBD790
|
|
02025 SET L910-OPEN-READ-88 TO TRUE. DTSBD790
|
|
02026 GO TO S910-MSTR-IO. DTSBD790
|
|
02027 DTSBD790
|
|
02028 S910-READ. DTSBD790
|
|
02029 SET L910-READ-88 TO TRUE. DTSBD790
|
|
02030 GO TO S910-MSTR-IO. DTSBD790
|
|
02031 DTSBD790
|
|
02032 S910-START-BROWSE. DTSBD790
|
|
02033 SET L910-START-BROWSE-88 TO TRUE. DTSBD790
|
|
02034 GO TO S910-MSTR-IO. DTSBD790
|
|
02035 DTSBD790
|
|
02036 S910-READ-NEXT. DTSBD790
|
|
02037 SET L910-READ-NEXT-88 TO TRUE. DTSBD790
|
|
02038 GO TO S910-MSTR-IO. DTSBD790
|
|
02039 DTSBD790
|
|
02040 S910-COUNT. DTSBD790
|
|
02041 SET L910-COUNT-88 TO TRUE. DTSBD790
|
|
02042 GO TO S910-MSTR-IO. DTSBD790
|
|
02043 DTSBD790
|
|
02044 S910-CLOSE. DTSBD790
|
|
02045 SET L910-CLOSE-88 TO TRUE. DTSBD790
|
|
02046 GO TO S910-MSTR-IO. DTSBD790
|
|
02047 DTSBD790
|
|
02048 S910-MSTR-IO. DTSBD790
|
|
02049 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD790
|
|
02050 MSKL-REC. DTSBD790
|
|
02051 S910-EXIT. DTSBD790
|
|
02052 EXIT. DTSBD790
|
|
02053 SKIP3 DTSBD790
|
|
02054 S931-OPEN-READ. DTSBD790
|
|
02055 SET L931-OPEN-READ-88 TO TRUE. DTSBD790
|
|
02056 GO TO S931-REF-I. DTSBD790
|
|
02057 DTSBD790
|
|
02058 S931-READ. DTSBD790
|
|
02059 SET L931-READ-88 TO TRUE. DTSBD790
|
|
02060 GO TO S931-REF-I. DTSBD790
|
|
02061 DTSBD790
|
|
02062 S931-START-BROWSE. DTSBD790
|
|
02063 SET L931-START-BROWSE-88 TO TRUE. DTSBD790
|
|
02064 GO TO S931-REF-I. DTSBD790
|
|
02065 DTSBD790
|
|
02066 S931-READ-NEXT. DTSBD790
|
|
02067 SET L931-READ-NEXT-88 TO TRUE. DTSBD790
|
|
02068 GO TO S931-REF-I. DTSBD790
|
|
02069 DTSBD790
|
|
02070 S931-CLOSE. DTSBD790
|
|
02071 SET L931-CLOSE-88 TO TRUE. DTSBD790
|
|
02072 GO TO S931-REF-I. DTSBD790
|
|
02073 DTSBD790
|
|
02074 S931-REF-I. DTSBD790
|
|
02075 CALL 'DTSBU931' USING L931-LINK-AREA DTSBD790
|
|
02076 FSKL-REC. DTSBD790
|
|
02077 S931-EXIT. DTSBD790
|
|
02078 EXIT. DTSBD790
|
|
02079 SKIP3 DTSBD790
|
|
02080 S946-WRITE-R517. DTSBD790
|
|
02081 CALL 'DTSBU946' USING R517-REC. DTSBD790
|
|
02082 GO TO S946-EXIT. DTSBD790
|
|
02083 DTSBD790
|
|
02084 S946-EXIT. DTSBD790
|
|
02085 EXIT. DTSBD790
|
|
02086 SKIP3 DTSBD790
|
|
02087 S941-OPEN-READ. DTSBD790
|
|
02088 DTSBD790
|
|
02089 SET L941-OPEN-READ-88 TO TRUE DTSBD790
|
|
02090 GO TO S941-CALL. DTSBD790
|
|
02091 DTSBD790
|
|
02092 S941-READ-NEXT. DTSBD790
|
|
02093 SET L941-READ-NEXT-88 TO TRUE DTSBD790
|
|
02094 GO TO S941-CALL. DTSBD790
|
|
02095 DTSBD790
|
|
02096 S941-CLOSE. DTSBD790
|
|
02097 SET L941-CLOSE-88 TO TRUE. DTSBD790
|
|
02098 GO TO S941-CALL. DTSBD790
|
|
02099 S941-CALL. DTSBD790
|
|
02100 DTSBD790
|
|
02101 CALL 'DTSBU941' USING L941-LINK-AREA, DTSBD790
|
|
02102 RSK3-REC. DTSBD790
|
|
02103 S941-EXIT. DTSBD790
|
|
02104 EXIT. DTSBD790
|
|
02105 S999-ABEND. DTSBD790
|
|
02106 DISPLAY '***'. DTSBD790
|
|
02107 DTSBD790
|
|
02108 DISPLAY '*** ' DTSBD790
|
|
02109 WRK-MOD-NAME DTSBD790
|
|
02110 ' IS ABENDING BECAUSE ' DTSBD790
|
|
02111 ABEND-MSG. DTSBD790
|
|
02112 DTSBD790
|
|
02113 DISPLAY '***'. DTSBD790
|
|
02114 DTSBD790
|
|
02115 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD790
|
|
02116 S999-EXIT. DTSBD790
|
|
02117 EXIT. DTSBD790
|