DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
782
Batch/CHGBD214.cob
Normal file
782
Batch/CHGBD214.cob
Normal file
@ -0,0 +1,782 @@
|
||||
00001 IDENTIFICATION DIVISION. 12/04/09
|
||||
00002 PROGRAM-ID. CHGBD214. CHGBD214
|
||||
00003 *AUTHOR. NGC. LV005
|
||||
00004 *DATE-WRITTEN. NOVEMBER 2006. CHGBD214
|
||||
00005 DATE-COMPILED. CHGBD214
|
||||
00006 SKIP3 CHGBD214
|
||||
00007 ***** CHGBD214
|
||||
00008 * CHGBD214
|
||||
00009 * FUNCTION: CHGBD214
|
||||
00010 * CHGBD214
|
||||
00011 * TRANSFER BENEFIT CHARGES TO SUCCESSORS. CHGBD214
|
||||
00012 * CHGBD214
|
||||
00013 * INPUT: CHGBD214
|
||||
00014 * CHGBD214
|
||||
00015 * DTSFCHG5 - CHARGE REPORT RECORDS GENERATED BY CHGBD214
|
||||
00016 * CHGBD212. CHGBD214
|
||||
00017 * CHGBD214
|
||||
00018 * CHGBD214
|
||||
00019 * OUTPUT: CHGBD214
|
||||
00020 * CHGBD214
|
||||
00021 * CHGBD214
|
||||
00022 * CHGBD214
|
||||
00023 ***** CHGBD214
|
||||
00024 CHGBD214
|
||||
00025 ******************************************************************CHGBD214
|
||||
00026 * MODIFICATION HISTORY: *CHGBD214
|
||||
00027 * *CHGBD214
|
||||
00028 * 11-06-2006 INITIAL DEVELOPMENT *CHGBD214
|
||||
00029 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD214
|
||||
00030 * *CHGBD214
|
||||
00031 * 03-09-2009 RECOMPLIED FOR NEW VERSION OF CHGIM005 *CHGBD214
|
||||
00032 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBD214
|
||||
00033 * *CHGBD214
|
||||
00034 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD214
|
||||
00035 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBD214
|
||||
00036 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBD214
|
||||
00037 ******************************************************************CHGBD214
|
||||
00038 CHGBD214
|
||||
00039 SKIP3 CHGBD214
|
||||
00040 ENVIRONMENT DIVISION. CHGBD214
|
||||
00041 SKIP3 CHGBD214
|
||||
00042 INPUT-OUTPUT SECTION. CHGBD214
|
||||
00043 SKIP3 CHGBD214
|
||||
00044 FILE-CONTROL. CHGBD214
|
||||
00045 SELECT CHARGE-FILE ASSIGN TO DTSFCHG5 CHGBD214
|
||||
00046 ORGANIZATION IS INDEXED CHGBD214
|
||||
00047 ACCESS MODE IS DYNAMIC CHGBD214
|
||||
00048 RECORD KEY IS C5-KEY-AREA CHGBD214
|
||||
00049 FILE STATUS IS CHG5-STATUS. CHGBD214
|
||||
00050 CHGBD214
|
||||
00051 SELECT RELATIONSHIP-FILE ASSIGN TO DTSFIPES CHGBD214
|
||||
00052 FILE STATUS IS REL-STATUS. CHGBD214
|
||||
00053 CHGBD214
|
||||
00054 DATA DIVISION. CHGBD214
|
||||
00055 CHGBD214
|
||||
00056 FILE SECTION. CHGBD214
|
||||
00057 FD CHARGE-FILE CHGBD214
|
||||
00058 RECORD CONTAINS 41 CHARACTERS CHGBD214
|
||||
00059 DATA RECORD IS CHG5-REC. CHGBD214
|
||||
00060 01 CHG5-REC. CHGBD214
|
||||
00061 05 C5-KEY-AREA PIC X(31). CHGBD214
|
||||
00062 05 FILLER PIC X(10). CHGBD214
|
||||
00063 CHGBD214
|
||||
00064 FD RELATIONSHIP-FILE CHGBD214
|
||||
00065 RECORD CONTAINS 16 CHARACTERS CHGBD214
|
||||
00066 DATA RECORD IS REL-REC. CHGBD214
|
||||
00067 01 REL-REC. CHGBD214
|
||||
00068 05 REL-EFF-DT PIC S9(09) COMP-3. CHGBD214
|
||||
00069 05 REL-PRED PIC S9(07) COMP-3. CHGBD214
|
||||
00070 05 REL-SUCC PIC S9(07) COMP-3. CHGBD214
|
||||
00071 05 REL-PCT PIC S9V9(04) COMP-3. CHGBD214
|
||||
00072 CHGBD214
|
||||
00073 WORKING-STORAGE SECTION. CHGBD214
|
||||
000735 77 PAN-VALET PICTURE X(24) VALUE '005CHGBD214 12/04/09'. CHGBD214
|
||||
00074 CHGBD214
|
||||
00075 01 WRK-AREA. CHGBD214
|
||||
00076 05 WRK-DISP-AREA. CHGBD214
|
||||
00077 10 WRK-DATE PIC 9999B99B99. CHGBD214
|
||||
00078 10 FILLER PIC X(02) VALUE SPACES. CHGBD214
|
||||
00079 10 WRK-EMP-DISP PIC 9(06). CHGBD214
|
||||
00080 10 FILLER PIC X(02) VALUE SPACES. CHGBD214
|
||||
00081 10 WRK-SSN-DISP PIC 9(10). CHGBD214
|
||||
00082 10 FILLER PIC X(02) VALUE SPACES. CHGBD214
|
||||
00083 10 WRK-CHG-AMT-DISP PIC --------9.99. CHGBD214
|
||||
00084 CHGBD214
|
||||
00085 05 C5-TABLE-AREA. CHGBD214
|
||||
00086 10 C5-MAX PIC S9(07) COMP-3 CHGBD214
|
||||
00087 VALUE +5000. CHGBD214
|
||||
00088 10 C5-LAST PIC S9(07) COMP-3 CHGBD214
|
||||
00089 VALUE +0. CHGBD214
|
||||
00090 10 C5-SUB PIC S9(07) COMP-3. CHGBD214
|
||||
00091 CHGBD214
|
||||
00092 10 C5-ENTRY OCCURS 5000 TIMES CHGBD214
|
||||
00093 PIC X(41). CHGBD214
|
||||
00094 CHGBD214
|
||||
00095 05 REL-TABLE-AREA. CHGBD214
|
||||
00096 10 RSUB PIC S9(04) COMP. CHGBD214
|
||||
00097 10 RT-MAX PIC S9(04) COMP CHGBD214
|
||||
00098 VALUE +100. CHGBD214
|
||||
00099 10 RT-LAST PIC S9(04) COMP. CHGBD214
|
||||
00100 10 REL-TABLE OCCURS 100 TIMES. CHGBD214
|
||||
00101 15 RT-EFF-DATE PIC S9(09) COMP-3. CHGBD214
|
||||
00102 15 RT-PRED PIC S9(07) COMP-3. CHGBD214
|
||||
00103 15 RT-SUCC PIC S9(07) COMP-3. CHGBD214
|
||||
00104 15 RT-PERCENT PIC S9V9(04) COMP-3. CHGBD214
|
||||
00105 CHGBD214
|
||||
00106 05 WRK-CURR-EFF-DT PIC S9(09) COMP-3. CHGBD214
|
||||
00107 05 WRK-CURR-PRED PIC S9(07) COMP-3. CHGBD214
|
||||
00108 05 WRK-CURR-SUCC PIC S9(07) COMP-3. CHGBD214
|
||||
00109 05 WRK-CURR-PCT PIC S9V9(04) COMP-3. CHGBD214
|
||||
00110 CHGBD214
|
||||
00111 CHGBD214
|
||||
00112 05 HOLD-LAST PIC S9(07) COMP-3 CHGBD214
|
||||
00113 VALUE +0. CHGBD214
|
||||
00114 CHGBD214
|
||||
00115 05 WRK-TOT-CHG PIC S9(09)V99 COMP-3 CHGBD214
|
||||
00116 VALUE +0. CHGBD214
|
||||
00117 05 WRK-EMP-TOT-CHG PIC S9(09)V99 COMP-3 CHGBD214
|
||||
00118 VALUE +0. CHGBD214
|
||||
00119 05 WRK-EMP-SSN-CHG PIC S9(09)V99 COMP-3 CHGBD214
|
||||
00120 VALUE +0. CHGBD214
|
||||
00121 05 WRK-TOT-CHG-DISP PIC Z(08)9.99-. CHGBD214
|
||||
00122 05 WRK-CHG PIC S9(09)V99 COMP-3. CHGBD214
|
||||
00123 05 WRK-CURR-EMP PIC S9(07) COMP-3 CHGBD214
|
||||
00124 VALUE +0. CHGBD214
|
||||
00125 05 WRK-CURR-SSN PIC S9(09) COMP-3 CHGBD214
|
||||
00126 VALUE +0. CHGBD214
|
||||
00127 05 WRK-BYB PIC S9(09) COMP-3 CHGBD214
|
||||
00128 VALUE +0. CHGBD214
|
||||
00129 05 WRK-RATE-YRQ PIC S9(05) COMP-3. CHGBD214
|
||||
00130 05 WRK-SEQUENCE PIC S9(04) COMP CHGBD214
|
||||
00131 VALUE +0. CHGBD214
|
||||
00132 CHGBD214
|
||||
00133 05 WRK-SSN-CONV PIC 9(10). CHGBD214
|
||||
00134 05 FILLER REDEFINES WRK-SSN-CONV. CHGBD214
|
||||
00135 10 WRK-SSN-9 PIC 9(09). CHGBD214
|
||||
00136 10 FILLER PIC X(01). CHGBD214
|
||||
00137 CHGBD214
|
||||
00138 05 WRK-CHG-AMT PIC S9(09)V99 COMP-3. CHGBD214
|
||||
00139 CHGBD214
|
||||
00140 05 WRK-MOD-NAME PIC X(08) CHGBD214
|
||||
00141 VALUE 'CHGBD214'. CHGBD214
|
||||
00142 05 ABEND-CODE PIC S9(04) COMP CHGBD214
|
||||
00143 VALUE +214. CHGBD214
|
||||
00144 05 ABEND-MOD PIC X(08) CHGBD214
|
||||
00145 VALUE 'DTSBU999'. CHGBD214
|
||||
00146 05 ABEND-MSG PIC X(60). CHGBD214
|
||||
00147 CHGBD214
|
||||
00148 05 CHG5-STATUS PIC X(02) VALUE SPACES. CHGBD214
|
||||
00149 88 CHG5-FILE-OK-88 VALUE '00'. CHGBD214
|
||||
00150 88 CHG5-FILE-EOF-88 VALUE '10'. CHGBD214
|
||||
00151 CHGBD214
|
||||
00152 05 REL-STATUS PIC X(02) VALUE SPACES. CHGBD214
|
||||
00153 88 REL-FILE-OK-88 VALUE '00'. CHGBD214
|
||||
00154 88 REL-FILE-EOF-88 VALUE '10'. CHGBD214
|
||||
00155 CHGBD214
|
||||
00156 05 WRK-ERROR-IND PIC X(01). CHGBD214
|
||||
00157 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBD214
|
||||
00158 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBD214
|
||||
00159 CHGBD214
|
||||
00160 05 WRK-RPT-TYPE PIC 9(02) VALUE ZERO. CHGBD214
|
||||
00161 88 WRK-RPT-TYPE-RATED-88 VALUE 00. CHGBD214
|
||||
00162 88 WRK-RPT-TYPE-FED-88 VALUE 01, 02. CHGBD214
|
||||
00163 88 WRK-RPT-TYPE-CWC-88 VALUE 04. CHGBD214
|
||||
00164 88 WRK-RPT-TYPE-SELF-INS-88 VALUE 08. CHGBD214
|
||||
00165 88 WRK-RPT-TYPE-DC-88 VALUE 10. CHGBD214
|
||||
00166 88 WRK-RPT-TYPE-TEUC-88 VALUE 16. CHGBD214
|
||||
00167 CHGBD214
|
||||
00168 05 WRK-REL-CNT PIC 9(09) COMP-3 CHGBD214
|
||||
00169 VALUE 0. CHGBD214
|
||||
00170 05 WRK-CHG5-CNT PIC 9(09) COMP-3 CHGBD214
|
||||
00171 VALUE 0. CHGBD214
|
||||
00172 05 WRK-CHG5-WRITE-CNT PIC 9(09) COMP-3 CHGBD214
|
||||
00173 VALUE 0. CHGBD214
|
||||
00174 05 WRK-100PCT-CNT PIC 9(09) COMP-3 CHGBD214
|
||||
00175 VALUE 0. CHGBD214
|
||||
00176 CHGBD214
|
||||
00177 05 AMT-DISP1 PIC --------9.99. CHGBD214
|
||||
00178 05 AMT-DISP2 PIC --------9.99. CHGBD214
|
||||
00179 05 AMT-DISP3 PIC --------9.99. CHGBD214
|
||||
00180 05 AMT-DISP4 PIC -9.9999. CHGBD214
|
||||
00181 ** ADD ERROR MSG TABLE SET UP CHGBD214
|
||||
00182 01 MSG-TABLE. CHGBD214
|
||||
00183 05 MSG1-NO-MPRF. CHGBD214
|
||||
00184 10 MSG1-ID. CHGBD214
|
||||
00185 15 MSG1-ID1 PIC X(08) VALUE 'CHGBD210'. CHGBD214
|
||||
00186 15 MSG1-ID2 PIC X(03) VALUE '210'. CHGBD214
|
||||
00187 10 MSG1-SHORT-TEXT PIC X(20) CHGBD214
|
||||
00188 VALUE 'EMP NOT ON FILE : '. CHGBD214
|
||||
00189 10 MSG1-LONG-TEXT. CHGBD214
|
||||
00190 15 FILLER PIC X(29) CHGBD214
|
||||
00191 VALUE 'EMPLOYER NOT ON MASTER FILE '. CHGBD214
|
||||
00192 15 FILLER PIC X(32) VALUE SPACES. CHGBD214
|
||||
00193 CHGBD214
|
||||
00194 05 MSG2-NOT-LIABLE. CHGBD214
|
||||
00195 10 MSG2-ID. CHGBD214
|
||||
00196 15 MSG2-ID1 PIC X(08) VALUE 'CHGBD210'. CHGBD214
|
||||
00197 15 MSG2-ID2 PIC X(03) VALUE '210'. CHGBD214
|
||||
00198 10 MSG2-SHORT-TEXT PIC X(20) CHGBD214
|
||||
00199 VALUE 'EMP NOT LIABLE : '. CHGBD214
|
||||
00200 10 MSG2-LONG-TEXT. CHGBD214
|
||||
00201 15 FILLER PIC X(29) CHGBD214
|
||||
00202 VALUE 'EMPLOYER IS NOT LIABLE '. CHGBD214
|
||||
00203 15 FILLER PIC X(32) VALUE SPACES. CHGBD214
|
||||
00204 CHGBD214
|
||||
00205 05 MSG4-PRINTING-TURNED-OFF. CHGBD214
|
||||
00206 10 MSG4-ID. CHGBD214
|
||||
00207 15 MSG4-ID1 PIC X(08) VALUE 'CHGBD210'. CHGBD214
|
||||
00208 15 MSG4-ID2 PIC X(03) VALUE '210'. CHGBD214
|
||||
00209 10 MSG4-SHORT-TEXT PIC X(20) CHGBD214
|
||||
00210 VALUE 'CHG STMT PRINT OFF: '. CHGBD214
|
||||
00211 10 MSG4-LONG-TEXT. CHGBD214
|
||||
00212 15 FILLER PIC X(36) CHGBD214
|
||||
00213 VALUE 'CHARGE STATEMENT PRINTING TURNED OFF'. CHGBD214
|
||||
00214 15 FILLER PIC X(25) VALUE SPACES. CHGBD214
|
||||
00215 CHGBD214
|
||||
00216 05 MSG5-NO-ADDRESS. CHGBD214
|
||||
00217 10 MSG5-ID. CHGBD214
|
||||
00218 15 MSG5-ID1 PIC X(08) VALUE 'CHGBD210'. CHGBD214
|
||||
00219 15 MSG5-ID2 PIC X(03) VALUE '210'. CHGBD214
|
||||
00220 10 MSG5-SHORT-TEXT PIC X(20) CHGBD214
|
||||
00221 VALUE 'NO ADDRESS FOUND: '. CHGBD214
|
||||
00222 10 MSG5-LONG-TEXT. CHGBD214
|
||||
00223 15 FILLER PIC X(29) CHGBD214
|
||||
00224 VALUE 'ADDRESS NOT FOUND '. CHGBD214
|
||||
00225 15 FILLER PIC X(25) CHGBD214
|
||||
00226 VALUE ' MPRF EMPLOYER NUMBER = '. CHGBD214
|
||||
00227 15 MSG5-EMP-NO PIC 9(07). CHGBD214
|
||||
00228 CHGBD214
|
||||
00229 05 MSG6-INVALID-EMP-NO. CHGBD214
|
||||
00230 10 MSG6-ID. CHGBD214
|
||||
00231 15 MSG6-ID1 PIC X(08) VALUE 'CHGBD210'. CHGBD214
|
||||
00232 15 MSG6-ID2 PIC X(03) VALUE '210'. CHGBD214
|
||||
00233 10 MSG6-SHORT-TEXT PIC X(20) CHGBD214
|
||||
00234 VALUE 'INVALID EMP NO: '. CHGBD214
|
||||
00235 10 MSG6-LONG-TEXT. CHGBD214
|
||||
00236 15 FILLER PIC X(29) CHGBD214
|
||||
00237 VALUE 'INVALID EMPLOYER NUMBER: '. CHGBD214
|
||||
00238 15 MSG6-EMP-NO PIC 9(07). CHGBD214
|
||||
00239 15 FILLER PIC X(25) CHGBD214
|
||||
00240 VALUE ' EMP TYPE = '. CHGBD214
|
||||
00241 15 MSG6-EMP-TYPE PIC 9(02). CHGBD214
|
||||
00242 CHGBD214
|
||||
00243 01 WRK-CHG5-REC. CHGBD214
|
||||
00244 ++INCLUDE CHGIM005 CHGBD214
|
||||
00245 CHGBD214
|
||||
00246 ** REPORT I-O SKELETAL RECORD CHGBD214
|
||||
00247 01 RSKL-REC. CHGBD214
|
||||
00248 ++INCLUDE DTSIRSK1 CHGBD214
|
||||
00249 CHGBD214
|
||||
00250 ** MAILING LABEL RECORD CHGBD214
|
||||
00251 01 R901-REC. CHGBD214
|
||||
00252 ++INCLUDE DTSIR901 CHGBD214
|
||||
00253 CHGBD214
|
||||
00254 ** ERROR MSG OUTPUT RECORD CHGBD214
|
||||
00255 01 R907-REC. CHGBD214
|
||||
00256 ++INCLUDE DTSIR907 CHGBD214
|
||||
00257 CHGBD214
|
||||
00258 01 L910-LINK-AREA. CHGBD214
|
||||
00259 ++INCLUDE DTSIL910 CHGBD214
|
||||
00260 CHGBD214
|
||||
00261 01 MSKL-REC. CHGBD214
|
||||
00262 ++INCLUDE DTSIMSKL CHGBD214
|
||||
00263 CHGBD214
|
||||
00264 01 MHDR-REC. CHGBD214
|
||||
00265 ++INCLUDE DTSIMHDR CHGBD214
|
||||
00266 CHGBD214
|
||||
00267 01 MPRF-REC. CHGBD214
|
||||
00268 ++INCLUDE DTSIMPRF CHGBD214
|
||||
00269 CHGBD214
|
||||
00270 01 L921-LINK-AREA. CHGBD214
|
||||
00271 ++INCLUDE DTSIL921 CHGBD214
|
||||
00272 CHGBD214
|
||||
00273 01 ISKL-REC. CHGBD214
|
||||
00274 ++INCLUDE DTSIISKL CHGBD214
|
||||
00275 CHGBD214
|
||||
00276 01 L001-LINK-AREA. CHGBD214
|
||||
00277 ++INCLUDE DTSIL001 CHGBD214
|
||||
00278 CHGBD214
|
||||
00279 01 L004-LINK-AREA. CHGBD214
|
||||
00280 ++INCLUDE DTSIL004 CHGBD214
|
||||
00281 CHGBD214
|
||||
00282 01 L005-LINK-AREA. CHGBD214
|
||||
00283 ++INCLUDE DTSIL005 CHGBD214
|
||||
00284 CHGBD214
|
||||
00285 01 L006-LINK-AREA. CHGBD214
|
||||
00286 ++INCLUDE DTSIL006 CHGBD214
|
||||
00287 CHGBD214
|
||||
00288 01 L081-LINK-AREA. CHGBD214
|
||||
00289 ++INCLUDE DTSIL081 CHGBD214
|
||||
00290 CHGBD214
|
||||
00291 01 L100-LINK-AREA. CHGBD214
|
||||
00292 ++INCLUDE CHGIL100 CHGBD214
|
||||
00293 CHGBD214
|
||||
00294 01 L111-LINK-AREA. CHGBD214
|
||||
00295 ++INCLUDE DTSIL111 CHGBD214
|
||||
00296 CHGBD214
|
||||
00297 01 L112-LINK-AREA. CHGBD214
|
||||
00298 ++INCLUDE DTSIL112 CHGBD214
|
||||
00299 CHGBD214
|
||||
00300 PROCEDURE DIVISION. CHGBD214
|
||||
00301 SKIP2 CHGBD214
|
||||
00302 CHGBD214-MAIN. CHGBD214
|
||||
00303 PERFORM I0000-INITIATE THRU I0000-EXIT. CHGBD214
|
||||
00304 IF WRK-ERROR-YES-88 CHGBD214
|
||||
00305 GO TO CHGBD214-EXIT. CHGBD214
|
||||
00306 CHGBD214
|
||||
00307 PERFORM P0000-PROCESS THRU P0000-EXIT. CHGBD214
|
||||
00308 CHGBD214
|
||||
00309 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBD214
|
||||
00310 CHGBD214
|
||||
00311 CHGBD214-EXIT. CHGBD214
|
||||
00312 STOP RUN. CHGBD214
|
||||
00313 EJECT CHGBD214
|
||||
00314 I0000-INITIATE. CHGBD214
|
||||
00315 SET WRK-ERROR-NO-88 TO TRUE. CHGBD214
|
||||
00316 CHGBD214
|
||||
00317 MOVE LENGTH OF R901-REC TO R901-LENGTH. CHGBD214
|
||||
00318 CHGBD214
|
||||
00319 MOVE MSG1-ID1 TO R907-MODULE-NAME. CHGBD214
|
||||
00320 MOVE LENGTH OF R907-REC TO R907-LENGTH. CHGBD214
|
||||
00321 CHGBD214
|
||||
00322 PERFORM I1000-INIT-TABLES THRU I1000-EXIT. CHGBD214
|
||||
00323 CHGBD214
|
||||
00324 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. CHGBD214
|
||||
00325 CHGBD214
|
||||
00326 PERFORM I4000-INITIALIZE-REL-TBL THRU I4000-EXIT. CHGBD214
|
||||
00327 CHGBD214
|
||||
00328 READ RELATIONSHIP-FILE. CHGBD214
|
||||
00329 CHGBD214
|
||||
00330 IF REL-FILE-EOF-88 CHGBD214
|
||||
00331 DISPLAY 'REL FILE EMPTY: ' REL-STATUS CHGBD214
|
||||
00332 SET WRK-ERROR-YES-88 TO TRUE CHGBD214
|
||||
00333 GO TO I0000-EXIT CHGBD214
|
||||
00334 ELSE CHGBD214
|
||||
00335 ADD +1 TO WRK-REL-CNT CHGBD214
|
||||
00336 MOVE REL-EFF-DT TO WRK-CURR-EFF-DT CHGBD214
|
||||
00337 MOVE REL-PRED TO WRK-CURR-PRED CHGBD214
|
||||
00338 ADD +1 TO RT-LAST CHGBD214
|
||||
00339 MOVE REL-REC TO REL-TABLE (RT-LAST) CHGBD214
|
||||
00340 END-IF. CHGBD214
|
||||
00341 CHGBD214
|
||||
00342 I0000-EXIT. CHGBD214
|
||||
00343 EXIT. CHGBD214
|
||||
00344 CHGBD214
|
||||
00345 I1000-INIT-TABLES. CHGBD214
|
||||
00346 MOVE +0 TO C5-LAST CHGBD214
|
||||
00347 WRK-SEQUENCE. CHGBD214
|
||||
00348 PERFORM CHGBD214
|
||||
00349 VARYING C5-SUB FROM +1 BY +1 CHGBD214
|
||||
00350 UNTIL C5-SUB > C5-MAX CHGBD214
|
||||
00351 MOVE LOW-VALUES TO C5-ENTRY (C5-SUB) CHGBD214
|
||||
00352 END-PERFORM. CHGBD214
|
||||
00353 CHGBD214
|
||||
00354 I1000-EXIT. CHGBD214
|
||||
00355 EXIT. CHGBD214
|
||||
00356 CHGBD214
|
||||
00357 I2000-OPEN-FILES-1. CHGBD214
|
||||
00358 OPEN I-O CHARGE-FILE. CHGBD214
|
||||
00359 IF NOT CHG5-FILE-OK-88 CHGBD214
|
||||
00360 DISPLAY 'CHARGE FILE OPEN ERROR: ' CHG5-STATUS CHGBD214
|
||||
00361 PERFORM S999-ABEND THRU S999-EXIT CHGBD214
|
||||
00362 END-IF. CHGBD214
|
||||
00363 CHGBD214
|
||||
00364 OPEN INPUT RELATIONSHIP-FILE. CHGBD214
|
||||
00365 IF NOT REL-FILE-OK-88 CHGBD214
|
||||
00366 DISPLAY 'REL FILE OPEN ERROR: ' REL-STATUS CHGBD214
|
||||
00367 PERFORM S999-ABEND THRU S999-EXIT CHGBD214
|
||||
00368 END-IF. CHGBD214
|
||||
00369 CHGBD214
|
||||
00370 PERFORM S910-OPEN-READ THRU S910-EXIT. CHGBD214
|
||||
00371 CHGBD214
|
||||
00372 MOVE LOW-VALUES TO MSKL-KEY-AREA. CHGBD214
|
||||
00373 CHGBD214
|
||||
00374 MOVE +0 TO MSKL-EMP-NO. CHGBD214
|
||||
00375 CHGBD214
|
||||
00376 SET MSKL-HDR-88 TO TRUE. CHGBD214
|
||||
00377 CHGBD214
|
||||
00378 PERFORM S910-READ THRU S910-EXIT. CHGBD214
|
||||
00379 CHGBD214
|
||||
00380 IF L910-NO-REC-88 CHGBD214
|
||||
00381 MOVE 'MHDR RECORD IS MISSING' CHGBD214
|
||||
00382 TO ABEND-MSG CHGBD214
|
||||
00383 PERFORM S999-ABEND THRU S999-EXIT. CHGBD214
|
||||
00384 CHGBD214
|
||||
00385 MOVE MSKL-REC TO MHDR-REC. CHGBD214
|
||||
00386 CHGBD214
|
||||
00387 I2000-EXIT. CHGBD214
|
||||
00388 EXIT. CHGBD214
|
||||
00389 CHGBD214
|
||||
00390 I4000-INITIALIZE-REL-TBL. CHGBD214
|
||||
00391 MOVE +0 TO RT-LAST. CHGBD214
|
||||
00392 CHGBD214
|
||||
00393 PERFORM CHGBD214
|
||||
00394 VARYING RSUB FROM +1 BY +1 CHGBD214
|
||||
00395 UNTIL RSUB > RT-MAX CHGBD214
|
||||
00396 MOVE +0 TO RT-EFF-DATE (RSUB) CHGBD214
|
||||
00397 RT-PRED (RSUB) CHGBD214
|
||||
00398 RT-SUCC (RSUB) CHGBD214
|
||||
00399 RT-PERCENT (RSUB) CHGBD214
|
||||
00400 END-PERFORM. CHGBD214
|
||||
00401 CHGBD214
|
||||
00402 CHGBD214
|
||||
00403 I4000-EXIT. CHGBD214
|
||||
00404 EXIT. CHGBD214
|
||||
00405 CHGBD214
|
||||
00406 P0000-PROCESS. CHGBD214
|
||||
00407 READ RELATIONSHIP-FILE. CHGBD214
|
||||
00408 CHGBD214
|
||||
00409 IF REL-FILE-EOF-88 CHGBD214
|
||||
00410 PERFORM P0200-PROCESS-TABLE THRU P0200-EXIT CHGBD214
|
||||
00411 GO TO P0000-EXIT CHGBD214
|
||||
00412 ELSE CHGBD214
|
||||
00413 ADD +1 TO WRK-REL-CNT CHGBD214
|
||||
00414 PERFORM CHGBD214
|
||||
00415 UNTIL REL-FILE-EOF-88 CHGBD214
|
||||
00416 OR WRK-ERROR-YES-88 CHGBD214
|
||||
00417 IF REL-EFF-DT = WRK-CURR-EFF-DT CHGBD214
|
||||
00418 AND REL-PRED = WRK-CURR-PRED CHGBD214
|
||||
00419 PERFORM P0100-ADD-TO-TABLE THRU P0100-EXIT CHGBD214
|
||||
00420 ELSE CHGBD214
|
||||
00421 PERFORM P0200-PROCESS-TABLE THRU P0200-EXIT CHGBD214
|
||||
00422 END-IF CHGBD214
|
||||
00423 READ RELATIONSHIP-FILE CHGBD214
|
||||
00424 END-PERFORM CHGBD214
|
||||
00425 END-IF. CHGBD214
|
||||
00426 CHGBD214
|
||||
00427 IF RT-LAST > +0 CHGBD214
|
||||
00428 PERFORM P0200-PROCESS-TABLE THRU P0200-EXIT CHGBD214
|
||||
00429 END-IF. CHGBD214
|
||||
00430 CHGBD214
|
||||
00431 P0000-EXIT. CHGBD214
|
||||
00432 EXIT. CHGBD214
|
||||
00433 CHGBD214
|
||||
00434 P0100-ADD-TO-TABLE. CHGBD214
|
||||
00435 ADD +1 TO RT-LAST. CHGBD214
|
||||
00436 IF RT-LAST > RT-MAX CHGBD214
|
||||
00437 DISPLAY 'P0100 OVERFLOW ' RT-LAST CHGBD214
|
||||
00438 ' PRED ' REL-PRED ' SUCC ' REL-SUCC CHGBD214
|
||||
00439 SET WRK-ERROR-YES-88 TO TRUE CHGBD214
|
||||
00440 ELSE CHGBD214
|
||||
00441 MOVE REL-REC TO REL-TABLE (RT-LAST) CHGBD214
|
||||
00442 END-IF. CHGBD214
|
||||
00443 CHGBD214
|
||||
00444 P0100-EXIT. CHGBD214
|
||||
00445 EXIT. CHGBD214
|
||||
00446 CHGBD214
|
||||
00447 P0200-PROCESS-TABLE. CHGBD214
|
||||
00448 PERFORM I1000-INIT-TABLES THRU I1000-EXIT. CHGBD214
|
||||
00449 CHGBD214
|
||||
00450 PERFORM CHGBD214
|
||||
00451 VARYING RSUB FROM +1 BY +1 CHGBD214
|
||||
00452 UNTIL RSUB > RT-LAST CHGBD214
|
||||
00453 MOVE RT-SUCC (RSUB) TO WRK-CURR-SUCC CHGBD214
|
||||
00454 MOVE RT-PERCENT (RSUB) TO WRK-CURR-PCT CHGBD214
|
||||
00455 PERFORM P1000-RELATIONSHIPS THRU P1000-EXIT CHGBD214
|
||||
00456 END-PERFORM. CHGBD214
|
||||
00457 CHGBD214
|
||||
00458 PERFORM P2000-WRITE-CHARGES THRU P2000-EXIT CHGBD214
|
||||
00459 CHGBD214
|
||||
00460 PERFORM I4000-INITIALIZE-REL-TBL THRU I4000-EXIT. CHGBD214
|
||||
00461 MOVE REL-EFF-DT TO WRK-CURR-EFF-DT. CHGBD214
|
||||
00462 MOVE REL-PRED TO WRK-CURR-PRED. CHGBD214
|
||||
00463 ADD +1 TO RT-LAST. CHGBD214
|
||||
00464 MOVE REL-REC TO REL-TABLE (RT-LAST). CHGBD214
|
||||
00465 CHGBD214
|
||||
00466 P0200-EXIT. CHGBD214
|
||||
00467 EXIT. CHGBD214
|
||||
00468 CHGBD214
|
||||
00469 P1000-RELATIONSHIPS. CHGBD214
|
||||
00470 IF WRK-CURR-PCT NOT = 1 CHGBD214
|
||||
00471 MOVE WRK-CURR-PCT TO AMT-DISP4 CHGBD214
|
||||
00472 DISPLAY 'P1000 SUC ' WRK-CURR-SUCC CHGBD214
|
||||
00473 ' PRED ' WRK-CURR-PRED CHGBD214
|
||||
00474 ' ' AMT-DISP4 ' ' WRK-CURR-EFF-DT CHGBD214
|
||||
00475 END-IF. CHGBD214
|
||||
00476 CHGBD214
|
||||
00477 MOVE LOW-VALUES TO CHG5-REC CHGBD214
|
||||
00478 WRK-CHG5-REC. CHGBD214
|
||||
00479 MOVE WRK-CURR-PRED TO CHG5-EMP-NO. CHGBD214
|
||||
00480 MOVE ZEROS TO CHG5-SSN CHGBD214
|
||||
00481 CHG5-BYE. CHGBD214
|
||||
00482 CHGBD214
|
||||
00483 MOVE CHG5-SORT-KEY-AREA TO C5-KEY-AREA. CHGBD214
|
||||
00484 START CHARGE-FILE CHGBD214
|
||||
00485 KEY IS >= C5-KEY-AREA. CHGBD214
|
||||
00486 CHGBD214
|
||||
00487 IF NOT CHG5-FILE-OK-88 CHGBD214
|
||||
00488 DISPLAY 'CHARGE FILE START ERROR: ' CHG5-STATUS CHGBD214
|
||||
00489 ' ' CHG5-EMP-NO CHGBD214
|
||||
00490 ELSE CHGBD214
|
||||
00491 READ CHARGE-FILE NEXT INTO WRK-CHG5-REC CHGBD214
|
||||
00492 PERFORM P1100-BUILD-CHARGES THRU P1100-EXIT CHGBD214
|
||||
00493 END-IF. CHGBD214
|
||||
00494 CHGBD214
|
||||
00495 P1000-EXIT. CHGBD214
|
||||
00496 EXIT. CHGBD214
|
||||
00497 CHGBD214
|
||||
00498 P1100-BUILD-CHARGES. CHGBD214
|
||||
00499 PERFORM CHGBD214
|
||||
00500 UNTIL CHG5-FILE-EOF-88 CHGBD214
|
||||
00501 OR CHG5-EMP-NO NOT = WRK-CURR-PRED CHGBD214
|
||||
00502 OR WRK-ERROR-YES-88 CHGBD214
|
||||
00503 ADD +1 TO WRK-CHG5-CNT CHGBD214
|
||||
00504 PERFORM P1120-TBL-CHG5 THRU P1120-EXIT CHGBD214
|
||||
00505 READ CHARGE-FILE NEXT INTO WRK-CHG5-REC CHGBD214
|
||||
00506 END-PERFORM. CHGBD214
|
||||
00507 CHGBD214
|
||||
00508 P1100-EXIT. CHGBD214
|
||||
00509 EXIT. CHGBD214
|
||||
00510 CHGBD214
|
||||
00511 *P1110-CALC-BYB. CHGBD214
|
||||
00512 * MOVE CHG5-BYE TO L001-FED-8-DATE-9. CHGBD214
|
||||
00513 * PERFORM S001-FROM-FED-8 THRU S001-EXIT. CHGBD214
|
||||
00514 * IF L001-INVALID-DATE CHGBD214
|
||||
00515 * SET WRK-ERROR-YES-88 TO TRUE CHGBD214
|
||||
00516 * DISPLAY 'INVALID BYE ' CHG5-BYE ' ' CHG5-EMP-NO CHGBD214
|
||||
00517 * ' ' CHG5-SSN CHGBD214
|
||||
00518 * GO TO P1110-EXIT CHGBD214
|
||||
00519 * ELSE CHGBD214
|
||||
00520 * SUBTRACT +363 FROM L001-JUL-ABS-DAY CHGBD214
|
||||
00521 * PERFORM S001-FROM-ABS THRU S001-EXIT CHGBD214
|
||||
00522 * IF NOT L001-SATURDAY CHGBD214
|
||||
00523 * SUBTRACT +1 FROM L001-JUL-ABS-DAY CHGBD214
|
||||
00524 * PERFORM S001-FROM-ABS THRU S001-EXIT CHGBD214
|
||||
00525 * END-IF CHGBD214
|
||||
00526 * END-IF. CHGBD214
|
||||
00527 * CHGBD214
|
||||
00528 * MOVE L001-FED-8-DATE-9 TO WRK-BYB. CHGBD214
|
||||
00529 * CHGBD214
|
||||
00530 * CHGBD214
|
||||
00531 *P1110-EXIT. CHGBD214
|
||||
00532 * EXIT. CHGBD214
|
||||
00533 CHGBD214
|
||||
00534 P1120-TBL-CHG5. CHGBD214
|
||||
00535 ******************************************************** CHGBD214
|
||||
00536 * ADD CHARGE TO SUCCESSOR ACCOUNT CHGBD214
|
||||
00537 ******************************************************** CHGBD214
|
||||
00538 MOVE CHG5-TOT-CHG-AMT TO WRK-CHG. CHGBD214
|
||||
00539 CHGBD214
|
||||
00540 MOVE WRK-CURR-SUCC TO CHG5-EMP-NO. CHGBD214
|
||||
00541 COMPUTE CHG5-TOT-CHG-AMT ROUNDED = CHGBD214
|
||||
00542 (WRK-CHG * WRK-CURR-PCT). CHGBD214
|
||||
00543 MOVE WRK-CURR-PRED TO CHG5-PRED-EMP-NO. CHGBD214
|
||||
00544 MOVE WRK-CURR-SUCC TO CHG5-SUCC-EMP-NO. CHGBD214
|
||||
00545 MOVE WRK-CURR-PCT TO CHG5-PERCENT-XFER. CHGBD214
|
||||
00546 SET CHG5-TYPE-SUCC-88 TO TRUE. CHGBD214
|
||||
00547 MOVE WRK-CURR-EFF-DT TO CHG5-REL-EFF-DT. CHGBD214
|
||||
00548 ADD +1 TO WRK-SEQUENCE. CHGBD214
|
||||
00549 MOVE WRK-SEQUENCE TO CHG5-SEQUENCE. CHGBD214
|
||||
00550 CHGBD214
|
||||
00551 IF C5-LAST < C5-MAX CHGBD214
|
||||
00552 ADD +1 TO C5-LAST CHGBD214
|
||||
00553 ELSE CHGBD214
|
||||
00554 DISPLAY 'P1120 TABLE LEN EXCEEDED ' C5-LAST CHGBD214
|
||||
00555 ' ' CHG5-EMP-NO CHGBD214
|
||||
00556 GO TO P1120-EXIT CHGBD214
|
||||
00557 END-IF. CHGBD214
|
||||
00558 CHGBD214
|
||||
00559 MOVE WRK-CHG5-REC TO C5-ENTRY (C5-LAST). CHGBD214
|
||||
00560 CHGBD214
|
||||
00561 *& CHGBD214
|
||||
00562 * MOVE WRK-CHG TO AMT-DISP1. CHGBD214
|
||||
00563 * MOVE WRK-CURR-PCT TO AMT-DISP4. CHGBD214
|
||||
00564 * DISPLAY 'P1120 SUCC ' CHG5-EMP-NO ' ' CHG5-SSN CHGBD214
|
||||
00565 * ' PRED ' CHG5-PRED-EMP-NO ' SUCC ' CHG5-SUCC-EMP-NO CHGBD214
|
||||
00566 * ' ' AMT-DISP1 ' ' AMT-DISP4 ' ' CHG5-SEQUENCE. CHGBD214
|
||||
00567 *& CHGBD214
|
||||
00568 ******************************************************** CHGBD214
|
||||
00569 * SUBTRACT CHARGE FROM PREDECESSOR ACCOUNT CHGBD214
|
||||
00570 ******************************************************** CHGBD214
|
||||
00571 MOVE WRK-CURR-PRED TO CHG5-EMP-NO. CHGBD214
|
||||
00572 COMPUTE CHG5-TOT-CHG-AMT ROUNDED = CHGBD214
|
||||
00573 (WRK-CHG * WRK-CURR-PCT * -1). CHGBD214
|
||||
00574 MOVE WRK-CURR-PRED TO CHG5-PRED-EMP-NO CHGBD214
|
||||
00575 MOVE WRK-CURR-SUCC TO CHG5-SUCC-EMP-NO CHGBD214
|
||||
00576 SET CHG5-TYPE-PRED-88 TO TRUE. CHGBD214
|
||||
00577 MOVE WRK-CURR-EFF-DT TO CHG5-REL-EFF-DT. CHGBD214
|
||||
00578 ADD +1 TO WRK-SEQUENCE. CHGBD214
|
||||
00579 MOVE WRK-SEQUENCE TO CHG5-SEQUENCE. CHGBD214
|
||||
00580 CHGBD214
|
||||
00581 IF C5-LAST < C5-MAX CHGBD214
|
||||
00582 ADD +1 TO C5-LAST CHGBD214
|
||||
00583 ELSE CHGBD214
|
||||
00584 DISPLAY 'P1120 TABLE LEN EXCEEDED ' C5-LAST CHGBD214
|
||||
00585 ' ' CHG5-EMP-NO CHGBD214
|
||||
00586 GO TO P1120-EXIT CHGBD214
|
||||
00587 END-IF. CHGBD214
|
||||
00588 CHGBD214
|
||||
00589 MOVE WRK-CHG5-REC TO C5-ENTRY (C5-LAST). CHGBD214
|
||||
00590 CHGBD214
|
||||
00591 *& CHGBD214
|
||||
00592 * MOVE CHG5-TOT-CHG-AMT TO AMT-DISP1. CHGBD214
|
||||
00593 * DISPLAY 'P1120 PRED ' CHG5-EMP-NO ' ' CHG5-SSN CHGBD214
|
||||
00594 * ' PRED ' CHG5-PRED-EMP-NO ' SUCC ' CHG5-SUCC-EMP-NO CHGBD214
|
||||
00595 * ' ' AMT-DISP1 ' ' CHG5-SEQUENCE. CHGBD214
|
||||
00596 *& CHGBD214
|
||||
00597 CHGBD214
|
||||
00598 P1120-EXIT. CHGBD214
|
||||
00599 EXIT. CHGBD214
|
||||
00600 CHGBD214
|
||||
00601 P2000-WRITE-CHARGES. CHGBD214
|
||||
00602 * DISPLAY 'P2000 ' WRK-CURR-PRED ' ' C5-LAST. CHGBD214
|
||||
00603 PERFORM CHGBD214
|
||||
00604 VARYING C5-SUB FROM +1 BY +1 CHGBD214
|
||||
00605 UNTIL C5-SUB > C5-LAST CHGBD214
|
||||
00606 PERFORM P2010-WRITE-CHG5 THRU P2010-EXIT CHGBD214
|
||||
00607 END-PERFORM. CHGBD214
|
||||
00608 CHGBD214
|
||||
00609 CHGBD214
|
||||
00610 P2000-EXIT. CHGBD214
|
||||
00611 EXIT. CHGBD214
|
||||
00612 CHGBD214
|
||||
00613 P2010-WRITE-CHG5. CHGBD214
|
||||
00614 MOVE C5-ENTRY (C5-SUB) TO WRK-CHG5-REC. CHGBD214
|
||||
00615 CHGBD214
|
||||
00616 WRITE CHG5-REC FROM WRK-CHG5-REC. CHGBD214
|
||||
00617 IF CHG5-FILE-OK-88 CHGBD214
|
||||
00618 ADD 1 TO WRK-CHG5-WRITE-CNT CHGBD214
|
||||
00619 ELSE CHGBD214
|
||||
00620 DISPLAY 'CANNOT WRITE TO CHG5 FILE ' CHG5-STATUS CHGBD214
|
||||
00621 ' ' CHG5-EMP-NO CHGBD214
|
||||
00622 ' ' CHG5-BYE CHGBD214
|
||||
00623 ' ' CHG5-SSN CHGBD214
|
||||
00624 ' ' CHG5-PROGRAM CHGBD214
|
||||
00625 ' ' CHG5-TYPE CHGBD214
|
||||
00626 ' ' CHG5-PRED-EMP-NO CHGBD214
|
||||
00627 ' ' CHG5-SUCC-EMP-NO CHGBD214
|
||||
00628 ' ' CHG5-REL-EFF-DT CHGBD214
|
||||
00629 SET WRK-ERROR-YES-88 TO TRUE CHGBD214
|
||||
00630 END-IF. CHGBD214
|
||||
00631 CHGBD214
|
||||
00632 *& CHGBD214
|
||||
00633 * IF CHG5-EMP-NO = 025207 OR 813049 CHGBD214
|
||||
00634 * MOVE CHG5-TOT-CHG-AMT TO AMT-DISP1 CHGBD214
|
||||
00635 * DISPLAY 'P2010 ' CHG5-EMP-NO ' ' CHG5-SSN CHGBD214
|
||||
00636 * ' PRED ' CHG5-PRED-EMP-NO ' SUCC ' CHG5-SUCC-EMP-NO CHGBD214
|
||||
00637 * ' ' AMT-DISP1 CHGBD214
|
||||
00638 * END-IF. CHGBD214
|
||||
00639 *& CHGBD214
|
||||
00640 P2010-EXIT. CHGBD214
|
||||
00641 EXIT. CHGBD214
|
||||
00642 CHGBD214
|
||||
00643 CHGBD214
|
||||
00644 S001-FROM-FED-8. CHGBD214
|
||||
00645 SET L001-FROM-FED-8 TO TRUE. CHGBD214
|
||||
00646 GO TO S001-DATE. CHGBD214
|
||||
00647 CHGBD214
|
||||
00648 S001-FROM-ABS. CHGBD214
|
||||
00649 SET L001-FROM-ABS-DAY TO TRUE. CHGBD214
|
||||
00650 GO TO S001-DATE. CHGBD214
|
||||
00651 CHGBD214
|
||||
00652 S001-DATE. CHGBD214
|
||||
00653 CALL 'DTSBU001' USING L001-LINK-AREA. CHGBD214
|
||||
00654 S001-EXIT. EXIT. CHGBD214
|
||||
00655 CHGBD214
|
||||
00656 S004-FROM-DATE. CHGBD214
|
||||
00657 SET L004-FROM-DATE TO TRUE. CHGBD214
|
||||
00658 GO TO S004-YRQ. CHGBD214
|
||||
00659 CHGBD214
|
||||
00660 S004-FROM-5. CHGBD214
|
||||
00661 SET L004-FROM-5 TO TRUE. CHGBD214
|
||||
00662 GO TO S004-YRQ. CHGBD214
|
||||
00663 CHGBD214
|
||||
00664 S004-FROM-3. CHGBD214
|
||||
00665 SET L004-FROM-3 TO TRUE. CHGBD214
|
||||
00666 GO TO S004-YRQ. CHGBD214
|
||||
00667 CHGBD214
|
||||
00668 S004-FROM-ABS. CHGBD214
|
||||
00669 SET L004-FROM-ABS TO TRUE. CHGBD214
|
||||
00670 GO TO S004-YRQ. CHGBD214
|
||||
00671 CHGBD214
|
||||
00672 S004-YRQ. CHGBD214
|
||||
00673 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBD214
|
||||
00674 S004-EXIT. EXIT. CHGBD214
|
||||
00675 CHGBD214
|
||||
00676 S005-SYSTEM-DATE. CHGBD214
|
||||
00677 CALL 'DTSBU005' USING L005-LINK-AREA. CHGBD214
|
||||
00678 S005-EXIT. EXIT. CHGBD214
|
||||
00679 CHGBD214
|
||||
00680 S006-FROM-QTR. CHGBD214
|
||||
00681 SET L006-FROM-QTR TO TRUE. CHGBD214
|
||||
00682 CALL 'DTSBU006' USING L006-LINK-AREA. CHGBD214
|
||||
00683 S006-EXIT. EXIT. CHGBD214
|
||||
00684 CHGBD214
|
||||
00685 CHGBD214
|
||||
00686 S910-OPEN-READ. CHGBD214
|
||||
00687 SET L910-OPEN-READ-88 TO TRUE. CHGBD214
|
||||
00688 GO TO S910-MSTR-IO. CHGBD214
|
||||
00689 CHGBD214
|
||||
00690 S910-OPEN-UPDATE. CHGBD214
|
||||
00691 SET L910-OPEN-UPDATE-88 TO TRUE. CHGBD214
|
||||
00692 GO TO S910-MSTR-IO. CHGBD214
|
||||
00693 CHGBD214
|
||||
00694 S910-READ. CHGBD214
|
||||
00695 SET L910-READ-88 TO TRUE. CHGBD214
|
||||
00696 GO TO S910-MSTR-IO. CHGBD214
|
||||
00697 CHGBD214
|
||||
00698 S910-START-BROWSE. CHGBD214
|
||||
00699 SET L910-START-BROWSE-88 TO TRUE. CHGBD214
|
||||
00700 GO TO S910-MSTR-IO. CHGBD214
|
||||
00701 CHGBD214
|
||||
00702 S910-READ-NEXT. CHGBD214
|
||||
00703 SET L910-READ-NEXT-88 TO TRUE. CHGBD214
|
||||
00704 GO TO S910-MSTR-IO. CHGBD214
|
||||
00705 CHGBD214
|
||||
00706 S910-WRITE. CHGBD214
|
||||
00707 SET L910-WRITE-88 TO TRUE. CHGBD214
|
||||
00708 GO TO S910-MSTR-IO. CHGBD214
|
||||
00709 CHGBD214
|
||||
00710 S910-CLOSE. CHGBD214
|
||||
00711 SET L910-CLOSE-88 TO TRUE. CHGBD214
|
||||
00712 GO TO S910-MSTR-IO. CHGBD214
|
||||
00713 CHGBD214
|
||||
00714 S910-MSTR-IO. CHGBD214
|
||||
00715 CALL 'DTSBU910' USING L910-LINK-AREA CHGBD214
|
||||
00716 MSKL-REC. CHGBD214
|
||||
00717 CHGBD214
|
||||
00718 S910-EXIT. CHGBD214
|
||||
00719 EXIT. CHGBD214
|
||||
00720 CHGBD214
|
||||
00721 S921-OPEN-READ. CHGBD214
|
||||
00722 SET L921-OPEN-READ-88 TO TRUE. CHGBD214
|
||||
00723 GO TO S921-AIX-IO. CHGBD214
|
||||
00724 CHGBD214
|
||||
00725 S921-CLOSE. CHGBD214
|
||||
00726 SET L921-CLOSE-88 TO TRUE. CHGBD214
|
||||
00727 GO TO S921-AIX-IO. CHGBD214
|
||||
00728 CHGBD214
|
||||
00729 S921-AIX-IO. CHGBD214
|
||||
00730 CALL 'DTSBU921' USING L921-LINK-AREA CHGBD214
|
||||
00731 ISKL-REC. CHGBD214
|
||||
00732 CHGBD214
|
||||
00733 S921-EXIT. CHGBD214
|
||||
00734 EXIT. CHGBD214
|
||||
00735 CHGBD214
|
||||
00736 ** REPORT RECORD I-O CHGBD214
|
||||
00737 S946-RPT-REC-O. CHGBD214
|
||||
00738 CALL 'DTSBU946' USING RSKL-REC. CHGBD214
|
||||
00739 CHGBD214
|
||||
00740 S946-EXIT. CHGBD214
|
||||
00741 EXIT. CHGBD214
|
||||
00742 CHGBD214
|
||||
00743 T0000-TERMINATE. CHGBD214
|
||||
00744 CHGBD214
|
||||
00745 CLOSE CHARGE-FILE CHGBD214
|
||||
00746 RELATIONSHIP-FILE. CHGBD214
|
||||
00747 CHGBD214
|
||||
00748 PERFORM S910-CLOSE THRU S910-EXIT. CHGBD214
|
||||
00749 CHGBD214
|
||||
00750 DISPLAY '***********************************************'. CHGBD214
|
||||
00751 DISPLAY '*** CHGBD214 COUNTS *** '. CHGBD214
|
||||
00752 DISPLAY '***'. CHGBD214
|
||||
00753 CHGBD214
|
||||
00754 DISPLAY ' RELATIONSHIP RECORDS READ : ' CHGBD214
|
||||
00755 WRK-REL-CNT. CHGBD214
|
||||
00756 CHGBD214
|
||||
00757 DISPLAY ' CHARGE RECORDS READ : ' CHGBD214
|
||||
00758 WRK-CHG5-CNT. CHGBD214
|
||||
00759 CHGBD214
|
||||
00760 DISPLAY ' TRANSFER RECORDS SAVED : ' CHGBD214
|
||||
00761 C5-LAST. CHGBD214
|
||||
00762 CHGBD214
|
||||
00763 DISPLAY ' TRANSFER RECORDS WRITTEN : ' CHGBD214
|
||||
00764 WRK-CHG5-WRITE-CNT. CHGBD214
|
||||
00765 CHGBD214
|
||||
00766 DISPLAY ' 100% TRANSFERS : ' CHGBD214
|
||||
00767 WRK-100PCT-CNT. CHGBD214
|
||||
00768 CHGBD214
|
||||
00769 DISPLAY '***********************************************'. CHGBD214
|
||||
00770 CHGBD214
|
||||
00771 T0000-EXIT. CHGBD214
|
||||
00772 EXIT. CHGBD214
|
||||
00773 CHGBD214
|
||||
00774 S999-ABEND. CHGBD214
|
||||
00775 DISPLAY '**** CHGBD214 ABENDING ' CHGBD214
|
||||
00776 ABEND-MSG. CHGBD214
|
||||
00777 CALL ABEND-MOD USING ABEND-CODE. CHGBD214
|
||||
00778 CHGBD214
|
||||
00779 S999-EXIT. CHGBD214
|
||||
00780 EXIT. CHGBD214
|
||||
00781 CHGBD214
|
||||
Reference in New Issue
Block a user