00001 IDENTIFICATION DIVISION. 05/07/20 00002 PROGRAM-ID. CHGBD220. CHGBD220 00003 *AUTHOR. TRW. LV004 00004 *DATE-WRITTEN. JUNE 2001. CHGBD220 00005 DATE-COMPILED. CHGBD220 00006 SKIP3 CHGBD220 00007 ***** CHGBD220 00008 * CHGBD220 00009 * FUNCTION: CHGBD220 00010 * CHGBD220 00011 * 1. VERIFY THAT THERE IS A TAX MASTER FILE RECORD FOR CHGBD220 00012 * EVERY EMPLOYER CHARGED FOR BENEFITS. CHGBD220 00013 * CHGBD220 00014 * 2. VERIFY THAT THE EMPLOYER STATUS IS VALID CHGBD220 00015 * (I.E., LIABLE OR CHARGE-ONLY). CHGBD220 00016 * CHGBD220 00017 * 3. FIND EMPLOYER MAILING ADDRESS CHGBD220 00018 * CHGBD220 00019 * 4. WRITE A MAILING LABEL FOR EACH SELF-INSURED, CHGBD220 00020 * CWC AND FEDERAL EMPLOYER. CHGBD220 00021 * CHGBD220 00022 * WRITE AN OUTPUT RECORD (TO BE INPUT TO THE PRINT PROCESS)CHGBD220 00023 * FOR EACH EACH VALID INPUT RECORD. CHGBD220 00024 * CHGBD220 00025 * INPUT: CHGBD220 00026 * CHGBD220 00027 * BD200CHG - CHARGE REPORT RECORDS GENERATED BY CHGBD220 00028 * CHGBD200. CHGBD220 00029 * CHGPARM - PARAMETER DATA INPUT FROM CHGBD305 CHGBD220 00030 * CHGBD220 00031 * OUTPUT: CHGBD220 00032 * BD210CHG - CHARGE REPORT RECORDS GENERATED BY CHGBD220 00033 * CHGBD220. CHGBD220 00034 * CHGBD220 00035 ***** CHGBD220 00036 CHGBD220 00037 ******************************************************************CHGBD220 00038 * MODIFICATION HISTORY: *CHGBD220 00039 * *CHGBD220 00040 * 02-02-1999 INITIAL DEVELOPMENT *CHGBD220 00041 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD220 00042 * *CHGBD220 00043 * 04-23-2002 MODIFIED TO OUTPUT TEUC RPC150R1 REPORT *CHGBD220 00044 * REFERENCE RFP # AUTHOR OF CHANGE - RW1 *CHGBD220 00045 * *CHGBD220 00046 * 04-02-2007 MODIFIED TO OUTPUT LABELS WHEN REQUESTING CWC AND *CHGBD220 00047 * FED REPORTS *CHGBD220 00048 * REFERENCE RFP # AUTHOR OF CHANGE - RW1 *CHGBD220 00049 * *CHGBD220 00050 * 01-03-2008 RECOMPILED FOR NEW VERSION OF CHGIM004. *CHGBD220 00051 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD220 00052 * *CHGBD220 00053 * 03-03-2009 RECOMPILED FOR NEW VERSION OF CHGIM004 (PROGRAM *CHGBD220 00054 * CODE UPDATES) *CHGBD220 00055 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD220 00056 * *CHGBD220 00057 * 05-14-2010 RECOMPILED FOR NEW VERSION OF CHGIM004 (PROGRAM *CHGBD220 00058 * CODE UPDATES) *CHGBD220 00059 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 *CHGBD220 00060 * * CL**2 00061 * 10-04-2014 RECOMPILED FOR NEW VERSION OF CHGIM004 (PROGRAM * CL**2 00062 * CODE UPDATES) * CL**2 00063 * REFERENCE RFP # UCPIA AUTHOR OF CHANGE - ZL1 * CL**2 00064 * * CL**4 00065 * 05-04-2020 RECOMPILED FOR NEW VERSION OF CHGIM004 (PROGRAM * CL**4 00066 * CODE UPDATES) PEUC, PUA, FRUR, FPUC * CL**4 00067 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 * CL**4 00068 * *CHGBD220 00069 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD220 00070 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD220 00071 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBD220 00072 ******************************************************************CHGBD220 00073 CHGBD220 00074 SKIP3 CHGBD220 00075 ENVIRONMENT DIVISION. CHGBD220 00076 SKIP3 CHGBD220 00077 INPUT-OUTPUT SECTION. CHGBD220 00078 SKIP3 CHGBD220 00079 FILE-CONTROL. CHGBD220 00080 SELECT CHG-FILE-IN ASSIGN TO BD210CHG CHGBD220 00081 FILE STATUS IS CHG-IN-STATUS. CHGBD220 00082 CHGBD220 00083 SELECT CHG-FILE-OUT ASSIGN TO BD220CHG CHGBD220 00084 FILE STATUS IS CHG-OUT-STATUS. CHGBD220 00085 CHGBD220 00086 SELECT CHG-PARM-FILE ASSIGN TO CHGPARM CHGBD220 00087 FILE STATUS IS CHG-PARM-STATUS. CHGBD220 00088 EJECT CHGBD220 00089 DATA DIVISION. CHGBD220 00090 FILE SECTION. CHGBD220 00091 FD CHG-FILE-IN CHGBD220 00092 RECORDING MODE IS F CHGBD220 00093 LABEL RECORDS ARE STANDARD CHGBD220 00094 BLOCK CONTAINS 0 CHARACTERS. CHGBD220 00095 SKIP1 CHGBD220 00096 01 CHG-REC-IN. CHGBD220 00097 ++INCLUDE CHGIM004 CHGBD220 00098 CHGBD220 00099 FD CHG-FILE-OUT CHGBD220 00100 RECORDING MODE IS F CHGBD220 00101 LABEL RECORDS ARE STANDARD CHGBD220 00102 BLOCK CONTAINS 0 CHARACTERS. CHGBD220 00103 SKIP1 CHGBD220 00104 01 CHG-REC-OUT PIC X(388). CHGBD220 00105 CHGBD220 00106 FD CHG-PARM-FILE CHGBD220 00107 RECORDING MODE IS F CHGBD220 00108 BLOCK CONTAINS 0 CHARACTERS. CHGBD220 00109 SKIP1 CHGBD220 00110 01 CHG-PARM-REC. CHGBD220 00111 ++INCLUDE CHGIM003 CHGBD220 00112 CHGBD220 00113 EJECT CHGBD220 00114 WORKING-STORAGE SECTION. CHGBD220 001145 77 PAN-VALET PICTURE X(24) VALUE '004CHGBD220 05/07/20'. CHGBD220 00115 77 PAN-VALET PICTURE X(24) VALUE '021CHGBD220 05/25/10'. CHGBD220 00116 CHGBD220 00117 01 WRK-AREA. CHGBD220 00118 *& CHGBD220 00119 05 WRK-ZERO-CHG-CNT PIC 9(07) COMP-3 VALUE 0. CHGBD220 00120 05 WRK-TOT-CHG PIC S9(09)V99 COMP-3 VALUE +0. CHGBD220 00121 05 WRK-TOT-CHG-DISP PIC Z(08)9.99-. CHGBD220 00122 05 WRK-EMP-CHG PIC S9(09)V99 COMP-3 VALUE +0. CHGBD220 00123 05 WRK-DISP-AREA. CHGBD220 00124 10 WRK-EMP-DISP PIC 9(06). CHGBD220 00125 10 FILLER PIC X(02) VALUE SPACES. CHGBD220 00126 10 WRK-SSN-DISP PIC 9(09). CHGBD220 00127 10 FILLER PIC X(02) VALUE SPACES. CHGBD220 00128 10 WRK-CHG-DISP PIC Z9(08)9.99-. CHGBD220 00129 *& CHGBD220 00130 05 WRK-CHG-IN-CNT PIC 9(08) COMP-3 VALUE 0. CHGBD220 00131 05 WRK-CHG-OUT-CNT PIC 9(08) COMP-3 VALUE 0. CHGBD220 00132 05 WRK-CHG-SUM-CNT PIC 9(08) COMP-3 VALUE 0. CHGBD220 00133 05 WRK-LABEL-CNT PIC 9(08) COMP-3 VALUE 0. CHGBD220 00134 05 ABEND-CODE PIC S9(04) COMP CHGBD220 00135 VALUE +220. CHGBD220 00136 05 ABEND-MOD PIC X(08) CHGBD220 00137 VALUE 'DTSBU999'. CHGBD220 00138 05 ABEND-MSG PIC X(60). CHGBD220 00139 CHGBD220 00140 05 CHG-IN-STATUS PIC X(02) VALUE SPACES. CHGBD220 00141 88 CHG-IN-OK-88 VALUE ZERO. CHGBD220 00142 88 CHG-IN-EOF-88 VALUE '10'. CHGBD220 00143 CHGBD220 00144 05 CHG-OUT-STATUS PIC X(02) VALUE SPACES. CHGBD220 00145 88 CHG-OUT-OK-88 VALUE ZERO. CHGBD220 00146 CHGBD220 00147 05 CHG-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD220 00148 88 CHG-PARM-FILE-OK-88 VALUE ZERO. CHGBD220 00149 88 CHG-PARM-FILE-EOF-88 VALUE '10'. CHGBD220 00150 CHGBD220 00151 05 WRK-ERROR-IND PIC X(01). CHGBD220 00152 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD220 00153 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD220 00154 CHGBD220 00155 05 WRK-LAST-LABEL-EMP PIC S9(07) COMP-3 CHGBD220 00156 VALUE ZERO. CHGBD220 00157 CHGBD220 00158 05 WRK-L030-SSN PIC 9(10). CHGBD220 00159 05 FILLER REDEFINES WRK-L030-SSN. CHGBD220 00160 10 WRK-L030-SSN-9 PIC 9(09). CHGBD220 00161 10 WRK-L030-SSN-SEQ PIC 9(01). CHGBD220 00162 CHGBD220 00163 05 WRK-CURR-RPT-TYPE PIC X(01) VALUE SPACE. CHGBD220 00164 88 WRK-CURR-RPT-RATED-88 VALUE '1'. CHGBD220 00165 88 WRK-CURR-RPT-SELF-INS-88 VALUE '2'. CHGBD220 00166 88 WRK-CURR-RPT-CWC-88 VALUE '3'. CHGBD220 00167 88 WRK-CURR-RPT-FED-88 VALUE '4'. CHGBD220 00168 CHGBD220 00169 05 WRK-LABEL-ROUTE-AREA. CHGBD220 00170 10 WRK-LABEL-ROUTE-STARS PIC X(40) VALUE CHGBD220 00171 ALL '*'. CHGBD220 00172 10 WRK-LABEL-ROUTE-SELF-INS PIC X(40) VALUE CHGBD220 00173 ' SELF-INSURED '. CHGBD220 00174 10 WRK-LABEL-ROUTE-CWC PIC X(40) VALUE CHGBD220 00175 ' CWC '. CHGBD220 00176 10 WRK-LABEL-ROUTE-FED PIC X(40) VALUE CHGBD220 00177 ' FEDERAL '. CHGBD220 00178 01 DISPLAY-PARM-REC. CHGBD220 00179 05 DISPLAY-RUN-TYPE PIC X(03). CHGBD220 00180 05 FILLER PIC X(01). CHGBD220 00181 05 DISPLAY-BEGIN-DATE PIC 9(06). CHGBD220 00182 05 FILLER PIC X(01). CHGBD220 00183 05 DISPLAY-END-DATE PIC 9(06). CHGBD220 00184 05 FILLER PIC X(01). CHGBD220 00185 05 DISPLAY-REPORT-TYPES. CHGBD220 00186 10 DISPLAY-RPT-TYPE-RATED PIC X(01). CHGBD220 00187 10 DISPLAY-RPT-TYPE-SELF-IND PIC X(01). CHGBD220 00188 10 DISPLAY-RPT-TYPE-CWC PIC X(01). CHGBD220 00189 10 DISPLAY-RPT-TYPE-FED PIC X(01). CHGBD220 00190 10 DISPLAY-RPT-TYPE-TEUC PIC X(01). CHGBD220 00191 10 DISPLAY-RPT-TYPE-FPUC PIC X(01). CL**3 00192 05 FILLER PIC X(01). CHGBD220 00193 05 DISPLAY-EMP-NO PIC 9(06). CHGBD220 00194 05 FILLER PIC X(49). CL**3 00195 CHGBD220 00196 01 WRK-CHG-REC. CHGBD220 00197 ++INCLUDE CHGIM004 CHGBD220 00198 CHGBD220 00199 ** REPORT I-O SKELETAL RECORD CHGBD220 00200 01 RSKL-REC. CHGBD220 00201 ++INCLUDE DTSIRSK1 CHGBD220 00202 ** MAILING LABEL RECORD CHGBD220 00203 01 R901-REC. CHGBD220 00204 ++INCLUDE DTSIR901 CHGBD220 00205 CHGBD220 00206 01 CG-L030-LINK-AREA. CHGBD220 00207 ++INCLUDE CHGIL030 CHGBD220 00208 CHGBD220 00209 PROCEDURE DIVISION. CHGBD220 00210 SKIP2 CHGBD220 00211 CHGBD220-MAIN. CHGBD220 00212 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD220 00213 IF WRK-ERROR-YES-88 CHGBD220 00214 GO TO CHGBD220-EXIT. CHGBD220 00215 CHGBD220 00216 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD220 00217 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD220 00218 CHGBD220 00219 CHGBD220-EXIT. CHGBD220 00220 STOP RUN. CHGBD220 00221 EJECT CHGBD220 00222 I0000-INITIATE. CHGBD220 00223 CHGBD220 00224 MOVE ZERO TO WRK-CHG-IN-CNT CHGBD220 00225 WRK-CHG-OUT-CNT CHGBD220 00226 WRK-LABEL-CNT CHGBD220 00227 WRK-CHG-SUM-CNT. CHGBD220 00228 CHGBD220 00229 SET WRK-ERROR-NO-88 TO TRUE. CHGBD220 00230 CHGBD220 00231 MOVE LENGTH OF R901-REC TO R901-LENGTH. CHGBD220 00232 CHGBD220 00233 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. CHGBD220 00234 CHGBD220 00235 I0000-EXIT. CHGBD220 00236 EXIT. CHGBD220 00237 CHGBD220 00238 I2000-OPEN-FILES. CHGBD220 00239 OPEN INPUT CHG-FILE-IN. CHGBD220 00240 IF NOT CHG-IN-OK-88 CHGBD220 00241 DISPLAY 'INPUT FILE OPEN ERROR: ' CHG-IN-STATUS CHGBD220 00242 PERFORM S999-ABEND THRU S999-EXIT. CHGBD220 00243 CHGBD220 00244 OPEN OUTPUT CHG-FILE-OUT. CHGBD220 00245 IF NOT CHG-OUT-OK-88 CHGBD220 00246 DISPLAY 'OUTPUT FILE OPEN ERROR: ' CHG-OUT-STATUS CHGBD220 00247 PERFORM S999-ABEND THRU S999-EXIT. CHGBD220 00248 CHGBD220 00249 OPEN INPUT CHG-PARM-FILE. CHGBD220 00250 IF NOT CHG-PARM-FILE-OK-88 CHGBD220 00251 DISPLAY 'CHARGE PARM FILE OPEN ERROR: ' CHGBD220 00252 CHG-PARM-STATUS CHGBD220 00253 PERFORM S999-ABEND THRU S999-EXIT. CHGBD220 00254 CHGBD220 00255 READ CHG-PARM-FILE. CHGBD220 00256 IF NOT CHG-PARM-FILE-OK-88 CHGBD220 00257 DISPLAY 'CHARGE PARM FILE READ ERROR: ' CHGBD220 00258 CHG-PARM-STATUS CHGBD220 00259 PERFORM S999-ABEND THRU S999-EXIT. CHGBD220 00260 CHGBD220 00261 DISPLAY '***** CHGBD220 PARM RECORD *****'. CHGBD220 00262 MOVE CHG3-RUN-TYPE TO DISPLAY-RUN-TYPE. CHGBD220 00263 MOVE CHG3-BEGIN-DATE TO DISPLAY-BEGIN-DATE. CHGBD220 00264 MOVE CHG3-END-DATE TO DISPLAY-END-DATE. CHGBD220 00265 MOVE CHG3-RPT-TYPES TO DISPLAY-REPORT-TYPES. CHGBD220 00266 MOVE CHG3-EMP-NO TO DISPLAY-EMP-NO. CHGBD220 00267 DISPLAY DISPLAY-PARM-REC. CHGBD220 00268 DISPLAY SPACE. CHGBD220 00269 CHGBD220 00270 SET CG-L030-CMND-INIT-88 TO TRUE. CHGBD220 00271 PERFORM S030-TOT-CHARGE THRU S030-EXIT. CHGBD220 00272 CHGBD220 00273 I2000-EXIT. CHGBD220 00274 EXIT. CHGBD220 00275 CHGBD220 00276 P0000-PROCESS. CHGBD220 00277 PERFORM S1000-READ-BD210 THRU S1000-EXIT. CHGBD220 00278 IF NOT CHG-IN-OK-88 CHGBD220 00279 DISPLAY 'BD210 FILE EMPTY: ' CHG-IN-STATUS CHGBD220 00280 SET WRK-ERROR-YES-88 TO TRUE CHGBD220 00281 GO TO P0000-EXIT. CHGBD220 00282 CHGBD220 00283 ADD 1 TO WRK-CHG-IN-CNT. CHGBD220 00284 MOVE CHG-REC-IN TO WRK-CHG-REC. CHGBD220 00285 CHGBD220 00286 PERFORM P1000-PROCESS-CHARGES THRU P1000-EXIT CHGBD220 00287 UNTIL CHG-IN-EOF-88 CHGBD220 00288 OR WRK-ERROR-YES-88. CHGBD220 00289 CHGBD220 00290 P0000-EXIT. CHGBD220 00291 EXIT. CHGBD220 00292 CHGBD220 00293 P1000-PROCESS-CHARGES. CHGBD220 00294 PERFORM S1000-READ-BD210 THRU S1000-EXIT. CHGBD220 00295 IF CHG-IN-EOF-88 CHGBD220 00296 PERFORM P1200-WRITE-CHARGES THRU P1200-EXIT CHGBD220 00297 GO TO P1000-EXIT CHGBD220 00298 ELSE CHGBD220 00299 IF NOT CHG-IN-OK-88 CHGBD220 00300 DISPLAY 'BD210 FILE READ ERROR: ' CHG-IN-STATUS CHGBD220 00301 SET WRK-ERROR-YES-88 TO TRUE CHGBD220 00302 SET CHG-IN-EOF-88 TO TRUE CHGBD220 00303 GO TO P1000-EXIT CHGBD220 00304 END-IF CHGBD220 00305 END-IF. CHGBD220 00306 CHGBD220 00307 ADD 1 TO WRK-CHG-IN-CNT. CHGBD220 00308 CHGBD220 00309 IF CHG4-SORT-KEY-AREA OF CHG-REC-IN = CHGBD220 00310 CHG4-SORT-KEY-AREA OF WRK-CHG-REC CHGBD220 00311 PERFORM P1100-SUM-CHARGES THRU P1100-EXIT CHGBD220 00312 ELSE CHGBD220 00313 PERFORM P1200-WRITE-CHARGES THRU P1200-EXIT CHGBD220 00314 MOVE CHG-REC-IN TO WRK-CHG-REC CHGBD220 00315 END-IF. CHGBD220 00316 CHGBD220 00317 P1000-EXIT. CHGBD220 00318 EXIT. CHGBD220 00319 CHGBD220 00320 P1100-SUM-CHARGES. CHGBD220 00321 ADD 1 TO WRK-CHG-SUM-CNT. CHGBD220 00322 CHGBD220 00323 ADD CHG4-CURR-BEN-AMT OF CHG-REC-IN CHGBD220 00324 TO CHG4-CURR-BEN-AMT OF WRK-CHG-REC. CHGBD220 00325 CHGBD220 00326 ADD CHG4-CURR-ADJ-AMT OF CHG-REC-IN CHGBD220 00327 TO CHG4-CURR-ADJ-AMT OF WRK-CHG-REC. CHGBD220 00328 CHGBD220 00329 ADD CHG4-TOT-BEN-AMT OF CHG-REC-IN CHGBD220 00330 TO CHG4-TOT-BEN-AMT OF WRK-CHG-REC. CHGBD220 00331 CHGBD220 00332 ADD CHG4-TOT-ADJ-AMT OF CHG-REC-IN CHGBD220 00333 TO CHG4-TOT-ADJ-AMT OF WRK-CHG-REC. CHGBD220 00334 CHGBD220 00335 ADD CHG4-OP-RECOVER-AMT OF CHG-REC-IN CHGBD220 00336 TO CHG4-OP-RECOVER-AMT OF WRK-CHG-REC. CHGBD220 00337 CHGBD220 00338 P1100-EXIT. CHGBD220 00339 EXIT. CHGBD220 00340 CHGBD220 00341 P1200-WRITE-CHARGES. CHGBD220 00342 COMPUTE WRK-EMP-CHG = CHGBD220 00343 + CHG4-CURR-BEN-AMT OF WRK-CHG-REC CHGBD220 00344 + CHG4-CURR-ADJ-AMT OF WRK-CHG-REC. CHGBD220 00345 CHGBD220 00346 IF WRK-EMP-CHG = ZERO CHGBD220 00347 ADD +1 TO WRK-ZERO-CHG-CNT CHGBD220 00348 IF CHG4-RPT-TYPE-NULL-88 OF WRK-CHG-REC CHGBD220 00349 PERFORM S1100-WRITE-BD220 THRU S1100-EXIT CHGBD220 00350 END-IF CHGBD220 00351 ELSE CHGBD220 00352 PERFORM P1210-TOT-CHG THRU P1210-EXIT CHGBD220 00353 PERFORM S1100-WRITE-BD220 THRU S1100-EXIT CHGBD220 00354 IF CHG4-EMP-NO OF WRK-CHG-REC NOT = CHGBD220 00355 WRK-LAST-LABEL-EMP CHGBD220 00356 PERFORM P3000-MAILING-LABEL THRU P3000-EXIT CHGBD220 00357 END-IF CHGBD220 00358 END-IF. CHGBD220 00359 CHGBD220 00360 P1200-EXIT. CHGBD220 00361 EXIT. CHGBD220 00362 CHGBD220 00363 P1210-TOT-CHG. CHGBD220 00364 MOVE CHG4-SSN OF WRK-CHG-REC TO CG-L030-SSN. CHGBD220 00365 MOVE CHG3-BEGIN-DATE TO CG-L030-START-DATE. CHGBD220 00366 MOVE CHG3-END-DATE TO CG-L030-END-DATE. CHGBD220 00367 MOVE CHG4-BYE OF WRK-CHG-REC TO CG-L030-BYE. CHGBD220 00368 MOVE CHG4-PROGRAM OF WRK-CHG-REC TO CG-L030-PROGRAM. CHGBD220 00369 *& CHGBD220 00370 * DISPLAY 'INP ' CG-L030-SSN CHGBD220 00371 * ' ' CG-L030-START-DATE CHGBD220 00372 * ' ' CG-L030-END-DATE CHGBD220 00373 * ' ' CG-L030-BYE CHGBD220 00374 * ' ' CG-L030-PROGRAM. CHGBD220 00375 *& CHGBD220 00376 CHGBD220 00377 SET CG-L030-CMND-PROCESS-88 TO TRUE. CHGBD220 00378 PERFORM S030-TOT-CHARGE THRU S030-EXIT. CHGBD220 00379 CHGBD220 00380 MOVE CG-L030-TOT-CHG TO CHG4-TOT-BEN-AMT CHGBD220 00381 OF WRK-CHG-REC. CHGBD220 00382 MOVE ZERO TO CHG4-TOT-ADJ-AMT CHGBD220 00383 OF WRK-CHG-REC. CHGBD220 00384 *& CHGBD220 00385 * MOVE CHG4-TOT-BEN-AMT OF WRK-CHG-REC CHGBD220 00386 * TO WRK-TOT-CHG-DISP. CHGBD220 00387 * DISPLAY 'TOT CHG ' WRK-TOT-CHG-DISP CHGBD220 00388 * ' ' CHG4-EMP-NO OF WRK-CHG-REC CHGBD220 00389 * ' ' CHG4-SSN OF WRK-CHG-REC. CHGBD220 00390 *& CHGBD220 00391 CHGBD220 00392 P1210-EXIT. CHGBD220 00393 EXIT. CHGBD220 00394 CHGBD220 00395 P3000-MAILING-LABEL. CHGBD220 00396 IF CHG3-RUN-TYPE-QTRLY-88 OR CHGBD220 00397 CHG3-RUN-TYPE-RPTS-88 CHGBD220 00398 NEXT SENTENCE CHGBD220 00399 ELSE CHGBD220 00400 GO TO P3000-EXIT. CHGBD220 00401 CHGBD220 00402 IF CHG4-RPT-TYPE-SELF-INS-88 OF WRK-CHG-REC CHGBD220 00403 OR CHG4-RPT-TYPE-CWC-88 OF WRK-CHG-REC CHGBD220 00404 OR CHG4-RPT-TYPE-FED-88 OF WRK-CHG-REC CHGBD220 00405 NEXT SENTENCE CHGBD220 00406 ELSE CHGBD220 00407 GO TO P3000-EXIT. CHGBD220 00408 CHGBD220 00409 IF CHG4-REPORT-TYPE OF WRK-CHG-REC NOT = WRK-CURR-RPT-TYPE CHGBD220 00410 MOVE CHG4-REPORT-TYPE OF WRK-CHG-REC TO CHGBD220 00411 WRK-CURR-RPT-TYPE CHGBD220 00412 PERFORM P3100-SEPARATOR-LABEL THRU P3100-EXIT. CHGBD220 00413 CHGBD220 00414 PERFORM P3200-PRINT-LABEL THRU P3200-EXIT. CHGBD220 00415 CHGBD220 00416 P3000-EXIT. CHGBD220 00417 EXIT. CHGBD220 00418 CHGBD220 00419 P3100-SEPARATOR-LABEL. CHGBD220 00420 SET R901-ON-REQUEST-88 TO TRUE. CHGBD220 00421 MOVE LOW-VALUE TO R901-SORT-VAR-AREA. CHGBD220 00422 MOVE SPACES TO R901-FMT-ADDR CHGBD220 00423 R901-ZIP CHGBD220 00424 R901-ADVANCED-BARCODE. CHGBD220 00425 CHGBD220 00426 IF WRK-CURR-RPT-SELF-INS-88 CHGBD220 00427 MOVE WRK-LABEL-ROUTE-SELF-INS TO R901-FMT-LINE (2) CHGBD220 00428 ELSE CHGBD220 00429 IF WRK-CURR-RPT-CWC-88 CHGBD220 00430 MOVE WRK-LABEL-ROUTE-CWC TO R901-FMT-LINE (2) CHGBD220 00431 ELSE CHGBD220 00432 IF WRK-CURR-RPT-FED-88 CHGBD220 00433 MOVE WRK-LABEL-ROUTE-FED TO R901-FMT-LINE (2) CHGBD220 00434 ELSE CHGBD220 00435 GO TO P3100-EXIT. CHGBD220 00436 CHGBD220 00437 MOVE WRK-CURR-RPT-TYPE TO R901-GRP1-OP-ID. CHGBD220 00438 MOVE 000000 TO R901-EMP-NO. CHGBD220 00439 MOVE +1 TO R901-LABEL-CNT. CHGBD220 00440 MOVE WRK-LABEL-ROUTE-STARS TO R901-FMT-LINE (1) CHGBD220 00441 R901-FMT-LINE (3). CHGBD220 00442 CHGBD220 00443 MOVE R901-REC TO RSKL-REC. CHGBD220 00444 PERFORM S946-RPT-REC-O THRU S946-EXIT. CHGBD220 00445 CHGBD220 00446 P3100-EXIT. CHGBD220 00447 EXIT. CHGBD220 00448 CHGBD220 00449 P3200-PRINT-LABEL. CHGBD220 00450 SET R901-ON-REQUEST-88 TO TRUE. CHGBD220 00451 MOVE LOW-VALUE TO R901-SORT-VAR-AREA. CHGBD220 00452 CHGBD220 00453 MOVE CHG4-REPORT-TYPE OF WRK-CHG-REC CHGBD220 00454 TO R901-GRP1-OP-ID. CHGBD220 00455 MOVE CHG4-EMP-NO OF WRK-CHG-REC CHGBD220 00456 TO R901-EMP-NO CHGBD220 00457 WRK-LAST-LABEL-EMP. CHGBD220 00458 MOVE +1 TO R901-LABEL-CNT. CHGBD220 00459 CHGBD220 00460 MOVE CHG4-FMT-ADDR OF WRK-CHG-REC TO R901-FMT-ADDR. CHGBD220 00461 MOVE CHG4-ZIP OF WRK-CHG-REC TO R901-ZIP. CHGBD220 00462 MOVE CHG4-ADVANCED-BARCODE OF WRK-CHG-REC TO CHGBD220 00463 R901-ADVANCED-BARCODE. CHGBD220 00464 CHGBD220 00465 MOVE R901-REC TO RSKL-REC. CHGBD220 00466 PERFORM S946-RPT-REC-O THRU S946-EXIT. CHGBD220 00467 CHGBD220 00468 ADD +1 TO WRK-LABEL-CNT. CHGBD220 00469 CHGBD220 00470 P3200-EXIT. CHGBD220 00471 EXIT. CHGBD220 00472 CHGBD220 00473 S1000-READ-BD210. CHGBD220 00474 READ CHG-FILE-IN. CHGBD220 00475 CHGBD220 00476 S1000-EXIT. CHGBD220 00477 EXIT. CHGBD220 00478 CHGBD220 00479 S1100-WRITE-BD220. CHGBD220 00480 COMPUTE WRK-TOT-CHG = WRK-TOT-CHG CHGBD220 00481 + CHG4-CURR-BEN-AMT OF WRK-CHG-REC CHGBD220 00482 + CHG4-CURR-ADJ-AMT OF WRK-CHG-REC. CHGBD220 00483 CHGBD220 00484 WRITE CHG-REC-OUT FROM WRK-CHG-REC. CHGBD220 00485 IF CHG-OUT-OK-88 CHGBD220 00486 ADD 1 TO WRK-CHG-OUT-CNT. CHGBD220 00487 CHGBD220 00488 S1100-EXIT. CHGBD220 00489 EXIT. CHGBD220 00490 CHGBD220 00491 S030-TOT-CHARGE. CHGBD220 00492 CALL 'CHGBD235' USING CG-L030-LINK-AREA. CHGBD220 00493 S030-EXIT. EXIT. CHGBD220 00494 CHGBD220 00495 ** REPORT RECORD I-O CHGBD220 00496 S946-RPT-REC-O. CHGBD220 00497 CALL 'DTSBU946' USING RSKL-REC. CHGBD220 00498 CHGBD220 00499 S946-EXIT. CHGBD220 00500 EXIT. CHGBD220 00501 CHGBD220 00502 T0000-TERMINATE. CHGBD220 00503 CLOSE CHG-FILE-IN CHGBD220 00504 CHG-FILE-OUT CHGBD220 00505 CHG-PARM-FILE. CHGBD220 00506 CHGBD220 00507 SET CG-L030-CMND-TERM-88 TO TRUE. CHGBD220 00508 PERFORM S030-TOT-CHARGE THRU S030-EXIT. CHGBD220 00509 CHGBD220 00510 DISPLAY '***********************************************'. CHGBD220 00511 DISPLAY '*** CHGBD220 COUNTS *** '. CHGBD220 00512 DISPLAY '***'. CHGBD220 00513 CHGBD220 00514 DISPLAY ' INPUT CHARGE RECORDS READ : ' CHGBD220 00515 WRK-CHG-IN-CNT. CHGBD220 00516 CHGBD220 00517 DISPLAY ' OUTPUT CHARGE RECORDS WRITTEN: ' CHGBD220 00518 WRK-CHG-OUT-CNT. CHGBD220 00519 CHGBD220 00520 DISPLAY ' CHARGE RECORDS COMBINED : ' CHGBD220 00521 WRK-CHG-SUM-CNT. CHGBD220 00522 CHGBD220 00523 DISPLAY ' TOTAL CHARGE = ZERO BYPASSED : ' CHGBD220 00524 WRK-ZERO-CHG-CNT. CHGBD220 00525 CHGBD220 00526 DISPLAY ' MAILING LABELS WRITTEN : ' CHGBD220 00527 WRK-LABEL-CNT. CHGBD220 00528 CHGBD220 00529 MOVE WRK-TOT-CHG TO WRK-TOT-CHG-DISP. CHGBD220 00530 DISPLAY ' TOTAL CHARGES : ' CHGBD220 00531 WRK-TOT-CHG-DISP. CHGBD220 00532 CHGBD220 00533 DISPLAY '***********************************************'. CHGBD220 00534 CHGBD220 00535 T0000-EXIT. CHGBD220 00536 EXIT. CHGBD220 00537 EJECT CHGBD220 00538 CHGBD220 00539 S999-ABEND. CHGBD220 00540 DISPLAY '**** CHGBD220 ABENDING ' CHGBD220 00541 ABEND-MSG. CHGBD220 00542 CALL ABEND-MOD USING ABEND-CODE. CHGBD220 00543 CHGBD220 00544 S999-EXIT. CHGBD220 00545 EXIT. CHGBD220 00546 CHGBD220