DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
994
Batch/DTSBX347.cob
Normal file
994
Batch/DTSBX347.cob
Normal file
@ -0,0 +1,994 @@
|
||||
00001 IDENTIFICATION DIVISION. 09/30/10
|
||||
00002 PROGRAM-ID. DTSBX347. DTSBX347
|
||||
00003 AUTHOR. NGC. LV003
|
||||
00004 DATE-WRITTEN. JANUARY 2010. DTSBX347
|
||||
00005 DATE-COMPILED. DTSBX347
|
||||
00006 SKIP3 DTSBX347
|
||||
00007 ***** DTSBX347
|
||||
00008 * DTSBX347
|
||||
00009 * FUNCTION: INTERNAL WEB MAINFRAME EXTRACT - DTSBX347
|
||||
00010 * ACCOUNTING TRANSACTION UPDATES DTSBX347
|
||||
00011 * DTSBX347
|
||||
00012 * DTSBX347
|
||||
00013 ***** DTSBX347
|
||||
00014 ******************************************************************DTSBX347
|
||||
00015 * MODIFICATION HISTORY: *DTSBX347
|
||||
00016 * *DTSBX347
|
||||
00017 * 12-16-2009 CORRECTED PROGRAM CODE - CHANGED TO PIC X. *DTSBX347
|
||||
00018 * REFERENCE RFP # AUTHOR OF CHANGE - GD *DTSBX347
|
||||
00019 * *DTSBX347
|
||||
00020 ******************************************************************DTSBX347
|
||||
00021 SKIP3 DTSBX347
|
||||
00022 ENVIRONMENT DIVISION. DTSBX347
|
||||
00023 SKIP2 DTSBX347
|
||||
00024 INPUT-OUTPUT SECTION. DTSBX347
|
||||
00025 DTSBX347
|
||||
00026 FILE-CONTROL. DTSBX347
|
||||
00027 SELECT ATH-FILE ASSIGN TO AS-DTSFATHI DTSBX347
|
||||
00028 ORGANIZATION IS SEQUENTIAL DTSBX347
|
||||
00029 FILE STATUS IS ATH-FILE-STATUS DTSBX347
|
||||
00030 ACCESS IS SEQUENTIAL. DTSBX347
|
||||
00031 DTSBX347
|
||||
00032 SELECT ATH-TRANS-FILE ASSIGN TO ATHFTRNO DTSBX347
|
||||
00033 FILE STATUS IS ATH-TRANS-FILE-STATUS. DTSBX347
|
||||
00034 DTSBX347
|
||||
00035 SELECT ATH-HDR-FILE ASSIGN TO ATHFHDRO DTSBX347
|
||||
00036 FILE STATUS IS ATH-HDR-FILE-STATUS. DTSBX347
|
||||
00037 DTSBX347
|
||||
00038 SELECT ATH-RPT-FILE ASSIGN TO ATHFRPTO DTSBX347
|
||||
00039 FILE STATUS IS ATH-RPT-FILE-STATUS. DTSBX347
|
||||
00040 DTSBX347
|
||||
00041 SELECT ATH-ATX-FILE ASSIGN TO ATHFATXO DTSBX347
|
||||
00042 FILE STATUS IS ATH-ATX-FILE-STATUS. DTSBX347
|
||||
00043 DTSBX347
|
||||
00044 SELECT ATH-PAY-FILE ASSIGN TO ATHFPAYO DTSBX347
|
||||
00045 FILE STATUS IS ATH-PAY-FILE-STATUS. DTSBX347
|
||||
00046 DTSBX347
|
||||
00047 SELECT ATH-ADJ-FILE ASSIGN TO ATHFADJO DTSBX347
|
||||
00048 FILE STATUS IS ATH-ADJ-FILE-STATUS. DTSBX347
|
||||
00049 DTSBX347
|
||||
00050 DATA DIVISION. DTSBX347
|
||||
00051 SKIP3 DTSBX347
|
||||
00052 FILE SECTION. DTSBX347
|
||||
00053 FD ATH-FILE DTSBX347
|
||||
00054 RECORD CONTAINS 256 CHARACTERS DTSBX347
|
||||
00055 DATA RECORD IS ATH-REC. DTSBX347
|
||||
00056 01 ATH-REC. DTSBX347
|
||||
00057 ++INCLUDE DTSIAATH DTSBX347
|
||||
00058 DTSBX347
|
||||
00059 FD ATH-TRANS-FILE DTSBX347
|
||||
00060 RECORDING MODE IS F DTSBX347
|
||||
00061 BLOCK CONTAINS 0 CHARACTERS DTSBX347
|
||||
00062 LABEL RECORDS ARE STANDARD. DTSBX347
|
||||
00063 DTSBX347
|
||||
00064 01 ATH-TRANS-REC PIC X(48). DTSBX347
|
||||
00065 DTSBX347
|
||||
00066 FD ATH-HDR-FILE DTSBX347
|
||||
00067 RECORDING MODE IS F DTSBX347
|
||||
00068 BLOCK CONTAINS 0 CHARACTERS DTSBX347
|
||||
00069 LABEL RECORDS ARE STANDARD. DTSBX347
|
||||
00070 DTSBX347
|
||||
00071 01 ATH-HDR-REC PIC X(134). DTSBX347
|
||||
00072 DTSBX347
|
||||
00073 FD ATH-RPT-FILE DTSBX347
|
||||
00074 RECORDING MODE IS F DTSBX347
|
||||
00075 BLOCK CONTAINS 0 CHARACTERS DTSBX347
|
||||
00076 LABEL RECORDS ARE STANDARD. DTSBX347
|
||||
00077 DTSBX347
|
||||
00078 01 ATH-RPT-REC PIC X(190). DTSBX347
|
||||
00079 DTSBX347
|
||||
00080 FD ATH-ATX-FILE DTSBX347
|
||||
00081 RECORDING MODE IS F DTSBX347
|
||||
00082 BLOCK CONTAINS 0 CHARACTERS DTSBX347
|
||||
00083 LABEL RECORDS ARE STANDARD. DTSBX347
|
||||
00084 DTSBX347
|
||||
00085 01 ATH-ATX-REC PIC X(234). DTSBX347
|
||||
00086 DTSBX347
|
||||
00087 FD ATH-PAY-FILE DTSBX347
|
||||
00088 RECORDING MODE IS F DTSBX347
|
||||
00089 BLOCK CONTAINS 0 CHARACTERS DTSBX347
|
||||
00090 LABEL RECORDS ARE STANDARD. DTSBX347
|
||||
00091 DTSBX347
|
||||
00092 01 ATH-PAY-REC PIC X(113). DTSBX347
|
||||
00093 DTSBX347
|
||||
00094 FD ATH-ADJ-FILE DTSBX347
|
||||
00095 RECORDING MODE IS F DTSBX347
|
||||
00096 BLOCK CONTAINS 0 CHARACTERS DTSBX347
|
||||
00097 LABEL RECORDS ARE STANDARD. DTSBX347
|
||||
00098 DTSBX347
|
||||
00099 01 ATH-ADJ-REC PIC X(138). DTSBX347
|
||||
00100 DTSBX347
|
||||
00101 EJECT DTSBX347
|
||||
00102 WORKING-STORAGE SECTION. DTSBX347
|
||||
001025 77 PAN-VALET PICTURE X(24) VALUE '003DTSBX347 09/30/10'. DTSBX347
|
||||
00103 DTSBX347
|
||||
00104 01 WRK-AREA. DTSBX347
|
||||
00105 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +347.DTSBX347
|
||||
00106 DTSBX347
|
||||
00107 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX347'.DTSBX347
|
||||
00108 DTSBX347
|
||||
00109 05 ATH-FILE-STATUS PIC X(02) VALUE SPACES. DTSBX347
|
||||
00110 88 ATH-FILE-OK-88 VALUE ZERO. DTSBX347
|
||||
00111 88 ATH-FILE-EOF-88 VALUE '10'. DTSBX347
|
||||
00112 DTSBX347
|
||||
00113 05 ATH-TRANS-FILE-STATUS PIC X(02) VALUE SPACES. DTSBX347
|
||||
00114 88 ATH-TRANS-FILE-OK-88 VALUE ZERO. DTSBX347
|
||||
00115 DTSBX347
|
||||
00116 05 ATH-HDR-FILE-STATUS PIC X(02) VALUE SPACES. DTSBX347
|
||||
00117 88 ATH-HDR-FILE-OK-88 VALUE ZERO. DTSBX347
|
||||
00118 DTSBX347
|
||||
00119 05 ATH-RPT-FILE-STATUS PIC X(02) VALUE SPACES. DTSBX347
|
||||
00120 88 ATH-RPT-FILE-OK-88 VALUE ZERO. DTSBX347
|
||||
00121 DTSBX347
|
||||
00122 05 ATH-ATX-FILE-STATUS PIC X(02) VALUE SPACES. DTSBX347
|
||||
00123 88 ATH-ATX-FILE-OK-88 VALUE ZERO. DTSBX347
|
||||
00124 DTSBX347
|
||||
00125 05 ATH-PAY-FILE-STATUS PIC X(02) VALUE SPACES. DTSBX347
|
||||
00126 88 ATH-PAY-FILE-OK-88 VALUE ZERO. DTSBX347
|
||||
00127 DTSBX347
|
||||
00128 05 ATH-ADJ-FILE-STATUS PIC X(02) VALUE SPACES. DTSBX347
|
||||
00129 88 ATH-ADJ-FILE-OK-88 VALUE ZERO. DTSBX347
|
||||
00130 DTSBX347
|
||||
00131 05 WRK-FIRST-DATE PIC S9(09) COMP-3 DTSBX347
|
||||
00132 VALUE +999999999. DTSBX347
|
||||
00133 05 WRK-ATH-FILE-IN-CNT PIC 9(07) COMP-3 VALUE 0. DTSBX347
|
||||
00134 05 WRK-ATH-TRANS-CNT PIC 9(07) COMP-3 VALUE 0. DTSBX347
|
||||
00135 05 WRK-ATH-HDR-CNT PIC 9(07) COMP-3 VALUE 0. DTSBX347
|
||||
00136 05 WRK-ATH-RPT-CNT PIC 9(07) COMP-3 VALUE 0. DTSBX347
|
||||
00137 05 WRK-ATH-ATX-CNT PIC 9(07) COMP-3 VALUE 0. DTSBX347
|
||||
00138 05 WRK-ATH-PAY-CNT PIC 9(07) COMP-3 VALUE 0. DTSBX347
|
||||
00139 05 WRK-ATH-ADJ-CNT PIC 9(07) COMP-3 VALUE 0. DTSBX347
|
||||
00140 DTSBX347
|
||||
00141 05 WRK-SEQ PIC 9(05) COMP-3 VALUE 0. DTSBX347
|
||||
00142 DTSBX347
|
||||
00143 01 WRK-TRANS-REC. DTSBX347
|
||||
00144 05 TRN-SEQ PIC 9(05). DTSBX347
|
||||
00145 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00146 05 TRN-BATCH PIC X(05). DTSBX347
|
||||
00147 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00148 05 TRN-ITEM PIC X(03). DTSBX347
|
||||
00149 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00150 05 TRN-DATE PIC X(10). DTSBX347
|
||||
00151 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00152 05 TRN-TIME PIC X(08). DTSBX347
|
||||
00153 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00154 05 TRN-REC-TYPE PIC X(01). DTSBX347
|
||||
00155 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00156 05 TRN-ACTION PIC X(01). DTSBX347
|
||||
00157 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00158 05 TRN-OPID PIC X(08). DTSBX347
|
||||
00159 DTSBX347
|
||||
00160 01 WRK-HDR-REC. DTSBX347
|
||||
00161 05 HDR-SEQ PIC 9(05). DTSBX347
|
||||
00162 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00163 05 HDR-BAL-IND PIC X(01). DTSBX347
|
||||
00164 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00165 05 HDR-HELD-IND PIC X(01). DTSBX347
|
||||
00166 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00167 05 HDR-ESTB-OPID PIC X(08). DTSBX347
|
||||
00168 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00169 05 HDR-ESTB-DATE PIC X(10). DTSBX347
|
||||
00170 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00171 05 HDR-CHNG-OPID PIC X(08). DTSBX347
|
||||
00172 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00173 05 HDR-CHNG-DATE PIC X(10). DTSBX347
|
||||
00174 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00175 05 HDR-DEPOSIT-DATE PIC X(10). DTSBX347
|
||||
00176 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00177 05 HDR-RCVD-DATE PIC X(10). DTSBX347
|
||||
00178 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00179 05 HDR-LAST-ITEM PIC 9(03). DTSBX347
|
||||
00180 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00181 05 HDR-CNTL-TRAN-CNT PIC 9(03). DTSBX347
|
||||
00182 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00183 05 HDR-ATC-TRAN-CNT PIC 9(03). DTSBX347
|
||||
00184 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00185 05 HDR-PROCESS-TRAN-CNT PIC 9(03). DTSBX347
|
||||
00186 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00187 05 HDR-CNTL-REMIT-AMT PIC --------9.99. DTSBX347
|
||||
00188 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00189 05 HDR-ATC-REMIT-AMT PIC --------9.99. DTSBX347
|
||||
00190 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00191 05 HDR-PROCESS-REMIT-AMT PIC --------9.99. DTSBX347
|
||||
00192 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00193 05 HDR-ANN-BATCH-IND PIC X(01). DTSBX347
|
||||
00194 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00195 05 HDR-BANK-BATCH PIC X(05). DTSBX347
|
||||
00196 DTSBX347
|
||||
00197 01 WRK-RPT-REC. DTSBX347
|
||||
00198 05 RPT-SEQ PIC 9(05). DTSBX347
|
||||
00199 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00200 05 RPT-NAME-CHECK PIC X(04). DTSBX347
|
||||
00201 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00202 05 RPT-EMP-NBR PIC 9(06). DTSBX347
|
||||
00203 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00204 05 RPT-RPT-TYPE PIC X(02). DTSBX347
|
||||
00205 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00206 05 RPT-QTR PIC X(06). DTSBX347
|
||||
00207 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00208 05 RPT-TOT-WAGE PIC ----------9.99. DTSBX347
|
||||
00209 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00210 05 RPT-EXCESS-WAGE PIC ----------9.99. DTSBX347
|
||||
00211 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00212 05 RPT-TAX-WAGE PIC ----------9.99. DTSBX347
|
||||
00213 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00214 05 RPT-REMIT-AMT PIC --------9.99. DTSBX347
|
||||
00215 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00216 05 RPT-WAGE-RPT-IND PIC X(01). DTSBX347
|
||||
00217 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00218 05 RPT-WAIVE-BOTH-IND PIC X(01). DTSBX347
|
||||
00219 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00220 05 RPT-WAIVE-INT-IND PIC X(01). DTSBX347
|
||||
00221 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00222 05 RPT-WAIVE-PEN-IND PIC X(01). DTSBX347
|
||||
00223 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00224 05 RPT-TOT-WORKER-CNT PIC 9(07). DTSBX347
|
||||
00225 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00226 05 RPT-MONTH1-CNT PIC 9(07). DTSBX347
|
||||
00227 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00228 05 RPT-MONTH2-CNT PIC 9(07). DTSBX347
|
||||
00229 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00230 05 RPT-MONTH3-CNT PIC 9(07). DTSBX347
|
||||
00231 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00232 05 RPT-RCVD-DATE PIC X(10). DTSBX347
|
||||
00233 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00234 05 RPT-DEPOSIT-DATE PIC X(10). DTSBX347
|
||||
00235 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00236 05 RPT-RESP-ACTIVITY PIC X(03). DTSBX347
|
||||
00237 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00238 05 RPT-RESP-OPID PIC X(08). DTSBX347
|
||||
00239 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00240 05 RPT-PASSED-FULL-EDITS PIC X(01). DTSBX347
|
||||
00241 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00242 05 RPT-TRACE-NBR PIC X(15). DTSBX347
|
||||
00243 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00244 05 RPT-PSEUDO-BATCH PIC X(05). DTSBX347
|
||||
00245 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00246 05 RPT-PSEUDO-ITEM PIC X(03). DTSBX347
|
||||
00247 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00248 05 RPT-STATUS-CHNG PIC X(01). DTSBX347
|
||||
00249 DTSBX347
|
||||
00250 01 WRK-ATX-REC. DTSBX347
|
||||
00251 05 ATX-SEQ PIC 9(05). DTSBX347
|
||||
00252 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00253 05 ATX-NAME-CHECK PIC X(04). DTSBX347
|
||||
00254 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00255 05 ATX-EMP-NBR PIC 9(06). DTSBX347
|
||||
00256 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00257 05 ATX-RPT-TYPE PIC X(02). DTSBX347
|
||||
00258 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00259 05 ATX-QTR PIC X(06). DTSBX347
|
||||
00260 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00261 05 ATX-TOT-WAGE PIC ----------9.99. DTSBX347
|
||||
00262 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00263 05 ATX-EXCESS-WAGE PIC ----------9.99. DTSBX347
|
||||
00264 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00265 05 ATX-TAX-WAGE PIC ----------9.99. DTSBX347
|
||||
00266 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00267 05 ATX-REMIT-AMT PIC --------9.99. DTSBX347
|
||||
00268 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00269 05 ATX-WAIVE-BOTH-IND PIC X(01). DTSBX347
|
||||
00270 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00271 05 ATX-WAIVE-INT-IND PIC X(01). DTSBX347
|
||||
00272 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00273 05 ATX-WAIVE-PEN-IND PIC X(01). DTSBX347
|
||||
00274 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00275 05 ATX-TOT-WORKER-CNT PIC 9(07). DTSBX347
|
||||
00276 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00277 05 ATX-JAN-CNT PIC 9(07). DTSBX347
|
||||
00278 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00279 05 ATX-FEB-CNT PIC 9(07). DTSBX347
|
||||
00280 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00281 05 ATX-MAR-CNT PIC 9(07). DTSBX347
|
||||
00282 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00283 05 ATX-APR-CNT PIC 9(07). DTSBX347
|
||||
00284 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00285 05 ATX-MAY-CNT PIC 9(07). DTSBX347
|
||||
00286 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00287 05 ATX-JUN-CNT PIC 9(07). DTSBX347
|
||||
00288 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00289 05 ATX-JUL-CNT PIC 9(07). DTSBX347
|
||||
00290 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00291 05 ATX-AUG-CNT PIC 9(07). DTSBX347
|
||||
00292 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00293 05 ATX-SEP-CNT PIC 9(07). DTSBX347
|
||||
00294 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00295 05 ATX-OCT-CNT PIC 9(07). DTSBX347
|
||||
00296 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00297 05 ATX-NOV-CNT PIC 9(07). DTSBX347
|
||||
00298 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00299 05 ATX-DEC-CNT PIC 9(07). DTSBX347
|
||||
00300 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00301 05 ATX-RCVD-DATE PIC X(10). DTSBX347
|
||||
00302 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00303 05 ATX-DEPOSIT-DATE PIC X(10). DTSBX347
|
||||
00304 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00305 05 ATX-RESP-ACTIVITY PIC X(03). DTSBX347
|
||||
00306 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00307 05 ATX-RESP-OPID PIC X(08). DTSBX347
|
||||
00308 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00309 05 ATX-PASSED-FULL-EDITS PIC X(01). DTSBX347
|
||||
00310 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00311 05 ATX-STATUS-CHNG PIC X(01). DTSBX347
|
||||
00312 DTSBX347
|
||||
00313 01 WRK-PAY-REC. DTSBX347
|
||||
00314 05 PAY-SEQ PIC 9(05). DTSBX347
|
||||
00315 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00316 05 PAY-NAME-CHECK PIC X(04). DTSBX347
|
||||
00317 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00318 05 PAY-EMP-NBR PIC 9(06). DTSBX347
|
||||
00319 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00320 05 PAY-PAY-TYPE PIC X(02). DTSBX347
|
||||
00321 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00322 05 PAY-REMIT-AMT PIC --------9.99. DTSBX347
|
||||
00323 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00324 05 PAY-WAIVE-INT-IND PIC X(01). DTSBX347
|
||||
00325 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00326 05 PAY-WAIVE-PEN-IND PIC X(01). DTSBX347
|
||||
00327 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00328 05 PAY-NSF-PEN-CHG-IND PIC X(01). DTSBX347
|
||||
00329 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00330 05 PAY-RCVD-DATE PIC X(10). DTSBX347
|
||||
00331 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00332 05 PAY-DEPOSIT-DATE PIC X(10). DTSBX347
|
||||
00333 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00334 05 PAY-APPLIC-QTR PIC X(06). DTSBX347
|
||||
00335 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00336 05 PAY-APPLIC-IND PIC X(02). DTSBX347
|
||||
00337 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00338 05 PAY-APPLIC-BATCH PIC X(05). DTSBX347
|
||||
00339 05 FILLER PIC X(03) VALUE ';'. DTSBX347
|
||||
00340 05 PAY-APPLIC-ITEM PIC X(02). DTSBX347
|
||||
00341 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00342 05 PAY-RESP-ACTIVITY PIC X(03). DTSBX347
|
||||
00343 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00344 05 PAY-RESP-OPID PIC X(08). DTSBX347
|
||||
00345 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00346 05 PAY-ANN-RPT-IND PIC X(01). DTSBX347
|
||||
00347 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00348 05 PAY-TRACE-NBR PIC X(15). DTSBX347
|
||||
00349 DTSBX347
|
||||
00350 01 WRK-ADJ-REC. DTSBX347
|
||||
00351 05 ADJ-SEQ PIC 9(05). DTSBX347
|
||||
00352 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00353 05 ADJ-NAME-CHECK PIC X(04). DTSBX347
|
||||
00354 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00355 05 ADJ-EMP-NBR PIC 9(06). DTSBX347
|
||||
00356 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00357 05 ADJ-ADJ-TYPE PIC X(02). DTSBX347
|
||||
00358 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00359 05 ADJ-AMT PIC --------9.99. DTSBX347
|
||||
00360 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00361 05 ADJ-RCVD-DATE PIC X(10). DTSBX347
|
||||
00362 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00363 05 ADJ-DEPOSIT-DATE PIC X(10). DTSBX347
|
||||
00364 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00365 05 ADJ-APPLIC-QTR PIC X(06). DTSBX347
|
||||
00366 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00367 05 ADJ-APPLIC-IND PIC X(02). DTSBX347
|
||||
00368 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00369 05 ADJ-APPLIC-BATCH PIC X(05). DTSBX347
|
||||
00370 05 FILLER PIC X(03) VALUE ';'. DTSBX347
|
||||
00371 05 ADJ-APPLIC-ITEM PIC X(02). DTSBX347
|
||||
00372 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00373 05 ADJ-DATE1 PIC X(10). DTSBX347
|
||||
00374 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00375 05 ADJ-DATE2 PIC X(10). DTSBX347
|
||||
00376 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00377 05 ADJ-INT-SPAN-IND PIC X(01). DTSBX347
|
||||
00378 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00379 05 ADJ-INT-RATE PIC 99.9. DTSBX347
|
||||
00380 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00381 05 ADJ-RESP-ACTIVITY PIC X(03). DTSBX347
|
||||
00382 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00383 05 ADJ-RESP-OPID PIC X(08). DTSBX347
|
||||
00384 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00385 05 ADJ-COMPROMISE-DT PIC X(10). DTSBX347
|
||||
00386 05 FILLER PIC X(01) VALUE ';'. DTSBX347
|
||||
00387 05 ADJ-COMPROMISE-TIME PIC X(08). DTSBX347
|
||||
00388 EJECT DTSBX347
|
||||
00389 01 L001-LINK-AREA. DTSBX347
|
||||
00390 ++INCLUDE DTSIL001 DTSBX347
|
||||
00391 DTSBX347
|
||||
00392 01 L004-LINK-AREA. DTSBX347
|
||||
00393 ++INCLUDE DTSIL004 DTSBX347
|
||||
00394 DTSBX347
|
||||
00395 01 L005-LINK-AREA. DTSBX347
|
||||
00396 ++INCLUDE DTSIL005 DTSBX347
|
||||
00397 DTSBX347
|
||||
00398 01 WRK-AHDR-REC. DTSBX347
|
||||
00399 ++INCLUDE DTSIAHDR DTSBX347
|
||||
00400 DTSBX347
|
||||
00401 01 WRK-ARPT-REC. DTSBX347
|
||||
00402 ++INCLUDE DTSIARPT DTSBX347
|
||||
00403 DTSBX347
|
||||
00404 01 WRK-AATX-REC. DTSBX347
|
||||
00405 ++INCLUDE DTSIAATX DTSBX347
|
||||
00406 DTSBX347
|
||||
00407 01 WRK-APAY-REC. DTSBX347
|
||||
00408 ++INCLUDE DTSIAPAY DTSBX347
|
||||
00409 DTSBX347
|
||||
00410 01 WRK-AADJ-REC. DTSBX347
|
||||
00411 ++INCLUDE DTSIAADJ DTSBX347
|
||||
00412 DTSBX347
|
||||
00413 PROCEDURE DIVISION. DTSBX347
|
||||
00414 DTSBX347
|
||||
00415 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX347
|
||||
00416 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX347
|
||||
00417 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX347
|
||||
00418 DTSBX347
|
||||
00419 GOBACK. DTSBX347
|
||||
00420 EJECT DTSBX347
|
||||
00421 I0000-INITIATE. DTSBX347
|
||||
00422 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX347
|
||||
00423 DTSBX347
|
||||
00424 I0000-EXIT. DTSBX347
|
||||
00425 EXIT. DTSBX347
|
||||
00426 I2000-OPEN-FILES. DTSBX347
|
||||
00427 OPEN INPUT ATH-FILE. DTSBX347
|
||||
00428 IF NOT ATH-FILE-OK-88 DTSBX347
|
||||
00429 DISPLAY 'ATH FILE OPEN ERROR: ' ATH-FILE-STATUS DTSBX347
|
||||
00430 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00431 END-IF. DTSBX347
|
||||
00432 DTSBX347
|
||||
00433 OPEN OUTPUT ATH-TRANS-FILE. DTSBX347
|
||||
00434 IF NOT ATH-TRANS-FILE-OK-88 DTSBX347
|
||||
00435 DISPLAY 'TRANS FILE OPEN ERROR: ' DTSBX347
|
||||
00436 ATH-TRANS-FILE-STATUS DTSBX347
|
||||
00437 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00438 END-IF. DTSBX347
|
||||
00439 DTSBX347
|
||||
00440 OPEN OUTPUT ATH-HDR-FILE. DTSBX347
|
||||
00441 IF NOT ATH-HDR-FILE-OK-88 DTSBX347
|
||||
00442 DISPLAY 'HDR FILE OPEN ERROR: ' DTSBX347
|
||||
00443 ATH-HDR-FILE-STATUS DTSBX347
|
||||
00444 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00445 END-IF. DTSBX347
|
||||
00446 DTSBX347
|
||||
00447 OPEN OUTPUT ATH-RPT-FILE. DTSBX347
|
||||
00448 IF NOT ATH-RPT-FILE-OK-88 DTSBX347
|
||||
00449 DISPLAY 'RPT FILE OPEN ERROR: ' DTSBX347
|
||||
00450 ATH-RPT-FILE-STATUS DTSBX347
|
||||
00451 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00452 END-IF. DTSBX347
|
||||
00453 DTSBX347
|
||||
00454 OPEN OUTPUT ATH-ATX-FILE. DTSBX347
|
||||
00455 IF NOT ATH-ATX-FILE-OK-88 DTSBX347
|
||||
00456 DISPLAY 'ATX FILE OPEN ERROR: ' DTSBX347
|
||||
00457 ATH-ATX-FILE-STATUS DTSBX347
|
||||
00458 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00459 END-IF. DTSBX347
|
||||
00460 DTSBX347
|
||||
00461 OPEN OUTPUT ATH-PAY-FILE. DTSBX347
|
||||
00462 IF NOT ATH-PAY-FILE-OK-88 DTSBX347
|
||||
00463 DISPLAY 'PAY FILE OPEN ERROR: ' DTSBX347
|
||||
00464 ATH-PAY-FILE-STATUS DTSBX347
|
||||
00465 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00466 END-IF. DTSBX347
|
||||
00467 DTSBX347
|
||||
00468 OPEN OUTPUT ATH-ADJ-FILE. DTSBX347
|
||||
00469 IF NOT ATH-ADJ-FILE-OK-88 DTSBX347
|
||||
00470 DISPLAY 'ADJ FILE OPEN ERROR: ' DTSBX347
|
||||
00471 ATH-ADJ-FILE-STATUS DTSBX347
|
||||
00472 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00473 END-IF. DTSBX347
|
||||
00474 DTSBX347
|
||||
00475 I2000-EXIT. DTSBX347
|
||||
00476 EXIT. DTSBX347
|
||||
00477 DTSBX347
|
||||
00478 P0000-PROCESS. DTSBX347
|
||||
00479 READ ATH-FILE NEXT. DTSBX347
|
||||
00480 DTSBX347
|
||||
00481 IF NOT ATH-FILE-OK-88 DTSBX347
|
||||
00482 DISPLAY 'BAD FIRST READ ' ATH-FILE-STATUS DTSBX347
|
||||
00483 GO TO P0000-EXIT DTSBX347
|
||||
00484 ELSE DTSBX347
|
||||
00485 PERFORM UNTIL ATH-FILE-EOF-88 DTSBX347
|
||||
00486 PERFORM P1000-BUILD-OUTPUT THRU P1000-EXIT DTSBX347
|
||||
00487 READ ATH-FILE NEXT DTSBX347
|
||||
00488 END-PERFORM DTSBX347
|
||||
00489 END-IF. DTSBX347
|
||||
00490 DTSBX347
|
||||
00491 DTSBX347
|
||||
00492 P0000-EXIT. DTSBX347
|
||||
00493 EXIT. DTSBX347
|
||||
00494 DTSBX347
|
||||
00495 P1000-BUILD-OUTPUT. DTSBX347
|
||||
00496 ADD +1 TO WRK-ATH-FILE-IN-CNT. DTSBX347
|
||||
00497 ADD +1 TO WRK-SEQ. DTSBX347
|
||||
00498 DTSBX347
|
||||
00499 DISPLAY SPACE. DTSBX347
|
||||
00500 DISPLAY AATH-BATCH-NO ' ' AATH-ITEM-NO DTSBX347
|
||||
00501 ' ' AATH-REC-TYPE ' ' AATH-ACTION DTSBX347
|
||||
00502 ' ' AATH-OP-ID. DTSBX347
|
||||
00503 DTSBX347
|
||||
00504 IF AATH-DOC-NO = LOW-VALUES DTSBX347
|
||||
00505 DISPLAY 'DUMMY REC-TYPE BYPASSED ' AATH-KEY-AREA DTSBX347
|
||||
00506 ** SET AATH-PAY-88 TO TRUE DTSBX347
|
||||
00507 GO TO P1000-EXIT DTSBX347
|
||||
00508 END-IF. DTSBX347
|
||||
00509 DTSBX347
|
||||
00510 INITIALIZE WRK-TRANS-REC. DTSBX347
|
||||
00511 DTSBX347
|
||||
00512 PERFORM P1100-BUILD-TRANS THRU P1100-EXIT. DTSBX347
|
||||
00513 DTSBX347
|
||||
00514 EVALUATE TRUE DTSBX347
|
||||
00515 WHEN AATH-HDR-88 DTSBX347
|
||||
00516 PERFORM P1110-BUILD-HDR THRU P1110-EXIT DTSBX347
|
||||
00517 WHEN AATH-RPT-88 DTSBX347
|
||||
00518 PERFORM P1120-BUILD-RPT THRU P1120-EXIT DTSBX347
|
||||
00519 WHEN AATH-ATX-88 DTSBX347
|
||||
00520 PERFORM P1130-BUILD-ATX THRU P1130-EXIT DTSBX347
|
||||
00521 WHEN AATH-PAY-88 DTSBX347
|
||||
00522 PERFORM P1140-BUILD-PAY THRU P1140-EXIT DTSBX347
|
||||
00523 WHEN AATH-ADJ-88 DTSBX347
|
||||
00524 PERFORM P1150-BUILD-ADJ THRU P1150-EXIT DTSBX347
|
||||
00525 END-EVALUATE. DTSBX347
|
||||
00526 DTSBX347
|
||||
00527 P1000-EXIT. DTSBX347
|
||||
00528 EXIT. DTSBX347
|
||||
00529 DTSBX347
|
||||
00530 P1100-BUILD-TRANS. DTSBX347
|
||||
00531 MOVE WRK-SEQ TO TRN-SEQ. DTSBX347
|
||||
00532 MOVE AATH-BATCH-NO TO TRN-BATCH. DTSBX347
|
||||
00533 MOVE AATH-ITEM-NO TO TRN-ITEM. DTSBX347
|
||||
00534 MOVE AATH-REC-TYPE TO TRN-REC-TYPE. DTSBX347
|
||||
00535 MOVE AATH-DATE TO L005-DATE. DTSBX347
|
||||
00536 MOVE AATH-TIME TO L005-TIME. DTSBX347
|
||||
00537 SET L005-FROM-DATE-TIME TO TRUE. DTSBX347
|
||||
00538 PERFORM S005-DATE THRU S005-EXIT. DTSBX347
|
||||
00539 MOVE L005-SLASH-8-DATE TO TRN-DATE. DTSBX347
|
||||
00540 MOVE L005-DISPLAY-TIME TO TRN-TIME. DTSBX347
|
||||
00541 MOVE AATH-ACTION TO TRN-ACTION. DTSBX347
|
||||
00542 MOVE AATH-OP-ID TO TRN-OPID. DTSBX347
|
||||
00543 DTSBX347
|
||||
00544 WRITE ATH-TRANS-REC FROM WRK-TRANS-REC. DTSBX347
|
||||
00545 IF ATH-TRANS-FILE-OK-88 DTSBX347
|
||||
00546 ADD 1 TO WRK-ATH-TRANS-CNT DTSBX347
|
||||
00547 ELSE DTSBX347
|
||||
00548 DISPLAY 'TRANS FILE WRITE ERROR: ' ATH-TRANS-FILE-STATUS DTSBX347
|
||||
00549 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00550 END-IF. DTSBX347
|
||||
00551 DTSBX347
|
||||
00552 P1100-EXIT. DTSBX347
|
||||
00553 EXIT. DTSBX347
|
||||
00554 DTSBX347
|
||||
00555 P1110-BUILD-HDR. DTSBX347
|
||||
00556 INITIALIZE WRK-HDR-REC. DTSBX347
|
||||
00557 MOVE WRK-SEQ TO HDR-SEQ. DTSBX347
|
||||
00558 MOVE AATH-DATA-AREA TO AHDR-DATA-AREA. DTSBX347
|
||||
00559 DTSBX347
|
||||
00560 MOVE AHDR-BATCH-BALANCED-IND TO HDR-BAL-IND. DTSBX347
|
||||
00561 MOVE AHDR-BATCH-HELD-IND TO HDR-HELD-IND. DTSBX347
|
||||
00562 MOVE AHDR-ESTB-OP-ID TO HDR-ESTB-OPID. DTSBX347
|
||||
00563 MOVE AHDR-ESTB-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00564 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00565 IF L001-INVALID-DATE DTSBX347
|
||||
00566 MOVE SPACES TO HDR-ESTB-DATE DTSBX347
|
||||
00567 ELSE DTSBX347
|
||||
00568 MOVE L001-SLASH-8-DATE TO HDR-ESTB-DATE DTSBX347
|
||||
00569 END-IF. DTSBX347
|
||||
00570 MOVE AHDR-CHNG-OP-ID TO HDR-CHNG-OPID. DTSBX347
|
||||
00571 MOVE AHDR-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00572 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00573 IF L001-INVALID-DATE DTSBX347
|
||||
00574 MOVE SPACES TO HDR-CHNG-DATE DTSBX347
|
||||
00575 ELSE DTSBX347
|
||||
00576 MOVE L001-SLASH-8-DATE TO HDR-CHNG-DATE DTSBX347
|
||||
00577 END-IF. DTSBX347
|
||||
00578 MOVE AHDR-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00579 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00580 IF L001-INVALID-DATE DTSBX347
|
||||
00581 MOVE SPACES TO HDR-DEPOSIT-DATE DTSBX347
|
||||
00582 ELSE DTSBX347
|
||||
00583 MOVE L001-SLASH-8-DATE TO HDR-DEPOSIT-DATE DTSBX347
|
||||
00584 END-IF. DTSBX347
|
||||
00585 MOVE AHDR-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00586 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00587 IF L001-INVALID-DATE DTSBX347
|
||||
00588 MOVE SPACES TO HDR-RCVD-DATE DTSBX347
|
||||
00589 ELSE DTSBX347
|
||||
00590 MOVE L001-SLASH-8-DATE TO HDR-RCVD-DATE DTSBX347
|
||||
00591 END-IF. DTSBX347
|
||||
00592 MOVE AHDR-LAST-USED-ITEM-NO TO HDR-LAST-ITEM. DTSBX347
|
||||
00593 MOVE AHDR-CONTROL-TRAN-CNT TO HDR-CNTL-TRAN-CNT. DTSBX347
|
||||
00594 MOVE AHDR-ATC-FILE-TRAN-CNT TO HDR-ATC-TRAN-CNT. DTSBX347
|
||||
00595 MOVE AHDR-PROC-TRAN-CNT TO HDR-PROCESS-TRAN-CNT. DTSBX347
|
||||
00596 IF AHDR-CONTROL-REMIT-AMT NOT NUMERIC DTSBX347
|
||||
00597 MOVE ZERO TO HDR-CNTL-REMIT-AMT DTSBX347
|
||||
00598 ELSE DTSBX347
|
||||
00599 MOVE AHDR-CONTROL-REMIT-AMT DTSBX347
|
||||
00600 TO HDR-CNTL-REMIT-AMT DTSBX347
|
||||
00601 END-IF. DTSBX347
|
||||
00602 MOVE AHDR-ATC-FILE-REMIT-AMT TO HDR-ATC-REMIT-AMT. DTSBX347
|
||||
00603 MOVE AHDR-PROC-REMIT-AMT TO HDR-PROCESS-REMIT-AMT. DTSBX347
|
||||
00604 MOVE AHDR-ANNUAL-BATCH-IND TO HDR-ANN-BATCH-IND. DTSBX347
|
||||
00605 MOVE AHDR-BANK-BATCH-NO TO HDR-BANK-BATCH. DTSBX347
|
||||
00606 DTSBX347
|
||||
00607 WRITE ATH-HDR-REC FROM WRK-HDR-REC. DTSBX347
|
||||
00608 IF ATH-HDR-FILE-OK-88 DTSBX347
|
||||
00609 ADD 1 TO WRK-ATH-HDR-CNT DTSBX347
|
||||
00610 ELSE DTSBX347
|
||||
00611 DISPLAY 'HDR FILE WRITE ERROR: ' ATH-HDR-FILE-STATUS DTSBX347
|
||||
00612 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00613 END-IF. DTSBX347
|
||||
00614 DTSBX347
|
||||
00615 P1110-EXIT. DTSBX347
|
||||
00616 EXIT. DTSBX347
|
||||
00617 DTSBX347
|
||||
00618 P1120-BUILD-RPT. DTSBX347
|
||||
00619 INITIALIZE WRK-RPT-REC. DTSBX347
|
||||
00620 MOVE WRK-SEQ TO RPT-SEQ. DTSBX347
|
||||
00621 MOVE AATH-DATA-AREA TO ARPT-DATA-AREA. DTSBX347
|
||||
00622 DTSBX347
|
||||
00623 INSPECT ARPT-NAME-CHECK REPLACING ALL ';' BY SPACE. DTSBX347
|
||||
00624 INSPECT ARPT-NAME-CHECK REPLACING ALL ',' BY SPACE. DTSBX347
|
||||
00625 MOVE ARPT-NAME-CHECK TO RPT-NAME-CHECK. DTSBX347
|
||||
00626 MOVE ARPT-EMP-NO TO RPT-EMP-NBR. DTSBX347
|
||||
00627 MOVE ARPT-RPT-TYPE TO RPT-RPT-TYPE. DTSBX347
|
||||
00628 MOVE ARPT-YRQ TO L004-QTR-5-9. DTSBX347
|
||||
00629 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX347
|
||||
00630 MOVE L004-SLASH-5-QTR TO RPT-QTR. DTSBX347
|
||||
00631 IF ARPT-TOT-WAGE NOT NUMERIC DTSBX347
|
||||
00632 MOVE ZERO TO RPT-TOT-WAGE DTSBX347
|
||||
00633 ELSE DTSBX347
|
||||
00634 MOVE ARPT-TOT-WAGE TO RPT-TOT-WAGE DTSBX347
|
||||
00635 END-IF. DTSBX347
|
||||
00636 IF ARPT-EXCESS-WAGE NOT NUMERIC DTSBX347
|
||||
00637 MOVE ZERO TO RPT-EXCESS-WAGE DTSBX347
|
||||
00638 ELSE DTSBX347
|
||||
00639 MOVE ARPT-EXCESS-WAGE TO RPT-EXCESS-WAGE DTSBX347
|
||||
00640 END-IF. DTSBX347
|
||||
00641 IF ARPT-TAX-WAGE NOT NUMERIC DTSBX347
|
||||
00642 MOVE ZERO TO RPT-TAX-WAGE DTSBX347
|
||||
00643 ELSE DTSBX347
|
||||
00644 MOVE ARPT-TAX-WAGE TO RPT-TAX-WAGE DTSBX347
|
||||
00645 END-IF. DTSBX347
|
||||
00646 IF ARPT-REMIT-AMT NOT NUMERIC DTSBX347
|
||||
00647 MOVE ZERO TO RPT-REMIT-AMT DTSBX347
|
||||
00648 ELSE DTSBX347
|
||||
00649 MOVE ARPT-REMIT-AMT TO RPT-REMIT-AMT DTSBX347
|
||||
00650 END-IF. DTSBX347
|
||||
00651 MOVE ARPT-WAGE-RPT-IND TO RPT-WAGE-RPT-IND. DTSBX347
|
||||
00652 MOVE ARPT-WAIVE-BOTH-IND TO RPT-WAIVE-BOTH-IND. DTSBX347
|
||||
00653 MOVE ARPT-WAIVE-INT-IND TO RPT-WAIVE-INT-IND. DTSBX347
|
||||
00654 MOVE ARPT-WAIVE-LATE-PEN-IND TO RPT-WAIVE-PEN-IND. DTSBX347
|
||||
00655 MOVE ARPT-TOTAL-EMPL-CNT TO RPT-TOT-WORKER-CNT. DTSBX347
|
||||
00656 MOVE ARPT-1ST-MTH-EMPL-CNT TO RPT-MONTH1-CNT. DTSBX347
|
||||
00657 MOVE ARPT-2ND-MTH-EMPL-CNT TO RPT-MONTH2-CNT. DTSBX347
|
||||
00658 MOVE ARPT-3RD-MTH-EMPL-CNT TO RPT-MONTH3-CNT. DTSBX347
|
||||
00659 MOVE ARPT-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00660 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00661 IF L001-INVALID-DATE DTSBX347
|
||||
00662 MOVE SPACES TO RPT-RCVD-DATE DTSBX347
|
||||
00663 ELSE DTSBX347
|
||||
00664 MOVE L001-SLASH-8-DATE TO RPT-RCVD-DATE DTSBX347
|
||||
00665 END-IF. DTSBX347
|
||||
00666 MOVE ARPT-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00667 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00668 IF L001-INVALID-DATE DTSBX347
|
||||
00669 MOVE SPACES TO RPT-DEPOSIT-DATE DTSBX347
|
||||
00670 ELSE DTSBX347
|
||||
00671 MOVE L001-SLASH-8-DATE TO RPT-DEPOSIT-DATE DTSBX347
|
||||
00672 END-IF. DTSBX347
|
||||
00673 MOVE ARPT-RESPONSIBLE-ACTIVITY DTSBX347
|
||||
00674 TO RPT-RESP-ACTIVITY. DTSBX347
|
||||
00675 MOVE ARPT-RESPONSIBLE-OP-ID TO RPT-RESP-OPID. DTSBX347
|
||||
00676 MOVE ARPT-PASSED-FULL-EDITS-IND DTSBX347
|
||||
00677 TO RPT-PASSED-FULL-EDITS. DTSBX347
|
||||
00678 MOVE ARPT-TRACE-NO TO RPT-TRACE-NBR. DTSBX347
|
||||
00679 MOVE ARPT-PSEUDO-BATCH-NO TO RPT-PSEUDO-BATCH. DTSBX347
|
||||
00680 MOVE ARPT-PSEUDO-ITEM-NO TO RPT-PSEUDO-ITEM. DTSBX347
|
||||
00681 MOVE ARPT-STATUS-CHNG-IND TO RPT-STATUS-CHNG. DTSBX347
|
||||
00682 DTSBX347
|
||||
00683 WRITE ATH-RPT-REC FROM WRK-RPT-REC. DTSBX347
|
||||
00684 IF ATH-RPT-FILE-OK-88 DTSBX347
|
||||
00685 ADD 1 TO WRK-ATH-RPT-CNT DTSBX347
|
||||
00686 ELSE DTSBX347
|
||||
00687 DISPLAY 'RPT FILE WRITE ERROR: ' ATH-RPT-FILE-STATUS DTSBX347
|
||||
00688 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00689 END-IF. DTSBX347
|
||||
00690 DTSBX347
|
||||
00691 P1120-EXIT. DTSBX347
|
||||
00692 EXIT. DTSBX347
|
||||
00693 DTSBX347
|
||||
00694 P1130-BUILD-ATX. DTSBX347
|
||||
00695 INITIALIZE WRK-ATX-REC. DTSBX347
|
||||
00696 MOVE WRK-SEQ TO ATX-SEQ. DTSBX347
|
||||
00697 MOVE AATH-DATA-AREA TO AATX-DATA-AREA. DTSBX347
|
||||
00698 DTSBX347
|
||||
00699 MOVE AATX-NAME-CHECK TO ATX-NAME-CHECK. DTSBX347
|
||||
00700 MOVE AATX-EMP-NO TO ATX-EMP-NBR. DTSBX347
|
||||
00701 MOVE AATX-RPT-TYPE TO ATX-RPT-TYPE. DTSBX347
|
||||
00702 MOVE AATX-YRQ TO L004-QTR-5-9. DTSBX347
|
||||
00703 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX347
|
||||
00704 MOVE L004-SLASH-5-QTR TO ATX-QTR. DTSBX347
|
||||
00705 IF AATX-TOT-WAGE NOT NUMERIC DTSBX347
|
||||
00706 MOVE ZERO TO ATX-TOT-WAGE DTSBX347
|
||||
00707 ELSE DTSBX347
|
||||
00708 MOVE AATX-TOT-WAGE TO ATX-TOT-WAGE DTSBX347
|
||||
00709 END-IF. DTSBX347
|
||||
00710 IF AATX-EXCESS-WAGE NOT NUMERIC DTSBX347
|
||||
00711 MOVE ZERO TO ATX-EXCESS-WAGE DTSBX347
|
||||
00712 ELSE DTSBX347
|
||||
00713 MOVE AATX-EXCESS-WAGE TO ATX-EXCESS-WAGE DTSBX347
|
||||
00714 END-IF. DTSBX347
|
||||
00715 IF AATX-TAX-WAGE NOT NUMERIC DTSBX347
|
||||
00716 MOVE ZERO TO ATX-TAX-WAGE DTSBX347
|
||||
00717 ELSE DTSBX347
|
||||
00718 MOVE AATX-TAX-WAGE TO ATX-TAX-WAGE DTSBX347
|
||||
00719 END-IF. DTSBX347
|
||||
00720 IF AATX-REMIT-AMT NOT NUMERIC DTSBX347
|
||||
00721 MOVE ZERO TO ATX-REMIT-AMT DTSBX347
|
||||
00722 ELSE DTSBX347
|
||||
00723 MOVE AATX-REMIT-AMT TO ATX-REMIT-AMT DTSBX347
|
||||
00724 END-IF. DTSBX347
|
||||
00725 MOVE AATX-WAIVE-BOTH-IND TO ATX-WAIVE-BOTH-IND. DTSBX347
|
||||
00726 MOVE AATX-WAIVE-INT-IND TO ATX-WAIVE-INT-IND. DTSBX347
|
||||
00727 MOVE AATX-WAIVE-LATE-PEN-IND TO ATX-WAIVE-PEN-IND. DTSBX347
|
||||
00728 MOVE AATX-TOTAL-EMPL-CNT TO ATX-TOT-WORKER-CNT. DTSBX347
|
||||
00729 MOVE AATX-JAN-EMPL-CNT TO ATX-JAN-CNT. DTSBX347
|
||||
00730 MOVE AATX-FEB-EMPL-CNT TO ATX-FEB-CNT. DTSBX347
|
||||
00731 MOVE AATX-MAR-EMPL-CNT TO ATX-MAR-CNT. DTSBX347
|
||||
00732 MOVE AATX-APR-EMPL-CNT TO ATX-APR-CNT. DTSBX347
|
||||
00733 MOVE AATX-MAY-EMPL-CNT TO ATX-MAY-CNT. DTSBX347
|
||||
00734 MOVE AATX-JUN-EMPL-CNT TO ATX-JUN-CNT. DTSBX347
|
||||
00735 MOVE AATX-JUL-EMPL-CNT TO ATX-JUL-CNT. DTSBX347
|
||||
00736 MOVE AATX-AUG-EMPL-CNT TO ATX-AUG-CNT. DTSBX347
|
||||
00737 MOVE AATX-SEP-EMPL-CNT TO ATX-SEP-CNT. DTSBX347
|
||||
00738 MOVE AATX-OCT-EMPL-CNT TO ATX-OCT-CNT. DTSBX347
|
||||
00739 MOVE AATX-NOV-EMPL-CNT TO ATX-NOV-CNT. DTSBX347
|
||||
00740 MOVE AATX-DEC-EMPL-CNT TO ATX-DEC-CNT. DTSBX347
|
||||
00741 MOVE AATX-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00742 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00743 IF L001-INVALID-DATE DTSBX347
|
||||
00744 MOVE SPACES TO ATX-RCVD-DATE DTSBX347
|
||||
00745 ELSE DTSBX347
|
||||
00746 MOVE L001-SLASH-8-DATE TO ATX-RCVD-DATE DTSBX347
|
||||
00747 END-IF. DTSBX347
|
||||
00748 MOVE AATX-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00749 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00750 IF L001-INVALID-DATE DTSBX347
|
||||
00751 MOVE SPACES TO ATX-DEPOSIT-DATE DTSBX347
|
||||
00752 ELSE DTSBX347
|
||||
00753 MOVE L001-SLASH-8-DATE TO ATX-DEPOSIT-DATE DTSBX347
|
||||
00754 END-IF. DTSBX347
|
||||
00755 MOVE AATX-RESPONSIBLE-ACTIVITY DTSBX347
|
||||
00756 TO ATX-RESP-ACTIVITY. DTSBX347
|
||||
00757 MOVE AATX-RESPONSIBLE-OP-ID TO ATX-RESP-OPID. DTSBX347
|
||||
00758 MOVE AATX-PASSED-FULL-EDITS-IND DTSBX347
|
||||
00759 TO ATX-PASSED-FULL-EDITS. DTSBX347
|
||||
00760 MOVE AATX-STATUS-CHANGE-IND TO ATX-STATUS-CHNG. DTSBX347
|
||||
00761 DTSBX347
|
||||
00762 WRITE ATH-ATX-REC FROM WRK-ATX-REC. DTSBX347
|
||||
00763 IF ATH-ATX-FILE-OK-88 DTSBX347
|
||||
00764 ADD 1 TO WRK-ATH-ATX-CNT DTSBX347
|
||||
00765 ELSE DTSBX347
|
||||
00766 DISPLAY 'ATX FILE WRITE ERROR: ' ATH-ATX-FILE-STATUS DTSBX347
|
||||
00767 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00768 END-IF. DTSBX347
|
||||
00769 DTSBX347
|
||||
00770 P1130-EXIT. DTSBX347
|
||||
00771 EXIT. DTSBX347
|
||||
00772 DTSBX347
|
||||
00773 P1140-BUILD-PAY. DTSBX347
|
||||
00774 INITIALIZE WRK-PAY-REC. DTSBX347
|
||||
00775 MOVE WRK-SEQ TO PAY-SEQ. DTSBX347
|
||||
00776 MOVE AATH-DATA-AREA TO APAY-DATA-AREA. DTSBX347
|
||||
00777 DTSBX347
|
||||
00778 MOVE APAY-NAME-CHECK TO PAY-NAME-CHECK. DTSBX347
|
||||
00779 MOVE APAY-EMP-NO TO PAY-EMP-NBR. DTSBX347
|
||||
00780 MOVE APAY-PAY-TYPE TO PAY-PAY-TYPE. DTSBX347
|
||||
00781 IF APAY-REMIT-AMT NOT NUMERIC DTSBX347
|
||||
00782 MOVE ZERO TO PAY-REMIT-AMT DTSBX347
|
||||
00783 ELSE DTSBX347
|
||||
00784 MOVE APAY-REMIT-AMT TO PAY-REMIT-AMT DTSBX347
|
||||
00785 END-IF. DTSBX347
|
||||
00786 MOVE APAY-WAIVE-INT-IND TO PAY-WAIVE-INT-IND. DTSBX347
|
||||
00787 MOVE APAY-WAIVE-LATE-PEN-IND TO PAY-WAIVE-PEN-IND. DTSBX347
|
||||
00788 MOVE APAY-NSF-PEN-CHARGE-IND TO PAY-NSF-PEN-CHG-IND. DTSBX347
|
||||
00789 MOVE APAY-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00790 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00791 IF L001-INVALID-DATE DTSBX347
|
||||
00792 MOVE SPACES TO PAY-RCVD-DATE DTSBX347
|
||||
00793 ELSE DTSBX347
|
||||
00794 MOVE L001-SLASH-8-DATE TO PAY-RCVD-DATE DTSBX347
|
||||
00795 END-IF. DTSBX347
|
||||
00796 MOVE APAY-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00797 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00798 IF L001-INVALID-DATE DTSBX347
|
||||
00799 MOVE SPACES TO PAY-DEPOSIT-DATE DTSBX347
|
||||
00800 ELSE DTSBX347
|
||||
00801 MOVE L001-SLASH-8-DATE TO PAY-DEPOSIT-DATE DTSBX347
|
||||
00802 END-IF. DTSBX347
|
||||
00803 MOVE APAY-APPLIC-YRQ TO L004-QTR-5-9. DTSBX347
|
||||
00804 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX347
|
||||
00805 MOVE L004-SLASH-5-QTR TO PAY-APPLIC-QTR. DTSBX347
|
||||
00806 MOVE APAY-APPLIC-IND TO PAY-APPLIC-IND. DTSBX347
|
||||
00807 MOVE APAY-APPLIC-BATCH-NO TO PAY-APPLIC-BATCH. DTSBX347
|
||||
00808 MOVE APAY-APPLIC-ITEM-NO TO PAY-APPLIC-ITEM. DTSBX347
|
||||
00809 MOVE APAY-RESPONSIBLE-ACTIVITY DTSBX347
|
||||
00810 TO PAY-RESP-ACTIVITY. DTSBX347
|
||||
00811 MOVE APAY-RESPONSIBLE-OP-ID TO PAY-RESP-OPID. DTSBX347
|
||||
00812 MOVE APAY-ANNUAL-RPT-IND TO PAY-ANN-RPT-IND. DTSBX347
|
||||
00813 MOVE APAY-TRACE-NO TO PAY-TRACE-NBR. DTSBX347
|
||||
00814 DTSBX347
|
||||
00815 WRITE ATH-PAY-REC FROM WRK-PAY-REC. DTSBX347
|
||||
00816 IF ATH-PAY-FILE-OK-88 DTSBX347
|
||||
00817 ADD 1 TO WRK-ATH-PAY-CNT DTSBX347
|
||||
00818 ELSE DTSBX347
|
||||
00819 DISPLAY 'PAY FILE WRITE ERROR: ' ATH-PAY-FILE-STATUS DTSBX347
|
||||
00820 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00821 END-IF. DTSBX347
|
||||
00822 DTSBX347
|
||||
00823 DTSBX347
|
||||
00824 P1140-EXIT. DTSBX347
|
||||
00825 EXIT. DTSBX347
|
||||
00826 DTSBX347
|
||||
00827 P1150-BUILD-ADJ. DTSBX347
|
||||
00828 INITIALIZE WRK-ADJ-REC. DTSBX347
|
||||
00829 MOVE WRK-SEQ TO ADJ-SEQ. DTSBX347
|
||||
00830 MOVE AATH-DATA-AREA TO AADJ-DATA-AREA. DTSBX347
|
||||
00831 DTSBX347
|
||||
00832 MOVE AADJ-NAME-CHECK TO ADJ-NAME-CHECK. DTSBX347
|
||||
00833 MOVE AADJ-EMP-NO TO ADJ-EMP-NBR. DTSBX347
|
||||
00834 MOVE AADJ-ADJ-TYPE TO ADJ-ADJ-TYPE. DTSBX347
|
||||
00835 IF AADJ-AMT NOT NUMERIC DTSBX347
|
||||
00836 MOVE ZERO TO ADJ-AMT DTSBX347
|
||||
00837 ELSE DTSBX347
|
||||
00838 MOVE AADJ-AMT TO ADJ-AMT DTSBX347
|
||||
00839 END-IF. DTSBX347
|
||||
00840 MOVE AADJ-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00841 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00842 IF L001-INVALID-DATE DTSBX347
|
||||
00843 MOVE SPACES TO ADJ-RCVD-DATE DTSBX347
|
||||
00844 ELSE DTSBX347
|
||||
00845 MOVE L001-SLASH-8-DATE TO ADJ-RCVD-DATE DTSBX347
|
||||
00846 END-IF. DTSBX347
|
||||
00847 MOVE AADJ-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBX347
|
||||
00848 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00849 IF L001-INVALID-DATE DTSBX347
|
||||
00850 MOVE SPACES TO ADJ-DEPOSIT-DATE DTSBX347
|
||||
00851 ELSE DTSBX347
|
||||
00852 MOVE L001-SLASH-8-DATE TO ADJ-DEPOSIT-DATE DTSBX347
|
||||
00853 END-IF. DTSBX347
|
||||
00854 MOVE AADJ-APPLIC-YRQ TO L004-QTR-5-9. DTSBX347
|
||||
00855 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBX347
|
||||
00856 MOVE L004-SLASH-5-QTR TO ADJ-APPLIC-QTR. DTSBX347
|
||||
00857 MOVE AADJ-APPLIC-IND TO ADJ-APPLIC-IND. DTSBX347
|
||||
00858 MOVE AADJ-APPLIC-BATCH-NO TO ADJ-APPLIC-BATCH. DTSBX347
|
||||
00859 MOVE AADJ-APPLIC-ITEM-NO TO ADJ-APPLIC-ITEM. DTSBX347
|
||||
00860 MOVE AADJ-DATE-1 TO L001-FED-8-DATE-9. DTSBX347
|
||||
00861 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00862 IF L001-INVALID-DATE DTSBX347
|
||||
00863 MOVE SPACES TO ADJ-DATE1 DTSBX347
|
||||
00864 ELSE DTSBX347
|
||||
00865 MOVE L001-SLASH-8-DATE TO ADJ-DATE1 DTSBX347
|
||||
00866 END-IF. DTSBX347
|
||||
00867 MOVE AADJ-DATE-2 TO L001-FED-8-DATE-9. DTSBX347
|
||||
00868 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX347
|
||||
00869 IF L001-INVALID-DATE DTSBX347
|
||||
00870 MOVE SPACES TO ADJ-DATE2 DTSBX347
|
||||
00871 ELSE DTSBX347
|
||||
00872 MOVE L001-SLASH-8-DATE TO ADJ-DATE2 DTSBX347
|
||||
00873 END-IF. DTSBX347
|
||||
00874 MOVE AADJ-INT-SPAN-IND TO ADJ-INT-SPAN-IND. DTSBX347
|
||||
00875 IF AADJ-INT-RATE NUMERIC DTSBX347
|
||||
00876 COMPUTE ADJ-INT-RATE = (AADJ-INT-RATE * 100) DTSBX347
|
||||
00877 ELSE DTSBX347
|
||||
00878 MOVE ZERO TO ADJ-INT-RATE DTSBX347
|
||||
00879 END-IF. DTSBX347
|
||||
00880 MOVE AADJ-RESPONSIBLE-ACTIVITY DTSBX347
|
||||
00881 TO ADJ-RESP-ACTIVITY. DTSBX347
|
||||
00882 MOVE AADJ-RESPONSIBLE-OP-ID TO ADJ-RESP-OPID. DTSBX347
|
||||
00883 IF AADJ-CMP-ESTB-ABSTIME NOT NUMERIC DTSBX347
|
||||
00884 MOVE SPACES TO ADJ-COMPROMISE-DT DTSBX347
|
||||
00885 ADJ-COMPROMISE-TIME DTSBX347
|
||||
00886 ELSE DTSBX347
|
||||
00887 MOVE AADJ-CMP-ESTB-ABSTIME TO L005-ABSTIME DTSBX347
|
||||
00888 SET L005-FROM-ABSTIME TO TRUE DTSBX347
|
||||
00889 PERFORM S005-DATE THRU S005-EXIT DTSBX347
|
||||
00890 MOVE L005-DATE TO L001-FED-8-DATE-9 DTSBX347
|
||||
00891 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX347
|
||||
00892 IF L001-INVALID-DATE DTSBX347
|
||||
00893 MOVE SPACES TO ADJ-COMPROMISE-DT DTSBX347
|
||||
00894 ADJ-COMPROMISE-TIME DTSBX347
|
||||
00895 ELSE DTSBX347
|
||||
00896 MOVE L005-SLASH-8-DATE TO ADJ-COMPROMISE-DT DTSBX347
|
||||
00897 MOVE L005-DISPLAY-TIME TO ADJ-COMPROMISE-TIME DTSBX347
|
||||
00898 MOVE L005-SLASH-8-DATE TO L001-FED-8-DATE-X DTSBX347
|
||||
00899 END-IF DTSBX347
|
||||
00900 END-IF. DTSBX347
|
||||
00901 DTSBX347
|
||||
00902 WRITE ATH-ADJ-REC FROM WRK-ADJ-REC. DTSBX347
|
||||
00903 IF ATH-ADJ-FILE-OK-88 DTSBX347
|
||||
00904 ADD 1 TO WRK-ATH-ADJ-CNT DTSBX347
|
||||
00905 ELSE DTSBX347
|
||||
00906 DISPLAY 'ADJ FILE WRITE ERROR: ' ATH-ADJ-FILE-STATUS DTSBX347
|
||||
00907 PERFORM S999-ABEND THRU S999-EXIT DTSBX347
|
||||
00908 END-IF. DTSBX347
|
||||
00909 DTSBX347
|
||||
00910 P1150-EXIT. DTSBX347
|
||||
00911 EXIT. DTSBX347
|
||||
00912 DTSBX347
|
||||
00913 T0000-TERMINATE. DTSBX347
|
||||
00914 DTSBX347
|
||||
00915 DISPLAY ' '. DTSBX347
|
||||
00916 DTSBX347
|
||||
00917 DISPLAY '*** DTSBX347 TERMINATION STATISTICS ***'. DTSBX347
|
||||
00918 DTSBX347
|
||||
00919 DISPLAY ' '. DTSBX347
|
||||
00920 DTSBX347
|
||||
00921 DISPLAY 'EARLIEST DATE ' WRK-FIRST-DATE. DTSBX347
|
||||
00922 DISPLAY ' INPUT RECORDS READ : ' DTSBX347
|
||||
00923 WRK-ATH-FILE-IN-CNT. DTSBX347
|
||||
00924 DTSBX347
|
||||
00925 DISPLAY ' TRANS RECORDS WRITTEN : ' DTSBX347
|
||||
00926 WRK-ATH-TRANS-CNT. DTSBX347
|
||||
00927 DTSBX347
|
||||
00928 DISPLAY ' HEADER RECORDS WRITTEN : ' DTSBX347
|
||||
00929 WRK-ATH-HDR-CNT. DTSBX347
|
||||
00930 DTSBX347
|
||||
00931 DISPLAY ' REPORT RECORDS WRITTEN : ' DTSBX347
|
||||
00932 WRK-ATH-RPT-CNT. DTSBX347
|
||||
00933 DTSBX347
|
||||
00934 DISPLAY ' PAY RECORDS WRITTEN : ' DTSBX347
|
||||
00935 WRK-ATH-PAY-CNT. DTSBX347
|
||||
00936 DTSBX347
|
||||
00937 DISPLAY ' ANNUAL REPORT RECORDS WRITTEN : ' DTSBX347
|
||||
00938 WRK-ATH-ATX-CNT. DTSBX347
|
||||
00939 DTSBX347
|
||||
00940 DISPLAY ' ADJUSTMENT RECORDS WRITTEN : ' DTSBX347
|
||||
00941 WRK-ATH-ADJ-CNT. DTSBX347
|
||||
00942 DTSBX347
|
||||
00943 DISPLAY ' '. DTSBX347
|
||||
00944 DTSBX347
|
||||
00945 DTSBX347
|
||||
00946 CLOSE ATH-FILE DTSBX347
|
||||
00947 ATH-HDR-FILE DTSBX347
|
||||
00948 ATH-RPT-FILE DTSBX347
|
||||
00949 ATH-ATX-FILE DTSBX347
|
||||
00950 ATH-PAY-FILE DTSBX347
|
||||
00951 ATH-ADJ-FILE. DTSBX347
|
||||
00952 DTSBX347
|
||||
00953 T0000-EXIT. DTSBX347
|
||||
00954 EXIT. DTSBX347
|
||||
00955 DTSBX347
|
||||
00956 S001-FROM-FED-8. DTSBX347
|
||||
00957 SET L001-FROM-FED-8 TO TRUE. DTSBX347
|
||||
00958 GO TO S001-DATE. DTSBX347
|
||||
00959 DTSBX347
|
||||
00960 S001-DATE. DTSBX347
|
||||
00961 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX347
|
||||
00962 DTSBX347
|
||||
00963 S001-EXIT. DTSBX347
|
||||
00964 EXIT. DTSBX347
|
||||
00965 SKIP3 DTSBX347
|
||||
00966 S004-FROM-5. DTSBX347
|
||||
00967 SET L004-FROM-5 TO TRUE. DTSBX347
|
||||
00968 GO TO S004-QTR. DTSBX347
|
||||
00969 DTSBX347
|
||||
00970 S004-FROM-ABS. DTSBX347
|
||||
00971 SET L004-FROM-ABS TO TRUE. DTSBX347
|
||||
00972 GO TO S004-QTR. DTSBX347
|
||||
00973 DTSBX347
|
||||
00974 S004-FROM-DATE. DTSBX347
|
||||
00975 SET L004-FROM-DATE TO TRUE. DTSBX347
|
||||
00976 GO TO S004-QTR. DTSBX347
|
||||
00977 DTSBX347
|
||||
00978 S004-QTR. DTSBX347
|
||||
00979 DTSBX347
|
||||
00980 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX347
|
||||
00981 DTSBX347
|
||||
00982 S004-EXIT. DTSBX347
|
||||
00983 EXIT. DTSBX347
|
||||
00984 DTSBX347
|
||||
00985 S005-DATE. DTSBX347
|
||||
00986 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX347
|
||||
00987 S005-EXIT. DTSBX347
|
||||
00988 EXIT. DTSBX347
|
||||
00989 DTSBX347
|
||||
00990 S999-ABEND. DTSBX347
|
||||
00991 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX347
|
||||
00992 S999-EXIT. DTSBX347
|
||||
00993 EXIT. DTSBX347
|
||||
Reference in New Issue
Block a user