00001 IDENTIFICATION DIVISION. 05/25/10 00002 PROGRAM-ID. CHGBD206. CHGBD206 00003 *AUTHOR. TRW. LV020 00004 *DATE-WRITTEN. JULY 2002. CHGBD206 00005 DATE-COMPILED. CHGBD206 00006 SKIP3 CHGBD206 00007 ***** CHGBD206 00008 * CHGBD206 00009 * FUNCTION: CHGBD206 00010 * CHGBD206 00011 * SELECT CHARGE RECORDS TO INCLUDE IN TOTAL BENEFIT CHGBD206 00012 * CHARGE FILE, LISTING CHARGES TO EACH CLAIMANT CHGBD206 00013 * BY BENEFIT YEAR AND DATE OF PAYMENT OR ADJUSTMENT. CHGBD206 00014 * OF PAYMENT OR ADJUSTMENT. CHGBD206 00015 * CHGBD206 00016 * WRITE BD206CHG OUTPUT RECORD. CHGBD206 00017 * CHGBD206 00018 * INPUT: CHGBD206 00019 * CHGBD206 00020 * BD200CHG - CHARGE REPORT RECORDS GENERATED BY CHGBD206 00021 * CHGBD200. CHGBD206 00022 * CHGPARM - EXTRACT PARAMETERS CHGBD206 00023 * CHGBD206 00024 * OUTPUT: CHGBD206 00025 * CHGBD206 00026 * BD206CHG - CHARGE RECORDS SELECTED IN CHGBD206 00027 * CHGBD206. CHGBD206 00028 * CHGBD206 00029 * CHGBD206 00030 * PARAMETERS: CHGBD206 00031 * CHGBD206 00032 * RUN TYPE - CHGBD206 00033 * QUARTERLY ('QTR') - REGULAR QUARTERLY REPORTING CHGBD206 00034 * ANNUAL ('ANN') - ANNUAL REPORTING CHGBD206 00035 * EMPLOYER ('EMP') - SPECIAL REPORT FOR A SINGLE CHGBD206 00036 * EMPLOYER CHGBD206 00037 * REPORTS ('RPT') - SPECIAL REPORT TO REPRINT CHGBD206 00038 * REPORTS. USE THE REPORT TYPE CHGBD206 00039 * PARM TO INDICATE WHICH TYPES CHGBD206 00040 * OF REPORTS TO INCLUDE. CHGBD206 00041 * FISCAL AGENTS CHGBD206 00042 * ('AGT') - RERUN FISCAL AGENT TAPES. CHGBD206 00043 * CHGBD206 00044 * >> WHEN RUN TYPE IS 'QTR' THE SYSTEM WILL CHGBD206 00045 * >> GENERATE T026 BENEFIT CHARGE ACCOUNTING CHGBD206 00046 * >> TRANSACTIONS AND TPS RECORDS. CHGBD206 00047 * CHGBD206 00048 * BEGIN DATE - DATE FROM WHICH TO BEGIN SELECTION CHGBD206 00049 * OF CHARGE RECORDS. CHGBD206 00050 * REQUIRED FOR ALL RUN TYPES. CHGBD206 00051 * CHGBD206 00052 * END DATE - DATE AT WHICH TO END SELECTION CHGBD206 00053 * OF CHARGE RECORDS. CHGBD206 00054 * REQUIRED FOR ALL RUN TYPES. CHGBD206 00055 * CHGBD206 00056 * CHGBD206 00057 ***** CHGBD206 00058 CHGBD206 00059 ******************************************************************CHGBD206 00060 * MODIFICATION HISTORY: *CHGBD206 00061 * *CHGBD206 00062 * 02-02-1999 INITIAL DEVELOPMENT *CHGBD206 00063 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD206 00064 * *CHGBD206 00065 * 06-21-2001 MODIFIED FOR NEW CHARGE PROCESS CHGBD206 00066 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD206 00067 * *CHGBD206 00068 * 04-23-2002 MODIFIED TO OUTPUT TEUC RPC150R1 REPORT CHGBD206 00069 * REFERENCE RFP #**** AUTHOR OF CHANGE - RW1 *CHGBD206 00070 * *CHGBD206 00071 * 06-29-2004 ADD EMP-TYPE 17 - DOMESTIC VIOLENCE. CHGBD206 00072 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD206 00073 * *CHGBD206 00074 * 01-11-2006 REMOVE CODE IN P1000 THAT EXCLUDED POTENTIALLY CHGBD206 00075 * INCORRECT CHARGES. THE PROBLEM IN THE BENEFITS CHGBD206 00076 * SYSTEM HAS BEEN FIXED. CHGBD206 00077 * REFERENCE: AUTHOR OF CHANGE - GD *CHGBD206 00078 * CHGBD206 00079 * *CHGBD206 00080 * 12-04-2009 MODIFIED FOR NEW CODES. CHGBD206 00081 * REFERENCE RFP #**** AUTHOR OF CHANGE - ZL1 *CHGBD206 00082 * *CHGBD206 00083 * *CHGBD206 00084 * 05-04-2010 MODIFIED FOR NEW CODES. CHGBD206 00085 * REFERENCE RFP #**** AUTHOR OF CHANGE - ZL1 *CHGBD206 00086 * *CHGBD206 00087 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD206 00088 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD206 00089 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBD206 00090 ******************************************************************CHGBD206 00091 CHGBD206 00092 SKIP3 CHGBD206 00093 ENVIRONMENT DIVISION. CHGBD206 00094 SKIP3 CHGBD206 00095 INPUT-OUTPUT SECTION. CHGBD206 00096 SKIP3 CHGBD206 00097 FILE-CONTROL. CHGBD206 00098 SELECT INPUT-PARM ASSIGN TO SYSIN CHGBD206 00099 FILE STATUS IS INPUT-PARM-STATUS. CHGBD206 00100 CHGBD206 00101 SELECT BD200-CHG-FILE-IN ASSIGN TO BD200CHG CHGBD206 00102 ORGANIZATION IS INDEXED CHGBD206 00103 ACCESS MODE IS DYNAMIC CHGBD206 00104 RECORD KEY IS CHG2-KEY-AREA CHGBD206 00105 FILE STATUS IS BD200-CHG-STATUS. CHGBD206 00106 CHGBD206 00107 SELECT BD206-CHG-FILE-OUT ASSIGN TO BD206CHG CHGBD206 00108 FILE STATUS IS BD206-CHG-STATUS. CHGBD206 00109 CHGBD206 00110 EJECT CHGBD206 00111 DATA DIVISION. CHGBD206 00112 CHGBD206 00113 FILE SECTION. CHGBD206 00114 FD INPUT-PARM CHGBD206 00115 LABEL RECORDS ARE STANDARD CHGBD206 00116 BLOCK CONTAINS 0 CHARACTERS. CHGBD206 00117 SKIP1 CHGBD206 00118 01 INPUT-PARM-REC. CHGBD206 00119 05 PARM-RUN-TYPE PIC X(03). CHGBD206 00120 05 FILLER PIC X(01). CHGBD206 00121 05 PARM-BEGIN-DATE PIC 9(06). CHGBD206 00122 05 FILLER PIC X(01). CHGBD206 00123 05 PARM-END-DATE PIC 9(06). CHGBD206 00124 05 FILLER PIC X(01). CHGBD206 00125 05 PARM-REPORT-TYPES. CHGBD206 00126 10 PARM-RPT-TYPE-RATED PIC X(01). CHGBD206 00127 10 PARM-RPT-TYPE-SELF-IND PIC X(01). CHGBD206 00128 10 PARM-RPT-TYPE-CWC PIC X(01). CHGBD206 00129 10 PARM-RPT-TYPE-FED PIC X(01). CHGBD206 00130 10 PARM-RPT-TYPE-TEUC PIC X(01). CHGBD206 00131 10 PARM-RPT-TYPE-TEUCA PIC X(01). CHGBD206 00132 05 FILLER PIC X(01). CHGBD206 00133 05 PARM-EMP-NO PIC 9(06). CHGBD206 00134 05 FILLER PIC X(50). CHGBD206 00135 CHGBD206 00136 FD BD200-CHG-FILE-IN CHGBD206 00137 RECORD CONTAINS 64 CHARACTERS CHGBD206 00138 DATA RECORD IS BD200-CHG-REC. CHGBD206 00139 01 BD200-CHG-REC. CHGBD206 00140 ++INCLUDE CHGIM002 CHGBD206 00141 CHGBD206 00142 FD BD206-CHG-FILE-OUT CHGBD206 00143 LABEL RECORDS ARE STANDARD CHGBD206 00144 BLOCK CONTAINS 0 CHARACTERS. CHGBD206 00145 SKIP1 CHGBD206 00146 01 BD206-CHG-REC PIC X(64). CHGBD206 00147 CHGBD206 00148 EJECT CHGBD206 00149 WORKING-STORAGE SECTION. CHGBD206 001495 77 PAN-VALET PICTURE X(24) VALUE '020CHGBD206 05/25/10'. CHGBD206 00150 CHGBD206 00151 01 WRK-AREA. CHGBD206 00152 *& CHGBD206 00153 05 WRK-DISP-AREA. CHGBD206 00154 10 WRK-DATE PIC 9999B99B99. CHGBD206 00155 10 FILLER PIC X(02) VALUE SPACES. CHGBD206 00156 10 WRK-EMP-DISP PIC 9(06). CHGBD206 00157 10 FILLER PIC X(02) VALUE SPACES. CHGBD206 00158 10 WRK-SSN-DISP PIC 9(10). CHGBD206 00159 10 FILLER PIC X(02) VALUE SPACES. CHGBD206 00160 10 WRK-CHG-AMT-DISP PIC Z(07)9.99-. CHGBD206 00161 CHGBD206 00162 05 WRK-SSN PIC 9(10). CHGBD206 00163 05 FILLER REDEFINES WRK-SSN. CHGBD206 00164 10 WRK-SSN9 PIC 9(09). CHGBD206 00165 10 WRK-SSN0 PIC 9(01). CHGBD206 00166 CHGBD206 00167 05 WRK-TOT-CHG PIC S9(11)V99 COMP-3 CHGBD206 00168 VALUE +0. CHGBD206 00169 05 WRK-TOT-CHG-DISP PIC Z(10)9.99-. CHGBD206 00170 05 ABEND-CODE PIC S9(04) COMP CHGBD206 00171 VALUE +206. CHGBD206 00172 05 ABEND-MOD PIC X(08) CHGBD206 00173 VALUE 'DTSBU999'. CHGBD206 00174 05 ABEND-MSG PIC X(60). CHGBD206 00175 CHGBD206 00176 05 INPUT-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD206 00177 88 INPUT-PARM-OK-88 VALUE ZERO. CHGBD206 00178 88 INPUT-PARM-EOF-88 VALUE '10'. CHGBD206 00179 CHGBD206 00180 05 BD200-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD206 00181 88 BD200-FILE-OK-88 VALUE ZERO. CHGBD206 00182 88 BD200-FILE-EOF-88 VALUE '10'. CHGBD206 00183 CHGBD206 00184 05 BD206-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD206 00185 88 BD206-FILE-OK-88 VALUE ZERO. CHGBD206 00186 88 BD206-FILE-EOF-88 VALUE '10'. CHGBD206 00187 CHGBD206 00188 05 WRK-ERROR-IND PIC X(01). CHGBD206 00189 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD206 00190 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD206 00191 CHGBD206 00192 05 WRK-EMP-VALID-IND PIC X(01). CHGBD206 00193 88 WRK-EMP-VALID-YES-88 VALUE 'Y'. CHGBD206 00194 88 WRK-EMP-VALID-NO-88 VALUE 'N'. CHGBD206 00195 CHGBD206 00196 05 WRK-BEGIN-DATE PIC S9(09) COMP-3. CHGBD206 00197 05 WRK-END-DATE PIC S9(09) COMP-3. CHGBD206 00198 CHGBD206 00199 05 WRK-BEGIN-DATE-DISP PIC 9(08). CHGBD206 00200 05 FILLER REDEFINES WRK-BEGIN-DATE-DISP. CHGBD206 00201 10 WRK-BEGIN-YR PIC 9(04). CHGBD206 00202 10 WRK-BEGIN-MO PIC 9(02). CHGBD206 00203 10 WRK-BEGIN-DA PIC 9(02). CHGBD206 00204 CHGBD206 00205 05 WRK-END-DATE-DISP PIC 9(08). CHGBD206 00206 05 FILLER REDEFINES WRK-END-DATE-DISP. CHGBD206 00207 10 WRK-END-YR PIC 9(04). CHGBD206 00208 10 WRK-END-MO PIC 9(02). CHGBD206 00209 10 WRK-END-DA PIC 9(02). CHGBD206 00210 CHGBD206 00211 05 WRK-EMP-NO PIC S9(07) COMP-3. CHGBD206 00212 88 WRK-POOL-ACCT-88 VALUE +028411, CHGBD206 00213 +999000 THRU +999992. CHGBD206 00214 88 WRK-FED-ACCT-88 VALUE +1 THRU +1999. CHGBD206 00215 CHGBD206 00216 05 WRK-EMP-TYPE PIC 9(02). CHGBD206 00217 88 WRK-EMP-TYPE-CONTRIB-88 VALUE 00. CHGBD206 00218 88 WRK-EMP-TYPE-UCX-88 VALUE 01. CHGBD206 00219 88 WRK-EMP-TYPE-UCFE-88 VALUE 02. CHGBD206 00220 88 WRK-EMP-TYPE-FED-88 VALUE 01, 02. CHGBD206 00221 88 WRK-EMP-TYPE-CWC-88 VALUE 04. CHGBD206 00222 88 WRK-EMP-TYPE-SELF-INS-88 VALUE 08. CHGBD206 00223 88 WRK-EMP-TYPE-DC-GOV-88 VALUE 10. CHGBD206 00224 88 WRK-EMP-TYPE-NOT-LIAB-88 VALUE 13. CHGBD206 00225 88 WRK-EMP-TYPE-TEUC-88 VALUE 16. CHGBD206 00226 88 WRK-EMP-TYPE-DOM-VIOLENC-88 VALUE 17. CHGBD206 00227 88 WRK-EMP-TYPE-POOL-88 VALUE CHGBD206 00228 03, 05, 06, 07, 09, 11, CHGBD206 00229 12, 15, 17, 18, 19, 20 CHGBD206 00230 21, 22, 23, 24, 25, 26, 27. CHGBD206 00231 88 WRK-EMP-TYPE-VALID-88 VALUE CHGBD206 00232 00, 01, 02, 03, 04, 05, CHGBD206 00233 06, 07, 08, 09, 10, 11, CHGBD206 00234 12, 13, 15, 16, 17, 18, CHGBD206 00235 19, 20, 21, 22, 23, 24, 25, 26, 27. CHGBD206 00236 CHGBD206 00237 05 WRK-RPT-TYPE PIC 9(02) VALUE ZERO. CHGBD206 00238 88 WRK-RPT-TYPE-RATED-88 VALUE 00. CHGBD206 00239 88 WRK-RPT-TYPE-FED-88 VALUE 01, 02. CHGBD206 00240 88 WRK-RPT-TYPE-CWC-88 VALUE 04. CHGBD206 00241 88 WRK-RPT-TYPE-SELF-INS-88 VALUE 08, 10. CHGBD206 00242 88 WRK-RPT-TYPE-EMP-88 VALUE 00, 01, 02, CHGBD206 00243 04, 08, 10. CHGBD206 00244 CHGBD206 00245 05 WRK-REC-SELECTED-IND PIC X(01) VALUE SPACE. CHGBD206 00246 88 WRK-REC-SELECTED-YES VALUE 'Y'. CHGBD206 00247 88 WRK-REC-SELECTED-NO VALUE 'N'. CHGBD206 00248 CHGBD206 00249 05 WRK-BD200-CHG-READ PIC 9(09) COMP-3 VALUE 0. CHGBD206 00250 05 WRK-BD206-WRITE PIC 9(09) COMP-3 VALUE 0. CHGBD206 00251 05 WRK-BD200-CHG-DELETE PIC 9(09) COMP-3 VALUE 0. CHGBD206 00252 05 WRK-BD200-NOT-LIAB-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD206 00253 05 WRK-INV-CHRG-ERR-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD206 00254 05 WRK-CNT-DISP PIC Z(08)9. CHGBD206 00255 CHGBD206 00256 01 WRK-PARM-AREA. CHGBD206 00257 ++INCLUDE CHGIM003 CHGBD206 00258 CHGBD206 00259 01 L910-LINK-AREA. CHGBD206 00260 ++INCLUDE DTSIL910 CHGBD206 00261 CHGBD206 00262 01 MSKL-REC. CHGBD206 00263 ++INCLUDE DTSIMSKL CHGBD206 00264 CHGBD206 00265 01 MHDR-REC. CHGBD206 00266 ++INCLUDE DTSIMHDR CHGBD206 00267 CHGBD206 00268 01 L001-LINK-AREA. CHGBD206 00269 ++INCLUDE DTSIL001 CHGBD206 00270 CHGBD206 00271 01 L004-LINK-AREA. CHGBD206 00272 ++INCLUDE DTSIL004 CHGBD206 00273 CHGBD206 00274 EJECT CHGBD206 00275 PROCEDURE DIVISION. CHGBD206 00276 SKIP2 CHGBD206 00277 CHGBD206-MAIN. CHGBD206 00278 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD206 00279 IF WRK-ERROR-YES-88 CHGBD206 00280 GO TO CHGBD206-EXIT. CHGBD206 00281 CHGBD206 00282 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD206 00283 CHGBD206 00284 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD206 00285 CHGBD206 00286 CHGBD206-EXIT. CHGBD206 00287 STOP RUN. CHGBD206 00288 EJECT CHGBD206 00289 I0000-INITIATE. CHGBD206 00290 CHGBD206 00291 MOVE ZERO TO WRK-BD200-CHG-READ CHGBD206 00292 WRK-BD200-NOT-LIAB-CNT CHGBD206 00293 WRK-BD206-WRITE CHGBD206 00294 WRK-BD200-CHG-DELETE. CHGBD206 00295 CHGBD206 00296 SET WRK-ERROR-NO-88 TO TRUE. CHGBD206 00297 CHGBD206 00298 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. CHGBD206 00299 CHGBD206 00300 PERFORM I2000-PROCESS-PARMS THRU I2000-EXIT. CHGBD206 00301 CHGBD206 00302 I0000-EXIT. CHGBD206 00303 EXIT. CHGBD206 00304 CHGBD206 00305 I1000-OPEN-FILES. CHGBD206 00306 CHGBD206 00307 OPEN INPUT BD200-CHG-FILE-IN. CHGBD206 00308 IF NOT BD200-FILE-OK-88 CHGBD206 00309 DISPLAY 'BD200 FILE OPEN ERROR: ' BD200-CHG-STATUS CHGBD206 00310 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00311 CHGBD206 00312 OPEN OUTPUT BD206-CHG-FILE-OUT. CHGBD206 00313 IF NOT BD206-FILE-OK-88 CHGBD206 00314 DISPLAY 'BD206 FILE OPEN ERROR: ' BD206-CHG-STATUS CHGBD206 00315 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00316 CHGBD206 00317 PERFORM S910-OPEN-READ THRU S910-EXIT. CHGBD206 00318 CHGBD206 00319 I1000-EXIT. CHGBD206 00320 EXIT. CHGBD206 00321 CHGBD206 00322 I2000-PROCESS-PARMS. CHGBD206 00323 OPEN INPUT INPUT-PARM. CHGBD206 00324 IF NOT INPUT-PARM-OK-88 CHGBD206 00325 DISPLAY 'INPUT PARM FILE OPEN ERROR: ' CHGBD206 00326 INPUT-PARM-STATUS CHGBD206 00327 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00328 CHGBD206 00329 READ INPUT-PARM. CHGBD206 00330 IF NOT INPUT-PARM-OK-88 CHGBD206 00331 DISPLAY 'INPUT PARM FILE READ ERROR: ' CHGBD206 00332 INPUT-PARM-STATUS CHGBD206 00333 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00334 CHGBD206 00335 DISPLAY '***** CHGBD206 PARM RECORD *****'. CHGBD206 00336 DISPLAY INPUT-PARM-REC. CHGBD206 00337 DISPLAY SPACE. CHGBD206 00338 CHGBD206 00339 DISPLAY '***** CHGBD206 EDITED PARMS *****'. CHGBD206 00340 *** DISPLAY SPACE. CHGBD206 00341 CHGBD206 00342 PERFORM I2100-PARM-RUN-TYPE THRU I2100-EXIT. CHGBD206 00343 CHGBD206 00344 PERFORM I2200-PARM-DATES THRU I2200-EXIT. CHGBD206 00345 CHGBD206 00346 PERFORM I2300-PARM-RPT-TYPES THRU I2300-EXIT. CHGBD206 00347 CHGBD206 00348 PERFORM I2400-PARM-EMP-NO THRU I2400-EXIT. CHGBD206 00349 CHGBD206 00350 I2000-EXIT. CHGBD206 00351 EXIT. CHGBD206 00352 CHGBD206 00353 I2100-PARM-RUN-TYPE. CHGBD206 00354 MOVE PARM-RUN-TYPE TO CHG3-RUN-TYPE. CHGBD206 00355 IF CHG3-RUN-TYPE-VALID-88 CHGBD206 00356 NEXT SENTENCE CHGBD206 00357 ELSE CHGBD206 00358 MOVE 'PARM RUN TYPE INVALID ' TO ABEND-MSG CHGBD206 00359 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00360 CHGBD206 00361 DISPLAY 'RUN TYPE : ' CHG3-RUN-TYPE. CHGBD206 00362 *** DISPLAY SPACE. CHGBD206 00363 CHGBD206 00364 I2100-EXIT. CHGBD206 00365 EXIT. CHGBD206 00366 CHGBD206 00367 I2200-PARM-DATES. CHGBD206 00368 MOVE ZERO TO WRK-BEGIN-DATE CHGBD206 00369 WRK-END-DATE. CHGBD206 00370 CHGBD206 00371 IF (PARM-BEGIN-DATE = SPACES OR LOW-VALUES) CHGBD206 00372 AND (PARM-END-DATE = SPACES OR LOW-VALUES) CHGBD206 00373 PERFORM I2230-DEFAULT-DATES THRU I2230-EXIT CHGBD206 00374 ELSE CHGBD206 00375 PERFORM I2210-BEGIN-DATE THRU I2210-EXIT CHGBD206 00376 PERFORM I2220-END-DATE THRU I2220-EXIT. CHGBD206 00377 CHGBD206 00378 IF WRK-END-DATE < WRK-BEGIN-DATE CHGBD206 00379 MOVE 'PERIOD END LESS THAN PERIOD BEGIN' CHGBD206 00380 TO ABEND-MSG CHGBD206 00381 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00382 CHGBD206 00383 MOVE WRK-BEGIN-DATE TO CHG3-BEGIN-DATE. CHGBD206 00384 MOVE WRK-END-DATE TO CHG3-END-DATE. CHGBD206 00385 CHGBD206 00386 DISPLAY 'START DATE : ' WRK-BEGIN-DATE. CHGBD206 00387 DISPLAY 'END DATE : ' WRK-END-DATE. CHGBD206 00388 DISPLAY SPACE. CHGBD206 00389 CHGBD206 00390 I2200-EXIT. CHGBD206 00391 EXIT. CHGBD206 00392 CHGBD206 00393 I2210-BEGIN-DATE. CHGBD206 00394 MOVE PARM-BEGIN-DATE TO L001-CAL-6-DATE-X. CHGBD206 00395 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD206 00396 IF L001-VALID-DATE CHGBD206 00397 MOVE L001-FED-8-DATE-9 TO WRK-BEGIN-DATE CHGBD206 00398 ELSE CHGBD206 00399 MOVE 'INVALID PERIOD BEGIN DATE' TO ABEND-MSG CHGBD206 00400 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00401 CHGBD206 00402 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206 00403 PERFORM I2211-QTR-BEGIN-DATE THRU I2211-EXIT CHGBD206 00404 ELSE CHGBD206 00405 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206 00406 PERFORM I2212-ANN-BEGIN-DATE THRU I2212-EXIT CHGBD206 00407 ELSE CHGBD206 00408 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD206 00409 PERFORM I2213-MON-BEGIN-DATE THRU I2213-EXIT CHGBD206 00410 ELSE CHGBD206 00411 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD206 00412 PERFORM I2214-WKLY-BEGIN-DATE THRU I2214-EXIT. CHGBD206 00413 CHGBD206 00414 I2210-EXIT. CHGBD206 00415 EXIT. CHGBD206 00416 CHGBD206 00417 I2211-QTR-BEGIN-DATE. CHGBD206 00418 MOVE WRK-BEGIN-DATE TO L004-DATE. CHGBD206 00419 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD206 00420 IF WRK-BEGIN-DATE NOT = L004-QTR-START-DATE CHGBD206 00421 MOVE 'PERIOD BEGIN NOT START OF QTR' CHGBD206 00422 TO ABEND-MSG CHGBD206 00423 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00424 END-IF. CHGBD206 00425 CHGBD206 00426 I2211-EXIT. CHGBD206 00427 EXIT. CHGBD206 00428 CHGBD206 00429 I2212-ANN-BEGIN-DATE. CHGBD206 00430 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD206 00431 IF WRK-BEGIN-MO = 07 CHGBD206 00432 AND WRK-BEGIN-DA = 01 CHGBD206 00433 NEXT SENTENCE CHGBD206 00434 ELSE CHGBD206 00435 MOVE 'ANNUAL START DATE MUST BE JULY 1' CHGBD206 00436 TO ABEND-MSG CHGBD206 00437 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00438 END-IF. CHGBD206 00439 CHGBD206 00440 I2212-EXIT. CHGBD206 00441 EXIT. CHGBD206 00442 CHGBD206 00443 I2213-MON-BEGIN-DATE. CHGBD206 00444 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD206 00445 IF WRK-BEGIN-DA = 01 CHGBD206 00446 NEXT SENTENCE CHGBD206 00447 ELSE CHGBD206 00448 MOVE 'MONTHLY START DATE MUST BE FIRST DAY OF MONTH' CHGBD206 00449 TO ABEND-MSG CHGBD206 00450 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00451 END-IF. CHGBD206 00452 CHGBD206 00453 I2213-EXIT. CHGBD206 00454 EXIT. CHGBD206 00455 CHGBD206 00456 I2214-WKLY-BEGIN-DATE. CHGBD206 00457 IF L001-SUNDAY CHGBD206 00458 OR L001-SUNDAY CHGBD206 00459 NEXT SENTENCE CHGBD206 00460 ELSE CHGBD206 00461 MOVE 'WEEKLY START DATE MUST BE SUNDAY OR MONDAY' CHGBD206 00462 TO ABEND-MSG CHGBD206 00463 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00464 END-IF. CHGBD206 00465 CHGBD206 00466 I2214-EXIT. CHGBD206 00467 EXIT. CHGBD206 00468 CHGBD206 00469 I2220-END-DATE. CHGBD206 00470 MOVE PARM-END-DATE TO L001-CAL-6-DATE-X. CHGBD206 00471 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD206 00472 IF L001-VALID-DATE CHGBD206 00473 MOVE L001-FED-8-DATE-9 TO WRK-END-DATE CHGBD206 00474 ELSE CHGBD206 00475 MOVE 'INVALID PERIOD END DATE' TO ABEND-MSG CHGBD206 00476 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00477 CHGBD206 00478 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206 00479 PERFORM I2221-QTR-END-DATE THRU I2221-EXIT CHGBD206 00480 ELSE CHGBD206 00481 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206 00482 PERFORM I2222-ANN-END-DATE THRU I2222-EXIT CHGBD206 00483 ELSE CHGBD206 00484 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD206 00485 PERFORM I2223-MON-END-DATE THRU I2223-EXIT CHGBD206 00486 ELSE CHGBD206 00487 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD206 00488 PERFORM I2224-WKLY-END-DATE THRU I2224-EXIT. CHGBD206 00489 CHGBD206 00490 I2220-EXIT. CHGBD206 00491 EXIT. CHGBD206 00492 CHGBD206 00493 I2221-QTR-END-DATE. CHGBD206 00494 MOVE WRK-END-DATE TO L004-DATE. CHGBD206 00495 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD206 00496 IF WRK-END-DATE NOT = L004-QTR-END-DATE CHGBD206 00497 MOVE 'PERIOD END NOT END OF QTR' CHGBD206 00498 TO ABEND-MSG CHGBD206 00499 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00500 END-IF. CHGBD206 00501 CHGBD206 00502 I2221-EXIT. CHGBD206 00503 EXIT. CHGBD206 00504 CHGBD206 00505 I2222-ANN-END-DATE. CHGBD206 00506 MOVE WRK-END-DATE TO WRK-END-DATE-DISP. CHGBD206 00507 IF WRK-END-MO = 06 CHGBD206 00508 AND WRK-END-DA = 30 CHGBD206 00509 NEXT SENTENCE CHGBD206 00510 ELSE CHGBD206 00511 MOVE 'ANNUAL END DATE MUST BE JUNE 30' CHGBD206 00512 TO ABEND-MSG CHGBD206 00513 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00514 END-IF. CHGBD206 00515 CHGBD206 00516 IF (WRK-BEGIN-YR + 1) = WRK-END-YR CHGBD206 00517 NEXT SENTENCE CHGBD206 00518 ELSE CHGBD206 00519 MOVE 'START DATE NOT 1 YEAR PRIOR TO END DATE' CHGBD206 00520 TO ABEND-MSG CHGBD206 00521 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00522 END-IF. CHGBD206 00523 CHGBD206 00524 I2222-EXIT. CHGBD206 00525 EXIT. CHGBD206 00526 CHGBD206 00527 I2223-MON-END-DATE. CHGBD206 00528 MOVE WRK-END-DATE TO L001-FED-8-DATE-9. CHGBD206 00529 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBD206 00530 ADD +1 TO L001-JUL-ABS-DAY. CHGBD206 00531 PERFORM S001-FROM-ABS THRU S001-EXIT. CHGBD206 00532 IF L001-FED-8-DA = 01 CHGBD206 00533 NEXT SENTENCE CHGBD206 00534 ELSE CHGBD206 00535 MOVE 'END DATE MUST BE END OF MONTH' CHGBD206 00536 TO ABEND-MSG CHGBD206 00537 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00538 END-IF. CHGBD206 00539 CHGBD206 00540 IF (WRK-END-DATE - WRK-BEGIN-DATE) > 30 CHGBD206 00541 MOVE 'BEGIN AND END DATES NOT IN SAME MONTH' CHGBD206 00542 TO ABEND-MSG CHGBD206 00543 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00544 END-IF. CHGBD206 00545 CHGBD206 00546 I2223-EXIT. CHGBD206 00547 EXIT. CHGBD206 00548 CHGBD206 00549 I2224-WKLY-END-DATE. CHGBD206 00550 IF L001-FRIDAY CHGBD206 00551 OR L001-SATURDAY CHGBD206 00552 NEXT SENTENCE CHGBD206 00553 ELSE CHGBD206 00554 MOVE 'WEEKLY END DATE MUST BE FRIDAY OR SATURDAY' CHGBD206 00555 TO ABEND-MSG CHGBD206 00556 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00557 END-IF. CHGBD206 00558 CHGBD206 00559 I2224-EXIT. CHGBD206 00560 EXIT. CHGBD206 00561 CHGBD206 00562 I2230-DEFAULT-DATES. CHGBD206 00563 IF CHG3-RUN-TYPE-SPECIAL-88 CHGBD206 00564 MOVE 'DATES REQUIRED FOR SPECIAL REQUEST' CHGBD206 00565 TO ABEND-MSG CHGBD206 00566 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00567 CHGBD206 00568 MOVE LOW-VALUES TO MSKL-KEY-AREA. CHGBD206 00569 MOVE +0 TO MSKL-EMP-NO. CHGBD206 00570 SET MSKL-HDR-88 TO TRUE. CHGBD206 00571 PERFORM S910-READ THRU S910-EXIT. CHGBD206 00572 CHGBD206 00573 IF L910-NO-REC-88 CHGBD206 00574 MOVE 'MHDR RECORD IS MISSING' CHGBD206 00575 TO ABEND-MSG CHGBD206 00576 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00577 CHGBD206 00578 MOVE MSKL-REC TO MHDR-REC. CHGBD206 00579 CHGBD206 00580 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206 00581 PERFORM I2231-DEFAULT-QTR-DATES THRU I2231-EXIT CHGBD206 00582 ELSE CHGBD206 00583 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206 00584 PERFORM I2232-DEFAULT-ANN-DATES THRU I2232-EXIT CHGBD206 00585 ELSE CHGBD206 00586 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD206 00587 PERFORM I2233-DEFAULT-MON-DATES THRU I2233-EXIT CHGBD206 00588 ELSE CHGBD206 00589 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD206 00590 PERFORM I2234-DEFAULT-WKLY-DATES THRU I2234-EXIT. CHGBD206 00591 CHGBD206 00592 I2230-EXIT. CHGBD206 00593 EXIT. CHGBD206 00594 CHGBD206 00595 I2231-DEFAULT-QTR-DATES. CHGBD206 00596 MOVE MHDR-CMPL-QTR-BEGIN-DATE CHGBD206 00597 TO WRK-BEGIN-DATE. CHGBD206 00598 MOVE MHDR-CMPL-QTR-END-DATE CHGBD206 00599 TO WRK-END-DATE. CHGBD206 00600 CHGBD206 00601 I2231-EXIT. CHGBD206 00602 EXIT. CHGBD206 00603 CHGBD206 00604 I2232-DEFAULT-ANN-DATES. CHGBD206 00605 MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9. CHGBD206 00606 MOVE L004-QTR-5-YR TO WRK-END-YR. CHGBD206 00607 MOVE 06 TO WRK-END-MO. CHGBD206 00608 MOVE 30 TO WRK-END-DA. CHGBD206 00609 MOVE WRK-END-DATE-DISP TO WRK-END-DATE. CHGBD206 00610 CHGBD206 00611 COMPUTE WRK-BEGIN-YR = (WRK-END-YR - 1). CHGBD206 00612 MOVE 07 TO WRK-BEGIN-MO. CHGBD206 00613 MOVE 01 TO WRK-BEGIN-DA. CHGBD206 00614 MOVE WRK-BEGIN-DATE-DISP TO WRK-BEGIN-DATE. CHGBD206 00615 CHGBD206 00616 IF WRK-END-DATE >= MHDR-CURR-RUN-DATE CHGBD206 00617 MOVE 'ANNUAL RPT CAN NOT RUN UNTIL AFTER JUNE 30' CHGBD206 00618 TO ABEND-MSG CHGBD206 00619 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00620 CHGBD206 00621 I2232-EXIT. CHGBD206 00622 EXIT. CHGBD206 00623 CHGBD206 00624 I2233-DEFAULT-MON-DATES. CHGBD206 00625 MOVE MHDR-CMPL-MONTH-BEGIN-DATE CHGBD206 00626 TO WRK-BEGIN-DATE. CHGBD206 00627 MOVE MHDR-CMPL-MONTH-END-DATE CHGBD206 00628 TO WRK-END-DATE. CHGBD206 00629 CHGBD206 00630 I2233-EXIT. CHGBD206 00631 EXIT. CHGBD206 00632 CHGBD206 00633 I2234-DEFAULT-WKLY-DATES. CHGBD206 00634 MOVE MHDR-CMPL-WEEK-BEGIN-DATE CHGBD206 00635 TO WRK-BEGIN-DATE. CHGBD206 00636 MOVE MHDR-CMPL-WEEK-END-DATE CHGBD206 00637 TO WRK-END-DATE. CHGBD206 00638 CHGBD206 00639 I2234-EXIT. CHGBD206 00640 EXIT. CHGBD206 00641 CHGBD206 00642 I2300-PARM-RPT-TYPES. CHGBD206 00643 IF CHG3-RUN-TYPE-RPTS-88 CHGBD206 00644 NEXT SENTENCE CHGBD206 00645 ELSE CHGBD206 00646 PERFORM I2310-DEFAULT-RPTS THRU I2310-EXIT CHGBD206 00647 GO TO I2300-EXIT. CHGBD206 00648 CHGBD206 00649 MOVE PARM-REPORT-TYPES TO CHG3-RPT-TYPES. CHGBD206 00650 CHGBD206 00651 IF CHG3-RPT-TYPE-RATED-88 CHGBD206 00652 OR CHG3-RPT-TYPE-SELF-INS-88 CHGBD206 00653 OR CHG3-RPT-TYPE-CWC-88 CHGBD206 00654 OR CHG3-RPT-TYPE-FED-88 CHGBD206 00655 OR CHG3-RPT-TYPE-TEUC-88 CHGBD206 00656 OR CHG3-RPT-TYPE-DC-88 CHGBD206 00657 NEXT SENTENCE CHGBD206 00658 ELSE CHGBD206 00659 MOVE 'AT LEAST ONE RPT TYPE MUST SET TO Y ' TO ABEND-MSG CHGBD206 00660 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00661 CHGBD206 00662 IF CHG3-RPT-TYPE-RATED-88 CHGBD206 00663 DISPLAY 'SELECT RATED EMPLOYERS'. CHGBD206 00664 IF CHG3-RPT-TYPE-SELF-INS-88 CHGBD206 00665 DISPLAY 'SELECT SELF-INSURED EMPLOYERS'. CHGBD206 00666 IF CHG3-RPT-TYPE-CWC-88 CHGBD206 00667 DISPLAY 'SELECT CWC EMPLOYERS'. CHGBD206 00668 IF CHG3-RPT-TYPE-FED-88 CHGBD206 00669 DISPLAY 'SELECT FEDERAL EMPLOYERS'. CHGBD206 00670 IF CHG3-RPT-TYPE-TEUC-88 CHGBD206 00671 DISPLAY 'SELECT TEUC EMPLOYERS'. CHGBD206 00672 IF CHG3-RPT-TYPE-DC-88 CHGBD206 00673 DISPLAY 'SELECT DC GOV EMPLOYERS'. CHGBD206 00674 DISPLAY SPACE. CHGBD206 00675 CHGBD206 00676 I2300-EXIT. CHGBD206 00677 EXIT. CHGBD206 00678 CHGBD206 00679 I2310-DEFAULT-RPTS. CHGBD206 00680 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206 00681 OR CHG3-RUN-TYPE-EMP-88 CHGBD206 00682 OR CHG3-RUN-TYPE-MONTHLY-88 CHGBD206 00683 OR CHG3-RUN-TYPE-WEEKLY-88 CHGBD206 00684 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD206 00685 SET CHG3-RPT-TYPE-SELF-INS-88 TO TRUE CHGBD206 00686 SET CHG3-RPT-TYPE-CWC-88 TO TRUE CHGBD206 00687 SET CHG3-RPT-TYPE-FED-88 TO TRUE CHGBD206 00688 SET CHG3-RPT-TYPE-DC-88 TO TRUE CHGBD206 00689 ELSE CHGBD206 00690 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206 00691 OR CHG3-RUN-TYPE-AGENT-88 CHGBD206 00692 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD206 00693 ELSE CHGBD206 00694 IF CHG3-RUN-TYPE-TEUC-88 CHGBD206 00695 SET CHG3-RPT-TYPE-TEUC-88 TO TRUE. CHGBD206 00696 CHGBD206 00697 I2310-EXIT. CHGBD206 00698 EXIT. CHGBD206 00699 CHGBD206 00700 I2400-PARM-EMP-NO. CHGBD206 00701 IF CHG3-RUN-TYPE-EMP-88 CHGBD206 00702 OR CHG3-RUN-TYPE-ANN-EMP-88 CHGBD206 00703 OR CHG3-RUN-TYPE-MON-EMP-88 CHGBD206 00704 OR CHG3-RUN-TYPE-WK-EMP-88 CHGBD206 00705 NEXT SENTENCE CHGBD206 00706 ELSE CHGBD206 00707 MOVE ZERO TO CHG3-EMP-NO CHGBD206 00708 GO TO I2400-EXIT. CHGBD206 00709 CHGBD206 00710 IF PARM-EMP-NO NUMERIC CHGBD206 00711 IF PARM-EMP-NO > ZERO CHGBD206 00712 NEXT SENTENCE CHGBD206 00713 ELSE CHGBD206 00714 MOVE 'PARM EMP NO MUST BE > ZERO' TO ABEND-MSG CHGBD206 00715 PERFORM S999-ABEND THRU S999-EXIT CHGBD206 00716 END-IF CHGBD206 00717 ELSE CHGBD206 00718 MOVE 'PARM EMP NO NOT NUMERIC' TO ABEND-MSG CHGBD206 00719 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206 00720 CHGBD206 00721 MOVE PARM-EMP-NO TO CHG3-EMP-NO. CHGBD206 00722 CHGBD206 00723 DISPLAY 'EMPLOYER SELECTED: ' CHG3-EMP-NO. CHGBD206 00724 CHGBD206 00725 I2400-EXIT. CHGBD206 00726 EXIT. CHGBD206 00727 CHGBD206 00728 P0000-PROCESS. CHGBD206 00729 CHGBD206 00730 MOVE WRK-BEGIN-DATE TO CHG2-CHARGE-DATE. CHGBD206 00731 MOVE +0 TO CHG2-EMP-NO CHGBD206 00732 CHG2-SSN CHGBD206 00733 CHG2-BYE. CHGBD206 00734 MOVE 0 TO CHG2-PROGRAM. CHGBD206 00735 START BD200-CHG-FILE-IN CHGBD206 00736 KEY IS >= CHG2-KEY-AREA. CHGBD206 00737 CHGBD206 00738 IF NOT BD200-FILE-OK-88 CHGBD206 00739 DISPLAY 'BD200 FIRST READ ERROR: ' BD200-CHG-STATUS CHGBD206 00740 PERFORM P0100-NO-RECS THRU P0100-EXIT CHGBD206 00741 GO TO P0000-EXIT. CHGBD206 00742 CHGBD206 00743 PERFORM P1000-READ-CHARGES THRU P1000-EXIT CHGBD206 00744 UNTIL BD200-FILE-EOF-88 CHGBD206 00745 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD206 00746 OR WRK-ERROR-YES-88. CHGBD206 00747 CHGBD206 00748 P0000-EXIT. CHGBD206 00749 EXIT. CHGBD206 00750 CHGBD206 00751 P0100-NO-RECS. CHGBD206 00752 DISPLAY '*** NO RECORDS FOUND FOR PARM ***'. CHGBD206 00753 DISPLAY '*** RUN ENDING ***'. CHGBD206 00754 CHGBD206 00755 P0100-EXIT. CHGBD206 00756 EXIT. CHGBD206 00757 CHGBD206 00758 P1000-READ-CHARGES. CHGBD206 00759 READ BD200-CHG-FILE-IN NEXT. CHGBD206 00760 CHGBD206 00761 IF BD200-FILE-EOF-88 CHGBD206 00762 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD206 00763 GO TO P1000-EXIT CHGBD206 00764 ELSE CHGBD206 00765 IF NOT BD200-FILE-OK-88 CHGBD206 00766 DISPLAY 'BD200 FILE READ ERROR: ' BD200-CHG-STATUS CHGBD206 00767 SET WRK-ERROR-YES-88 TO TRUE CHGBD206 00768 GO TO P1000-EXIT. CHGBD206 00769 CHGBD206 00770 ADD 1 TO WRK-BD200-CHG-READ. CHGBD206 00771 CHGBD206 00772 MOVE CHG2-EMP-TYPE TO WRK-EMP-TYPE. CHGBD206 00773 *& IF WRK-EMP-TYPE-POOL-88 CHGBD206 00774 * ADD +1 TO WRK-BD200-CHG-DELETE CHGBD206 00775 *& GO TO P1000-EXIT. CHGBD206 00776 CHGBD206 00777 MOVE CHG2-EMP-NO TO WRK-EMP-NO. CHGBD206 00778 *& IF WRK-POOL-ACCT-88 CHGBD206 00779 * ADD +1 TO WRK-BD200-CHG-DELETE CHGBD206 00780 *& GO TO P1000-EXIT. CHGBD206 00781 CHGBD206 00782 *& EXCLUDE RECORDS WITH BYE PRIOR TO 1/1/2001 CHGBD206 00783 *& FOR EMPLOYER TYPE = UCX, UCFE, SELF-INSURED, CHGBD206 00784 *& DC GOVERNMENT. PER FRANK ORLANDO 2/21/2002 - GD. CHGBD206 00785 CHGBD206 00786 IF (CHG2-BYE = ZERO) OR (CHG2-CHARGE-DATE < 20010101) CHGBD206 00787 NEXT SENTENCE CHGBD206 00788 ELSE CHGBD206 00789 IF CHG2-BYE < 20010101 CHGBD206 00790 IF WRK-EMP-TYPE-UCX-88 CHGBD206 00791 OR WRK-EMP-TYPE-UCFE-88 CHGBD206 00792 OR WRK-EMP-TYPE-SELF-INS-88 CHGBD206 00793 OR WRK-EMP-TYPE-DC-GOV-88 CHGBD206 00794 OR (WRK-EMP-TYPE-CWC-88 AND WRK-FED-ACCT-88) CHGBD206 00795 ADD +1 TO WRK-INV-CHRG-ERR-CNT CHGBD206 00796 GO TO P1000-EXIT. CHGBD206 00797 CHGBD206 00798 PERFORM S1100-WRITE-BD206 THRU S1100-EXIT CHGBD206 00799 COMPUTE WRK-TOT-CHG = WRK-TOT-CHG + CHGBD206 00800 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT). CHGBD206 00801 CHGBD206 00802 P1000-EXIT. CHGBD206 00803 EXIT. CHGBD206 00804 CHGBD206 00805 S1100-WRITE-BD206. CHGBD206 00806 WRITE BD206-CHG-REC FROM BD200-CHG-REC. CHGBD206 00807 IF BD206-FILE-OK-88 CHGBD206 00808 ADD 1 TO WRK-BD206-WRITE. CHGBD206 00809 CHGBD206 00810 S1100-EXIT. CHGBD206 00811 EXIT. CHGBD206 00812 CHGBD206 00813 S001-FROM-CAL-6. CHGBD206 00814 SET L001-FROM-CAL-6 TO TRUE. CHGBD206 00815 GO TO S001-DATE. CHGBD206 00816 CHGBD206 00817 S001-FROM-FED-8. CHGBD206 00818 SET L001-FROM-FED-8 TO TRUE. CHGBD206 00819 GO TO S001-DATE. CHGBD206 00820 CHGBD206 00821 S001-FROM-ABS. CHGBD206 00822 SET L001-FROM-ABS-DAY TO TRUE. CHGBD206 00823 GO TO S001-DATE. CHGBD206 00824 CHGBD206 00825 S001-DATE. CHGBD206 00826 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBD206 00827 S001-EXIT. EXIT. CHGBD206 00828 CHGBD206 00829 S004-FROM-DATE. CHGBD206 00830 SET L004-FROM-DATE TO TRUE. CHGBD206 00831 GO TO S004-YRQ. CHGBD206 00832 CHGBD206 00833 S004-YRQ. CHGBD206 00834 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBD206 00835 S004-EXIT. EXIT. CHGBD206 00836 CHGBD206 00837 S910-OPEN-READ. CHGBD206 00838 SET L910-OPEN-READ-88 TO TRUE. CHGBD206 00839 GO TO S910-MSTR-IO. CHGBD206 00840 CHGBD206 00841 S910-READ. CHGBD206 00842 SET L910-READ-88 TO TRUE. CHGBD206 00843 GO TO S910-MSTR-IO. CHGBD206 00844 CHGBD206 00845 S910-CLOSE. CHGBD206 00846 SET L910-CLOSE-88 TO TRUE. CHGBD206 00847 GO TO S910-MSTR-IO. CHGBD206 00848 CHGBD206 00849 S910-MSTR-IO. CHGBD206 00850 CALL 'DTSBU910' USING L910-LINK-AREA CHGBD206 00851 MSKL-REC. CHGBD206 00852 CHGBD206 00853 S910-EXIT. CHGBD206 00854 EXIT. CHGBD206 00855 CHGBD206 00856 T0000-TERMINATE. CHGBD206 00857 CLOSE BD200-CHG-FILE-IN CHGBD206 00858 BD206-CHG-FILE-OUT. CHGBD206 00859 CHGBD206 00860 PERFORM S910-CLOSE THRU S910-EXIT. CHGBD206 00861 CHGBD206 00862 DISPLAY '************** CHGBD206 COUNTS **************'. CHGBD206 00863 DISPLAY '*** ***'. CHGBD206 00864 CHGBD206 00865 MOVE WRK-BD200-CHG-READ TO WRK-CNT-DISP. CHGBD206 00866 DISPLAY 'CHARGE RECORDS READ: ' CHGBD206 00867 WRK-CNT-DISP. CHGBD206 00868 CHGBD206 00869 MOVE WRK-BD206-WRITE TO WRK-CNT-DISP. CHGBD206 00870 DISPLAY 'CHARGE RECORDS WRITTEN: ' CHGBD206 00871 WRK-CNT-DISP. CHGBD206 00872 CHGBD206 00873 MOVE WRK-BD200-CHG-DELETE TO WRK-CNT-DISP. CHGBD206 00874 DISPLAY 'POOL ACCOUNTS EXCLUDED: ' CHGBD206 00875 WRK-CNT-DISP. CHGBD206 00876 CHGBD206 00877 DISPLAY SPACE. CHGBD206 00878 CHGBD206 00879 MOVE WRK-TOT-CHG TO WRK-TOT-CHG-DISP. CHGBD206 00880 *** DISPLAY SPACE. CHGBD206 00881 DISPLAY 'CHGBD206 TOTAL CHARGE: ' WRK-TOT-CHG-DISP. CHGBD206 00882 CHGBD206 00883 MOVE WRK-INV-CHRG-ERR-CNT TO WRK-CNT-DISP. CHGBD206 00884 DISPLAY SPACE. CHGBD206 00885 DISPLAY 'PRE-2001 CHARGES EXCLUDED: ' CHGBD206 00886 WRK-CNT-DISP. CHGBD206 00887 CHGBD206 00888 DISPLAY '***********************************************'. CHGBD206 00889 CHGBD206 00890 T0000-EXIT. CHGBD206 00891 EXIT. CHGBD206 00892 EJECT CHGBD206 00893 CHGBD206 00894 S999-ABEND. CHGBD206 00895 DISPLAY '**** CHGBD206 ABENDING ' CHGBD206 00896 ABEND-MSG. CHGBD206 00897 CALL ABEND-MOD USING ABEND-CODE. CHGBD206 00898 CHGBD206 00899 S999-EXIT. CHGBD206 00900 EXIT. CHGBD206 00901 CHGBD206