903 lines
71 KiB
COBOL
903 lines
71 KiB
COBOL
00001 IDENTIFICATION DIVISION. 05/25/10
|
|
00002 PROGRAM-ID. CHGBD206. CHGBD206
|
|
00003 *AUTHOR. TRW. LV020
|
|
00004 *DATE-WRITTEN. JULY 2002. CHGBD206
|
|
00005 DATE-COMPILED. CHGBD206
|
|
00006 SKIP3 CHGBD206
|
|
00007 ***** CHGBD206
|
|
00008 * CHGBD206
|
|
00009 * FUNCTION: CHGBD206
|
|
00010 * CHGBD206
|
|
00011 * SELECT CHARGE RECORDS TO INCLUDE IN TOTAL BENEFIT CHGBD206
|
|
00012 * CHARGE FILE, LISTING CHARGES TO EACH CLAIMANT CHGBD206
|
|
00013 * BY BENEFIT YEAR AND DATE OF PAYMENT OR ADJUSTMENT. CHGBD206
|
|
00014 * OF PAYMENT OR ADJUSTMENT. CHGBD206
|
|
00015 * CHGBD206
|
|
00016 * WRITE BD206CHG OUTPUT RECORD. CHGBD206
|
|
00017 * CHGBD206
|
|
00018 * INPUT: CHGBD206
|
|
00019 * CHGBD206
|
|
00020 * BD200CHG - CHARGE REPORT RECORDS GENERATED BY CHGBD206
|
|
00021 * CHGBD200. CHGBD206
|
|
00022 * CHGPARM - EXTRACT PARAMETERS CHGBD206
|
|
00023 * CHGBD206
|
|
00024 * OUTPUT: CHGBD206
|
|
00025 * CHGBD206
|
|
00026 * BD206CHG - CHARGE RECORDS SELECTED IN CHGBD206
|
|
00027 * CHGBD206. CHGBD206
|
|
00028 * CHGBD206
|
|
00029 * CHGBD206
|
|
00030 * PARAMETERS: CHGBD206
|
|
00031 * CHGBD206
|
|
00032 * RUN TYPE - CHGBD206
|
|
00033 * QUARTERLY ('QTR') - REGULAR QUARTERLY REPORTING CHGBD206
|
|
00034 * ANNUAL ('ANN') - ANNUAL REPORTING CHGBD206
|
|
00035 * EMPLOYER ('EMP') - SPECIAL REPORT FOR A SINGLE CHGBD206
|
|
00036 * EMPLOYER CHGBD206
|
|
00037 * REPORTS ('RPT') - SPECIAL REPORT TO REPRINT CHGBD206
|
|
00038 * REPORTS. USE THE REPORT TYPE CHGBD206
|
|
00039 * PARM TO INDICATE WHICH TYPES CHGBD206
|
|
00040 * OF REPORTS TO INCLUDE. CHGBD206
|
|
00041 * FISCAL AGENTS CHGBD206
|
|
00042 * ('AGT') - RERUN FISCAL AGENT TAPES. CHGBD206
|
|
00043 * CHGBD206
|
|
00044 * >> WHEN RUN TYPE IS 'QTR' THE SYSTEM WILL CHGBD206
|
|
00045 * >> GENERATE T026 BENEFIT CHARGE ACCOUNTING CHGBD206
|
|
00046 * >> TRANSACTIONS AND TPS RECORDS. CHGBD206
|
|
00047 * CHGBD206
|
|
00048 * BEGIN DATE - DATE FROM WHICH TO BEGIN SELECTION CHGBD206
|
|
00049 * OF CHARGE RECORDS. CHGBD206
|
|
00050 * REQUIRED FOR ALL RUN TYPES. CHGBD206
|
|
00051 * CHGBD206
|
|
00052 * END DATE - DATE AT WHICH TO END SELECTION CHGBD206
|
|
00053 * OF CHARGE RECORDS. CHGBD206
|
|
00054 * REQUIRED FOR ALL RUN TYPES. CHGBD206
|
|
00055 * CHGBD206
|
|
00056 * CHGBD206
|
|
00057 ***** CHGBD206
|
|
00058 CHGBD206
|
|
00059 ******************************************************************CHGBD206
|
|
00060 * MODIFICATION HISTORY: *CHGBD206
|
|
00061 * *CHGBD206
|
|
00062 * 02-02-1999 INITIAL DEVELOPMENT *CHGBD206
|
|
00063 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD206
|
|
00064 * *CHGBD206
|
|
00065 * 06-21-2001 MODIFIED FOR NEW CHARGE PROCESS CHGBD206
|
|
00066 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD206
|
|
00067 * *CHGBD206
|
|
00068 * 04-23-2002 MODIFIED TO OUTPUT TEUC RPC150R1 REPORT CHGBD206
|
|
00069 * REFERENCE RFP #**** AUTHOR OF CHANGE - RW1 *CHGBD206
|
|
00070 * *CHGBD206
|
|
00071 * 06-29-2004 ADD EMP-TYPE 17 - DOMESTIC VIOLENCE. CHGBD206
|
|
00072 * REFERENCE RFP #**** AUTHOR OF CHANGE - GD *CHGBD206
|
|
00073 * *CHGBD206
|
|
00074 * 01-11-2006 REMOVE CODE IN P1000 THAT EXCLUDED POTENTIALLY CHGBD206
|
|
00075 * INCORRECT CHARGES. THE PROBLEM IN THE BENEFITS CHGBD206
|
|
00076 * SYSTEM HAS BEEN FIXED. CHGBD206
|
|
00077 * REFERENCE: AUTHOR OF CHANGE - GD *CHGBD206
|
|
00078 * CHGBD206
|
|
00079 * *CHGBD206
|
|
00080 * 12-04-2009 MODIFIED FOR NEW CODES. CHGBD206
|
|
00081 * REFERENCE RFP #**** AUTHOR OF CHANGE - ZL1 *CHGBD206
|
|
00082 * *CHGBD206
|
|
00083 * *CHGBD206
|
|
00084 * 05-04-2010 MODIFIED FOR NEW CODES. CHGBD206
|
|
00085 * REFERENCE RFP #**** AUTHOR OF CHANGE - ZL1 *CHGBD206
|
|
00086 * *CHGBD206
|
|
00087 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD206
|
|
00088 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD206
|
|
00089 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBD206
|
|
00090 ******************************************************************CHGBD206
|
|
00091 CHGBD206
|
|
00092 SKIP3 CHGBD206
|
|
00093 ENVIRONMENT DIVISION. CHGBD206
|
|
00094 SKIP3 CHGBD206
|
|
00095 INPUT-OUTPUT SECTION. CHGBD206
|
|
00096 SKIP3 CHGBD206
|
|
00097 FILE-CONTROL. CHGBD206
|
|
00098 SELECT INPUT-PARM ASSIGN TO SYSIN CHGBD206
|
|
00099 FILE STATUS IS INPUT-PARM-STATUS. CHGBD206
|
|
00100 CHGBD206
|
|
00101 SELECT BD200-CHG-FILE-IN ASSIGN TO BD200CHG CHGBD206
|
|
00102 ORGANIZATION IS INDEXED CHGBD206
|
|
00103 ACCESS MODE IS DYNAMIC CHGBD206
|
|
00104 RECORD KEY IS CHG2-KEY-AREA CHGBD206
|
|
00105 FILE STATUS IS BD200-CHG-STATUS. CHGBD206
|
|
00106 CHGBD206
|
|
00107 SELECT BD206-CHG-FILE-OUT ASSIGN TO BD206CHG CHGBD206
|
|
00108 FILE STATUS IS BD206-CHG-STATUS. CHGBD206
|
|
00109 CHGBD206
|
|
00110 EJECT CHGBD206
|
|
00111 DATA DIVISION. CHGBD206
|
|
00112 CHGBD206
|
|
00113 FILE SECTION. CHGBD206
|
|
00114 FD INPUT-PARM CHGBD206
|
|
00115 LABEL RECORDS ARE STANDARD CHGBD206
|
|
00116 BLOCK CONTAINS 0 CHARACTERS. CHGBD206
|
|
00117 SKIP1 CHGBD206
|
|
00118 01 INPUT-PARM-REC. CHGBD206
|
|
00119 05 PARM-RUN-TYPE PIC X(03). CHGBD206
|
|
00120 05 FILLER PIC X(01). CHGBD206
|
|
00121 05 PARM-BEGIN-DATE PIC 9(06). CHGBD206
|
|
00122 05 FILLER PIC X(01). CHGBD206
|
|
00123 05 PARM-END-DATE PIC 9(06). CHGBD206
|
|
00124 05 FILLER PIC X(01). CHGBD206
|
|
00125 05 PARM-REPORT-TYPES. CHGBD206
|
|
00126 10 PARM-RPT-TYPE-RATED PIC X(01). CHGBD206
|
|
00127 10 PARM-RPT-TYPE-SELF-IND PIC X(01). CHGBD206
|
|
00128 10 PARM-RPT-TYPE-CWC PIC X(01). CHGBD206
|
|
00129 10 PARM-RPT-TYPE-FED PIC X(01). CHGBD206
|
|
00130 10 PARM-RPT-TYPE-TEUC PIC X(01). CHGBD206
|
|
00131 10 PARM-RPT-TYPE-TEUCA PIC X(01). CHGBD206
|
|
00132 05 FILLER PIC X(01). CHGBD206
|
|
00133 05 PARM-EMP-NO PIC 9(06). CHGBD206
|
|
00134 05 FILLER PIC X(50). CHGBD206
|
|
00135 CHGBD206
|
|
00136 FD BD200-CHG-FILE-IN CHGBD206
|
|
00137 RECORD CONTAINS 64 CHARACTERS CHGBD206
|
|
00138 DATA RECORD IS BD200-CHG-REC. CHGBD206
|
|
00139 01 BD200-CHG-REC. CHGBD206
|
|
00140 ++INCLUDE CHGIM002 CHGBD206
|
|
00141 CHGBD206
|
|
00142 FD BD206-CHG-FILE-OUT CHGBD206
|
|
00143 LABEL RECORDS ARE STANDARD CHGBD206
|
|
00144 BLOCK CONTAINS 0 CHARACTERS. CHGBD206
|
|
00145 SKIP1 CHGBD206
|
|
00146 01 BD206-CHG-REC PIC X(64). CHGBD206
|
|
00147 CHGBD206
|
|
00148 EJECT CHGBD206
|
|
00149 WORKING-STORAGE SECTION. CHGBD206
|
|
001495 77 PAN-VALET PICTURE X(24) VALUE '020CHGBD206 05/25/10'. CHGBD206
|
|
00150 CHGBD206
|
|
00151 01 WRK-AREA. CHGBD206
|
|
00152 *& CHGBD206
|
|
00153 05 WRK-DISP-AREA. CHGBD206
|
|
00154 10 WRK-DATE PIC 9999B99B99. CHGBD206
|
|
00155 10 FILLER PIC X(02) VALUE SPACES. CHGBD206
|
|
00156 10 WRK-EMP-DISP PIC 9(06). CHGBD206
|
|
00157 10 FILLER PIC X(02) VALUE SPACES. CHGBD206
|
|
00158 10 WRK-SSN-DISP PIC 9(10). CHGBD206
|
|
00159 10 FILLER PIC X(02) VALUE SPACES. CHGBD206
|
|
00160 10 WRK-CHG-AMT-DISP PIC Z(07)9.99-. CHGBD206
|
|
00161 CHGBD206
|
|
00162 05 WRK-SSN PIC 9(10). CHGBD206
|
|
00163 05 FILLER REDEFINES WRK-SSN. CHGBD206
|
|
00164 10 WRK-SSN9 PIC 9(09). CHGBD206
|
|
00165 10 WRK-SSN0 PIC 9(01). CHGBD206
|
|
00166 CHGBD206
|
|
00167 05 WRK-TOT-CHG PIC S9(11)V99 COMP-3 CHGBD206
|
|
00168 VALUE +0. CHGBD206
|
|
00169 05 WRK-TOT-CHG-DISP PIC Z(10)9.99-. CHGBD206
|
|
00170 05 ABEND-CODE PIC S9(04) COMP CHGBD206
|
|
00171 VALUE +206. CHGBD206
|
|
00172 05 ABEND-MOD PIC X(08) CHGBD206
|
|
00173 VALUE 'DTSBU999'. CHGBD206
|
|
00174 05 ABEND-MSG PIC X(60). CHGBD206
|
|
00175 CHGBD206
|
|
00176 05 INPUT-PARM-STATUS PIC X(02) VALUE SPACES. CHGBD206
|
|
00177 88 INPUT-PARM-OK-88 VALUE ZERO. CHGBD206
|
|
00178 88 INPUT-PARM-EOF-88 VALUE '10'. CHGBD206
|
|
00179 CHGBD206
|
|
00180 05 BD200-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD206
|
|
00181 88 BD200-FILE-OK-88 VALUE ZERO. CHGBD206
|
|
00182 88 BD200-FILE-EOF-88 VALUE '10'. CHGBD206
|
|
00183 CHGBD206
|
|
00184 05 BD206-CHG-STATUS PIC X(02) VALUE SPACES. CHGBD206
|
|
00185 88 BD206-FILE-OK-88 VALUE ZERO. CHGBD206
|
|
00186 88 BD206-FILE-EOF-88 VALUE '10'. CHGBD206
|
|
00187 CHGBD206
|
|
00188 05 WRK-ERROR-IND PIC X(01). CHGBD206
|
|
00189 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD206
|
|
00190 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD206
|
|
00191 CHGBD206
|
|
00192 05 WRK-EMP-VALID-IND PIC X(01). CHGBD206
|
|
00193 88 WRK-EMP-VALID-YES-88 VALUE 'Y'. CHGBD206
|
|
00194 88 WRK-EMP-VALID-NO-88 VALUE 'N'. CHGBD206
|
|
00195 CHGBD206
|
|
00196 05 WRK-BEGIN-DATE PIC S9(09) COMP-3. CHGBD206
|
|
00197 05 WRK-END-DATE PIC S9(09) COMP-3. CHGBD206
|
|
00198 CHGBD206
|
|
00199 05 WRK-BEGIN-DATE-DISP PIC 9(08). CHGBD206
|
|
00200 05 FILLER REDEFINES WRK-BEGIN-DATE-DISP. CHGBD206
|
|
00201 10 WRK-BEGIN-YR PIC 9(04). CHGBD206
|
|
00202 10 WRK-BEGIN-MO PIC 9(02). CHGBD206
|
|
00203 10 WRK-BEGIN-DA PIC 9(02). CHGBD206
|
|
00204 CHGBD206
|
|
00205 05 WRK-END-DATE-DISP PIC 9(08). CHGBD206
|
|
00206 05 FILLER REDEFINES WRK-END-DATE-DISP. CHGBD206
|
|
00207 10 WRK-END-YR PIC 9(04). CHGBD206
|
|
00208 10 WRK-END-MO PIC 9(02). CHGBD206
|
|
00209 10 WRK-END-DA PIC 9(02). CHGBD206
|
|
00210 CHGBD206
|
|
00211 05 WRK-EMP-NO PIC S9(07) COMP-3. CHGBD206
|
|
00212 88 WRK-POOL-ACCT-88 VALUE +028411, CHGBD206
|
|
00213 +999000 THRU +999992. CHGBD206
|
|
00214 88 WRK-FED-ACCT-88 VALUE +1 THRU +1999. CHGBD206
|
|
00215 CHGBD206
|
|
00216 05 WRK-EMP-TYPE PIC 9(02). CHGBD206
|
|
00217 88 WRK-EMP-TYPE-CONTRIB-88 VALUE 00. CHGBD206
|
|
00218 88 WRK-EMP-TYPE-UCX-88 VALUE 01. CHGBD206
|
|
00219 88 WRK-EMP-TYPE-UCFE-88 VALUE 02. CHGBD206
|
|
00220 88 WRK-EMP-TYPE-FED-88 VALUE 01, 02. CHGBD206
|
|
00221 88 WRK-EMP-TYPE-CWC-88 VALUE 04. CHGBD206
|
|
00222 88 WRK-EMP-TYPE-SELF-INS-88 VALUE 08. CHGBD206
|
|
00223 88 WRK-EMP-TYPE-DC-GOV-88 VALUE 10. CHGBD206
|
|
00224 88 WRK-EMP-TYPE-NOT-LIAB-88 VALUE 13. CHGBD206
|
|
00225 88 WRK-EMP-TYPE-TEUC-88 VALUE 16. CHGBD206
|
|
00226 88 WRK-EMP-TYPE-DOM-VIOLENC-88 VALUE 17. CHGBD206
|
|
00227 88 WRK-EMP-TYPE-POOL-88 VALUE CHGBD206
|
|
00228 03, 05, 06, 07, 09, 11, CHGBD206
|
|
00229 12, 15, 17, 18, 19, 20 CHGBD206
|
|
00230 21, 22, 23, 24, 25, 26, 27. CHGBD206
|
|
00231 88 WRK-EMP-TYPE-VALID-88 VALUE CHGBD206
|
|
00232 00, 01, 02, 03, 04, 05, CHGBD206
|
|
00233 06, 07, 08, 09, 10, 11, CHGBD206
|
|
00234 12, 13, 15, 16, 17, 18, CHGBD206
|
|
00235 19, 20, 21, 22, 23, 24, 25, 26, 27. CHGBD206
|
|
00236 CHGBD206
|
|
00237 05 WRK-RPT-TYPE PIC 9(02) VALUE ZERO. CHGBD206
|
|
00238 88 WRK-RPT-TYPE-RATED-88 VALUE 00. CHGBD206
|
|
00239 88 WRK-RPT-TYPE-FED-88 VALUE 01, 02. CHGBD206
|
|
00240 88 WRK-RPT-TYPE-CWC-88 VALUE 04. CHGBD206
|
|
00241 88 WRK-RPT-TYPE-SELF-INS-88 VALUE 08, 10. CHGBD206
|
|
00242 88 WRK-RPT-TYPE-EMP-88 VALUE 00, 01, 02, CHGBD206
|
|
00243 04, 08, 10. CHGBD206
|
|
00244 CHGBD206
|
|
00245 05 WRK-REC-SELECTED-IND PIC X(01) VALUE SPACE. CHGBD206
|
|
00246 88 WRK-REC-SELECTED-YES VALUE 'Y'. CHGBD206
|
|
00247 88 WRK-REC-SELECTED-NO VALUE 'N'. CHGBD206
|
|
00248 CHGBD206
|
|
00249 05 WRK-BD200-CHG-READ PIC 9(09) COMP-3 VALUE 0. CHGBD206
|
|
00250 05 WRK-BD206-WRITE PIC 9(09) COMP-3 VALUE 0. CHGBD206
|
|
00251 05 WRK-BD200-CHG-DELETE PIC 9(09) COMP-3 VALUE 0. CHGBD206
|
|
00252 05 WRK-BD200-NOT-LIAB-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD206
|
|
00253 05 WRK-INV-CHRG-ERR-CNT PIC 9(09) COMP-3 VALUE 0. CHGBD206
|
|
00254 05 WRK-CNT-DISP PIC Z(08)9. CHGBD206
|
|
00255 CHGBD206
|
|
00256 01 WRK-PARM-AREA. CHGBD206
|
|
00257 ++INCLUDE CHGIM003 CHGBD206
|
|
00258 CHGBD206
|
|
00259 01 L910-LINK-AREA. CHGBD206
|
|
00260 ++INCLUDE DTSIL910 CHGBD206
|
|
00261 CHGBD206
|
|
00262 01 MSKL-REC. CHGBD206
|
|
00263 ++INCLUDE DTSIMSKL CHGBD206
|
|
00264 CHGBD206
|
|
00265 01 MHDR-REC. CHGBD206
|
|
00266 ++INCLUDE DTSIMHDR CHGBD206
|
|
00267 CHGBD206
|
|
00268 01 L001-LINK-AREA. CHGBD206
|
|
00269 ++INCLUDE DTSIL001 CHGBD206
|
|
00270 CHGBD206
|
|
00271 01 L004-LINK-AREA. CHGBD206
|
|
00272 ++INCLUDE DTSIL004 CHGBD206
|
|
00273 CHGBD206
|
|
00274 EJECT CHGBD206
|
|
00275 PROCEDURE DIVISION. CHGBD206
|
|
00276 SKIP2 CHGBD206
|
|
00277 CHGBD206-MAIN. CHGBD206
|
|
00278 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD206
|
|
00279 IF WRK-ERROR-YES-88 CHGBD206
|
|
00280 GO TO CHGBD206-EXIT. CHGBD206
|
|
00281 CHGBD206
|
|
00282 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD206
|
|
00283 CHGBD206
|
|
00284 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD206
|
|
00285 CHGBD206
|
|
00286 CHGBD206-EXIT. CHGBD206
|
|
00287 STOP RUN. CHGBD206
|
|
00288 EJECT CHGBD206
|
|
00289 I0000-INITIATE. CHGBD206
|
|
00290 CHGBD206
|
|
00291 MOVE ZERO TO WRK-BD200-CHG-READ CHGBD206
|
|
00292 WRK-BD200-NOT-LIAB-CNT CHGBD206
|
|
00293 WRK-BD206-WRITE CHGBD206
|
|
00294 WRK-BD200-CHG-DELETE. CHGBD206
|
|
00295 CHGBD206
|
|
00296 SET WRK-ERROR-NO-88 TO TRUE. CHGBD206
|
|
00297 CHGBD206
|
|
00298 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. CHGBD206
|
|
00299 CHGBD206
|
|
00300 PERFORM I2000-PROCESS-PARMS THRU I2000-EXIT. CHGBD206
|
|
00301 CHGBD206
|
|
00302 I0000-EXIT. CHGBD206
|
|
00303 EXIT. CHGBD206
|
|
00304 CHGBD206
|
|
00305 I1000-OPEN-FILES. CHGBD206
|
|
00306 CHGBD206
|
|
00307 OPEN INPUT BD200-CHG-FILE-IN. CHGBD206
|
|
00308 IF NOT BD200-FILE-OK-88 CHGBD206
|
|
00309 DISPLAY 'BD200 FILE OPEN ERROR: ' BD200-CHG-STATUS CHGBD206
|
|
00310 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00311 CHGBD206
|
|
00312 OPEN OUTPUT BD206-CHG-FILE-OUT. CHGBD206
|
|
00313 IF NOT BD206-FILE-OK-88 CHGBD206
|
|
00314 DISPLAY 'BD206 FILE OPEN ERROR: ' BD206-CHG-STATUS CHGBD206
|
|
00315 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00316 CHGBD206
|
|
00317 PERFORM S910-OPEN-READ THRU S910-EXIT. CHGBD206
|
|
00318 CHGBD206
|
|
00319 I1000-EXIT. CHGBD206
|
|
00320 EXIT. CHGBD206
|
|
00321 CHGBD206
|
|
00322 I2000-PROCESS-PARMS. CHGBD206
|
|
00323 OPEN INPUT INPUT-PARM. CHGBD206
|
|
00324 IF NOT INPUT-PARM-OK-88 CHGBD206
|
|
00325 DISPLAY 'INPUT PARM FILE OPEN ERROR: ' CHGBD206
|
|
00326 INPUT-PARM-STATUS CHGBD206
|
|
00327 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00328 CHGBD206
|
|
00329 READ INPUT-PARM. CHGBD206
|
|
00330 IF NOT INPUT-PARM-OK-88 CHGBD206
|
|
00331 DISPLAY 'INPUT PARM FILE READ ERROR: ' CHGBD206
|
|
00332 INPUT-PARM-STATUS CHGBD206
|
|
00333 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00334 CHGBD206
|
|
00335 DISPLAY '***** CHGBD206 PARM RECORD *****'. CHGBD206
|
|
00336 DISPLAY INPUT-PARM-REC. CHGBD206
|
|
00337 DISPLAY SPACE. CHGBD206
|
|
00338 CHGBD206
|
|
00339 DISPLAY '***** CHGBD206 EDITED PARMS *****'. CHGBD206
|
|
00340 *** DISPLAY SPACE. CHGBD206
|
|
00341 CHGBD206
|
|
00342 PERFORM I2100-PARM-RUN-TYPE THRU I2100-EXIT. CHGBD206
|
|
00343 CHGBD206
|
|
00344 PERFORM I2200-PARM-DATES THRU I2200-EXIT. CHGBD206
|
|
00345 CHGBD206
|
|
00346 PERFORM I2300-PARM-RPT-TYPES THRU I2300-EXIT. CHGBD206
|
|
00347 CHGBD206
|
|
00348 PERFORM I2400-PARM-EMP-NO THRU I2400-EXIT. CHGBD206
|
|
00349 CHGBD206
|
|
00350 I2000-EXIT. CHGBD206
|
|
00351 EXIT. CHGBD206
|
|
00352 CHGBD206
|
|
00353 I2100-PARM-RUN-TYPE. CHGBD206
|
|
00354 MOVE PARM-RUN-TYPE TO CHG3-RUN-TYPE. CHGBD206
|
|
00355 IF CHG3-RUN-TYPE-VALID-88 CHGBD206
|
|
00356 NEXT SENTENCE CHGBD206
|
|
00357 ELSE CHGBD206
|
|
00358 MOVE 'PARM RUN TYPE INVALID ' TO ABEND-MSG CHGBD206
|
|
00359 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00360 CHGBD206
|
|
00361 DISPLAY 'RUN TYPE : ' CHG3-RUN-TYPE. CHGBD206
|
|
00362 *** DISPLAY SPACE. CHGBD206
|
|
00363 CHGBD206
|
|
00364 I2100-EXIT. CHGBD206
|
|
00365 EXIT. CHGBD206
|
|
00366 CHGBD206
|
|
00367 I2200-PARM-DATES. CHGBD206
|
|
00368 MOVE ZERO TO WRK-BEGIN-DATE CHGBD206
|
|
00369 WRK-END-DATE. CHGBD206
|
|
00370 CHGBD206
|
|
00371 IF (PARM-BEGIN-DATE = SPACES OR LOW-VALUES) CHGBD206
|
|
00372 AND (PARM-END-DATE = SPACES OR LOW-VALUES) CHGBD206
|
|
00373 PERFORM I2230-DEFAULT-DATES THRU I2230-EXIT CHGBD206
|
|
00374 ELSE CHGBD206
|
|
00375 PERFORM I2210-BEGIN-DATE THRU I2210-EXIT CHGBD206
|
|
00376 PERFORM I2220-END-DATE THRU I2220-EXIT. CHGBD206
|
|
00377 CHGBD206
|
|
00378 IF WRK-END-DATE < WRK-BEGIN-DATE CHGBD206
|
|
00379 MOVE 'PERIOD END LESS THAN PERIOD BEGIN' CHGBD206
|
|
00380 TO ABEND-MSG CHGBD206
|
|
00381 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00382 CHGBD206
|
|
00383 MOVE WRK-BEGIN-DATE TO CHG3-BEGIN-DATE. CHGBD206
|
|
00384 MOVE WRK-END-DATE TO CHG3-END-DATE. CHGBD206
|
|
00385 CHGBD206
|
|
00386 DISPLAY 'START DATE : ' WRK-BEGIN-DATE. CHGBD206
|
|
00387 DISPLAY 'END DATE : ' WRK-END-DATE. CHGBD206
|
|
00388 DISPLAY SPACE. CHGBD206
|
|
00389 CHGBD206
|
|
00390 I2200-EXIT. CHGBD206
|
|
00391 EXIT. CHGBD206
|
|
00392 CHGBD206
|
|
00393 I2210-BEGIN-DATE. CHGBD206
|
|
00394 MOVE PARM-BEGIN-DATE TO L001-CAL-6-DATE-X. CHGBD206
|
|
00395 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD206
|
|
00396 IF L001-VALID-DATE CHGBD206
|
|
00397 MOVE L001-FED-8-DATE-9 TO WRK-BEGIN-DATE CHGBD206
|
|
00398 ELSE CHGBD206
|
|
00399 MOVE 'INVALID PERIOD BEGIN DATE' TO ABEND-MSG CHGBD206
|
|
00400 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00401 CHGBD206
|
|
00402 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206
|
|
00403 PERFORM I2211-QTR-BEGIN-DATE THRU I2211-EXIT CHGBD206
|
|
00404 ELSE CHGBD206
|
|
00405 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206
|
|
00406 PERFORM I2212-ANN-BEGIN-DATE THRU I2212-EXIT CHGBD206
|
|
00407 ELSE CHGBD206
|
|
00408 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD206
|
|
00409 PERFORM I2213-MON-BEGIN-DATE THRU I2213-EXIT CHGBD206
|
|
00410 ELSE CHGBD206
|
|
00411 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD206
|
|
00412 PERFORM I2214-WKLY-BEGIN-DATE THRU I2214-EXIT. CHGBD206
|
|
00413 CHGBD206
|
|
00414 I2210-EXIT. CHGBD206
|
|
00415 EXIT. CHGBD206
|
|
00416 CHGBD206
|
|
00417 I2211-QTR-BEGIN-DATE. CHGBD206
|
|
00418 MOVE WRK-BEGIN-DATE TO L004-DATE. CHGBD206
|
|
00419 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD206
|
|
00420 IF WRK-BEGIN-DATE NOT = L004-QTR-START-DATE CHGBD206
|
|
00421 MOVE 'PERIOD BEGIN NOT START OF QTR' CHGBD206
|
|
00422 TO ABEND-MSG CHGBD206
|
|
00423 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00424 END-IF. CHGBD206
|
|
00425 CHGBD206
|
|
00426 I2211-EXIT. CHGBD206
|
|
00427 EXIT. CHGBD206
|
|
00428 CHGBD206
|
|
00429 I2212-ANN-BEGIN-DATE. CHGBD206
|
|
00430 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD206
|
|
00431 IF WRK-BEGIN-MO = 07 CHGBD206
|
|
00432 AND WRK-BEGIN-DA = 01 CHGBD206
|
|
00433 NEXT SENTENCE CHGBD206
|
|
00434 ELSE CHGBD206
|
|
00435 MOVE 'ANNUAL START DATE MUST BE JULY 1' CHGBD206
|
|
00436 TO ABEND-MSG CHGBD206
|
|
00437 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00438 END-IF. CHGBD206
|
|
00439 CHGBD206
|
|
00440 I2212-EXIT. CHGBD206
|
|
00441 EXIT. CHGBD206
|
|
00442 CHGBD206
|
|
00443 I2213-MON-BEGIN-DATE. CHGBD206
|
|
00444 MOVE WRK-BEGIN-DATE TO WRK-BEGIN-DATE-DISP. CHGBD206
|
|
00445 IF WRK-BEGIN-DA = 01 CHGBD206
|
|
00446 NEXT SENTENCE CHGBD206
|
|
00447 ELSE CHGBD206
|
|
00448 MOVE 'MONTHLY START DATE MUST BE FIRST DAY OF MONTH' CHGBD206
|
|
00449 TO ABEND-MSG CHGBD206
|
|
00450 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00451 END-IF. CHGBD206
|
|
00452 CHGBD206
|
|
00453 I2213-EXIT. CHGBD206
|
|
00454 EXIT. CHGBD206
|
|
00455 CHGBD206
|
|
00456 I2214-WKLY-BEGIN-DATE. CHGBD206
|
|
00457 IF L001-SUNDAY CHGBD206
|
|
00458 OR L001-SUNDAY CHGBD206
|
|
00459 NEXT SENTENCE CHGBD206
|
|
00460 ELSE CHGBD206
|
|
00461 MOVE 'WEEKLY START DATE MUST BE SUNDAY OR MONDAY' CHGBD206
|
|
00462 TO ABEND-MSG CHGBD206
|
|
00463 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00464 END-IF. CHGBD206
|
|
00465 CHGBD206
|
|
00466 I2214-EXIT. CHGBD206
|
|
00467 EXIT. CHGBD206
|
|
00468 CHGBD206
|
|
00469 I2220-END-DATE. CHGBD206
|
|
00470 MOVE PARM-END-DATE TO L001-CAL-6-DATE-X. CHGBD206
|
|
00471 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. CHGBD206
|
|
00472 IF L001-VALID-DATE CHGBD206
|
|
00473 MOVE L001-FED-8-DATE-9 TO WRK-END-DATE CHGBD206
|
|
00474 ELSE CHGBD206
|
|
00475 MOVE 'INVALID PERIOD END DATE' TO ABEND-MSG CHGBD206
|
|
00476 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00477 CHGBD206
|
|
00478 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206
|
|
00479 PERFORM I2221-QTR-END-DATE THRU I2221-EXIT CHGBD206
|
|
00480 ELSE CHGBD206
|
|
00481 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206
|
|
00482 PERFORM I2222-ANN-END-DATE THRU I2222-EXIT CHGBD206
|
|
00483 ELSE CHGBD206
|
|
00484 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD206
|
|
00485 PERFORM I2223-MON-END-DATE THRU I2223-EXIT CHGBD206
|
|
00486 ELSE CHGBD206
|
|
00487 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD206
|
|
00488 PERFORM I2224-WKLY-END-DATE THRU I2224-EXIT. CHGBD206
|
|
00489 CHGBD206
|
|
00490 I2220-EXIT. CHGBD206
|
|
00491 EXIT. CHGBD206
|
|
00492 CHGBD206
|
|
00493 I2221-QTR-END-DATE. CHGBD206
|
|
00494 MOVE WRK-END-DATE TO L004-DATE. CHGBD206
|
|
00495 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBD206
|
|
00496 IF WRK-END-DATE NOT = L004-QTR-END-DATE CHGBD206
|
|
00497 MOVE 'PERIOD END NOT END OF QTR' CHGBD206
|
|
00498 TO ABEND-MSG CHGBD206
|
|
00499 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00500 END-IF. CHGBD206
|
|
00501 CHGBD206
|
|
00502 I2221-EXIT. CHGBD206
|
|
00503 EXIT. CHGBD206
|
|
00504 CHGBD206
|
|
00505 I2222-ANN-END-DATE. CHGBD206
|
|
00506 MOVE WRK-END-DATE TO WRK-END-DATE-DISP. CHGBD206
|
|
00507 IF WRK-END-MO = 06 CHGBD206
|
|
00508 AND WRK-END-DA = 30 CHGBD206
|
|
00509 NEXT SENTENCE CHGBD206
|
|
00510 ELSE CHGBD206
|
|
00511 MOVE 'ANNUAL END DATE MUST BE JUNE 30' CHGBD206
|
|
00512 TO ABEND-MSG CHGBD206
|
|
00513 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00514 END-IF. CHGBD206
|
|
00515 CHGBD206
|
|
00516 IF (WRK-BEGIN-YR + 1) = WRK-END-YR CHGBD206
|
|
00517 NEXT SENTENCE CHGBD206
|
|
00518 ELSE CHGBD206
|
|
00519 MOVE 'START DATE NOT 1 YEAR PRIOR TO END DATE' CHGBD206
|
|
00520 TO ABEND-MSG CHGBD206
|
|
00521 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00522 END-IF. CHGBD206
|
|
00523 CHGBD206
|
|
00524 I2222-EXIT. CHGBD206
|
|
00525 EXIT. CHGBD206
|
|
00526 CHGBD206
|
|
00527 I2223-MON-END-DATE. CHGBD206
|
|
00528 MOVE WRK-END-DATE TO L001-FED-8-DATE-9. CHGBD206
|
|
00529 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBD206
|
|
00530 ADD +1 TO L001-JUL-ABS-DAY. CHGBD206
|
|
00531 PERFORM S001-FROM-ABS THRU S001-EXIT. CHGBD206
|
|
00532 IF L001-FED-8-DA = 01 CHGBD206
|
|
00533 NEXT SENTENCE CHGBD206
|
|
00534 ELSE CHGBD206
|
|
00535 MOVE 'END DATE MUST BE END OF MONTH' CHGBD206
|
|
00536 TO ABEND-MSG CHGBD206
|
|
00537 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00538 END-IF. CHGBD206
|
|
00539 CHGBD206
|
|
00540 IF (WRK-END-DATE - WRK-BEGIN-DATE) > 30 CHGBD206
|
|
00541 MOVE 'BEGIN AND END DATES NOT IN SAME MONTH' CHGBD206
|
|
00542 TO ABEND-MSG CHGBD206
|
|
00543 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00544 END-IF. CHGBD206
|
|
00545 CHGBD206
|
|
00546 I2223-EXIT. CHGBD206
|
|
00547 EXIT. CHGBD206
|
|
00548 CHGBD206
|
|
00549 I2224-WKLY-END-DATE. CHGBD206
|
|
00550 IF L001-FRIDAY CHGBD206
|
|
00551 OR L001-SATURDAY CHGBD206
|
|
00552 NEXT SENTENCE CHGBD206
|
|
00553 ELSE CHGBD206
|
|
00554 MOVE 'WEEKLY END DATE MUST BE FRIDAY OR SATURDAY' CHGBD206
|
|
00555 TO ABEND-MSG CHGBD206
|
|
00556 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00557 END-IF. CHGBD206
|
|
00558 CHGBD206
|
|
00559 I2224-EXIT. CHGBD206
|
|
00560 EXIT. CHGBD206
|
|
00561 CHGBD206
|
|
00562 I2230-DEFAULT-DATES. CHGBD206
|
|
00563 IF CHG3-RUN-TYPE-SPECIAL-88 CHGBD206
|
|
00564 MOVE 'DATES REQUIRED FOR SPECIAL REQUEST' CHGBD206
|
|
00565 TO ABEND-MSG CHGBD206
|
|
00566 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00567 CHGBD206
|
|
00568 MOVE LOW-VALUES TO MSKL-KEY-AREA. CHGBD206
|
|
00569 MOVE +0 TO MSKL-EMP-NO. CHGBD206
|
|
00570 SET MSKL-HDR-88 TO TRUE. CHGBD206
|
|
00571 PERFORM S910-READ THRU S910-EXIT. CHGBD206
|
|
00572 CHGBD206
|
|
00573 IF L910-NO-REC-88 CHGBD206
|
|
00574 MOVE 'MHDR RECORD IS MISSING' CHGBD206
|
|
00575 TO ABEND-MSG CHGBD206
|
|
00576 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00577 CHGBD206
|
|
00578 MOVE MSKL-REC TO MHDR-REC. CHGBD206
|
|
00579 CHGBD206
|
|
00580 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206
|
|
00581 PERFORM I2231-DEFAULT-QTR-DATES THRU I2231-EXIT CHGBD206
|
|
00582 ELSE CHGBD206
|
|
00583 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206
|
|
00584 PERFORM I2232-DEFAULT-ANN-DATES THRU I2232-EXIT CHGBD206
|
|
00585 ELSE CHGBD206
|
|
00586 IF CHG3-RUN-TYPE-MONTHLY-88 CHGBD206
|
|
00587 PERFORM I2233-DEFAULT-MON-DATES THRU I2233-EXIT CHGBD206
|
|
00588 ELSE CHGBD206
|
|
00589 IF CHG3-RUN-TYPE-WEEKLY-88 CHGBD206
|
|
00590 PERFORM I2234-DEFAULT-WKLY-DATES THRU I2234-EXIT. CHGBD206
|
|
00591 CHGBD206
|
|
00592 I2230-EXIT. CHGBD206
|
|
00593 EXIT. CHGBD206
|
|
00594 CHGBD206
|
|
00595 I2231-DEFAULT-QTR-DATES. CHGBD206
|
|
00596 MOVE MHDR-CMPL-QTR-BEGIN-DATE CHGBD206
|
|
00597 TO WRK-BEGIN-DATE. CHGBD206
|
|
00598 MOVE MHDR-CMPL-QTR-END-DATE CHGBD206
|
|
00599 TO WRK-END-DATE. CHGBD206
|
|
00600 CHGBD206
|
|
00601 I2231-EXIT. CHGBD206
|
|
00602 EXIT. CHGBD206
|
|
00603 CHGBD206
|
|
00604 I2232-DEFAULT-ANN-DATES. CHGBD206
|
|
00605 MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9. CHGBD206
|
|
00606 MOVE L004-QTR-5-YR TO WRK-END-YR. CHGBD206
|
|
00607 MOVE 06 TO WRK-END-MO. CHGBD206
|
|
00608 MOVE 30 TO WRK-END-DA. CHGBD206
|
|
00609 MOVE WRK-END-DATE-DISP TO WRK-END-DATE. CHGBD206
|
|
00610 CHGBD206
|
|
00611 COMPUTE WRK-BEGIN-YR = (WRK-END-YR - 1). CHGBD206
|
|
00612 MOVE 07 TO WRK-BEGIN-MO. CHGBD206
|
|
00613 MOVE 01 TO WRK-BEGIN-DA. CHGBD206
|
|
00614 MOVE WRK-BEGIN-DATE-DISP TO WRK-BEGIN-DATE. CHGBD206
|
|
00615 CHGBD206
|
|
00616 IF WRK-END-DATE >= MHDR-CURR-RUN-DATE CHGBD206
|
|
00617 MOVE 'ANNUAL RPT CAN NOT RUN UNTIL AFTER JUNE 30' CHGBD206
|
|
00618 TO ABEND-MSG CHGBD206
|
|
00619 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00620 CHGBD206
|
|
00621 I2232-EXIT. CHGBD206
|
|
00622 EXIT. CHGBD206
|
|
00623 CHGBD206
|
|
00624 I2233-DEFAULT-MON-DATES. CHGBD206
|
|
00625 MOVE MHDR-CMPL-MONTH-BEGIN-DATE CHGBD206
|
|
00626 TO WRK-BEGIN-DATE. CHGBD206
|
|
00627 MOVE MHDR-CMPL-MONTH-END-DATE CHGBD206
|
|
00628 TO WRK-END-DATE. CHGBD206
|
|
00629 CHGBD206
|
|
00630 I2233-EXIT. CHGBD206
|
|
00631 EXIT. CHGBD206
|
|
00632 CHGBD206
|
|
00633 I2234-DEFAULT-WKLY-DATES. CHGBD206
|
|
00634 MOVE MHDR-CMPL-WEEK-BEGIN-DATE CHGBD206
|
|
00635 TO WRK-BEGIN-DATE. CHGBD206
|
|
00636 MOVE MHDR-CMPL-WEEK-END-DATE CHGBD206
|
|
00637 TO WRK-END-DATE. CHGBD206
|
|
00638 CHGBD206
|
|
00639 I2234-EXIT. CHGBD206
|
|
00640 EXIT. CHGBD206
|
|
00641 CHGBD206
|
|
00642 I2300-PARM-RPT-TYPES. CHGBD206
|
|
00643 IF CHG3-RUN-TYPE-RPTS-88 CHGBD206
|
|
00644 NEXT SENTENCE CHGBD206
|
|
00645 ELSE CHGBD206
|
|
00646 PERFORM I2310-DEFAULT-RPTS THRU I2310-EXIT CHGBD206
|
|
00647 GO TO I2300-EXIT. CHGBD206
|
|
00648 CHGBD206
|
|
00649 MOVE PARM-REPORT-TYPES TO CHG3-RPT-TYPES. CHGBD206
|
|
00650 CHGBD206
|
|
00651 IF CHG3-RPT-TYPE-RATED-88 CHGBD206
|
|
00652 OR CHG3-RPT-TYPE-SELF-INS-88 CHGBD206
|
|
00653 OR CHG3-RPT-TYPE-CWC-88 CHGBD206
|
|
00654 OR CHG3-RPT-TYPE-FED-88 CHGBD206
|
|
00655 OR CHG3-RPT-TYPE-TEUC-88 CHGBD206
|
|
00656 OR CHG3-RPT-TYPE-DC-88 CHGBD206
|
|
00657 NEXT SENTENCE CHGBD206
|
|
00658 ELSE CHGBD206
|
|
00659 MOVE 'AT LEAST ONE RPT TYPE MUST SET TO Y ' TO ABEND-MSG CHGBD206
|
|
00660 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00661 CHGBD206
|
|
00662 IF CHG3-RPT-TYPE-RATED-88 CHGBD206
|
|
00663 DISPLAY 'SELECT RATED EMPLOYERS'. CHGBD206
|
|
00664 IF CHG3-RPT-TYPE-SELF-INS-88 CHGBD206
|
|
00665 DISPLAY 'SELECT SELF-INSURED EMPLOYERS'. CHGBD206
|
|
00666 IF CHG3-RPT-TYPE-CWC-88 CHGBD206
|
|
00667 DISPLAY 'SELECT CWC EMPLOYERS'. CHGBD206
|
|
00668 IF CHG3-RPT-TYPE-FED-88 CHGBD206
|
|
00669 DISPLAY 'SELECT FEDERAL EMPLOYERS'. CHGBD206
|
|
00670 IF CHG3-RPT-TYPE-TEUC-88 CHGBD206
|
|
00671 DISPLAY 'SELECT TEUC EMPLOYERS'. CHGBD206
|
|
00672 IF CHG3-RPT-TYPE-DC-88 CHGBD206
|
|
00673 DISPLAY 'SELECT DC GOV EMPLOYERS'. CHGBD206
|
|
00674 DISPLAY SPACE. CHGBD206
|
|
00675 CHGBD206
|
|
00676 I2300-EXIT. CHGBD206
|
|
00677 EXIT. CHGBD206
|
|
00678 CHGBD206
|
|
00679 I2310-DEFAULT-RPTS. CHGBD206
|
|
00680 IF CHG3-RUN-TYPE-QTRLY-88 CHGBD206
|
|
00681 OR CHG3-RUN-TYPE-EMP-88 CHGBD206
|
|
00682 OR CHG3-RUN-TYPE-MONTHLY-88 CHGBD206
|
|
00683 OR CHG3-RUN-TYPE-WEEKLY-88 CHGBD206
|
|
00684 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD206
|
|
00685 SET CHG3-RPT-TYPE-SELF-INS-88 TO TRUE CHGBD206
|
|
00686 SET CHG3-RPT-TYPE-CWC-88 TO TRUE CHGBD206
|
|
00687 SET CHG3-RPT-TYPE-FED-88 TO TRUE CHGBD206
|
|
00688 SET CHG3-RPT-TYPE-DC-88 TO TRUE CHGBD206
|
|
00689 ELSE CHGBD206
|
|
00690 IF CHG3-RUN-TYPE-ANNUAL-88 CHGBD206
|
|
00691 OR CHG3-RUN-TYPE-AGENT-88 CHGBD206
|
|
00692 SET CHG3-RPT-TYPE-RATED-88 TO TRUE CHGBD206
|
|
00693 ELSE CHGBD206
|
|
00694 IF CHG3-RUN-TYPE-TEUC-88 CHGBD206
|
|
00695 SET CHG3-RPT-TYPE-TEUC-88 TO TRUE. CHGBD206
|
|
00696 CHGBD206
|
|
00697 I2310-EXIT. CHGBD206
|
|
00698 EXIT. CHGBD206
|
|
00699 CHGBD206
|
|
00700 I2400-PARM-EMP-NO. CHGBD206
|
|
00701 IF CHG3-RUN-TYPE-EMP-88 CHGBD206
|
|
00702 OR CHG3-RUN-TYPE-ANN-EMP-88 CHGBD206
|
|
00703 OR CHG3-RUN-TYPE-MON-EMP-88 CHGBD206
|
|
00704 OR CHG3-RUN-TYPE-WK-EMP-88 CHGBD206
|
|
00705 NEXT SENTENCE CHGBD206
|
|
00706 ELSE CHGBD206
|
|
00707 MOVE ZERO TO CHG3-EMP-NO CHGBD206
|
|
00708 GO TO I2400-EXIT. CHGBD206
|
|
00709 CHGBD206
|
|
00710 IF PARM-EMP-NO NUMERIC CHGBD206
|
|
00711 IF PARM-EMP-NO > ZERO CHGBD206
|
|
00712 NEXT SENTENCE CHGBD206
|
|
00713 ELSE CHGBD206
|
|
00714 MOVE 'PARM EMP NO MUST BE > ZERO' TO ABEND-MSG CHGBD206
|
|
00715 PERFORM S999-ABEND THRU S999-EXIT CHGBD206
|
|
00716 END-IF CHGBD206
|
|
00717 ELSE CHGBD206
|
|
00718 MOVE 'PARM EMP NO NOT NUMERIC' TO ABEND-MSG CHGBD206
|
|
00719 PERFORM S999-ABEND THRU S999-EXIT. CHGBD206
|
|
00720 CHGBD206
|
|
00721 MOVE PARM-EMP-NO TO CHG3-EMP-NO. CHGBD206
|
|
00722 CHGBD206
|
|
00723 DISPLAY 'EMPLOYER SELECTED: ' CHG3-EMP-NO. CHGBD206
|
|
00724 CHGBD206
|
|
00725 I2400-EXIT. CHGBD206
|
|
00726 EXIT. CHGBD206
|
|
00727 CHGBD206
|
|
00728 P0000-PROCESS. CHGBD206
|
|
00729 CHGBD206
|
|
00730 MOVE WRK-BEGIN-DATE TO CHG2-CHARGE-DATE. CHGBD206
|
|
00731 MOVE +0 TO CHG2-EMP-NO CHGBD206
|
|
00732 CHG2-SSN CHGBD206
|
|
00733 CHG2-BYE. CHGBD206
|
|
00734 MOVE 0 TO CHG2-PROGRAM. CHGBD206
|
|
00735 START BD200-CHG-FILE-IN CHGBD206
|
|
00736 KEY IS >= CHG2-KEY-AREA. CHGBD206
|
|
00737 CHGBD206
|
|
00738 IF NOT BD200-FILE-OK-88 CHGBD206
|
|
00739 DISPLAY 'BD200 FIRST READ ERROR: ' BD200-CHG-STATUS CHGBD206
|
|
00740 PERFORM P0100-NO-RECS THRU P0100-EXIT CHGBD206
|
|
00741 GO TO P0000-EXIT. CHGBD206
|
|
00742 CHGBD206
|
|
00743 PERFORM P1000-READ-CHARGES THRU P1000-EXIT CHGBD206
|
|
00744 UNTIL BD200-FILE-EOF-88 CHGBD206
|
|
00745 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD206
|
|
00746 OR WRK-ERROR-YES-88. CHGBD206
|
|
00747 CHGBD206
|
|
00748 P0000-EXIT. CHGBD206
|
|
00749 EXIT. CHGBD206
|
|
00750 CHGBD206
|
|
00751 P0100-NO-RECS. CHGBD206
|
|
00752 DISPLAY '*** NO RECORDS FOUND FOR PARM ***'. CHGBD206
|
|
00753 DISPLAY '*** RUN ENDING ***'. CHGBD206
|
|
00754 CHGBD206
|
|
00755 P0100-EXIT. CHGBD206
|
|
00756 EXIT. CHGBD206
|
|
00757 CHGBD206
|
|
00758 P1000-READ-CHARGES. CHGBD206
|
|
00759 READ BD200-CHG-FILE-IN NEXT. CHGBD206
|
|
00760 CHGBD206
|
|
00761 IF BD200-FILE-EOF-88 CHGBD206
|
|
00762 OR CHG2-CHARGE-DATE > WRK-END-DATE CHGBD206
|
|
00763 GO TO P1000-EXIT CHGBD206
|
|
00764 ELSE CHGBD206
|
|
00765 IF NOT BD200-FILE-OK-88 CHGBD206
|
|
00766 DISPLAY 'BD200 FILE READ ERROR: ' BD200-CHG-STATUS CHGBD206
|
|
00767 SET WRK-ERROR-YES-88 TO TRUE CHGBD206
|
|
00768 GO TO P1000-EXIT. CHGBD206
|
|
00769 CHGBD206
|
|
00770 ADD 1 TO WRK-BD200-CHG-READ. CHGBD206
|
|
00771 CHGBD206
|
|
00772 MOVE CHG2-EMP-TYPE TO WRK-EMP-TYPE. CHGBD206
|
|
00773 *& IF WRK-EMP-TYPE-POOL-88 CHGBD206
|
|
00774 * ADD +1 TO WRK-BD200-CHG-DELETE CHGBD206
|
|
00775 *& GO TO P1000-EXIT. CHGBD206
|
|
00776 CHGBD206
|
|
00777 MOVE CHG2-EMP-NO TO WRK-EMP-NO. CHGBD206
|
|
00778 *& IF WRK-POOL-ACCT-88 CHGBD206
|
|
00779 * ADD +1 TO WRK-BD200-CHG-DELETE CHGBD206
|
|
00780 *& GO TO P1000-EXIT. CHGBD206
|
|
00781 CHGBD206
|
|
00782 *& EXCLUDE RECORDS WITH BYE PRIOR TO 1/1/2001 CHGBD206
|
|
00783 *& FOR EMPLOYER TYPE = UCX, UCFE, SELF-INSURED, CHGBD206
|
|
00784 *& DC GOVERNMENT. PER FRANK ORLANDO 2/21/2002 - GD. CHGBD206
|
|
00785 CHGBD206
|
|
00786 IF (CHG2-BYE = ZERO) OR (CHG2-CHARGE-DATE < 20010101) CHGBD206
|
|
00787 NEXT SENTENCE CHGBD206
|
|
00788 ELSE CHGBD206
|
|
00789 IF CHG2-BYE < 20010101 CHGBD206
|
|
00790 IF WRK-EMP-TYPE-UCX-88 CHGBD206
|
|
00791 OR WRK-EMP-TYPE-UCFE-88 CHGBD206
|
|
00792 OR WRK-EMP-TYPE-SELF-INS-88 CHGBD206
|
|
00793 OR WRK-EMP-TYPE-DC-GOV-88 CHGBD206
|
|
00794 OR (WRK-EMP-TYPE-CWC-88 AND WRK-FED-ACCT-88) CHGBD206
|
|
00795 ADD +1 TO WRK-INV-CHRG-ERR-CNT CHGBD206
|
|
00796 GO TO P1000-EXIT. CHGBD206
|
|
00797 CHGBD206
|
|
00798 PERFORM S1100-WRITE-BD206 THRU S1100-EXIT CHGBD206
|
|
00799 COMPUTE WRK-TOT-CHG = WRK-TOT-CHG + CHGBD206
|
|
00800 (CHG2-CURR-BEN-AMT + CHG2-CURR-ADJ-AMT). CHGBD206
|
|
00801 CHGBD206
|
|
00802 P1000-EXIT. CHGBD206
|
|
00803 EXIT. CHGBD206
|
|
00804 CHGBD206
|
|
00805 S1100-WRITE-BD206. CHGBD206
|
|
00806 WRITE BD206-CHG-REC FROM BD200-CHG-REC. CHGBD206
|
|
00807 IF BD206-FILE-OK-88 CHGBD206
|
|
00808 ADD 1 TO WRK-BD206-WRITE. CHGBD206
|
|
00809 CHGBD206
|
|
00810 S1100-EXIT. CHGBD206
|
|
00811 EXIT. CHGBD206
|
|
00812 CHGBD206
|
|
00813 S001-FROM-CAL-6. CHGBD206
|
|
00814 SET L001-FROM-CAL-6 TO TRUE. CHGBD206
|
|
00815 GO TO S001-DATE. CHGBD206
|
|
00816 CHGBD206
|
|
00817 S001-FROM-FED-8. CHGBD206
|
|
00818 SET L001-FROM-FED-8 TO TRUE. CHGBD206
|
|
00819 GO TO S001-DATE. CHGBD206
|
|
00820 CHGBD206
|
|
00821 S001-FROM-ABS. CHGBD206
|
|
00822 SET L001-FROM-ABS-DAY TO TRUE. CHGBD206
|
|
00823 GO TO S001-DATE. CHGBD206
|
|
00824 CHGBD206
|
|
00825 S001-DATE. CHGBD206
|
|
00826 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBD206
|
|
00827 S001-EXIT. EXIT. CHGBD206
|
|
00828 CHGBD206
|
|
00829 S004-FROM-DATE. CHGBD206
|
|
00830 SET L004-FROM-DATE TO TRUE. CHGBD206
|
|
00831 GO TO S004-YRQ. CHGBD206
|
|
00832 CHGBD206
|
|
00833 S004-YRQ. CHGBD206
|
|
00834 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBD206
|
|
00835 S004-EXIT. EXIT. CHGBD206
|
|
00836 CHGBD206
|
|
00837 S910-OPEN-READ. CHGBD206
|
|
00838 SET L910-OPEN-READ-88 TO TRUE. CHGBD206
|
|
00839 GO TO S910-MSTR-IO. CHGBD206
|
|
00840 CHGBD206
|
|
00841 S910-READ. CHGBD206
|
|
00842 SET L910-READ-88 TO TRUE. CHGBD206
|
|
00843 GO TO S910-MSTR-IO. CHGBD206
|
|
00844 CHGBD206
|
|
00845 S910-CLOSE. CHGBD206
|
|
00846 SET L910-CLOSE-88 TO TRUE. CHGBD206
|
|
00847 GO TO S910-MSTR-IO. CHGBD206
|
|
00848 CHGBD206
|
|
00849 S910-MSTR-IO. CHGBD206
|
|
00850 CALL 'DTSBU910' USING L910-LINK-AREA CHGBD206
|
|
00851 MSKL-REC. CHGBD206
|
|
00852 CHGBD206
|
|
00853 S910-EXIT. CHGBD206
|
|
00854 EXIT. CHGBD206
|
|
00855 CHGBD206
|
|
00856 T0000-TERMINATE. CHGBD206
|
|
00857 CLOSE BD200-CHG-FILE-IN CHGBD206
|
|
00858 BD206-CHG-FILE-OUT. CHGBD206
|
|
00859 CHGBD206
|
|
00860 PERFORM S910-CLOSE THRU S910-EXIT. CHGBD206
|
|
00861 CHGBD206
|
|
00862 DISPLAY '************** CHGBD206 COUNTS **************'. CHGBD206
|
|
00863 DISPLAY '*** ***'. CHGBD206
|
|
00864 CHGBD206
|
|
00865 MOVE WRK-BD200-CHG-READ TO WRK-CNT-DISP. CHGBD206
|
|
00866 DISPLAY 'CHARGE RECORDS READ: ' CHGBD206
|
|
00867 WRK-CNT-DISP. CHGBD206
|
|
00868 CHGBD206
|
|
00869 MOVE WRK-BD206-WRITE TO WRK-CNT-DISP. CHGBD206
|
|
00870 DISPLAY 'CHARGE RECORDS WRITTEN: ' CHGBD206
|
|
00871 WRK-CNT-DISP. CHGBD206
|
|
00872 CHGBD206
|
|
00873 MOVE WRK-BD200-CHG-DELETE TO WRK-CNT-DISP. CHGBD206
|
|
00874 DISPLAY 'POOL ACCOUNTS EXCLUDED: ' CHGBD206
|
|
00875 WRK-CNT-DISP. CHGBD206
|
|
00876 CHGBD206
|
|
00877 DISPLAY SPACE. CHGBD206
|
|
00878 CHGBD206
|
|
00879 MOVE WRK-TOT-CHG TO WRK-TOT-CHG-DISP. CHGBD206
|
|
00880 *** DISPLAY SPACE. CHGBD206
|
|
00881 DISPLAY 'CHGBD206 TOTAL CHARGE: ' WRK-TOT-CHG-DISP. CHGBD206
|
|
00882 CHGBD206
|
|
00883 MOVE WRK-INV-CHRG-ERR-CNT TO WRK-CNT-DISP. CHGBD206
|
|
00884 DISPLAY SPACE. CHGBD206
|
|
00885 DISPLAY 'PRE-2001 CHARGES EXCLUDED: ' CHGBD206
|
|
00886 WRK-CNT-DISP. CHGBD206
|
|
00887 CHGBD206
|
|
00888 DISPLAY '***********************************************'. CHGBD206
|
|
00889 CHGBD206
|
|
00890 T0000-EXIT. CHGBD206
|
|
00891 EXIT. CHGBD206
|
|
00892 EJECT CHGBD206
|
|
00893 CHGBD206
|
|
00894 S999-ABEND. CHGBD206
|
|
00895 DISPLAY '**** CHGBD206 ABENDING ' CHGBD206
|
|
00896 ABEND-MSG. CHGBD206
|
|
00897 CALL ABEND-MOD USING ABEND-CODE. CHGBD206
|
|
00898 CHGBD206
|
|
00899 S999-EXIT. CHGBD206
|
|
00900 EXIT. CHGBD206
|
|
00901 CHGBD206
|