DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
881
Batch/DTSBX423.cob
Normal file
881
Batch/DTSBX423.cob
Normal file
@ -0,0 +1,881 @@
|
||||
00001 IDENTIFICATION DIVISION. 10/17/14
|
||||
00002 PROGRAM-ID. DTSBX423. DTSBX423
|
||||
00003 AUTHOR. NGC. LV008
|
||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX423
|
||||
00005 DATE-COMPILED. DTSBX423
|
||||
00006 SKIP3 DTSBX423
|
||||
00007 ***** DTSBX423
|
||||
00008 * DTSBX423
|
||||
00009 * FUNCTION: EDIT PAYMENT DATA FROM WEB APPLICATION. DTSBX423
|
||||
00010 * DTSBX423
|
||||
00011 * MODIFICATION HISTORY: DTSBX423
|
||||
00012 * DTSBX423
|
||||
00013 * 04-05-2005 INITIAL DEVELOPMENT DTSBX423
|
||||
00014 * REFERENCE RFP: WEB REGISTRATION DTSBX423
|
||||
00015 * DTSBX423
|
||||
00016 * 06-09-2010 MODIFIED FOR IN-HOUSE CASHIERING. DTSBX423
|
||||
00017 * REFERENCE RFP: IN-HOUSE CASHIERING GD DTSBX423
|
||||
00018 * DTSBX423
|
||||
00019 * DTSBX423
|
||||
00020 ***** DTSBX423
|
||||
00021 SKIP3 DTSBX423
|
||||
00022 ENVIRONMENT DIVISION. DTSBX423
|
||||
00023 SKIP2 DTSBX423
|
||||
00024 INPUT-OUTPUT SECTION. DTSBX423
|
||||
00025 DTSBX423
|
||||
00026 FILE-CONTROL. DTSBX423
|
||||
00027 DTSBX423
|
||||
00028 SELECT BATCH-XREF-FILE ASSIGN TO BX214423 DTSBX423
|
||||
00029 FILE STATUS IS BATCH-XREF-STATUS. DTSBX423
|
||||
00030 DTSBX423
|
||||
00031 DATA DIVISION. DTSBX423
|
||||
00032 DTSBX423
|
||||
00033 FILE SECTION. DTSBX423
|
||||
00034 DTSBX423
|
||||
00035 FD BATCH-XREF-FILE DTSBX423
|
||||
00036 RECORDING MODE IS F DTSBX423
|
||||
00037 BLOCK CONTAINS 0 RECORDS DTSBX423
|
||||
00038 LABEL RECORDS ARE OMITTED. DTSBX423
|
||||
00039 DTSBX423
|
||||
00040 01 BATCH-XREF-REC PIC X(30). DTSBX423
|
||||
00041 DTSBX423
|
||||
00042 WORKING-STORAGE SECTION. DTSBX423
|
||||
000425 77 PAN-VALET PICTURE X(24) VALUE '008DTSBX423 10/17/14'. DTSBX423
|
||||
00043 77 PAN-VALET PICTURE X(24) VALUE '014DTSBX423 09/30/14'. DTSBX423
|
||||
00044 SKIP3 DTSBX423
|
||||
00045 01 WRK-AREA. DTSBX423
|
||||
00046 05 W-ABEND-CD PIC S9(04) COMP VALUE 423. DTSBX423
|
||||
00047 05 W-MOD-NAME PIC X(08) VALUE 'DTSBX423'.DTSBX423
|
||||
00048 DTSBX423
|
||||
00049 05 W-PREV-REC-TYPE PIC X(03) VALUE SPACES. DTSBX423
|
||||
00050 88 W-PREV-REC-NULL-88 VALUE 'XXX'. DTSBX423
|
||||
00051 88 W-PREV-REC-PRF-88 VALUE '102'. DTSBX423
|
||||
00052 88 W-PREV-REC-DETERM-88 VALUE '104'. DTSBX423
|
||||
00053 88 W-PREV-REC-NAME-88 VALUE '106'. DTSBX423
|
||||
00054 88 W-PREV-REC-RATE-88 VALUE '108'. DTSBX423
|
||||
00055 88 W-PREV-REC-ADDR-88 VALUE '110'. DTSBX423
|
||||
00056 88 W-PREV-REC-OPO-88 VALUE '120'. DTSBX423
|
||||
00057 88 W-PREV-REC-REL-88 VALUE '130'. DTSBX423
|
||||
00058 88 W-PREV-REC-IND-88 VALUE '132'. DTSBX423
|
||||
00059 88 W-PREV-REC-RPT-88 VALUE '140'. DTSBX423
|
||||
00060 88 W-PREV-REC-WAGE-88 VALUE '144'. DTSBX423
|
||||
00061 88 W-PREV-REC-PAY-88 VALUE '145'. DTSBX423
|
||||
00062 DTSBX423
|
||||
00063 05 W-ERROR-IND PIC X(01) VALUE 'N'. DTSBX423
|
||||
00064 88 W-ERROR-YES-88 VALUE 'Y'. DTSBX423
|
||||
00065 88 W-ERROR-NO-88 VALUE 'N'. DTSBX423
|
||||
00066 DTSBX423
|
||||
00067 05 W-FATAL-ERROR-IND PIC X(01) VALUE 'N'. DTSBX423
|
||||
00068 88 W-FATAL-ERROR-YES-88 VALUE 'Y'. DTSBX423
|
||||
00069 88 W-FATAL-ERROR-NO-88 VALUE 'N'. DTSBX423
|
||||
00070 DTSBX423
|
||||
00071 05 BATCH-XREF-STATUS PIC X(02). DTSBX423
|
||||
00072 88 BATCH-XREF-OK-88 VALUE '00'. DTSBX423
|
||||
00073 DTSBX423
|
||||
00074 05 W-EMP-FOUND-IND PIC X(01) VALUE 'N'. DTSBX423
|
||||
00075 88 W-EMP-FOUND-YES-88 VALUE 'Y'. DTSBX423
|
||||
00076 88 W-EMP-FOUND-NO-88 VALUE 'N'. DTSBX423
|
||||
00077 DTSBX423
|
||||
00078 05 W-APAY-MAX PIC S9(04) COMP VALUE +100. DTSBX423
|
||||
00079 05 W-APAY-LAST PIC S9(04) COMP VALUE +0. DTSBX423
|
||||
00080 05 PSUB PIC S9(04) COMP VALUE +0. DTSBX423
|
||||
00081 05 W-APAY-TABLE. DTSBX423
|
||||
00082 10 W-APAY-ENTRY OCCURS 100 TIMES PIC X(96). DTSBX423
|
||||
00083 DTSBX423
|
||||
00084 05 W-EMP-NO PIC S9(07) COMP-3. DTSBX423
|
||||
00085 05 W-REPORT-QTR PIC S9(05) COMP-3. DTSBX423
|
||||
00086 05 W-REMITTANCE PIC S9(09)V99. DTSBX423
|
||||
00087 05 W-RECEIVED-DATE PIC S9(09) COMP-3. DTSBX423
|
||||
00088 05 W-DEPOSIT-DATE PIC S9(09) COMP-3. DTSBX423
|
||||
00089 05 W-CHK-SCAN-DATE PIC S9(09) COMP-3. DTSBX423
|
||||
00090 05 W-REMIT-AMT PIC S9(09)V99 COMP-3. DTSBX423
|
||||
00091 05 W-TRAN-CNT PIC S9(03) COMP-3. DTSBX423
|
||||
00092 DTSBX423
|
||||
00093 05 W-EARNINGS PIC S9(09)V99. DTSBX423
|
||||
00094 DTSBX423
|
||||
00095 05 W-PAY-TYPE PIC X(02). DTSBX423
|
||||
00096 88 W-PA-PAY-88 VALUE 'PA'. DTSBX423
|
||||
00097 88 W-OR-PAY-88 VALUE 'OR'. DTSBX423
|
||||
00098 88 W-EA-PAY-88 VALUE 'EA'. DTSBX423
|
||||
00099 88 W-AU-PAY-88 VALUE 'AU'. DTSBX423
|
||||
00100 88 W-FS-PAY-88 VALUE 'FS'. DTSBX423
|
||||
00101 88 W-AC-PAY-88 VALUE 'AC'. DTSBX423
|
||||
00102 88 W-ES-PAY-88 VALUE 'ES'. DTSBX423
|
||||
00103 88 W-WD-PAY-88 VALUE 'WD'. DTSBX423
|
||||
00104 88 W-PAY-REV-88 VALUE 'PR'. DTSBX423
|
||||
00105 88 W-REFUND-88 VALUE 'RF'. DTSBX423
|
||||
00106 88 W-REF-REV-88 VALUE 'RR'. DTSBX423
|
||||
00107 88 W-NG-CHECK-88 VALUE 'NG'. DTSBX423
|
||||
00108 88 W-VALID-PAY-88 VALUE 'PA' 'OR' 'EA' 'AU' DTSBX423
|
||||
00109 'FS' 'AC'. DTSBX423
|
||||
00110 DTSBX423
|
||||
00111 05 W-SEQ-NO PIC 9(07) VALUE 0. DTSBX423
|
||||
00112 DTSBX423
|
||||
00113 05 W-SLASH-DATE PIC X(10). DTSBX423
|
||||
00114 05 FILLER REDEFINES W-SLASH-DATE. DTSBX423
|
||||
00115 10 W-SLASH-DT-MM PIC X(02). DTSBX423
|
||||
00116 10 FILLER PIC X(01). DTSBX423
|
||||
00117 10 W-SLASH-DT-DD PIC X(02). DTSBX423
|
||||
00118 10 FILLER PIC X(01). DTSBX423
|
||||
00119 10 W-SLASH-DT-CCYY PIC X(04). DTSBX423
|
||||
00120 DTSBX423
|
||||
00121 05 W-SLASH-QTR PIC X(06). DTSBX423
|
||||
00122 05 FILLER REDEFINES W-SLASH-QTR. DTSBX423
|
||||
00123 10 W-SLASH-QTR-CCYY PIC X(04). DTSBX423
|
||||
00124 10 FILLER PIC X(01). DTSBX423
|
||||
00125 10 W-SLASH-QTR-Q PIC X(01). DTSBX423
|
||||
00126 DTSBX423
|
||||
00127 * PAYMENT DTSBX423
|
||||
00128 05 W-X145-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX423
|
||||
00129 DTSBX423
|
||||
00130 05 W-APAY-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX423
|
||||
00131 DTSBX423
|
||||
00132 05 W-T025-WRITE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX423
|
||||
00133 DTSBX423
|
||||
00134 05 W-BX214-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX423
|
||||
00135 DTSBX423
|
||||
00136 05 W-X145-LENGTH PIC S9(04) COMP. DTSBX423
|
||||
00137 DTSBX423
|
||||
00138 05 W-AMT-DISP1 PIC ----------9.99. DTSBX423
|
||||
00139 05 W-AMT-DISP2 PIC ----------9.99. DTSBX423
|
||||
00140 *RW1 DTSBX423
|
||||
00141 05 WRK-R140-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX423
|
||||
00142 05 DISPLAY-CNT PIC Z(06)9. DTSBX423
|
||||
00143 05 WRK-MPRF-EMP-NO PIC 9(06). DTSBX423
|
||||
00144 *RW2 DTSBX423
|
||||
00145 DTSBX423
|
||||
00146 01 MESSAGE-AREA. DTSBX423
|
||||
00147 *** FATAL ERRORS MSG-A DTSBX423
|
||||
00148 05 MSG-A1. DTSBX423
|
||||
00149 10 FILLER PIC X(32) DTSBX423
|
||||
00150 VALUE 'TYPE A REC NOT FIRST IN FILE: '. DTSBX423
|
||||
00151 10 MSG-A1-PREV-REC-TYPE PIC X(01). DTSBX423
|
||||
00152 DTSBX423
|
||||
00153 01 T025-REC. DTSBX423
|
||||
00154 ++INCLUDE DTSIT025 DTSBX423
|
||||
00155 DTSBX423
|
||||
00156 * REPORT DTSBX423
|
||||
00157 01 X140-REC. DTSBX423
|
||||
00158 ++INCLUDE DTSIX140 DTSBX423
|
||||
00159 DTSBX423
|
||||
00160 * PAYMENT DTSBX423
|
||||
00161 01 X145-REC. DTSBX423
|
||||
00162 ++INCLUDE DTSIX145 DTSBX423
|
||||
00163 DTSBX423
|
||||
00164 * BATCH - PSEUDO-BATCH XREF DTSBX423
|
||||
00165 01 X214-REC. DTSBX423
|
||||
00166 ++INCLUDE DTSIX214 DTSBX423
|
||||
00167 DTSBX423
|
||||
00168 * ERRORS DTSBX423
|
||||
00169 *01 X907-REC. DTSBX423
|
||||
00170 ***INCLUDE DTSIX907 DTSBX423
|
||||
00171 DTSBX423
|
||||
00172 01 L001-LINK-AREA. DTSBX423
|
||||
00173 ++INCLUDE DTSIL001 DTSBX423
|
||||
00174 DTSBX423
|
||||
00175 01 L003-LINK-AREA. DTSBX423
|
||||
00176 ++INCLUDE DTSIL003 DTSBX423
|
||||
00177 DTSBX423
|
||||
00178 01 L004-LINK-AREA. DTSBX423
|
||||
00179 ++INCLUDE DTSIL004 DTSBX423
|
||||
00180 DTSBX423
|
||||
00181 01 L910-LINK-AREA. DTSBX423
|
||||
00182 ++INCLUDE DTSIL910 DTSBX423
|
||||
00183 01 MSKL-REC. DTSBX423
|
||||
00184 ++INCLUDE DTSIMSKL DTSBX423
|
||||
00185 DTSBX423
|
||||
00186 01 MHDR-REC. DTSBX423
|
||||
00187 ++INCLUDE DTSIMHDR DTSBX423
|
||||
00188 DTSBX423
|
||||
00189 01 MPRF-REC. DTSBX423
|
||||
00190 ++INCLUDE DTSIMPRF DTSBX423
|
||||
00191 DTSBX423
|
||||
00192 01 MPAY-REC. DTSBX423
|
||||
00193 ++INCLUDE DTSIMPAY DTSBX423
|
||||
00194 DTSBX423
|
||||
00195 01 MNTE-REC. DTSBX423
|
||||
00196 ++INCLUDE DTSIMNTE DTSBX423
|
||||
00197 DTSBX423
|
||||
00198 01 L921-LINK-AREA. DTSBX423
|
||||
00199 ++INCLUDE DTSIL921 DTSBX423
|
||||
00200 SKIP3 DTSBX423
|
||||
00201 01 ISKL-REC. DTSBX423
|
||||
00202 ++INCLUDE DTSIISKL DTSBX423
|
||||
00203 SKIP3 DTSBX423
|
||||
00204 01 IEIN-REC. DTSBX423
|
||||
00205 ++INCLUDE DTSIIEIN DTSBX423
|
||||
00206 DTSBX423
|
||||
00207 01 L923-LINK-AREA. DTSBX423
|
||||
00208 ++INCLUDE DTSIL923 DTSBX423
|
||||
00209 EJECT DTSBX423
|
||||
00210 01 ASKL-REC. DTSBX423
|
||||
00211 ++INCLUDE DTSIASKL DTSBX423
|
||||
00212 EJECT DTSBX423
|
||||
00213 01 AHDR-REC. DTSBX423
|
||||
00214 ++INCLUDE DTSIAHDR DTSBX423
|
||||
00215 EJECT DTSBX423
|
||||
00216 01 ARPT-REC. DTSBX423
|
||||
00217 ++INCLUDE DTSIARPT DTSBX423
|
||||
00218 EJECT DTSBX423
|
||||
00219 01 APAY-REC. DTSBX423
|
||||
00220 ++INCLUDE DTSIAPAY DTSBX423
|
||||
00221 DTSBX423
|
||||
00222 01 L927-LINK-AREA. DTSBX423
|
||||
00223 ++INCLUDE DTSIL927 DTSBX423
|
||||
00224 DTSBX423
|
||||
00225 01 TSKL-REC. DTSBX423
|
||||
00226 ++INCLUDE DTSITSKL DTSBX423
|
||||
00227 DTSBX423
|
||||
00228 01 L931-LINK-AREA. DTSBX423
|
||||
00229 ++INCLUDE DTSIL931 DTSBX423
|
||||
00230 DTSBX423
|
||||
00231 01 FSKL-REC. DTSBX423
|
||||
00232 ++INCLUDE DTSIFSKL DTSBX423
|
||||
00233 DTSBX423
|
||||
00234 01 R140-REC. DTSBX423
|
||||
00235 ++INCLUDE DTSIR140 DTSBX423
|
||||
00236 DTSBX423
|
||||
00237 LINKAGE SECTION. DTSBX423
|
||||
00238 DTSBX423
|
||||
00239 01 LX42-LINK-AREA. DTSBX423
|
||||
00240 ++INCLUDE DTSILX42 DTSBX423
|
||||
00241 DTSBX423
|
||||
00242 PROCEDURE DIVISION USING LX42-LINK-AREA. DTSBX423
|
||||
00243 DTSBX423
|
||||
00244 DTSBX423-MAIN. DTSBX423
|
||||
00245 EVALUATE TRUE DTSBX423
|
||||
00246 WHEN LX42-INITIALIZE-88 DTSBX423
|
||||
00247 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBX423
|
||||
00248 DTSBX423
|
||||
00249 WHEN LX42-NEW-EMPLOYER-88 DTSBX423
|
||||
00250 PERFORM P3000-NEW-EMP THRU P3000-EXIT DTSBX423
|
||||
00251 DTSBX423
|
||||
00252 WHEN LX42-NEW-BATCH-88 DTSBX423
|
||||
00253 PERFORM P4000-NEW-BATCH THRU P4000-EXIT DTSBX423
|
||||
00254 DTSBX423
|
||||
00255 WHEN LX42-PROCESS-88 DTSBX423
|
||||
00256 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX423
|
||||
00257 DTSBX423
|
||||
00258 WHEN LX42-TERMINATE-88 DTSBX423
|
||||
00259 PERFORM P3000-NEW-EMP THRU P3000-EXIT DTSBX423
|
||||
00260 PERFORM P4000-NEW-BATCH THRU P4000-EXIT DTSBX423
|
||||
00261 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBX423
|
||||
00262 DTSBX423
|
||||
00263 WHEN LX42-BATCH-ERROR-88 DTSBX423
|
||||
00264 PERFORM P4000-NEW-BATCH THRU P4000-EXIT DTSBX423
|
||||
00265 DTSBX423
|
||||
00266 END-EVALUATE. DTSBX423
|
||||
00267 DTSBX423
|
||||
00268 DTSBX423-MAIN-EXIT. DTSBX423
|
||||
00269 GOBACK. DTSBX423
|
||||
00270 DTSBX423
|
||||
00271 I0000-INITIATE. DTSBX423
|
||||
00272 SET W-ERROR-NO-88 TO TRUE. DTSBX423
|
||||
00273 SET W-FATAL-ERROR-NO-88 TO TRUE. DTSBX423
|
||||
00274 DTSBX423
|
||||
00275 MOVE LENGTH OF X145-REC TO W-X145-LENGTH. DTSBX423
|
||||
00276 DTSBX423
|
||||
00277 MOVE LENGTH OF R140-REC TO R140-LENGTH. DTSBX423
|
||||
00278 MOVE '140' TO R140-REC-TYPE. DTSBX423
|
||||
00279 DTSBX423
|
||||
00280 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX423
|
||||
00281 DTSBX423
|
||||
00282 PERFORM P4200-RESET-TABLE THRU P4200-EXIT. DTSBX423
|
||||
00283 DTSBX423
|
||||
00284 I0000-EXIT. DTSBX423
|
||||
00285 EXIT. DTSBX423
|
||||
00286 DTSBX423
|
||||
00287 I2000-OPEN-FILES. DTSBX423
|
||||
00288 OPEN OUTPUT BATCH-XREF-FILE. DTSBX423
|
||||
00289 IF BATCH-XREF-OK-88 DTSBX423
|
||||
00290 NEXT SENTENCE DTSBX423
|
||||
00291 ELSE DTSBX423
|
||||
00292 DISPLAY 'CANNOT OPEN BATCH XREF FILE ' DTSBX423
|
||||
00293 BATCH-XREF-STATUS DTSBX423
|
||||
00294 PERFORM S999-ABEND THRU S999-EXIT DTSBX423
|
||||
00295 END-IF. DTSBX423
|
||||
00296 DTSBX423
|
||||
00297 I2000-EXIT. DTSBX423
|
||||
00298 EXIT. DTSBX423
|
||||
00299 DTSBX423
|
||||
00300 P0000-PROCESS. DTSBX423
|
||||
00301 DISPLAY 'BX423 P0000 ' LX42-DATA-AREA (1:82). DTSBX423
|
||||
00302 EVALUATE TRUE DTSBX423
|
||||
00303 WHEN LX42-REC-TYPE-PAY-88 DTSBX423
|
||||
00304 PERFORM P2100-PAYMENT THRU P2100-EXIT DTSBX423
|
||||
00305 DTSBX423
|
||||
00306 WHEN OTHER DTSBX423
|
||||
00307 DISPLAY 'DTSBX423 ABENDING - =2VALID RECORD TYPE ' CL**8
|
||||
00308 LX42-REC-TYPE DTSBX423
|
||||
00309 PERFORM S999-ABEND THRU S999-EXIT DTSBX423
|
||||
00310 DTSBX423
|
||||
00311 END-EVALUATE. DTSBX423
|
||||
00312 DTSBX423
|
||||
00313 P0000-EXIT. DTSBX423
|
||||
00314 EXIT. DTSBX423
|
||||
00315 DTSBX423
|
||||
00316 P2100-PAYMENT. DTSBX423
|
||||
00317 MOVE LX42-DATA-AREA TO X145-REC. DTSBX423
|
||||
00318 *& DTSBX423
|
||||
00319 *& DISPLAY SPACE. DTSBX423
|
||||
00320 DISPLAY 'BX423 PAYMENT ' X145-EMP-NO DTSBX423
|
||||
00321 ' ' X145-PSEUDO-BATCH ' ' X145-PSEUDO-ITEM. DTSBX423
|
||||
00322 DISPLAY X145-REC(1:109). DTSBX423
|
||||
00323 *& DTSBX423
|
||||
00324 DTSBX423
|
||||
00325 MOVE X145-EMP-NO TO W-EMP-NO. DTSBX423
|
||||
00326 DTSBX423
|
||||
00327 SET W-EMP-FOUND-NO-88 TO TRUE. DTSBX423
|
||||
00328 DTSBX423
|
||||
00329 SET W-PREV-REC-PAY-88 TO TRUE. DTSBX423
|
||||
00330 DTSBX423
|
||||
00331 ADD +1 TO W-X145-CNT DTSBX423
|
||||
00332 PERFORM P2110-EDIT-PAYMENT THRU P2110-EXIT DTSBX423
|
||||
00333 IF W-ERROR-NO-88 DTSBX423
|
||||
00334 PERFORM P2112-CHECK-DATABASE THRU P2112-EXIT DTSBX423
|
||||
00335 IF W-ERROR-NO-88 DTSBX423
|
||||
00336 * IF X145-IN-HOUSE-88 DTSBX423
|
||||
00337 * PERFORM P2130-SAVE-INT-PAY THRU P2130-EXIT DTSBX423
|
||||
00338 * ELSE DTSBX423
|
||||
00339 PERFORM P2120-SAVE-EXT-PAY THRU P2120-EXIT DTSBX423
|
||||
00340 * END-IF DTSBX423
|
||||
00341 END-IF DTSBX423
|
||||
00342 END-IF. DTSBX423
|
||||
00343 DTSBX423
|
||||
00344 P2100-EXIT. DTSBX423
|
||||
00345 EXIT. DTSBX423
|
||||
00346 DTSBX423
|
||||
00347 P2110-EDIT-PAYMENT. DTSBX423
|
||||
00348 MOVE X145-PAY-TYPE TO W-PAY-TYPE. DTSBX423
|
||||
00349 IF W-VALID-PAY-88 DTSBX423
|
||||
00350 NEXT SENTENCE DTSBX423
|
||||
00351 ELSE DTSBX423
|
||||
00352 SET W-ERROR-YES-88 TO TRUE DTSBX423
|
||||
00353 MOVE SPACES TO R140-MESSAGE DTSBX423
|
||||
00354 MOVE W-EMP-NO TO R140-EMP-NO DTSBX423
|
||||
00355 STRING DTSBX423
|
||||
00356 'INVALID PAYMENT TYPE ' DTSBX423
|
||||
00357 X145-PAY-TYPE DTSBX423
|
||||
00358 DELIMITED BY SIZE DTSBX423
|
||||
00359 INTO R140-MESSAGE DTSBX423
|
||||
00360 END-STRING DTSBX423
|
||||
00361 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX423
|
||||
00362 DISPLAY R140-MESSAGE DTSBX423
|
||||
00363 END-IF. DTSBX423
|
||||
00364 DTSBX423
|
||||
00365 IF X145-QTR = SPACES DTSBX423
|
||||
00366 MOVE ZEROS TO W-REPORT-QTR DTSBX423
|
||||
00367 ELSE DTSBX423
|
||||
00368 MOVE X145-QTR TO W-SLASH-QTR DTSBX423
|
||||
00369 MOVE W-SLASH-QTR-CCYY TO L004-QTR-5-YR DTSBX423
|
||||
00370 MOVE W-SLASH-QTR-Q TO L004-QTR-5-Q DTSBX423
|
||||
00371 PERFORM S004-FROM-5 THRU S004-EXIT DTSBX423
|
||||
00372 IF NOT L004-VALID-QTR DTSBX423
|
||||
00373 SET W-ERROR-YES-88 TO TRUE DTSBX423
|
||||
00374 MOVE SPACES TO R140-MESSAGE DTSBX423
|
||||
00375 MOVE W-EMP-NO TO R140-EMP-NO DTSBX423
|
||||
00376 STRING DTSBX423
|
||||
00377 'INVALID PAY QUARTER ' X145-QTR DTSBX423
|
||||
00378 DELIMITED BY SIZE DTSBX423
|
||||
00379 INTO R140-MESSAGE DTSBX423
|
||||
00380 END-STRING DTSBX423
|
||||
00381 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX423
|
||||
00382 DISPLAY R140-MESSAGE DTSBX423
|
||||
00383 ELSE DTSBX423
|
||||
00384 MOVE L004-QTR-5-9 TO W-REPORT-QTR DTSBX423
|
||||
00385 END-IF DTSBX423
|
||||
00386 END-IF. DTSBX423
|
||||
00387 DTSBX423
|
||||
00388 MOVE X145-REMITTANCE TO W-REMITTANCE. DTSBX423
|
||||
00389 DTSBX423
|
||||
00390 MOVE X145-RCVD-DATE TO W-SLASH-DATE DTSBX423
|
||||
00391 MOVE W-SLASH-DT-MM TO L001-FED-8-MO DTSBX423
|
||||
00392 MOVE W-SLASH-DT-DD TO L001-FED-8-DA DTSBX423
|
||||
00393 MOVE W-SLASH-DT-CCYY TO L001-FED-8-YR DTSBX423
|
||||
00394 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX423
|
||||
00395 IF NOT L001-VALID-DATE DTSBX423
|
||||
00396 SET W-ERROR-YES-88 TO TRUE DTSBX423
|
||||
00397 MOVE SPACES TO R140-MESSAGE DTSBX423
|
||||
00398 MOVE W-EMP-NO TO R140-EMP-NO DTSBX423
|
||||
00399 STRING DTSBX423
|
||||
00400 'INVALID PAY RECEIVED DATE ' X145-RCVD-DATE DTSBX423
|
||||
00401 DELIMITED BY SIZE DTSBX423
|
||||
00402 INTO R140-MESSAGE DTSBX423
|
||||
00403 END-STRING DTSBX423
|
||||
00404 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX423
|
||||
00405 DISPLAY R140-MESSAGE DTSBX423
|
||||
00406 ELSE DTSBX423
|
||||
00407 MOVE L001-FED-8-DATE-9 TO W-RECEIVED-DATE DTSBX423
|
||||
00408 END-IF. DTSBX423
|
||||
00409 DTSBX423
|
||||
00410 * MOVE X145-CHECK-SCAN-DT TO W-SLASH-DATE DTSBX423
|
||||
00411 * MOVE W-SLASH-DT-MM TO L001-FED-8-MO DTSBX423
|
||||
00412 * MOVE W-SLASH-DT-DD TO L001-FED-8-DA DTSBX423
|
||||
00413 * MOVE W-SLASH-DT-CCYY TO L001-FED-8-YR DTSBX423
|
||||
00414 * PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBX423
|
||||
00415 * IF NOT L001-VALID-DATE DTSBX423
|
||||
00416 * SET W-ERROR-YES-88 TO TRUE DTSBX423
|
||||
00417 * MOVE SPACES TO R140-MESSAGE DTSBX423
|
||||
00418 * MOVE W-EMP-NO TO R140-EMP-NO DTSBX423
|
||||
00419 * STRING DTSBX423
|
||||
00420 * 'INVALID RPT CHK SCAN DATE ' X145-CHECK-SCAN-DT DTSBX423
|
||||
00421 * DELIMITED BY SIZE DTSBX423
|
||||
00422 * INTO R140-MESSAGE DTSBX423
|
||||
00423 * END-STRING DTSBX423
|
||||
00424 * PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX423
|
||||
00425 * DISPLAY R140-MESSAGE DTSBX423
|
||||
00426 * ELSE DTSBX423
|
||||
00427 MOVE ZEROS TO W-CHK-SCAN-DATE. DTSBX423
|
||||
00428 * END-IF. DTSBX423
|
||||
00429 DTSBX423
|
||||
00430 P2110-EXIT. DTSBX423
|
||||
00431 EXIT. DTSBX423
|
||||
00432 DTSBX423
|
||||
00433 P2112-CHECK-DATABASE. DTSBX423
|
||||
00434 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX423
|
||||
00435 MOVE W-EMP-NO TO MPRF-EMP-NO. DTSBX423
|
||||
00436 SET MPRF-PRF-88 TO TRUE. DTSBX423
|
||||
00437 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX423
|
||||
00438 DTSBX423
|
||||
00439 PERFORM S910-READ THRU S910-EXIT. DTSBX423
|
||||
00440 IF L910-NO-REC-88 DTSBX423
|
||||
00441 SET W-EMP-FOUND-NO-88 TO TRUE DTSBX423
|
||||
00442 * DISPLAY 'PAYMENT: EMPLOYER NOT ON FILE ' W-EMP-NO DTSBX423
|
||||
00443 MOVE SPACES TO R140-MESSAGE DTSBX423
|
||||
00444 MOVE W-EMP-NO TO R140-EMP-NO DTSBX423
|
||||
00445 STRING DTSBX423
|
||||
00446 'PAYMENT: EMPLOYER NOT ON FILE ' DTSBX423
|
||||
00447 X145-EMP-NO DTSBX423
|
||||
00448 DELIMITED BY SIZE DTSBX423
|
||||
00449 INTO R140-MESSAGE DTSBX423
|
||||
00450 END-STRING DTSBX423
|
||||
00451 PERFORM S946-WRITE-R140 THRU S946-EXIT DTSBX423
|
||||
00452 * SET W-EMP-FOUND-NO-88 TO TRUE DTSBX423
|
||||
00453 *** DISPLAY R140-MESSAGE DTSBX423
|
||||
00454 ELSE DTSBX423
|
||||
00455 MOVE MSKL-REC TO MPRF-REC DTSBX423
|
||||
00456 SET W-EMP-FOUND-YES-88 TO TRUE DTSBX423
|
||||
00457 END-IF. DTSBX423
|
||||
00458 DTSBX423
|
||||
00459 P2112-EXIT. DTSBX423
|
||||
00460 EXIT. DTSBX423
|
||||
00461 DTSBX423
|
||||
00462 P2120-SAVE-EXT-PAY. DTSBX423
|
||||
00463 DISPLAY 'PAYMENT OK ' X145-EMP-NO. DTSBX423
|
||||
00464 DTSBX423
|
||||
00465 MOVE LENGTH OF T025-REC TO T025-LENGTH DTSBX423
|
||||
00466 MOVE '025' TO T025-REC-TYPE. DTSBX423
|
||||
00467 DTSBX423
|
||||
00468 MOVE W-EMP-NO TO T025-EMP-NO. DTSBX423
|
||||
00469 MOVE 'WEB PAY' TO T025-ORIGIN. DTSBX423
|
||||
00470 MOVE LX42-SYS-DATE TO T025-SYS-DATE. DTSBX423
|
||||
00471 MOVE LX42-SYS-TIME TO T025-SYS-TIME. DTSBX423
|
||||
00472 **ESSP WILL NOT ALLOW PAYMENTS TO BE APPLIED TO A SPECIFIC DTSBX423
|
||||
00473 **QUARTER. WILL BE APPLIED TO THE OLDEST DEBT. DTSBX423
|
||||
00474 ** IF W-REPORT-QTR > ZERO DTSBX423
|
||||
00475 ** MOVE W-REPORT-QTR TO T025-APPLIC-YRQ DTSBX423
|
||||
00476 ** MOVE 'OR' TO T025-PAY-TYPE DTSBX423
|
||||
00477 ** ELSE DTSBX423
|
||||
00478 MOVE ZERO TO T025-APPLIC-YRQ DTSBX423
|
||||
00479 MOVE 'PA' TO T025-PAY-TYPE DTSBX423
|
||||
00480 ** END-IF. DTSBX423
|
||||
00481 DTSBX423
|
||||
00482 MOVE SPACES TO T025-APPLIC-IND. DTSBX423
|
||||
00483 MOVE ZERO TO T025-APPLIC-BATCH-NO DTSBX423
|
||||
00484 T025-APPLIC-ITEM-NO. DTSBX423
|
||||
00485 DTSBX423
|
||||
00486 IF W-EMP-FOUND-YES-88 DTSBX423
|
||||
00487 MOVE MPRF-PRIMARY-NAME (1:4) DTSBX423
|
||||
00488 TO T025-NAME-CHECK DTSBX423
|
||||
00489 ELSE DTSBX423
|
||||
00490 MOVE SPACES TO T025-NAME-CHECK DTSBX423
|
||||
00491 END-IF. DTSBX423
|
||||
00492 DTSBX423
|
||||
00493 MOVE LX42-CURR-RUN-DATE TO T025-RECEIVED-DATE DTSBX423
|
||||
00494 T025-DEPOSIT-DATE. DTSBX423
|
||||
00495 DTSBX423
|
||||
00496 DTSBX423
|
||||
00497 MOVE W-REMITTANCE TO T025-REMIT-AMT. DTSBX423
|
||||
00498 DTSBX423
|
||||
00499 MOVE X145-TRACE-NO TO T025-TRACE-NO. DTSBX423
|
||||
00500 DTSBX423
|
||||
00501 MOVE 'VOL' TO T025-RESPONSIBLE-ACTIVITY. DTSBX423
|
||||
00502 MOVE 'WEBESSP' TO T025-RESPONSIBLE-OP-ID. DTSBX423
|
||||
00503 DTSBX423
|
||||
00504 MOVE T025-REC TO TSKL-REC. DTSBX423
|
||||
00505 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBX423
|
||||
00506 ADD +1 TO W-T025-WRITE-CNT. DTSBX423
|
||||
00507 DTSBX423
|
||||
00508 ** DISPLAY 'BX423 PAYMENT ' X145-EMP-NO. DTSBX423
|
||||
00509 P2120-EXIT. DTSBX423
|
||||
00510 EXIT. DTSBX423
|
||||
00511 DTSBX423
|
||||
00512 P2130-SAVE-INT-PAY. DTSBX423
|
||||
00513 ************************************************************ DTSBX423
|
||||
00514 * PAYMENTS PROCESSED IN-HOUSE. BATCH HEADER IS AVAILABLE DTSBX423
|
||||
00515 ************************************************************ DTSBX423
|
||||
00516 IF X145-PSEUDO-BATCH NOT = LX42-PSEUDO-BATCH-NO DTSBX423
|
||||
00517 DISPLAY 'BX420 P2030 MISSING HEADER RECORD ' DTSBX423
|
||||
00518 X145-PSEUDO-BATCH ' ' LX42-PSEUDO-BATCH-NO DTSBX423
|
||||
00519 PERFORM S999-ABEND THRU S999-EXIT DTSBX423
|
||||
00520 END-IF. DTSBX423
|
||||
00521 DTSBX423
|
||||
00522 DISPLAY 'BX423 P2130 ' LX42-PSEUDO-BATCH-NO ' ' DTSBX423
|
||||
00523 X145-PSEUDO-ITEM ' ' MPRF-EMP-NO ' ' LX42-BATCH-NO. DTSBX423
|
||||
00524 MOVE LOW-VALUES TO APAY-REC. DTSBX423
|
||||
00525 MOVE LX42-BATCH-NO TO APAY-BATCH-NO. DTSBX423
|
||||
00526 MOVE X145-PSEUDO-ITEM TO APAY-ITEM-NO. DTSBX423
|
||||
00527 SET APAY-PAY-88 TO TRUE. DTSBX423
|
||||
00528 MOVE MPRF-PRIMARY-NAME (1:4) TO APAY-NAME-CHECK. DTSBX423
|
||||
00529 MOVE MPRF-EMP-NO TO APAY-EMP-NO. DTSBX423
|
||||
00530 MOVE X145-PAY-TYPE TO APAY-PAY-TYPE. DTSBX423
|
||||
00531 MOVE W-REMITTANCE TO APAY-REMIT-AMT. DTSBX423
|
||||
00532 MOVE X145-WAIVE-INTEREST TO APAY-WAIVE-INT-IND. DTSBX423
|
||||
00533 MOVE X145-WAIVE-PENALTY TO APAY-WAIVE-LATE-PEN-IND. DTSBX423
|
||||
00534 SET APAY-NSF-PEN-CHARGE-NO-88 TO TRUE. DTSBX423
|
||||
00535 MOVE W-RECEIVED-DATE TO APAY-RECEIVED-DATE. DTSBX423
|
||||
00536 MOVE LX42-DEPOSIT-DATE TO APAY-DEPOSIT-DATE. DTSBX423
|
||||
00537 IF W-REPORT-QTR > ZERO DTSBX423
|
||||
00538 MOVE W-REPORT-QTR TO APAY-APPLIC-YRQ DTSBX423
|
||||
00539 ELSE DTSBX423
|
||||
00540 MOVE ZERO TO APAY-APPLIC-YRQ DTSBX423
|
||||
00541 END-IF. DTSBX423
|
||||
00542 MOVE X145-APPLIC-ACCT TO APAY-APPLIC-IND. DTSBX423
|
||||
00543 MOVE ZEROS TO APAY-APPLIC-BATCH-NO DTSBX423
|
||||
00544 APAY-APPLIC-ITEM-NO. DTSBX423
|
||||
00545 MOVE 'N' TO APAY-DISREGARD-EDITS-IND. DTSBX423
|
||||
00546 MOVE X145-RESP-ACTIVITY TO APAY-RESPONSIBLE-ACTIVITY. DTSBX423
|
||||
00547 MOVE X145-RESP-OPID TO APAY-RESPONSIBLE-OP-ID. DTSBX423
|
||||
00548 SET APAY-ANNUAL-RPT-NULL-88 TO TRUE. DTSBX423
|
||||
00549 MOVE ZERO TO APAY-TRACE-NO DTSBX423
|
||||
00550 APAY-NSF-MNTE-ABSTIME. DTSBX423
|
||||
00551 MOVE W-CHK-SCAN-DATE TO APAY-CHECK-SCAN-DT. DTSBX423
|
||||
00552 MOVE X145-CHECK-SEQ-NBR TO APAY-CHECK-SEQUENCE. DTSBX423
|
||||
00553 DTSBX423
|
||||
00554 SET APAY-NOT-PROCESSED-88 TO TRUE. DTSBX423
|
||||
00555 DTSBX423
|
||||
00556 ADD +1 TO W-APAY-LAST. DTSBX423
|
||||
00557 IF W-APAY-LAST > W-APAY-MAX DTSBX423
|
||||
00558 DISPLAY 'APAY TABLE LENGTH EXCEEDED ' DTSBX423
|
||||
00559 PERFORM S999-ABEND THRU S999-EXIT DTSBX423
|
||||
00560 END-IF. DTSBX423
|
||||
00561 DTSBX423
|
||||
00562 MOVE APAY-REC TO W-APAY-ENTRY (W-APAY-LAST). DTSBX423
|
||||
00563 DTSBX423
|
||||
00564 MOVE W-APAY-LAST TO LX42-PAY-CNT. DTSBX423
|
||||
00565 ADD APAY-REMIT-AMT TO LX42-PAY-REMIT-AMT. DTSBX423
|
||||
00566 DTSBX423
|
||||
00567 PERFORM P2131-BATCH-XREF THRU P2131-EXIT. DTSBX423
|
||||
00568 DTSBX423
|
||||
00569 P2130-EXIT. DTSBX423
|
||||
00570 EXIT. DTSBX423
|
||||
00571 DTSBX423
|
||||
00572 P2131-BATCH-XREF. DTSBX423
|
||||
00573 MOVE APAY-BATCH-NO TO X214-BATCH. DTSBX423
|
||||
00574 MOVE APAY-ITEM-NO TO X214-ITEM. DTSBX423
|
||||
00575 MOVE X145-PSEUDO-BATCH TO X214-PSEUDO-BATCH. DTSBX423
|
||||
00576 MOVE X145-PSEUDO-ITEM TO X214-PSEUDO-ITEM. DTSBX423
|
||||
00577 MOVE APAY-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBX423
|
||||
00578 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBX423
|
||||
00579 ** MOVE L001-SLASH-8-DATE TO X214-DEPOSIT-DT. DTSBX423
|
||||
00580 DTSBX423
|
||||
00581 WRITE BATCH-XREF-REC FROM X214-REC. DTSBX423
|
||||
00582 IF BATCH-XREF-OK-88 DTSBX423
|
||||
00583 ADD +1 TO W-BX214-CNT DTSBX423
|
||||
00584 ELSE DTSBX423
|
||||
00585 DISPLAY 'CANNOT WRITE BATCH-XREF FILE: ' DTSBX423
|
||||
00586 BATCH-XREF-STATUS DTSBX423
|
||||
00587 PERFORM S999-ABEND THRU S999-EXIT DTSBX423
|
||||
00588 END-IF. DTSBX423
|
||||
00589 DTSBX423
|
||||
00590 P2131-EXIT. DTSBX423
|
||||
00591 EXIT. DTSBX423
|
||||
00592 DTSBX423
|
||||
00593 P3000-NEW-EMP. DTSBX423
|
||||
00594 *& DTSBX423
|
||||
00595 *& DISPLAY 'BX423 P3000 ' W-EMP-NO ' ' LX42-EMP-NO. DTSBX423
|
||||
00596 *& DTSBX423
|
||||
00597 PERFORM P3400-INIT-NEW-EMP THRU P3400-EXIT. DTSBX423
|
||||
00598 DTSBX423
|
||||
00599 P3000-EXIT. DTSBX423
|
||||
00600 EXIT. DTSBX423
|
||||
00601 DTSBX423
|
||||
00602 DTSBX423
|
||||
00603 P3400-INIT-NEW-EMP. DTSBX423
|
||||
00604 ** MOVE WEB-IMP-QTR TO W-CURR-QTR. DTSBX423
|
||||
00605 *& DTSBX423
|
||||
00606 * DISPLAY 'P3400 ' W-EMP-NO. DTSBX423
|
||||
00607 *& DTSBX423
|
||||
00608 MOVE LX42-EMP-NO TO W-EMP-NO. DTSBX423
|
||||
00609 SET W-ERROR-NO-88 TO TRUE. DTSBX423
|
||||
00610 SET W-PREV-REC-NULL-88 TO TRUE. DTSBX423
|
||||
00611 MOVE ZERO TO W-REMITTANCE DTSBX423
|
||||
00612 W-RECEIVED-DATE. DTSBX423
|
||||
00613 DTSBX423
|
||||
00614 INITIALIZE X145-REC. DTSBX423
|
||||
00615 DTSBX423
|
||||
00616 P3400-EXIT. DTSBX423
|
||||
00617 EXIT. DTSBX423
|
||||
00618 DTSBX423
|
||||
00619 P4000-NEW-BATCH. DTSBX423
|
||||
00620 DISPLAY 'BX423 P4000 ' LX42-PSEUDO-BATCH-NO DTSBX423
|
||||
00621 IF LX42-BATCH-ERROR-88 DTSBX423
|
||||
00622 DISPLAY 'BX423 P6000 ERROR' DTSBX423
|
||||
00623 PERFORM P4200-RESET-TABLE THRU P4200-EXIT DTSBX423
|
||||
00624 GO TO P4000-EXIT DTSBX423
|
||||
00625 END-IF. DTSBX423
|
||||
00626 DTSBX423
|
||||
00627 IF LX42-TERMINATE-88 DTSBX423
|
||||
00628 NEXT SENTENCE DTSBX423
|
||||
00629 ELSE DTSBX423
|
||||
00630 IF LX42-PSEUDO-BATCH-NO = ZERO DTSBX423
|
||||
00631 GO TO P4000-EXIT DTSBX423
|
||||
00632 END-IF DTSBX423
|
||||
00633 END-IF. DTSBX423
|
||||
00634 DTSBX423
|
||||
00635 PERFORM P4100-WRITE-APAY THRU P4100-EXIT. DTSBX423
|
||||
00636 DTSBX423
|
||||
00637 P4000-EXIT. DTSBX423
|
||||
00638 EXIT. DTSBX423
|
||||
00639 DTSBX423
|
||||
00640 P4100-WRITE-APAY. DTSBX423
|
||||
00641 PERFORM DTSBX423
|
||||
00642 VARYING PSUB FROM +1 BY +1 DTSBX423
|
||||
00643 UNTIL PSUB > W-APAY-LAST DTSBX423
|
||||
00644 MOVE W-APAY-ENTRY (PSUB) TO ASKL-REC DTSBX423
|
||||
00645 DISPLAY 'BX423 P4100 WRITE ' ASKL-BATCH-NO DTSBX423
|
||||
00646 ' ' ASKL-ITEM-NO DTSBX423
|
||||
00647 PERFORM S923-WRITE THRU S923-EXIT DTSBX423
|
||||
00648 ADD +1 TO W-APAY-WRITE-CNT DTSBX423
|
||||
00649 END-PERFORM. DTSBX423
|
||||
00650 DTSBX423
|
||||
00651 PERFORM P4200-RESET-TABLE THRU P4200-EXIT. DTSBX423
|
||||
00652 DTSBX423
|
||||
00653 P4100-EXIT. DTSBX423
|
||||
00654 EXIT. DTSBX423
|
||||
00655 DTSBX423
|
||||
00656 P4200-RESET-TABLE. DTSBX423
|
||||
00657 MOVE +0 TO W-APAY-LAST. DTSBX423
|
||||
00658 PERFORM DTSBX423
|
||||
00659 VARYING PSUB FROM +1 BY +1 DTSBX423
|
||||
00660 UNTIL PSUB > W-APAY-MAX DTSBX423
|
||||
00661 MOVE LOW-VALUES TO W-APAY-ENTRY (PSUB) DTSBX423
|
||||
00662 END-PERFORM. DTSBX423
|
||||
00663 DTSBX423
|
||||
00664 P4200-EXIT. DTSBX423
|
||||
00665 EXIT. DTSBX423
|
||||
00666 DTSBX423
|
||||
00667 T0000-TERMINATE. DTSBX423
|
||||
00668 PERFORM T1000-BATCH-XREF THRU T1000-EXIT. DTSBX423
|
||||
00669 DTSBX423
|
||||
00670 CLOSE BATCH-XREF-FILE. DTSBX423
|
||||
00671 DTSBX423
|
||||
00672 DISPLAY ' '. DTSBX423
|
||||
00673 DTSBX423
|
||||
00674 DISPLAY '*** DTSBX423 TERMINATION STATISTICS ***'. DTSBX423
|
||||
00675 DTSBX423
|
||||
00676 DISPLAY ' '. DTSBX423
|
||||
00677 DTSBX423
|
||||
00678 DISPLAY '*** WEB PAYMENTS ***'. DTSBX423
|
||||
00679 DTSBX423
|
||||
00680 DISPLAY ' '. DTSBX423
|
||||
00681 DTSBX423
|
||||
00682 PERFORM T2000-DISPLAY-TOTALS THRU T2000-EXIT. DTSBX423
|
||||
00683 DTSBX423
|
||||
00684 DISPLAY '***************************************'. DTSBX423
|
||||
00685 DTSBX423
|
||||
00686 T0000-EXIT. DTSBX423
|
||||
00687 EXIT. DTSBX423
|
||||
00688 DTSBX423
|
||||
00689 T1000-BATCH-XREF. DTSBX423
|
||||
00690 IF W-BX214-CNT = ZERO DTSBX423
|
||||
00691 MOVE ZEROS TO X214-BATCH DTSBX423
|
||||
00692 X214-PSEUDO-BATCH DTSBX423
|
||||
00693 X214-ITEM DTSBX423
|
||||
00694 X214-PSEUDO-ITEM DTSBX423
|
||||
00695 * MOVE SPACES TO X214-DEPOSIT-DT DTSBX423
|
||||
00696 WRITE BATCH-XREF-REC FROM X214-REC DTSBX423
|
||||
00697 DISPLAY 'DUMMY X214 WRITTEN ' X214-REC DTSBX423
|
||||
00698 END-IF. DTSBX423
|
||||
00699 DTSBX423
|
||||
00700 T1000-EXIT. DTSBX423
|
||||
00701 EXIT. DTSBX423
|
||||
00702 DTSBX423
|
||||
00703 T2000-DISPLAY-TOTALS. DTSBX423
|
||||
00704 DISPLAY 'PAYMENT RECORDS WRITTEN: ' DTSBX423
|
||||
00705 W-T025-WRITE-CNT. DTSBX423
|
||||
00706 DTSBX423
|
||||
00707 DISPLAY 'IN-HOUSE PAYMENTS WRITTEN: ' DTSBX423
|
||||
00708 W-APAY-WRITE-CNT. DTSBX423
|
||||
00709 DTSBX423
|
||||
00710 DISPLAY ' '. DTSBX423
|
||||
00711 DTSBX423
|
||||
00712 T2000-EXIT. DTSBX423
|
||||
00713 EXIT. DTSBX423
|
||||
00714 DTSBX423
|
||||
00715 S001-FROM-FED-8. DTSBX423
|
||||
00716 SET L001-FROM-FED-8 TO TRUE. DTSBX423
|
||||
00717 GO TO S001-DATE. DTSBX423
|
||||
00718 DTSBX423
|
||||
00719 S001-FROM-CAL-8. DTSBX423
|
||||
00720 SET L001-FROM-CAL-8 TO TRUE. DTSBX423
|
||||
00721 GO TO S001-DATE. DTSBX423
|
||||
00722 DTSBX423
|
||||
00723 S001-FROM-ABS-DAY. DTSBX423
|
||||
00724 SET L001-FROM-ABS-DAY TO TRUE. DTSBX423
|
||||
00725 GO TO S001-DATE. DTSBX423
|
||||
00726 DTSBX423
|
||||
00727 S001-DATE. DTSBX423
|
||||
00728 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX423
|
||||
00729 S001-EXIT. DTSBX423
|
||||
00730 EXIT. DTSBX423
|
||||
00731 DTSBX423
|
||||
00732 S003-AGENCY-DAY. DTSBX423
|
||||
00733 SET L003-AGENCY-DAY TO TRUE. DTSBX423
|
||||
00734 GO TO S003-WORK-DAY. DTSBX423
|
||||
00735 DTSBX423
|
||||
00736 S003-WORK-DAY. DTSBX423
|
||||
00737 CALL 'DTSBU003' USING L003-LINK-AREA. DTSBX423
|
||||
00738 S003-EXIT. DTSBX423
|
||||
00739 EXIT. DTSBX423
|
||||
00740 DTSBX423
|
||||
00741 S004-FROM-5. DTSBX423
|
||||
00742 SET L004-FROM-5 TO TRUE. DTSBX423
|
||||
00743 GO TO S004-YRQ. DTSBX423
|
||||
00744 DTSBX423
|
||||
00745 S004-FROM-DATE. DTSBX423
|
||||
00746 SET L004-FROM-DATE TO TRUE. DTSBX423
|
||||
00747 GO TO S004-YRQ. DTSBX423
|
||||
00748 DTSBX423
|
||||
00749 S004-FROM-ABS. DTSBX423
|
||||
00750 SET L004-FROM-ABS TO TRUE. DTSBX423
|
||||
00751 GO TO S004-YRQ. DTSBX423
|
||||
00752 DTSBX423
|
||||
00753 S004-YRQ. DTSBX423
|
||||
00754 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX423
|
||||
00755 DTSBX423
|
||||
00756 S004-EXIT. DTSBX423
|
||||
00757 EXIT. DTSBX423
|
||||
00758 DTSBX423
|
||||
00759 *S910-OPEN-READ. DTSBX423
|
||||
00760 * SET L910-OPEN-READ-88 TO TRUE. DTSBX423
|
||||
00761 * GO TO S910-MSTR-IO. DTSBX423
|
||||
00762 * DTSBX423
|
||||
00763 S910-READ. DTSBX423
|
||||
00764 SET L910-READ-88 TO TRUE. DTSBX423
|
||||
00765 GO TO S910-MSTR-IO. DTSBX423
|
||||
00766 DTSBX423
|
||||
00767 S910-START-BROWSE. DTSBX423
|
||||
00768 SET L910-START-BROWSE-88 TO TRUE. DTSBX423
|
||||
00769 GO TO S910-MSTR-IO. DTSBX423
|
||||
00770 DTSBX423
|
||||
00771 S910-READ-NEXT. DTSBX423
|
||||
00772 SET L910-READ-NEXT-88 TO TRUE. DTSBX423
|
||||
00773 GO TO S910-MSTR-IO. DTSBX423
|
||||
00774 DTSBX423
|
||||
00775 *S910-CLOSE. DTSBX423
|
||||
00776 * SET L910-CLOSE-88 TO TRUE. DTSBX423
|
||||
00777 * GO TO S910-MSTR-IO. DTSBX423
|
||||
00778 DTSBX423
|
||||
00779 S910-MSTR-IO. DTSBX423
|
||||
00780 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX423
|
||||
00781 MSKL-REC. DTSBX423
|
||||
00782 S910-EXIT. DTSBX423
|
||||
00783 EXIT. DTSBX423
|
||||
00784 DTSBX423
|
||||
00785 *S921-OPEN-READ. DTSBX423
|
||||
00786 * SET L921-OPEN-READ-88 TO TRUE. DTSBX423
|
||||
00787 * GO TO S921-AIX-IO. DTSBX423
|
||||
00788 DTSBX423
|
||||
00789 S921-READ. DTSBX423
|
||||
00790 SET L921-READ-88 TO TRUE. DTSBX423
|
||||
00791 GO TO S921-AIX-IO. DTSBX423
|
||||
00792 DTSBX423
|
||||
00793 S921-START-BROWSE. DTSBX423
|
||||
00794 SET L921-START-BROWSE-88 TO TRUE. DTSBX423
|
||||
00795 GO TO S921-AIX-IO. DTSBX423
|
||||
00796 DTSBX423
|
||||
00797 S921-READ-NEXT. DTSBX423
|
||||
00798 SET L921-READ-NEXT-88 TO TRUE. DTSBX423
|
||||
00799 GO TO S921-AIX-IO. DTSBX423
|
||||
00800 DTSBX423
|
||||
00801 *S921-CLOSE. DTSBX423
|
||||
00802 * SET L921-CLOSE-88 TO TRUE. DTSBX423
|
||||
00803 * GO TO S921-AIX-IO. DTSBX423
|
||||
00804 DTSBX423
|
||||
00805 S921-AIX-IO. DTSBX423
|
||||
00806 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX423
|
||||
00807 ISKL-REC. DTSBX423
|
||||
00808 S921-EXIT. DTSBX423
|
||||
00809 EXIT. DTSBX423
|
||||
00810 DTSBX423
|
||||
00811 S923-OPEN-UPDATE. DTSBX423
|
||||
00812 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBX423
|
||||
00813 GO TO S923-ATC-CALL. DTSBX423
|
||||
00814 DTSBX423
|
||||
00815 S923-WRITE. DTSBX423
|
||||
00816 SET L923-WRITE-88 TO TRUE. DTSBX423
|
||||
00817 GO TO S923-ATC-CALL. DTSBX423
|
||||
00818 DTSBX423
|
||||
00819 S923-CLOSE. DTSBX423
|
||||
00820 SET L923-CLOSE-88 TO TRUE. DTSBX423
|
||||
00821 GO TO S923-ATC-CALL. DTSBX423
|
||||
00822 DTSBX423
|
||||
00823 S923-ATC-CALL. DTSBX423
|
||||
00824 CALL 'DTSBU923' USING L923-LINK-AREA DTSBX423
|
||||
00825 ASKL-REC. DTSBX423
|
||||
00826 S923-EXIT. DTSBX423
|
||||
00827 EXIT. DTSBX423
|
||||
00828 DTSBX423
|
||||
00829 *S927A-OPEN. DTSBX423
|
||||
00830 * SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX423
|
||||
00831 * PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX423
|
||||
00832 * DTSBX423
|
||||
00833 *S927A-EXIT. DTSBX423
|
||||
00834 * EXIT. DTSBX423
|
||||
00835 DTSBX423
|
||||
00836 S927B-WRITE. DTSBX423
|
||||
00837 SET L927-WRITE-88 TO TRUE. DTSBX423
|
||||
00838 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX423
|
||||
00839 DTSBX423
|
||||
00840 S927B-EXIT. DTSBX423
|
||||
00841 EXIT. DTSBX423
|
||||
00842 DTSBX423
|
||||
00843 *S927C-CLOSE. DTSBX423
|
||||
00844 * SET L927-CLOSE-88 TO TRUE. DTSBX423
|
||||
00845 * PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX423
|
||||
00846 * DTSBX423
|
||||
00847 *S927C-EXIT. DTSBX423
|
||||
00848 * EXIT. DTSBX423
|
||||
00849 DTSBX423
|
||||
00850 S927Z-IO. DTSBX423
|
||||
00851 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX423
|
||||
00852 TSKL-REC. DTSBX423
|
||||
00853 S927Z-EXIT. DTSBX423
|
||||
00854 EXIT. DTSBX423
|
||||
00855 DTSBX423
|
||||
00856 S931-OPEN-READ. DTSBX423
|
||||
00857 SET L931-OPEN-READ-88 TO TRUE. DTSBX423
|
||||
00858 GO TO S931-REF-IO. DTSBX423
|
||||
00859 DTSBX423
|
||||
00860 S931-CLOSE. DTSBX423
|
||||
00861 SET L931-CLOSE-88 TO TRUE. DTSBX423
|
||||
00862 GO TO S931-REF-IO. DTSBX423
|
||||
00863 DTSBX423
|
||||
00864 S931-REF-IO. DTSBX423
|
||||
00865 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX423
|
||||
00866 FSKL-REC. DTSBX423
|
||||
00867 S931-EXIT. DTSBX423
|
||||
00868 EXIT. DTSBX423
|
||||
00869 DTSBX423
|
||||
00870 S946-WRITE-R140. DTSBX423
|
||||
00871 CALL 'DTSBU946' USING R140-REC. DTSBX423
|
||||
00872 DTSBX423
|
||||
00873 S946-EXIT. DTSBX423
|
||||
00874 EXIT. DTSBX423
|
||||
00875 DTSBX423
|
||||
00876 S999-ABEND. DTSBX423
|
||||
00877 CALL 'DTSBU999' USING W-ABEND-CD. DTSBX423
|
||||
00878 S999-EXIT. DTSBX423
|
||||
00879 EXIT. DTSBX423
|
||||
00880 DTSBX423
|
||||
Reference in New Issue
Block a user