00001 IDENTIFICATION DIVISION. 10/06/14 00002 PROGRAM-ID. CHGBD301. CHGBD301 00003 *AUTHOR. TCL. LV002 00004 *DATE-WRITTEN. FEBRUARY 1999. CHGBD301 00005 DATE-COMPILED. CHGBD301 00006 SKIP3 CHGBD301 00007 ***** CHGBD301 00008 * CHGBD301 00009 * CHGBD301 00010 * FUNCTION: CHGBD301 00011 * CHGBD301 00012 * CHARGE PRINT DRIVER CHGBD301 00013 * CHGBD301 00014 ***** CHGBD301 00015 * CHGBD301 00016 * DESCRIPTION: CHGBD301 00017 * CHGBD301 00018 * DRIVER FOR BENEFIT CHARGE REPORTING PRINT PROCESS. CHGBD301 00019 * CHGBD301 READS RECORDS SELECTED BY CHGBD210 AND CHGBD301 00020 * BD220, AND CALLS THE APPROPRIATE REPORT PROGRAM. CHGBD301 00021 * CHGBD301 00022 ***** CHGBD301 00023 * CHGBD301 00024 * INPUT: CHGBD301 00025 * CHGBD301 00026 * BD220CHG - CHARGE RECORDS GENERATED BY CHGBD220. CHGBD301 00027 * CHGBD301 00028 * CHGPARM - PARAMETER DATA INPUT FROM CHGBD210 CHGBD301 00029 * CHGBD301 00030 ****** CHGBD301 00031 * CHGBD301 00032 * OUTPUT: CHGBD301 00033 * CHGBD301 00034 * RPC100R1 - PRINT RATED NOTICES. CHGBD301 00035 * RPC100R3 - PRINT RATED BENEFIT CHARGE SPECIAL REPORT CHGBD301 00036 * RPC110R1 - PRINT SELF-INSURED BILLS CHGBD301 00037 * RPC110R2 - SELF-INSURED QUARTERLY/ANNUAL CHARGE SUMMARY REPORTCHGBD301 00038 * AND BENEFIT CHARGE SPECIAL REPORT CHGBD301 00039 * RPC120R1 - CWC QUARTERLY/ANNUAL CHARGE SUMMARY REPORT CHGBD301 00040 * AND BENEFIT CHARGE SPECIAL REPORT CHGBD301 00041 * RPC130R1 - FEDERAL QUARTERLY/ANNUAL CHARGE SUMMARY REPORT CHGBD301 00042 * AND BENEFIT CHARGE SPECIAL REPORT CHGBD301 00043 * RPC150R1 - TEUC QUARTERLY/ANNUAL CHARGE SUMMARY REPORT CHGBD301 00044 * AND BENEFIT CHARGE SPECIAL REPORT CHGBD301 00045 * RPC160R1 - DC GOVERNMENT CHARGE SUMMARY REPORT CHGBD301 00046 * CHGBD301 00047 ***** CHGBD301 00048 ***************************************************************** CHGBD301 00049 * * CHGBD301 00050 * MODIFICATION HISTORY: * CHGBD301 00051 * * CHGBD301 00052 * 05-05-1999 NEW DEVELOPMENT * CHGBD301 00053 * REFERENCE RFP # AUTHOR OF CHANGE - GD * CHGBD301 00054 * * CHGBD301 00055 * 06-25-2001 MODIFIED FOR NEW REPORTING PROCESS. * CHGBD301 00056 * REFERENCE RFP # AUTHOR OF CHANGE - GD * CHGBD301 00057 * * CHGBD301 00058 * 06-25-2001 MODIFIED TO OUTPUT TEUC RPC150R1 REPORT. * CHGBD301 00059 * REFERENCE RFP # AUTHOR OF CHANGE - RW1* CHGBD301 00060 * * CHGBD301 00061 * 09-04-2003 MODIFIED TO OUTPUT DC RPC160R1 REPORT. * CHGBD301 00062 * REFERENCE RFP # AUTHOR OF CHANGE - GD * CHGBD301 00063 * * CHGBD301 00064 * 04-15-2004 MODIFIED TO PRINT SELF-INSURED BILLS AFTER * CHGBD301 00065 * THE DAILY UPDATE IN ORDER TO CORRECTLY ACCOUNT * CHGBD301 00066 * FOR CREDITS. CHGBD301 00067 * STEP 1 OF THE CHARGE REPORTING PROCESS RUNS * CHGBD301 00068 * PRIOR TO THE DAILY UPDATE, GENERATING ACCOUNTING * CHGBD301 00069 * TRANSACTION WITH THE SELF-INS CHARGES. THIS STEP * CHGBD301 00070 * PRINTS ALL REPORTS EXCEPT FOR THE SELF INS EMPS. * CHGBD301 00071 * STEP 2 RUNS FOLLOWING THE DAILY UPDATE, AND * CHGBD301 00072 * EXECUTES THE PRINT PROCESS (CHGBD301) TO PRODUCE * CHGBD301 00073 * THE SELF-INSURED REPORTS. THIS PROCESS CHECKS THE * CHGBD301 00074 * ACTUAL BALANCE DUE ON THE TAX FILE AND PRINTS THIS * CHGBD301 00075 * AMOUNT ON THE BILL. * CHGBD301 00076 * REFERENCE RFP # AUTHOR OF CHANGE - GD * CHGBD301 00077 * * CHGBD301 00078 * 07-15-2004 CORRECTED PROBLEM IN I2000 EDITS - FQTR NOT * CHGBD301 00079 * YET UPDATED WHEN STEP 2 BEGINS. P1000 NOW * CHGBD301 00080 * VERIFIES THAT STEP 1 HAS BEEN RUN. * CHGBD301 00081 * REFERENCE RFP # AUTHOR OF CHANGE - GD * CHGBD301 00082 * * CHGBD301 00083 * 04-03-2009 RECOMPILED FOR NEW VERSION OF CHGIM004. * CHGBD301 00084 * REFERENCE RFP # AUTHOR OF CHANGE - GD * CHGBD301 00085 * * CHGBD301 00086 * * CHGBD301 00087 * 07-07-2009 CHANGED PROGRAM TO WRITE TPS SAMPLE RECORDS. * CHGBD301 00088 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1* CHGBD301 00089 * * CHGBD301 00090 * * CHGBD301 00091 * 05-14-2010 RECOMPILED FOR NEW VERSION OF CHGIM004. * CHGBD301 00092 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1* CHGBD301 00093 * * CHGBD301 00094 * * CL**2 00095 * 05-14-2010 RECOMPILED FOR NEW VERSION OF CHGIM004. * CL**2 00096 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1* CL**2 00097 * * CL**2 00098 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGBD301 00099 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGBD301 00100 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** * CHGBD301 00101 ***************************************************************** CHGBD301 00102 CHGBD301 00103 SKIP3 CHGBD301 00104 ENVIRONMENT DIVISION. CHGBD301 00105 SKIP3 CHGBD301 00106 INPUT-OUTPUT SECTION. CHGBD301 00107 SKIP3 CHGBD301 00108 FILE-CONTROL. CHGBD301 00109 CHGBD301 00110 SELECT CHG-PARM-FILE ASSIGN TO CHGPARM CHGBD301 00111 FILE STATUS IS CHG-PARM-STATUS. CHGBD301 00112 CHGBD301 00113 SELECT BD220-CHG-FILE ASSIGN TO BD220CHG CHGBD301 00114 FILE STATUS IS BD220-CHG-STATUS. CHGBD301 00115 EJECT CHGBD301 00116 DATA DIVISION. CHGBD301 00117 SKIP3 CHGBD301 00118 FILE SECTION. CHGBD301 00119 SKIP3 CHGBD301 00120 CHGBD301 00121 FD CHG-PARM-FILE CHGBD301 00122 RECORDING MODE IS F CHGBD301 00123 BLOCK CONTAINS 0 CHARACTERS. CHGBD301 00124 SKIP1 CHGBD301 00125 01 CHG-PARM-REC. CHGBD301 00126 ++INCLUDE CHGIM003 CHGBD301 00127 CHGBD301 00128 FD BD220-CHG-FILE CHGBD301 00129 LABEL RECORDS ARE STANDARD CHGBD301 00130 BLOCK CONTAINS 0 CHARACTERS. CHGBD301 00131 SKIP1 CHGBD301 00132 01 BD220-CHG-REC. CHGBD301 00133 ++INCLUDE CHGIM004 CHGBD301 00134 EJECT CHGBD301 00135 WORKING-STORAGE SECTION. CHGBD301 001355 77 PAN-VALET PICTURE X(24) VALUE '002CHGBD301 10/06/14'. CHGBD301 00136 77 PAN-VALET PICTURE X(24) VALUE '009CHGBD301 05/25/10'. CHGBD301 00137 CHGBD301 00138 01 WRK-AREA. CHGBD301 00139 05 WRK-EMP-NO PIC S9(07) COMP-3 VALUE +0. CHGBD301 00140 05 WRK-EMP-TOT PIC S9(08)V99 COMP-3 CHGBD301 00141 VALUE +0. CHGBD301 00142 CHGBD301 00143 05 WRK-RPT-TYPE-RATED PIC S9(09)V99 COMP-3 VALUE +0.CHGBD301 00144 05 WRK-RPT-TYPE-RATED-DISP PIC Z9(08)9.99-. CHGBD301 00145 CHGBD301 00146 05 ABEND-CODE PIC S9(04) COMP CHGBD301 00147 VALUE +300. CHGBD301 00148 05 ABEND-MSG PIC X(60). CHGBD301 00149 CHGBD301 00150 05 CHG-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD301 00151 88 CHG-PARM-FILE-OK-88 VALUE ZERO. CHGBD301 00152 88 CHG-PARM-FILE-EOF-88 VALUE '10'. CHGBD301 00153 05 BD220-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD301 00154 88 BD220-FILE-OK-88 VALUE ZERO. CHGBD301 00155 88 BD220-FILE-EOF-88 VALUE '10'. CHGBD301 00156 CHGBD301 00157 05 WRK-ERROR-IND PIC X(01). CHGBD301 00158 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD301 00159 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD301 00160 CHGBD301 00161 05 WRK-EMP-FOUND-IND PIC X(01). CHGBD301 00162 88 WRK-EMP-FOUND-YES-88 VALUE 'Y'. CHGBD301 00163 88 WRK-EMP-FOUND-NO-88 VALUE 'N'. CHGBD301 00164 CHGBD301 00165 05 WRK-BD220-CHG-READ PIC 9(07) COMP-3 VALUE 0. CHGBD301 00166 05 WRK-REPORT-MOD PIC X(08). CHGBD301 00167 88 TPS-UNIV-MOD VALUE 'CHGBR111'. CHGBD301 00168 CHGBD301 00169 01 REPORT-LINK-AREA. CHGBD301 00170 ++INCLUDE CHGIL001 CHGBD301 00171 CHGBD301 00172 01 L001-LINK-AREA. CHGBD301 00173 ++INCLUDE DTSIL001 CHGBD301 00174 EJECT CHGBD301 00175 01 L003-LINK-AREA. CHGBD301 00176 ++INCLUDE DTSIL003 CHGBD301 00177 EJECT CHGBD301 00178 01 L004-LINK-AREA. CHGBD301 00179 ++INCLUDE DTSIL004 CHGBD301 00180 EJECT CHGBD301 00181 01 L005-LINK-AREA. CHGBD301 00182 ++INCLUDE DTSIL005 CHGBD301 00183 EJECT CHGBD301 00184 01 L931-LINK-AREA. CHGBD301 00185 ++INCLUDE DTSIL931 CHGBD301 00186 SKIP3 CHGBD301 00187 01 FSKL-REC. CHGBD301 00188 ++INCLUDE DTSIFSKL CHGBD301 00189 SKIP3 CHGBD301 00190 01 FQTR-REC. CHGBD301 00191 ++INCLUDE DTSIFQTR CHGBD301 00192 EJECT CHGBD301 00193 PROCEDURE DIVISION. CHGBD301 00194 CHGBD301-MAIN. CHGBD301 00195 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD301 00196 IF WRK-ERROR-YES-88 CHGBD301 00197 DISPLAY '*** JOB CANCELLED DUE TO ERRORS ***' CHGBD301 00198 GO TO CHGBD301-EXIT. CHGBD301 00199 CHGBD301 00200 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD301 00201 CHGBD301 00202 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD301 00203 CHGBD301 00204 CHGBD301-EXIT. CHGBD301 00205 STOP RUN. CHGBD301 00206 EJECT CHGBD301 00207 I0000-INITIATE. CHGBD301 00208 SET WRK-ERROR-NO-88 TO TRUE. CHGBD301 00209 CHGBD301 00210 PERFORM I1000-READ-BD100-PARMS THRU I1000-EXIT. CHGBD301 00211 CHGBD301 00212 PERFORM I4000-OPEN-CHARGE-FILE THRU I4000-EXIT. CHGBD301 00213 CHGBD301 00214 PERFORM I6000-INIT-REPORTS THRU I6000-EXIT. CHGBD301 00215 CHGBD301 00216 I0000-EXIT. CHGBD301 00217 EXIT. CHGBD301 00218 CHGBD301 00219 I1000-READ-BD100-PARMS. CHGBD301 00220 OPEN INPUT CHG-PARM-FILE. CHGBD301 00221 IF NOT CHG-PARM-FILE-OK-88 CHGBD301 00222 DISPLAY 'CHG PARM FILE OPEN ERROR: ' CHG-PARM-STATUS CHGBD301 00223 SET WRK-ERROR-YES-88 TO TRUE CHGBD301 00224 GO TO I1000-EXIT. CHGBD301 00225 CHGBD301 00226 READ CHG-PARM-FILE. CHGBD301 00227 IF NOT CHG-PARM-FILE-OK-88 CHGBD301 00228 DISPLAY 'CHG-PARM READ ERROR: ' CHG-PARM-STATUS CHGBD301 00229 SET WRK-ERROR-YES-88 TO TRUE CHGBD301 00230 GO TO I1000-EXIT. CHGBD301 00231 CHGBD301 00232 I1000-EXIT. CHGBD301 00233 EXIT. CHGBD301 00234 CHGBD301 00235 I4000-OPEN-CHARGE-FILE. CHGBD301 00236 OPEN INPUT BD220-CHG-FILE. CHGBD301 00237 IF NOT BD220-FILE-OK-88 CHGBD301 00238 DISPLAY 'BD220 FILE OPEN ERROR: ' BD220-CHG-STATUS CHGBD301 00239 SET WRK-ERROR-YES-88 TO TRUE. CHGBD301 00240 CHGBD301 00241 I4000-EXIT. CHGBD301 00242 EXIT. CHGBD301 00243 CHGBD301 00244 I6000-INIT-REPORTS. CHGBD301 00245 MOVE CHG3-BEGIN-DATE TO CHG-LINK1-PERIOD-BEGIN. CHGBD301 00246 MOVE CHG3-END-DATE TO CHG-LINK1-PERIOD-END. CHGBD301 00247 MOVE CHG3-RUN-TYPE TO CHG-LINK1-RUN-TYPE. CHGBD301 00248 CHGBD301 00249 SET CHG-LINK1-CMD-INIT-88 TO TRUE. CHGBD301 00250 CHGBD301 00251 CALL 'CHGBR100' USING REPORT-LINK-AREA CHGBD301 00252 BD220-CHG-REC. CHGBD301 00253 PERFORM S2000-CALL-TPS THRU S2000-EXIT. CHGBD301 00254 CHGBD301 00255 I6000-EXIT. CHGBD301 00256 EXIT. CHGBD301 00257 CHGBD301 00258 CHGBD301 00259 P0000-PROCESS. CHGBD301 00260 PERFORM S1000-READ-CHG-FILE THRU S1000-EXIT. CHGBD301 00261 IF NOT BD220-FILE-OK-88 CHGBD301 00262 GO TO P0000-EXIT CHGBD301 00263 END-IF. CHGBD301 00264 CHGBD301 00265 SET CHG-LINK1-CMD-PROCESS-88 TO TRUE. CHGBD301 00266 PERFORM CHGBD301 00267 UNTIL BD220-FILE-EOF-88 CHGBD301 00268 OR WRK-ERROR-YES-88 CHGBD301 00269 CALL 'CHGBR100' USING REPORT-LINK-AREA CHGBD301 00270 BD220-CHG-REC CHGBD301 00271 PERFORM S2000-CALL-TPS THRU S2000-EXIT CHGBD301 00272 PERFORM S1000-READ-CHG-FILE THRU S1000-EXIT CHGBD301 00273 END-PERFORM. CHGBD301 00274 CHGBD301 00275 P0000-EXIT. CHGBD301 00276 EXIT. CHGBD301 00277 CHGBD301 00278 T0000-TERMINATE. CHGBD301 00279 SET CHG-LINK1-CMD-CLOSE-88 TO TRUE. CHGBD301 00280 CALL 'CHGBR100' USING REPORT-LINK-AREA CHGBD301 00281 BD220-CHG-REC. CHGBD301 00282 CHGBD301 00283 PERFORM S2000-CALL-TPS THRU S2000-EXIT. CHGBD301 00284 CHGBD301 00285 CLOSE BD220-CHG-FILE CHGBD301 00286 CHG-PARM-FILE. CHGBD301 00287 CHGBD301 00288 DISPLAY '*********************************************'. CHGBD301 00289 DISPLAY '** BD301 COUNTS **'. CHGBD301 00290 DISPLAY SPACE. CHGBD301 00291 DISPLAY ' CHGBD220 CHARGE RECORDS READ: ' CHGBD301 00292 WRK-BD220-CHG-READ. CHGBD301 00293 CHGBD301 00294 CHGBD301 00295 T0000-EXIT. CHGBD301 00296 EXIT. CHGBD301 00297 CHGBD301 00298 S001-FROM-FED-8. CHGBD301 00299 SET L001-FROM-FED-8 TO TRUE. CHGBD301 00300 GO TO S001-DATE. CHGBD301 00301 CHGBD301 00302 S001-FROM-ABS. CHGBD301 00303 SET L001-FROM-ABS-DAY TO TRUE. CHGBD301 00304 GO TO S001-DATE. CHGBD301 00305 CHGBD301 00306 S001-DATE. CHGBD301 00307 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBD301 00308 S001-EXIT. CHGBD301 00309 EXIT. CHGBD301 00310 CHGBD301 00311 S003-AGENCY-DAY. CHGBD301 00312 SET L003-AGENCY-DAY TO TRUE. CHGBD301 00313 GO TO S003-WORK-DAY. CHGBD301 00314 CHGBD301 00315 S003-WORK-DAY. CHGBD301 00316 CALL 'DTSBU003' USING L003-LINK-AREA. CHGBD301 00317 S003-EXIT. CHGBD301 00318 EXIT. CHGBD301 00319 CHGBD301 00320 S004-FROM-DATE. CHGBD301 00321 SET L004-FROM-DATE TO TRUE. CHGBD301 00322 GO TO S004-YRQ. CHGBD301 00323 CHGBD301 00324 S004-YRQ. CHGBD301 00325 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBD301 00326 S004-EXIT. CHGBD301 00327 EXIT. CHGBD301 00328 CHGBD301 00329 S005-FROM-SYS. CHGBD301 00330 SET L005-FROM-SYS TO TRUE. CHGBD301 00331 GO TO S005-ABSTIME. CHGBD301 00332 CHGBD301 00333 S005-ABSTIME. CHGBD301 00334 CALL 'DTSBU005' USING L005-LINK-AREA. CHGBD301 00335 S005-EXIT. CHGBD301 00336 EXIT. CHGBD301 00337 CHGBD301 00338 S931-OPEN-READ. CHGBD301 00339 SET L931-OPEN-READ-88 TO TRUE. CHGBD301 00340 GO TO S931-REF-I. CHGBD301 00341 CHGBD301 00342 S931-READ. CHGBD301 00343 SET L931-READ-88 TO TRUE. CHGBD301 00344 GO TO S931-REF-I. CHGBD301 00345 CHGBD301 00346 S931-CLOSE. CHGBD301 00347 SET L931-CLOSE-88 TO TRUE. CHGBD301 00348 GO TO S931-REF-I. CHGBD301 00349 CHGBD301 00350 S931-REF-I. CHGBD301 00351 CALL 'DTSBU931' USING L931-LINK-AREA CHGBD301 00352 FSKL-REC. CHGBD301 00353 S931-EXIT. CHGBD301 00354 EXIT. CHGBD301 00355 CHGBD301 00356 S1000-READ-CHG-FILE. CHGBD301 00357 READ BD220-CHG-FILE. CHGBD301 00358 IF BD220-FILE-OK-88 CHGBD301 00359 ADD 1 TO WRK-BD220-CHG-READ CHGBD301 00360 ELSE CHGBD301 00361 IF BD220-FILE-EOF-88 CHGBD301 00362 NEXT SENTENCE CHGBD301 00363 ELSE CHGBD301 00364 DISPLAY 'BD220 FILE READ ERROR: ' BD220-CHG-STATUS CHGBD301 00365 SET WRK-ERROR-YES-88 TO TRUE CHGBD301 00366 END-IF CHGBD301 00367 END-IF. CHGBD301 00368 CHGBD301 00369 S1000-EXIT. CHGBD301 00370 EXIT. CHGBD301 00371 CHGBD301 00372 S2000-CALL-TPS. CHGBD301 00373 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD301 00374 CALL 'CHGBR111' USING REPORT-LINK-AREA CHGBD301 00375 BD220-CHG-REC. CHGBD301 00376 S2000-EXIT. CHGBD301 00377 EXIT. CHGBD301 00378 CHGBD301 00379 CHGBD301 00380 S999-ABEND. CHGBD301 00381 DISPLAY '**** CHGBD301 ABENDING ' CHGBD301 00382 ABEND-MSG. CHGBD301 00383 CALL 'DTSBU999' USING ABEND-CODE. CHGBD301 00384 S999-EXIT. CHGBD301 00385 EXIT. CHGBD301