DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
776
Batch/CHGBD106.cob
Normal file
776
Batch/CHGBD106.cob
Normal file
@ -0,0 +1,776 @@
|
||||
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
|
||||
Reference in New Issue
Block a user