DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
279
Batch/CHGBR112.cob
Normal file
279
Batch/CHGBR112.cob
Normal file
@ -0,0 +1,279 @@
|
||||
00001 IDENTIFICATION DIVISION. 05/25/10
|
||||
00002 PROGRAM-ID. CHGBR112. CHGBR112
|
||||
00003 *AUTHOR. TCL. LV025
|
||||
00004 *DATE-WRITTEN. JULY 1999. CHGBR112
|
||||
00005 DATE-COMPILED. CHGBR112
|
||||
00006 SKIP3 CHGBR112
|
||||
00007 ***** CHGBR112
|
||||
00008 * CALLING SEQUENCE: CHGBD300 CALLS CHGBR112
|
||||
00009 * CHGBR112 READS BD210-CHG-REC CHGBR112
|
||||
00010 * CHGBR112 THEN WRITES T0260-TAX-REC CHGBR112
|
||||
00011 ***** CHGBR112
|
||||
00012 * CHGBR112
|
||||
00013 * FUNCTION: CHGBR112
|
||||
00014 * CHGBR112
|
||||
00015 * CREATE T026 TRANSACTION RECORDS TO EXPORT BENEFIT CHGBR112
|
||||
00016 * CHARGES TO TAX MASTER FILE. CHGBR112
|
||||
00017 * CHGBR112
|
||||
00018 * INPUT: CHGBR112
|
||||
00019 * CHGBR112
|
||||
00020 * CHGBD210 OUTPUT BENEFIT CHARGE FILE CHGBR112
|
||||
00021 * CHGBR112
|
||||
00022 * OUTPUT: NONE CHGBR112
|
||||
00023 * CHGBR112
|
||||
00024 * RECORDS READ: CHGBR112
|
||||
00025 * CHGBR112
|
||||
00026 * BD210-CHG-REC CHGBR112
|
||||
00027 * CHGBR112
|
||||
00028 * CHGBR112
|
||||
00029 * MODULES CALLED: CHGBR112
|
||||
00030 * CHGBR112
|
||||
00031 * DTSBU004 QUARTER EDIT/CONVERSION MODULE CHGBR112
|
||||
00032 * DTSBU005 ABSOLUTE TIME EDIT/CONVERSION MODULE CHGBR112
|
||||
00033 * DTSBU927 BATCH TRANSACTION COLLECTION MODULE CHGBR112
|
||||
00034 * CHGBR112
|
||||
00035 ***** CHGBR112
|
||||
00036 CHGBR112
|
||||
00037 ******************************************************************CHGBR112
|
||||
00038 * MODIFICATION HISTORY: *CHGBR112
|
||||
00039 * *CHGBR112
|
||||
00040 * 07-02-1999 NEW DEVELOPMENT *CHGBR112
|
||||
00041 * REFERENCE RFP # AUTHOR OF CHANGE - GD *CHGBR112
|
||||
00042 * *CHGBR112
|
||||
00043 * *CHGBR112
|
||||
00044 * 05-14-2010 RECOMPILE FOR NEW VERSION OF CHGIM004 *CHGBR112
|
||||
00045 * REFERENCE RFP # AUTHOR OF CHANGE - ZL1 *CHGBR112
|
||||
00046 * *CHGBR112
|
||||
00047 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR112
|
||||
00048 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *CHGBR112
|
||||
00049 * REFERENCE RFP #**** AUTHOR OF CHANGE - *** *CHGBR112
|
||||
00050 ******************************************************************CHGBR112
|
||||
00051 CHGBR112
|
||||
00052 SKIP3 CHGBR112
|
||||
00053 ENVIRONMENT DIVISION. CHGBR112
|
||||
00054 SKIP3 CHGBR112
|
||||
00055 DATA DIVISION. CHGBR112
|
||||
00056 WORKING-STORAGE SECTION. CHGBR112
|
||||
000565 77 PAN-VALET PICTURE X(24) VALUE '025CHGBR112 05/25/10'. CHGBR112
|
||||
00057 CHGBR112
|
||||
00058 01 WRK-AREA. CHGBR112
|
||||
00059 05 WRK-ABEND-CODE PIC S9(04) COMP CHGBR112
|
||||
00060 VALUE +120. CHGBR112
|
||||
00061 05 ABEND-MSG PIC X(60). CHGBR112
|
||||
00062 CHGBR112
|
||||
00063 05 WRK-FIRST-TIME-IND PIC X(01) VALUE 'Y'. CHGBR112
|
||||
00064 88 WRK-FIRST-TIME-YES-88 VALUE 'Y'. CHGBR112
|
||||
00065 88 WRK-FIRST-TIME-NO-88 VALUE 'N'. CHGBR112
|
||||
00066 CHGBR112
|
||||
00067 05 WRK-ERROR-IND PIC X(01). CHGBR112
|
||||
00068 88 WRK-ERROR-YES-88 VALUE 'Y'. CHGBR112
|
||||
00069 88 WRK-ERROR-NO-88 VALUE 'N'. CHGBR112
|
||||
00070 CHGBR112
|
||||
00071 05 WRK-CURR-EMP PIC S9(07) COMP-3. CHGBR112
|
||||
00072 05 WRK-NAME-CHK PIC X(04). CHGBR112
|
||||
00073 05 WRK-TOT-CHG-AMT PIC S9(07)V99 COMP-3. CHGBR112
|
||||
00074 05 WRK-TOT-CHG-AMT-DISP PIC Z(06)9.99-. CHGBR112
|
||||
00075 05 WRK-BEN-AMT-DISP PIC Z(06)9.99-. CHGBR112
|
||||
00076 05 WRK-ADJ-AMT-DISP PIC Z(06)9.99-. CHGBR112
|
||||
00077 05 WRK-SUBJECT-QTR PIC S9(05) COMP-3. CHGBR112
|
||||
00078 CHGBR112
|
||||
00079 01 L004-LINK-AREA. CHGBR112
|
||||
00080 ++INCLUDE DTSIL004 CHGBR112
|
||||
00081 CHGBR112
|
||||
00082 01 L005-LINK-AREA. CHGBR112
|
||||
00083 ++INCLUDE DTSIL005 CHGBR112
|
||||
00084 CHGBR112
|
||||
00085 01 L927-LINK-AREA. CHGBR112
|
||||
00086 ++INCLUDE DTSIL927 CHGBR112
|
||||
00087 CHGBR112
|
||||
00088 01 T026-REC. CHGBR112
|
||||
00089 ++INCLUDE DTSIT026 CHGBR112
|
||||
00090 CHGBR112
|
||||
00091 EJECT CHGBR112
|
||||
00092 LINKAGE SECTION. CHGBR112
|
||||
00093 01 CHG-LINK-REC. CHGBR112
|
||||
00094 ++INCLUDE CHGIL001 CHGBR112
|
||||
00095 CHGBR112
|
||||
00096 01 BD210-CHG-REC. CHGBR112
|
||||
00097 ++INCLUDE CHGIM004 CHGBR112
|
||||
00098 CHGBR112
|
||||
00099 PROCEDURE DIVISION USING CHG-LINK-REC CHGBR112
|
||||
00100 BD210-CHG-REC. CHGBR112
|
||||
00101 SKIP2 CHGBR112
|
||||
00102 CHGBR112-MAIN. CHGBR112
|
||||
00103 IF CHG-LINK1-COMMAND = 'P' CHGBR112
|
||||
00104 PERFORM P0000-PROCESS THRU P0000-EXIT CHGBR112
|
||||
00105 ELSE CHGBR112
|
||||
00106 IF CHG-LINK1-COMMAND = 'I' CHGBR112
|
||||
00107 PERFORM I0000-INITIATE THRU I0000-EXIT CHGBR112
|
||||
00108 ELSE CHGBR112
|
||||
00109 PERFORM T0000-TERMINATE THRU T0000-EXIT. CHGBR112
|
||||
00110 CHGBR112
|
||||
00111 CHGBR112-EXIT. CHGBR112
|
||||
00112 GOBACK. CHGBR112
|
||||
00113 EJECT CHGBR112
|
||||
00114 I0000-INITIATE. CHGBR112
|
||||
00115 MOVE ZERO TO WRK-CURR-EMP CHGBR112
|
||||
00116 WRK-TOT-CHG-AMT. CHGBR112
|
||||
00117 CHGBR112
|
||||
00118 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. CHGBR112
|
||||
00119 CHGBR112
|
||||
00120 MOVE LENGTH OF T026-REC TO T026-LENGTH. CHGBR112
|
||||
00121 CHGBR112
|
||||
00122 MOVE '026' TO T026-REC-TYPE. CHGBR112
|
||||
00123 CHGBR112
|
||||
00124 MOVE 'SYSTEM' TO T026-ORIGIN. CHGBR112
|
||||
00125 CHGBR112
|
||||
00126 PERFORM S005-FROM-SYS THRU S005-EXIT. CHGBR112
|
||||
00127 CHGBR112
|
||||
00128 MOVE L005-DATE TO T026-SYS-DATE. CHGBR112
|
||||
00129 CHGBR112
|
||||
00130 MOVE L005-TIME TO T026-SYS-TIME. CHGBR112
|
||||
00131 CHGBR112
|
||||
00132 MOVE LOW-VALUES TO T026-DATA-AREA. CHGBR112
|
||||
00133 CHGBR112
|
||||
00134 MOVE CHG-LINK1-PERIOD-BEGIN TO L004-DATE. CHGBR112
|
||||
00135 PERFORM S004-FROM-DATE THRU S004-EXIT. CHGBR112
|
||||
00136 MOVE L004-QTR-5-9 TO WRK-SUBJECT-QTR. CHGBR112
|
||||
00137 CHGBR112
|
||||
00138 I0000-EXIT. CHGBR112
|
||||
00139 EXIT. CHGBR112
|
||||
00140 CHGBR112
|
||||
00141 P0000-PROCESS. CHGBR112
|
||||
00142 *& CHGBR112
|
||||
00143 IF CHG4-EMP-NO <= 010172 CHGBR112
|
||||
00144 MOVE CHG4-CURR-BEN-AMT TO WRK-BEN-AMT-DISP. CHGBR112
|
||||
00145 MOVE CHG4-CURR-ADJ-AMT TO WRK-ADJ-AMT-DISP. CHGBR112
|
||||
00146 ** DISPLAY 'P0000 ' CHG4-EMP-NO ' ' CHG4-SSN CHGBR112
|
||||
00147 ** ' ' WRK-BEN-AMT-DISP CHGBR112
|
||||
00148 ** ' ' WRK-ADJ-AMT-DISP. CHGBR112
|
||||
00149 *& CHGBR112
|
||||
00150 IF CHG4-EMP-NO NOT = WRK-CURR-EMP CHGBR112
|
||||
00151 IF WRK-CURR-EMP NOT = ZERO CHGBR112
|
||||
00152 PERFORM P3000-GENERATE-T026 THRU P3000-EXIT CHGBR112
|
||||
00153 PERFORM P1000-INIT-EMP THRU P1000-EXIT CHGBR112
|
||||
00154 PERFORM P2000-ACCUM-CHG THRU P2000-EXIT CHGBR112
|
||||
00155 ELSE CHGBR112
|
||||
00156 PERFORM P1000-INIT-EMP THRU P1000-EXIT CHGBR112
|
||||
00157 PERFORM P2000-ACCUM-CHG THRU P2000-EXIT CHGBR112
|
||||
00158 END-IF CHGBR112
|
||||
00159 ELSE CHGBR112
|
||||
00160 PERFORM P2000-ACCUM-CHG THRU P2000-EXIT. CHGBR112
|
||||
00161 CHGBR112
|
||||
00162 P0000-EXIT. CHGBR112
|
||||
00163 EXIT. CHGBR112
|
||||
00164 CHGBR112
|
||||
00165 P1000-INIT-EMP. CHGBR112
|
||||
00166 MOVE CHG4-EMP-NO TO WRK-CURR-EMP. CHGBR112
|
||||
00167 MOVE CHG4-EMP-NAME-CHK TO WRK-NAME-CHK. CHGBR112
|
||||
00168 MOVE ZERO TO WRK-TOT-CHG-AMT. CHGBR112
|
||||
00169 CHGBR112
|
||||
00170 P1000-EXIT. CHGBR112
|
||||
00171 EXIT. CHGBR112
|
||||
00172 CHGBR112
|
||||
00173 P2000-ACCUM-CHG. CHGBR112
|
||||
00174 COMPUTE WRK-TOT-CHG-AMT = CHGBR112
|
||||
00175 WRK-TOT-CHG-AMT + CHGBR112
|
||||
00176 CHG4-CURR-BEN-AMT + CHGBR112
|
||||
00177 CHG4-CURR-ADJ-AMT. CHGBR112
|
||||
00178 CHGBR112
|
||||
00179 P2000-EXIT. CHGBR112
|
||||
00180 EXIT. CHGBR112
|
||||
00181 CHGBR112
|
||||
00182 P3000-GENERATE-T026. CHGBR112
|
||||
00183 MOVE WRK-CURR-EMP TO T026-EMP-NO. CHGBR112
|
||||
00184 CHGBR112
|
||||
00185 SET T026-REIMB-CHG TO TRUE. CHGBR112
|
||||
00186 CHGBR112
|
||||
00187 MOVE WRK-NAME-CHK TO T026-NAME-CHECK. CHGBR112
|
||||
00188 CHGBR112
|
||||
00189 MOVE WRK-TOT-CHG-AMT TO T026-AMT. CHGBR112
|
||||
00190 CHGBR112
|
||||
00191 MOVE +0 TO T026-RECEIVED-DATE. CHGBR112
|
||||
00192 CHGBR112
|
||||
00193 MOVE WRK-SUBJECT-QTR TO T026-APPLIC-YRQ. CHGBR112
|
||||
00194 CHGBR112
|
||||
00195 MOVE SPACES TO T026-APPLIC-IND CHGBR112
|
||||
00196 T026-INT-SPAN-IND. CHGBR112
|
||||
00197 CHGBR112
|
||||
00198 MOVE +0 TO T026-APPLIC-BATCH-NO CHGBR112
|
||||
00199 T026-APPLIC-ITEM-NO CHGBR112
|
||||
00200 T026-DATE-1 CHGBR112
|
||||
00201 T026-DATE-2. CHGBR112
|
||||
00202 CHGBR112
|
||||
00203 CHGBR112
|
||||
00204 SET T026-NO-INT-RATE-88 TO TRUE. CHGBR112
|
||||
00205 CHGBR112
|
||||
00206 MOVE 'SYS' TO T026-RESPONSIBLE-ACTIVITY. CHGBR112
|
||||
00207 CHGBR112
|
||||
00208 MOVE 'SYSTEM' TO T026-RESPONSIBLE-OP-ID. CHGBR112
|
||||
00209 CHGBR112
|
||||
00210 CHGBR112
|
||||
00211 *& CHGBR112
|
||||
00212 * IF WRK-CURR-EMP = 010170 CHGBR112
|
||||
00213 MOVE WRK-TOT-CHG-AMT TO WRK-TOT-CHG-AMT-DISP. CHGBR112
|
||||
00214 ** DISPLAY 'P3000 ' WRK-CURR-EMP CHGBR112
|
||||
00215 ** ' ' WRK-TOT-CHG-AMT-DISP CHGBR112
|
||||
00216 ** ' ' WRK-NAME-CHK CHGBR112
|
||||
00217 ** ' ' WRK-SUBJECT-QTR. CHGBR112
|
||||
00218 *& CHGBR112
|
||||
00219 PERFORM S927-WRITE THRU S927-EXIT. CHGBR112
|
||||
00220 CHGBR112
|
||||
00221 P3000-EXIT. CHGBR112
|
||||
00222 EXIT. CHGBR112
|
||||
00223 EJECT CHGBR112
|
||||
00224 T0000-TERMINATE. CHGBR112
|
||||
00225 IF WRK-TOT-CHG-AMT NOT = ZERO CHGBR112
|
||||
00226 PERFORM P3000-GENERATE-T026 THRU P3000-EXIT. CHGBR112
|
||||
00227 CHGBR112
|
||||
00228 PERFORM S927-CLOSE THRU S927-EXIT. CHGBR112
|
||||
00229 T0000-EXIT. CHGBR112
|
||||
00230 EXIT. CHGBR112
|
||||
00231 EJECT CHGBR112
|
||||
00232 S004-FROM-DATE. CHGBR112
|
||||
00233 SET L004-FROM-DATE TO TRUE. CHGBR112
|
||||
00234 GO TO S004-YRQ. CHGBR112
|
||||
00235 CHGBR112
|
||||
00236 S004-YRQ. CHGBR112
|
||||
00237 CALL 'DTSBU004' USING L004-LINK-AREA. CHGBR112
|
||||
00238 S004-EXIT. CHGBR112
|
||||
00239 EXIT. CHGBR112
|
||||
00240 CHGBR112
|
||||
00241 S005-FROM-SYS. CHGBR112
|
||||
00242 SET L005-FROM-SYS TO TRUE. CHGBR112
|
||||
00243 GO TO S005-ABSTIME. CHGBR112
|
||||
00244 CHGBR112
|
||||
00245 S005-ABSTIME. CHGBR112
|
||||
00246 CALL 'DTSBU005' USING L005-LINK-AREA. CHGBR112
|
||||
00247 S005-EXIT. CHGBR112
|
||||
00248 EXIT. CHGBR112
|
||||
00249 CHGBR112
|
||||
00250 S927-OPEN-UPDATE. CHGBR112
|
||||
00251 SET L927-OPEN-UPDATE-88 TO TRUE. CHGBR112
|
||||
00252 GO TO S927-BTC-O. CHGBR112
|
||||
00253 CHGBR112
|
||||
00254 S927-WRITE. CHGBR112
|
||||
00255 SET L927-WRITE-88 TO TRUE. CHGBR112
|
||||
00256 GO TO S927-BTC-O. CHGBR112
|
||||
00257 CHGBR112
|
||||
00258 S927-CLOSE. CHGBR112
|
||||
00259 SET L927-CLOSE-88 TO TRUE. CHGBR112
|
||||
00260 GO TO S927-BTC-O. CHGBR112
|
||||
00261 CHGBR112
|
||||
00262 S927-BTC-O. CHGBR112
|
||||
00263 CALL 'DTSBU927' USING L927-LINK-AREA CHGBR112
|
||||
00264 T026-REC. CHGBR112
|
||||
00265 S927-EXIT. CHGBR112
|
||||
00266 EXIT. CHGBR112
|
||||
00267 SKIP3 CHGBR112
|
||||
00268 CHGBR112
|
||||
00269 CHGBR112
|
||||
00270 CHGBR112
|
||||
00271 S999-ABEND. CHGBR112
|
||||
00272 DISPLAY '**** CHGBR100 ABENDING ' CHGBR112
|
||||
00273 ABEND-MSG. CHGBR112
|
||||
00274 *& ABEND COMMENTED OUT FOR TESTING CHGBR112
|
||||
00275 CALL 'DTSBU999' USING WRK-ABEND-CODE. CHGBR112
|
||||
00276 SET WRK-ERROR-YES-88 TO TRUE. CHGBR112
|
||||
00277 S999-EXIT. CHGBR112
|
||||
00278 EXIT. CHGBR112
|
||||
Reference in New Issue
Block a user