00001 IDENTIFICATION DIVISION. 05/25/10 00002 PROGRAM-ID. CHGRT300. CHGRT300 00003 *AUTHOR. NGI. LV003 00004 *DATE-WRITTEN. FEBRUARY 2009. CHGRT300 00005 DATE-COMPILED. CHGRT300 00006 SKIP3 CHGRT300 00007 ***** CHGRT300 00008 * CHGRT300 00009 * FUNCTION: CHGRT300 00010 * CHGRT300 00011 * CHARGE PRINT DRIVER USED FOR REPRINTS SELF INS CHGRT300 00012 * BILLS. CHGRT300 00013 ***** CHGRT300 00014 * CHGRT300 00015 * DESCRIPTION: CHGRT300 00016 * CHGRT300 00017 * DRIVER FOR BENEFIT CHARGE REPORTING PRINT PROCESS. CHGRT300 00018 * CHGBD300 READS RECORDS SELECTED BY CHGBD210 AND CHGRT300 00019 * BD220, AND CALL CHGBR110 TO REPRINT SI BILLS. CHGRT300 00020 * CHGRT300 00021 ***** CHGRT300 00022 * CHGRT300 00023 * INPUT: CHGRT300 00024 * CHGRT300 00025 * BD220CHG - CHARGE RECORDS GENERATED BY CHGBD220. CHGRT300 00026 * CHGRT300 00027 * CHGPARM - PARAMETER DATA INPUT FROM CHGBD210 CHGRT300 00028 * CHGSIEMP - SELECTED EMPLOYERS FOR REPRINT CHGRT300 00029 ****** CHGRT300 00030 * CHGRT300 00031 * OUTPUT: CHGRT300 00032 * CHGRT300 00033 * RPC110R1 - PRINT SELF-INSURED BILLS CHGRT300 00034 * RPC110R2 - SELF-INSURED QUARTERLY/ANNUAL CHARGE SUMMARY REPORTCHGRT300 00035 * AND BENEFIT CHARGE SPECIAL REPORT CHGRT300 00036 ***** CHGRT300 00037 ***************************************************************** CHGRT300 00038 * * CHGRT300 00039 * MODIFICATION HISTORY: * CHGRT300 00040 * * CHGRT300 00041 * 07-10-2009 COPIED FROM CHGBD300 * CHGRT300 00042 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1* CHGRT300 00043 * * CHGRT300 00044 * * CHGRT300 00045 * 05-14-2010 RECOMPILE FOR NEW VERSION OF CHGIM004 * CHGRT300 00046 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1* CHGRT300 00047 * * CHGRT300 00048 * * CHGRT300 00049 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGRT300 00050 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * CHGRT300 00051 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** * CHGRT300 00052 ***************************************************************** CHGRT300 00053 CHGRT300 00054 SKIP3 CHGRT300 00055 ENVIRONMENT DIVISION. CHGRT300 00056 SKIP3 CHGRT300 00057 INPUT-OUTPUT SECTION. CHGRT300 00058 SKIP3 CHGRT300 00059 FILE-CONTROL. CHGRT300 00060 CHGRT300 00061 SELECT CHG-PARM-FILE ASSIGN TO CHGPARM CHGRT300 00062 FILE STATUS IS CHG-PARM-STATUS. CHGRT300 00063 CHGRT300 00064 SELECT CHG-EMPL-FILE ASSIGN TO CHGEMPL CHGRT300 00065 FILE STATUS IS CHG-EMPL-STATUS. CHGRT300 00066 CHGRT300 00067 SELECT BD220-CHG-FILE ASSIGN TO BD220CHG CHGRT300 00068 FILE STATUS IS BD220-CHG-STATUS. CHGRT300 00069 EJECT CHGRT300 00070 DATA DIVISION. CHGRT300 00071 SKIP3 CHGRT300 00072 FILE SECTION. CHGRT300 00073 SKIP3 CHGRT300 00074 CHGRT300 00075 FD CHG-EMPL-FILE CHGRT300 00076 RECORDING MODE IS F CHGRT300 00077 BLOCK CONTAINS 0 CHARACTERS. CHGRT300 00078 SKIP1 CHGRT300 00079 01 CHG-EMPL-REC. CHGRT300 00080 05 CHG-EMP-NO PIC 9(6). CHGRT300 00081 05 FILLER PIC X(74). CHGRT300 00082 CHGRT300 00083 FD CHG-PARM-FILE CHGRT300 00084 RECORDING MODE IS F CHGRT300 00085 BLOCK CONTAINS 0 CHARACTERS. CHGRT300 00086 SKIP1 CHGRT300 00087 01 CHG-PARM-REC. CHGRT300 00088 ++INCLUDE CHGIM003 CHGRT300 00089 CHGRT300 00090 FD BD220-CHG-FILE CHGRT300 00091 LABEL RECORDS ARE STANDARD CHGRT300 00092 BLOCK CONTAINS 0 CHARACTERS. CHGRT300 00093 SKIP1 CHGRT300 00094 01 BD220-CHG-REC. CHGRT300 00095 ++INCLUDE CHGIM004 CHGRT300 00096 EJECT CHGRT300 00097 WORKING-STORAGE SECTION. CHGRT300 000975 77 PAN-VALET PICTURE X(24) VALUE '003CHGRT300 05/25/10'. CHGRT300 00098 CHGRT300 00099 01 WRK-AREA. CHGRT300 00100 *& CHGRT300 00101 05 WRK-CHG-EMP-NO PIC S9(07) COMP-3 VALUE +0. CHGRT300 00102 05 WRK-EMP-NO PIC S9(07) COMP-3 VALUE +0. CHGRT300 00103 05 WRK-EMP-TOT PIC S9(08)V99 COMP-3 CHGRT300 00104 VALUE +0. CHGRT300 00105 05 WRK-CHG4-EMP-NO PIC 9(06) VALUE 0. CHGRT300 00106 05 WRK-EMPL-CHG-READ PIC 9(06) VALUE 0. CHGRT300 00107 05 WRK-RATED-TOT PIC S9(09)V99 COMP-3 CHGRT300 00108 VALUE +0. CHGRT300 00109 05 WRK-EMP-TOT-DISP PIC Z9(07)9.99-. CHGRT300 00110 05 WRK-RATED-TOT-DISP PIC Z9(08)9.99-. CHGRT300 00111 CHGRT300 00112 ** 05 WRK-RPT-TYPE-RATED PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300 00113 ** 05 WRK-RPT-TYPE-RATED-DISP PIC Z9(08)9.99-. CHGRT300 00114 05 WRK-RPT-TYPE-SELF-INS PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300 00115 05 WRK-RPT-TYPE-SELF-INS-DISP PIC Z9(08)9.99-. CHGRT300 00116 05 WRK-RPT-TYPE-CWC PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300 00117 05 WRK-RPT-TYPE-CWC-DISP PIC Z9(08)9.99-. CHGRT300 00118 05 WRK-RPT-TYPE-FED PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300 00119 05 WRK-RPT-TYPE-FED-DISP PIC Z9(08)9.99-. CHGRT300 00120 05 WRK-RPT-TYPE-TEUC PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300 00121 05 WRK-RPT-TYPE-TEUC-DISP PIC Z9(08)9.99-. CHGRT300 00122 05 WRK-RPT-TYPE-DC-GOV PIC S9(09)V99 COMP-3 VALUE +0.CHGRT300 00123 05 WRK-RPT-TYPE-DC-GOV-DISP PIC Z9(08)9.99-. CHGRT300 00124 CHGRT300 00125 05 ABEND-CODE PIC S9(04) COMP CHGRT300 00126 VALUE +300. CHGRT300 00127 05 ABEND-MSG PIC X(60). CHGRT300 00128 CHGRT300 00129 05 CHG-PARM-STATUS PIC X(02) VALUE SPACES. CHGRT300 00130 88 CHG-PARM-FILE-OK-88 VALUE ZERO. CHGRT300 00131 88 CHG-PARM-FILE-EOF-88 VALUE '10'. CHGRT300 00132 CHGRT300 00133 05 CHG-EMPL-STATUS PIC X(02) VALUE SPACES. CHGRT300 00134 88 CHG-EMPL-FILE-OK-88 VALUE ZERO. CHGRT300 00135 88 CHG-EMPL-FILE-EOF-88 VALUE '10'. CHGRT300 00136 CHGRT300 00137 05 BD220-CHG-STATUS PIC X(02) VALUE SPACES. CHGRT300 00138 88 BD220-FILE-OK-88 VALUE ZERO. CHGRT300 00139 88 BD220-FILE-EOF-88 VALUE '10'. CHGRT300 00140 CHGRT300 00141 05 WRK-SELF-INS-STEP PIC X(01). CHGRT300 00142 88 WRK-SELF-INS-STEP1-88 VALUE '1'. CHGRT300 00143 88 WRK-SELF-INS-STEP2-88 VALUE '2'. CHGRT300 00144 CHGRT300 00145 05 WRK-ERROR-IND PIC X(01). CHGRT300 00146 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGRT300 00147 88 WRK-ERROR-NO-88 VALUE 'N'. CHGRT300 00148 CHGRT300 00149 05 WRK-EMP-FOUND-IND PIC X(01). CHGRT300 00150 88 WRK-EMP-FOUND-YES-88 VALUE 'Y'. CHGRT300 00151 88 WRK-EMP-FOUND-NO-88 VALUE 'N'. CHGRT300 00152 CHGRT300 00153 05 WRK-REPORT-MOD PIC X(08). CHGRT300 00154 ** 88 RATED-MOD VALUE 'CHGBR100'. CHGRT300 00155 88 SELF-INS-MOD VALUE 'CHGBR110'. CHGRT300 00156 88 TPS-UNIV-MOD VALUE 'CHGBR111'. CHGRT300 00157 88 T026-TAX-MOD VALUE 'CHGBR112'. CHGRT300 00158 88 CWC-MOD VALUE 'CHGBR120'. CHGRT300 00159 88 FEDERAL-MOD VALUE 'CHGBR130'. CHGRT300 00160 88 PGM-NULL-MOD VALUE 'CHGBR140'. CHGRT300 00161 88 TEUC-MOD VALUE 'CHGBR150'. CHGRT300 00162 88 DC-GOV-MOD VALUE 'CHGBR160'. CHGRT300 00163 CHGRT300 00164 CHGRT300 00165 05 WRK-BD220-CHG-READ PIC 9(07) COMP-3 VALUE 0. CHGRT300 00166 05 WRK-BD220-CHG-SELECTED PIC 9(07) COMP-3 VALUE 0. CHGRT300 00167 ** 05 WRK-RATED-READ PIC 9(07) COMP-3 VALUE 0. CHGRT300 00168 05 WRK-SELF-INS-READ PIC 9(07) COMP-3 VALUE 0. CHGRT300 00169 05 WRK-FED-READ PIC 9(07) COMP-3 VALUE 0. CHGRT300 00170 05 WRK-TEUC-READ PIC 9(07) COMP-3 VALUE 0. CHGRT300 00171 05 WRK-CWC-READ PIC 9(07) COMP-3 VALUE 0. CHGRT300 00172 05 WRK-DC-GOV-READ PIC 9(07) COMP-3 VALUE 0. CHGRT300 00173 CHGRT300 00174 01 REPORT-LINK-AREA. CHGRT300 00175 ++INCLUDE CHGIL001 CHGRT300 00176 CHGRT300 00177 01 L001-LINK-AREA. CHGRT300 00178 ++INCLUDE DTSIL001 CHGRT300 00179 EJECT CHGRT300 00180 01 L003-LINK-AREA. CHGRT300 00181 ++INCLUDE DTSIL003 CHGRT300 00182 EJECT CHGRT300 00183 01 L004-LINK-AREA. CHGRT300 00184 ++INCLUDE DTSIL004 CHGRT300 00185 EJECT CHGRT300 00186 01 L005-LINK-AREA. CHGRT300 00187 ++INCLUDE DTSIL005 CHGRT300 00188 EJECT CHGRT300 00189 01 L931-LINK-AREA. CHGRT300 00190 ++INCLUDE DTSIL931 CHGRT300 00191 SKIP3 CHGRT300 00192 01 FSKL-REC. CHGRT300 00193 ++INCLUDE DTSIFSKL CHGRT300 00194 SKIP3 CHGRT300 00195 01 FQTR-REC. CHGRT300 00196 ++INCLUDE DTSIFQTR CHGRT300 00197 EJECT CHGRT300 00198 LINKAGE SECTION. CHGRT300 00199 SKIP3 CHGRT300 00200 01 PARM-AREA. CHGRT300 00201 05 PARM-LENGTH PIC S9(04) COMP. CHGRT300 00202 05 PARM-DATA. CHGRT300 00203 10 PARM-SELF-INS-STEP PIC X(01). CHGRT300 00204 88 PARM-SELF-INS-STEP1-88 VALUE '1'. CHGRT300 00205 88 PARM-SELF-INS-STEP2-88 VALUE '2'. CHGRT300 00206 88 PARM-SELF-INS-VALID-88 VALUE '1' '2'. CHGRT300 00207 SKIP2 CHGRT300 00208 PROCEDURE DIVISION USING PARM-AREA. CHGRT300 00209 CHGBD300-MAIN. CHGRT300 00210 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGRT300 00211 IF WRK-ERROR-YES-88 CHGRT300 00212 DISPLAY '*** JOB CANCELLED DUE TO ERRORS ***' CHGRT300 00213 GO TO CHGBD300-EXIT. CHGRT300 00214 CHGRT300 00215 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGRT300 00216 CHGRT300 00217 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGRT300 00218 CHGRT300 00219 CHGBD300-EXIT. CHGRT300 00220 STOP RUN. CHGRT300 00221 EJECT CHGRT300 00222 I0000-INITIATE. CHGRT300 00223 MOVE ZERO TO WRK-BD220-CHG-READ CHGRT300 00224 WRK-BD220-CHG-SELECTED CHGRT300 00225 ** WRK-RATED-READ CHGRT300 00226 WRK-SELF-INS-READ CHGRT300 00227 WRK-FED-READ CHGRT300 00228 WRK-TEUC-READ CHGRT300 00229 WRK-CWC-READ CHGRT300 00230 WRK-DC-GOV-READ. CHGRT300 00231 CHGRT300 00232 SET WRK-ERROR-NO-88 TO TRUE. CHGRT300 00233 CHGRT300 00234 PERFORM I0100-INPUT-PARM THRU I0100-EXIT. CHGRT300 00235 CHGRT300 00236 PERFORM I1000-READ-BD100-PARMS THRU I1000-EXIT. CHGRT300 00237 CHGRT300 00238 IF CHG3-RUN-TYPE-QTRLY-88 CHGRT300 00239 PERFORM I2000-CHK-QTR-STATUS THRU I2000-EXIT. CHGRT300 00240 CHGRT300 00241 PERFORM I4000-OPEN-CHARGE-FILE THRU I4000-EXIT. CHGRT300 00242 CHGRT300 00243 PERFORM I6000-INIT-REPORTS THRU I6000-EXIT. CHGRT300 00244 CHGRT300 00245 I0000-EXIT. CHGRT300 00246 EXIT. CHGRT300 00247 CHGRT300 00248 I0100-INPUT-PARM. CHGRT300 00249 IF PARM-LENGTH = +1 CHGRT300 00250 NEXT SENTENCE CHGRT300 00251 ELSE CHGRT300 00252 MOVE 'PARM-LENGTH NOT EQUAL TO 1' CHGRT300 00253 TO ABEND-MSG CHGRT300 00254 PERFORM S999-ABEND THRU S999-EXIT CHGRT300 00255 END-IF. CHGRT300 00256 CHGRT300 00257 IF PARM-SELF-INS-VALID-88 CHGRT300 00258 MOVE PARM-SELF-INS-STEP TO WRK-SELF-INS-STEP CHGRT300 00259 DISPLAY 'SELF INSURED JOB STEP ' WRK-SELF-INS-STEP CHGRT300 00260 ELSE CHGRT300 00261 STRING 'INVALID PARM ' PARM-SELF-INS-STEP CHGRT300 00262 DELIMITED BY SIZE CHGRT300 00263 INTO ABEND-MSG CHGRT300 00264 PERFORM S999-ABEND THRU S999-EXIT CHGRT300 00265 END-IF. CHGRT300 00266 I0100-EXIT. CHGRT300 00267 EXIT. CHGRT300 00268 CHGRT300 00269 I1000-READ-BD100-PARMS. CHGRT300 00270 OPEN INPUT CHG-PARM-FILE. CHGRT300 00271 IF NOT CHG-PARM-FILE-OK-88 CHGRT300 00272 DISPLAY 'CHG PARM FILE OPEN ERROR: ' CHG-PARM-STATUS CHGRT300 00273 SET WRK-ERROR-YES-88 TO TRUE CHGRT300 00274 GO TO I1000-EXIT. CHGRT300 00275 CHGRT300 00276 OPEN INPUT CHG-EMPL-FILE. CHGRT300 00277 IF NOT CHG-EMPL-FILE-OK-88 CHGRT300 00278 DISPLAY 'CHG EMPL FILE OPEN ERROR: ' CHG-PARM-STATUS CHGRT300 00279 SET WRK-ERROR-YES-88 TO TRUE CHGRT300 00280 GO TO I1000-EXIT. CHGRT300 00281 CHGRT300 00282 READ CHG-PARM-FILE. CHGRT300 00283 IF NOT CHG-PARM-FILE-OK-88 CHGRT300 00284 DISPLAY 'CHG-PARM READ ERROR: ' CHG-PARM-STATUS CHGRT300 00285 SET WRK-ERROR-YES-88 TO TRUE CHGRT300 00286 GO TO I1000-EXIT. CHGRT300 00287 CHGRT300 00288 IF WRK-SELF-INS-STEP2-88 CHGRT300 00289 IF CHG3-RUN-TYPE-QTRLY-88 CHGRT300 00290 NEXT SENTENCE CHGRT300 00291 ELSE CHGRT300 00292 DISPLAY 'STEP 1 NOT YET RUN FOR THIS QTR ' CHGRT300 00293 PERFORM S999-ABEND THRU S999-EXIT CHGRT300 00294 END-IF CHGRT300 00295 END-IF. CHGRT300 00296 CHGRT300 00297 I1000-EXIT. CHGRT300 00298 EXIT. CHGRT300 00299 CHGRT300 00300 I2000-CHK-QTR-STATUS. CHGRT300 00301 MOVE SPACE TO L931-TRACE-IND. CHGRT300 00302 MOVE 'CHGBD300' TO L931-MOD-NAME. CHGRT300 00303 CHGRT300 00304 PERFORM S931-OPEN-READ THRU S931-EXIT. CHGRT300 00305 IF L931-OK-88 CHGRT300 00306 NEXT SENTENCE CHGRT300 00307 ELSE CHGRT300 00308 DISPLAY 'CANNOT OPEN REF FILE ' CHGRT300 00309 PERFORM S999-ABEND THRU S999-EXIT. CHGRT300 00310 CHGRT300 00311 MOVE LOW-VALUES TO FQTR-KEY-AREA. CHGRT300 00312 CHGRT300 00313 SET FQTR-QTR-88 TO TRUE. CHGRT300 00314 CHGRT300 00315 MOVE CHG3-BEGIN-DATE TO L004-DATE. CHGRT300 00316 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGRT300 00317 MOVE L004-QTR-5-9 TO FQTR-YRQ. CHGRT300 00318 CHGRT300 00319 MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA. CHGRT300 00320 CHGRT300 00321 PERFORM S931-READ THRU S931-EXIT. CHGRT300 00322 CHGRT300 00323 IF L931-NO-REC-88 CHGRT300 00324 PERFORM S931-CLOSE THRU S931-EXIT CHGRT300 00325 GO TO I2000-EXIT CHGRT300 00326 END-IF. CHGRT300 00327 CHGRT300 00328 MOVE FSKL-REC TO FQTR-REC. CHGRT300 00329 CHGRT300 00330 PERFORM S931-CLOSE THRU S931-EXIT. CHGRT300 00331 CHGRT300 00332 IF FQTR-SELF-INS-CHG-RUN-DATE NOT NUMERIC CHGRT300 00333 MOVE ZERO TO FQTR-SELF-INS-CHG-RUN-DATE. CHGRT300 00334 CHGRT300 00335 IF WRK-SELF-INS-STEP1-88 CHGRT300 00336 IF FQTR-SELF-INS-CHG-RUN-DATE = ZERO CHGRT300 00337 NEXT SENTENCE CHGRT300 00338 ELSE CHGRT300 00339 DISPLAY 'CHARGES ALREADY RUN FOR THIS QTR ' FQTR-YRQ CHGRT300 00340 PERFORM S999-ABEND THRU S999-EXIT CHGRT300 00341 END-IF CHGRT300 00342 END-IF. CHGRT300 00343 CHGRT300 00344 I2000-EXIT. CHGRT300 00345 EXIT. CHGRT300 00346 CHGRT300 00347 I4000-OPEN-CHARGE-FILE. CHGRT300 00348 OPEN INPUT BD220-CHG-FILE. CHGRT300 00349 IF NOT BD220-FILE-OK-88 CHGRT300 00350 DISPLAY 'BD220 FILE OPEN ERROR: ' BD220-CHG-STATUS CHGRT300 00351 SET WRK-ERROR-YES-88 TO TRUE. CHGRT300 00352 CHGRT300 00353 I4000-EXIT. CHGRT300 00354 EXIT. CHGRT300 00355 CHGRT300 00356 I6000-INIT-REPORTS. CHGRT300 00357 MOVE CHG3-BEGIN-DATE TO CHG-LINK1-PERIOD-BEGIN. CHGRT300 00358 MOVE CHG3-END-DATE TO CHG-LINK1-PERIOD-END. CHGRT300 00359 MOVE CHG3-RUN-TYPE TO CHG-LINK1-RUN-TYPE. CHGRT300 00360 CHGRT300 00361 SET CHG-LINK1-CMD-INIT-88 TO TRUE. CHGRT300 00362 CHGRT300 00363 IF WRK-SELF-INS-STEP1-88 CHGRT300 00364 SET CHG-LINK1-SELF-INS-STEP1-88 TO TRUE CHGRT300 00365 ELSE CHGRT300 00366 SET CHG-LINK1-SELF-INS-STEP2-88 TO TRUE CHGRT300 00367 END-IF. CHGRT300 00368 CHGRT300 00369 *& CHGRT300 00370 DISPLAY 'BD300 I6 LINK1 SI STEP ' CHGRT300 00371 CHG-LINK1-SELF-INS-STEP. CHGRT300 00372 DISPLAY ' WRK STEP ' WRK-SELF-INS-STEP. CHGRT300 00373 *& CHGRT300 00374 *** IF CHG3-RPT-TYPE-RATED-88 CHGRT300 00375 * SET RATED-MOD TO TRUE CHGRT300 00376 *** PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00377 CHGRT300 00378 IF CHG3-RPT-TYPE-SELF-INS-88 CHGRT300 00379 SET SELF-INS-MOD TO TRUE CHGRT300 00380 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00381 CHGRT300 00382 IF CHG3-RUN-TYPE-QTRLY-88 CHGRT300 00383 SET TPS-UNIV-MOD TO TRUE CHGRT300 00384 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00385 SET T026-TAX-MOD TO TRUE CHGRT300 00386 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00387 END-IF. CHGRT300 00388 CHGRT300 00389 IF CHG3-RPT-TYPE-CWC-88 CHGRT300 00390 SET CWC-MOD TO TRUE CHGRT300 00391 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00392 CHGRT300 00393 IF CHG3-RPT-TYPE-FED-88 CHGRT300 00394 SET FEDERAL-MOD TO TRUE CHGRT300 00395 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00396 CHGRT300 00397 IF CHG3-RPT-TYPE-TEUC-88 CHGRT300 00398 SET TEUC-MOD TO TRUE CHGRT300 00399 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00400 CHGRT300 00401 IF CHG3-RPT-TYPE-DC-88 CHGRT300 00402 SET DC-GOV-MOD TO TRUE CHGRT300 00403 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00404 CHGRT300 00405 I6000-EXIT. CHGRT300 00406 EXIT. CHGRT300 00407 CHGRT300 00408 CHGRT300 00409 P0000-PROCESS. CHGRT300 00410 PERFORM P1000-READ-CHARGES THRU P1000-EXIT CHGRT300 00411 UNTIL BD220-FILE-EOF-88 CHGRT300 00412 OR CHG-EMPL-FILE-EOF-88 CHGRT300 00413 OR WRK-ERROR-YES-88. CHGRT300 00414 CHGRT300 00415 P0000-EXIT. CHGRT300 00416 EXIT. CHGRT300 00417 CHGRT300 00418 P1000-READ-CHARGES. CHGRT300 00419 PERFORM S1000-READ-CHG-FILE THRU S1000-EXIT. CHGRT300 00420 MOVE CHG4-EMP-NO TO WRK-CHG4-EMP-NO CHGRT300 00421 IF BD220-FILE-EOF-88 CHGRT300 00422 OR WRK-ERROR-YES-88 CHGRT300 00423 GO TO P1000-EXIT. CHGRT300 00424 CHGRT300 00425 DISPLAY 'CHG4:' WRK-CHG4-EMP-NO CHGRT300 00426 DISPLAY 'CHGR:' CHG-EMP-NO CHGRT300 00427 CHGRT300 00428 IF WRK-CHG-EMP-NO = 0 CHGRT300 00429 PERFORM S1100-READ-EMPL-FILE THRU S1100-EXIT CHGRT300 00430 IF CHG-EMPL-FILE-EOF-88 CHGRT300 00431 OR WRK-ERROR-YES-88 CHGRT300 00432 GO TO P1000-EXIT CHGRT300 00433 ELSE CHGRT300 00434 MOVE CHG-EMP-NO TO WRK-CHG-EMP-NO. CHGRT300 00435 CHGRT300 00436 IF CHG4-EMP-NO < WRK-CHG-EMP-NO CHGRT300 00437 GO TO P1000-EXIT. CHGRT300 00438 CHGRT300 00439 IF CHG4-EMP-NO NOT EQUAL WRK-CHG-EMP-NO CHGRT300 00440 PERFORM S1100-READ-EMPL-FILE THRU S1100-EXIT CHGRT300 00441 IF CHG-EMPL-FILE-EOF-88 CHGRT300 00442 OR WRK-ERROR-YES-88 CHGRT300 00443 GO TO P1000-EXIT CHGRT300 00444 ELSE CHGRT300 00445 MOVE CHG-EMP-NO TO WRK-CHG-EMP-NO. CHGRT300 00446 CHGRT300 00447 IF CHG4-EMP-NO < WRK-CHG-EMP-NO CHGRT300 00448 GO TO P1000-EXIT CHGRT300 00449 ELSE CHGRT300 00450 IF CHG4-EMP-NO > WRK-CHG-EMP-NO CHGRT300 00451 OR WRK-ERROR-YES-88 CHGRT300 00452 GO TO P1000-EXIT. CHGRT300 00453 CHGRT300 00454 PERFORM P2000-CALL-REPORT THRU P2000-EXIT. CHGRT300 00455 CHGRT300 00456 P1000-EXIT. CHGRT300 00457 EXIT. CHGRT300 00458 CHGRT300 00459 P2000-CALL-REPORT. CHGRT300 00460 SET CHG-LINK1-CMD-PROCESS-88 TO TRUE. CHGRT300 00461 CHGRT300 00462 IF WRK-SELF-INS-STEP1-88 CHGRT300 00463 PERFORM P2100-STEP1 THRU P2100-EXIT CHGRT300 00464 ELSE CHGRT300 00465 PERFORM P2200-STEP2 THRU P2200-EXIT CHGRT300 00466 END-IF. CHGRT300 00467 CHGRT300 00468 P2000-EXIT. CHGRT300 00469 EXIT. CHGRT300 00470 CHGRT300 00471 P2100-STEP1. CHGRT300 00472 EVALUATE TRUE CHGRT300 00473 WHEN CHG4-RPT-TYPE-SELF-INS-88 CHGRT300 00474 IF (CHG3-RUN-TYPE-QTRLY-88 CHGRT300 00475 AND CHG4-EMP-TYPE = 08) CHGRT300 00476 SET TPS-UNIV-MOD TO TRUE CHGRT300 00477 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00478 SET T026-TAX-MOD TO TRUE CHGRT300 00479 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00480 ELSE CHGRT300 00481 SET SELF-INS-MOD TO TRUE CHGRT300 00482 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00483 END-IF CHGRT300 00484 CHGRT300 00485 WHEN CHG4-RPT-TYPE-CWC-88 CHGRT300 00486 ADD +1 TO WRK-CWC-READ CHGRT300 00487 SET CWC-MOD TO TRUE CHGRT300 00488 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00489 CHGRT300 00490 *** WHEN CHG4-RPT-TYPE-RATED-88 CHGRT300 00491 * ADD +1 TO WRK-RATED-READ CHGRT300 00492 * SET RATED-MOD TO TRUE CHGRT300 00493 *** PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00494 CHGRT300 00495 WHEN CHG4-RPT-TYPE-FED-88 CHGRT300 00496 ADD +1 TO WRK-FED-READ CHGRT300 00497 SET FEDERAL-MOD TO TRUE CHGRT300 00498 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00499 CHGRT300 00500 WHEN CHG4-RPT-TYPE-TEUC-88 CHGRT300 00501 ADD +1 TO WRK-TEUC-READ CHGRT300 00502 SET TEUC-MOD TO TRUE CHGRT300 00503 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00504 CHGRT300 00505 WHEN CHG4-RPT-TYPE-DC-88 CHGRT300 00506 ADD +1 TO WRK-DC-GOV-READ CHGRT300 00507 SET DC-GOV-MOD TO TRUE CHGRT300 00508 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00509 CHGRT300 00510 WHEN CHG4-RPT-TYPE-NULL-88 CHGRT300 00511 SET PGM-NULL-MOD TO TRUE CHGRT300 00512 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00513 CHGRT300 00514 WHEN OTHER CHGRT300 00515 DISPLAY 'INVALID REPORT TYPE ' CHG4-REPORT-TYPE CHGRT300 00516 GO TO P2000-EXIT CHGRT300 00517 CHGRT300 00518 END-EVALUATE. CHGRT300 00519 CHGRT300 00520 ADD 1 TO WRK-BD220-CHG-SELECTED. CHGRT300 00521 CHGRT300 00522 P2100-EXIT. CHGRT300 00523 EXIT. CHGRT300 00524 CHGRT300 00525 P2200-STEP2. CHGRT300 00526 IF CHG4-RPT-TYPE-SELF-INS-88 CHGRT300 00527 IF (CHG3-RUN-TYPE-QTRLY-88 CHGRT300 00528 AND CHG4-EMP-TYPE = 08) CHGRT300 00529 ADD +1 TO WRK-SELF-INS-READ CHGRT300 00530 SET SELF-INS-MOD TO TRUE CHGRT300 00531 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00532 END-IF CHGRT300 00533 END-IF. CHGRT300 00534 CHGRT300 00535 P2200-EXIT. CHGRT300 00536 EXIT. CHGRT300 00537 CHGRT300 00538 P2110-SELF-INS. CHGRT300 00539 ADD +1 TO WRK-SELF-INS-READ. CHGRT300 00540 IF (CHG3-RUN-TYPE-QTRLY-88 CHGRT300 00541 AND CHG4-EMP-TYPE = 08) CHGRT300 00542 IF WRK-SELF-INS-STEP1-88 CHGRT300 00543 SET TPS-UNIV-MOD TO TRUE CHGRT300 00544 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00545 SET T026-TAX-MOD TO TRUE CHGRT300 00546 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00547 ELSE CHGRT300 00548 SET SELF-INS-MOD TO TRUE CHGRT300 00549 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00550 END-IF CHGRT300 00551 ELSE CHGRT300 00552 SET SELF-INS-MOD TO TRUE CHGRT300 00553 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00554 END-IF. CHGRT300 00555 CHGRT300 00556 P2110-EXIT. CHGRT300 00557 EXIT. CHGRT300 00558 CHGRT300 00559 T0000-TERMINATE. CHGRT300 00560 PERFORM T1000-CLOSE-REPORTS THRU T1000-EXIT. CHGRT300 00561 CHGRT300 00562 PERFORM T3000-CLOSE-FILES THRU T3000-EXIT. CHGRT300 00563 CHGRT300 00564 DISPLAY '*********************************************'. CHGRT300 00565 DISPLAY '** RT300 COUNTS **'. CHGRT300 00566 DISPLAY SPACE. CHGRT300 00567 DISPLAY ' CHGBD220 CHARGE RECORDS READ: ' CHGRT300 00568 WRK-BD220-CHG-READ. CHGRT300 00569 DISPLAY ' CHGBD220 CHARGE RECORDS SELECTED: ' CHGRT300 00570 WRK-BD220-CHG-SELECTED. CHGRT300 00571 ** DISPLAY ' RATED RECORDS PASSED : ' CHGRT300 00572 ** WRK-RATED-READ. CHGRT300 00573 DISPLAY ' SELF INSURED RECORDS PASSED : ' CHGRT300 00574 WRK-SELF-INS-READ. CHGRT300 00575 DISPLAY ' RECORDS READ FROM PARM FILE : ' CHGRT300 00576 WRK-EMPL-CHG-READ. CHGRT300 00577 DISPLAY ' CWC RECORDS PASSED : ' CHGRT300 00578 WRK-CWC-READ. CHGRT300 00579 DISPLAY ' FEDERAL RECORDS PASSED : ' CHGRT300 00580 WRK-FED-READ. CHGRT300 00581 DISPLAY ' TEUC RECORDS PASSED : ' CHGRT300 00582 WRK-TEUC-READ. CHGRT300 00583 DISPLAY ' DC GOV RECORDS PASSED : ' CHGRT300 00584 WRK-DC-GOV-READ. CHGRT300 00585 CHGRT300 00586 ** DISPLAY SPACE. CHGRT300 00587 * MOVE WRK-RPT-TYPE-RATED TO WRK-RPT-TYPE-RATED-DISP. CHGRT300 00588 * DISPLAY 'TOTAL REPORT TYPE RATED : ' CHGRT300 00589 ** WRK-RPT-TYPE-RATED-DISP. CHGRT300 00590 CHGRT300 00591 DISPLAY SPACE. CHGRT300 00592 MOVE WRK-RPT-TYPE-SELF-INS TO WRK-RPT-TYPE-SELF-INS-DISP. CHGRT300 00593 DISPLAY 'TOTAL REPORT TYPE SELF-INS : ' CHGRT300 00594 WRK-RPT-TYPE-SELF-INS-DISP. CHGRT300 00595 CHGRT300 00596 DISPLAY SPACE. CHGRT300 00597 MOVE WRK-RPT-TYPE-CWC TO WRK-RPT-TYPE-CWC-DISP. CHGRT300 00598 DISPLAY 'TOTAL REPORT TYPE CWC : ' CHGRT300 00599 WRK-RPT-TYPE-CWC-DISP. CHGRT300 00600 CHGRT300 00601 DISPLAY SPACE. CHGRT300 00602 MOVE WRK-RPT-TYPE-FED TO WRK-RPT-TYPE-FED-DISP. CHGRT300 00603 DISPLAY 'TOTAL REPORT TYPE FED : ' CHGRT300 00604 WRK-RPT-TYPE-FED-DISP. CHGRT300 00605 CHGRT300 00606 DISPLAY SPACE. CHGRT300 00607 MOVE WRK-RPT-TYPE-TEUC TO WRK-RPT-TYPE-TEUC-DISP. CHGRT300 00608 DISPLAY 'TOTAL REPORT TYPE TEUC : ' CHGRT300 00609 WRK-RPT-TYPE-TEUC-DISP. CHGRT300 00610 CHGRT300 00611 DISPLAY SPACE. CHGRT300 00612 MOVE WRK-RPT-TYPE-DC-GOV CHGRT300 00613 TO WRK-RPT-TYPE-DC-GOV-DISP. CHGRT300 00614 DISPLAY 'TOTAL DC GOVERNMENT : ' CHGRT300 00615 WRK-RPT-TYPE-DC-GOV-DISP. CHGRT300 00616 CHGRT300 00617 ** DISPLAY SPACE. CHGRT300 00618 ** MOVE WRK-RATED-TOT CHGRT300 00619 ** TO WRK-RATED-TOT-DISP. CHGRT300 00620 ** DISPLAY 'TOTAL CHARGE : ' CHGRT300 00621 ** WRK-RATED-TOT-DISP. CHGRT300 00622 CHGRT300 00623 T0000-EXIT. CHGRT300 00624 EXIT. CHGRT300 00625 CHGRT300 00626 T1000-CLOSE-REPORTS. CHGRT300 00627 SET CHG-LINK1-CMD-CLOSE-88 TO TRUE. CHGRT300 00628 CHGRT300 00629 *** IF CHG3-RPT-TYPE-RATED-88 CHGRT300 00630 * SET RATED-MOD TO TRUE CHGRT300 00631 *** PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00632 CHGRT300 00633 IF CHG3-RPT-TYPE-SELF-INS-88 CHGRT300 00634 SET SELF-INS-MOD TO TRUE CHGRT300 00635 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00636 IF CHG3-RUN-TYPE-QTRLY-88 CHGRT300 00637 SET TPS-UNIV-MOD TO TRUE CHGRT300 00638 PERFORM S2000-CALL THRU S2000-EXIT CHGRT300 00639 SET T026-TAX-MOD TO TRUE CHGRT300 00640 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00641 CHGRT300 00642 IF CHG3-RPT-TYPE-CWC-88 CHGRT300 00643 SET CWC-MOD TO TRUE CHGRT300 00644 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00645 CHGRT300 00646 IF CHG3-RPT-TYPE-FED-88 CHGRT300 00647 SET FEDERAL-MOD TO TRUE CHGRT300 00648 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00649 CHGRT300 00650 IF CHG3-RPT-TYPE-TEUC-88 CHGRT300 00651 SET TEUC-MOD TO TRUE CHGRT300 00652 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00653 CHGRT300 00654 IF CHG3-RPT-TYPE-DC-88 CHGRT300 00655 SET DC-GOV-MOD TO TRUE CHGRT300 00656 PERFORM S2000-CALL THRU S2000-EXIT. CHGRT300 00657 CHGRT300 00658 T1000-EXIT. CHGRT300 00659 EXIT. CHGRT300 00660 EJECT CHGRT300 00661 EJECT CHGRT300 00662 T3000-CLOSE-FILES. CHGRT300 00663 CLOSE BD220-CHG-FILE. CHGRT300 00664 CHGRT300 00665 CLOSE CHG-PARM-FILE. CHGRT300 00666 CHGRT300 00667 T3000-EXIT. CHGRT300 00668 EXIT. CHGRT300 00669 CHGRT300 00670 S001-FROM-FED-8. CHGRT300 00671 SET L001-FROM-FED-8 TO TRUE. CHGRT300 00672 GO TO S001-DATE. CHGRT300 00673 CHGRT300 00674 S001-FROM-ABS. CHGRT300 00675 SET L001-FROM-ABS-DAY TO TRUE. CHGRT300 00676 GO TO S001-DATE. CHGRT300 00677 CHGRT300 00678 S001-DATE. CHGRT300 00679 CALL 'DTSBU001' USING L001-LINK-AREA. CHGRT300 00680 S001-EXIT. CHGRT300 00681 EXIT. CHGRT300 00682 CHGRT300 00683 S003-AGENCY-DAY. CHGRT300 00684 SET L003-AGENCY-DAY TO TRUE. CHGRT300 00685 GO TO S003-WORK-DAY. CHGRT300 00686 CHGRT300 00687 S003-WORK-DAY. CHGRT300 00688 CALL 'DTSBU003' USING L003-LINK-AREA. CHGRT300 00689 S003-EXIT. CHGRT300 00690 EXIT. CHGRT300 00691 CHGRT300 00692 S004-FROM-DATE. CHGRT300 00693 SET L004-FROM-DATE TO TRUE. CHGRT300 00694 GO TO S004-YRQ. CHGRT300 00695 CHGRT300 00696 S004-YRQ. CHGRT300 00697 CALL 'DTSBU004' USING L004-LINK-AREA. CHGRT300 00698 S004-EXIT. CHGRT300 00699 EXIT. CHGRT300 00700 CHGRT300 00701 S005-FROM-SYS. CHGRT300 00702 SET L005-FROM-SYS TO TRUE. CHGRT300 00703 GO TO S005-ABSTIME. CHGRT300 00704 CHGRT300 00705 S005-ABSTIME. CHGRT300 00706 CALL 'DTSBU005' USING L005-LINK-AREA. CHGRT300 00707 S005-EXIT. CHGRT300 00708 EXIT. CHGRT300 00709 CHGRT300 00710 S931-OPEN-READ. CHGRT300 00711 SET L931-OPEN-READ-88 TO TRUE. CHGRT300 00712 GO TO S931-REF-I. CHGRT300 00713 CHGRT300 00714 S931-READ. CHGRT300 00715 SET L931-READ-88 TO TRUE. CHGRT300 00716 GO TO S931-REF-I. CHGRT300 00717 CHGRT300 00718 S931-CLOSE. CHGRT300 00719 SET L931-CLOSE-88 TO TRUE. CHGRT300 00720 GO TO S931-REF-I. CHGRT300 00721 CHGRT300 00722 S931-REF-I. CHGRT300 00723 CALL 'DTSBU931' USING L931-LINK-AREA CHGRT300 00724 FSKL-REC. CHGRT300 00725 S931-EXIT. CHGRT300 00726 EXIT. CHGRT300 00727 CHGRT300 00728 S1000-READ-CHG-FILE. CHGRT300 00729 READ BD220-CHG-FILE. CHGRT300 00730 IF BD220-FILE-OK-88 CHGRT300 00731 ADD 1 TO WRK-BD220-CHG-READ CHGRT300 00732 PERFORM S1200-TEST-TOTALS THRU S1200-EXIT CHGRT300 00733 ELSE CHGRT300 00734 IF BD220-FILE-EOF-88 CHGRT300 00735 NEXT SENTENCE CHGRT300 00736 ELSE CHGRT300 00737 DISPLAY 'BD220 FILE READ ERROR: ' BD220-CHG-STATUS CHGRT300 00738 SET WRK-ERROR-YES-88 TO TRUE CHGRT300 00739 END-IF CHGRT300 00740 END-IF. CHGRT300 00741 CHGRT300 00742 S1000-EXIT. CHGRT300 00743 EXIT. CHGRT300 00744 CHGRT300 00745 S1100-READ-EMPL-FILE. CHGRT300 00746 READ CHG-EMPL-FILE. CHGRT300 00747 IF CHG-EMPL-FILE-OK-88 CHGRT300 00748 ADD 1 TO WRK-EMPL-CHG-READ CHGRT300 00749 ELSE CHGRT300 00750 IF CHG-EMPL-FILE-EOF-88 CHGRT300 00751 NEXT SENTENCE CHGRT300 00752 ELSE CHGRT300 00753 DISPLAY 'EMPL FILE READ ERROR: ' CHG-EMPL-STATUS CHGRT300 00754 SET WRK-ERROR-YES-88 TO TRUE CHGRT300 00755 END-IF CHGRT300 00756 END-IF. CHGRT300 00757 CHGRT300 00758 S1100-EXIT. CHGRT300 00759 EXIT. CHGRT300 00760 CHGRT300 00761 S1200-TEST-TOTALS. CHGRT300 00762 CHGRT300 00763 EVALUATE TRUE CHGRT300 00764 ** WHEN CHG4-RPT-TYPE-RATED-88 CHGRT300 00765 * COMPUTE WRK-RPT-TYPE-RATED = WRK-RPT-TYPE-RATED CHGRT300 00766 * + CHG4-CURR-BEN-AMT CHGRT300 00767 ** + CHG4-CURR-ADJ-AMT CHGRT300 00768 CHGRT300 00769 WHEN CHG4-RPT-TYPE-SELF-INS-88 CHGRT300 00770 COMPUTE WRK-RPT-TYPE-SELF-INS = WRK-RPT-TYPE-SELF-INS CHGRT300 00771 + CHG4-CURR-BEN-AMT CHGRT300 00772 + CHG4-CURR-ADJ-AMT CHGRT300 00773 CHGRT300 00774 WHEN CHG4-RPT-TYPE-CWC-88 CHGRT300 00775 COMPUTE WRK-RPT-TYPE-CWC = WRK-RPT-TYPE-CWC CHGRT300 00776 + CHG4-CURR-BEN-AMT CHGRT300 00777 + CHG4-CURR-ADJ-AMT CHGRT300 00778 CHGRT300 00779 WHEN CHG4-RPT-TYPE-FED-88 CHGRT300 00780 COMPUTE WRK-RPT-TYPE-FED = WRK-RPT-TYPE-FED CHGRT300 00781 + CHG4-CURR-BEN-AMT CHGRT300 00782 + CHG4-CURR-ADJ-AMT CHGRT300 00783 CHGRT300 00784 WHEN CHG4-RPT-TYPE-TEUC-88 CHGRT300 00785 COMPUTE WRK-RPT-TYPE-TEUC = WRK-RPT-TYPE-TEUC CHGRT300 00786 + CHG4-CURR-BEN-AMT CHGRT300 00787 + CHG4-CURR-ADJ-AMT CHGRT300 00788 CHGRT300 00789 WHEN CHG4-RPT-TYPE-DC-88 CHGRT300 00790 COMPUTE WRK-RPT-TYPE-DC-GOV = WRK-RPT-TYPE-DC-GOV CHGRT300 00791 + CHG4-CURR-BEN-AMT CHGRT300 00792 + CHG4-CURR-ADJ-AMT CHGRT300 00793 CHGRT300 00794 END-EVALUATE. CHGRT300 00795 CHGRT300 00796 ** COMPUTE WRK-RATED-TOT = WRK-RATED-TOT CHGRT300 00797 * + CHG4-CURR-BEN-AMT CHGRT300 00798 ** + CHG4-CURR-ADJ-AMT. CHGRT300 00799 CHGRT300 00800 IF WRK-EMP-NO = ZERO CHGRT300 00801 MOVE CHG4-EMP-NO TO WRK-EMP-NO CHGRT300 00802 COMPUTE WRK-EMP-TOT = CHGRT300 00803 CHG4-CURR-BEN-AMT CHGRT300 00804 + CHG4-CURR-ADJ-AMT CHGRT300 00805 ELSE CHGRT300 00806 IF CHG4-EMP-NO NOT = WRK-EMP-NO CHGRT300 00807 MOVE WRK-EMP-TOT TO WRK-EMP-TOT-DISP CHGRT300 00808 *& DISPLAY 'CHGBD300 TOT ' WRK-EMP-NO CHGRT300 00809 *& ' ' WRK-EMP-TOT-DISP CHGRT300 00810 MOVE CHG4-EMP-NO TO WRK-EMP-NO CHGRT300 00811 COMPUTE WRK-EMP-TOT = CHGRT300 00812 CHG4-CURR-BEN-AMT CHGRT300 00813 + CHG4-CURR-ADJ-AMT CHGRT300 00814 ELSE CHGRT300 00815 COMPUTE WRK-EMP-TOT = WRK-EMP-TOT CHGRT300 00816 + CHG4-CURR-BEN-AMT CHGRT300 00817 + CHG4-CURR-ADJ-AMT CHGRT300 00818 END-IF CHGRT300 00819 END-IF. CHGRT300 00820 S1200-EXIT. CHGRT300 00821 EXIT. CHGRT300 00822 CHGRT300 00823 S2000-CALL. CHGRT300 00824 *& CHGRT300 00825 * IF CHG-LINK1-CMD-PROCESS-88 CHGRT300 00826 * COMPUTE WRK-EMP-TOT = CHGRT300 00827 * CHG4-CURR-BEN-AMT CHGRT300 00828 * + CHG4-CURR-ADJ-AMT. CHGRT300 00829 * MOVE WRK-EMP-TOT TO WRK-EMP-TOT-DISP CHGRT300 00830 * IF CHG4-SSN = 002545648 CHGRT300 00831 * DISPLAY 'BD300 ' WRK-REPORT-MOD CHGRT300 00832 * ' ' CHG4-REPORT-TYPE CHGRT300 00833 * ' ' CHG4-EMP-NO CHGRT300 00834 * ' ' CHG4-SSN. CHGRT300 00835 * ' ' WRK-EMP-TOT-DISP. CHGRT300 00836 *& CHGRT300 00837 CALL WRK-REPORT-MOD USING REPORT-LINK-AREA CHGRT300 00838 BD220-CHG-REC. CHGRT300 00839 S2000-EXIT. CHGRT300 00840 EXIT. CHGRT300 00841 CHGRT300 00842 S999-ABEND. CHGRT300 00843 DISPLAY '**** CHGBD300 ABENDING ' CHGRT300 00844 ABEND-MSG. CHGRT300 00845 CALL 'DTSBU999' USING ABEND-CODE. CHGRT300 00846 S999-EXIT. CHGRT300 00847 EXIT. CHGRT300