387 lines
30 KiB
COBOL
387 lines
30 KiB
COBOL
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
|