00001 IDENTIFICATION DIVISION. 05/02/22 00002 PROGRAM-ID. CHGBD205. CHGBD205 00003 *AUTHOR. TRW. LV040 00004 *DATE-WRITTEN. JUNE 2001. CHGBD205 00005 DATE-COMPILED. CHGBD205 00006 SKIP3 CHGBD205 00007 ***** CHGBD205 00008 * CHGBD205 00009 * FUNCTION: CHGBD205 00010 * CHGBD205 00011 * EXTRACT BENEFIT CHARGE RECORDS FROM SUMMARY CHARGE CHGBD205 00012 * FILE, BASED ON SELECTION PARAMETERS. CHGBD205 00013 * CHGBD205 00014 * WRITE CHG2 OUTPUT RECORD. CHGBD205 00015 * CHGBD205 00016 * INPUT: CHGBD205 00017 * CHGBD205 00018 * BD200CHG - CHARGE REPORT RECORDS GENERATED BY CHGBD205 00019 * CHGBD200. CHGBD205 00020 * CHGPARM - EXTRACT PARAMETERS CHGBD205 00021 * CHGBD205 00022 * OUTPUT: CHGBD205 00023 * CHGBD205 00024 * BD2-5CHG - CHARGE RECORDS SELECTED IN CHGBD205 00025 * CHGBD205. CHGBD205 00026 * CHGBD205 00027 * CHGBD205 00028 * PARAMETERS: CHGBD205 00029 * CHGBD205 00030 * RUN TYPE - CHGBD205 00031 * QUARTERLY ('QTR') - REGULAR QUARTERLY REPORTING CHGBD205 00032 * ANNUAL ('ANN') - ANNUAL REPORTING CHGBD205 00033 * EMPLOYER ('EMP') - SPECIAL REPORT FOR A SINGLE CHGBD205 00034 * EMPLOYER CHGBD205 00035 * EMPLOYER ('MNE') - SPECIAL REPORT FOR A SINGLE CHGBD205 00036 * EMPLOYER - LAST COMPLETED MNTHCHGBD205 00037 * EMPLOYER ('WKE') - SPECIAL REPORT FOR A SINGLE CHGBD205 00038 * EMPLOYER - LAST COMPLETED WEEKCHGBD205 00039 * REPORTS ('RPT') - SPECIAL REPORT TO REPRINT CHGBD205 00040 * REPORTS. USE THE REPORT TYPE CHGBD205 00041 * PARM TO INDICATE WHICH TYPES CHGBD205 00042 * OF REPORTS TO INCLUDE. CHGBD205 00043 * FISCAL AGENTS CHGBD205 00044 * ('AGT') - RERUN FISCAL AGENT TAPES. CHGBD205 00045 * CHGBD205 00046 * >> WHEN RUN TYPE IS 'QTR' THE SYSTEM WILL CHGBD205 00047 * >> GENERATE T026 BENEFIT CHARGE ACCOUNTING CHGBD205 00048 * >> TRANSACTIONS AND TPS RECORDS. CHGBD205 00049 * CHGBD205 00050 * BEGIN DATE - DATE FROM WHICH TO BEGIN SELECTION CHGBD205 00051 * OF CHARGE RECORDS. CHGBD205 00052 * REQUIRED FOR ALL RUN TYPES. CHGBD205 00053 * CHGBD205 00054 * END DATE - DATE AT WHICH TO END SELECTION CHGBD205 00055 * OF CHARGE RECORDS. CHGBD205 00056 * REQUIRED FOR ALL RUN TYPES. CHGBD205 00057 * CHGBD205 00058 * REPORT TYPES - YES/NO INDICATORS TO SPECIFY CHGBD205 00059 * WHICH TYPES OF REPORTS TO INCLUDE. CHGBD205 00060 * VALID ONLY WHEN THE RUN TYPE IS CHGBD205 00061 * 'RPT'. CHGBD205 00062 * THE INDICATORS ARE IN THE FOLLOWING CHGBD205 00063 * ORDER: CHGBD205 00064 * RATED CHGBD205 00065 * SELF-INSURED CHGBD205 00066 * CWC CHGBD205 00067 * FEDERAL CHGBD205 00068 * TEUC CHGBD205 00069 * CHGBD205 00070 * EMPLOYER - THE EMPLOYER ACCOUNT NUMBER TO CHGBD205 00071 * INCLUDE IN THE SELECTION. CHGBD205 00072 * VALID ONLY WHEN RUN TYPE IS 'EMP'. CHGBD205 00073 * CHGBD205 00074 ***** CHGBD205 00075 CHGBD205 00076 ******************************************************************CHGBD205 00077 * MODIFICATION HISTORY: *CHGBD205 00078 * *CHGBD205 00079 * 02-02-1999 INITIAL DEVELOPMENT *CHGBD205 00080 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205 00081 * *CHGBD205 00082 * 06-21-2001 MODIFIED FOR NEW CHARGE PROCESS CHGBD205 00083 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205 00084 * *CHGBD205 00085 * 04-23-2002 MODIFIED TO OUTPUT TEUC RPC150R1 REPORT CHGBD205 00086 * REFERENCE RFP #**** AUTHOR OF CHANGE - RW1 *CHGBD205 00087 * *CHGBD205 00088 * 03-03-2003 ADDED NEW RUN TYPES FOR EMPLOYER REPORTS: CHGBD205 00089 * MNE - REPORT FOR LAST COMPLETED MONTH *CHGBD205 00090 * WKE - REPORT FOR LAST COMPLETED WEEK *CHGBD205 00091 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205 00092 * *CHGBD205 00093 * 09-04-2003 ADDED NEW RPT TYPE FOR DC GOVERNMENT CHGBD205 00094 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205 00095 * *CHGBD205 00096 * 06-29-2004 ADDED EMP TYPE 17 - DOMESTIC VIOLENCE. CHGBD205 00097 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205 00098 * *CHGBD205 00099 * 03-09-2009 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED *CHGBD205 00100 * FROM NUMERIC TO CHARACTER. *CHGBD205 00101 * UPDATED EMPLOYER TYPES. *CHGBD205 00102 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205 00103 * *CHGBD205 00104 * 04-03-2009 MODIFIED I2230 TO USE QUARTERLY DEFAULT DATES *CHGBD205 00105 * IF NO DATES ARE ENTERED, AND THE RUN TYPE IS RPTS. *CHGBD205 00106 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205 00107 * *CHGBD205 00108 * 06-24-2009 REMOVED CODE THAT BYPASSED CHARGE RECORDS THAT *CHGBD205 00109 * MIGHT HAVE BEEN AFFECTED BY A PROBLEM IN THE *CHGBD205 00110 * BENEFITS SYSTEM THAT RESULTED IN LARGE REVERSALS. *CHGBD205 00111 * THE PROBLEM HAS BEEN CORRECTED, AND THE CODE IS *CHGBD205 00112 * NO LONGER NEEDED. *CHGBD205 00113 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205 00114 * *CHGBD205 00115 * 05-04-2010 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED *CHGBD205 00116 * FROM COPYBOOK CHGIM002. *CHGBD205 00117 * UPDATED EMPLOYER TYPES. *CHGBD205 00118 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 *CHGBD205 00119 * *CHGBD205 00120 * 10-04-2014 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED * CL*26 00121 * UPDATED EMPLOYER TYPES ADDED 28 UCPIA * CL*26 00122 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 * CL*26 00123 * * CL*27 00124 * 04-20-2020 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED * CL*27 00125 * UPDATED EMPLOYER TYPES PUA FPUC AND FRUR * CL*27 00126 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 * CL*27 00127 * * CL*36 00128 * 05-01-2020 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED * CL*36 00129 * UPDATED EMPLOYER TYPES PEUC * CL*36 00130 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 * CL*36 00131 * * CL*26 00132 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD205 00133 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD205 00134 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBD205 00135 ******************************************************************CHGBD205 00136 CHGBD205 00137 SKIP3 CHGBD205 00138 ENVIRONMENT DIVISION. CHGBD205 00139 SKIP3 CHGBD205 00140 INPUT-OUTPUT SECTION. CHGBD205 00141 SKIP3 CHGBD205 00142 FILE-CONTROL. CHGBD205 00143 SELECT INPUT-PARM ASSIGN TO SYSIN CHGBD205 00144 FILE STATUS IS INPUT-PARM-STATUS. CHGBD205 00145 CHGBD205 00146 SELECT BD200-CHG-FILE-IN ASSIGN TO BD200CHG CHGBD205 00147 ORGANIZATION IS INDEXED CHGBD205 00148 ACCESS MODE IS DYNAMIC CHGBD205 00149 RECORD KEY IS CHG2-KEY-AREA CHGBD205 00150 FILE STATUS IS BD200-CHG-STATUS. CHGBD205 00151 CHGBD205 00152 SELECT BD205-CHG-FILE-OUT ASSIGN TO BD205CHG CHGBD205 00153 FILE STATUS IS BD205-CHG-STATUS. CHGBD205 00154 CHGBD205 00155 SELECT CHG-PARM-FILE ASSIGN TO CHGPARM CHGBD205 00156 FILE STATUS IS CHG-PARM-STATUS. CHGBD205 00157 EJECT CHGBD205 00158 DATA DIVISION. CHGBD205 00159 CHGBD205 00160 FILE SECTION. CHGBD205 00161 FD INPUT-PARM CHGBD205 00162 LABEL RECORDS ARE STANDARD CHGBD205 00163 BLOCK CONTAINS 0 CHARACTERS. CHGBD205 00164 SKIP1 CHGBD205 00165 01 INPUT-PARM-REC. CHGBD205 00166 05 PARM-RUN-TYPE PIC X(03). CHGBD205 00167 05 FILLER PIC X(01). CHGBD205 00168 05 PARM-BEGIN-DATE PIC 9(06). CHGBD205 00169 05 FILLER PIC X(01). CHGBD205 00170 05 PARM-END-DATE PIC 9(06). CHGBD205 00171 05 FILLER PIC X(01). CHGBD205 00172 05 PARM-REPORT-TYPES. CHGBD205 00173 10 PARM-RPT-TYPE-RATED PIC X(01). CHGBD205 00174 10 PARM-RPT-TYPE-SELF-IND PIC X(01). CHGBD205 00175 10 PARM-RPT-TYPE-CWC PIC X(01). CHGBD205 00176 10 PARM-RPT-TYPE-FED PIC X(01). CHGBD205 00177 10 PARM-RPT-TYPE-TEUC PIC X(01). CHGBD205 00178 10 PARM-RPT-TYPE-DC PIC X(01). CHGBD205 00179 10 PARM-RPT-TYPE-FPUC PIC X(01). CL*28 00180 05 FILLER PIC X(01). CHGBD205 00181 05 PARM-EMP-NO PIC 9(06). CHGBD205 00182 05 FILLER PIC X(48). CL*28 00183 CHGBD205 00184 FD BD200-CHG-FILE-IN CHGBD205 00185 RECORD CONTAINS 64 CHARACTERS CHGBD205 00186 DATA RECORD IS BD200-CHG-REC. CHGBD205 00187 01 BD200-CHG-REC. CHGBD205 00188 ++INCLUDE CHGIM002 CHGBD205 00189 CHGBD205 00190 FD BD205-CHG-FILE-OUT CHGBD205 00191 LABEL RECORDS ARE STANDARD CHGBD205 00192 BLOCK CONTAINS 0 CHARACTERS. CHGBD205 00193 SKIP1 CHGBD205 00194 01 BD205-CHG-REC PIC X(64). CHGBD205 00195 CHGBD205 00196 FD CHG-PARM-FILE CHGBD205 00197 RECORDING MODE IS F CHGBD205 00198 BLOCK CONTAINS 0 CHARACTERS. CHGBD205 00199 SKIP1 CHGBD205 00200 01 CHG-PARM-REC PIC X(80). CHGBD205 00201 CHGBD205 00202 EJECT CHGBD205 00203 WORKING-STORAGE SECTION. CHGBD205 002035 77 PAN-VALET PICTURE X(24) VALUE '040CHGBD205 05/02/22'. CHGBD205 00204 CHGBD205 00205 01 WRK-AREA. CHGBD205 00206 *& CHGBD205 00207 05 WRK-DISP-AREA. CHGBD205 00208 10 WRK-DATE PIC 9999B99B99. CHGBD205 00209 10 FILLER PIC X(02) VALUE SPACES. CHGBD205 00210 10 WRK-EMP-DISP PIC 9(06). CHGBD205 00211 10 FILLER PIC X(02) VALUE SPACES. CHGBD205 00212 10 WRK-SSN-DISP PIC 9(10). CHGBD205 00213 10 FILLER PIC X(02) VALUE SPACES. CHGBD205 00214 10 WRK-CHG-AMT-DISP PIC Z(08)9.99-. CHGBD205 00215 CHGBD205 00216 05 WRK-SSN PIC 9(10). CHGBD205 00217 05 FILLER REDEFINES WRK-SSN. CHGBD205 00218 10 WRK-SSN9 PIC 9(09). CHGBD205 00219 10 WRK-SSN0 PIC 9(01). CHGBD205 00220 CHGBD205 00221 05 WRK-TOT-CHG PIC S9(09)V99 COMP-3 CHGBD205 00222 VALUE +0. CHGBD205 00223 05 WRK-TOT-CHG-DISP PIC Z(08)9.99-. CHGBD205 00224 05 WRK-CHG-AMT PIC S9(09)V99 COMP-3. CHGBD205 00225 05 WRK-CURR-SUMM-AMT PIC S9(09)V99 COMP-3 CHGBD205 00226 VALUE +0. CHGBD205 00227 05 WRK-CURR-SUMM-AMT-DISP PIC Z(08)9.99-. CHGBD205 00228 *& CHGBD205 00229 05 ABEND-CODE PIC S9(04) COMP CHGBD205 00230 VALUE +205. CHGBD205 00231 05 ABEND-MOD PIC X(08) CHGBD205 00232 VALUE 'DTSBU999'. CHGBD205 00233 05 ABEND-MSG PIC X(60). CHGBD205 00234 CHGBD205 00235 05 INPUT-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD205 00236 88 INPUT-PARM-OK-88 VALUE ZERO. CHGBD205 00237 88 INPUT-PARM-EOF-88 VALUE '10'. CHGBD205 00238 CHGBD205 00239 05 BD200-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD205 00240 88 BD200-FILE-OK-88 VALUE ZERO. CHGBD205 00241 88 BD200-FILE-EOF-88 VALUE '10'. CHGBD205 00242 CHGBD205 00243 05 BD205-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD205 00244 88 BD205-FILE-OK-88 VALUE ZERO. CHGBD205 00245 88 BD205-FILE-EOF-88 VALUE '10'. CHGBD205 00246 CHGBD205 00247 05 CHG-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD205 00248 88 CHG-PARM-FILE-OK-88 VALUE ZERO. CHGBD205 00249 88 CHG-PARM-FILE-EOF-88 VALUE '10'. CHGBD205 00250 CHGBD205 00251 05 WRK-ERROR-IND PIC X(01). CHGBD205 00252 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD205 00253 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD205 00254 CHGBD205 00255 05 WRK-EMP-VALID-IND PIC X(01). CHGBD205 00256 88 WRK-EMP-VALID-YES-88 VALUE 'Y'. CHGBD205 00257 88 WRK-EMP-VALID-NO-88 VALUE 'N'. CHGBD205 00258 CHGBD205 00259 05 WRK-BEGIN-DATE PIC S9(09) COMP-3. CHGBD205 00260 05 WRK-END-DATE PIC S9(09) COMP-3. CHGBD205 00261 CHGBD205 00262 05 WRK-BEGIN-DATE-DISP PIC 9(08). CHGBD205 00263 05 FILLER REDEFINES WRK-BEGIN-DATE-DISP. CHGBD205 00264 10 WRK-BEGIN-YR PIC 9(04). CHGBD205 00265 10 WRK-BEGIN-MO PIC 9(02). CHGBD205 00266 10 WRK-BEGIN-DA PIC 9(02). CHGBD205 00267 CHGBD205 00268 05 WRK-END-DATE-DISP PIC 9(08). CHGBD205 00269 05 FILLER REDEFINES WRK-END-DATE-DISP. CHGBD205 00270 10 WRK-END-YR PIC 9(04). CHGBD205 00271 10 WRK-END-MO PIC 9(02). CHGBD205 00272 10 WRK-END-DA PIC 9(02). CHGBD205 00273 CHGBD205 00274 05 WRK-EMP-NO PIC S9(07) COMP-3. CHGBD205 00275 88 WRK-POOL-ACCT-88 VALUE +028411, CHGBD205 00276 +999000 THRU +999992. CHGBD205 00277 88 WRK-FED-ACCT-88 VALUE +1 THRU +1999. CHGBD205 00278 CHGBD205 00279 05 WRK-EMP-TYPE PIC 9(02). CHGBD205 00280 88 WRK-EMP-TYPE-CONTRIB-88 VALUE 00. CHGBD205 00281 88 WRK-EMP-TYPE-UCX-88 VALUE 01. CHGBD205 00282 88 WRK-EMP-TYPE-UCFE-88 VALUE 02. CHGBD205 00283 88 WRK-EMP-TYPE-FED-88 VALUE 01, 02. CHGBD205 00284 88 WRK-EMP-TYPE-CWC-88 VALUE 04. CHGBD205 00285 88 WRK-EMP-TYPE-SELF-INS-88 VALUE 08. CHGBD205 00286 88 WRK-EMP-TYPE-DC-GOV-88 VALUE 10. CHGBD205 00287 88 WRK-EMP-TYPE-NOT-LIAB-88 VALUE 13. CHGBD205 00288 88 WRK-EMP-TYPE-TEUC-88 VALUE 16. CHGBD205 00289 88 WRK-EMP-TYPE-DOM-VIOLENC-88 VALUE 17. CHGBD205 00290 88 WRK-EMP-TYPE-STEP-88 VALUE 18. CL*27 00291 88 WRK-EMP-TYPE-EUC08-88 VALUE 19. CL*27 00292 88 WRK-EMP-TYPE-FAC-88 VALUE 20. CL*27 00293 88 WRK-EMP-TYPE-AB-88 VALUE 21. CL*27 00294 88 WRK-EMP-TYPE-DEPND-88 VALUE 22. CL*27 00295 88 WRK-EMP-TYPE-TRAIN-88 VALUE 23. CL*27 00296 88 WRK-EMP-TYPE-EUC08-2PL-88 VALUE 24. CL*27 00297 88 WRK-EMP-TYPE-EUC08TR3-88 VALUE 25. CL*27 00298 88 WRK-EMP-TYPE-EUC08TR4-88 VALUE 26. CL*27 00299 88 WRK-EMP-TYPE-SPEC-PAY-88 VALUE 27. CL*27 00300 88 WRK-EMP-TYPE-UCPIA-88 VALUE 28. CL*27 00301 88 WRK-EMP-TYP2-PUA-88 VALUE 29. CL*27 00302 88 WRK-EMP-TYPE-GPA-88 VALUE 31. CL*27 00303 88 WRK-EMP-TYPE-FPUC-88 VALUE 32. CL*27 00304 88 WRK-EMP-TYPE-FRUR-88 VALUE 33. CL*27 00305 88 WRK-EMP-TYPE-PEUC-88 VALUE 34. CL*36 00306 88 WRK-EMP-TYPE-REUR-88 VALUE 35. CL*39 00307 88 WRK-EMP-TYPE-POOL-88 VALUE CHGBD205 00308 03, 05, 06, 07, 09, CHGBD205 00309 11, 12, 15, 16, 17 CHGBD205 00310 18, 19, 20, 21, 22, 23, 24, 25, CHGBD205 00311 26, 27, 28. CL*31 00312 88 WRK-EMP-TYPE-VALID-88 VALUE CHGBD205 00313 00, 01, 02, 03, 04, 05, CHGBD205 00314 06, 07, 08, 09, 10, 11, 12, CHGBD205 00315 12, 13, 15, 16, 17, 18, 19, 20, CHGBD205 00316 21, 22, 23, 24, 25, 26, 27, 28 CL*27 00317 29, 31, 32, 33, 34, 35. CL*39 00318 CHGBD205 00319 05 WRK-LAST-EMP-CHECKED PIC S9(07) COMP-3. CHGBD205 00320 CHGBD205 00321 05 WRK-RPT-TYPE PIC 9(02) VALUE ZERO. CHGBD205 00322 88 WRK-RPT-TYPE-RATED-88 VALUE 00. CHGBD205 00323 88 WRK-RPT-TYPE-FED-88 VALUE 01, 02. CHGBD205 00324 88 WRK-RPT-TYPE-CWC-88 VALUE 04. CHGBD205 00325 88 WRK-RPT-TYPE-SELF-INS-88 VALUE 08. CHGBD205 00326 88 WRK-RPT-TYPE-DC-88 VALUE 10. CHGBD205 00327 88 WRK-RPT-TYPE-FPUC-88 VALUE 29, 31, 32, 33, 34, CL*39 00328 35. CL*39 00329 88 WRK-RPT-TYPE-EMP-88 VALUE 00, 01, 02, CHGBD205 00330 04, 08, 10, 29, 31, CL*36 00331 32, 33, 34, 35. CL*39 00332 CHGBD205 00333 05 WRK-REC-SELECTED-IND PIC X(01) VALUE SPACE. CHGBD205 00334 88 WRK-REC-SELECTED-YES VALUE 'Y'. CHGBD205 00335 88 WRK-REC-SELECTED-NO VALUE 'N'. CHGBD205 00336 CHGBD205 00337 05 WRK-EMPLOYER-DATA-AREA. CHGBD205 00338 10 WRK-FISCAL-AGENT-CD PIC X(03). CHGBD205 00339 88 WRK-FISC-AG-NONE-88 VALUE SPACES. CHGBD205 00340 10 WRK-FMT-ADDR. CHGBD205 00341 15 WRK-FMT-LINE OCCURS 5 TIMES CHGBD205 00342 PIC X(40). CHGBD205 00343 15 WRK-ZIP PIC X(10). CHGBD205 00344 15 WRK-ADVANCED-BARCODE PIC X(14). CHGBD205 00345 10 WRK-EMP-NAME-CHK PIC X(04). CHGBD205 00346 CHGBD205 00347 05 WRK-LABEL-ROUTE-AREA. CHGBD205 00348 10 WRK-LABEL-ROUTE-STARS PIC X(40) VALUE CHGBD205 00349 ALL '*'. CHGBD205 00350 10 WRK-LABEL-ROUTE-SELF-INS PIC X(40) VALUE CHGBD205 00351 ' SELF-INSURED '. CHGBD205 00352 10 WRK-LABEL-ROUTE-CWC PIC X(40) VALUE CHGBD205 00353 ' CWC '. CHGBD205 00354 10 WRK-LABEL-ROUTE-FED PIC X(40) VALUE CHGBD205 00355 ' FEDERAL '. CHGBD205 00356 CHGBD205 00357 05 WRK-BD200-CHG-READ PIC 9(09) COMP-3 VALUE 0. CHGBD205 00358 05 WRK-BD205-WRITE PIC 9(09) COMP-3 VALUE 0. CHGBD205 00359 05 WRK-BD200-CHG-DELETE PIC 9(09) COMP-3 VALUE 0. CHGBD205 00360 05 WRK-BD200-NOT-LIAB-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD205 00361 05 WRK-INV-CHRG-ERR-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD205 00362 05 WRK-CNT-DISP PIC Z(08)9. CHGBD205 00363 CHGBD205 00364 01 WRK-PARM-AREA. CHGBD205 00365 ++INCLUDE CHGIM003 CHGBD205 00366 CHGBD205 00367 ** ADD ERROR MSG TABLE SET UP CHGBD205 00368 01 MSG-TABLE. CHGBD205 00369 05 MSG1-NO-MPRF. CHGBD205 00370 10 MSG1-ID. CHGBD205 00371 15 MSG1-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205 00372 15 MSG1-ID2 PIC X(03) VALUE '205'. CHGBD205 00373 10 MSG1-SHORT-TEXT PIC X(20) CHGBD205 00374 VALUE 'EMP NOT ON FILE : '. CHGBD205 00375 10 MSG1-LONG-TEXT. CHGBD205 00376 15 FILLER PIC X(29) CHGBD205 00377 VALUE 'EMPLOYER NOT ON MASTER FILE '. CHGBD205 00378 15 FILLER PIC X(32) VALUE SPACES. CHGBD205 00379 CHGBD205 00380 05 MSG2-NOT-LIABLE. CHGBD205 00381 10 MSG2-ID. CHGBD205 00382 15 MSG2-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205 00383 15 MSG2-ID2 PIC X(03) VALUE '205'. CHGBD205 00384 10 MSG2-SHORT-TEXT PIC X(20) CHGBD205 00385 VALUE 'EMP NOT LIABLE : '. CHGBD205 00386 10 MSG2-LONG-TEXT. CHGBD205 00387 15 FILLER PIC X(29) CHGBD205 00388 VALUE 'EMPLOYER IS NOT LIABLE '. CHGBD205 00389 15 FILLER PIC X(32) VALUE SPACES. CHGBD205 00390 CHGBD205 00391 05 MSG4-PRINTING-TURNED-OFF. CHGBD205 00392 10 MSG4-ID. CHGBD205 00393 15 MSG4-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205 00394 15 MSG4-ID2 PIC X(03) VALUE '205'. CHGBD205 00395 10 MSG4-SHORT-TEXT PIC X(20) CHGBD205 00396 VALUE 'CHG STMT PRINT OFF: '. CHGBD205 00397 10 MSG4-LONG-TEXT. CHGBD205 00398 15 FILLER PIC X(36) CHGBD205 00399 VALUE 'CHARGE STATEMENT PRINTING TURNED OFF'. CHGBD205 00400 15 FILLER PIC X(25) VALUE SPACES. CHGBD205 00401 CHGBD205 00402 05 MSG5-NO-ADDRESS. CHGBD205 00403 10 MSG5-ID. CHGBD205 00404 15 MSG5-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205 00405 15 MSG5-ID2 PIC X(03) VALUE '205'. CHGBD205 00406 10 MSG5-SHORT-TEXT PIC X(20) CHGBD205 00407 VALUE 'NO ADDRESS FOUND: '. CHGBD205 00408 10 MSG5-LONG-TEXT. CHGBD205 00409 15 FILLER PIC X(29) CHGBD205 00410 VALUE 'ADDRESS NOT FOUND '. CHGBD205 00411 15 FILLER PIC X(25) CHGBD205 00412 VALUE ' MPRF EMPLOYER NUMBER = '. CHGBD205 00413 15 MSG5-EMP-NO PIC 9(07). CHGBD205 00414 CHGBD205 00415 *& ADDED 02-21-2002 CHGBD205 00416 05 MSG8-TOT-CREDIT-AMT. CHGBD205 00417 10 MSG8-ID. CHGBD205 00418 15 MSG8-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205 00419 15 MSG8-ID2 PIC X(03) VALUE '205'. CHGBD205 00420 10 MSG8-SHORT-TEXT PIC X(20) CHGBD205 00421 VALUE ' '. CHGBD205 00422 10 MSG8-LONG-TEXT. CHGBD205 00423 15 FILLER PIC X(15) CHGBD205 00424 VALUE 'BYE < 1/1/2001 '. CHGBD205 00425 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD205 00426 15 MSG8-SSN PIC 9(09)B9. CHGBD205 00427 15 FILLER PIC X(08) VALUE ' BYE = '. CHGBD205 00428 15 MSG8-BYE PIC 9999B99B99. CHGBD205 00429 15 FILLER PIC X(06) VALUE ' PGM '. CHGBD205 00430 15 MSG8-PGM PIC X(01). CHGBD205 00431 15 FILLER PIC X(12) VALUE ' CHG AMT = '. CHGBD205 00432 15 MSG8-AMT PIC Z(04)9.99-. CHGBD205 00433 15 FILLER PIC X(13) VALUE ' CHG DATE = '. CHGBD205 00434 15 MSG8-DATE PIC 9999B99B99. CHGBD205 00435 CHGBD205 00436 ** ERROR MSG OUTPUT RECORD CHGBD205 00437 01 R907-REC. CHGBD205 00438 ++INCLUDE DTSIR907 CHGBD205 00439 CHGBD205 00440 01 L910-LINK-AREA. CHGBD205 00441 ++INCLUDE DTSIL910 CHGBD205 00442 CHGBD205 00443 01 MSKL-REC. CHGBD205 00444 ++INCLUDE DTSIMSKL CHGBD205 00445 CHGBD205 00446 01 MHDR-REC. CHGBD205 00447 ++INCLUDE DTSIMHDR CHGBD205 00448 CHGBD205 00449 01 L001-LINK-AREA. CHGBD205 00450 ++INCLUDE DTSIL001 CHGBD205 00451 CHGBD205 00452 01 L004-LINK-AREA. CHGBD205 00453 ++INCLUDE DTSIL004 CHGBD205 00454 CHGBD205 00455 EJECT CHGBD205 00456 PROCEDURE DIVISION. CHGBD205 00457 SKIP2 CHGBD205 00458 CHGBD210-MAIN. CHGBD205 00459 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD205 00460 IF WRK-ERROR-YES-88 CHGBD205 00461 GO TO CHGBD210-EXIT. CHGBD205 00462 CHGBD205 00463 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD205 00464 CHGBD205 00465 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD205 00466 CHGBD205 00467 CHGBD210-EXIT. CHGBD205 00468 STOP RUN. CHGBD205 00469 EJECT CHGBD205 00470 I0000-INITIATE. CHGBD205 00471 CHGBD205 00472 MOVE ZERO TO WRK-BD200-CHG-READ CHGBD205 00473 WRK-BD200-NOT-LIAB-CNT CHGBD205 00474 WRK-BD205-WRITE CHGBD205 00475 WRK-BD200-CHG-DELETE CHGBD205 00476 WRK-LAST-EMP-CHECKED. CHGBD205 00477 CHGBD205 00478 MOVE MSG8-ID1 TO R907-MODULE-NAME. CHGBD205 00479 MOVE LENGTH OF R907-REC TO R907-LENGTH. CHGBD205 00480 CHGBD205 00481 SET WRK-ERROR-NO-88 TO TRUE. CHGBD205 00482 CHGBD205 00483 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. CHGBD205 00484 CHGBD205 00485 PERFORM I2000-PROCESS-PARMS THRU I2000-EXIT. CHGBD205 00486 CHGBD205 00487 I0000-EXIT. CHGBD205 00488 EXIT. CHGBD205 00489 CHGBD205 00490 I1000-OPEN-FILES. CHGBD205 00491 CHGBD205 00492 OPEN INPUT BD200-CHG-FILE-IN. CHGBD205 00493 IF NOT BD200-FILE-OK-88 CHGBD205 00494 DISPLAY 'BD200 FILE OPEN ERROR: ' BD200-CHG-STATUS CHGBD205 00495 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00496 CHGBD205 00497 OPEN OUTPUT BD205-CHG-FILE-OUT. CHGBD205 00498 IF NOT BD205-FILE-OK-88 CHGBD205 00499 DISPLAY 'BD205 FILE OPEN ERROR: ' BD205-CHG-STATUS CHGBD205 00500 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00501 CHGBD205 00502 PERFORM S910-OPEN-READ THRU S910-EXIT. CHGBD205 00503 CHGBD205 00504 I1000-EXIT. CHGBD205 00505 EXIT. CHGBD205 00506 CHGBD205 00507 I2000-PROCESS-PARMS. CHGBD205 00508 OPEN INPUT INPUT-PARM. CHGBD205 00509 IF NOT INPUT-PARM-OK-88 CHGBD205 00510 DISPLAY 'INPUT PARM FILE OPEN ERROR: ' CHGBD205 00511 INPUT-PARM-STATUS CHGBD205 00512 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00513 CHGBD205 00514 READ INPUT-PARM. CHGBD205 00515 IF NOT INPUT-PARM-OK-88 CHGBD205 00516 DISPLAY 'INPUT PARM FILE READ ERROR: ' CHGBD205 00517 INPUT-PARM-STATUS CHGBD205 00518 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00519 CHGBD205 00520 DISPLAY '***** CHGBD205 PARM RECORD *****'. CHGBD205 00521 DISPLAY INPUT-PARM-REC. CHGBD205 00522 DISPLAY SPACE. CHGBD205 00523 CHGBD205 00524 DISPLAY '***** CHGBD205 EDITED PARMS *****'. CHGBD205 00525 *** DISPLAY SPACE. CHGBD205 00526 CHGBD205 00527 PERFORM I2100-PARM-RUN-TYPE THRU I2100-EXIT. CHGBD205 00528 CHGBD205 00529 PERFORM I2200-PARM-DATES THRU I2200-EXIT. CHGBD205 00530 CHGBD205 00531 PERFORM I2300-PARM-RPT-TYPES THRU I2300-EXIT. CHGBD205 00532 CHGBD205 00533 PERFORM I2400-PARM-EMP-NO THRU I2400-EXIT. CHGBD205 00534 CHGBD205 00535 OPEN OUTPUT CHG-PARM-FILE. CHGBD205 00536 IF NOT CHG-PARM-FILE-OK-88 CHGBD205 00537 DISPLAY 'TEMP PARM FILE OPEN ERROR: ' CHG-PARM-STATUS CHGBD205 00538 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00539 CHGBD205 00540 WRITE CHG-PARM-REC FROM WRK-PARM-AREA. CHGBD205 00541 CLOSE CHG-PARM-FILE. CHGBD205 00542 CHGBD205 00543 I2000-EXIT. CHGBD205 00544 EXIT. CHGBD205 00545 CHGBD205 00546 I2100-PARM-RUN-TYPE. CHGBD205 00547 MOVE PARM-RUN-TYPE TO CHG3-RUN-TYPE. CHGBD205 00548 IF CHG3-RUN-TYPE-VALID-88 CHGBD205 00549 NEXT SENTENCE CHGBD205 00550 ELSE CHGBD205 00551 MOVE 'PARM RUN TYPE INVALID ' TO ABEND-MSG CHGBD205 00552 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00553 CHGBD205 00554 DISPLAY 'RUN TYPE : ' CHG3-RUN-TYPE. CHGBD205 00555 *** DISPLAY SPACE. CHGBD205 00556 CHGBD205 00557 I2100-EXIT. CHGBD205 00558 EXIT. CHGBD205 00559 CHGBD205 00560 I2200-PARM-DATES. CHGBD205 00561 MOVE ZERO TO WRK-BEGIN-DATE CHGBD205 00562 WRK-END-DATE. CHGBD205 00563 CHGBD205 00564 IF (PARM-BEGIN-DATE = SPACES OR LOW-VALUES) CHGBD205 00565 AND (PARM-END-DATE = SPACES OR LOW-VALUES) CHGBD205 00566 PERFORM I2230-DEFAULT-DATES THRU I2230-EXIT CHGBD205 00567 ELSE CHGBD205 00568 PERFORM I2210-BEGIN-DATE THRU I2210-EXIT CHGBD205 00569 PERFORM I2220-END-DATE THRU I2220-EXIT. CHGBD205 00570 CHGBD205 00571 IF WRK-END-DATE < WRK-BEGIN-DATE CHGBD205 00572 MOVE 'PERIOD END LESS THAN PERIOD BEGIN' CHGBD205 00573 TO ABEND-MSG CHGBD205 00574 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00575 CHGBD205 00576 MOVE WRK-BEGIN-DATE TO CHG3-BEGIN-DATE. CHGBD205 00577 MOVE WRK-END-DATE TO CHG3-END-DATE. CHGBD205 00578 CHGBD205 00579 DISPLAY 'START DATE : ' WRK-BEGIN-DATE. CHGBD205 00580 DISPLAY 'END DATE : ' WRK-END-DATE. CHGBD205 00581 DISPLAY SPACE. CHGBD205 00582 CHGBD205 00583 I2200-EXIT. CHGBD205 00584 EXIT. CHGBD205 00585 CHGBD205 00586 I2210-BEGIN-DATE. CHGBD205 00587 MOVE PARM-BEGIN-DATE TO L001-CAL-6-DATE-X. CHGBD205 00588 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD205 00589 IF L001-VALID-DATE CHGBD205 00590 MOVE L001-FED-8-DATE-9 TO WRK-BEGIN-DATE CHGBD205 00591 ELSE CHGBD205 00592 MOVE 'INVALID PERIOD BEGIN DATE' TO ABEND-MSG CHGBD205 00593 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00594 CHGBD205 00595 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205 00596 PERFORM I2211-QTR-BEGIN-DATE THRU I2211-EXIT CHGBD205 00597 ELSE CHGBD205 00598 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205 00599 PERFORM I2212-ANN-BEGIN-DATE THRU I2212-EXIT CHGBD205 00600 ELSE CHGBD205 00601 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD205 00602 PERFORM I2213-MON-BEGIN-DATE THRU I2213-EXIT CHGBD205 00603 ELSE CHGBD205 00604 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD205 00605 PERFORM I2214-WKLY-BEGIN-DATE THRU I2214-EXIT. CHGBD205 00606 CHGBD205 00607 I2210-EXIT. CHGBD205 00608 EXIT. CHGBD205 00609 CHGBD205 00610 I2211-QTR-BEGIN-DATE. CHGBD205 00611 MOVE WRK-BEGIN-DATE TO L004-DATE. CHGBD205 00612 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD205 00613 IF WRK-BEGIN-DATE NOT = L004-QTR-START-DATE CHGBD205 00614 MOVE 'PERIOD BEGIN NOT START OF QTR' CHGBD205 00615 TO ABEND-MSG CHGBD205 00616 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00617 END-IF. CHGBD205 00618 CHGBD205 00619 I2211-EXIT. CHGBD205 00620 EXIT. CHGBD205 00621 CHGBD205 00622 I2212-ANN-BEGIN-DATE. CHGBD205 00623 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD205 00624 IF WRK-BEGIN-MO = 07 CHGBD205 00625 AND WRK-BEGIN-DA = 01 CHGBD205 00626 NEXT SENTENCE CHGBD205 00627 ELSE CHGBD205 00628 MOVE 'ANNUAL START DATE MUST BE JULY 1' CHGBD205 00629 TO ABEND-MSG CHGBD205 00630 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00631 END-IF. CHGBD205 00632 CHGBD205 00633 I2212-EXIT. CHGBD205 00634 EXIT. CHGBD205 00635 CHGBD205 00636 I2213-MON-BEGIN-DATE. CHGBD205 00637 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD205 00638 IF WRK-BEGIN-DA = 01 CHGBD205 00639 NEXT SENTENCE CHGBD205 00640 ELSE CHGBD205 00641 MOVE 'MONTHLY START DATE MUST BE FIRST DAY OF MONTH' CHGBD205 00642 TO ABEND-MSG CHGBD205 00643 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00644 END-IF. CHGBD205 00645 CHGBD205 00646 I2213-EXIT. CHGBD205 00647 EXIT. CHGBD205 00648 CHGBD205 00649 I2214-WKLY-BEGIN-DATE. CHGBD205 00650 IF L001-SUNDAY CHGBD205 00651 OR L001-MONDAY CHGBD205 00652 NEXT SENTENCE CHGBD205 00653 ELSE CHGBD205 00654 MOVE 'WEEKLY START DATE MUST BE SUNDAY OR MONDAY' CHGBD205 00655 TO ABEND-MSG CHGBD205 00656 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00657 END-IF. CHGBD205 00658 CHGBD205 00659 I2214-EXIT. CHGBD205 00660 EXIT. CHGBD205 00661 CHGBD205 00662 I2220-END-DATE. CHGBD205 00663 MOVE PARM-END-DATE TO L001-CAL-6-DATE-X. CHGBD205 00664 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD205 00665 IF L001-VALID-DATE CHGBD205 00666 MOVE L001-FED-8-DATE-9 TO WRK-END-DATE CHGBD205 00667 ELSE CHGBD205 00668 MOVE 'INVALID PERIOD END DATE' TO ABEND-MSG CHGBD205 00669 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00670 CHGBD205 00671 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205 00672 PERFORM I2221-QTR-END-DATE THRU I2221-EXIT CHGBD205 00673 ELSE CHGBD205 00674 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205 00675 PERFORM I2222-ANN-END-DATE THRU I2222-EXIT CHGBD205 00676 ELSE CHGBD205 00677 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD205 00678 PERFORM I2223-MON-END-DATE THRU I2223-EXIT CHGBD205 00679 ELSE CHGBD205 00680 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD205 00681 PERFORM I2224-WKLY-END-DATE THRU I2224-EXIT. CHGBD205 00682 CHGBD205 00683 I2220-EXIT. CHGBD205 00684 EXIT. CHGBD205 00685 CHGBD205 00686 I2221-QTR-END-DATE. CHGBD205 00687 MOVE WRK-END-DATE TO L004-DATE. CHGBD205 00688 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD205 00689 IF WRK-END-DATE NOT = L004-QTR-END-DATE CHGBD205 00690 MOVE 'PERIOD END NOT END OF QTR' CHGBD205 00691 TO ABEND-MSG CHGBD205 00692 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00693 END-IF. CHGBD205 00694 CHGBD205 00695 I2221-EXIT. CHGBD205 00696 EXIT. CHGBD205 00697 CHGBD205 00698 I2222-ANN-END-DATE. CHGBD205 00699 MOVE WRK-END-DATE TO WRK-END-DATE-DISP. CHGBD205 00700 IF WRK-END-MO = 06 CHGBD205 00701 AND WRK-END-DA = 30 CHGBD205 00702 NEXT SENTENCE CHGBD205 00703 ELSE CHGBD205 00704 MOVE 'ANNUAL END DATE MUST BE JUNE 30' CHGBD205 00705 TO ABEND-MSG CHGBD205 00706 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00707 END-IF. CHGBD205 00708 CHGBD205 00709 IF (WRK-BEGIN-YR + 1) = WRK-END-YR CHGBD205 00710 NEXT SENTENCE CHGBD205 00711 ELSE CHGBD205 00712 MOVE 'START DATE NOT 1 YEAR PRIOR TO END DATE' CHGBD205 00713 TO ABEND-MSG CHGBD205 00714 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00715 END-IF. CHGBD205 00716 CHGBD205 00717 I2222-EXIT. CHGBD205 00718 EXIT. CHGBD205 00719 CHGBD205 00720 I2223-MON-END-DATE. CHGBD205 00721 MOVE WRK-END-DATE TO L001-FED-8-DATE-9. CHGBD205 00722 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBD205 00723 ADD +1 TO L001-JUL-ABS-DAY. CHGBD205 00724 PERFORM S001-FROM-ABS THRU S001-EXIT. CHGBD205 00725 IF L001-FED-8-DA = 01 CHGBD205 00726 NEXT SENTENCE CHGBD205 00727 ELSE CHGBD205 00728 MOVE 'END DATE MUST BE END OF MONTH' CHGBD205 00729 TO ABEND-MSG CHGBD205 00730 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00731 END-IF. CHGBD205 00732 CHGBD205 00733 IF (WRK-END-DATE - WRK-BEGIN-DATE) > 30 CHGBD205 00734 MOVE 'BEGIN AND END DATES NOT IN SAME MONTH' CHGBD205 00735 TO ABEND-MSG CHGBD205 00736 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00737 END-IF. CHGBD205 00738 CHGBD205 00739 I2223-EXIT. CHGBD205 00740 EXIT. CHGBD205 00741 CHGBD205 00742 I2224-WKLY-END-DATE. CHGBD205 00743 IF L001-FRIDAY CHGBD205 00744 OR L001-SATURDAY CHGBD205 00745 NEXT SENTENCE CHGBD205 00746 ELSE CHGBD205 00747 MOVE 'WEEKLY END DATE MUST BE FRIDAY OR SATURDAY' CHGBD205 00748 TO ABEND-MSG CHGBD205 00749 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00750 END-IF. CHGBD205 00751 CHGBD205 00752 I2224-EXIT. CHGBD205 00753 EXIT. CHGBD205 00754 CHGBD205 00755 I2230-DEFAULT-DATES. CHGBD205 00756 IF CHG3-RUN-TYPE-SPECIAL-88 CHGBD205 00757 MOVE 'DATES REQUIRED FOR SPECIAL REQUEST' CHGBD205 00758 TO ABEND-MSG CHGBD205 00759 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00760 CHGBD205 00761 MOVE LOW-VALUES TO MSKL-KEY-AREA. CHGBD205 00762 MOVE +0 TO MSKL-EMP-NO. CHGBD205 00763 SET MSKL-HDR-88 TO TRUE. CHGBD205 00764 PERFORM S910-READ THRU S910-EXIT. CHGBD205 00765 CHGBD205 00766 IF L910-NO-REC-88 CHGBD205 00767 MOVE 'MHDR RECORD IS MISSING' CHGBD205 00768 TO ABEND-MSG CHGBD205 00769 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00770 CHGBD205 00771 MOVE MSKL-REC TO MHDR-REC. CHGBD205 00772 CHGBD205 00773 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205 00774 OR CHG3-RUN-TYPE-RPTS-88 CHGBD205 00775 PERFORM I2231-DEFAULT-QTR-DATES THRU I2231-EXIT CHGBD205 00776 ELSE CHGBD205 00777 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205 00778 PERFORM I2232-DEFAULT-ANN-DATES THRU I2232-EXIT CHGBD205 00779 ELSE CHGBD205 00780 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD205 00781 PERFORM I2233-DEFAULT-MON-DATES THRU I2233-EXIT CHGBD205 00782 ELSE CHGBD205 00783 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD205 00784 PERFORM I2234-DEFAULT-WKLY-DATES THRU I2234-EXIT. CHGBD205 00785 CHGBD205 00786 I2230-EXIT. CHGBD205 00787 EXIT. CHGBD205 00788 CHGBD205 00789 I2231-DEFAULT-QTR-DATES. CHGBD205 00790 MOVE MHDR-CMPL-QTR-BEGIN-DATE CHGBD205 00791 TO WRK-BEGIN-DATE. CHGBD205 00792 MOVE MHDR-CMPL-QTR-END-DATE CHGBD205 00793 TO WRK-END-DATE. CHGBD205 00794 CHGBD205 00795 I2231-EXIT. CHGBD205 00796 EXIT. CHGBD205 00797 CHGBD205 00798 I2232-DEFAULT-ANN-DATES. CHGBD205 00799 MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9. CHGBD205 00800 MOVE L004-QTR-5-YR TO WRK-END-YR. CHGBD205 00801 MOVE 06 TO WRK-END-MO. CHGBD205 00802 MOVE 30 TO WRK-END-DA. CHGBD205 00803 MOVE WRK-END-DATE-DISP TO WRK-END-DATE. CHGBD205 00804 CHGBD205 00805 COMPUTE WRK-BEGIN-YR = (WRK-END-YR - 1). CHGBD205 00806 MOVE 07 TO WRK-BEGIN-MO. CHGBD205 00807 MOVE 01 TO WRK-BEGIN-DA. CHGBD205 00808 MOVE WRK-BEGIN-DATE-DISP TO WRK-BEGIN-DATE. CHGBD205 00809 CHGBD205 00810 IF WRK-END-DATE >= MHDR-CURR-RUN-DATE CHGBD205 00811 MOVE 'ANNUAL RPT CAN NOT RUN UNTIL AFTER JUNE 30' CHGBD205 00812 TO ABEND-MSG CHGBD205 00813 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00814 CHGBD205 00815 I2232-EXIT. CHGBD205 00816 EXIT. CHGBD205 00817 CHGBD205 00818 I2233-DEFAULT-MON-DATES. CHGBD205 00819 MOVE MHDR-CMPL-MONTH-BEGIN-DATE CHGBD205 00820 TO WRK-BEGIN-DATE. CHGBD205 00821 MOVE MHDR-CMPL-MONTH-END-DATE CHGBD205 00822 TO WRK-END-DATE. CHGBD205 00823 CHGBD205 00824 I2233-EXIT. CHGBD205 00825 EXIT. CHGBD205 00826 CHGBD205 00827 I2234-DEFAULT-WKLY-DATES. CHGBD205 00828 MOVE MHDR-CMPL-WEEK-BEGIN-DATE CHGBD205 00829 TO WRK-BEGIN-DATE. CHGBD205 00830 MOVE MHDR-CMPL-WEEK-END-DATE CHGBD205 00831 TO WRK-END-DATE. CHGBD205 00832 CHGBD205 00833 I2234-EXIT. CHGBD205 00834 EXIT. CHGBD205 00835 CHGBD205 00836 I2300-PARM-RPT-TYPES. CHGBD205 00837 IF CHG3-RUN-TYPE-RPTS-88 CHGBD205 00838 NEXT SENTENCE CHGBD205 00839 ELSE CHGBD205 00840 PERFORM I2310-DEFAULT-RPTS THRU I2310-EXIT CHGBD205 00841 GO TO I2300-EXIT. CHGBD205 00842 CHGBD205 00843 MOVE PARM-REPORT-TYPES TO CHG3-RPT-TYPES. CHGBD205 00844 CHGBD205 00845 IF CHG3-RPT-TYPE-RATED-88 CHGBD205 00846 OR CHG3-RPT-TYPE-SELF-INS-88 CHGBD205 00847 OR CHG3-RPT-TYPE-CWC-88 CHGBD205 00848 OR CHG3-RPT-TYPE-FED-88 CHGBD205 00849 OR CHG3-RPT-TYPE-TEUC-88 CHGBD205 00850 OR CHG3-RPT-TYPE-DC-88 CHGBD205 00851 OR CHG3-RPT-TYPE-FPUC-88 CL*29 00852 NEXT SENTENCE CHGBD205 00853 ELSE CHGBD205 00854 MOVE 'AT LEAST ONE RPT TYPE MUST SET TO Y ' TO ABEND-MSG CHGBD205 00855 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00856 CHGBD205 00857 IF CHG3-RPT-TYPE-RATED-88 CHGBD205 00858 DISPLAY 'SELECT RATED EMPLOYERS'. CHGBD205 00859 IF CHG3-RPT-TYPE-SELF-INS-88 CHGBD205 00860 DISPLAY 'SELECT SELF-INSURED EMPLOYERS'. CHGBD205 00861 IF CHG3-RPT-TYPE-CWC-88 CHGBD205 00862 DISPLAY 'SELECT CWC EMPLOYERS'. CHGBD205 00863 IF CHG3-RPT-TYPE-FED-88 CHGBD205 00864 DISPLAY 'SELECT FEDERAL EMPLOYERS'. CHGBD205 00865 IF CHG3-RPT-TYPE-TEUC-88 CHGBD205 00866 DISPLAY 'SELECT TEUC EMPLOYERS'. CHGBD205 00867 IF CHG3-RPT-TYPE-DC-88 CHGBD205 00868 DISPLAY 'SELECT DC GOV EMPLOYERS'. CHGBD205 00869 IF CHG3-RPT-TYPE-FPUC-88 CL*29 00870 DISPLAY 'SELECT FPUC EMPLOYERS'. CL*29 00871 DISPLAY SPACE. CHGBD205 00872 CHGBD205 00873 I2300-EXIT. CHGBD205 00874 EXIT. CHGBD205 00875 CHGBD205 00876 I2310-DEFAULT-RPTS. CHGBD205 00877 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205 00878 OR CHG3-RUN-TYPE-EMP-88 CHGBD205 00879 OR CHG3-RUN-TYPE-MONTHLY-88 CHGBD205 00880 OR CHG3-RUN-TYPE-WEEKLY-88 CL*38 00881 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD205 00882 SET CHG3-RPT-TYPE-SELF-INS-88 TO TRUE CHGBD205 00883 SET CHG3-RPT-TYPE-CWC-88 TO TRUE CHGBD205 00884 SET CHG3-RPT-TYPE-FED-88 TO TRUE CHGBD205 00885 SET CHG3-RPT-TYPE-DC-88 TO TRUE CHGBD205 00886 ELSE CHGBD205 00887 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205 00888 OR CHG3-RUN-TYPE-AGENT-88 CHGBD205 00889 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD205 00890 ELSE CHGBD205 00891 IF CHG3-RUN-TYPE-TEUC-88 CHGBD205 00892 SET CHG3-RPT-TYPE-TEUC-88 TO TRUE CL*30 00893 ELSE CL*30 00894 IF CHG3-RUN-TYPE-FPUC-88 CL*30 00895 SET CHG3-RPT-TYPE-FPUC-88 TO TRUE. CL*38 00896 CHGBD205 00897 I2310-EXIT. CHGBD205 00898 EXIT. CHGBD205 00899 CHGBD205 00900 I2400-PARM-EMP-NO. CHGBD205 00901 IF CHG3-RUN-TYPE-EMP-88 CHGBD205 00902 OR CHG3-RUN-TYPE-ANN-EMP-88 CHGBD205 00903 OR CHG3-RUN-TYPE-MON-EMP-88 CHGBD205 00904 OR CHG3-RUN-TYPE-WK-EMP-88 CHGBD205 00905 NEXT SENTENCE CHGBD205 00906 ELSE CHGBD205 00907 MOVE ZERO TO CHG3-EMP-NO CHGBD205 00908 GO TO I2400-EXIT. CHGBD205 00909 CHGBD205 00910 IF PARM-EMP-NO NUMERIC CHGBD205 00911 IF PARM-EMP-NO > ZERO CHGBD205 00912 NEXT SENTENCE CHGBD205 00913 ELSE CHGBD205 00914 MOVE 'PARM EMP NO MUST BE > ZERO' TO ABEND-MSG CHGBD205 00915 PERFORM S999-ABEND THRU S999-EXIT CHGBD205 00916 END-IF CHGBD205 00917 ELSE CHGBD205 00918 MOVE 'PARM EMP NO NOT NUMERIC' TO ABEND-MSG CHGBD205 00919 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205 00920 CHGBD205 00921 MOVE PARM-EMP-NO TO CHG3-EMP-NO. CHGBD205 00922 CHGBD205 00923 DISPLAY 'EMPLOYER SELECTED: ' CHG3-EMP-NO. CHGBD205 00924 CHGBD205 00925 I2400-EXIT. CHGBD205 00926 EXIT. CHGBD205 00927 CHGBD205 00928 P0000-PROCESS. CHGBD205 00929 CHGBD205 00930 MOVE WRK-BEGIN-DATE TO CHG2-CHARGE-DATE. CHGBD205 00931 MOVE +0 TO CHG2-EMP-NO CHGBD205 00932 CHG2-SSN CHGBD205 00933 CHG2-BYE. CHGBD205 00934 MOVE '0' TO CHG2-PROGRAM. CHGBD205 00935 START BD200-CHG-FILE-IN CHGBD205 00936 KEY IS >= CHG2-KEY-AREA. CHGBD205 00937 CHGBD205 00938 IF NOT BD200-FILE-OK-88 CHGBD205 00939 DISPLAY 'BD200 FIRST READ ERROR: ' BD200-CHG-STATUS CHGBD205 00940 PERFORM P0100-NO-RECS THRU P0100-EXIT CHGBD205 00941 GO TO P0000-EXIT. CHGBD205 00942 CHGBD205 00943 PERFORM P1000-READ-CHARGES THRU P1000-EXIT CHGBD205 00944 UNTIL BD200-FILE-EOF-88 CHGBD205 00945 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD205 00946 OR WRK-ERROR-YES-88. CHGBD205 00947 CHGBD205 00948 P0000-EXIT. CHGBD205 00949 EXIT. CHGBD205 00950 CHGBD205 00951 P0100-NO-RECS. CHGBD205 00952 DISPLAY '*** NO RECORDS FOUND FOR PARM ***'. CHGBD205 00953 DISPLAY '*** RUN ENDING ***'. CHGBD205 00954 CHGBD205 00955 P0100-EXIT. CHGBD205 00956 EXIT. CHGBD205 00957 CHGBD205 00958 P1000-READ-CHARGES. CHGBD205 00959 READ BD200-CHG-FILE-IN NEXT. CHGBD205 00960 CHGBD205 00961 IF BD200-FILE-EOF-88 CHGBD205 00962 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD205 00963 GO TO P1000-EXIT CHGBD205 00964 ELSE CHGBD205 00965 IF NOT BD200-FILE-OK-88 CHGBD205 00966 DISPLAY 'BD200 FILE READ ERROR: ' BD200-CHG-STATUS CHGBD205 00967 SET WRK-ERROR-YES-88 TO TRUE CHGBD205 00968 GO TO P1000-EXIT. CHGBD205 00969 CHGBD205 00970 ADD 1 TO WRK-BD200-CHG-READ. CHGBD205 00971 MOVE CHG2-EMP-TYPE TO WRK-EMP-TYPE. CHGBD205 00972 IF WRK-EMP-TYPE-POOL-88 CHGBD205 00973 ADD +1 TO WRK-BD200-CHG-DELETE CHGBD205 00974 COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT + CHGBD205 00975 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) CHGBD205 00976 GO TO P1000-EXIT. CHGBD205 00977 CHGBD205 00978 MOVE CHG2-EMP-NO TO WRK-EMP-NO. CHGBD205 00979 IF WRK-POOL-ACCT-88 CHGBD205 00980 ADD +1 TO WRK-BD200-CHG-DELETE CHGBD205 00981 COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT + CHGBD205 00982 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) CHGBD205 00983 GO TO P1000-EXIT. CHGBD205 00984 CHGBD205 00985 CHGBD205 00986 *& EXCLUDE RECORDS WITH BYE PRIOR TO 1/1/2001 CHGBD205 00987 *& FOR EMPLOYER TYPE = UCX, UCFE, SELF-INSURED, CHGBD205 00988 *& DC GOVERNMENT. PER FRANK ORLANDO 2/21/2002 - GD. CHGBD205 00989 CHGBD205 00990 ** THERE IS NO LONGER ANY NEED TO BYPASS THE CHARGE CHGBD205 00991 ** DATA - THE PROBLEM IN THE BENEFITS PROCESS HAS CHGBD205 00992 ** BEEN FIXED PER BRUCE. 6/24/2009 GD CHGBD205 00993 *** IF (CHG2-BYE = ZERO) OR (CHG2-CHARGE-DATE < 20010101) CHGBD205 00994 * NEXT SENTENCE CHGBD205 00995 * ELSE CHGBD205 00996 * IF CHG2-BYE < 20010101 CHGBD205 00997 * IF WRK-EMP-TYPE-UCX-88 CHGBD205 00998 * OR WRK-EMP-TYPE-UCFE-88 CHGBD205 00999 * OR WRK-EMP-TYPE-SELF-INS-88 CHGBD205 01000 * OR WRK-EMP-TYPE-DC-GOV-88 CHGBD205 01001 * OR (WRK-EMP-TYPE-CWC-88 AND WRK-FED-ACCT-88) CHGBD205 01002 * MOVE MSG8-ID2 TO R907-MSG-ID CHGBD205 01003 * MOVE CHG2-EMP-NO TO R907-EMP-NO CHGBD205 01004 * MOVE CHG2-SSN TO MSG8-SSN CHGBD205 01005 * MOVE CHG2-BYE TO MSG8-BYE CHGBD205 01006 * MOVE CHG2-PROGRAM TO MSG8-PGM CHGBD205 01007 * MOVE CHG2-CURR-BEN-AMT TO MSG8-AMT CHGBD205 01008 * MOVE CHG2-CHARGE-DATE TO MSG8-DATE CHGBD205 01009 * MOVE MSG8-LONG-TEXT TO R907-MSG-TEXT CHGBD205 01010 * ADD +1 TO WRK-INV-CHRG-ERR-CNT CHGBD205 01011 * COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT + CHGBD205 01012 * (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) CHGBD205 01013 * PERFORM S946-R907-WRITE THRU S946-EXIT CHGBD205 01014 ** GO TO P1000-EXIT. CHGBD205 01015 CHGBD205 01016 IF CHG2-EMP-TYPE = 10 AND CHG2-PROGRAM NOT = '1' CL*40 01017 GO TO P1000-EXIT. CL*40 01018 CL*40 01019 PERFORM S1100-WRITE-BD205 THRU S1100-EXIT CHGBD205 01020 COMPUTE WRK-TOT-CHG = WRK-TOT-CHG + CHGBD205 01021 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT). CHGBD205 01022 CHGBD205 01023 P1000-EXIT. CHGBD205 01024 EXIT. CHGBD205 01025 CHGBD205 01026 S1100-WRITE-BD205. CHGBD205 01027 WRITE BD205-CHG-REC FROM BD200-CHG-REC. CHGBD205 01028 IF BD205-FILE-OK-88 CHGBD205 01029 ADD 1 TO WRK-BD205-WRITE. CHGBD205 01030 CHGBD205 01031 S1100-EXIT. CHGBD205 01032 EXIT. CHGBD205 01033 CHGBD205 01034 S001-FROM-CAL-6. CHGBD205 01035 SET L001-FROM-CAL-6 TO TRUE. CHGBD205 01036 GO TO S001-DATE. CHGBD205 01037 CHGBD205 01038 S001-FROM-FED-8. CHGBD205 01039 SET L001-FROM-FED-8 TO TRUE. CHGBD205 01040 GO TO S001-DATE. CHGBD205 01041 CHGBD205 01042 S001-FROM-ABS. CHGBD205 01043 SET L001-FROM-ABS-DAY TO TRUE. CHGBD205 01044 GO TO S001-DATE. CHGBD205 01045 CHGBD205 01046 S001-DATE. CHGBD205 01047 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBD205 01048 S001-EXIT. EXIT. CHGBD205 01049 CHGBD205 01050 S004-FROM-DATE. CHGBD205 01051 SET L004-FROM-DATE TO TRUE. CHGBD205 01052 GO TO S004-YRQ. CHGBD205 01053 CHGBD205 01054 S004-YRQ. CHGBD205 01055 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBD205 01056 S004-EXIT. EXIT. CHGBD205 01057 CHGBD205 01058 S910-OPEN-READ. CHGBD205 01059 SET L910-OPEN-READ-88 TO TRUE. CHGBD205 01060 GO TO S910-MSTR-IO. CHGBD205 01061 CHGBD205 01062 S910-READ. CHGBD205 01063 SET L910-READ-88 TO TRUE. CHGBD205 01064 GO TO S910-MSTR-IO. CHGBD205 01065 CHGBD205 01066 S910-CLOSE. CHGBD205 01067 SET L910-CLOSE-88 TO TRUE. CHGBD205 01068 GO TO S910-MSTR-IO. CHGBD205 01069 CHGBD205 01070 S910-MSTR-IO. CHGBD205 01071 CALL 'DTSBU910' USING L910-LINK-AREA CHGBD205 01072 MSKL-REC. CHGBD205 01073 CHGBD205 01074 S910-EXIT. CHGBD205 01075 EXIT. CHGBD205 01076 CHGBD205 01077 ** ADD ERROR MSG PROCESS PARA. CHGBD205 01078 S946-R907-WRITE. CHGBD205 01079 CALL 'DTSBU946' USING R907-REC. CHGBD205 01080 S946-EXIT. EXIT. CHGBD205 01081 CHGBD205 01082 T0000-TERMINATE. CHGBD205 01083 CLOSE BD200-CHG-FILE-IN CHGBD205 01084 BD205-CHG-FILE-OUT. CHGBD205 01085 CHGBD205 01086 PERFORM S910-CLOSE THRU S910-EXIT. CHGBD205 01087 CHGBD205 01088 DISPLAY '************** CHGBD205 COUNTS **************'. CHGBD205 01089 DISPLAY '*** ***'. CHGBD205 01090 CHGBD205 01091 MOVE WRK-BD200-CHG-READ TO WRK-CNT-DISP. CHGBD205 01092 DISPLAY 'CHARGE RECORDS READ: ' CHGBD205 01093 WRK-CNT-DISP. CHGBD205 01094 CHGBD205 01095 MOVE WRK-BD205-WRITE TO WRK-CNT-DISP. CHGBD205 01096 DISPLAY 'CHARGE RECORDS WRITTEN: ' CHGBD205 01097 WRK-CNT-DISP. CHGBD205 01098 CHGBD205 01099 DISPLAY SPACE. CHGBD205 01100 CHGBD205 01101 MOVE WRK-TOT-CHG TO WRK-TOT-CHG-DISP. CHGBD205 01102 *** DISPLAY SPACE. CHGBD205 01103 DISPLAY 'CHGBD205 TOTAL CHARGE: ' WRK-TOT-CHG-DISP. CHGBD205 01104 CHGBD205 01105 MOVE WRK-INV-CHRG-ERR-CNT TO WRK-CNT-DISP. CHGBD205 01106 DISPLAY SPACE. CHGBD205 01107 DISPLAY 'PRE-2001 CHARGES EXCLUDED: ' CHGBD205 01108 WRK-CNT-DISP. CHGBD205 01109 CHGBD205 01110 MOVE WRK-BD200-CHG-DELETE TO WRK-CNT-DISP. CHGBD205 01111 DISPLAY 'POOL ACCOUNTS EXCLUDED: ' CHGBD205 01112 WRK-CNT-DISP. CHGBD205 01113 CHGBD205 01114 MOVE WRK-CURR-SUMM-AMT TO WRK-CURR-SUMM-AMT-DISP. CHGBD205 01115 DISPLAY SPACE. CHGBD205 01116 DISPLAY 'POOL ACCT CHARGES EXCLUDED: ' CHGBD205 01117 WRK-CURR-SUMM-AMT-DISP. CHGBD205 01118 DISPLAY '***********************************************'. CHGBD205 01119 CHGBD205 01120 T0000-EXIT. CHGBD205 01121 EXIT. CHGBD205 01122 EJECT CHGBD205 01123 CHGBD205 01124 S999-ABEND. CHGBD205 01125 DISPLAY '**** CHGBD205 ABENDING ' CHGBD205 01126 ABEND-MSG. CHGBD205 01127 CALL ABEND-MOD USING ABEND-CODE. CHGBD205 01128 CHGBD205 01129 S999-EXIT. CHGBD205 01130 EXIT. CHGBD205 01131 CHGBD205