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