00001 IDENTIFICATION DIVISION. 05/25/10 00002 PROGRAM-ID. CHGBD106. CHGBD106 00003 *AUTHOR. TCL. LV009 00004 *DATE-WRITTEN. FEBRUARY 1999. CHGBD106 00005 DATE-COMPILED. CHGBD106 00006 SKIP3 CHGBD106 00007 ***** CHGBD106 00008 * CHGBD106 00009 * FUNCTION: CHGBD106 00010 * CHGBD106 00011 * BENEFIT CHARGE CONVERSION STEP 1 CHGBD106 00012 * (1) READ DATA FROM TAPE AND CREATE CHGIM001 RECORDS CHGBD106 00013 * CHGBD106 00014 ***** CHGBD106 00015 * *** NOTE NOTE NOTE NOTE NOTE NOTE NOTE *** CHGBD106 00016 * *** *** CHGBD106 00017 * *** IF THE BENEFITS SYSTEM BEGINS PRODUCING *** CHGBD106 00018 * *** CHARGE RECORDS FOR A NEW BENEFIT PROGRAM *** CHGBD106 00019 * *** MODIFY THE FOLLOWING CHARGE SYSTEM *** CHGBD106 00020 * *** COMPONENTS: *** CHGBD106 00021 * *** *** CHGBD106 00022 * *** ADD NEW LEVEL-88S TO: *** CHGBD106 00023 * *** CHG1-CHARGE-PROGRAM IN CHGIM001 *** CHGBD106 00024 * *** WRK-PROGRAM IN CHGBD106 *** CHGBD106 00025 * *** CHG2-PROGRAM IN CHGIM002 *** CHGBD106 00026 * *** CHG4-PROGRAM IN CHGIM004 *** CHGBD106 00027 * *** CHG30-PROGRAM IN CHGIM030 *** CHGBD106 00028 * *** *** CHGBD106 00029 * *** MODIFY P1500 IN CHGBD106 *** CHGBD106 00030 * *** *** CHGBD106 00031 ***** CHGBD106 00032 * CHGBD106 00033 * INPUT: CHGBD106 00034 * CHGBD106 00035 * CHGFILE - CHARGE RECORDS GENERATED BY CHGBD106 00036 * BENEFITS SYSTEM. CHGBD106 00037 * CHGBD106 00038 * OUTPUT: CHGBD106 00039 * CHGBD106 00040 * BD100CHG - REFORMATTED CHARGE RECORD WITHIN CHGBD106 00041 * REPORTING PERIOD READY FOR SORT. CHGBD106 00042 ***** CHGBD106 00043 CHGBD106 00044 ******************************************************************CHGBD106 00045 * MODIFICATION HISTORY: *CHGBD106 00046 * *CHGBD106 00047 * 02-02-1999 MODIFIED FROM MT CHG100D *CHGBD106 00048 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD106 00049 * *CHGBD106 00050 * 04-09-2001 ELIMINATED THE CURRENT PARAMETER FILE BY USING THE *CHGBD106 00051 * LINKAGE SECTION TO RECEIVE THE START AND END DATES *CHGBD106 00052 * FROM JCL PARM. *CHGBD106 00053 * REFERENCE RFP # AUTHOR OF CHANGE - RW1 *CHGBD106 00054 * *CHGBD106 00055 * 05-29-2001 ELIMINATED THE LINKAGE-SECTION TO RECEIVE THE START *CHGBD106 00056 * AND END DATES FROM JCL PARM. *CHGBD106 00057 * DELETED PARAGRAPH P1600 CHECK FOR SUCCESSOR ACCOUNT *CHGBD106 00058 * REFERENCE RFP # AUTHOR OF CHANGE - RW1 *CHGBD106 00059 * *CHGBD106 00060 * 06-29-2004 ADDED EMP TYPE 17 - DOMESTIC VIOLENCE. *CHGBD106 00061 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD106 00062 * *CHGBD106 00063 * 05-04-2010 RECOMPILED FOR NEW VERSION OF CHGIM COPYBOOK. *CHGBD106 00064 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 *CHGBD106 00065 * *CHGBD106 00066 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD106 00067 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD106 00068 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBD106 00069 * *CHGBD106 00070 ******************************************************************CHGBD106 00071 CHGBD106 00072 SKIP3 CHGBD106 00073 ENVIRONMENT DIVISION. CHGBD106 00074 SKIP3 CHGBD106 00075 INPUT-OUTPUT SECTION. CHGBD106 00076 SKIP3 CHGBD106 00077 FILE-CONTROL. CHGBD106 00078 CHGBD106 00079 SELECT CHARGE-IN-FILE ASSIGN TO CHGFILE CHGBD106 00080 FILE STATUS IS CHARGE-IN-STATUS. CHGBD106 00081 CHGBD106 00082 SELECT BD100-CHG-FILE ASSIGN TO BD100CHG CHGBD106 00083 FILE STATUS IS BD100-CHG-STATUS. CHGBD106 00084 EJECT CHGBD106 00085 DATA DIVISION. CHGBD106 00086 SKIP3 CHGBD106 00087 FILE SECTION. CHGBD106 00088 SKIP3 CHGBD106 00089 FD CHARGE-IN-FILE CHGBD106 00090 RECORDING MODE IS V CHGBD106 00091 BLOCK CONTAINS 0 CHARACTERS CHGBD106 00092 LABEL RECORDS ARE STANDARD. CHGBD106 00093 CHGBD106 00094 01 CHARGE-IN-REC PIC X(130). CHGBD106 00095 CHGBD106 00096 FD BD100-CHG-FILE CHGBD106 00097 LABEL RECORDS ARE STANDARD CHGBD106 00098 BLOCK CONTAINS 0 CHARACTERS. CHGBD106 00099 SKIP1 CHGBD106 00100 01 SORT-CHG-REC. CHGBD106 00101 ++INCLUDE CHGIM001 CHGBD106 00102 CHGBD106 00103 EJECT CHGBD106 00104 WORKING-STORAGE SECTION. CHGBD106 001045 77 PAN-VALET PICTURE X(24) VALUE '009CHGBD106 05/25/10'. CHGBD106 00105 CHGBD106 00106 01 WRK-AREA. CHGBD106 00107 05 AMT-DISP PIC Z(06)9.99-. CHGBD106 00108 05 ABEND-CODE PIC S9(04) COMP CHGBD106 00109 VALUE +100. CHGBD106 00110 05 ABEND-MSG PIC X(60). CHGBD106 00111 05 ABEND-MOD PIC X(08) VALUE 'DTSBU999'. CHGBD106 00112 CHGBD106 00113 05 CHARGE-IN-STATUS PIC X(02) VALUE SPACES. CHGBD106 00114 88 CHARGE-FILE-OK-88 VALUE ZERO. CHGBD106 00115 88 CHARGE-FILE-EOF-88 VALUE '10'. CHGBD106 00116 CHGBD106 00117 05 BD100-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD106 00118 88 BD100-FILE-OK-88 VALUE ZERO. CHGBD106 00119 CHGBD106 00120 05 WRK-CHG-LENGTH PIC S9(05) COMP. CHGBD106 00121 CHGBD106 00122 05 WRK-ERROR-IND PIC X(01). CHGBD106 00123 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD106 00124 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD106 00125 CHGBD106 00126 05 WRK-EDIT-ERROR-IND PIC X(01). CHGBD106 00127 88 WRK-EDIT-ERROR-YES-88 VALUE 'Y'. CHGBD106 00128 88 WRK-EDIT-ERROR-NO-88 VALUE 'N'. CHGBD106 00129 CHGBD106 00130 05 CHARGE-DATE-8. CHGBD106 00131 10 CHARGE-DATE-19 PIC 9(02) VALUE 19. CHGBD106 00132 10 CHARGE-DATE-6 PIC 9(06) VALUE 0. CHGBD106 00133 05 CHARGE-DATE-CENTURY REDEFINES CHARGE-DATE-8 PIC 9(08). CHGBD106 00134 05 CHARGE-BWE-DATE-8. CHGBD106 00135 10 CHARGE-BWE-19 PIC 9(02) VALUE 19. CHGBD106 00136 10 CHARGE-BWE-DATE-6 PIC 9(06) VALUE 0. CHGBD106 00137 05 CHARGE-BWE-DATE-CENTURY REDEFINES CHARGE-BWE-DATE-8 CHGBD106 00138 PIC 9(08). CHGBD106 00139 05 CHARGE-BYE-DATE-8. CHGBD106 00140 10 CHARGE-BYE-19 PIC 9(02) VALUE 19. CHGBD106 00141 10 CHARGE-BYE-DATE-6 PIC 9(06) VALUE 0. CHGBD106 00142 05 CHARGE-BYE-DATE-CENTURY REDEFINES CHARGE-BYE-DATE-8 CHGBD106 00143 PIC 9(08). CHGBD106 00144 05 WRK-START-DATE PIC S9(09) COMP-3. CHGBD106 00145 05 WRK-END-DATE PIC S9(09) COMP-3. CHGBD106 00146 05 WRK-CHARGE-DATE PIC S9(09) COMP-3. CHGBD106 00147 05 WRK-BYE PIC S9(09) COMP-3. CHGBD106 00148 05 WRK-KEY-X PIC X(10). CHGBD106 00149 05 WRK-KEY-N REDEFINES WRK-KEY-X CHGBD106 00150 PIC 9(10). CHGBD106 00151 05 TOT-CHARGE-CURR-AMT PIC S9(9)V99 VALUE +0. CHGBD106 00152 05 DIS-CHARGE-CURR-AMT PIC ZZZ,ZZZ,ZZZ.99. CHGBD106 00153 05 INV-EMP-NO-CURR-AMT PIC S9(9)V99 VALUE +0. CHGBD106 00154 05 DIS-INV-EMP-NO-CURR-AMT PIC ZZZ,ZZZ,ZZZ.99. CHGBD106 00155 ************************************************************* CHGBD106 00156 * WRK-PROGRAM DEFINES VALUES FOR VALID BENEFIT PROGRAMS. CHGBD106 00157 * IT IS SET BASED ON CHARGE-SUPP-CODE IN THE DUCAS ESPRPT04 CHGBD106 00158 * RECORD. IF AN NEW BENEFIT PROGRAM IS ESTABLISHED, ADD CHGBD106 00159 * AN ADDITIONAL LEVEL-88 AND MODIFY THE CODE IN P1500. CHGBD106 00160 ************************************************************* CHGBD106 00161 05 WRK-PROGRAM PIC 9(01). CHGBD106 00162 88 WRK-PROG-UI-88 VALUE 1. CHGBD106 00163 88 WRK-PROG-EB-88 VALUE 2. CHGBD106 00164 88 WRK-PROG-TEUC-88 VALUE 3. CHGBD106 00165 88 WRK-PROG-TEUCA-88 VALUE 4. CHGBD106 00166 05 WRK-CHARGE-IN-READ PIC 9(07) COMP-3. CHGBD106 00167 05 WRK-SORT-CHG-WRITTEN PIC 9(07) COMP-3. CHGBD106 00168 CHGBD106 00169 05 WRK-CHG-DT-ERR-CNT PIC 9(07) COMP-3. CHGBD106 00170 05 WRK-BYE-ERR-CNT PIC 9(07) COMP-3. CHGBD106 00171 05 WRK-EMP-TYPE-ERR-CNT PIC 9(07) COMP-3. CHGBD106 00172 05 WRK-CHG-AMT-ERR-CNT PIC 9(07) COMP-3. CHGBD106 00173 05 WRK-SUPP-CD-ERR-CNT PIC 9(07) COMP-3. CHGBD106 00174 05 WRK-EMP-NO-ERR-CNT PIC 9(07) COMP-3. CHGBD106 00175 05 WRK-SSN-ERR-CNT PIC 9(07) COMP-3. CHGBD106 00176 CHGBD106 00177 05 WRK-EMP-ACCT PIC 9(06). CHGBD106 00178 88 WRK-EMP-ACCT-FED-88 VALUE 000001 THRU 001999. CHGBD106 00179 88 WRK-EMP-ACCT-CWC-88 VALUE 110000 THRU 119999. CHGBD106 00180 CHGBD106 00181 05 WRK-EMP-TYPE PIC 9(02). CHGBD106 00182 88 WRK-EMP-TYPE-RATED-88 VALUE 00. CHGBD106 00183 88 WRK-EMP-TYPE-SELF-INS-88 VALUE 08. CHGBD106 00184 88 WRK-EMP-TYPE-CWC-88 VALUE 04. CHGBD106 00185 88 WRK-EMP-TYPE-FED-88 VALUE 01, 02. CHGBD106 00186 88 WRK-EMP-TYPE-VALID-88 VALUE 00, 01, 02, 03 CHGBD106 00187 04, 05, 06 CHGBD106 00188 07, 08, 09 CHGBD106 00189 10, 11, 12, 26 CHGBD106 00190 13, 15, 16, 17 CHGBD106 00191 18, 19, 20, 21 CHGBD106 00192 22, 23, 24, 25, CHGBD106 00193 26, 27. CHGBD106 00194 ** ADD ERROR MSG TABLE SET UP CHGBD106 00195 01 MSG-TABLE. CHGBD106 00196 05 MSG1-EMP-TYPE. CHGBD106 00197 10 MSG1-ID. CHGBD106 00198 15 MSG1-ID1 PIC X(08) VALUE 'CHGBD106'. CHGBD106 00199 15 MSG1-ID2 PIC X(03) VALUE '101'. CHGBD106 00200 10 MSG1-SHORT-TEXT PIC X(20) CHGBD106 00201 VALUE 'INVALID EMP TYPE : '. CHGBD106 00202 10 MSG1-LONG-TEXT. CHGBD106 00203 15 FILLER PIC X(29) CHGBD106 00204 VALUE 'INVALID EMPLOYER TYPE '. CHGBD106 00205 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD106 00206 15 MSG1-SSN PIC 9(10). CHGBD106 00207 15 FILLER PIC X(13) VALUE ' EMP TYPE = '. CHGBD106 00208 15 MSG1-EMP-TYPE PIC 9(02). CHGBD106 00209 CHGBD106 00210 05 MSG2-BYE-DATE. CHGBD106 00211 10 MSG2-ID. CHGBD106 00212 15 MSG2-ID1 PIC X(08) VALUE 'CHGBD106'. CHGBD106 00213 15 MSG2-ID2 PIC X(03) VALUE '101'. CHGBD106 00214 10 MSG2-SHORT-TEXT PIC X(20) CHGBD106 00215 VALUE 'INVALID BYE DATE : '. CHGBD106 00216 10 MSG2-LONG-TEXT. CHGBD106 00217 15 FILLER PIC X(29) CHGBD106 00218 VALUE 'INVALID BYE DATE ACCEPTED '. CHGBD106 00219 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD106 00220 15 MSG2-SSN PIC 9(10). CHGBD106 00221 15 FILLER PIC X(13) VALUE ' BYE DATE = '. CHGBD106 00222 15 MSG2-BYE PIC 9(08). CHGBD106 00223 CHGBD106 00224 05 MSG3-CHARGE-DATE. CHGBD106 00225 10 MSG3-ID. CHGBD106 00226 15 MSG3-ID1 PIC X(08) VALUE 'CHGBD106'. CHGBD106 00227 15 MSG3-ID2 PIC X(03) VALUE '101'. CHGBD106 00228 10 MSG3-SHORT-TEXT PIC X(20) CHGBD106 00229 VALUE 'INVALID CHG DATE : '. CHGBD106 00230 10 MSG3-LONG-TEXT. CHGBD106 00231 15 FILLER PIC X(29) CHGBD106 00232 VALUE 'INVALID CHARGE DATE '. CHGBD106 00233 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD106 00234 15 MSG3-SSN PIC 9(10). CHGBD106 00235 15 FILLER PIC X(13) VALUE ' CHG DATE = '. CHGBD106 00236 15 MSG3-CHG-DATE PIC 9(08). CHGBD106 00237 CHGBD106 00238 05 MSG4-CHARGE-AMT. CHGBD106 00239 10 MSG4-ID. CHGBD106 00240 15 MSG4-ID1 PIC X(08) VALUE 'CHGBD106'. CHGBD106 00241 15 MSG4-ID2 PIC X(03) VALUE '101'. CHGBD106 00242 10 MSG4-SHORT-TEXT PIC X(20) CHGBD106 00243 VALUE 'INVALID CHG AMOUNT :'. CHGBD106 00244 10 MSG4-LONG-TEXT. CHGBD106 00245 15 FILLER PIC X(29) CHGBD106 00246 VALUE 'INVALID CHARGE AMOUNT '. CHGBD106 00247 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD106 00248 15 MSG4-SSN PIC 9(10). CHGBD106 00249 15 FILLER PIC X(15) VALUE ' CHG AMOUNT = '.CHGBD106 00250 15 MSG4-CURR-AMT PIC S9(08)V99. CHGBD106 00251 CHGBD106 00252 05 MSG5-SUPP-CODE. CHGBD106 00253 10 MSG5-ID. CHGBD106 00254 15 MSG5-ID1 PIC X(08) VALUE 'CHGBD106'. CHGBD106 00255 15 MSG5-ID2 PIC X(03) VALUE '101'. CHGBD106 00256 10 MSG5-SHORT-TEXT PIC X(20) CHGBD106 00257 VALUE 'INVALID SUPP CODE :'. CHGBD106 00258 10 MSG5-LONG-TEXT. CHGBD106 00259 15 FILLER PIC X(29) CHGBD106 00260 VALUE 'INVALID SUPP CODE '. CHGBD106 00261 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD106 00262 15 MSG5-SSN PIC 9(10). CHGBD106 00263 15 FILLER PIC X(14) VALUE ' SUPP CODE = '. CHGBD106 00264 15 MSG5-SUPP-CD PIC X(01). CHGBD106 00265 CHGBD106 00266 05 MSG6-EMP-NO. CHGBD106 00267 10 MSG6-ID. CHGBD106 00268 15 MSG6-ID1 PIC X(08) VALUE 'CHGBD106'. CHGBD106 00269 15 MSG6-ID2 PIC X(03) VALUE '101'. CHGBD106 00270 10 MSG6-SHORT-TEXT PIC X(20) CHGBD106 00271 VALUE 'EMP NUMBER = ZERO :'. CHGBD106 00272 10 MSG6-LONG-TEXT. CHGBD106 00273 15 FILLER PIC X(29) CHGBD106 00274 VALUE 'EMPLOYER NUMBER = ZERO '. CHGBD106 00275 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD106 00276 15 MSG6-SSN PIC 9(10). CHGBD106 00277 15 FILLER PIC X(15) VALUE SPACES. CHGBD106 00278 CHGBD106 00279 05 MSG7-SSN-ERR. CHGBD106 00280 10 MSG6-ID. CHGBD106 00281 15 MSG7-ID1 PIC X(08) VALUE 'CHGBD106'. CHGBD106 00282 15 MSG7-ID2 PIC X(03) VALUE '101'. CHGBD106 00283 10 MSG7-SHORT-TEXT PIC X(20) CHGBD106 00284 VALUE 'SSN = ZERO :'. CHGBD106 00285 10 MSG7-LONG-TEXT. CHGBD106 00286 15 FILLER PIC X(29) CHGBD106 00287 VALUE 'SSN = ZERT '. CHGBD106 00288 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD106 00289 15 MSG7-SSN PIC 9(10). CHGBD106 00290 15 FILLER PIC X(15) VALUE SPACES. CHGBD106 00291 CHGBD106 00292 ** ADD ERROR MSG OUTPUT RECORD. CHGBD106 00293 01 R907-REC. CHGBD106 00294 ++INCLUDE DTSIR907 CHGBD106 00295 CHGBD106 00296 *** BENEFITS CHARGE RECORD *** CHGBD106 00297 ****NCLUDE ESPRPT04 CHGBD106 00298 ******************************************************************CHGBD106 00299 ** ESPRPT04 - EMPLOYER CHARGING REPORT RECORD **CHGBD106 00300 ******************************************************************CHGBD106 00301 01 CHARGE-REC. CHGBD106 00302 05 CHARGE-SORT-KEY. CHGBD106 00303 10 CHARGE-REC-TYPE PIC 9(2) VALUE 04. CHGBD106 00304 10 CHARGE-EMPL-ACCT PIC 9(6) VALUE ZERO. CHGBD106 00305 10 CHARGE-KEY. CHGBD106 00306 15 CHARGE-SSN PIC 9(9) VALUE ZERO. CHGBD106 00307 15 CHARGE-SSN-SEQ PIC 9(1) VALUE ZERO. CHGBD106 00308 10 CHARGE-CODE PIC 9(1) VALUE ZERO. CHGBD106 00309 88 CHARGE-ADJ VALUE 3. CHGBD106 00310 88 CHARGE-BEN VALUE 4. CHGBD106 00311 88 CHARGE-OP-ESTABLISH VALUE 5. CHGBD106 00312 88 CHARGE-OP-RECOUP VALUE 6. CHGBD106 00313 88 CHARGE-IB6 VALUE 7. CHGBD106 00314 88 CHARGE-OP-WAIVER VALUE 8. CHGBD106 00315 88 CHARGE-OTHER VALUE 9. CHGBD106 00316 10 CHARGE-DATE PIC 9(6) VALUE ZERO. CHGBD106 00317 10 CHARGE-SHAREABLE-IND PIC 9(1) VALUE ZERO. CHGBD106 00318 88 CHARGE-SHAREABLE-YES VALUE 1. CHGBD106 00319 10 CHARGE-PROG-NAME PIC X(6) VALUE SPACE. CHGBD106 00320 10 CHARGE-PAY-TYPE-BEN PIC X(2) VALUE SPACE. CHGBD106 00321 05 CHARGE-BWE-DATE PIC 9(6) VALUE ZERO. CHGBD106 00322 05 CHARGE-TRAN-ID PIC X(2) VALUE SPACE. CHGBD106 00323 05 CHARGE-OPER-ID PIC X(8) VALUE SPACE. CHGBD106 00324 05 CHARGE-TOT-AMT PIC S9(8)V99 VALUE ZERO. CHGBD106 00325 05 CHARGE-CURR-AMT PIC S9(8)V99 VALUE ZERO. CHGBD106 00326 05 CHARGE-BYE-DATE PIC 9(6) VALUE ZERO. CHGBD106 00327 05 CHARGE-SUPP-CODE PIC X(1) VALUE SPACE. CHGBD106 00328 88 CHARGE-SUPP-CODE-EB VALUE 'E'. CHGBD106 00329 05 CHARGE-PAY-TYPE PIC X(1) VALUE SPACE. CHGBD106 00330 05 CHARGE-NAME PIC X(32) VALUE SPACE. CHGBD106 00331 05 CHARGE-FILLER CHGBD106 00332 REDEFINES CHGBD106 00333 CHARGE-NAME. CHGBD106 00334 10 CHARGE-LAST-NAME PIC X(18). CHGBD106 00335 10 CHARGE-NAME-SLASH PIC X. CHGBD106 00336 10 CHARGE-FIRST-NAME PIC X(12). CHGBD106 00337 10 CHARGE-MIDDLE-NAME PIC X. CHGBD106 00338 05 CHARGE-EMPLOYER-TYPE PIC 9(2) VALUE ZERO. CHGBD106 00339 88 CHARGE-EMPLOYER-CONTRIBUTORY VALUE 00. CHGBD106 00340 88 CHARGE-EMPLOYER-UCX VALUE 01. CHGBD106 00341 88 CHARGE-EMPLOYER-UCFE VALUE 02. CHGBD106 00342 88 CHARGE-EMPLOYER-ETA-PSE VALUE 03. CHGBD106 00343 88 CHARGE-EMPLOYER-INTERSTATE VALUE 04. CHGBD106 00344 88 CHARGE-EMPLOYER-VOL-QUIT VALUE 05. CHGBD106 00345 88 CHARGE-EMPLOYER-MISCONDUCT VALUE 06. CHGBD106 00346 88 CHARGE-EMPLOYER-EB VALUE 07. CHGBD106 00347 88 CHARGE-EMPLOYER-SELF-INSURED VALUE 08. CHGBD106 00348 88 CHARGE-EMPLOYER-TRA VALUE 09. CHGBD106 00349 88 CHARGE-EMPLOYER-DC-GOVERNMENT VALUE 10. CHGBD106 00350 88 CHARGE-EMPLOYER-UI-PSE VALUE 11. CHGBD106 00351 88 CHARGE-EMPLOYER-FSC VALUE 12. CHGBD106 00352 88 CHARGE-EMPLOYER-DUMMY VALUE 30. CHGBD106 00353 05 CHARGE-REG-ADJ-CHECK PIC 9(02) VALUE ZEROS. CHGBD106 00354 05 CHARGE-PROG PIC 9(02) VALUE ZEROS. CHGBD106 00355 05 CHARGE-FILLER-ONE PIC X(14) VALUE SPACE. CHGBD106 00356 CHGBD106 00357 01 FILLER REDEFINES CHARGE-REC. CHGBD106 00358 **** 05 FILLER PIC X(04). CHGBD106 00359 05 WRK-CHARGE-REC PIC X(134). CHGBD106 00360 CHGBD106 00361 01 L001-LINK-AREA. CHGBD106 00362 ++INCLUDE DTSIL001 CHGBD106 00363 CHGBD106 00364 01 L004-LINK-AREA. CHGBD106 00365 ++INCLUDE DTSIL004 CHGBD106 00366 CHGBD106 00367 LINKAGE SECTION. CHGBD106 00368 01 PARM-AREA. CHGBD106 00369 05 PARM-LENGTH PIC S9(04) COMP. CHGBD106 00370 05 PARM-START-DATE PIC X(06). CHGBD106 00371 05 FILLER PIC X(01). CHGBD106 00372 05 PARM-END-DATE PIC X(06). CHGBD106 00373 EJECT CHGBD106 00374 PROCEDURE DIVISION USING PARM-AREA. CHGBD106 00375 SKIP2 CHGBD106 00376 CHGBD106-MAIN. CHGBD106 00377 MOVE ZERO TO WRK-CHARGE-IN-READ CHGBD106 00378 WRK-SORT-CHG-WRITTEN CHGBD106 00379 WRK-CHG-DT-ERR-CNT CHGBD106 00380 WRK-BYE-ERR-CNT CHGBD106 00381 WRK-EMP-TYPE-ERR-CNT CHGBD106 00382 WRK-CHG-AMT-ERR-CNT CHGBD106 00383 WRK-SUPP-CD-ERR-CNT CHGBD106 00384 WRK-EMP-NO-ERR-CNT CHGBD106 00385 WRK-SSN-ERR-CNT. CHGBD106 00386 CHGBD106 00387 SET WRK-ERROR-NO-88 TO TRUE. CHGBD106 00388 CHGBD106 00389 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD106 00390 IF WRK-ERROR-YES-88 CHGBD106 00391 GO TO CHGBD106-EXIT. CHGBD106 00392 CHGBD106 00393 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD106 00394 CHGBD106 00395 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD106 00396 CHGBD106 00397 MOVE +0 TO RETURN-CODE. CHGBD106 00398 CHGBD106 00399 CHGBD106-EXIT. CHGBD106 00400 STOP RUN. CHGBD106 00401 EJECT CHGBD106 00402 I0000-INITIATE. CHGBD106 00403 MOVE MSG1-ID1 TO R907-MODULE-NAME. CHGBD106 00404 MOVE LENGTH OF R907-REC TO R907-LENGTH. CHGBD106 00405 CHGBD106 00406 PERFORM I1000-READ-PARM THRU I1000-EXIT. CHGBD106 00407 CHGBD106 00408 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. CHGBD106 00409 CHGBD106 00410 I0000-EXIT. CHGBD106 00411 EXIT. CHGBD106 00412 CHGBD106 00413 I1000-READ-PARM. CHGBD106 00414 IF PARM-LENGTH NOT = +13 CHGBD106 00415 DISPLAY 'INVALID PARM LENGTH' CHGBD106 00416 PERFORM S999-ABEND THRU S999-EXIT. CHGBD106 00417 CHGBD106 00418 IF PARM-START-DATE NOT NUMERIC CHGBD106 00419 DISPLAY 'START DATE NOT NUMERIC' CHGBD106 00420 PERFORM S999-ABEND THRU S999-EXIT. CHGBD106 00421 CHGBD106 00422 MOVE PARM-START-DATE TO L001-CAL-6-DATE-X. CHGBD106 00423 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD106 00424 IF L001-VALID-DATE CHGBD106 00425 MOVE L001-FED-8-DATE-9 TO WRK-START-DATE CHGBD106 00426 ELSE CHGBD106 00427 DISPLAY 'INVALID-START-DATE' CHGBD106 00428 PERFORM S999-ABEND THRU S999-EXIT. CHGBD106 00429 CHGBD106 00430 IF PARM-END-DATE NOT NUMERIC CHGBD106 00431 DISPLAY 'END DATE NOT NUMERIC' CHGBD106 00432 PERFORM S999-ABEND THRU S999-EXIT. CHGBD106 00433 CHGBD106 00434 MOVE PARM-END-DATE TO L001-CAL-6-DATE-X. CHGBD106 00435 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD106 00436 IF L001-VALID-DATE CHGBD106 00437 MOVE L001-FED-8-DATE-9 TO WRK-END-DATE CHGBD106 00438 ELSE CHGBD106 00439 DISPLAY 'INVALID-END-DATE' CHGBD106 00440 PERFORM S999-ABEND THRU S999-EXIT. CHGBD106 00441 CHGBD106 00442 DISPLAY '****************************************'. CHGBD106 00443 DISPLAY '** **'. CHGBD106 00444 DISPLAY '** START DATE ' WRK-START-DATE CHGBD106 00445 ' **'. CHGBD106 00446 DISPLAY '** **'. CHGBD106 00447 DISPLAY '** END DATE ' WRK-END-DATE CHGBD106 00448 ' **'. CHGBD106 00449 DISPLAY '****************************************'. CHGBD106 00450 CHGBD106 00451 I1000-EXIT. CHGBD106 00452 EXIT. CHGBD106 00453 CHGBD106 00454 I2000-OPEN-FILES. CHGBD106 00455 OPEN INPUT CHARGE-IN-FILE. CHGBD106 00456 IF NOT CHARGE-FILE-OK-88 CHGBD106 00457 DISPLAY 'CHARGE FILE OPEN ERROR: ' CHARGE-IN-STATUS CHGBD106 00458 SET WRK-ERROR-YES-88 TO TRUE CHGBD106 00459 GO TO I2000-EXIT. CHGBD106 00460 CHGBD106 00461 OPEN OUTPUT BD100-CHG-FILE. CHGBD106 00462 IF NOT BD100-FILE-OK-88 CHGBD106 00463 DISPLAY 'SORT FILE OPEN ERROR: ' BD100-CHG-STATUS CHGBD106 00464 SET WRK-ERROR-YES-88 TO TRUE CHGBD106 00465 GO TO I2000-EXIT. CHGBD106 00466 CHGBD106 00467 I2000-EXIT. CHGBD106 00468 EXIT. CHGBD106 00469 CHGBD106 00470 P0000-PROCESS. CHGBD106 00471 READ CHARGE-IN-FILE INTO WRK-CHARGE-REC CHGBD106 00472 IF NOT CHARGE-FILE-OK-88 CHGBD106 00473 DISPLAY 'CHARGE FILE EMPTY: ' CHARGE-IN-STATUS CHGBD106 00474 SET WRK-ERROR-YES-88 TO TRUE CHGBD106 00475 GO TO P0000-EXIT CHGBD106 00476 ELSE CHGBD106 00477 ADD 1 TO WRK-CHARGE-IN-READ. CHGBD106 00478 CHGBD106 00479 PERFORM P1000-SELECT-CHARGES THRU P1000-EXIT CHGBD106 00480 **** UNTIL WRK-SORT-CHG-WRITTEN > 1000. CHGBD106 00481 UNTIL CHARGE-FILE-EOF-88. CHGBD106 00482 CHGBD106 00483 P0000-EXIT. CHGBD106 00484 EXIT. CHGBD106 00485 CHGBD106 00486 P1000-SELECT-CHARGES. CHGBD106 00487 SET WRK-EDIT-ERROR-NO-88 TO TRUE. CHGBD106 00488 ***** CHGBD106 00489 ***** CHGBD106 00490 PERFORM P1100-EDIT-CHARGE-DATE THRU P1100-EXIT. CHGBD106 00491 IF WRK-EDIT-ERROR-YES-88 CHGBD106 00492 GO TO P1000-READ-NEXT. CHGBD106 00493 CHGBD106 00494 PERFORM P1200-EDIT-CWC THRU P1200-EXIT. CHGBD106 00495 CHGBD106 00496 PERFORM P1300-EDIT-BYE-DATE THRU P1300-EXIT. CHGBD106 00497 CHGBD106 00498 PERFORM P1400-EDIT-CHG-AMT THRU P1400-EXIT. CHGBD106 00499 CHGBD106 00500 PERFORM P1500-EDIT-SUPP-CODE THRU P1500-EXIT. CHGBD106 00501 CHGBD106 00502 PERFORM P1600-EDIT-EMP-NO THRU P1600-EXIT. CHGBD106 00503 CHGBD106 00504 PERFORM P1700-EDIT-SSN THRU P1700-EXIT. CHGBD106 00505 CHGBD106 00506 IF WRK-EDIT-ERROR-YES-88 CHGBD106 00507 GO TO P1000-READ-NEXT. CHGBD106 00508 CHGBD106 00509 PERFORM P2000-WRITE-SORT-REC THRU P2000-EXIT. CHGBD106 00510 CHGBD106 00511 P1000-READ-NEXT. CHGBD106 00512 READ CHARGE-IN-FILE INTO WRK-CHARGE-REC. CHGBD106 00513 IF CHARGE-FILE-OK-88 CHGBD106 00514 ADD 1 TO WRK-CHARGE-IN-READ CHGBD106 00515 ELSE CHGBD106 00516 IF CHARGE-FILE-EOF-88 CHGBD106 00517 NEXT SENTENCE CHGBD106 00518 ELSE CHGBD106 00519 DISPLAY 'CHARGE FILE READ ERROR: ' CHARGE-IN-STATUS CHGBD106 00520 SET WRK-ERROR-YES-88 TO TRUE CHGBD106 00521 SET CHARGE-FILE-EOF-88 TO TRUE. CHGBD106 00522 CHGBD106 00523 P1000-EXIT. CHGBD106 00524 EXIT. CHGBD106 00525 CHGBD106 00526 P1100-EDIT-CHARGE-DATE. CHGBD106 00527 MOVE CHARGE-DATE TO CHARGE-DATE-6. CHGBD106 00528 MOVE CHARGE-DATE-8 TO L001-FED-8-DATE-X. CHGBD106 00529 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBD106 00530 IF L001-VALID-DATE CHGBD106 00531 MOVE L001-FED-8-DATE-9 TO WRK-CHARGE-DATE CHGBD106 00532 *** PERFORM P1110-CHECK-DATE THRU P1110-EXIT CHGBD106 00533 ELSE CHGBD106 00534 SET WRK-EDIT-ERROR-YES-88 TO TRUE CHGBD106 00535 ADD +1 TO WRK-CHG-DT-ERR-CNT CHGBD106 00536 MOVE MSG3-ID2 TO R907-MSG-ID CHGBD106 00537 MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO CHGBD106 00538 MOVE CHARGE-SSN TO MSG3-SSN CHGBD106 00539 MOVE CHARGE-DATE TO CHARGE-DATE-6 CHGBD106 00540 MOVE CHARGE-DATE-8 TO MSG3-CHG-DATE CHGBD106 00541 MOVE MSG3-LONG-TEXT TO R907-MSG-TEXT CHGBD106 00542 PERFORM S946-R907-WRITE THRU S946-EXIT. CHGBD106 00543 CHGBD106 00544 P1100-EXIT. CHGBD106 00545 EXIT. CHGBD106 00546 CHGBD106 00547 P1110-CHECK-DATE. CHGBD106 00548 IF CHARGE-DATE-CENTURY < WRK-START-DATE CHGBD106 00549 OR CHARGE-DATE-CENTURY > WRK-END-DATE CHGBD106 00550 SET WRK-EDIT-ERROR-YES-88 TO TRUE CHGBD106 00551 DISPLAY 'DATE ' CHARGE-DATE-8 CHGBD106 00552 ' EMP ' CHARGE-EMPL-ACCT CHGBD106 00553 ' SSN ' CHARGE-SSN CHGBD106 00554 END-IF. CHGBD106 00555 CHGBD106 00556 P1110-EXIT. CHGBD106 00557 EXIT. CHGBD106 00558 CHGBD106 00559 P1200-EDIT-CWC. CHGBD106 00560 MOVE CHARGE-EMPL-ACCT TO WRK-EMP-ACCT. CHGBD106 00561 MOVE CHARGE-EMPLOYER-TYPE TO WRK-EMP-TYPE. CHGBD106 00562 CHGBD106 00563 ************************************************************ CHGBD106 00564 * EMPLOYER TYPE NOT SET IN CHARGE RECORDS FOR CWC ACCOUNTS. CHGBD106 00565 * THE FOLLOWING CODE CORRECTS THE EMPLOYER TYPE ON THE CHGBD106 00566 * INPUT RECORDS. CHGBD106 00567 ************************************************************ CHGBD106 00568 IF WRK-EMP-ACCT-CWC-88 CHGBD106 00569 IF NOT WRK-EMP-TYPE-CWC-88 CHGBD106 00570 SET WRK-EMP-TYPE-CWC-88 TO TRUE CHGBD106 00571 MOVE WRK-EMP-TYPE TO CHARGE-EMPLOYER-TYPE. CHGBD106 00572 CHGBD106 00573 P1200-EXIT. CHGBD106 00574 EXIT. CHGBD106 00575 CHGBD106 00576 P1300-EDIT-BYE-DATE. CHGBD106 00577 MOVE CHARGE-BYE-DATE TO CHARGE-BYE-DATE-6. CHGBD106 00578 MOVE CHARGE-BYE-DATE-8 TO L001-FED-8-DATE-X. CHGBD106 00579 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBD106 00580 IF L001-VALID-DATE CHGBD106 00581 MOVE L001-FED-8-DATE-9 TO WRK-BYE CHGBD106 00582 ELSE CHGBD106 00583 ** CHGBD106 00584 * SET WRK-EDIT-ERROR-YES-88 TO TRUE CHGBD106 00585 ** CHGBD106 00586 ADD +1 TO WRK-BYE-ERR-CNT CHGBD106 00587 MOVE MSG2-ID2 TO R907-MSG-ID CHGBD106 00588 MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO CHGBD106 00589 MOVE CHARGE-SSN TO MSG2-SSN CHGBD106 00590 MOVE CHARGE-BYE-DATE TO CHARGE-BYE-DATE-6 CHGBD106 00591 MOVE CHARGE-BYE-DATE-8 TO MSG2-BYE CHGBD106 00592 MOVE MSG2-LONG-TEXT TO R907-MSG-TEXT CHGBD106 00593 PERFORM S946-R907-WRITE THRU S946-EXIT CHGBD106 00594 MOVE ZERO TO WRK-BYE. CHGBD106 00595 CHGBD106 00596 P1300-EXIT. CHGBD106 00597 EXIT. CHGBD106 00598 CHGBD106 00599 P1400-EDIT-CHG-AMT. CHGBD106 00600 IF CHARGE-CURR-AMT NOT NUMERIC CHGBD106 00601 SET WRK-EDIT-ERROR-YES-88 TO TRUE CHGBD106 00602 ADD +1 TO WRK-CHG-AMT-ERR-CNT CHGBD106 00603 MOVE MSG4-ID2 TO R907-MSG-ID CHGBD106 00604 MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO CHGBD106 00605 MOVE CHARGE-SSN TO MSG4-SSN CHGBD106 00606 MOVE CHARGE-CURR-AMT TO MSG4-CURR-AMT CHGBD106 00607 MOVE MSG4-LONG-TEXT TO R907-MSG-TEXT CHGBD106 00608 PERFORM S946-R907-WRITE THRU S946-EXIT. CHGBD106 00609 CHGBD106 00610 P1400-EXIT. CHGBD106 00611 EXIT. CHGBD106 00612 CHGBD106 00613 P1500-EDIT-SUPP-CODE. CHGBD106 00614 EVALUATE CHARGE-SUPP-CODE CHGBD106 00615 CHGBD106 00616 WHEN SPACE CHGBD106 00617 SET WRK-PROG-UI-88 TO TRUE CHGBD106 00618 CHGBD106 00619 WHEN 'T' CHGBD106 00620 SET WRK-PROG-TEUC-88 TO TRUE CHGBD106 00621 CHGBD106 00622 WHEN 'E' CHGBD106 00623 SET WRK-PROG-EB-88 TO TRUE CHGBD106 00624 CHGBD106 00625 WHEN 'A' CHGBD106 00626 SET WRK-PROG-TEUCA-88 TO TRUE CHGBD106 00627 CHGBD106 00628 WHEN OTHER CHGBD106 00629 SET WRK-EDIT-ERROR-YES-88 TO TRUE CHGBD106 00630 ADD +1 TO WRK-SUPP-CD-ERR-CNT CHGBD106 00631 MOVE MSG5-ID2 TO R907-MSG-ID CHGBD106 00632 MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO CHGBD106 00633 MOVE CHARGE-SSN TO MSG5-SSN CHGBD106 00634 MOVE CHARGE-SUPP-CODE TO MSG5-SUPP-CODE CHGBD106 00635 MOVE MSG5-LONG-TEXT TO R907-MSG-TEXT CHGBD106 00636 PERFORM S946-R907-WRITE THRU S946-EXIT CHGBD106 00637 END-EVALUATE. CHGBD106 00638 CHGBD106 00639 P1500-EXIT. CHGBD106 00640 EXIT. CHGBD106 00641 CHGBD106 00642 P1600-EDIT-EMP-NO. CHGBD106 00643 IF CHARGE-EMPL-ACCT < +1 CHGBD106 00644 SET WRK-EDIT-ERROR-YES-88 TO TRUE CHGBD106 00645 ADD +1 TO WRK-EMP-NO-ERR-CNT CHGBD106 00646 MOVE MSG6-ID2 TO R907-MSG-ID CHGBD106 00647 MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO CHGBD106 00648 MOVE CHARGE-SSN TO MSG6-SSN CHGBD106 00649 MOVE MSG6-LONG-TEXT TO R907-MSG-TEXT CHGBD106 00650 PERFORM S946-R907-WRITE THRU S946-EXIT. CHGBD106 00651 CHGBD106 00652 P1600-EXIT. CHGBD106 00653 EXIT. CHGBD106 00654 CHGBD106 00655 P1700-EDIT-SSN. CHGBD106 00656 MOVE CHARGE-KEY TO WRK-KEY-X. CHGBD106 00657 IF WRK-KEY-N NUMERIC CHGBD106 00658 IF WRK-KEY-N > ZERO CHGBD106 00659 NEXT SENTENCE CHGBD106 00660 ELSE CHGBD106 00661 PERFORM P1710-SSN-ERROR THRU P1710-EXIT CHGBD106 00662 ELSE CHGBD106 00663 PERFORM P1710-SSN-ERROR THRU P1710-EXIT. CHGBD106 00664 CHGBD106 00665 P1700-EXIT. CHGBD106 00666 EXIT. CHGBD106 00667 CHGBD106 00668 P1710-SSN-ERROR. CHGBD106 00669 SET WRK-EDIT-ERROR-YES-88 TO TRUE. CHGBD106 00670 ADD +1 TO WRK-SSN-ERR-CNT. CHGBD106 00671 MOVE MSG7-ID2 TO R907-MSG-ID. CHGBD106 00672 MOVE CHARGE-EMPL-ACCT TO R907-EMP-NO. CHGBD106 00673 MOVE CHARGE-SSN TO MSG7-SSN. CHGBD106 00674 MOVE MSG7-LONG-TEXT TO R907-MSG-TEXT. CHGBD106 00675 PERFORM S946-R907-WRITE THRU S946-EXIT. CHGBD106 00676 CHGBD106 00677 P1710-EXIT. CHGBD106 00678 EXIT. CHGBD106 00679 CHGBD106 00680 P2000-WRITE-SORT-REC. CHGBD106 00681 MOVE LOW-VALUES TO CHG1-SORT-KEY-AREA. CHGBD106 00682 MOVE WRK-KEY-N TO CHG1-SSN. CHGBD106 00683 MOVE CHARGE-EMPL-ACCT TO CHG1-EMP-NO. CHGBD106 00684 MOVE WRK-BYE TO CHG1-BYE. CHGBD106 00685 CHGBD106 00686 MOVE WRK-CHARGE-DATE TO CHG1-CHARGE-DATE. CHGBD106 00687 MOVE CHARGE-CODE TO CHG1-CHARGE-CODE. CHGBD106 00688 MOVE WRK-PROGRAM TO CHG1-CHARGE-PROGRAM. CHGBD106 00689 MOVE CHARGE-PAY-TYPE TO CHG1-CHARGE-PAY-TYPE. CHGBD106 00690 MOVE CHARGE-NAME TO CHG1-CHARGE-NAME. CHGBD106 00691 MOVE CHARGE-EMPLOYER-TYPE TO CHG1-CHARGE-EMP-TYPE. CHGBD106 00692 CHGBD106 00693 MOVE CHARGE-CURR-AMT TO CHG1-CHARGE-CURR-AMT. CHGBD106 00694 ADD CHARGE-CURR-AMT TO TOT-CHARGE-CURR-AMT. CHGBD106 00695 CHGBD106 00696 WRITE SORT-CHG-REC. CHGBD106 00697 ADD 1 TO WRK-SORT-CHG-WRITTEN. CHGBD106 00698 CHGBD106 00699 *& CHGBD106 00700 IF CHARGE-SSN = 410213505 CHGBD106 00701 MOVE CHG1-CHARGE-CURR-AMT TO AMT-DISP CHGBD106 00702 DISPLAY '* ' CHG1-EMP-NO CHGBD106 00703 ' ' AMT-DISP. CHGBD106 00704 P2000-EXIT. CHGBD106 00705 EXIT. CHGBD106 00706 CHGBD106 00707 T0000-TERMINATE. CHGBD106 00708 CLOSE CHARGE-IN-FILE CHGBD106 00709 BD100-CHG-FILE. CHGBD106 00710 CHGBD106 00711 DISPLAY ' CHGBD106 CHARGE RECORDS READ : ' CHGBD106 00712 WRK-CHARGE-IN-READ. CHGBD106 00713 DISPLAY ' CHARGE RECORDS WRITTEN: ' CHGBD106 00714 WRK-SORT-CHG-WRITTEN. CHGBD106 00715 DISPLAY ' BYE DATE ERRORS ACCEPTED: ' CHGBD106 00716 WRK-BYE-ERR-CNT. CHGBD106 00717 DISPLAY ' CHARGE DATE ERRORS: ' CHGBD106 00718 WRK-CHG-DT-ERR-CNT CHGBD106 00719 DISPLAY ' EMPLOYER TYPE ERRORS: ' CHGBD106 00720 WRK-EMP-TYPE-ERR-CNT. CHGBD106 00721 DISPLAY ' CHARGE AMOUNT ERRORS: ' CHGBD106 00722 WRK-CHG-AMT-ERR-CNT. CHGBD106 00723 DISPLAY ' SUPP CODE ERRORS: ' CHGBD106 00724 WRK-SUPP-CD-ERR-CNT. CHGBD106 00725 DISPLAY ' EMP NO ERRORS: ' CHGBD106 00726 WRK-EMP-NO-ERR-CNT. CHGBD106 00727 DISPLAY ' SSN ERRORS: ' CHGBD106 00728 WRK-SSN-ERR-CNT. CHGBD106 00729 CHGBD106 00730 DISPLAY ' '. CHGBD106 00731 MOVE INV-EMP-NO-CURR-AMT TO DIS-INV-EMP-NO-CURR-AMT. CHGBD106 00732 DISPLAY ' INVALID EMP-NO CHARGE-CURR AMTS: ' CHGBD106 00733 DIS-INV-EMP-NO-CURR-AMT. CHGBD106 00734 CHGBD106 00735 DISPLAY ' '. CHGBD106 00736 MOVE TOT-CHARGE-CURR-AMT TO DIS-CHARGE-CURR-AMT. CHGBD106 00737 DISPLAY ' TOTAL CHARGE CURRENT AMTS: ' CHGBD106 00738 DIS-CHARGE-CURR-AMT. CHGBD106 00739 CHGBD106 00740 T0000-EXIT. CHGBD106 00741 EXIT. CHGBD106 00742 EJECT CHGBD106 00743 CHGBD106 00744 S001-FROM-CAL-6. CHGBD106 00745 SET L001-FROM-CAL-6 TO TRUE. CHGBD106 00746 GO TO S001-DATE. CHGBD106 00747 CHGBD106 00748 S001-FROM-FED-8. CHGBD106 00749 SET L001-FROM-FED-8 TO TRUE. CHGBD106 00750 GO TO S001-DATE. CHGBD106 00751 CHGBD106 00752 S001-DATE. CHGBD106 00753 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBD106 00754 S001-EXIT. EXIT. CHGBD106 00755 CHGBD106 00756 S004-FROM-DATE. CHGBD106 00757 SET L004-FROM-DATE TO TRUE. CHGBD106 00758 GO TO S004-YRQ. CHGBD106 00759 CHGBD106 00760 S004-YRQ. CHGBD106 00761 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBD106 00762 S004-EXIT. EXIT. CHGBD106 00763 CHGBD106 00764 ** ADD ERROR MSG PROCESS PARA. CHGBD106 00765 S946-R907-WRITE. CHGBD106 00766 CALL 'DTSBU946' USING R907-REC. CHGBD106 00767 S946-EXIT. EXIT. CHGBD106 00768 CHGBD106 00769 S999-ABEND. CHGBD106 00770 DISPLAY '**** CHGBD106 ABENDING ' CHGBD106 00771 ABEND-MSG. CHGBD106 00772 CALL ABEND-MOD USING ABEND-CODE. CHGBD106 00773 CHGBD106 00774 S999-EXIT. CHGBD106 00775 EXIT. CHGBD106