1239 lines
98 KiB
COBOL
1239 lines
98 KiB
COBOL
00001 IDENTIFICATION DIVISION. 04/11/13
|
|
00002 PROGRAM-ID. DTSBX201. DTSBX201
|
|
00003 AUTHOR. TRW. LV019
|
|
00004 DATE-WRITTEN. APRIL 2003. DTSBX201
|
|
00005 DATE-COMPILED. DTSBX201
|
|
00006 SKIP3 DTSBX201
|
|
00007 ***** DTSBX201
|
|
00008 * DTSBX201
|
|
00009 * FUNCTION: EXTRACT DATA ABOUT CURRENT QUARTER REPORT DTSBX201
|
|
00010 * TRANSACTIONS FOR INTRANET WEB APP DTSBX201
|
|
00011 * DTSBX201
|
|
00012 * MODIFICATION LOG: DTSBX201
|
|
00013 * DTSBX201
|
|
00014 * 04/01/2003 INITIAL DEVELOPMENT. DTSBX201
|
|
00015 * WORK ORDER: PROGRAMMER: GD DTSBX201
|
|
00016 * DTSBX201
|
|
00017 * 09/17/2007 ADDED TEST FOR QUARTERLY REPORTS SUBMITTED DTSBX201
|
|
00018 * FOR ANNUAL FILERS DTSBX201
|
|
00019 * WORK ORDER: PROGRAMMER: GD DTSBX201
|
|
00020 * DTSBX201
|
|
00021 * 02/11/2008 ADDED PROCESSING FOR CHECK FOR STATUS CHANGES IN DTSBX201
|
|
00022 * AATX ANNUAL REPORT RECORDS. DTSBX201
|
|
00023 * WORK ORDER: PROGRAMMER: GD DTSBX201
|
|
00024 * DTSBX201
|
|
00025 * 04/03/2008 ELIMINATED PARM FILE: CURRENT QUARTER AND PRIOR DTSBX201
|
|
00026 * RUN DATE ARE NOW DERIVED FROM HEADER REC. DTSBX201
|
|
00027 * WORK ORDER: PROGRAMMER: GD DTSBX201
|
|
00028 * DTSBX201
|
|
00029 * 07/26/2010 MODIFIED TO INCLUDE ALL QUARTERS. P1100 AND DTSBX201
|
|
00030 * P1110 CHANGED. DTSBX201
|
|
00031 * WORK ORDER: PROGRAMMER: GD DTSBX201
|
|
00032 * DTSBX201
|
|
00033 * 06/22/2011 ADDED TEST FOR MISSING RATE DTSBX201
|
|
00034 * WORK ORDER: PROGRAMMER: GD DTSBX201
|
|
00035 * DTSBX201
|
|
00036 * 09/30/2011 ADDED TEST FOR REMITTANCE WHEN TAX WAGE = 0, DTSBX201
|
|
00037 * AND ADDED CATCH-ALL FOR UNKNOWN ERROR. DTSBX201
|
|
00038 * WORK ORDER: PROGRAMMER: GD DTSBX201
|
|
00039 * DTSBX201
|
|
00040 * 04/05/2013 MODIFIED TO INCLUDE REPORTS FROM ALL QUARTERS, DTSBX201
|
|
00041 * AND TO INCLUDE SUPPLEMENTAL REPORTS AND DTSBX201
|
|
00042 * PAYMENTS. DTSBX201
|
|
00043 * WORK ORDER: TKT 1653 PROGRAMMER: GD DTSBX201
|
|
00044 * DTSBX201
|
|
00045 ***** DTSBX201
|
|
00046 SKIP3 DTSBX201
|
|
00047 ENVIRONMENT DIVISION. DTSBX201
|
|
00048 INPUT-OUTPUT SECTION. DTSBX201
|
|
00049 FILE-CONTROL. DTSBX201
|
|
00050 SELECT BX331A1-SUMMARY ASSIGN TO BX200SUM DTSBX201
|
|
00051 FILE STATUS IS BX331A1-STATUS. DTSBX201
|
|
00052 DTSBX201
|
|
00053 SELECT BX331C-TRAN ASSIGN TO BX200TRN DTSBX201
|
|
00054 FILE STATUS IS BX331C-STATUS. DTSBX201
|
|
00055 DTSBX201
|
|
00056 SELECT HEADER-FILE ASSIGN TO BX200HDR DTSBX201
|
|
00057 FILE STATUS IS HEADER-STATUS. DTSBX201
|
|
00058 DTSBX201
|
|
00059 DTSBX201
|
|
00060 DATA DIVISION. DTSBX201
|
|
00061 FILE SECTION. DTSBX201
|
|
00062 FD BX331A1-SUMMARY DTSBX201
|
|
00063 RECORDING MODE IS F. DTSBX201
|
|
00064 01 BX331A1-REC PIC X(73). DTSBX201
|
|
00065 DTSBX201
|
|
00066 FD BX331C-TRAN DTSBX201
|
|
00067 RECORDING MODE IS F. DTSBX201
|
|
00068 01 BX331C-REC PIC X(135). DTSBX201
|
|
00069 DTSBX201
|
|
00070 FD HEADER-FILE DTSBX201
|
|
00071 RECORDING MODE IS F. DTSBX201
|
|
00072 01 HEADER-REC PIC X(141). DTSBX201
|
|
00073 DTSBX201
|
|
00074 EJECT DTSBX201
|
|
00075 WORKING-STORAGE SECTION. DTSBX201
|
|
000755 77 PAN-VALET PICTURE X(24) VALUE '019DTSBX201 04/11/13'. DTSBX201
|
|
00076 77 PAN-VALET PICTURE X(24) VALUE '029DTSBX201 04/05/13'. DTSBX201
|
|
00077 SKIP3 DTSBX201
|
|
00078 01 WRK-AREA. DTSBX201
|
|
00079 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +201.DTSBX201
|
|
00080 DTSBX201
|
|
00081 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX201'.DTSBX201
|
|
00082 DTSBX201
|
|
00083 05 BX331A1-STATUS PIC X(02). DTSBX201
|
|
00084 88 BX331A1-STATUS-OK-88 VALUE '00'. DTSBX201
|
|
00085 DTSBX201
|
|
00086 05 BX331C-STATUS PIC X(02). DTSBX201
|
|
00087 88 BX331C-STATUS-OK-88 VALUE '00'. DTSBX201
|
|
00088 DTSBX201
|
|
00089 05 HEADER-STATUS PIC X(02). DTSBX201
|
|
00090 88 HEADER-STATUS-OK-88 VALUE '00'. DTSBX201
|
|
00091 DTSBX201
|
|
00092 05 WRK-ERROR-IND PIC X(01). DTSBX201
|
|
00093 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX201
|
|
00094 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX201
|
|
00095 DTSBX201
|
|
00096 05 WRK-RPT-DUE-IND PIC X(01). DTSBX201
|
|
00097 88 WRK-RPT-DUE-YES-88 VALUE 'Y'. DTSBX201
|
|
00098 88 WRK-RPT-DUE-NO-88 VALUE 'N'. DTSBX201
|
|
00099 DTSBX201
|
|
00100 05 WRK-EMP-FOUND-IND PIC X(01). DTSBX201
|
|
00101 88 WRK-EMP-FOUND-YES-88 VALUE 'Y'. DTSBX201
|
|
00102 88 WRK-EMP-FOUND-NO-88 VALUE 'N'. DTSBX201
|
|
00103 DTSBX201
|
|
00104 05 WRK-BX331A-REC. DTSBX201
|
|
00105 10 WRK-BX331A-PROCESS-DT PIC X(10). DTSBX201
|
|
00106 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00107 10 WRK-BX331A-MESSAGE PIC X(40). DTSBX201
|
|
00108 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00109 10 WRK-BX331A-EMP-NO PIC 9(06). DTSBX201
|
|
00110 10 WRK-BX331A-EMP-NO-X REDEFINES WRK-BX331A-EMP-NO DTSBX201
|
|
00111 PIC X(06). DTSBX201
|
|
00112 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00113 10 WRK-BX331A-BATCH PIC 9(05). DTSBX201
|
|
00114 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00115 10 WRK-BX331A-ITEM PIC 9(03). DTSBX201
|
|
00116 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00117 10 WRK-BX331A-TRAN PIC X(02). DTSBX201
|
|
00118 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00119 10 WRK-BX331A-SOURCE PIC X(01). DTSBX201
|
|
00120 88 WRK-BX331A-SOURCE-CR-DB-88 VALUE '1'. DTSBX201
|
|
00121 88 WRK-BX331A-SOURCE-STATUS-88 VALUE '2'. DTSBX201
|
|
00122 88 WRK-BX331A-SOURCE-ERROR-88 VALUE '3'. DTSBX201
|
|
00123 DTSBX201
|
|
00124 05 WRK-BX331C-REC. DTSBX201
|
|
00125 10 WRK-BX331C-BATCH-NO PIC 9(05). DTSBX201
|
|
00126 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00127 10 WRK-BX331C-ITEM-NO PIC 9(03). DTSBX201
|
|
00128 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00129 10 WRK-BX331C-TRAN PIC X(02). DTSBX201
|
|
00130 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00131 10 WRK-BX331C-EMP-NO PIC 9(06). DTSBX201
|
|
00132 10 WRK-BX331C-EMP-NO-X REDEFINES WRK-BX331C-EMP-NO DTSBX201
|
|
00133 PIC X(06). DTSBX201
|
|
00134 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00135 10 WRK-BX331C-QTR PIC X(06). DTSBX201
|
|
00136 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00137 10 WRK-BX331C-REMIT PIC --------9.99. DTSBX201
|
|
00138 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00139 10 WRK-BX331C-TOT-WAGE PIC --------9.99. DTSBX201
|
|
00140 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00141 10 WRK-BX331C-TAX-WAGE PIC --------9.99. DTSBX201
|
|
00142 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00143 10 WRK-BX331C-EXCESS-WAGE PIC --------9.99. DTSBX201
|
|
00144 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00145 10 WRK-BX331C-RATE PIC Z9.9. DTSBX201
|
|
00146 10 WRK-BX331C-RATE-X REDEFINES WRK-BX331C-RATE DTSBX201
|
|
00147 PIC X(04). DTSBX201
|
|
00148 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00149 10 WRK-BX331C-ACCT PIC X(02). DTSBX201
|
|
00150 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00151 10 WRK-BX331C-CATEGORY PIC X(01). DTSBX201
|
|
00152 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00153 10 WRK-BX331C-SOURCE PIC X(01). DTSBX201
|
|
00154 88 WRK-BX331C-SOURCE-CR-DB-88 VALUE '1'. DTSBX201
|
|
00155 88 WRK-BX331C-SOURCE-STATUS-88 VALUE '2'. DTSBX201
|
|
00156 88 WRK-BX331C-SOURCE-ERROR-88 VALUE '3'. DTSBX201
|
|
00157 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00158 10 WRK-BX331C-RCVD-DT PIC X(10). DTSBX201
|
|
00159 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00160 10 WRK-BX331C-PROCESS-DT PIC X(10). DTSBX201
|
|
00161 *& DTSBX201
|
|
00162 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00163 10 TRAN-APPLIC-BATCH PIC 9(05) VALUE ZERO. DTSBX201
|
|
00164 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00165 10 TRAN-APPLIC-ITEM PIC 9(03) VALUE ZERO. DTSBX201
|
|
00166 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00167 10 TRAN-RESP-ACTIVITY PIC X(03) VALUE SPACES. DTSBX201
|
|
00168 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00169 10 TRAN-RESP-OPID PIC X(08) VALUE SPACES. DTSBX201
|
|
00170 DTSBX201
|
|
00171 05 WRK-HDR-REC. DTSBX201
|
|
00172 10 WRK-HDR-BATCH-NO PIC 9(05). DTSBX201
|
|
00173 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00174 10 WRK-RUN-DATE PIC X(10). DTSBX201
|
|
00175 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00176 10 WRK-BALANCED-IND PIC X(01). DTSBX201
|
|
00177 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00178 10 WRK-HELD-IND PIC X(01). DTSBX201
|
|
00179 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00180 10 WRK-ESTB-DATE PIC X(10). DTSBX201
|
|
00181 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00182 10 WRK-ESTB-OPID PIC X(08). DTSBX201
|
|
00183 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00184 10 WRK-CHNG-DATE PIC X(10). DTSBX201
|
|
00185 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00186 10 WRK-CHNG-OPID PIC X(08). DTSBX201
|
|
00187 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00188 10 WRK-DEPOSIT-DATE PIC X(10). DTSBX201
|
|
00189 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00190 10 WRK-BATCH-RCVD-DATE PIC X(10). DTSBX201
|
|
00191 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00192 10 WRK-CNTL-TRAN-CNT PIC 9(03). DTSBX201
|
|
00193 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00194 10 WRK-PROCESSED-TRN-CNT PIC 9(03). DTSBX201
|
|
00195 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00196 10 WRK-ATC-CNT PIC 9(03). DTSBX201
|
|
00197 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00198 10 WRK-CNTL-REMIT-AMT PIC 9(09).99. DTSBX201
|
|
00199 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00200 10 WRK-PROCESSED-AMT PIC 9(09).99. DTSBX201
|
|
00201 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00202 10 WRK-ATC-AMOUNT PIC 9(09).99. DTSBX201
|
|
00203 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00204 10 WRK-ANN-BATCH-IND PIC X(01). DTSBX201
|
|
00205 10 FILLER PIC X(01) VALUE ','. DTSBX201
|
|
00206 10 WRK-BANK-BATCH-NO PIC 9(05). DTSBX201
|
|
00207 DTSBX201
|
|
00208 05 WRK-TAX-WAGE PIC S9(11)V99 COMP-3 VALUE +0. DTSBX201
|
|
00209 05 WRK-DIFF PIC S9(11)V99 COMP-3 VALUE +0. DTSBX201
|
|
00210 05 WRK-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBX201
|
|
00211 05 WRK-ANN-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBX201
|
|
00212 05 WRK-PRIOR-RUN-DT PIC S9(09) COMP-3 VALUE +0. DTSBX201
|
|
00213 05 WRK-QTR-DISP PIC X(06). DTSBX201
|
|
00214 05 WRK-PROCESS-DT PIC X(10). DTSBX201
|
|
00215 05 WRK-BX331A-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00216 05 WRK-BX331C-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00217 05 WRK-HEADER-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00218 05 WRK-AATX-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00219 05 WRK-TOT-REMIT PIC S9(11)V99 COMP-3 VALUE +0. DTSBX201
|
|
00220 05 WRK-ATC-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBX201
|
|
00221 05 WRK-PROC-AMT PIC S9(11)V99 COMP-3 VALUE +0. DTSBX201
|
|
00222 05 WRK-TOT-TRAN-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00223 05 WRK-BATCH-ERROR-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00224 05 WRK-PROCESSED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00225 05 WRK-RPTS-DUE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00226 05 WRK-RPTS-RCVD-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00227 05 WRK-CR-DB-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX201
|
|
00228 05 WRK-RCVD-DATE PIC S9(09) COMP-3 VALUE +0. DTSBX201
|
|
00229 DTSBX201
|
|
00230 05 WRK-PERCENT-COMPLETE PIC S9(03)V999 COMP-3. DTSBX201
|
|
00231 DTSBX201
|
|
00232 05 WRK-EMP-NO PIC 9(06). DTSBX201
|
|
00233 05 AMT-DISP PIC --------9.99. DTSBX201
|
|
00234 DTSBX201
|
|
00235 05 WRK-TRACE-IND PIC X(01). DTSBX201
|
|
00236 DTSBX201
|
|
00237 01 L001-LINK-AREA. DTSBX201
|
|
00238 ++INCLUDE DTSIL001 DTSBX201
|
|
00239 DTSBX201
|
|
00240 01 L004-LINK-AREA. DTSBX201
|
|
00241 ++INCLUDE DTSIL004 DTSBX201
|
|
00242 DTSBX201
|
|
00243 01 L516-LINK-AREA. DTSBX201
|
|
00244 ++INCLUDE DTSIL516 DTSBX201
|
|
00245 DTSBX201
|
|
00246 01 L923-LINK-AREA. DTSBX201
|
|
00247 ++INCLUDE DTSIL923 DTSBX201
|
|
00248 EJECT DTSBX201
|
|
00249 01 ASKL-REC. DTSBX201
|
|
00250 ++INCLUDE DTSIASKL DTSBX201
|
|
00251 EJECT DTSBX201
|
|
00252 01 AHDR-REC. DTSBX201
|
|
00253 ++INCLUDE DTSIAHDR DTSBX201
|
|
00254 EJECT DTSBX201
|
|
00255 01 AADJ-REC. DTSBX201
|
|
00256 ++INCLUDE DTSIAADJ DTSBX201
|
|
00257 EJECT DTSBX201
|
|
00258 01 APAY-REC. DTSBX201
|
|
00259 ++INCLUDE DTSIAPAY DTSBX201
|
|
00260 EJECT DTSBX201
|
|
00261 01 ARPT-REC. DTSBX201
|
|
00262 ++INCLUDE DTSIARPT DTSBX201
|
|
00263 EJECT DTSBX201
|
|
00264 01 AATX-REC. DTSBX201
|
|
00265 ++INCLUDE DTSIAATX DTSBX201
|
|
00266 EJECT DTSBX201
|
|
00267 01 L910-LINK-AREA. DTSBX201
|
|
00268 ++INCLUDE DTSIL910 DTSBX201
|
|
00269 EJECT DTSBX201
|
|
00270 01 MSKL-REC. DTSBX201
|
|
00271 ++INCLUDE DTSIMSKL DTSBX201
|
|
00272 EJECT DTSBX201
|
|
00273 01 MHDR-REC. DTSBX201
|
|
00274 ++INCLUDE DTSIMHDR DTSBX201
|
|
00275 EJECT DTSBX201
|
|
00276 01 MPRF-REC. DTSBX201
|
|
00277 ++INCLUDE DTSIMPRF DTSBX201
|
|
00278 DTSBX201
|
|
00279 01 MQTR-REC. DTSBX201
|
|
00280 ++INCLUDE DTSIMQTR DTSBX201
|
|
00281 DTSBX201
|
|
00282 01 MRTE-REC. DTSBX201
|
|
00283 ++INCLUDE DTSIMRTE DTSBX201
|
|
00284 DTSBX201
|
|
00285 01 L931-LINK-AREA. DTSBX201
|
|
00286 ++INCLUDE DTSIL931 DTSBX201
|
|
00287 EJECT DTSBX201
|
|
00288 01 FSKL-REC. DTSBX201
|
|
00289 ++INCLUDE DTSIFSKL DTSBX201
|
|
00290 DTSBX201
|
|
00291 PROCEDURE DIVISION. DTSBX201
|
|
00292 SKIP2 DTSBX201
|
|
00293 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX201
|
|
00294 DTSBX201
|
|
00295 IF WRK-ERROR-NO-88 DTSBX201
|
|
00296 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX201
|
|
00297 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX201
|
|
00298 END-IF. DTSBX201
|
|
00299 DTSBX201
|
|
00300 GOBACK. DTSBX201
|
|
00301 EJECT DTSBX201
|
|
00302 I0000-INITIATE. DTSBX201
|
|
00303 SET WRK-ERROR-NO-88 TO TRUE. DTSBX201
|
|
00304 MOVE 'N' TO WRK-TRACE-IND. DTSBX201
|
|
00305 DTSBX201
|
|
00306 DTSBX201
|
|
00307 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBX201
|
|
00308 DTSBX201
|
|
00309 PERFORM I3000-READ-MHDR THRU I3000-EXIT. DTSBX201
|
|
00310 DTSBX201
|
|
00311 SKIP2 DTSBX201
|
|
00312 I0000-EXIT. DTSBX201
|
|
00313 EXIT. DTSBX201
|
|
00314 I2000-OPEN-FILES-1. DTSBX201
|
|
00315 MOVE WRK-TRACE-IND TO L923-TRACE-IND. DTSBX201
|
|
00316 DTSBX201
|
|
00317 MOVE WRK-MOD-NAME TO L923-MOD-NAME. DTSBX201
|
|
00318 DTSBX201
|
|
00319 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX201
|
|
00320 PERFORM S923-OPEN-READ THRU S923-EXIT. DTSBX201
|
|
00321 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBX201
|
|
00322 DTSBX201
|
|
00323 OPEN OUTPUT BX331A1-SUMMARY. DTSBX201
|
|
00324 IF NOT BX331A1-STATUS-OK-88 DTSBX201
|
|
00325 DISPLAY 'CANNOT OPEN X331A1 SUM FILE ' BX331A1-STATUS DTSBX201
|
|
00326 SET WRK-ERROR-YES-88 TO TRUE DTSBX201
|
|
00327 GO TO I2000-EXIT. DTSBX201
|
|
00328 DTSBX201
|
|
00329 OPEN OUTPUT BX331C-TRAN. DTSBX201
|
|
00330 IF NOT BX331C-STATUS-OK-88 DTSBX201
|
|
00331 DISPLAY 'CANNOT OPEN BX331C TRN FILE ' BX331C-STATUS DTSBX201
|
|
00332 SET WRK-ERROR-YES-88 TO TRUE DTSBX201
|
|
00333 GO TO I2000-EXIT. DTSBX201
|
|
00334 DTSBX201
|
|
00335 OPEN OUTPUT HEADER-FILE. DTSBX201
|
|
00336 IF NOT HEADER-STATUS-OK-88 DTSBX201
|
|
00337 DISPLAY 'CANNOT OPEN HEADER FILE ' HEADER-STATUS DTSBX201
|
|
00338 SET WRK-ERROR-YES-88 TO TRUE DTSBX201
|
|
00339 GO TO I2000-EXIT. DTSBX201
|
|
00340 DTSBX201
|
|
00341 I2000-EXIT. DTSBX201
|
|
00342 EXIT. DTSBX201
|
|
00343 DTSBX201
|
|
00344 I3000-READ-MHDR. DTSBX201
|
|
00345 MOVE LOW-VALUES TO MSKL-REC. DTSBX201
|
|
00346 MOVE +0 TO MSKL-EMP-NO. DTSBX201
|
|
00347 SET MSKL-HDR-88 TO TRUE. DTSBX201
|
|
00348 DTSBX201
|
|
00349 PERFORM S910-READ THRU S910-EXIT. DTSBX201
|
|
00350 IF L910-NO-REC-88 DTSBX201
|
|
00351 DISPLAY 'DTSBX340: MHDR RECORD IS MISSING' DTSBX201
|
|
00352 SET WRK-ERROR-YES-88 TO TRUE DTSBX201
|
|
00353 GO TO I3000-EXIT DTSBX201
|
|
00354 ELSE DTSBX201
|
|
00355 MOVE MSKL-REC TO MHDR-REC DTSBX201
|
|
00356 PERFORM I3100-DATES THRU I3100-EXIT DTSBX201
|
|
00357 END-IF. DTSBX201
|
|
00358 DTSBX201
|
|
00359 I3000-EXIT. DTSBX201
|
|
00360 EXIT. DTSBX201
|
|
00361 DTSBX201
|
|
00362 I3100-DATES. DTSBX201
|
|
00363 MOVE MHDR-LAST-UC30-MASS-MAIL-YRQ DTSBX201
|
|
00364 TO WRK-YRQ. DTSBX201
|
|
00365 MOVE MHDR-PRIOR-RUN-DATE TO WRK-PRIOR-RUN-DT DTSBX201
|
|
00366 L004-DATE. DTSBX201
|
|
00367 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBX201
|
|
00368 SUBTRACT 1 FROM L004-QTR-5-YR. DTSBX201
|
|
00369 MOVE 1 TO L004-QTR-5-Q. DTSBX201
|
|
00370 MOVE L004-QTR-5-9 TO WRK-ANN-YRQ. DTSBX201
|
|
00371 DTSBX201
|
|
00372 DISPLAY 'WRK-YRQ ' WRK-YRQ ' ANN YRQ ' WRK-ANN-YRQ. DTSBX201
|
|
00373 DISPLAY SPACE. DTSBX201
|
|
00374 I3100-EXIT. DTSBX201
|
|
00375 EXIT. DTSBX201
|
|
00376 DTSBX201
|
|
00377 P0000-PROCESS. DTSBX201
|
|
00378 DTSBX201
|
|
00379 MOVE +0 TO WRK-BX331A-CNT. DTSBX201
|
|
00380 MOVE ZERO TO ASKL-BATCH-NO DTSBX201
|
|
00381 ASKL-ITEM-NO. DTSBX201
|
|
00382 DTSBX201
|
|
00383 DISPLAY 'UNPROCESSED TRANSACTIONS '. DTSBX201
|
|
00384 DISPLAY SPACE. DTSBX201
|
|
00385 DTSBX201
|
|
00386 PERFORM S923-START-BROWSE THRU S923-EXIT. DTSBX201
|
|
00387 IF L923-NO-REC-88 DTSBX201
|
|
00388 DISPLAY 'NO RECORDS FOUND ON FIRST READ' DTSBX201
|
|
00389 ELSE DTSBX201
|
|
00390 PERFORM UNTIL L923-NO-REC-88 DTSBX201
|
|
00391 PERFORM P1000-READ-ATC THRU P1000-EXIT DTSBX201
|
|
00392 PERFORM S923-READ-NEXT THRU S923-EXIT DTSBX201
|
|
00393 END-PERFORM. DTSBX201
|
|
00394 DTSBX201
|
|
00395 IF WRK-BX331C-CNT = 0 DTSBX201
|
|
00396 PERFORM P2000-DUMMY-REC THRU P2000-EXIT DTSBX201
|
|
00397 END-IF. DTSBX201
|
|
00398 DTSBX201
|
|
00399 P0000-EXIT. DTSBX201
|
|
00400 EXIT. DTSBX201
|
|
00401 DTSBX201
|
|
00402 P1000-READ-ATC. DTSBX201
|
|
00403 IF ASKL-BATCH-NO = 43018 OR 48259 DTSBX201
|
|
00404 DISPLAY '0 ' ASKL-BATCH-NO ' ' ASKL-ITEM-NO DTSBX201
|
|
00405 ' ' ASKL-REC-TYPE DTSBX201
|
|
00406 END-IF. DTSBX201
|
|
00407 EVALUATE TRUE DTSBX201
|
|
00408 WHEN ASKL-RPT-88 DTSBX201
|
|
00409 PERFORM P1100-CHK-RPT-ERRORS THRU P1100-EXIT DTSBX201
|
|
00410 DTSBX201
|
|
00411 WHEN ASKL-ATX-88 DTSBX201
|
|
00412 PERFORM P1200-CHK-ATX-ERRORS THRU P1200-EXIT DTSBX201
|
|
00413 DTSBX201
|
|
00414 WHEN ASKL-PAY-88 DTSBX201
|
|
00415 PERFORM P1300-CHK-PAY-ERRORS THRU P1300-EXIT DTSBX201
|
|
00416 DTSBX201
|
|
00417 WHEN ASKL-HDR-88 DTSBX201
|
|
00418 PERFORM P1010-HEADER THRU P1010-EXIT DTSBX201
|
|
00419 DTSBX201
|
|
00420 END-EVALUATE. DTSBX201
|
|
00421 DTSBX201
|
|
00422 P1000-EXIT. DTSBX201
|
|
00423 EXIT. DTSBX201
|
|
00424 DTSBX201
|
|
00425 P1010-HEADER. DTSBX201
|
|
00426 MOVE ASKL-REC TO AHDR-REC. DTSBX201
|
|
00427 MOVE AHDR-RECEIVED-DATE TO WRK-RCVD-DATE. DTSBX201
|
|
00428 DTSBX201
|
|
00429 MOVE AHDR-BATCH-NO TO WRK-HDR-BATCH-NO. DTSBX201
|
|
00430 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
00431 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00432 MOVE L001-SLASH-8-DATE TO WRK-RUN-DATE. DTSBX201
|
|
00433 MOVE AHDR-BATCH-BALANCED-IND TO WRK-BALANCED-IND. DTSBX201
|
|
00434 MOVE AHDR-BATCH-HELD-IND TO WRK-HELD-IND. DTSBX201
|
|
00435 MOVE AHDR-ESTB-DATE TO L001-FED-8-DATE-9. DTSBX201
|
|
00436 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00437 MOVE L001-SLASH-8-DATE TO WRK-ESTB-DATE. DTSBX201
|
|
00438 MOVE AHDR-ESTB-OP-ID TO WRK-ESTB-OPID. DTSBX201
|
|
00439 MOVE AHDR-CHNG-DATE TO L001-FED-8-DATE-9. DTSBX201
|
|
00440 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00441 IF L001-VALID-DATE DTSBX201
|
|
00442 MOVE L001-SLASH-8-DATE TO WRK-CHNG-DATE DTSBX201
|
|
00443 ELSE DTSBX201
|
|
00444 MOVE SPACES TO WRK-CHNG-DATE DTSBX201
|
|
00445 END-IF. DTSBX201
|
|
00446 MOVE AHDR-CHNG-OP-ID TO WRK-CHNG-OPID. DTSBX201
|
|
00447 MOVE AHDR-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBX201
|
|
00448 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00449 MOVE L001-SLASH-8-DATE TO WRK-DEPOSIT-DATE. DTSBX201
|
|
00450 MOVE AHDR-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX201
|
|
00451 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00452 MOVE L001-SLASH-8-DATE TO WRK-BATCH-RCVD-DATE. DTSBX201
|
|
00453 MOVE AHDR-CONTROL-TRAN-CNT TO WRK-CNTL-TRAN-CNT. DTSBX201
|
|
00454 MOVE AHDR-PROC-TRAN-CNT TO WRK-PROCESSED-TRN-CNT. DTSBX201
|
|
00455 MOVE AHDR-ATC-FILE-TRAN-CNT TO WRK-ATC-CNT. DTSBX201
|
|
00456 MOVE AHDR-CONTROL-REMIT-AMT TO WRK-CNTL-REMIT-AMT. DTSBX201
|
|
00457 MOVE AHDR-PROC-REMIT-AMT TO WRK-PROCESSED-AMT. DTSBX201
|
|
00458 MOVE AHDR-ATC-FILE-REMIT-AMT TO WRK-ATC-AMOUNT. DTSBX201
|
|
00459 IF AHDR-ANNUAL-BATCH-YES-88 DTSBX201
|
|
00460 MOVE 'Y' TO WRK-ANN-BATCH-IND DTSBX201
|
|
00461 ELSE DTSBX201
|
|
00462 MOVE 'N' TO WRK-ANN-BATCH-IND DTSBX201
|
|
00463 END-IF. DTSBX201
|
|
00464 MOVE AHDR-BANK-BATCH-NO TO WRK-BANK-BATCH-NO. DTSBX201
|
|
00465 DTSBX201
|
|
00466 WRITE HEADER-REC FROM WRK-HDR-REC. DTSBX201
|
|
00467 DTSBX201
|
|
00468 P1010-EXIT. DTSBX201
|
|
00469 EXIT. DTSBX201
|
|
00470 DTSBX201
|
|
00471 P1100-CHK-RPT-ERRORS. DTSBX201
|
|
00472 SET WRK-EMP-FOUND-NO-88 TO TRUE. DTSBX201
|
|
00473 DTSBX201
|
|
00474 MOVE ASKL-REC TO ARPT-REC. DTSBX201
|
|
00475 DTSBX201
|
|
00476 IF ARPT-BATCH-NO = 77130 DTSBX201
|
|
00477 DISPLAY '1 ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO DTSBX201
|
|
00478 ' ' ARPT-STATUS-CHNG-IND DTSBX201
|
|
00479 ' ' ARPT-PROCESSED-DATE DTSBX201
|
|
00480 END-IF. DTSBX201
|
|
00481 ************************************************************* DTSBX201
|
|
00482 * CHANGED TO INCLUDE ALL QUARTERS - DO NOT LIMIT SEARCH TO DTSBX201
|
|
00483 * WRK-YRQ. 07/26/2010 GD DTSBX201
|
|
00484 ************************************************************* DTSBX201
|
|
00485 ** IF (ARPT-ORIG-88 DTSBX201
|
|
00486 ** OR ARPT-SUPPLEM-88) DTSBX201
|
|
00487 *** AND ARPT-YRQ = WRK-YRQ DTSBX201
|
|
00488 IF ARPT-NOT-PROCESSED-88 DTSBX201
|
|
00489 NEXT SENTENCE DTSBX201
|
|
00490 ELSE DTSBX201
|
|
00491 GO TO P1100-EXIT DTSBX201
|
|
00492 END-IF. DTSBX201
|
|
00493 DTSBX201
|
|
00494 IF ARPT-BATCH-NO = 77130 DTSBX201
|
|
00495 DISPLAY '2 ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO DTSBX201
|
|
00496 ' ' ARPT-STATUS-CHNG-IND DTSBX201
|
|
00497 ' ' ARPT-PROCESSED-DATE DTSBX201
|
|
00498 END-IF. DTSBX201
|
|
00499 DTSBX201
|
|
00500 IF ARPT-STATUS-CHNG-YES-88 DTSBX201
|
|
00501 MOVE 'STATUS CHANGE' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00502 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00503 END-IF. DTSBX201
|
|
00504 DTSBX201
|
|
00505 ADD ARPT-REMIT-AMT TO WRK-TOT-REMIT. DTSBX201
|
|
00506 DTSBX201
|
|
00507 IF ARPT-EMP-NO-NO-ENTRY-88 DTSBX201
|
|
00508 MOVE SPACES TO WRK-BX331A-EMP-NO-X DTSBX201
|
|
00509 MOVE 'NO EMP NUMBER' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00510 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00511 GO TO P1100-EXIT DTSBX201
|
|
00512 END-IF. DTSBX201
|
|
00513 DTSBX201
|
|
00514 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBX201
|
|
00515 MOVE ARPT-EMP-NO TO MSKL-EMP-NO DTSBX201
|
|
00516 SET MSKL-PRF-88 TO TRUE DTSBX201
|
|
00517 PERFORM S910-READ THRU S910-EXIT DTSBX201
|
|
00518 IF L910-OK-88 DTSBX201
|
|
00519 MOVE MSKL-REC TO MPRF-REC DTSBX201
|
|
00520 SET WRK-EMP-FOUND-YES-88 TO TRUE DTSBX201
|
|
00521 PERFORM P1110-EMP-FOUND THRU P1110-EXIT DTSBX201
|
|
00522 ELSE DTSBX201
|
|
00523 * DISPLAY 'NOT FOUND ' ARPT-EMP-NO DTSBX201
|
|
00524 * ' ' ARPT-BATCH-NO DTSBX201
|
|
00525 * ' ' ARPT-ITEM-NO DTSBX201
|
|
00526 * MOVE 'EMP NOT ON FILE' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00527 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00528 END-IF. DTSBX201
|
|
00529 DTSBX201
|
|
00530 P1100-EXIT. DTSBX201
|
|
00531 EXIT. DTSBX201
|
|
00532 DTSBX201
|
|
00533 P1110-EMP-FOUND. DTSBX201
|
|
00534 IF ARPT-TOT-WAGE-NO-ENTRY-88 DTSBX201
|
|
00535 NEXT SENTENCE DTSBX201
|
|
00536 ELSE DTSBX201
|
|
00537 IF MPRF-CLASS-RATED-88 DTSBX201
|
|
00538 COMPUTE WRK-TAX-WAGE = DTSBX201
|
|
00539 (ARPT-TOT-WAGE - ARPT-EXCESS-WAGE) DTSBX201
|
|
00540 COMPUTE WRK-DIFF = WRK-TAX-WAGE - ARPT-TAX-WAGE DTSBX201
|
|
00541 IF WRK-DIFF > +1 OR WRK-DIFF < -1 DTSBX201
|
|
00542 MOVE 'ARITHMETIC ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00543 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00544 GO TO P1110-EXIT DTSBX201
|
|
00545 END-IF DTSBX201
|
|
00546 END-IF DTSBX201
|
|
00547 END-IF. DTSBX201
|
|
00548 DTSBX201
|
|
00549 IF ARPT-NAME-CHECK NOT = MPRF-PRIMARY-NAME (1:4) DTSBX201
|
|
00550 * DISPLAY 'NAME CHECK ' ARPT-EMP-NO DTSBX201
|
|
00551 * ' ' ARPT-BATCH-NO DTSBX201
|
|
00552 * ' ' ARPT-ITEM-NO DTSBX201
|
|
00553 MOVE 'NAME CHECK ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00554 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00555 GO TO P1110-EXIT DTSBX201
|
|
00556 END-IF. DTSBX201
|
|
00557 DTSBX201
|
|
00558 IF ARPT-YRQ-NO-ENTRY-88 DTSBX201
|
|
00559 * DISPLAY 'NO QUARTER ' ARPT-EMP-NO DTSBX201
|
|
00560 * ' ' ARPT-BATCH-NO DTSBX201
|
|
00561 * ' ' ARPT-ITEM-NO DTSBX201
|
|
00562 MOVE 'NO QUARTER ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00563 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00564 GO TO P1110-EXIT DTSBX201
|
|
00565 END-IF. DTSBX201
|
|
00566 DTSBX201
|
|
00567 MOVE ARPT-YRQ TO L516-YRQ DTSBX201
|
|
00568 PERFORM S516-LIABILITY THRU S516-EXIT DTSBX201
|
|
00569 IF L516-NOT-LIABLE-88 DTSBX201
|
|
00570 * DISPLAY 'NOT LIABLE ' ARPT-EMP-NO DTSBX201
|
|
00571 * ' ' ARPT-BATCH-NO DTSBX201
|
|
00572 * ' ' ARPT-ITEM-NO DTSBX201
|
|
00573 MOVE 'NOT LIABLE ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00574 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00575 GO TO P1110-EXIT DTSBX201
|
|
00576 END-IF. DTSBX201
|
|
00577 DTSBX201
|
|
00578 IF L516-NO-RATE-88 DTSBX201
|
|
00579 MOVE 'MISSING RATE ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00580 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00581 GO TO P1110-EXIT DTSBX201
|
|
00582 END-IF. DTSBX201
|
|
00583 DTSBX201
|
|
00584 IF L516-ANN-SCHED-88 DTSBX201
|
|
00585 MOVE 'QTRLY REPORT FOR ANNUAL FILER' DTSBX201
|
|
00586 TO WRK-BX331A-MESSAGE DTSBX201
|
|
00587 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00588 GO TO P1110-EXIT DTSBX201
|
|
00589 END-IF. DTSBX201
|
|
00590 DTSBX201
|
|
00591 IF ARPT-TAX-WAGE = ZERO DTSBX201
|
|
00592 AND ARPT-REMIT-AMT > ZERO DTSBX201
|
|
00593 MOVE 'REMITTANCE BUT NO TAXABLE WAGES' DTSBX201
|
|
00594 TO WRK-BX331A-MESSAGE DTSBX201
|
|
00595 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00596 GO TO P1110-EXIT DTSBX201
|
|
00597 END-IF. DTSBX201
|
|
00598 DTSBX201
|
|
00599 ************************************************************* DTSBX201
|
|
00600 * CHANGED TO INCLUDE ALL QUARTERS - USE ARPT-YRQ INSTEAD OF DTSBX201
|
|
00601 * WRK-YRQ. 07/26/2010 GD DTSBX201
|
|
00602 ************************************************************* DTSBX201
|
|
00603 MOVE LOW-VALUES TO MQTR-KEY-AREA DTSBX201
|
|
00604 MOVE ARPT-EMP-NO TO MQTR-EMP-NO DTSBX201
|
|
00605 MOVE ARPT-YRQ TO MQTR-YRQ. DTSBX201
|
|
00606 SET MQTR-QTR-88 TO TRUE DTSBX201
|
|
00607 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBX201
|
|
00608 PERFORM S910-READ THRU S910-EXIT DTSBX201
|
|
00609 IF L910-OK-88 DTSBX201
|
|
00610 MOVE MSKL-REC TO MQTR-REC DTSBX201
|
|
00611 IF MQTR-CURR-RCVD-88 DTSBX201
|
|
00612 * DISPLAY 'RPT ON FILE ' ARPT-EMP-NO DTSBX201
|
|
00613 * ' ' ARPT-BATCH-NO DTSBX201
|
|
00614 * ' ' ARPT-ITEM-NO DTSBX201
|
|
00615 MOVE 'RPT ON FILE ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00616 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00617 GO TO P1110-EXIT DTSBX201
|
|
00618 END-IF DTSBX201
|
|
00619 END-IF. DTSBX201
|
|
00620 DTSBX201
|
|
00621 IF ARPT-NOT-PROCESSED-88 DTSBX201
|
|
00622 MOVE 'ERROR (NO DESCRIPTION)' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00623 PERFORM P1120-WRITE THRU P1120-EXIT DTSBX201
|
|
00624 END-IF. DTSBX201
|
|
00625 DTSBX201
|
|
00626 P1110-EXIT. DTSBX201
|
|
00627 EXIT. DTSBX201
|
|
00628 DTSBX201
|
|
00629 P1120-WRITE. DTSBX201
|
|
00630 IF ARPT-BATCH-NO = 77130 DTSBX201
|
|
00631 DISPLAY '3 ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO DTSBX201
|
|
00632 ' ' ARPT-STATUS-CHNG-IND DTSBX201
|
|
00633 ' ' ARPT-PROCESSED-DATE DTSBX201
|
|
00634 END-IF. DTSBX201
|
|
00635 DTSBX201
|
|
00636 IF WRK-BX331A-MESSAGE (1:6) = 'STATUS' DTSBX201
|
|
00637 SET WRK-BX331A-SOURCE-STATUS-88 TO TRUE DTSBX201
|
|
00638 ELSE DTSBX201
|
|
00639 SET WRK-BX331A-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
00640 END-IF. DTSBX201
|
|
00641 PERFORM P1121-REC1 THRU P1121-EXIT. DTSBX201
|
|
00642 PERFORM P1122-REC3 THRU P1122-EXIT. DTSBX201
|
|
00643 DTSBX201
|
|
00644 P1120-EXIT. DTSBX201
|
|
00645 EXIT. DTSBX201
|
|
00646 DTSBX201
|
|
00647 P1121-REC1. DTSBX201
|
|
00648 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
00649 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00650 MOVE L001-SLASH-8-DATE TO WRK-BX331A-PROCESS-DT. DTSBX201
|
|
00651 IF ARPT-EMP-NO-NO-ENTRY-88 DTSBX201
|
|
00652 MOVE SPACES TO WRK-BX331A-EMP-NO-X DTSBX201
|
|
00653 ELSE DTSBX201
|
|
00654 MOVE ARPT-EMP-NO TO WRK-BX331A-EMP-NO DTSBX201
|
|
00655 END-IF. DTSBX201
|
|
00656 MOVE ARPT-BATCH-NO TO WRK-BX331A-BATCH. DTSBX201
|
|
00657 MOVE ARPT-ITEM-NO TO WRK-BX331A-ITEM. DTSBX201
|
|
00658 MOVE ARPT-RPT-TYPE TO WRK-BX331A-TRAN. DTSBX201
|
|
00659 IF WRK-BX331A-MESSAGE (1:6) = 'STATUS' DTSBX201
|
|
00660 SET WRK-BX331A-SOURCE-STATUS-88 TO TRUE DTSBX201
|
|
00661 ELSE DTSBX201
|
|
00662 SET WRK-BX331A-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
00663 END-IF. DTSBX201
|
|
00664 DTSBX201
|
|
00665 WRITE BX331A1-REC FROM WRK-BX331A-REC. DTSBX201
|
|
00666 ADD +1 TO WRK-BX331A-CNT. DTSBX201
|
|
00667 DTSBX201
|
|
00668 P1121-EXIT. DTSBX201
|
|
00669 EXIT. DTSBX201
|
|
00670 DTSBX201
|
|
00671 P1122-REC3. DTSBX201
|
|
00672 *** SET WRK-BX331C-SOURCE-ERROR-88 TO TRUE. DTSBX201
|
|
00673 MOVE ARPT-BATCH-NO TO WRK-BX331C-BATCH-NO. DTSBX201
|
|
00674 MOVE ARPT-ITEM-NO TO WRK-BX331C-ITEM-NO. DTSBX201
|
|
00675 MOVE ARPT-RPT-TYPE TO WRK-BX331C-TRAN. DTSBX201
|
|
00676 IF ARPT-EMP-NO-NO-ENTRY-88 DTSBX201
|
|
00677 MOVE SPACES TO WRK-BX331C-EMP-NO-X DTSBX201
|
|
00678 ELSE DTSBX201
|
|
00679 MOVE ARPT-EMP-NO TO WRK-BX331C-EMP-NO DTSBX201
|
|
00680 END-IF. DTSBX201
|
|
00681 IF ARPT-YRQ-NO-ENTRY-88 DTSBX201
|
|
00682 MOVE SPACES TO WRK-BX331C-QTR DTSBX201
|
|
00683 ELSE DTSBX201
|
|
00684 MOVE ARPT-YRQ TO L004-QTR-5-9 DTSBX201
|
|
00685 PERFORM S004-FROM-5 THRU S004-EXIT DTSBX201
|
|
00686 MOVE L004-SLASH-5-QTR TO WRK-BX331C-QTR DTSBX201
|
|
00687 END-IF. DTSBX201
|
|
00688 MOVE ARPT-REMIT-AMT TO WRK-BX331C-REMIT. DTSBX201
|
|
00689 IF ARPT-TOT-WAGE-NO-ENTRY-88 DTSBX201
|
|
00690 MOVE ZERO TO WRK-BX331C-TOT-WAGE DTSBX201
|
|
00691 ELSE DTSBX201
|
|
00692 MOVE ARPT-TOT-WAGE TO WRK-BX331C-TOT-WAGE DTSBX201
|
|
00693 END-IF. DTSBX201
|
|
00694 IF ARPT-TAX-WAGE-NO-ENTRY-88 DTSBX201
|
|
00695 MOVE ZERO TO WRK-BX331C-TAX-WAGE DTSBX201
|
|
00696 ELSE DTSBX201
|
|
00697 MOVE ARPT-TAX-WAGE TO WRK-BX331C-TAX-WAGE DTSBX201
|
|
00698 END-IF. DTSBX201
|
|
00699 IF ARPT-EXCESS-WAGE-NO-ENTRY-88 DTSBX201
|
|
00700 MOVE ZERO TO WRK-BX331C-EXCESS-WAGE DTSBX201
|
|
00701 ELSE DTSBX201
|
|
00702 MOVE ARPT-EXCESS-WAGE TO WRK-BX331C-EXCESS-WAGE DTSBX201
|
|
00703 END-IF. DTSBX201
|
|
00704 DTSBX201
|
|
00705 MOVE LOW-VALUES TO MRTE-KEY-AREA DTSBX201
|
|
00706 MOVE ARPT-EMP-NO TO MRTE-EMP-NO DTSBX201
|
|
00707 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX201
|
|
00708 MOVE 1 TO L004-QTR-5-YR. DTSBX201
|
|
00709 MOVE L004-QTR-5-9 TO MRTE-EFF-YRQ. DTSBX201
|
|
00710 SET MRTE-RTE-88 TO TRUE DTSBX201
|
|
00711 MOVE MRTE-KEY-AREA TO MSKL-KEY-AREA. DTSBX201
|
|
00712 PERFORM S910-READ THRU S910-EXIT DTSBX201
|
|
00713 IF L910-OK-88 DTSBX201
|
|
00714 MOVE MSKL-REC TO MRTE-REC DTSBX201
|
|
00715 MOVE MRTE-UI-RATE TO WRK-BX331C-RATE DTSBX201
|
|
00716 ELSE DTSBX201
|
|
00717 MOVE SPACES TO WRK-BX331C-RATE-X DTSBX201
|
|
00718 END-IF. DTSBX201
|
|
00719 DTSBX201
|
|
00720 MOVE SPACES TO WRK-BX331C-ACCT. DTSBX201
|
|
00721 MOVE 'R' TO WRK-BX331C-CATEGORY. DTSBX201
|
|
00722 DTSBX201
|
|
00723 IF WRK-BX331A-MESSAGE (1:6) = 'STATUS' DTSBX201
|
|
00724 SET WRK-BX331C-SOURCE-STATUS-88 TO TRUE DTSBX201
|
|
00725 ELSE DTSBX201
|
|
00726 SET WRK-BX331C-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
00727 END-IF. DTSBX201
|
|
00728 IF ARPT-RECEIVED-DATE = ZEROS DTSBX201
|
|
00729 MOVE WRK-RCVD-DATE TO ARPT-RECEIVED-DATE DTSBX201
|
|
00730 END-IF. DTSBX201
|
|
00731 DTSBX201
|
|
00732 MOVE ARPT-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX201
|
|
00733 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00734 MOVE L001-SLASH-8-DATE TO WRK-BX331C-RCVD-DT. DTSBX201
|
|
00735 DTSBX201
|
|
00736 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
00737 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00738 MOVE L001-SLASH-8-DATE TO WRK-BX331C-PROCESS-DT. DTSBX201
|
|
00739 DTSBX201
|
|
00740 WRITE BX331C-REC FROM WRK-BX331C-REC. DTSBX201
|
|
00741 ADD +1 TO WRK-BX331C-CNT. DTSBX201
|
|
00742 DTSBX201
|
|
00743 P1122-EXIT. DTSBX201
|
|
00744 EXIT. DTSBX201
|
|
00745 DTSBX201
|
|
00746 P1200-CHK-ATX-ERRORS. DTSBX201
|
|
00747 SET WRK-EMP-FOUND-NO-88 TO TRUE. DTSBX201
|
|
00748 DTSBX201
|
|
00749 MOVE ASKL-REC TO AATX-REC. DTSBX201
|
|
00750 DTSBX201
|
|
00751 ** IF (AATX-ORIG-88 DTSBX201
|
|
00752 ** OR AATX-SUPPLEM-88) DTSBX201
|
|
00753 ** AND AATX-YRQ = WRK-ANN-YRQ DTSBX201
|
|
00754 IF AATX-NOT-PROCESSED-88 DTSBX201
|
|
00755 NEXT SENTENCE DTSBX201
|
|
00756 ELSE DTSBX201
|
|
00757 GO TO P1200-EXIT DTSBX201
|
|
00758 END-IF. DTSBX201
|
|
00759 DTSBX201
|
|
00760 IF AATX-STATUS-CHANGE-YES-88 DTSBX201
|
|
00761 MOVE 'STATUS CHANGE' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00762 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00763 END-IF. DTSBX201
|
|
00764 DTSBX201
|
|
00765 ADD AATX-REMIT-AMT TO WRK-TOT-REMIT. DTSBX201
|
|
00766 DTSBX201
|
|
00767 IF AATX-EMP-NO-NO-ENTRY-88 DTSBX201
|
|
00768 MOVE SPACES TO WRK-BX331A-EMP-NO-X DTSBX201
|
|
00769 MOVE 'NO EMP NUMBER' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00770 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00771 GO TO P1200-EXIT DTSBX201
|
|
00772 END-IF. DTSBX201
|
|
00773 DTSBX201
|
|
00774 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBX201
|
|
00775 MOVE AATX-EMP-NO TO MSKL-EMP-NO DTSBX201
|
|
00776 SET MSKL-PRF-88 TO TRUE DTSBX201
|
|
00777 PERFORM S910-READ THRU S910-EXIT DTSBX201
|
|
00778 IF L910-OK-88 DTSBX201
|
|
00779 MOVE MSKL-REC TO MPRF-REC DTSBX201
|
|
00780 SET WRK-EMP-FOUND-YES-88 TO TRUE DTSBX201
|
|
00781 PERFORM P1210-EMP-FOUND THRU P1210-EXIT DTSBX201
|
|
00782 ELSE DTSBX201
|
|
00783 * DISPLAY 'NOT FOUND ' AATX-EMP-NO DTSBX201
|
|
00784 * ' ' AATX-BATCH-NO DTSBX201
|
|
00785 * ' ' AATX-ITEM-NO DTSBX201
|
|
00786 * MOVE 'EMP NOT ON FILE' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00787 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00788 END-IF. DTSBX201
|
|
00789 DTSBX201
|
|
00790 P1200-EXIT. DTSBX201
|
|
00791 EXIT. DTSBX201
|
|
00792 DTSBX201
|
|
00793 P1210-EMP-FOUND. DTSBX201
|
|
00794 IF AATX-TOT-WAGE-NO-ENTRY-88 DTSBX201
|
|
00795 NEXT SENTENCE DTSBX201
|
|
00796 ELSE DTSBX201
|
|
00797 IF MPRF-CLASS-RATED-88 DTSBX201
|
|
00798 COMPUTE WRK-TAX-WAGE = DTSBX201
|
|
00799 (AATX-TOT-WAGE - AATX-EXCESS-WAGE) DTSBX201
|
|
00800 COMPUTE WRK-DIFF = WRK-TAX-WAGE - AATX-TAX-WAGE DTSBX201
|
|
00801 IF WRK-DIFF > +1 OR WRK-DIFF < -1 DTSBX201
|
|
00802 MOVE 'ARITHMETIC ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00803 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00804 GO TO P1210-EXIT DTSBX201
|
|
00805 END-IF DTSBX201
|
|
00806 END-IF DTSBX201
|
|
00807 END-IF. DTSBX201
|
|
00808 DTSBX201
|
|
00809 IF AATX-NAME-CHECK NOT = MPRF-PRIMARY-NAME (1:4) DTSBX201
|
|
00810 * DISPLAY 'NAME CHECK ' AATX-EMP-NO DTSBX201
|
|
00811 * ' ' AATX-BATCH-NO DTSBX201
|
|
00812 * ' ' AATX-ITEM-NO DTSBX201
|
|
00813 MOVE 'NAME CHECK ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00814 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00815 GO TO P1210-EXIT DTSBX201
|
|
00816 END-IF. DTSBX201
|
|
00817 DTSBX201
|
|
00818 IF AATX-YRQ-NO-ENTRY-88 DTSBX201
|
|
00819 * DISPLAY 'NO QUARTER ' AATX-EMP-NO DTSBX201
|
|
00820 * ' ' AATX-BATCH-NO DTSBX201
|
|
00821 * ' ' AATX-ITEM-NO DTSBX201
|
|
00822 MOVE 'NO QUARTER ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00823 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00824 GO TO P1210-EXIT DTSBX201
|
|
00825 END-IF. DTSBX201
|
|
00826 DTSBX201
|
|
00827 MOVE AATX-YRQ TO L516-YRQ DTSBX201
|
|
00828 PERFORM S516-LIABILITY THRU S516-EXIT DTSBX201
|
|
00829 IF L516-NOT-LIABLE-88 DTSBX201
|
|
00830 * DISPLAY 'NOT LIABLE ' AATX-EMP-NO DTSBX201
|
|
00831 * ' ' AATX-BATCH-NO DTSBX201
|
|
00832 * ' ' AATX-ITEM-NO DTSBX201
|
|
00833 MOVE 'NOT LIABLE ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00834 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00835 GO TO P1210-EXIT DTSBX201
|
|
00836 END-IF. DTSBX201
|
|
00837 DTSBX201
|
|
00838 IF NOT L516-ANN-SCHED-88 DTSBX201
|
|
00839 MOVE 'ANNUAL REPORT FOR QTRLY FILER' DTSBX201
|
|
00840 TO WRK-BX331A-MESSAGE DTSBX201
|
|
00841 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00842 GO TO P1200-EXIT DTSBX201
|
|
00843 END-IF. DTSBX201
|
|
00844 DTSBX201
|
|
00845 IF AATX-TAX-WAGE = ZERO DTSBX201
|
|
00846 AND AATX-REMIT-AMT > ZERO DTSBX201
|
|
00847 MOVE 'REMITTANCE BUT NO TAXABLE WAGES' DTSBX201
|
|
00848 TO WRK-BX331A-MESSAGE DTSBX201
|
|
00849 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00850 GO TO P1200-EXIT DTSBX201
|
|
00851 END-IF. DTSBX201
|
|
00852 DTSBX201
|
|
00853 MOVE LOW-VALUES TO MQTR-KEY-AREA DTSBX201
|
|
00854 MOVE AATX-EMP-NO TO MQTR-EMP-NO DTSBX201
|
|
00855 MOVE WRK-YRQ TO MQTR-YRQ. DTSBX201
|
|
00856 SET MQTR-QTR-88 TO TRUE DTSBX201
|
|
00857 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBX201
|
|
00858 PERFORM S910-READ THRU S910-EXIT DTSBX201
|
|
00859 IF L910-OK-88 DTSBX201
|
|
00860 MOVE MSKL-REC TO MQTR-REC DTSBX201
|
|
00861 IF MQTR-CURR-RCVD-88 DTSBX201
|
|
00862 * DISPLAY 'ATX ON FILE ' AATX-EMP-NO DTSBX201
|
|
00863 * ' ' AATX-BATCH-NO DTSBX201
|
|
00864 * ' ' AATX-ITEM-NO DTSBX201
|
|
00865 MOVE 'ATX ON FILE ' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00866 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00867 GO TO P1210-EXIT DTSBX201
|
|
00868 END-IF DTSBX201
|
|
00869 END-IF. DTSBX201
|
|
00870 DTSBX201
|
|
00871 IF AATX-NOT-PROCESSED-88 DTSBX201
|
|
00872 MOVE 'ERROR (NO DESCRIPTION)' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00873 PERFORM P1220-WRITE THRU P1220-EXIT DTSBX201
|
|
00874 END-IF. DTSBX201
|
|
00875 DTSBX201
|
|
00876 P1210-EXIT. DTSBX201
|
|
00877 EXIT. DTSBX201
|
|
00878 DTSBX201
|
|
00879 P1220-WRITE. DTSBX201
|
|
00880 IF WRK-BX331A-MESSAGE (1:6) = 'STATUS' DTSBX201
|
|
00881 SET WRK-BX331A-SOURCE-STATUS-88 TO TRUE DTSBX201
|
|
00882 ELSE DTSBX201
|
|
00883 SET WRK-BX331A-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
00884 END-IF. DTSBX201
|
|
00885 PERFORM P1221-REC1 THRU P1221-EXIT. DTSBX201
|
|
00886 PERFORM P1222-REC3 THRU P1222-EXIT. DTSBX201
|
|
00887 DTSBX201
|
|
00888 P1220-EXIT. DTSBX201
|
|
00889 EXIT. DTSBX201
|
|
00890 DTSBX201
|
|
00891 P1221-REC1. DTSBX201
|
|
00892 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
00893 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00894 MOVE L001-SLASH-8-DATE TO WRK-BX331A-PROCESS-DT. DTSBX201
|
|
00895 IF AATX-EMP-NO-NO-ENTRY-88 DTSBX201
|
|
00896 MOVE SPACES TO WRK-BX331A-EMP-NO-X DTSBX201
|
|
00897 ELSE DTSBX201
|
|
00898 MOVE AATX-EMP-NO TO WRK-BX331A-EMP-NO DTSBX201
|
|
00899 END-IF. DTSBX201
|
|
00900 MOVE AATX-BATCH-NO TO WRK-BX331A-BATCH. DTSBX201
|
|
00901 MOVE AATX-ITEM-NO TO WRK-BX331A-ITEM. DTSBX201
|
|
00902 MOVE AATX-RPT-TYPE TO WRK-BX331A-TRAN. DTSBX201
|
|
00903 IF WRK-BX331A-MESSAGE (1:6) = 'STATUS' DTSBX201
|
|
00904 SET WRK-BX331A-SOURCE-STATUS-88 TO TRUE DTSBX201
|
|
00905 ELSE DTSBX201
|
|
00906 SET WRK-BX331A-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
00907 END-IF. DTSBX201
|
|
00908 DTSBX201
|
|
00909 WRITE BX331A1-REC FROM WRK-BX331A-REC. DTSBX201
|
|
00910 ADD +1 TO WRK-BX331A-CNT. DTSBX201
|
|
00911 DTSBX201
|
|
00912 P1221-EXIT. DTSBX201
|
|
00913 EXIT. DTSBX201
|
|
00914 DTSBX201
|
|
00915 P1222-REC3. DTSBX201
|
|
00916 *** SET WRK-BX331C-SOURCE-ERROR-88 TO TRUE. DTSBX201
|
|
00917 MOVE AATX-BATCH-NO TO WRK-BX331C-BATCH-NO. DTSBX201
|
|
00918 MOVE AATX-ITEM-NO TO WRK-BX331C-ITEM-NO. DTSBX201
|
|
00919 MOVE AATX-RPT-TYPE TO WRK-BX331C-TRAN. DTSBX201
|
|
00920 IF AATX-EMP-NO-NO-ENTRY-88 DTSBX201
|
|
00921 MOVE SPACES TO WRK-BX331C-EMP-NO-X DTSBX201
|
|
00922 ELSE DTSBX201
|
|
00923 MOVE AATX-EMP-NO TO WRK-BX331C-EMP-NO DTSBX201
|
|
00924 END-IF. DTSBX201
|
|
00925 IF AATX-YRQ-NO-ENTRY-88 DTSBX201
|
|
00926 MOVE SPACES TO WRK-BX331C-QTR DTSBX201
|
|
00927 ELSE DTSBX201
|
|
00928 MOVE AATX-YRQ TO L004-QTR-5-9 DTSBX201
|
|
00929 PERFORM S004-FROM-5 THRU S004-EXIT DTSBX201
|
|
00930 MOVE L004-SLASH-5-QTR TO WRK-BX331C-QTR DTSBX201
|
|
00931 END-IF. DTSBX201
|
|
00932 MOVE AATX-REMIT-AMT TO WRK-BX331C-REMIT. DTSBX201
|
|
00933 IF AATX-TOT-WAGE-NO-ENTRY-88 DTSBX201
|
|
00934 MOVE ZERO TO WRK-BX331C-TOT-WAGE DTSBX201
|
|
00935 ELSE DTSBX201
|
|
00936 MOVE AATX-TOT-WAGE TO WRK-BX331C-TOT-WAGE DTSBX201
|
|
00937 END-IF. DTSBX201
|
|
00938 IF AATX-TAX-WAGE-NO-ENTRY-88 DTSBX201
|
|
00939 MOVE ZERO TO WRK-BX331C-TAX-WAGE DTSBX201
|
|
00940 ELSE DTSBX201
|
|
00941 MOVE AATX-TAX-WAGE TO WRK-BX331C-TAX-WAGE DTSBX201
|
|
00942 END-IF. DTSBX201
|
|
00943 IF AATX-EXCESS-WAGE-NO-ENTRY-88 DTSBX201
|
|
00944 MOVE ZERO TO WRK-BX331C-EXCESS-WAGE DTSBX201
|
|
00945 ELSE DTSBX201
|
|
00946 MOVE AATX-EXCESS-WAGE TO WRK-BX331C-EXCESS-WAGE DTSBX201
|
|
00947 END-IF. DTSBX201
|
|
00948 DTSBX201
|
|
00949 MOVE LOW-VALUES TO MRTE-KEY-AREA DTSBX201
|
|
00950 MOVE AATX-EMP-NO TO MRTE-EMP-NO DTSBX201
|
|
00951 MOVE WRK-YRQ TO L004-QTR-5-9. DTSBX201
|
|
00952 MOVE 1 TO L004-QTR-5-YR. DTSBX201
|
|
00953 MOVE L004-QTR-5-9 TO MRTE-EFF-YRQ. DTSBX201
|
|
00954 SET MRTE-RTE-88 TO TRUE DTSBX201
|
|
00955 MOVE MRTE-KEY-AREA TO MSKL-KEY-AREA. DTSBX201
|
|
00956 PERFORM S910-READ THRU S910-EXIT DTSBX201
|
|
00957 IF L910-OK-88 DTSBX201
|
|
00958 MOVE MSKL-REC TO MRTE-REC DTSBX201
|
|
00959 MOVE MRTE-UI-RATE TO WRK-BX331C-RATE DTSBX201
|
|
00960 ELSE DTSBX201
|
|
00961 MOVE SPACES TO WRK-BX331C-RATE-X DTSBX201
|
|
00962 END-IF. DTSBX201
|
|
00963 DTSBX201
|
|
00964 MOVE SPACES TO WRK-BX331C-ACCT. DTSBX201
|
|
00965 MOVE 'R' TO WRK-BX331C-CATEGORY. DTSBX201
|
|
00966 DTSBX201
|
|
00967 IF WRK-BX331A-MESSAGE (1:6) = 'STATUS' DTSBX201
|
|
00968 SET WRK-BX331C-SOURCE-STATUS-88 TO TRUE DTSBX201
|
|
00969 ELSE DTSBX201
|
|
00970 SET WRK-BX331C-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
00971 END-IF. DTSBX201
|
|
00972 IF AATX-RECEIVED-DATE = ZEROS DTSBX201
|
|
00973 MOVE WRK-RCVD-DATE TO AATX-RECEIVED-DATE DTSBX201
|
|
00974 END-IF. DTSBX201
|
|
00975 DTSBX201
|
|
00976 MOVE AATX-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX201
|
|
00977 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00978 MOVE L001-SLASH-8-DATE TO WRK-BX331C-RCVD-DT. DTSBX201
|
|
00979 DTSBX201
|
|
00980 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
00981 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
00982 MOVE L001-SLASH-8-DATE TO WRK-BX331C-PROCESS-DT. DTSBX201
|
|
00983 DTSBX201
|
|
00984 WRITE BX331C-REC FROM WRK-BX331C-REC. DTSBX201
|
|
00985 ADD +1 TO WRK-BX331C-CNT. DTSBX201
|
|
00986 DTSBX201
|
|
00987 P1222-EXIT. DTSBX201
|
|
00988 EXIT. DTSBX201
|
|
00989 DTSBX201
|
|
00990 P1300-CHK-PAY-ERRORS. DTSBX201
|
|
00991 MOVE ASKL-REC TO APAY-REC. DTSBX201
|
|
00992 DTSBX201
|
|
00993 IF APAY-NOT-PROCESSED-88 DTSBX201
|
|
00994 ** AND APAY-PAYMENT-88 DTSBX201
|
|
00995 MOVE 'PAYMENT ERROR' TO WRK-BX331A-MESSAGE DTSBX201
|
|
00996 PERFORM P1310-WRITE THRU P1310-EXIT DTSBX201
|
|
00997 END-IF. DTSBX201
|
|
00998 DTSBX201
|
|
00999 P1300-EXIT. DTSBX201
|
|
01000 EXIT. DTSBX201
|
|
01001 DTSBX201
|
|
01002 P1310-WRITE. DTSBX201
|
|
01003 ADD APAY-REMIT-AMT TO WRK-TOT-REMIT. DTSBX201
|
|
01004 SET WRK-BX331A-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
01005 PERFORM P1311-REC1 THRU P1311-EXIT. DTSBX201
|
|
01006 PERFORM P1312-REC3 THRU P1312-EXIT. DTSBX201
|
|
01007 DTSBX201
|
|
01008 P1310-EXIT. DTSBX201
|
|
01009 EXIT. DTSBX201
|
|
01010 DTSBX201
|
|
01011 P1311-REC1. DTSBX201
|
|
01012 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
01013 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
01014 MOVE L001-SLASH-8-DATE TO WRK-BX331A-PROCESS-DT. DTSBX201
|
|
01015 MOVE APAY-EMP-NO TO WRK-BX331A-EMP-NO DTSBX201
|
|
01016 MOVE APAY-BATCH-NO TO WRK-BX331A-BATCH. DTSBX201
|
|
01017 MOVE APAY-ITEM-NO TO WRK-BX331A-ITEM. DTSBX201
|
|
01018 MOVE APAY-PAY-TYPE TO WRK-BX331A-TRAN. DTSBX201
|
|
01019 SET WRK-BX331A-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
01020 DTSBX201
|
|
01021 WRITE BX331A1-REC FROM WRK-BX331A-REC. DTSBX201
|
|
01022 ADD +1 TO WRK-BX331A-CNT. DTSBX201
|
|
01023 DTSBX201
|
|
01024 P1311-EXIT. DTSBX201
|
|
01025 EXIT. DTSBX201
|
|
01026 DTSBX201
|
|
01027 P1312-REC3. DTSBX201
|
|
01028 MOVE APAY-BATCH-NO TO WRK-BX331C-BATCH-NO. DTSBX201
|
|
01029 MOVE APAY-ITEM-NO TO WRK-BX331C-ITEM-NO. DTSBX201
|
|
01030 MOVE APAY-PAY-TYPE TO WRK-BX331C-TRAN. DTSBX201
|
|
01031 MOVE APAY-EMP-NO TO WRK-BX331C-EMP-NO DTSBX201
|
|
01032 IF APAY-APPLIC-YRQ = ZERO DTSBX201
|
|
01033 MOVE SPACES TO WRK-BX331C-QTR DTSBX201
|
|
01034 ELSE DTSBX201
|
|
01035 MOVE APAY-APPLIC-YRQ TO L004-QTR-5-9 DTSBX201
|
|
01036 PERFORM S004-FROM-5 THRU S004-EXIT DTSBX201
|
|
01037 MOVE L004-SLASH-5-QTR TO WRK-BX331C-QTR DTSBX201
|
|
01038 END-IF. DTSBX201
|
|
01039 MOVE APAY-REMIT-AMT TO WRK-BX331C-REMIT. DTSBX201
|
|
01040 MOVE ZERO TO WRK-BX331C-TOT-WAGE DTSBX201
|
|
01041 MOVE ZERO TO WRK-BX331C-TAX-WAGE DTSBX201
|
|
01042 MOVE ZERO TO WRK-BX331C-EXCESS-WAGE DTSBX201
|
|
01043 DTSBX201
|
|
01044 MOVE SPACES TO WRK-BX331C-RATE-X DTSBX201
|
|
01045 DTSBX201
|
|
01046 MOVE APAY-APPLIC-IND TO WRK-BX331C-ACCT. DTSBX201
|
|
01047 MOVE 'P' TO WRK-BX331C-CATEGORY. DTSBX201
|
|
01048 DTSBX201
|
|
01049 SET WRK-BX331C-SOURCE-ERROR-88 TO TRUE DTSBX201
|
|
01050 IF APAY-RECEIVED-DATE = ZEROS DTSBX201
|
|
01051 MOVE WRK-RCVD-DATE TO APAY-RECEIVED-DATE DTSBX201
|
|
01052 END-IF. DTSBX201
|
|
01053 DTSBX201
|
|
01054 MOVE APAY-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBX201
|
|
01055 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
01056 MOVE L001-SLASH-8-DATE TO WRK-BX331C-RCVD-DT. DTSBX201
|
|
01057 DTSBX201
|
|
01058 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
01059 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
01060 MOVE L001-SLASH-8-DATE TO WRK-BX331C-PROCESS-DT. DTSBX201
|
|
01061 DTSBX201
|
|
01062 WRITE BX331C-REC FROM WRK-BX331C-REC. DTSBX201
|
|
01063 ADD +1 TO WRK-BX331C-CNT. DTSBX201
|
|
01064 DTSBX201
|
|
01065 P1312-EXIT. DTSBX201
|
|
01066 EXIT. DTSBX201
|
|
01067 DTSBX201
|
|
01068 P2000-DUMMY-REC. DTSBX201
|
|
01069 MOVE ZERO TO WRK-BX331C-BATCH-NO DTSBX201
|
|
01070 WRK-BX331C-ITEM-NO. DTSBX201
|
|
01071 MOVE SPACES TO WRK-BX331C-TRAN DTSBX201
|
|
01072 WRK-BX331C-EMP-NO-X DTSBX201
|
|
01073 WRK-BX331C-QTR. DTSBX201
|
|
01074 MOVE ZERO TO WRK-BX331C-REMIT DTSBX201
|
|
01075 WRK-BX331C-TOT-WAGE DTSBX201
|
|
01076 WRK-BX331C-TAX-WAGE DTSBX201
|
|
01077 WRK-BX331C-EXCESS-WAGE DTSBX201
|
|
01078 WRK-BX331C-RATE. DTSBX201
|
|
01079 DTSBX201
|
|
01080 MOVE SPACES TO WRK-BX331C-ACCT. DTSBX201
|
|
01081 MOVE 'R' TO WRK-BX331C-CATEGORY. DTSBX201
|
|
01082 DTSBX201
|
|
01083 SET WRK-BX331C-SOURCE-ERROR-88 TO TRUE. DTSBX201
|
|
01084 DTSBX201
|
|
01085 MOVE WRK-PRIOR-RUN-DT TO L001-FED-8-DATE-9. DTSBX201
|
|
01086 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX201
|
|
01087 MOVE L001-SLASH-8-DATE TO WRK-BX331C-RCVD-DT DTSBX201
|
|
01088 WRK-BX331C-PROCESS-DT. DTSBX201
|
|
01089 DTSBX201
|
|
01090 WRITE BX331C-REC FROM WRK-BX331C-REC. DTSBX201
|
|
01091 DTSBX201
|
|
01092 P2000-EXIT. DTSBX201
|
|
01093 EXIT. DTSBX201
|
|
01094 DTSBX201
|
|
01095 T0000-TERMINATE. DTSBX201
|
|
01096 CLOSE BX331A1-SUMMARY DTSBX201
|
|
01097 BX331C-TRAN DTSBX201
|
|
01098 HEADER-FILE. DTSBX201
|
|
01099 DTSBX201
|
|
01100 DTSBX201
|
|
01101 DISPLAY ' '. DTSBX201
|
|
01102 DTSBX201
|
|
01103 DISPLAY '*** DTSBX201 TERMINATION STATISTICS ***'. DTSBX201
|
|
01104 DTSBX201
|
|
01105 DISPLAY ' '. DTSBX201
|
|
01106 DTSBX201
|
|
01107 DISPLAY 'ERROR MESSAGE RECORDS WRITTEN : ' DTSBX201
|
|
01108 WRK-BX331A-CNT. DTSBX201
|
|
01109 DTSBX201
|
|
01110 DISPLAY 'TRANSACTION RECORDS WRITTEN : ' DTSBX201
|
|
01111 WRK-BX331C-CNT. DTSBX201
|
|
01112 DTSBX201
|
|
01113 MOVE WRK-TOT-REMIT TO AMT-DISP. DTSBX201
|
|
01114 DISPLAY 'TOTAL REMITTANCE NOT PROCESSED : ' DTSBX201
|
|
01115 AMT-DISP. DTSBX201
|
|
01116 DTSBX201
|
|
01117 DISPLAY 'HEADERS WRITTEN : ' DTSBX201
|
|
01118 WRK-HEADER-CNT. DTSBX201
|
|
01119 DTSBX201
|
|
01120 DTSBX201
|
|
01121 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX201
|
|
01122 PERFORM S923-CLOSE THRU S923-EXIT. DTSBX201
|
|
01123 PERFORM S931-CLOSE THRU S931-EXIT. DTSBX201
|
|
01124 DTSBX201
|
|
01125 T0000-EXIT. DTSBX201
|
|
01126 EXIT. DTSBX201
|
|
01127 DTSBX201
|
|
01128 S001-FROM-FED-8. DTSBX201
|
|
01129 SET L001-FROM-FED-8 TO TRUE. DTSBX201
|
|
01130 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX201
|
|
01131 DTSBX201
|
|
01132 S001-EXIT. DTSBX201
|
|
01133 EXIT. DTSBX201
|
|
01134 DTSBX201
|
|
01135 S004-FROM-5. DTSBX201
|
|
01136 SET L004-FROM-5 TO TRUE. DTSBX201
|
|
01137 GO TO S004-QTR. DTSBX201
|
|
01138 DTSBX201
|
|
01139 S004-FROM-ABS. DTSBX201
|
|
01140 SET L004-FROM-ABS TO TRUE. DTSBX201
|
|
01141 GO TO S004-QTR. DTSBX201
|
|
01142 DTSBX201
|
|
01143 S004-FROM-DATE. DTSBX201
|
|
01144 SET L004-FROM-DATE TO TRUE. DTSBX201
|
|
01145 GO TO S004-QTR. DTSBX201
|
|
01146 DTSBX201
|
|
01147 S004-QTR. DTSBX201
|
|
01148 DTSBX201
|
|
01149 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX201
|
|
01150 DTSBX201
|
|
01151 S004-EXIT. DTSBX201
|
|
01152 EXIT. DTSBX201
|
|
01153 DTSBX201
|
|
01154 S516-LIABILITY. DTSBX201
|
|
01155 CALL 'DTSBU516' USING L516-LINK-AREA DTSBX201
|
|
01156 MPRF-REC. DTSBX201
|
|
01157 DTSBX201
|
|
01158 S516-EXIT. DTSBX201
|
|
01159 EXIT. DTSBX201
|
|
01160 EJECT DTSBX201
|
|
01161 S923-OPEN-READ. DTSBX201
|
|
01162 SET L923-OPEN-READ-88 TO TRUE. DTSBX201
|
|
01163 GO TO S923-ATC-IO. DTSBX201
|
|
01164 DTSBX201
|
|
01165 S923-OPEN-UPDATE. DTSBX201
|
|
01166 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBX201
|
|
01167 GO TO S923-ATC-IO. DTSBX201
|
|
01168 DTSBX201
|
|
01169 S923-START-BROWSE. DTSBX201
|
|
01170 SET L923-START-BROWSE-88 TO TRUE. DTSBX201
|
|
01171 GO TO S923-ATC-IO. DTSBX201
|
|
01172 DTSBX201
|
|
01173 S923-READ-NEXT. DTSBX201
|
|
01174 SET L923-READ-NEXT-88 TO TRUE. DTSBX201
|
|
01175 GO TO S923-ATC-IO. DTSBX201
|
|
01176 DTSBX201
|
|
01177 S923-REWRITE. DTSBX201
|
|
01178 SET L923-REWRITE-88 TO TRUE. DTSBX201
|
|
01179 GO TO S923-ATC-IO. DTSBX201
|
|
01180 DTSBX201
|
|
01181 S923-DELETE. DTSBX201
|
|
01182 SET L923-DELETE-88 TO TRUE. DTSBX201
|
|
01183 GO TO S923-ATC-IO. DTSBX201
|
|
01184 DTSBX201
|
|
01185 S923-CLOSE. DTSBX201
|
|
01186 SET L923-CLOSE-88 TO TRUE. DTSBX201
|
|
01187 GO TO S923-ATC-IO. DTSBX201
|
|
01188 DTSBX201
|
|
01189 S923-ATC-IO. DTSBX201
|
|
01190 CALL 'DTSBU923' USING L923-LINK-AREA DTSBX201
|
|
01191 ASKL-REC. DTSBX201
|
|
01192 S923-EXIT. DTSBX201
|
|
01193 EXIT. DTSBX201
|
|
01194 SKIP3 DTSBX201
|
|
01195 S910-OPEN-READ. DTSBX201
|
|
01196 SET L910-OPEN-READ-88 TO TRUE. DTSBX201
|
|
01197 GO TO S910-MSTR-IO. DTSBX201
|
|
01198 DTSBX201
|
|
01199 S910-READ. DTSBX201
|
|
01200 SET L910-READ-88 TO TRUE. DTSBX201
|
|
01201 GO TO S910-MSTR-IO. DTSBX201
|
|
01202 DTSBX201
|
|
01203 S910-START-BROWSE. DTSBX201
|
|
01204 SET L910-START-BROWSE-88 TO TRUE. DTSBX201
|
|
01205 GO TO S910-MSTR-IO. DTSBX201
|
|
01206 DTSBX201
|
|
01207 S910-READ-NEXT. DTSBX201
|
|
01208 SET L910-READ-NEXT-88 TO TRUE. DTSBX201
|
|
01209 GO TO S910-MSTR-IO. DTSBX201
|
|
01210 S910-CLOSE. DTSBX201
|
|
01211 SET L910-CLOSE-88 TO TRUE. DTSBX201
|
|
01212 GO TO S910-MSTR-IO. DTSBX201
|
|
01213 DTSBX201
|
|
01214 S910-MSTR-IO. DTSBX201
|
|
01215 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX201
|
|
01216 MSKL-REC. DTSBX201
|
|
01217 S910-EXIT. DTSBX201
|
|
01218 EXIT. DTSBX201
|
|
01219 DTSBX201
|
|
01220 S931-OPEN-READ. DTSBX201
|
|
01221 SET L931-OPEN-READ-88 TO TRUE. DTSBX201
|
|
01222 GO TO S931-REF-IO. DTSBX201
|
|
01223 DTSBX201
|
|
01224 S931-CLOSE. DTSBX201
|
|
01225 SET L931-CLOSE-88 TO TRUE. DTSBX201
|
|
01226 GO TO S931-REF-IO. DTSBX201
|
|
01227 DTSBX201
|
|
01228 S931-REF-IO. DTSBX201
|
|
01229 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX201
|
|
01230 FSKL-REC. DTSBX201
|
|
01231 S931-EXIT. DTSBX201
|
|
01232 EXIT. DTSBX201
|
|
01233 DTSBX201
|
|
01234 S999-ABEND. DTSBX201
|
|
01235 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX201
|
|
01236 S999-EXIT. DTSBX201
|
|
01237 EXIT. DTSBX201
|