1133 lines
90 KiB
COBOL
1133 lines
90 KiB
COBOL
00001 IDENTIFICATION DIVISION. 05/02/22
|
|
00002 PROGRAM-ID. CHGBD205. CHGBD205
|
|
00003 *AUTHOR. TRW. LV040
|
|
00004 *DATE-WRITTEN. JUNE 2001. CHGBD205
|
|
00005 DATE-COMPILED. CHGBD205
|
|
00006 SKIP3 CHGBD205
|
|
00007 ***** CHGBD205
|
|
00008 * CHGBD205
|
|
00009 * FUNCTION: CHGBD205
|
|
00010 * CHGBD205
|
|
00011 * EXTRACT BENEFIT CHARGE RECORDS FROM SUMMARY CHARGE CHGBD205
|
|
00012 * FILE, BASED ON SELECTION PARAMETERS. CHGBD205
|
|
00013 * CHGBD205
|
|
00014 * WRITE CHG2 OUTPUT RECORD. CHGBD205
|
|
00015 * CHGBD205
|
|
00016 * INPUT: CHGBD205
|
|
00017 * CHGBD205
|
|
00018 * BD200CHG - CHARGE REPORT RECORDS GENERATED BY CHGBD205
|
|
00019 * CHGBD200. CHGBD205
|
|
00020 * CHGPARM - EXTRACT PARAMETERS CHGBD205
|
|
00021 * CHGBD205
|
|
00022 * OUTPUT: CHGBD205
|
|
00023 * CHGBD205
|
|
00024 * BD2-5CHG - CHARGE RECORDS SELECTED IN CHGBD205
|
|
00025 * CHGBD205. CHGBD205
|
|
00026 * CHGBD205
|
|
00027 * CHGBD205
|
|
00028 * PARAMETERS: CHGBD205
|
|
00029 * CHGBD205
|
|
00030 * RUN TYPE - CHGBD205
|
|
00031 * QUARTERLY ('QTR') - REGULAR QUARTERLY REPORTING CHGBD205
|
|
00032 * ANNUAL ('ANN') - ANNUAL REPORTING CHGBD205
|
|
00033 * EMPLOYER ('EMP') - SPECIAL REPORT FOR A SINGLE CHGBD205
|
|
00034 * EMPLOYER CHGBD205
|
|
00035 * EMPLOYER ('MNE') - SPECIAL REPORT FOR A SINGLE CHGBD205
|
|
00036 * EMPLOYER - LAST COMPLETED MNTHCHGBD205
|
|
00037 * EMPLOYER ('WKE') - SPECIAL REPORT FOR A SINGLE CHGBD205
|
|
00038 * EMPLOYER - LAST COMPLETED WEEKCHGBD205
|
|
00039 * REPORTS ('RPT') - SPECIAL REPORT TO REPRINT CHGBD205
|
|
00040 * REPORTS. USE THE REPORT TYPE CHGBD205
|
|
00041 * PARM TO INDICATE WHICH TYPES CHGBD205
|
|
00042 * OF REPORTS TO INCLUDE. CHGBD205
|
|
00043 * FISCAL AGENTS CHGBD205
|
|
00044 * ('AGT') - RERUN FISCAL AGENT TAPES. CHGBD205
|
|
00045 * CHGBD205
|
|
00046 * >> WHEN RUN TYPE IS 'QTR' THE SYSTEM WILL CHGBD205
|
|
00047 * >> GENERATE T026 BENEFIT CHARGE ACCOUNTING CHGBD205
|
|
00048 * >> TRANSACTIONS AND TPS RECORDS. CHGBD205
|
|
00049 * CHGBD205
|
|
00050 * BEGIN DATE - DATE FROM WHICH TO BEGIN SELECTION CHGBD205
|
|
00051 * OF CHARGE RECORDS. CHGBD205
|
|
00052 * REQUIRED FOR ALL RUN TYPES. CHGBD205
|
|
00053 * CHGBD205
|
|
00054 * END DATE - DATE AT WHICH TO END SELECTION CHGBD205
|
|
00055 * OF CHARGE RECORDS. CHGBD205
|
|
00056 * REQUIRED FOR ALL RUN TYPES. CHGBD205
|
|
00057 * CHGBD205
|
|
00058 * REPORT TYPES - YES/NO INDICATORS TO SPECIFY CHGBD205
|
|
00059 * WHICH TYPES OF REPORTS TO INCLUDE. CHGBD205
|
|
00060 * VALID ONLY WHEN THE RUN TYPE IS CHGBD205
|
|
00061 * 'RPT'. CHGBD205
|
|
00062 * THE INDICATORS ARE IN THE FOLLOWING CHGBD205
|
|
00063 * ORDER: CHGBD205
|
|
00064 * RATED CHGBD205
|
|
00065 * SELF-INSURED CHGBD205
|
|
00066 * CWC CHGBD205
|
|
00067 * FEDERAL CHGBD205
|
|
00068 * TEUC CHGBD205
|
|
00069 * CHGBD205
|
|
00070 * EMPLOYER - THE EMPLOYER ACCOUNT NUMBER TO CHGBD205
|
|
00071 * INCLUDE IN THE SELECTION. CHGBD205
|
|
00072 * VALID ONLY WHEN RUN TYPE IS 'EMP'. CHGBD205
|
|
00073 * CHGBD205
|
|
00074 ***** CHGBD205
|
|
00075 CHGBD205
|
|
00076 ******************************************************************CHGBD205
|
|
00077 * MODIFICATION HISTORY: *CHGBD205
|
|
00078 * *CHGBD205
|
|
00079 * 02-02-1999 INITIAL DEVELOPMENT *CHGBD205
|
|
00080 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205
|
|
00081 * *CHGBD205
|
|
00082 * 06-21-2001 MODIFIED FOR NEW CHARGE PROCESS CHGBD205
|
|
00083 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205
|
|
00084 * *CHGBD205
|
|
00085 * 04-23-2002 MODIFIED TO OUTPUT TEUC RPC150R1 REPORT CHGBD205
|
|
00086 * REFERENCE RFP #**** AUTHOR OF CHANGE - RW1 *CHGBD205
|
|
00087 * *CHGBD205
|
|
00088 * 03-03-2003 ADDED NEW RUN TYPES FOR EMPLOYER REPORTS: CHGBD205
|
|
00089 * MNE - REPORT FOR LAST COMPLETED MONTH *CHGBD205
|
|
00090 * WKE - REPORT FOR LAST COMPLETED WEEK *CHGBD205
|
|
00091 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205
|
|
00092 * *CHGBD205
|
|
00093 * 09-04-2003 ADDED NEW RPT TYPE FOR DC GOVERNMENT CHGBD205
|
|
00094 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205
|
|
00095 * *CHGBD205
|
|
00096 * 06-29-2004 ADDED EMP TYPE 17 - DOMESTIC VIOLENCE. CHGBD205
|
|
00097 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD205
|
|
00098 * *CHGBD205
|
|
00099 * 03-09-2009 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED *CHGBD205
|
|
00100 * FROM NUMERIC TO CHARACTER. *CHGBD205
|
|
00101 * UPDATED EMPLOYER TYPES. *CHGBD205
|
|
00102 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205
|
|
00103 * *CHGBD205
|
|
00104 * 04-03-2009 MODIFIED I2230 TO USE QUARTERLY DEFAULT DATES *CHGBD205
|
|
00105 * IF NO DATES ARE ENTERED, AND THE RUN TYPE IS RPTS. *CHGBD205
|
|
00106 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205
|
|
00107 * *CHGBD205
|
|
00108 * 06-24-2009 REMOVED CODE THAT BYPASSED CHARGE RECORDS THAT *CHGBD205
|
|
00109 * MIGHT HAVE BEEN AFFECTED BY A PROBLEM IN THE *CHGBD205
|
|
00110 * BENEFITS SYSTEM THAT RESULTED IN LARGE REVERSALS. *CHGBD205
|
|
00111 * THE PROBLEM HAS BEEN CORRECTED, AND THE CODE IS *CHGBD205
|
|
00112 * NO LONGER NEEDED. *CHGBD205
|
|
00113 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD205
|
|
00114 * *CHGBD205
|
|
00115 * 05-04-2010 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED *CHGBD205
|
|
00116 * FROM COPYBOOK CHGIM002. *CHGBD205
|
|
00117 * UPDATED EMPLOYER TYPES. *CHGBD205
|
|
00118 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 *CHGBD205
|
|
00119 * *CHGBD205
|
|
00120 * 10-04-2014 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED * CL*26
|
|
00121 * UPDATED EMPLOYER TYPES ADDED 28 UCPIA * CL*26
|
|
00122 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 * CL*26
|
|
00123 * * CL*27
|
|
00124 * 04-20-2020 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED * CL*27
|
|
00125 * UPDATED EMPLOYER TYPES PUA FPUC AND FRUR * CL*27
|
|
00126 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 * CL*27
|
|
00127 * * CL*36
|
|
00128 * 05-01-2020 MODIFIED FOR NEW FORMAT OF PROGRAM CODE - CHANGED * CL*36
|
|
00129 * UPDATED EMPLOYER TYPES PEUC * CL*36
|
|
00130 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 * CL*36
|
|
00131 * * CL*26
|
|
00132 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD205
|
|
00133 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD205
|
|
00134 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBD205
|
|
00135 ******************************************************************CHGBD205
|
|
00136 CHGBD205
|
|
00137 SKIP3 CHGBD205
|
|
00138 ENVIRONMENT DIVISION. CHGBD205
|
|
00139 SKIP3 CHGBD205
|
|
00140 INPUT-OUTPUT SECTION. CHGBD205
|
|
00141 SKIP3 CHGBD205
|
|
00142 FILE-CONTROL. CHGBD205
|
|
00143 SELECT INPUT-PARM ASSIGN TO SYSIN CHGBD205
|
|
00144 FILE STATUS IS INPUT-PARM-STATUS. CHGBD205
|
|
00145 CHGBD205
|
|
00146 SELECT BD200-CHG-FILE-IN ASSIGN TO BD200CHG CHGBD205
|
|
00147 ORGANIZATION IS INDEXED CHGBD205
|
|
00148 ACCESS MODE IS DYNAMIC CHGBD205
|
|
00149 RECORD KEY IS CHG2-KEY-AREA CHGBD205
|
|
00150 FILE STATUS IS BD200-CHG-STATUS. CHGBD205
|
|
00151 CHGBD205
|
|
00152 SELECT BD205-CHG-FILE-OUT ASSIGN TO BD205CHG CHGBD205
|
|
00153 FILE STATUS IS BD205-CHG-STATUS. CHGBD205
|
|
00154 CHGBD205
|
|
00155 SELECT CHG-PARM-FILE ASSIGN TO CHGPARM CHGBD205
|
|
00156 FILE STATUS IS CHG-PARM-STATUS. CHGBD205
|
|
00157 EJECT CHGBD205
|
|
00158 DATA DIVISION. CHGBD205
|
|
00159 CHGBD205
|
|
00160 FILE SECTION. CHGBD205
|
|
00161 FD INPUT-PARM CHGBD205
|
|
00162 LABEL RECORDS ARE STANDARD CHGBD205
|
|
00163 BLOCK CONTAINS 0 CHARACTERS. CHGBD205
|
|
00164 SKIP1 CHGBD205
|
|
00165 01 INPUT-PARM-REC. CHGBD205
|
|
00166 05 PARM-RUN-TYPE PIC X(03). CHGBD205
|
|
00167 05 FILLER PIC X(01). CHGBD205
|
|
00168 05 PARM-BEGIN-DATE PIC 9(06). CHGBD205
|
|
00169 05 FILLER PIC X(01). CHGBD205
|
|
00170 05 PARM-END-DATE PIC 9(06). CHGBD205
|
|
00171 05 FILLER PIC X(01). CHGBD205
|
|
00172 05 PARM-REPORT-TYPES. CHGBD205
|
|
00173 10 PARM-RPT-TYPE-RATED PIC X(01). CHGBD205
|
|
00174 10 PARM-RPT-TYPE-SELF-IND PIC X(01). CHGBD205
|
|
00175 10 PARM-RPT-TYPE-CWC PIC X(01). CHGBD205
|
|
00176 10 PARM-RPT-TYPE-FED PIC X(01). CHGBD205
|
|
00177 10 PARM-RPT-TYPE-TEUC PIC X(01). CHGBD205
|
|
00178 10 PARM-RPT-TYPE-DC PIC X(01). CHGBD205
|
|
00179 10 PARM-RPT-TYPE-FPUC PIC X(01). CL*28
|
|
00180 05 FILLER PIC X(01). CHGBD205
|
|
00181 05 PARM-EMP-NO PIC 9(06). CHGBD205
|
|
00182 05 FILLER PIC X(48). CL*28
|
|
00183 CHGBD205
|
|
00184 FD BD200-CHG-FILE-IN CHGBD205
|
|
00185 RECORD CONTAINS 64 CHARACTERS CHGBD205
|
|
00186 DATA RECORD IS BD200-CHG-REC. CHGBD205
|
|
00187 01 BD200-CHG-REC. CHGBD205
|
|
00188 ++INCLUDE CHGIM002 CHGBD205
|
|
00189 CHGBD205
|
|
00190 FD BD205-CHG-FILE-OUT CHGBD205
|
|
00191 LABEL RECORDS ARE STANDARD CHGBD205
|
|
00192 BLOCK CONTAINS 0 CHARACTERS. CHGBD205
|
|
00193 SKIP1 CHGBD205
|
|
00194 01 BD205-CHG-REC PIC X(64). CHGBD205
|
|
00195 CHGBD205
|
|
00196 FD CHG-PARM-FILE CHGBD205
|
|
00197 RECORDING MODE IS F CHGBD205
|
|
00198 BLOCK CONTAINS 0 CHARACTERS. CHGBD205
|
|
00199 SKIP1 CHGBD205
|
|
00200 01 CHG-PARM-REC PIC X(80). CHGBD205
|
|
00201 CHGBD205
|
|
00202 EJECT CHGBD205
|
|
00203 WORKING-STORAGE SECTION. CHGBD205
|
|
002035 77 PAN-VALET PICTURE X(24) VALUE '040CHGBD205 05/02/22'. CHGBD205
|
|
00204 CHGBD205
|
|
00205 01 WRK-AREA. CHGBD205
|
|
00206 *& CHGBD205
|
|
00207 05 WRK-DISP-AREA. CHGBD205
|
|
00208 10 WRK-DATE PIC 9999B99B99. CHGBD205
|
|
00209 10 FILLER PIC X(02) VALUE SPACES. CHGBD205
|
|
00210 10 WRK-EMP-DISP PIC 9(06). CHGBD205
|
|
00211 10 FILLER PIC X(02) VALUE SPACES. CHGBD205
|
|
00212 10 WRK-SSN-DISP PIC 9(10). CHGBD205
|
|
00213 10 FILLER PIC X(02) VALUE SPACES. CHGBD205
|
|
00214 10 WRK-CHG-AMT-DISP PIC Z(08)9.99-. CHGBD205
|
|
00215 CHGBD205
|
|
00216 05 WRK-SSN PIC 9(10). CHGBD205
|
|
00217 05 FILLER REDEFINES WRK-SSN. CHGBD205
|
|
00218 10 WRK-SSN9 PIC 9(09). CHGBD205
|
|
00219 10 WRK-SSN0 PIC 9(01). CHGBD205
|
|
00220 CHGBD205
|
|
00221 05 WRK-TOT-CHG PIC S9(09)V99 COMP-3 CHGBD205
|
|
00222 VALUE +0. CHGBD205
|
|
00223 05 WRK-TOT-CHG-DISP PIC Z(08)9.99-. CHGBD205
|
|
00224 05 WRK-CHG-AMT PIC S9(09)V99 COMP-3. CHGBD205
|
|
00225 05 WRK-CURR-SUMM-AMT PIC S9(09)V99 COMP-3 CHGBD205
|
|
00226 VALUE +0. CHGBD205
|
|
00227 05 WRK-CURR-SUMM-AMT-DISP PIC Z(08)9.99-. CHGBD205
|
|
00228 *& CHGBD205
|
|
00229 05 ABEND-CODE PIC S9(04) COMP CHGBD205
|
|
00230 VALUE +205. CHGBD205
|
|
00231 05 ABEND-MOD PIC X(08) CHGBD205
|
|
00232 VALUE 'DTSBU999'. CHGBD205
|
|
00233 05 ABEND-MSG PIC X(60). CHGBD205
|
|
00234 CHGBD205
|
|
00235 05 INPUT-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD205
|
|
00236 88 INPUT-PARM-OK-88 VALUE ZERO. CHGBD205
|
|
00237 88 INPUT-PARM-EOF-88 VALUE '10'. CHGBD205
|
|
00238 CHGBD205
|
|
00239 05 BD200-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD205
|
|
00240 88 BD200-FILE-OK-88 VALUE ZERO. CHGBD205
|
|
00241 88 BD200-FILE-EOF-88 VALUE '10'. CHGBD205
|
|
00242 CHGBD205
|
|
00243 05 BD205-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD205
|
|
00244 88 BD205-FILE-OK-88 VALUE ZERO. CHGBD205
|
|
00245 88 BD205-FILE-EOF-88 VALUE '10'. CHGBD205
|
|
00246 CHGBD205
|
|
00247 05 CHG-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD205
|
|
00248 88 CHG-PARM-FILE-OK-88 VALUE ZERO. CHGBD205
|
|
00249 88 CHG-PARM-FILE-EOF-88 VALUE '10'. CHGBD205
|
|
00250 CHGBD205
|
|
00251 05 WRK-ERROR-IND PIC X(01). CHGBD205
|
|
00252 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD205
|
|
00253 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD205
|
|
00254 CHGBD205
|
|
00255 05 WRK-EMP-VALID-IND PIC X(01). CHGBD205
|
|
00256 88 WRK-EMP-VALID-YES-88 VALUE 'Y'. CHGBD205
|
|
00257 88 WRK-EMP-VALID-NO-88 VALUE 'N'. CHGBD205
|
|
00258 CHGBD205
|
|
00259 05 WRK-BEGIN-DATE PIC S9(09) COMP-3. CHGBD205
|
|
00260 05 WRK-END-DATE PIC S9(09) COMP-3. CHGBD205
|
|
00261 CHGBD205
|
|
00262 05 WRK-BEGIN-DATE-DISP PIC 9(08). CHGBD205
|
|
00263 05 FILLER REDEFINES WRK-BEGIN-DATE-DISP. CHGBD205
|
|
00264 10 WRK-BEGIN-YR PIC 9(04). CHGBD205
|
|
00265 10 WRK-BEGIN-MO PIC 9(02). CHGBD205
|
|
00266 10 WRK-BEGIN-DA PIC 9(02). CHGBD205
|
|
00267 CHGBD205
|
|
00268 05 WRK-END-DATE-DISP PIC 9(08). CHGBD205
|
|
00269 05 FILLER REDEFINES WRK-END-DATE-DISP. CHGBD205
|
|
00270 10 WRK-END-YR PIC 9(04). CHGBD205
|
|
00271 10 WRK-END-MO PIC 9(02). CHGBD205
|
|
00272 10 WRK-END-DA PIC 9(02). CHGBD205
|
|
00273 CHGBD205
|
|
00274 05 WRK-EMP-NO PIC S9(07) COMP-3. CHGBD205
|
|
00275 88 WRK-POOL-ACCT-88 VALUE +028411, CHGBD205
|
|
00276 +999000 THRU +999992. CHGBD205
|
|
00277 88 WRK-FED-ACCT-88 VALUE +1 THRU +1999. CHGBD205
|
|
00278 CHGBD205
|
|
00279 05 WRK-EMP-TYPE PIC 9(02). CHGBD205
|
|
00280 88 WRK-EMP-TYPE-CONTRIB-88 VALUE 00. CHGBD205
|
|
00281 88 WRK-EMP-TYPE-UCX-88 VALUE 01. CHGBD205
|
|
00282 88 WRK-EMP-TYPE-UCFE-88 VALUE 02. CHGBD205
|
|
00283 88 WRK-EMP-TYPE-FED-88 VALUE 01, 02. CHGBD205
|
|
00284 88 WRK-EMP-TYPE-CWC-88 VALUE 04. CHGBD205
|
|
00285 88 WRK-EMP-TYPE-SELF-INS-88 VALUE 08. CHGBD205
|
|
00286 88 WRK-EMP-TYPE-DC-GOV-88 VALUE 10. CHGBD205
|
|
00287 88 WRK-EMP-TYPE-NOT-LIAB-88 VALUE 13. CHGBD205
|
|
00288 88 WRK-EMP-TYPE-TEUC-88 VALUE 16. CHGBD205
|
|
00289 88 WRK-EMP-TYPE-DOM-VIOLENC-88 VALUE 17. CHGBD205
|
|
00290 88 WRK-EMP-TYPE-STEP-88 VALUE 18. CL*27
|
|
00291 88 WRK-EMP-TYPE-EUC08-88 VALUE 19. CL*27
|
|
00292 88 WRK-EMP-TYPE-FAC-88 VALUE 20. CL*27
|
|
00293 88 WRK-EMP-TYPE-AB-88 VALUE 21. CL*27
|
|
00294 88 WRK-EMP-TYPE-DEPND-88 VALUE 22. CL*27
|
|
00295 88 WRK-EMP-TYPE-TRAIN-88 VALUE 23. CL*27
|
|
00296 88 WRK-EMP-TYPE-EUC08-2PL-88 VALUE 24. CL*27
|
|
00297 88 WRK-EMP-TYPE-EUC08TR3-88 VALUE 25. CL*27
|
|
00298 88 WRK-EMP-TYPE-EUC08TR4-88 VALUE 26. CL*27
|
|
00299 88 WRK-EMP-TYPE-SPEC-PAY-88 VALUE 27. CL*27
|
|
00300 88 WRK-EMP-TYPE-UCPIA-88 VALUE 28. CL*27
|
|
00301 88 WRK-EMP-TYP2-PUA-88 VALUE 29. CL*27
|
|
00302 88 WRK-EMP-TYPE-GPA-88 VALUE 31. CL*27
|
|
00303 88 WRK-EMP-TYPE-FPUC-88 VALUE 32. CL*27
|
|
00304 88 WRK-EMP-TYPE-FRUR-88 VALUE 33. CL*27
|
|
00305 88 WRK-EMP-TYPE-PEUC-88 VALUE 34. CL*36
|
|
00306 88 WRK-EMP-TYPE-REUR-88 VALUE 35. CL*39
|
|
00307 88 WRK-EMP-TYPE-POOL-88 VALUE CHGBD205
|
|
00308 03, 05, 06, 07, 09, CHGBD205
|
|
00309 11, 12, 15, 16, 17 CHGBD205
|
|
00310 18, 19, 20, 21, 22, 23, 24, 25, CHGBD205
|
|
00311 26, 27, 28. CL*31
|
|
00312 88 WRK-EMP-TYPE-VALID-88 VALUE CHGBD205
|
|
00313 00, 01, 02, 03, 04, 05, CHGBD205
|
|
00314 06, 07, 08, 09, 10, 11, 12, CHGBD205
|
|
00315 12, 13, 15, 16, 17, 18, 19, 20, CHGBD205
|
|
00316 21, 22, 23, 24, 25, 26, 27, 28 CL*27
|
|
00317 29, 31, 32, 33, 34, 35. CL*39
|
|
00318 CHGBD205
|
|
00319 05 WRK-LAST-EMP-CHECKED PIC S9(07) COMP-3. CHGBD205
|
|
00320 CHGBD205
|
|
00321 05 WRK-RPT-TYPE PIC 9(02) VALUE ZERO. CHGBD205
|
|
00322 88 WRK-RPT-TYPE-RATED-88 VALUE 00. CHGBD205
|
|
00323 88 WRK-RPT-TYPE-FED-88 VALUE 01, 02. CHGBD205
|
|
00324 88 WRK-RPT-TYPE-CWC-88 VALUE 04. CHGBD205
|
|
00325 88 WRK-RPT-TYPE-SELF-INS-88 VALUE 08. CHGBD205
|
|
00326 88 WRK-RPT-TYPE-DC-88 VALUE 10. CHGBD205
|
|
00327 88 WRK-RPT-TYPE-FPUC-88 VALUE 29, 31, 32, 33, 34, CL*39
|
|
00328 35. CL*39
|
|
00329 88 WRK-RPT-TYPE-EMP-88 VALUE 00, 01, 02, CHGBD205
|
|
00330 04, 08, 10, 29, 31, CL*36
|
|
00331 32, 33, 34, 35. CL*39
|
|
00332 CHGBD205
|
|
00333 05 WRK-REC-SELECTED-IND PIC X(01) VALUE SPACE. CHGBD205
|
|
00334 88 WRK-REC-SELECTED-YES VALUE 'Y'. CHGBD205
|
|
00335 88 WRK-REC-SELECTED-NO VALUE 'N'. CHGBD205
|
|
00336 CHGBD205
|
|
00337 05 WRK-EMPLOYER-DATA-AREA. CHGBD205
|
|
00338 10 WRK-FISCAL-AGENT-CD PIC X(03). CHGBD205
|
|
00339 88 WRK-FISC-AG-NONE-88 VALUE SPACES. CHGBD205
|
|
00340 10 WRK-FMT-ADDR. CHGBD205
|
|
00341 15 WRK-FMT-LINE OCCURS 5 TIMES CHGBD205
|
|
00342 PIC X(40). CHGBD205
|
|
00343 15 WRK-ZIP PIC X(10). CHGBD205
|
|
00344 15 WRK-ADVANCED-BARCODE PIC X(14). CHGBD205
|
|
00345 10 WRK-EMP-NAME-CHK PIC X(04). CHGBD205
|
|
00346 CHGBD205
|
|
00347 05 WRK-LABEL-ROUTE-AREA. CHGBD205
|
|
00348 10 WRK-LABEL-ROUTE-STARS PIC X(40) VALUE CHGBD205
|
|
00349 ALL '*'. CHGBD205
|
|
00350 10 WRK-LABEL-ROUTE-SELF-INS PIC X(40) VALUE CHGBD205
|
|
00351 ' SELF-INSURED '. CHGBD205
|
|
00352 10 WRK-LABEL-ROUTE-CWC PIC X(40) VALUE CHGBD205
|
|
00353 ' CWC '. CHGBD205
|
|
00354 10 WRK-LABEL-ROUTE-FED PIC X(40) VALUE CHGBD205
|
|
00355 ' FEDERAL '. CHGBD205
|
|
00356 CHGBD205
|
|
00357 05 WRK-BD200-CHG-READ PIC 9(09) COMP-3 VALUE 0. CHGBD205
|
|
00358 05 WRK-BD205-WRITE PIC 9(09) COMP-3 VALUE 0. CHGBD205
|
|
00359 05 WRK-BD200-CHG-DELETE PIC 9(09) COMP-3 VALUE 0. CHGBD205
|
|
00360 05 WRK-BD200-NOT-LIAB-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD205
|
|
00361 05 WRK-INV-CHRG-ERR-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD205
|
|
00362 05 WRK-CNT-DISP PIC Z(08)9. CHGBD205
|
|
00363 CHGBD205
|
|
00364 01 WRK-PARM-AREA. CHGBD205
|
|
00365 ++INCLUDE CHGIM003 CHGBD205
|
|
00366 CHGBD205
|
|
00367 ** ADD ERROR MSG TABLE SET UP CHGBD205
|
|
00368 01 MSG-TABLE. CHGBD205
|
|
00369 05 MSG1-NO-MPRF. CHGBD205
|
|
00370 10 MSG1-ID. CHGBD205
|
|
00371 15 MSG1-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205
|
|
00372 15 MSG1-ID2 PIC X(03) VALUE '205'. CHGBD205
|
|
00373 10 MSG1-SHORT-TEXT PIC X(20) CHGBD205
|
|
00374 VALUE 'EMP NOT ON FILE : '. CHGBD205
|
|
00375 10 MSG1-LONG-TEXT. CHGBD205
|
|
00376 15 FILLER PIC X(29) CHGBD205
|
|
00377 VALUE 'EMPLOYER NOT ON MASTER FILE '. CHGBD205
|
|
00378 15 FILLER PIC X(32) VALUE SPACES. CHGBD205
|
|
00379 CHGBD205
|
|
00380 05 MSG2-NOT-LIABLE. CHGBD205
|
|
00381 10 MSG2-ID. CHGBD205
|
|
00382 15 MSG2-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205
|
|
00383 15 MSG2-ID2 PIC X(03) VALUE '205'. CHGBD205
|
|
00384 10 MSG2-SHORT-TEXT PIC X(20) CHGBD205
|
|
00385 VALUE 'EMP NOT LIABLE : '. CHGBD205
|
|
00386 10 MSG2-LONG-TEXT. CHGBD205
|
|
00387 15 FILLER PIC X(29) CHGBD205
|
|
00388 VALUE 'EMPLOYER IS NOT LIABLE '. CHGBD205
|
|
00389 15 FILLER PIC X(32) VALUE SPACES. CHGBD205
|
|
00390 CHGBD205
|
|
00391 05 MSG4-PRINTING-TURNED-OFF. CHGBD205
|
|
00392 10 MSG4-ID. CHGBD205
|
|
00393 15 MSG4-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205
|
|
00394 15 MSG4-ID2 PIC X(03) VALUE '205'. CHGBD205
|
|
00395 10 MSG4-SHORT-TEXT PIC X(20) CHGBD205
|
|
00396 VALUE 'CHG STMT PRINT OFF: '. CHGBD205
|
|
00397 10 MSG4-LONG-TEXT. CHGBD205
|
|
00398 15 FILLER PIC X(36) CHGBD205
|
|
00399 VALUE 'CHARGE STATEMENT PRINTING TURNED OFF'. CHGBD205
|
|
00400 15 FILLER PIC X(25) VALUE SPACES. CHGBD205
|
|
00401 CHGBD205
|
|
00402 05 MSG5-NO-ADDRESS. CHGBD205
|
|
00403 10 MSG5-ID. CHGBD205
|
|
00404 15 MSG5-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205
|
|
00405 15 MSG5-ID2 PIC X(03) VALUE '205'. CHGBD205
|
|
00406 10 MSG5-SHORT-TEXT PIC X(20) CHGBD205
|
|
00407 VALUE 'NO ADDRESS FOUND: '. CHGBD205
|
|
00408 10 MSG5-LONG-TEXT. CHGBD205
|
|
00409 15 FILLER PIC X(29) CHGBD205
|
|
00410 VALUE 'ADDRESS NOT FOUND '. CHGBD205
|
|
00411 15 FILLER PIC X(25) CHGBD205
|
|
00412 VALUE ' MPRF EMPLOYER NUMBER = '. CHGBD205
|
|
00413 15 MSG5-EMP-NO PIC 9(07). CHGBD205
|
|
00414 CHGBD205
|
|
00415 *& ADDED 02-21-2002 CHGBD205
|
|
00416 05 MSG8-TOT-CREDIT-AMT. CHGBD205
|
|
00417 10 MSG8-ID. CHGBD205
|
|
00418 15 MSG8-ID1 PIC X(08) VALUE 'CHGBD205'. CHGBD205
|
|
00419 15 MSG8-ID2 PIC X(03) VALUE '205'. CHGBD205
|
|
00420 10 MSG8-SHORT-TEXT PIC X(20) CHGBD205
|
|
00421 VALUE ' '. CHGBD205
|
|
00422 10 MSG8-LONG-TEXT. CHGBD205
|
|
00423 15 FILLER PIC X(15) CHGBD205
|
|
00424 VALUE 'BYE < 1/1/2001 '. CHGBD205
|
|
00425 15 FILLER PIC X(08) VALUE ' SSN = '. CHGBD205
|
|
00426 15 MSG8-SSN PIC 9(09)B9. CHGBD205
|
|
00427 15 FILLER PIC X(08) VALUE ' BYE = '. CHGBD205
|
|
00428 15 MSG8-BYE PIC 9999B99B99. CHGBD205
|
|
00429 15 FILLER PIC X(06) VALUE ' PGM '. CHGBD205
|
|
00430 15 MSG8-PGM PIC X(01). CHGBD205
|
|
00431 15 FILLER PIC X(12) VALUE ' CHG AMT = '. CHGBD205
|
|
00432 15 MSG8-AMT PIC Z(04)9.99-. CHGBD205
|
|
00433 15 FILLER PIC X(13) VALUE ' CHG DATE = '. CHGBD205
|
|
00434 15 MSG8-DATE PIC 9999B99B99. CHGBD205
|
|
00435 CHGBD205
|
|
00436 ** ERROR MSG OUTPUT RECORD CHGBD205
|
|
00437 01 R907-REC. CHGBD205
|
|
00438 ++INCLUDE DTSIR907 CHGBD205
|
|
00439 CHGBD205
|
|
00440 01 L910-LINK-AREA. CHGBD205
|
|
00441 ++INCLUDE DTSIL910 CHGBD205
|
|
00442 CHGBD205
|
|
00443 01 MSKL-REC. CHGBD205
|
|
00444 ++INCLUDE DTSIMSKL CHGBD205
|
|
00445 CHGBD205
|
|
00446 01 MHDR-REC. CHGBD205
|
|
00447 ++INCLUDE DTSIMHDR CHGBD205
|
|
00448 CHGBD205
|
|
00449 01 L001-LINK-AREA. CHGBD205
|
|
00450 ++INCLUDE DTSIL001 CHGBD205
|
|
00451 CHGBD205
|
|
00452 01 L004-LINK-AREA. CHGBD205
|
|
00453 ++INCLUDE DTSIL004 CHGBD205
|
|
00454 CHGBD205
|
|
00455 EJECT CHGBD205
|
|
00456 PROCEDURE DIVISION. CHGBD205
|
|
00457 SKIP2 CHGBD205
|
|
00458 CHGBD210-MAIN. CHGBD205
|
|
00459 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD205
|
|
00460 IF WRK-ERROR-YES-88 CHGBD205
|
|
00461 GO TO CHGBD210-EXIT. CHGBD205
|
|
00462 CHGBD205
|
|
00463 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD205
|
|
00464 CHGBD205
|
|
00465 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD205
|
|
00466 CHGBD205
|
|
00467 CHGBD210-EXIT. CHGBD205
|
|
00468 STOP RUN. CHGBD205
|
|
00469 EJECT CHGBD205
|
|
00470 I0000-INITIATE. CHGBD205
|
|
00471 CHGBD205
|
|
00472 MOVE ZERO TO WRK-BD200-CHG-READ CHGBD205
|
|
00473 WRK-BD200-NOT-LIAB-CNT CHGBD205
|
|
00474 WRK-BD205-WRITE CHGBD205
|
|
00475 WRK-BD200-CHG-DELETE CHGBD205
|
|
00476 WRK-LAST-EMP-CHECKED. CHGBD205
|
|
00477 CHGBD205
|
|
00478 MOVE MSG8-ID1 TO R907-MODULE-NAME. CHGBD205
|
|
00479 MOVE LENGTH OF R907-REC TO R907-LENGTH. CHGBD205
|
|
00480 CHGBD205
|
|
00481 SET WRK-ERROR-NO-88 TO TRUE. CHGBD205
|
|
00482 CHGBD205
|
|
00483 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. CHGBD205
|
|
00484 CHGBD205
|
|
00485 PERFORM I2000-PROCESS-PARMS THRU I2000-EXIT. CHGBD205
|
|
00486 CHGBD205
|
|
00487 I0000-EXIT. CHGBD205
|
|
00488 EXIT. CHGBD205
|
|
00489 CHGBD205
|
|
00490 I1000-OPEN-FILES. CHGBD205
|
|
00491 CHGBD205
|
|
00492 OPEN INPUT BD200-CHG-FILE-IN. CHGBD205
|
|
00493 IF NOT BD200-FILE-OK-88 CHGBD205
|
|
00494 DISPLAY 'BD200 FILE OPEN ERROR: ' BD200-CHG-STATUS CHGBD205
|
|
00495 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00496 CHGBD205
|
|
00497 OPEN OUTPUT BD205-CHG-FILE-OUT. CHGBD205
|
|
00498 IF NOT BD205-FILE-OK-88 CHGBD205
|
|
00499 DISPLAY 'BD205 FILE OPEN ERROR: ' BD205-CHG-STATUS CHGBD205
|
|
00500 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00501 CHGBD205
|
|
00502 PERFORM S910-OPEN-READ THRU S910-EXIT. CHGBD205
|
|
00503 CHGBD205
|
|
00504 I1000-EXIT. CHGBD205
|
|
00505 EXIT. CHGBD205
|
|
00506 CHGBD205
|
|
00507 I2000-PROCESS-PARMS. CHGBD205
|
|
00508 OPEN INPUT INPUT-PARM. CHGBD205
|
|
00509 IF NOT INPUT-PARM-OK-88 CHGBD205
|
|
00510 DISPLAY 'INPUT PARM FILE OPEN ERROR: ' CHGBD205
|
|
00511 INPUT-PARM-STATUS CHGBD205
|
|
00512 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00513 CHGBD205
|
|
00514 READ INPUT-PARM. CHGBD205
|
|
00515 IF NOT INPUT-PARM-OK-88 CHGBD205
|
|
00516 DISPLAY 'INPUT PARM FILE READ ERROR: ' CHGBD205
|
|
00517 INPUT-PARM-STATUS CHGBD205
|
|
00518 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00519 CHGBD205
|
|
00520 DISPLAY '***** CHGBD205 PARM RECORD *****'. CHGBD205
|
|
00521 DISPLAY INPUT-PARM-REC. CHGBD205
|
|
00522 DISPLAY SPACE. CHGBD205
|
|
00523 CHGBD205
|
|
00524 DISPLAY '***** CHGBD205 EDITED PARMS *****'. CHGBD205
|
|
00525 *** DISPLAY SPACE. CHGBD205
|
|
00526 CHGBD205
|
|
00527 PERFORM I2100-PARM-RUN-TYPE THRU I2100-EXIT. CHGBD205
|
|
00528 CHGBD205
|
|
00529 PERFORM I2200-PARM-DATES THRU I2200-EXIT. CHGBD205
|
|
00530 CHGBD205
|
|
00531 PERFORM I2300-PARM-RPT-TYPES THRU I2300-EXIT. CHGBD205
|
|
00532 CHGBD205
|
|
00533 PERFORM I2400-PARM-EMP-NO THRU I2400-EXIT. CHGBD205
|
|
00534 CHGBD205
|
|
00535 OPEN OUTPUT CHG-PARM-FILE. CHGBD205
|
|
00536 IF NOT CHG-PARM-FILE-OK-88 CHGBD205
|
|
00537 DISPLAY 'TEMP PARM FILE OPEN ERROR: ' CHG-PARM-STATUS CHGBD205
|
|
00538 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00539 CHGBD205
|
|
00540 WRITE CHG-PARM-REC FROM WRK-PARM-AREA. CHGBD205
|
|
00541 CLOSE CHG-PARM-FILE. CHGBD205
|
|
00542 CHGBD205
|
|
00543 I2000-EXIT. CHGBD205
|
|
00544 EXIT. CHGBD205
|
|
00545 CHGBD205
|
|
00546 I2100-PARM-RUN-TYPE. CHGBD205
|
|
00547 MOVE PARM-RUN-TYPE TO CHG3-RUN-TYPE. CHGBD205
|
|
00548 IF CHG3-RUN-TYPE-VALID-88 CHGBD205
|
|
00549 NEXT SENTENCE CHGBD205
|
|
00550 ELSE CHGBD205
|
|
00551 MOVE 'PARM RUN TYPE INVALID ' TO ABEND-MSG CHGBD205
|
|
00552 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00553 CHGBD205
|
|
00554 DISPLAY 'RUN TYPE : ' CHG3-RUN-TYPE. CHGBD205
|
|
00555 *** DISPLAY SPACE. CHGBD205
|
|
00556 CHGBD205
|
|
00557 I2100-EXIT. CHGBD205
|
|
00558 EXIT. CHGBD205
|
|
00559 CHGBD205
|
|
00560 I2200-PARM-DATES. CHGBD205
|
|
00561 MOVE ZERO TO WRK-BEGIN-DATE CHGBD205
|
|
00562 WRK-END-DATE. CHGBD205
|
|
00563 CHGBD205
|
|
00564 IF (PARM-BEGIN-DATE = SPACES OR LOW-VALUES) CHGBD205
|
|
00565 AND (PARM-END-DATE = SPACES OR LOW-VALUES) CHGBD205
|
|
00566 PERFORM I2230-DEFAULT-DATES THRU I2230-EXIT CHGBD205
|
|
00567 ELSE CHGBD205
|
|
00568 PERFORM I2210-BEGIN-DATE THRU I2210-EXIT CHGBD205
|
|
00569 PERFORM I2220-END-DATE THRU I2220-EXIT. CHGBD205
|
|
00570 CHGBD205
|
|
00571 IF WRK-END-DATE < WRK-BEGIN-DATE CHGBD205
|
|
00572 MOVE 'PERIOD END LESS THAN PERIOD BEGIN' CHGBD205
|
|
00573 TO ABEND-MSG CHGBD205
|
|
00574 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00575 CHGBD205
|
|
00576 MOVE WRK-BEGIN-DATE TO CHG3-BEGIN-DATE. CHGBD205
|
|
00577 MOVE WRK-END-DATE TO CHG3-END-DATE. CHGBD205
|
|
00578 CHGBD205
|
|
00579 DISPLAY 'START DATE : ' WRK-BEGIN-DATE. CHGBD205
|
|
00580 DISPLAY 'END DATE : ' WRK-END-DATE. CHGBD205
|
|
00581 DISPLAY SPACE. CHGBD205
|
|
00582 CHGBD205
|
|
00583 I2200-EXIT. CHGBD205
|
|
00584 EXIT. CHGBD205
|
|
00585 CHGBD205
|
|
00586 I2210-BEGIN-DATE. CHGBD205
|
|
00587 MOVE PARM-BEGIN-DATE TO L001-CAL-6-DATE-X. CHGBD205
|
|
00588 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD205
|
|
00589 IF L001-VALID-DATE CHGBD205
|
|
00590 MOVE L001-FED-8-DATE-9 TO WRK-BEGIN-DATE CHGBD205
|
|
00591 ELSE CHGBD205
|
|
00592 MOVE 'INVALID PERIOD BEGIN DATE' TO ABEND-MSG CHGBD205
|
|
00593 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00594 CHGBD205
|
|
00595 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205
|
|
00596 PERFORM I2211-QTR-BEGIN-DATE THRU I2211-EXIT CHGBD205
|
|
00597 ELSE CHGBD205
|
|
00598 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205
|
|
00599 PERFORM I2212-ANN-BEGIN-DATE THRU I2212-EXIT CHGBD205
|
|
00600 ELSE CHGBD205
|
|
00601 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD205
|
|
00602 PERFORM I2213-MON-BEGIN-DATE THRU I2213-EXIT CHGBD205
|
|
00603 ELSE CHGBD205
|
|
00604 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD205
|
|
00605 PERFORM I2214-WKLY-BEGIN-DATE THRU I2214-EXIT. CHGBD205
|
|
00606 CHGBD205
|
|
00607 I2210-EXIT. CHGBD205
|
|
00608 EXIT. CHGBD205
|
|
00609 CHGBD205
|
|
00610 I2211-QTR-BEGIN-DATE. CHGBD205
|
|
00611 MOVE WRK-BEGIN-DATE TO L004-DATE. CHGBD205
|
|
00612 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD205
|
|
00613 IF WRK-BEGIN-DATE NOT = L004-QTR-START-DATE CHGBD205
|
|
00614 MOVE 'PERIOD BEGIN NOT START OF QTR' CHGBD205
|
|
00615 TO ABEND-MSG CHGBD205
|
|
00616 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00617 END-IF. CHGBD205
|
|
00618 CHGBD205
|
|
00619 I2211-EXIT. CHGBD205
|
|
00620 EXIT. CHGBD205
|
|
00621 CHGBD205
|
|
00622 I2212-ANN-BEGIN-DATE. CHGBD205
|
|
00623 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD205
|
|
00624 IF WRK-BEGIN-MO = 07 CHGBD205
|
|
00625 AND WRK-BEGIN-DA = 01 CHGBD205
|
|
00626 NEXT SENTENCE CHGBD205
|
|
00627 ELSE CHGBD205
|
|
00628 MOVE 'ANNUAL START DATE MUST BE JULY 1' CHGBD205
|
|
00629 TO ABEND-MSG CHGBD205
|
|
00630 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00631 END-IF. CHGBD205
|
|
00632 CHGBD205
|
|
00633 I2212-EXIT. CHGBD205
|
|
00634 EXIT. CHGBD205
|
|
00635 CHGBD205
|
|
00636 I2213-MON-BEGIN-DATE. CHGBD205
|
|
00637 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD205
|
|
00638 IF WRK-BEGIN-DA = 01 CHGBD205
|
|
00639 NEXT SENTENCE CHGBD205
|
|
00640 ELSE CHGBD205
|
|
00641 MOVE 'MONTHLY START DATE MUST BE FIRST DAY OF MONTH' CHGBD205
|
|
00642 TO ABEND-MSG CHGBD205
|
|
00643 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00644 END-IF. CHGBD205
|
|
00645 CHGBD205
|
|
00646 I2213-EXIT. CHGBD205
|
|
00647 EXIT. CHGBD205
|
|
00648 CHGBD205
|
|
00649 I2214-WKLY-BEGIN-DATE. CHGBD205
|
|
00650 IF L001-SUNDAY CHGBD205
|
|
00651 OR L001-MONDAY CHGBD205
|
|
00652 NEXT SENTENCE CHGBD205
|
|
00653 ELSE CHGBD205
|
|
00654 MOVE 'WEEKLY START DATE MUST BE SUNDAY OR MONDAY' CHGBD205
|
|
00655 TO ABEND-MSG CHGBD205
|
|
00656 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00657 END-IF. CHGBD205
|
|
00658 CHGBD205
|
|
00659 I2214-EXIT. CHGBD205
|
|
00660 EXIT. CHGBD205
|
|
00661 CHGBD205
|
|
00662 I2220-END-DATE. CHGBD205
|
|
00663 MOVE PARM-END-DATE TO L001-CAL-6-DATE-X. CHGBD205
|
|
00664 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD205
|
|
00665 IF L001-VALID-DATE CHGBD205
|
|
00666 MOVE L001-FED-8-DATE-9 TO WRK-END-DATE CHGBD205
|
|
00667 ELSE CHGBD205
|
|
00668 MOVE 'INVALID PERIOD END DATE' TO ABEND-MSG CHGBD205
|
|
00669 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00670 CHGBD205
|
|
00671 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205
|
|
00672 PERFORM I2221-QTR-END-DATE THRU I2221-EXIT CHGBD205
|
|
00673 ELSE CHGBD205
|
|
00674 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205
|
|
00675 PERFORM I2222-ANN-END-DATE THRU I2222-EXIT CHGBD205
|
|
00676 ELSE CHGBD205
|
|
00677 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD205
|
|
00678 PERFORM I2223-MON-END-DATE THRU I2223-EXIT CHGBD205
|
|
00679 ELSE CHGBD205
|
|
00680 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD205
|
|
00681 PERFORM I2224-WKLY-END-DATE THRU I2224-EXIT. CHGBD205
|
|
00682 CHGBD205
|
|
00683 I2220-EXIT. CHGBD205
|
|
00684 EXIT. CHGBD205
|
|
00685 CHGBD205
|
|
00686 I2221-QTR-END-DATE. CHGBD205
|
|
00687 MOVE WRK-END-DATE TO L004-DATE. CHGBD205
|
|
00688 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD205
|
|
00689 IF WRK-END-DATE NOT = L004-QTR-END-DATE CHGBD205
|
|
00690 MOVE 'PERIOD END NOT END OF QTR' CHGBD205
|
|
00691 TO ABEND-MSG CHGBD205
|
|
00692 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00693 END-IF. CHGBD205
|
|
00694 CHGBD205
|
|
00695 I2221-EXIT. CHGBD205
|
|
00696 EXIT. CHGBD205
|
|
00697 CHGBD205
|
|
00698 I2222-ANN-END-DATE. CHGBD205
|
|
00699 MOVE WRK-END-DATE TO WRK-END-DATE-DISP. CHGBD205
|
|
00700 IF WRK-END-MO = 06 CHGBD205
|
|
00701 AND WRK-END-DA = 30 CHGBD205
|
|
00702 NEXT SENTENCE CHGBD205
|
|
00703 ELSE CHGBD205
|
|
00704 MOVE 'ANNUAL END DATE MUST BE JUNE 30' CHGBD205
|
|
00705 TO ABEND-MSG CHGBD205
|
|
00706 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00707 END-IF. CHGBD205
|
|
00708 CHGBD205
|
|
00709 IF (WRK-BEGIN-YR + 1) = WRK-END-YR CHGBD205
|
|
00710 NEXT SENTENCE CHGBD205
|
|
00711 ELSE CHGBD205
|
|
00712 MOVE 'START DATE NOT 1 YEAR PRIOR TO END DATE' CHGBD205
|
|
00713 TO ABEND-MSG CHGBD205
|
|
00714 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00715 END-IF. CHGBD205
|
|
00716 CHGBD205
|
|
00717 I2222-EXIT. CHGBD205
|
|
00718 EXIT. CHGBD205
|
|
00719 CHGBD205
|
|
00720 I2223-MON-END-DATE. CHGBD205
|
|
00721 MOVE WRK-END-DATE TO L001-FED-8-DATE-9. CHGBD205
|
|
00722 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBD205
|
|
00723 ADD +1 TO L001-JUL-ABS-DAY. CHGBD205
|
|
00724 PERFORM S001-FROM-ABS THRU S001-EXIT. CHGBD205
|
|
00725 IF L001-FED-8-DA = 01 CHGBD205
|
|
00726 NEXT SENTENCE CHGBD205
|
|
00727 ELSE CHGBD205
|
|
00728 MOVE 'END DATE MUST BE END OF MONTH' CHGBD205
|
|
00729 TO ABEND-MSG CHGBD205
|
|
00730 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00731 END-IF. CHGBD205
|
|
00732 CHGBD205
|
|
00733 IF (WRK-END-DATE - WRK-BEGIN-DATE) > 30 CHGBD205
|
|
00734 MOVE 'BEGIN AND END DATES NOT IN SAME MONTH' CHGBD205
|
|
00735 TO ABEND-MSG CHGBD205
|
|
00736 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00737 END-IF. CHGBD205
|
|
00738 CHGBD205
|
|
00739 I2223-EXIT. CHGBD205
|
|
00740 EXIT. CHGBD205
|
|
00741 CHGBD205
|
|
00742 I2224-WKLY-END-DATE. CHGBD205
|
|
00743 IF L001-FRIDAY CHGBD205
|
|
00744 OR L001-SATURDAY CHGBD205
|
|
00745 NEXT SENTENCE CHGBD205
|
|
00746 ELSE CHGBD205
|
|
00747 MOVE 'WEEKLY END DATE MUST BE FRIDAY OR SATURDAY' CHGBD205
|
|
00748 TO ABEND-MSG CHGBD205
|
|
00749 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00750 END-IF. CHGBD205
|
|
00751 CHGBD205
|
|
00752 I2224-EXIT. CHGBD205
|
|
00753 EXIT. CHGBD205
|
|
00754 CHGBD205
|
|
00755 I2230-DEFAULT-DATES. CHGBD205
|
|
00756 IF CHG3-RUN-TYPE-SPECIAL-88 CHGBD205
|
|
00757 MOVE 'DATES REQUIRED FOR SPECIAL REQUEST' CHGBD205
|
|
00758 TO ABEND-MSG CHGBD205
|
|
00759 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00760 CHGBD205
|
|
00761 MOVE LOW-VALUES TO MSKL-KEY-AREA. CHGBD205
|
|
00762 MOVE +0 TO MSKL-EMP-NO. CHGBD205
|
|
00763 SET MSKL-HDR-88 TO TRUE. CHGBD205
|
|
00764 PERFORM S910-READ THRU S910-EXIT. CHGBD205
|
|
00765 CHGBD205
|
|
00766 IF L910-NO-REC-88 CHGBD205
|
|
00767 MOVE 'MHDR RECORD IS MISSING' CHGBD205
|
|
00768 TO ABEND-MSG CHGBD205
|
|
00769 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00770 CHGBD205
|
|
00771 MOVE MSKL-REC TO MHDR-REC. CHGBD205
|
|
00772 CHGBD205
|
|
00773 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205
|
|
00774 OR CHG3-RUN-TYPE-RPTS-88 CHGBD205
|
|
00775 PERFORM I2231-DEFAULT-QTR-DATES THRU I2231-EXIT CHGBD205
|
|
00776 ELSE CHGBD205
|
|
00777 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205
|
|
00778 PERFORM I2232-DEFAULT-ANN-DATES THRU I2232-EXIT CHGBD205
|
|
00779 ELSE CHGBD205
|
|
00780 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD205
|
|
00781 PERFORM I2233-DEFAULT-MON-DATES THRU I2233-EXIT CHGBD205
|
|
00782 ELSE CHGBD205
|
|
00783 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD205
|
|
00784 PERFORM I2234-DEFAULT-WKLY-DATES THRU I2234-EXIT. CHGBD205
|
|
00785 CHGBD205
|
|
00786 I2230-EXIT. CHGBD205
|
|
00787 EXIT. CHGBD205
|
|
00788 CHGBD205
|
|
00789 I2231-DEFAULT-QTR-DATES. CHGBD205
|
|
00790 MOVE MHDR-CMPL-QTR-BEGIN-DATE CHGBD205
|
|
00791 TO WRK-BEGIN-DATE. CHGBD205
|
|
00792 MOVE MHDR-CMPL-QTR-END-DATE CHGBD205
|
|
00793 TO WRK-END-DATE. CHGBD205
|
|
00794 CHGBD205
|
|
00795 I2231-EXIT. CHGBD205
|
|
00796 EXIT. CHGBD205
|
|
00797 CHGBD205
|
|
00798 I2232-DEFAULT-ANN-DATES. CHGBD205
|
|
00799 MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9. CHGBD205
|
|
00800 MOVE L004-QTR-5-YR TO WRK-END-YR. CHGBD205
|
|
00801 MOVE 06 TO WRK-END-MO. CHGBD205
|
|
00802 MOVE 30 TO WRK-END-DA. CHGBD205
|
|
00803 MOVE WRK-END-DATE-DISP TO WRK-END-DATE. CHGBD205
|
|
00804 CHGBD205
|
|
00805 COMPUTE WRK-BEGIN-YR = (WRK-END-YR - 1). CHGBD205
|
|
00806 MOVE 07 TO WRK-BEGIN-MO. CHGBD205
|
|
00807 MOVE 01 TO WRK-BEGIN-DA. CHGBD205
|
|
00808 MOVE WRK-BEGIN-DATE-DISP TO WRK-BEGIN-DATE. CHGBD205
|
|
00809 CHGBD205
|
|
00810 IF WRK-END-DATE >= MHDR-CURR-RUN-DATE CHGBD205
|
|
00811 MOVE 'ANNUAL RPT CAN NOT RUN UNTIL AFTER JUNE 30' CHGBD205
|
|
00812 TO ABEND-MSG CHGBD205
|
|
00813 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00814 CHGBD205
|
|
00815 I2232-EXIT. CHGBD205
|
|
00816 EXIT. CHGBD205
|
|
00817 CHGBD205
|
|
00818 I2233-DEFAULT-MON-DATES. CHGBD205
|
|
00819 MOVE MHDR-CMPL-MONTH-BEGIN-DATE CHGBD205
|
|
00820 TO WRK-BEGIN-DATE. CHGBD205
|
|
00821 MOVE MHDR-CMPL-MONTH-END-DATE CHGBD205
|
|
00822 TO WRK-END-DATE. CHGBD205
|
|
00823 CHGBD205
|
|
00824 I2233-EXIT. CHGBD205
|
|
00825 EXIT. CHGBD205
|
|
00826 CHGBD205
|
|
00827 I2234-DEFAULT-WKLY-DATES. CHGBD205
|
|
00828 MOVE MHDR-CMPL-WEEK-BEGIN-DATE CHGBD205
|
|
00829 TO WRK-BEGIN-DATE. CHGBD205
|
|
00830 MOVE MHDR-CMPL-WEEK-END-DATE CHGBD205
|
|
00831 TO WRK-END-DATE. CHGBD205
|
|
00832 CHGBD205
|
|
00833 I2234-EXIT. CHGBD205
|
|
00834 EXIT. CHGBD205
|
|
00835 CHGBD205
|
|
00836 I2300-PARM-RPT-TYPES. CHGBD205
|
|
00837 IF CHG3-RUN-TYPE-RPTS-88 CHGBD205
|
|
00838 NEXT SENTENCE CHGBD205
|
|
00839 ELSE CHGBD205
|
|
00840 PERFORM I2310-DEFAULT-RPTS THRU I2310-EXIT CHGBD205
|
|
00841 GO TO I2300-EXIT. CHGBD205
|
|
00842 CHGBD205
|
|
00843 MOVE PARM-REPORT-TYPES TO CHG3-RPT-TYPES. CHGBD205
|
|
00844 CHGBD205
|
|
00845 IF CHG3-RPT-TYPE-RATED-88 CHGBD205
|
|
00846 OR CHG3-RPT-TYPE-SELF-INS-88 CHGBD205
|
|
00847 OR CHG3-RPT-TYPE-CWC-88 CHGBD205
|
|
00848 OR CHG3-RPT-TYPE-FED-88 CHGBD205
|
|
00849 OR CHG3-RPT-TYPE-TEUC-88 CHGBD205
|
|
00850 OR CHG3-RPT-TYPE-DC-88 CHGBD205
|
|
00851 OR CHG3-RPT-TYPE-FPUC-88 CL*29
|
|
00852 NEXT SENTENCE CHGBD205
|
|
00853 ELSE CHGBD205
|
|
00854 MOVE 'AT LEAST ONE RPT TYPE MUST SET TO Y ' TO ABEND-MSG CHGBD205
|
|
00855 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00856 CHGBD205
|
|
00857 IF CHG3-RPT-TYPE-RATED-88 CHGBD205
|
|
00858 DISPLAY 'SELECT RATED EMPLOYERS'. CHGBD205
|
|
00859 IF CHG3-RPT-TYPE-SELF-INS-88 CHGBD205
|
|
00860 DISPLAY 'SELECT SELF-INSURED EMPLOYERS'. CHGBD205
|
|
00861 IF CHG3-RPT-TYPE-CWC-88 CHGBD205
|
|
00862 DISPLAY 'SELECT CWC EMPLOYERS'. CHGBD205
|
|
00863 IF CHG3-RPT-TYPE-FED-88 CHGBD205
|
|
00864 DISPLAY 'SELECT FEDERAL EMPLOYERS'. CHGBD205
|
|
00865 IF CHG3-RPT-TYPE-TEUC-88 CHGBD205
|
|
00866 DISPLAY 'SELECT TEUC EMPLOYERS'. CHGBD205
|
|
00867 IF CHG3-RPT-TYPE-DC-88 CHGBD205
|
|
00868 DISPLAY 'SELECT DC GOV EMPLOYERS'. CHGBD205
|
|
00869 IF CHG3-RPT-TYPE-FPUC-88 CL*29
|
|
00870 DISPLAY 'SELECT FPUC EMPLOYERS'. CL*29
|
|
00871 DISPLAY SPACE. CHGBD205
|
|
00872 CHGBD205
|
|
00873 I2300-EXIT. CHGBD205
|
|
00874 EXIT. CHGBD205
|
|
00875 CHGBD205
|
|
00876 I2310-DEFAULT-RPTS. CHGBD205
|
|
00877 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD205
|
|
00878 OR CHG3-RUN-TYPE-EMP-88 CHGBD205
|
|
00879 OR CHG3-RUN-TYPE-MONTHLY-88 CHGBD205
|
|
00880 OR CHG3-RUN-TYPE-WEEKLY-88 CL*38
|
|
00881 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD205
|
|
00882 SET CHG3-RPT-TYPE-SELF-INS-88 TO TRUE CHGBD205
|
|
00883 SET CHG3-RPT-TYPE-CWC-88 TO TRUE CHGBD205
|
|
00884 SET CHG3-RPT-TYPE-FED-88 TO TRUE CHGBD205
|
|
00885 SET CHG3-RPT-TYPE-DC-88 TO TRUE CHGBD205
|
|
00886 ELSE CHGBD205
|
|
00887 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD205
|
|
00888 OR CHG3-RUN-TYPE-AGENT-88 CHGBD205
|
|
00889 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD205
|
|
00890 ELSE CHGBD205
|
|
00891 IF CHG3-RUN-TYPE-TEUC-88 CHGBD205
|
|
00892 SET CHG3-RPT-TYPE-TEUC-88 TO TRUE CL*30
|
|
00893 ELSE CL*30
|
|
00894 IF CHG3-RUN-TYPE-FPUC-88 CL*30
|
|
00895 SET CHG3-RPT-TYPE-FPUC-88 TO TRUE. CL*38
|
|
00896 CHGBD205
|
|
00897 I2310-EXIT. CHGBD205
|
|
00898 EXIT. CHGBD205
|
|
00899 CHGBD205
|
|
00900 I2400-PARM-EMP-NO. CHGBD205
|
|
00901 IF CHG3-RUN-TYPE-EMP-88 CHGBD205
|
|
00902 OR CHG3-RUN-TYPE-ANN-EMP-88 CHGBD205
|
|
00903 OR CHG3-RUN-TYPE-MON-EMP-88 CHGBD205
|
|
00904 OR CHG3-RUN-TYPE-WK-EMP-88 CHGBD205
|
|
00905 NEXT SENTENCE CHGBD205
|
|
00906 ELSE CHGBD205
|
|
00907 MOVE ZERO TO CHG3-EMP-NO CHGBD205
|
|
00908 GO TO I2400-EXIT. CHGBD205
|
|
00909 CHGBD205
|
|
00910 IF PARM-EMP-NO NUMERIC CHGBD205
|
|
00911 IF PARM-EMP-NO > ZERO CHGBD205
|
|
00912 NEXT SENTENCE CHGBD205
|
|
00913 ELSE CHGBD205
|
|
00914 MOVE 'PARM EMP NO MUST BE > ZERO' TO ABEND-MSG CHGBD205
|
|
00915 PERFORM S999-ABEND THRU S999-EXIT CHGBD205
|
|
00916 END-IF CHGBD205
|
|
00917 ELSE CHGBD205
|
|
00918 MOVE 'PARM EMP NO NOT NUMERIC' TO ABEND-MSG CHGBD205
|
|
00919 PERFORM S999-ABEND THRU S999-EXIT. CHGBD205
|
|
00920 CHGBD205
|
|
00921 MOVE PARM-EMP-NO TO CHG3-EMP-NO. CHGBD205
|
|
00922 CHGBD205
|
|
00923 DISPLAY 'EMPLOYER SELECTED: ' CHG3-EMP-NO. CHGBD205
|
|
00924 CHGBD205
|
|
00925 I2400-EXIT. CHGBD205
|
|
00926 EXIT. CHGBD205
|
|
00927 CHGBD205
|
|
00928 P0000-PROCESS. CHGBD205
|
|
00929 CHGBD205
|
|
00930 MOVE WRK-BEGIN-DATE TO CHG2-CHARGE-DATE. CHGBD205
|
|
00931 MOVE +0 TO CHG2-EMP-NO CHGBD205
|
|
00932 CHG2-SSN CHGBD205
|
|
00933 CHG2-BYE. CHGBD205
|
|
00934 MOVE '0' TO CHG2-PROGRAM. CHGBD205
|
|
00935 START BD200-CHG-FILE-IN CHGBD205
|
|
00936 KEY IS >= CHG2-KEY-AREA. CHGBD205
|
|
00937 CHGBD205
|
|
00938 IF NOT BD200-FILE-OK-88 CHGBD205
|
|
00939 DISPLAY 'BD200 FIRST READ ERROR: ' BD200-CHG-STATUS CHGBD205
|
|
00940 PERFORM P0100-NO-RECS THRU P0100-EXIT CHGBD205
|
|
00941 GO TO P0000-EXIT. CHGBD205
|
|
00942 CHGBD205
|
|
00943 PERFORM P1000-READ-CHARGES THRU P1000-EXIT CHGBD205
|
|
00944 UNTIL BD200-FILE-EOF-88 CHGBD205
|
|
00945 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD205
|
|
00946 OR WRK-ERROR-YES-88. CHGBD205
|
|
00947 CHGBD205
|
|
00948 P0000-EXIT. CHGBD205
|
|
00949 EXIT. CHGBD205
|
|
00950 CHGBD205
|
|
00951 P0100-NO-RECS. CHGBD205
|
|
00952 DISPLAY '*** NO RECORDS FOUND FOR PARM ***'. CHGBD205
|
|
00953 DISPLAY '*** RUN ENDING ***'. CHGBD205
|
|
00954 CHGBD205
|
|
00955 P0100-EXIT. CHGBD205
|
|
00956 EXIT. CHGBD205
|
|
00957 CHGBD205
|
|
00958 P1000-READ-CHARGES. CHGBD205
|
|
00959 READ BD200-CHG-FILE-IN NEXT. CHGBD205
|
|
00960 CHGBD205
|
|
00961 IF BD200-FILE-EOF-88 CHGBD205
|
|
00962 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD205
|
|
00963 GO TO P1000-EXIT CHGBD205
|
|
00964 ELSE CHGBD205
|
|
00965 IF NOT BD200-FILE-OK-88 CHGBD205
|
|
00966 DISPLAY 'BD200 FILE READ ERROR: ' BD200-CHG-STATUS CHGBD205
|
|
00967 SET WRK-ERROR-YES-88 TO TRUE CHGBD205
|
|
00968 GO TO P1000-EXIT. CHGBD205
|
|
00969 CHGBD205
|
|
00970 ADD 1 TO WRK-BD200-CHG-READ. CHGBD205
|
|
00971 MOVE CHG2-EMP-TYPE TO WRK-EMP-TYPE. CHGBD205
|
|
00972 IF WRK-EMP-TYPE-POOL-88 CHGBD205
|
|
00973 ADD +1 TO WRK-BD200-CHG-DELETE CHGBD205
|
|
00974 COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT + CHGBD205
|
|
00975 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) CHGBD205
|
|
00976 GO TO P1000-EXIT. CHGBD205
|
|
00977 CHGBD205
|
|
00978 MOVE CHG2-EMP-NO TO WRK-EMP-NO. CHGBD205
|
|
00979 IF WRK-POOL-ACCT-88 CHGBD205
|
|
00980 ADD +1 TO WRK-BD200-CHG-DELETE CHGBD205
|
|
00981 COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT + CHGBD205
|
|
00982 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) CHGBD205
|
|
00983 GO TO P1000-EXIT. CHGBD205
|
|
00984 CHGBD205
|
|
00985 CHGBD205
|
|
00986 *& EXCLUDE RECORDS WITH BYE PRIOR TO 1/1/2001 CHGBD205
|
|
00987 *& FOR EMPLOYER TYPE = UCX, UCFE, SELF-INSURED, CHGBD205
|
|
00988 *& DC GOVERNMENT. PER FRANK ORLANDO 2/21/2002 - GD. CHGBD205
|
|
00989 CHGBD205
|
|
00990 ** THERE IS NO LONGER ANY NEED TO BYPASS THE CHARGE CHGBD205
|
|
00991 ** DATA - THE PROBLEM IN THE BENEFITS PROCESS HAS CHGBD205
|
|
00992 ** BEEN FIXED PER BRUCE. 6/24/2009 GD CHGBD205
|
|
00993 *** IF (CHG2-BYE = ZERO) OR (CHG2-CHARGE-DATE < 20010101) CHGBD205
|
|
00994 * NEXT SENTENCE CHGBD205
|
|
00995 * ELSE CHGBD205
|
|
00996 * IF CHG2-BYE < 20010101 CHGBD205
|
|
00997 * IF WRK-EMP-TYPE-UCX-88 CHGBD205
|
|
00998 * OR WRK-EMP-TYPE-UCFE-88 CHGBD205
|
|
00999 * OR WRK-EMP-TYPE-SELF-INS-88 CHGBD205
|
|
01000 * OR WRK-EMP-TYPE-DC-GOV-88 CHGBD205
|
|
01001 * OR (WRK-EMP-TYPE-CWC-88 AND WRK-FED-ACCT-88) CHGBD205
|
|
01002 * MOVE MSG8-ID2 TO R907-MSG-ID CHGBD205
|
|
01003 * MOVE CHG2-EMP-NO TO R907-EMP-NO CHGBD205
|
|
01004 * MOVE CHG2-SSN TO MSG8-SSN CHGBD205
|
|
01005 * MOVE CHG2-BYE TO MSG8-BYE CHGBD205
|
|
01006 * MOVE CHG2-PROGRAM TO MSG8-PGM CHGBD205
|
|
01007 * MOVE CHG2-CURR-BEN-AMT TO MSG8-AMT CHGBD205
|
|
01008 * MOVE CHG2-CHARGE-DATE TO MSG8-DATE CHGBD205
|
|
01009 * MOVE MSG8-LONG-TEXT TO R907-MSG-TEXT CHGBD205
|
|
01010 * ADD +1 TO WRK-INV-CHRG-ERR-CNT CHGBD205
|
|
01011 * COMPUTE WRK-CURR-SUMM-AMT = WRK-CURR-SUMM-AMT + CHGBD205
|
|
01012 * (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT) CHGBD205
|
|
01013 * PERFORM S946-R907-WRITE THRU S946-EXIT CHGBD205
|
|
01014 ** GO TO P1000-EXIT. CHGBD205
|
|
01015 CHGBD205
|
|
01016 IF CHG2-EMP-TYPE = 10 AND CHG2-PROGRAM NOT = '1' CL*40
|
|
01017 GO TO P1000-EXIT. CL*40
|
|
01018 CL*40
|
|
01019 PERFORM S1100-WRITE-BD205 THRU S1100-EXIT CHGBD205
|
|
01020 COMPUTE WRK-TOT-CHG = WRK-TOT-CHG + CHGBD205
|
|
01021 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT). CHGBD205
|
|
01022 CHGBD205
|
|
01023 P1000-EXIT. CHGBD205
|
|
01024 EXIT. CHGBD205
|
|
01025 CHGBD205
|
|
01026 S1100-WRITE-BD205. CHGBD205
|
|
01027 WRITE BD205-CHG-REC FROM BD200-CHG-REC. CHGBD205
|
|
01028 IF BD205-FILE-OK-88 CHGBD205
|
|
01029 ADD 1 TO WRK-BD205-WRITE. CHGBD205
|
|
01030 CHGBD205
|
|
01031 S1100-EXIT. CHGBD205
|
|
01032 EXIT. CHGBD205
|
|
01033 CHGBD205
|
|
01034 S001-FROM-CAL-6. CHGBD205
|
|
01035 SET L001-FROM-CAL-6 TO TRUE. CHGBD205
|
|
01036 GO TO S001-DATE. CHGBD205
|
|
01037 CHGBD205
|
|
01038 S001-FROM-FED-8. CHGBD205
|
|
01039 SET L001-FROM-FED-8 TO TRUE. CHGBD205
|
|
01040 GO TO S001-DATE. CHGBD205
|
|
01041 CHGBD205
|
|
01042 S001-FROM-ABS. CHGBD205
|
|
01043 SET L001-FROM-ABS-DAY TO TRUE. CHGBD205
|
|
01044 GO TO S001-DATE. CHGBD205
|
|
01045 CHGBD205
|
|
01046 S001-DATE. CHGBD205
|
|
01047 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBD205
|
|
01048 S001-EXIT. EXIT. CHGBD205
|
|
01049 CHGBD205
|
|
01050 S004-FROM-DATE. CHGBD205
|
|
01051 SET L004-FROM-DATE TO TRUE. CHGBD205
|
|
01052 GO TO S004-YRQ. CHGBD205
|
|
01053 CHGBD205
|
|
01054 S004-YRQ. CHGBD205
|
|
01055 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBD205
|
|
01056 S004-EXIT. EXIT. CHGBD205
|
|
01057 CHGBD205
|
|
01058 S910-OPEN-READ. CHGBD205
|
|
01059 SET L910-OPEN-READ-88 TO TRUE. CHGBD205
|
|
01060 GO TO S910-MSTR-IO. CHGBD205
|
|
01061 CHGBD205
|
|
01062 S910-READ. CHGBD205
|
|
01063 SET L910-READ-88 TO TRUE. CHGBD205
|
|
01064 GO TO S910-MSTR-IO. CHGBD205
|
|
01065 CHGBD205
|
|
01066 S910-CLOSE. CHGBD205
|
|
01067 SET L910-CLOSE-88 TO TRUE. CHGBD205
|
|
01068 GO TO S910-MSTR-IO. CHGBD205
|
|
01069 CHGBD205
|
|
01070 S910-MSTR-IO. CHGBD205
|
|
01071 CALL 'DTSBU910' USING L910-LINK-AREA CHGBD205
|
|
01072 MSKL-REC. CHGBD205
|
|
01073 CHGBD205
|
|
01074 S910-EXIT. CHGBD205
|
|
01075 EXIT. CHGBD205
|
|
01076 CHGBD205
|
|
01077 ** ADD ERROR MSG PROCESS PARA. CHGBD205
|
|
01078 S946-R907-WRITE. CHGBD205
|
|
01079 CALL 'DTSBU946' USING R907-REC. CHGBD205
|
|
01080 S946-EXIT. EXIT. CHGBD205
|
|
01081 CHGBD205
|
|
01082 T0000-TERMINATE. CHGBD205
|
|
01083 CLOSE BD200-CHG-FILE-IN CHGBD205
|
|
01084 BD205-CHG-FILE-OUT. CHGBD205
|
|
01085 CHGBD205
|
|
01086 PERFORM S910-CLOSE THRU S910-EXIT. CHGBD205
|
|
01087 CHGBD205
|
|
01088 DISPLAY '************** CHGBD205 COUNTS **************'. CHGBD205
|
|
01089 DISPLAY '*** ***'. CHGBD205
|
|
01090 CHGBD205
|
|
01091 MOVE WRK-BD200-CHG-READ TO WRK-CNT-DISP. CHGBD205
|
|
01092 DISPLAY 'CHARGE RECORDS READ: ' CHGBD205
|
|
01093 WRK-CNT-DISP. CHGBD205
|
|
01094 CHGBD205
|
|
01095 MOVE WRK-BD205-WRITE TO WRK-CNT-DISP. CHGBD205
|
|
01096 DISPLAY 'CHARGE RECORDS WRITTEN: ' CHGBD205
|
|
01097 WRK-CNT-DISP. CHGBD205
|
|
01098 CHGBD205
|
|
01099 DISPLAY SPACE. CHGBD205
|
|
01100 CHGBD205
|
|
01101 MOVE WRK-TOT-CHG TO WRK-TOT-CHG-DISP. CHGBD205
|
|
01102 *** DISPLAY SPACE. CHGBD205
|
|
01103 DISPLAY 'CHGBD205 TOTAL CHARGE: ' WRK-TOT-CHG-DISP. CHGBD205
|
|
01104 CHGBD205
|
|
01105 MOVE WRK-INV-CHRG-ERR-CNT TO WRK-CNT-DISP. CHGBD205
|
|
01106 DISPLAY SPACE. CHGBD205
|
|
01107 DISPLAY 'PRE-2001 CHARGES EXCLUDED: ' CHGBD205
|
|
01108 WRK-CNT-DISP. CHGBD205
|
|
01109 CHGBD205
|
|
01110 MOVE WRK-BD200-CHG-DELETE TO WRK-CNT-DISP. CHGBD205
|
|
01111 DISPLAY 'POOL ACCOUNTS EXCLUDED: ' CHGBD205
|
|
01112 WRK-CNT-DISP. CHGBD205
|
|
01113 CHGBD205
|
|
01114 MOVE WRK-CURR-SUMM-AMT TO WRK-CURR-SUMM-AMT-DISP. CHGBD205
|
|
01115 DISPLAY SPACE. CHGBD205
|
|
01116 DISPLAY 'POOL ACCT CHARGES EXCLUDED: ' CHGBD205
|
|
01117 WRK-CURR-SUMM-AMT-DISP. CHGBD205
|
|
01118 DISPLAY '***********************************************'. CHGBD205
|
|
01119 CHGBD205
|
|
01120 T0000-EXIT. CHGBD205
|
|
01121 EXIT. CHGBD205
|
|
01122 EJECT CHGBD205
|
|
01123 CHGBD205
|
|
01124 S999-ABEND. CHGBD205
|
|
01125 DISPLAY '**** CHGBD205 ABENDING ' CHGBD205
|
|
01126 ABEND-MSG. CHGBD205
|
|
01127 CALL ABEND-MOD USING ABEND-CODE. CHGBD205
|
|
01128 CHGBD205
|
|
01129 S999-EXIT. CHGBD205
|
|
01130 EXIT. CHGBD205
|
|
01131 CHGBD205
|