849 lines
67 KiB
COBOL
849 lines
67 KiB
COBOL
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
|