DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
717
Batch/DTSBD180.cob
Normal file
717
Batch/DTSBD180.cob
Normal file
@ -0,0 +1,717 @@
|
||||
00001 IDENTIFICATION DIVISION. 10/03/11
|
||||
00002 PROGRAM-ID. DTSBD180. DTSBD180
|
||||
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV019
|
||||
00004 DATE-WRITTEN. JANUARY 1991. DTSBD180
|
||||
00005 DATE-COMPILED. DTSBD180
|
||||
00006 SKIP3 DTSBD180
|
||||
00007 ***** DTSBD180
|
||||
00008 * DTSBD180
|
||||
00009 * FUNCTION: POST-UPDATE ACCOUNTING TRANSACTION COLLECTION DTSBD180
|
||||
00010 * FILE SCAN. DTSBD180
|
||||
00011 * DTSBD180
|
||||
00012 * MODIFICATION LOG: DTSBD180
|
||||
00013 * DTSBD180
|
||||
00014 * 01/06/92 INITIAL DEVELOPMENT. DTSBD180
|
||||
00015 * WORK ORDER: PROGRAMMER: TCL DTSBD180
|
||||
00016 * DTSBD180
|
||||
00017 * 05/09/95 AHDR-*-ITEM-CNT WERE CHANGED TO AHDR-*-TRAN-CNT. DTSBD180
|
||||
00018 * THEY NO LONGER INCLUDE THE CHECKS IN THE COUNTS. DTSBD180
|
||||
00019 * WORK ORDER: CR076 PROGRAMMER: RHC DTSBD180
|
||||
00020 * DTSBD180
|
||||
00021 * 12/31/96 ADDED 88 LEVEL TO DTSIAHDR FOR ELECTRONIC FILER DTSBD180
|
||||
00022 * BATCHES. ONLY USEDIN DTSBD140, SO TO SAVE MONEY DTSBD180
|
||||
00023 * THIS PROGRAM WASN'T RECOMPILED. DTSBD180
|
||||
00024 * WORK ORDER: PROGRAMMER: MJA DTSBD180
|
||||
00025 * DTSBD180
|
||||
00026 * 10/10/1998 REVIEWED AND MODIFIED FOR DC. IN DC, DTSBD180
|
||||
00027 * ACCOUNTING TRANSACTIONS IN A GIVEN BATCH ARE DTSBD180
|
||||
00028 * RETAINED ON THE ATC UNTIL ALL ACCOUNTING DTSBD180
|
||||
00029 * TRANSACTIONS IN THE BATCH SUCCESSFULLY PROCESSED DTSBD180
|
||||
00030 * BY THE ACCOUNTING UPDATE - WHEN ALL THE DTSBD180
|
||||
00031 * ACCOUNTING TRANSACTIONS IN THE BATCH ARE DTSBD180
|
||||
00032 * DELETED FROM THE ATC BY DTSBD180. HENCE, DTSBD180
|
||||
00033 * DTSBD180 ESSENTIALLY REWRITTEN FOR DC. DTSBD180
|
||||
00034 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD180
|
||||
00035 * DTSBD180
|
||||
00036 * 01/28/2002 MODIFIED FOR ANNUAL REPORT TRANSACTION (DTSIAATX)DTSBD180
|
||||
00037 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD180
|
||||
00038 * DTSBD180
|
||||
00039 * 12/07/2005 ADDED BANK BATCH NUMBER. DTSBD180
|
||||
00040 * REFERENCE: PROGRAMMER: GD DTSBD180
|
||||
00041 * DTSBD180
|
||||
00042 * 07/08/2011 MODIFIED TO WRITE BATCH HEADER DATA FOR DTSBD180
|
||||
00043 * SQL SERVER DATABASE. DTSBD180
|
||||
00044 * REFERENCE: PROGRAMMER: GD DTSBD180
|
||||
00045 * DTSBD180
|
||||
00046 * 09/29/2011 MODIFIED SELECTION PROCESS FOR BX217 EXPORT FILE.DTSBD180
|
||||
00047 * THE PROCESS THAT BUILDS THE FILE IS NOW CALLED DTSBD180
|
||||
00048 * AFTER THE CALL TO P4000 - THAT WAS NECESSARY TO DTSBD180
|
||||
00049 * GET THE UPDATED VALUES FOR THE PROCESSED FIELDS. DTSBD180
|
||||
00050 * THE PROGRAM ALSO SELECTS ALL BATCHES THAT APPEAR DTSBD180
|
||||
00051 * IN THE 301 REPORT - PREVIOUSLY IT ONLY SELECTED DTSBD180
|
||||
00052 * BATCHES THAT WERE NEW OR HAD BEEN UPDATED DTSBD180
|
||||
00053 * ON THE 21 SCREEN. DTSBD180
|
||||
00054 * REFERENCE: PROGRAMMER: GD DTSBD180
|
||||
00055 * DTSBD180
|
||||
00056 * DTSBD180
|
||||
00057 * DTSBD180
|
||||
00058 * DESCRIPTION: DTSBD180
|
||||
00059 * DTSBD180
|
||||
00060 * INITIATION: DTSBD180
|
||||
00061 * DTSBD180
|
||||
00062 * OPEN MASTER FILE (L910-OPEN-READ-88). DTSBD180
|
||||
00063 * OPEN ATC FILE (L923-OPEN-UPDATE-88). DTSBD180
|
||||
00064 * DTSBD180
|
||||
00065 * READ THE MHDR RECORD. DTSBD180
|
||||
00066 * IF L910-NO-REC-88 DTSBD180
|
||||
00067 * ABEND THE MODULE. DTSBD180
|
||||
00068 * DTSBD180
|
||||
00069 * MOVE MHDR-PRIOR-RUN-DATE TO R301-CURR-RUN-DATE. DTSBD180
|
||||
00070 * DTSBD180
|
||||
00071 * MOVE +0 TO WORKING STORAGE COUNTERS. DTSBD180
|
||||
00072 * DTSBD180
|
||||
00073 * DTSBD180
|
||||
00074 * PROCESSING: DTSBD180
|
||||
00075 * DTSBD180
|
||||
00076 * FOR EACH AHDR RECORD ON THE ATC FILE: DTSBD180
|
||||
00077 * DTSBD180
|
||||
00078 * IF AHDR-BATCH-BALANCED-NO-88 OR AHDR-BATCH-HELD-YES-88 DTSBD180
|
||||
00079 * WRITE A R301 RECORD (WITH R301 FIELDS POPULATED FROM DTSBD180
|
||||
00080 * AHDR FIELDS) DTSBD180
|
||||
00081 * ELSE DTSBD180
|
||||
00082 * SCAN THRU THE ATC FILE, SUMMING PROCESSED AND NOT DTSBD180
|
||||
00083 * PROCESSED TRANSACTIONS IN THIS BATCH; DTSBD180
|
||||
00084 * WRITE A R301 RECORD; DTSBD180
|
||||
00085 * IF UNPROCESEED TRANSACTION RECORDS IN THIS BATCH DTSBD180
|
||||
00086 * EXIST ON THE ATC FILE DTSBD180
|
||||
00087 * RESET AHDR FIELDS AND REWRITE THE AHDR RECORD DTSBD180
|
||||
00088 * ELSE DTSBD180
|
||||
00089 * DELETE THE AHDR RECORD AND ALL ASSOCIATED DTSBD180
|
||||
00090 * TRANSACTIONS. DTSBD180
|
||||
00091 * DTSBD180
|
||||
00092 * DTSBD180
|
||||
00093 * TERMINATION: DTSBD180
|
||||
00094 * DTSBD180
|
||||
00095 * DISPLAY THE MODULE TERMINATION STATISTICS. DTSBD180
|
||||
00096 * DTSBD180
|
||||
00097 * CLOSE MASTER FILE, ATC FILE, S946-RPT-REC-O FILE. DTSBD180
|
||||
00098 * DTSBD180
|
||||
00099 * DTSBD180
|
||||
00100 ***** DTSBD180
|
||||
00101 SKIP3 DTSBD180
|
||||
00102 ENVIRONMENT DIVISION. DTSBD180
|
||||
00103 INPUT-OUTPUT SECTION. DTSBD180
|
||||
00104 DTSBD180
|
||||
00105 FILE-CONTROL. DTSBD180
|
||||
00106 SELECT BX217-BATCH-FILE ASSIGN TO DTSFX217 DTSBD180
|
||||
00107 FILE STATUS IS BX217-STATUS. DTSBD180
|
||||
00108 DTSBD180
|
||||
00109 SKIP3 DTSBD180
|
||||
00110 DATA DIVISION. DTSBD180
|
||||
00111 FILE SECTION. DTSBD180
|
||||
00112 DTSBD180
|
||||
00113 FD BX217-BATCH-FILE DTSBD180
|
||||
00114 RECORDING MODE IS F DTSBD180
|
||||
00115 BLOCK CONTAINS 0 RECORDS DTSBD180
|
||||
00116 LABEL RECORDS ARE OMITTED. DTSBD180
|
||||
00117 DTSBD180
|
||||
00118 01 BX217-REC PIC X(148). DTSBD180
|
||||
00119 SKIP3 DTSBD180
|
||||
00120 WORKING-STORAGE SECTION. DTSBD180
|
||||
001205 77 PAN-VALET PICTURE X(24) VALUE '019DTSBD180 10/03/11'. DTSBD180
|
||||
00121 SKIP3 DTSBD180
|
||||
00122 01 WRK-AREA. DTSBD180
|
||||
00123 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +180.DTSBD180
|
||||
00124 DTSBD180
|
||||
00125 05 WRK-MODULE-ID PIC X(08) VALUE 'DTSBD180'.DTSBD180
|
||||
00126 DTSBD180
|
||||
00127 05 BX217-STATUS PIC X(02). DTSBD180
|
||||
00128 88 BX217-STATUS-OK-88 VALUE '00'. DTSBD180
|
||||
00129 DTSBD180
|
||||
00130 05 WRK-AHDR-REC-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00131 DTSBD180
|
||||
00132 05 WRK-AHDR-BALANCED-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00133 DTSBD180
|
||||
00134 05 WRK-AHDR-NOT-BALANCED-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00135 DTSBD180
|
||||
00136 05 WRK-AHDR-HELD-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00137 DTSBD180
|
||||
00138 05 WRK-AHDR-NOT-HELD-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00139 DTSBD180
|
||||
00140 05 WRK-AHDR-PROCESSED-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00141 DTSBD180
|
||||
00142 05 WRK-AHDR-BYPASSED-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00143 DTSBD180
|
||||
00144 05 WRK-AHDR-DELETED-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00145 DTSBD180
|
||||
00146 05 WRK-AHDR-RETAINED-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00147 DTSBD180
|
||||
00148 05 WRK-R301-REC-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00149 DTSBD180
|
||||
00150 05 WRK-X217-REC-CNT PIC S9(07) COMP-3. DTSBD180
|
||||
00151 DTSBD180
|
||||
00152 DTSBD180
|
||||
00153 05 WRK-PROCESSED-TRAN-CNT PIC S9(03) COMP-3. DTSBD180
|
||||
00154 DTSBD180
|
||||
00155 05 WRK-PROCESSED-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSBD180
|
||||
00156 DTSBD180
|
||||
00157 05 WRK-NOT-PROCESSED-TRAN-CNT PIC S9(03) COMP-3. DTSBD180
|
||||
00158 DTSBD180
|
||||
00159 05 WRK-NOT-PROCESSED-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSBD180
|
||||
00160 DTSBD180
|
||||
00161 DTSBD180
|
||||
00162 DTSBD180
|
||||
00163 01 WRK-INDICATORS. DTSBD180
|
||||
00164 05 ATC-BATCH-BREAK-IND PIC X(01). DTSBD180
|
||||
00165 DTSBD180
|
||||
00166 DTSBD180
|
||||
00167 DTSBD180
|
||||
00168 01 WRK-HOLD-FIELDS. DTSBD180
|
||||
00169 05 WRK-R301-RUN-DATE PIC S9(09) COMP-3. DTSBD180
|
||||
00170 EJECT DTSBD180
|
||||
00171 01 L001-LINK-AREA. DTSBD180
|
||||
00172 ++INCLUDE DTSIL001 DTSBD180
|
||||
00173 SKIP3 DTSBD180
|
||||
00174 01 L910-LINK-AREA. DTSBD180
|
||||
00175 ++INCLUDE DTSIL910 DTSBD180
|
||||
00176 SKIP3 DTSBD180
|
||||
00177 01 MSKL-REC. DTSBD180
|
||||
00178 ++INCLUDE DTSIMSKL DTSBD180
|
||||
00179 SKIP3 DTSBD180
|
||||
00180 01 MHDR-REC. DTSBD180
|
||||
00181 ++INCLUDE DTSIMHDR DTSBD180
|
||||
00182 EJECT DTSBD180
|
||||
00183 01 L923-LINK-AREA. DTSBD180
|
||||
00184 ++INCLUDE DTSIL923 DTSBD180
|
||||
00185 SKIP3 DTSBD180
|
||||
00186 01 ASKL-REC. DTSBD180
|
||||
00187 ++INCLUDE DTSIASKL DTSBD180
|
||||
00188 SKIP3 DTSBD180
|
||||
00189 01 AHDR-REC. DTSBD180
|
||||
00190 ++INCLUDE DTSIAHDR DTSBD180
|
||||
00191 SKIP3 DTSBD180
|
||||
00192 01 ARPT-REC. DTSBD180
|
||||
00193 ++INCLUDE DTSIARPT DTSBD180
|
||||
00194 SKIP3 DTSBD180
|
||||
00195 01 AATX-REC. DTSBD180
|
||||
00196 ++INCLUDE DTSIAATX DTSBD180
|
||||
00197 SKIP3 DTSBD180
|
||||
00198 01 APAY-REC. DTSBD180
|
||||
00199 ++INCLUDE DTSIAPAY DTSBD180
|
||||
00200 SKIP3 DTSBD180
|
||||
00201 01 AADJ-REC. DTSBD180
|
||||
00202 ++INCLUDE DTSIAADJ DTSBD180
|
||||
00203 EJECT DTSBD180
|
||||
00204 01 R301-REC. DTSBD180
|
||||
00205 ++INCLUDE DTSIR301 DTSBD180
|
||||
00206 EJECT DTSBD180
|
||||
00207 01 WRK-X217-REC. DTSBD180
|
||||
00208 ++INCLUDE DTSIX217 DTSBD180
|
||||
00209 EJECT DTSBD180
|
||||
00210 PROCEDURE DIVISION. DTSBD180
|
||||
00211 DTSBD180
|
||||
00212 DTSBD180
|
||||
00213 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD180
|
||||
00214 DTSBD180
|
||||
00215 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD180
|
||||
00216 DTSBD180
|
||||
00217 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD180
|
||||
00218 DTSBD180
|
||||
00219 DTSBD180
|
||||
00220 GOBACK. DTSBD180
|
||||
00221 EJECT DTSBD180
|
||||
00222 I0000-INITIATE. DTSBD180
|
||||
00223 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. DTSBD180
|
||||
00224 DTSBD180
|
||||
00225 PERFORM I2000-INITIALIZE-WRK THRU I2000-EXIT. DTSBD180
|
||||
00226 DTSBD180
|
||||
00227 MOVE LENGTH OF R301-REC TO R301-LENGTH. DTSBD180
|
||||
00228 I0000-EXIT. DTSBD180
|
||||
00229 EXIT. DTSBD180
|
||||
00230 EJECT DTSBD180
|
||||
00231 I1000-OPEN-FILES. DTSBD180
|
||||
00232 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBD180
|
||||
00233 DTSBD180
|
||||
00234 PERFORM S923-OPEN-UPDATE THRU S923-EXIT. DTSBD180
|
||||
00235 DTSBD180
|
||||
00236 OPEN OUTPUT BX217-BATCH-FILE. DTSBD180
|
||||
00237 IF NOT BX217-STATUS-OK-88 DTSBD180
|
||||
00238 DISPLAY 'CANNOT OPEN BX217 FILE ' BX217-STATUS DTSBD180
|
||||
00239 PERFORM S999-ABEND THRU S999-EXIT DTSBD180
|
||||
00240 END-IF. DTSBD180
|
||||
00241 DTSBD180
|
||||
00242 I1000-EXIT. DTSBD180
|
||||
00243 EXIT. DTSBD180
|
||||
00244 EJECT DTSBD180
|
||||
00245 I2000-INITIALIZE-WRK. DTSBD180
|
||||
00246 MOVE +0 TO WRK-AHDR-REC-CNT DTSBD180
|
||||
00247 WRK-AHDR-BALANCED-CNT DTSBD180
|
||||
00248 WRK-AHDR-NOT-BALANCED-CNT DTSBD180
|
||||
00249 WRK-AHDR-HELD-CNT DTSBD180
|
||||
00250 WRK-AHDR-NOT-HELD-CNT DTSBD180
|
||||
00251 WRK-AHDR-PROCESSED-CNT DTSBD180
|
||||
00252 WRK-AHDR-BYPASSED-CNT DTSBD180
|
||||
00253 WRK-AHDR-DELETED-CNT DTSBD180
|
||||
00254 WRK-AHDR-RETAINED-CNT DTSBD180
|
||||
00255 WRK-R301-REC-CNT DTSBD180
|
||||
00256 WRK-X217-REC-CNT. DTSBD180
|
||||
00257 DTSBD180
|
||||
00258 DTSBD180
|
||||
00259 MOVE LOW-VALUES TO MHDR-KEY-AREA. DTSBD180
|
||||
00260 DTSBD180
|
||||
00261 MOVE +0 TO MHDR-EMP-NO. DTSBD180
|
||||
00262 DTSBD180
|
||||
00263 SET MHDR-HDR-88 TO TRUE. DTSBD180
|
||||
00264 DTSBD180
|
||||
00265 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSBD180
|
||||
00266 DTSBD180
|
||||
00267 PERFORM S910-READ THRU S910-EXIT. DTSBD180
|
||||
00268 DTSBD180
|
||||
00269 IF L910-NO-REC-88 DTSBD180
|
||||
00270 PERFORM S999-ABEND THRU S999-EXIT. DTSBD180
|
||||
00271 DTSBD180
|
||||
00272 MOVE MSKL-REC TO MHDR-REC. DTSBD180
|
||||
00273 DTSBD180
|
||||
00274 MOVE MHDR-PRIOR-RUN-DATE TO WRK-R301-RUN-DATE. DTSBD180
|
||||
00275 I2000-EXIT. DTSBD180
|
||||
00276 EXIT. DTSBD180
|
||||
00277 EJECT DTSBD180
|
||||
00278 P0000-PROCESS. DTSBD180
|
||||
00279 MOVE +0 TO AHDR-BATCH-NO DTSBD180
|
||||
00280 AHDR-ITEM-NO. DTSBD180
|
||||
00281 DTSBD180
|
||||
00282 PERFORM P1000-ATC-FILE THRU P1000-EXIT DTSBD180
|
||||
00283 UNTIL L923-NO-REC-88. DTSBD180
|
||||
00284 P0000-EXIT. DTSBD180
|
||||
00285 EXIT. DTSBD180
|
||||
00286 EJECT DTSBD180
|
||||
00287 P1000-ATC-FILE. DTSBD180
|
||||
00288 ADD +1 TO AHDR-BATCH-NO. DTSBD180
|
||||
00289 DTSBD180
|
||||
00290 MOVE AHDR-KEY-AREA TO ASKL-KEY-AREA. DTSBD180
|
||||
00291 DTSBD180
|
||||
00292 PERFORM S923-START-BROWSE THRU S923-EXIT. DTSBD180
|
||||
00293 DTSBD180
|
||||
00294 IF L923-NO-REC-88 DTSBD180
|
||||
00295 GO TO P1000-EXIT. DTSBD180
|
||||
00296 DTSBD180
|
||||
00297 DTSBD180
|
||||
00298 IF NOT ASKL-HDR-88 DTSBD180
|
||||
00299 PERFORM S999-ABEND THRU S999-EXIT. DTSBD180
|
||||
00300 DTSBD180
|
||||
00301 DTSBD180
|
||||
00302 MOVE ASKL-REC TO AHDR-REC. DTSBD180
|
||||
00303 DTSBD180
|
||||
00304 DTSBD180
|
||||
00305 ADD +1 TO WRK-AHDR-REC-CNT. DTSBD180
|
||||
00306 DTSBD180
|
||||
00307 IF AHDR-BATCH-BALANCED-YES-88 DTSBD180
|
||||
00308 ADD +1 TO WRK-AHDR-BALANCED-CNT DTSBD180
|
||||
00309 ELSE DTSBD180
|
||||
00310 ADD +1 TO WRK-AHDR-NOT-BALANCED-CNT. DTSBD180
|
||||
00311 DTSBD180
|
||||
00312 IF AHDR-BATCH-HELD-NO-88 DTSBD180
|
||||
00313 ADD +1 TO WRK-AHDR-NOT-HELD-CNT DTSBD180
|
||||
00314 ELSE DTSBD180
|
||||
00315 ADD +1 TO WRK-AHDR-HELD-CNT. DTSBD180
|
||||
00316 DTSBD180
|
||||
00317 DTSBD180
|
||||
00318 MOVE 'N' TO ATC-BATCH-BREAK-IND. DTSBD180
|
||||
00319 DTSBD180
|
||||
00320 MOVE +0 TO WRK-PROCESSED-TRAN-CNT DTSBD180
|
||||
00321 WRK-PROCESSED-REMIT-AMT DTSBD180
|
||||
00322 WRK-NOT-PROCESSED-TRAN-CNT DTSBD180
|
||||
00323 WRK-NOT-PROCESSED-REMIT-AMT. DTSBD180
|
||||
00324 DTSBD180
|
||||
00325 PERFORM P2000-ATC-DETAIL THRU P2000-EXIT DTSBD180
|
||||
00326 UNTIL L923-NO-REC-88 OR DTSBD180
|
||||
00327 ATC-BATCH-BREAK-IND = 'Y'. DTSBD180
|
||||
00328 DTSBD180
|
||||
00329 DTSBD180
|
||||
00330 PERFORM P3000-GENERATE-R301-REC THRU P3000-EXIT. DTSBD180
|
||||
00331 DTSBD180
|
||||
00332 ** IF AHDR-ESTB-DATE = WRK-R301-RUN-DATE DTSBD180
|
||||
00333 * OR AHDR-CHNG-DATE = WRK-R301-RUN-DATE DTSBD180
|
||||
00334 * PERFORM P3200-GENERATE-X217-REC THRU P3200-EXIT DTSBD180
|
||||
00335 ** END-IF. DTSBD180
|
||||
00336 DTSBD180
|
||||
00337 IF AHDR-BATCH-BALANCED-YES-88 AND AHDR-BATCH-HELD-NO-88 DTSBD180
|
||||
00338 ADD +1 TO WRK-AHDR-PROCESSED-CNT DTSBD180
|
||||
00339 PERFORM P4000-PROCESSED-BATCH THRU P4000-EXIT DTSBD180
|
||||
00340 ELSE DTSBD180
|
||||
00341 ADD +1 TO WRK-AHDR-BYPASSED-CNT DTSBD180
|
||||
00342 ADD +1 TO WRK-AHDR-RETAINED-CNT DTSBD180
|
||||
00343 END-IF. DTSBD180
|
||||
00344 DTSBD180
|
||||
00345 PERFORM P3200-GENERATE-X217-REC THRU P3200-EXIT. DTSBD180
|
||||
00346 DTSBD180
|
||||
00347 P1000-EXIT. DTSBD180
|
||||
00348 EXIT. DTSBD180
|
||||
00349 EJECT DTSBD180
|
||||
00350 P2000-ATC-DETAIL. DTSBD180
|
||||
00351 PERFORM S923-READ-NEXT THRU S923-EXIT. DTSBD180
|
||||
00352 DTSBD180
|
||||
00353 IF (L923-NO-REC-88) DTSBD180
|
||||
00354 OR DTSBD180
|
||||
00355 (ASKL-BATCH-NO NOT = AHDR-BATCH-NO) DTSBD180
|
||||
00356 MOVE 'Y' TO ATC-BATCH-BREAK-IND DTSBD180
|
||||
00357 ELSE DTSBD180
|
||||
00358 PERFORM P2100-ACCUM-ACTUALS THRU P2100-EXIT. DTSBD180
|
||||
00359 P2000-EXIT. DTSBD180
|
||||
00360 EXIT. DTSBD180
|
||||
00361 EJECT DTSBD180
|
||||
00362 P2100-ACCUM-ACTUALS. DTSBD180
|
||||
00363 IF ASKL-HDR-88 DTSBD180
|
||||
00364 PERFORM S999-ABEND THRU S999-EXIT. DTSBD180
|
||||
00365 DTSBD180
|
||||
00366 IF ASKL-RPT-88 DTSBD180
|
||||
00367 MOVE ASKL-REC TO ARPT-REC DTSBD180
|
||||
00368 IF ARPT-NOT-PROCESSED-88 DTSBD180
|
||||
00369 ADD +1 TO WRK-NOT-PROCESSED-TRAN-CNT DTSBD180
|
||||
00370 ADD ARPT-REMIT-AMT TO WRK-NOT-PROCESSED-REMIT-AMT DTSBD180
|
||||
00371 ELSE DTSBD180
|
||||
00372 ADD +1 TO WRK-PROCESSED-TRAN-CNT DTSBD180
|
||||
00373 ADD ARPT-REMIT-AMT TO WRK-PROCESSED-REMIT-AMT DTSBD180
|
||||
00374 ELSE DTSBD180
|
||||
00375 IF ASKL-ATX-88 DTSBD180
|
||||
00376 MOVE ASKL-REC TO AATX-REC DTSBD180
|
||||
00377 IF AATX-NOT-PROCESSED-88 DTSBD180
|
||||
00378 ADD +1 TO WRK-NOT-PROCESSED-TRAN-CNT DTSBD180
|
||||
00379 ADD AATX-REMIT-AMT TO WRK-NOT-PROCESSED-REMIT-AMT DTSBD180
|
||||
00380 ELSE DTSBD180
|
||||
00381 ADD +1 TO WRK-PROCESSED-TRAN-CNT DTSBD180
|
||||
00382 ADD AATX-REMIT-AMT TO WRK-PROCESSED-REMIT-AMT DTSBD180
|
||||
00383 ELSE DTSBD180
|
||||
00384 IF ASKL-PAY-88 DTSBD180
|
||||
00385 MOVE ASKL-REC TO APAY-REC DTSBD180
|
||||
00386 IF APAY-NOT-PROCESSED-88 DTSBD180
|
||||
00387 ADD +1 TO WRK-NOT-PROCESSED-TRAN-CNT DTSBD180
|
||||
00388 ADD APAY-REMIT-AMT TO WRK-NOT-PROCESSED-REMIT-AMT DTSBD180
|
||||
00389 ELSE DTSBD180
|
||||
00390 ADD +1 TO WRK-PROCESSED-TRAN-CNT DTSBD180
|
||||
00391 ADD APAY-REMIT-AMT TO WRK-PROCESSED-REMIT-AMT DTSBD180
|
||||
00392 ELSE DTSBD180
|
||||
00393 IF ASKL-ADJ-88 DTSBD180
|
||||
00394 MOVE ASKL-REC TO AADJ-REC DTSBD180
|
||||
00395 IF AADJ-NOT-PROCESSED-88 DTSBD180
|
||||
00396 ADD +1 TO WRK-NOT-PROCESSED-TRAN-CNT DTSBD180
|
||||
00397 ELSE DTSBD180
|
||||
00398 ADD +1 TO WRK-PROCESSED-TRAN-CNT DTSBD180
|
||||
00399 ELSE DTSBD180
|
||||
00400 PERFORM S999-ABEND THRU S999-EXIT. DTSBD180
|
||||
00401 P2100-EXIT. DTSBD180
|
||||
00402 EXIT. DTSBD180
|
||||
00403 EJECT DTSBD180
|
||||
00404 P3000-GENERATE-R301-REC. DTSBD180
|
||||
00405 MOVE AHDR-DEPOSIT-DATE TO R301-DEPOSIT-DATE. DTSBD180
|
||||
00406 DTSBD180
|
||||
00407 MOVE AHDR-BATCH-NO TO R301-BATCH-NO. DTSBD180
|
||||
00408 DTSBD180
|
||||
00409 MOVE WRK-R301-RUN-DATE TO R301-CURR-RUN-DATE. DTSBD180
|
||||
00410 DTSBD180
|
||||
00411 MOVE AHDR-BATCH-BALANCED-IND TO R301-BATCH-BALANCED-IND. DTSBD180
|
||||
00412 DTSBD180
|
||||
00413 MOVE AHDR-BATCH-HELD-IND TO R301-BATCH-HELD-IND. DTSBD180
|
||||
00414 DTSBD180
|
||||
00415 MOVE AHDR-ESTB-OP-ID TO R301-ESTB-OP-ID. DTSBD180
|
||||
00416 DTSBD180
|
||||
00417 MOVE AHDR-ESTB-DATE TO R301-ESTB-DATE. DTSBD180
|
||||
00418 DTSBD180
|
||||
00419 MOVE AHDR-CHNG-OP-ID TO R301-CHNG-OP-ID. DTSBD180
|
||||
00420 DTSBD180
|
||||
00421 MOVE AHDR-CHNG-DATE TO R301-CHNG-DATE. DTSBD180
|
||||
00422 DTSBD180
|
||||
00423 MOVE AHDR-PROC-TRAN-CNT TO R301-SUCCEEDED-PREV-TRAN-CNT. DTSBD180
|
||||
00424 DTSBD180
|
||||
00425 MOVE AHDR-PROC-REMIT-AMT TO R301-SUCCEEDED-PREV-REMIT-AMT. DTSBD180
|
||||
00426 DTSBD180
|
||||
00427 IF AHDR-BATCH-BALANCED-YES-88 AND AHDR-BATCH-HELD-NO-88 DTSBD180
|
||||
00428 COMPUTE R301-SUCCEEDED-TODAY-TRAN-CNT DTSBD180
|
||||
00429 = WRK-PROCESSED-TRAN-CNT DTSBD180
|
||||
00430 - R301-SUCCEEDED-PREV-TRAN-CNT DTSBD180
|
||||
00431 COMPUTE R301-SUCCEEDED-TODAY-REMIT-AMT DTSBD180
|
||||
00432 = WRK-PROCESSED-REMIT-AMT DTSBD180
|
||||
00433 - R301-SUCCEEDED-PREV-REMIT-AMT DTSBD180
|
||||
00434 MOVE WRK-NOT-PROCESSED-TRAN-CNT DTSBD180
|
||||
00435 TO R301-FAILED-TODAY-TRAN-CNT DTSBD180
|
||||
00436 MOVE WRK-NOT-PROCESSED-REMIT-AMT DTSBD180
|
||||
00437 TO R301-FAILED-TODAY-REMIT-AMT DTSBD180
|
||||
00438 MOVE +0 TO R301-BYPASSED-TODAY-TRAN-CNT DTSBD180
|
||||
00439 R301-BYPASSED-TODAY-REMIT-AMT DTSBD180
|
||||
00440 ELSE DTSBD180
|
||||
00441 MOVE +0 TO R301-SUCCEEDED-TODAY-TRAN-CNT DTSBD180
|
||||
00442 R301-SUCCEEDED-TODAY-REMIT-AMT DTSBD180
|
||||
00443 R301-FAILED-TODAY-TRAN-CNT DTSBD180
|
||||
00444 R301-FAILED-TODAY-REMIT-AMT DTSBD180
|
||||
00445 MOVE WRK-NOT-PROCESSED-TRAN-CNT DTSBD180
|
||||
00446 TO R301-BYPASSED-TODAY-TRAN-CNT DTSBD180
|
||||
00447 MOVE WRK-NOT-PROCESSED-REMIT-AMT DTSBD180
|
||||
00448 TO R301-BYPASSED-TODAY-REMIT-AMT. DTSBD180
|
||||
00449 DTSBD180
|
||||
00450 MOVE AHDR-ATC-FILE-TRAN-CNT TO R301-ATC-FILE-TRAN-CNT. DTSBD180
|
||||
00451 DTSBD180
|
||||
00452 MOVE AHDR-ATC-FILE-REMIT-AMT TO R301-ATC-FILE-REMIT-AMT. DTSBD180
|
||||
00453 DTSBD180
|
||||
00454 MOVE AHDR-CONTROL-TRAN-CNT TO R301-CONTROL-TRAN-CNT. DTSBD180
|
||||
00455 DTSBD180
|
||||
00456 MOVE AHDR-CONTROL-REMIT-AMT TO R301-CONTROL-REMIT-AMT. DTSBD180
|
||||
00457 DTSBD180
|
||||
00458 MOVE AHDR-BANK-BATCH-NO TO R301-BANK-BATCH-NO. DTSBD180
|
||||
00459 DTSBD180
|
||||
00460 PERFORM S946-WRITE-R301 THRU S946-EXIT. DTSBD180
|
||||
00461 DTSBD180
|
||||
00462 ADD +1 TO WRK-R301-REC-CNT. DTSBD180
|
||||
00463 P3000-EXIT. DTSBD180
|
||||
00464 EXIT. DTSBD180
|
||||
00465 DTSBD180
|
||||
00466 P3200-GENERATE-X217-REC. DTSBD180
|
||||
00467 MOVE WRK-R301-RUN-DATE TO L001-FED-8-DATE-9. DTSBD180
|
||||
00468 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD180
|
||||
00469 MOVE L001-SLASH-8-DATE TO X217-PROCESS-DT. DTSBD180
|
||||
00470 DTSBD180
|
||||
00471 MOVE AHDR-BATCH-NO TO X217-BATCH. DTSBD180
|
||||
00472 DTSBD180
|
||||
00473 MOVE AHDR-BATCH-BALANCED-IND TO X217-BALANCED-IND. DTSBD180
|
||||
00474 DTSBD180
|
||||
00475 MOVE AHDR-BATCH-HELD-IND TO X217-HELD-IND. DTSBD180
|
||||
00476 DTSBD180
|
||||
00477 MOVE AHDR-CONTROL-TRAN-CNT TO X217-CONTROL-TRAN-CNT. DTSBD180
|
||||
00478 DTSBD180
|
||||
00479 MOVE AHDR-CONTROL-REMIT-AMT TO X217-CONTROL-REMIT-AMT. DTSBD180
|
||||
00480 DTSBD180
|
||||
00481 MOVE AHDR-ATC-FILE-TRAN-CNT TO X217-ATC-FILE-TRAN-CNT. DTSBD180
|
||||
00482 DTSBD180
|
||||
00483 MOVE AHDR-ATC-FILE-REMIT-AMT TO X217-ATC-FILE-REMIT-AMT. DTSBD180
|
||||
00484 DTSBD180
|
||||
00485 MOVE WRK-PROCESSED-TRAN-CNT TO X217-PROCESSED-CNT. DTSBD180
|
||||
00486 DTSBD180
|
||||
00487 MOVE WRK-PROCESSED-REMIT-AMT TO X217-PROCESSED-REMIT. DTSBD180
|
||||
00488 DTSBD180
|
||||
00489 MOVE AHDR-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSBD180
|
||||
00490 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD180
|
||||
00491 MOVE L001-SLASH-8-DATE TO X217-DEPOSIT-DATE. DTSBD180
|
||||
00492 DTSBD180
|
||||
00493 MOVE AHDR-CHNG-OP-ID TO X217-CHNG-OP-ID. DTSBD180
|
||||
00494 DTSBD180
|
||||
00495 MOVE AHDR-BANK-BATCH-NO TO X217-BANK-BATCH. DTSBD180
|
||||
00496 DTSBD180
|
||||
00497 MOVE AHDR-ESTB-OP-ID TO X217-ESTB-OP-ID. DTSBD180
|
||||
00498 DTSBD180
|
||||
00499 MOVE AHDR-ESTB-DATE TO L001-FED-8-DATE-9. DTSBD180
|
||||
00500 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD180
|
||||
00501 MOVE L001-SLASH-8-DATE TO X217-ESTB-DATE. DTSBD180
|
||||
00502 DTSBD180
|
||||
00503 MOVE AHDR-DEPOSIT-ID TO X217-DEPOSIT-ID. DTSBD180
|
||||
00504 DTSBD180
|
||||
00505 MOVE AHDR-ANNUAL-BATCH-IND TO X217-ANN-BATCH. DTSBD180
|
||||
00506 DTSBD180
|
||||
00507 MOVE AHDR-RECEIVED-DATE TO L001-FED-8-DATE-9. DTSBD180
|
||||
00508 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD180
|
||||
00509 MOVE L001-SLASH-8-DATE TO X217-RCVD-DATE. DTSBD180
|
||||
00510 DTSBD180
|
||||
00511 WRITE BX217-REC FROM WRK-X217-REC. DTSBD180
|
||||
00512 ADD +1 TO WRK-X217-REC-CNT. DTSBD180
|
||||
00513 DTSBD180
|
||||
00514 P3200-EXIT. DTSBD180
|
||||
00515 EXIT. DTSBD180
|
||||
00516 DTSBD180
|
||||
00517 P4000-PROCESSED-BATCH. DTSBD180
|
||||
00518 MOVE AHDR-DOC-NO TO ASKL-DOC-NO. DTSBD180
|
||||
00519 DTSBD180
|
||||
00520 PERFORM S923-READ THRU S923-EXIT. DTSBD180
|
||||
00521 DTSBD180
|
||||
00522 IF L923-NO-REC-88 DTSBD180
|
||||
00523 PERFORM S999-ABEND THRU S999-EXIT. DTSBD180
|
||||
00524 DTSBD180
|
||||
00525 DTSBD180
|
||||
00526 IF WRK-NOT-PROCESSED-TRAN-CNT = +0 DTSBD180
|
||||
00527 PERFORM P4100-DELETE-BATCH THRU P4100-EXIT DTSBD180
|
||||
00528 ELSE DTSBD180
|
||||
00529 PERFORM P4200-UPDATE-BATCH-HDR THRU P4200-EXIT. DTSBD180
|
||||
00530 P4000-EXIT. DTSBD180
|
||||
00531 EXIT. DTSBD180
|
||||
00532 EJECT DTSBD180
|
||||
00533 P4100-DELETE-BATCH. DTSBD180
|
||||
00534 PERFORM S923-DELETE THRU S923-EXIT. DTSBD180
|
||||
00535 DTSBD180
|
||||
00536 ADD +1 TO WRK-AHDR-DELETED-CNT. DTSBD180
|
||||
00537 DTSBD180
|
||||
00538 DTSBD180
|
||||
00539 PERFORM P4110-DELETE-TRANSACTIONS THRU P4110-EXIT DTSBD180
|
||||
00540 UNTIL (L923-NO-REC-88) DTSBD180
|
||||
00541 OR DTSBD180
|
||||
00542 (ASKL-BATCH-NO NOT = AHDR-BATCH-NO). DTSBD180
|
||||
00543 P4100-EXIT. DTSBD180
|
||||
00544 EXIT. DTSBD180
|
||||
00545 SKIP3 DTSBD180
|
||||
00546 P4110-DELETE-TRANSACTIONS. DTSBD180
|
||||
00547 PERFORM S923-START-BROWSE THRU S923-EXIT. DTSBD180
|
||||
00548 DTSBD180
|
||||
00549 IF (L923-NO-REC-88) DTSBD180
|
||||
00550 OR DTSBD180
|
||||
00551 (ASKL-BATCH-NO NOT = AHDR-BATCH-NO) DTSBD180
|
||||
00552 GO TO P4110-EXIT. DTSBD180
|
||||
00553 DTSBD180
|
||||
00554 PERFORM S923-DELETE THRU S923-EXIT. DTSBD180
|
||||
00555 P4110-EXIT. DTSBD180
|
||||
00556 EXIT. DTSBD180
|
||||
00557 EJECT DTSBD180
|
||||
00558 P4200-UPDATE-BATCH-HDR. DTSBD180
|
||||
00559 MOVE WRK-PROCESSED-TRAN-CNT TO AHDR-PROC-TRAN-CNT. DTSBD180
|
||||
00560 DTSBD180
|
||||
00561 MOVE WRK-PROCESSED-REMIT-AMT TO AHDR-PROC-REMIT-AMT. DTSBD180
|
||||
00562 DTSBD180
|
||||
00563 DTSBD180
|
||||
00564 MOVE AHDR-REC TO ASKL-REC. DTSBD180
|
||||
00565 DTSBD180
|
||||
00566 PERFORM S923-REWRITE THRU S923-EXIT. DTSBD180
|
||||
00567 DTSBD180
|
||||
00568 ADD +1 TO WRK-AHDR-RETAINED-CNT. DTSBD180
|
||||
00569 P4200-EXIT. DTSBD180
|
||||
00570 EXIT. DTSBD180
|
||||
00571 EJECT DTSBD180
|
||||
00572 T0000-TERMINATE. DTSBD180
|
||||
00573 DISPLAY ' '. DTSBD180
|
||||
00574 DTSBD180
|
||||
00575 DISPLAY '*** DTSBD180 TERMINATION STATISTICS ***'. DTSBD180
|
||||
00576 DTSBD180
|
||||
00577 DISPLAY ' NUMBER OF BALANCED HEADER RECORDS ENCOUNTERED: 'DTSBD180
|
||||
00578 WRK-AHDR-BALANCED-CNT. DTSBD180
|
||||
00579 DTSBD180
|
||||
00580 DISPLAY 'NUMBER OF NOT BALANCED HEADER RECORDS ENCOUNTERED: 'DTSBD180
|
||||
00581 WRK-AHDR-NOT-BALANCED-CNT. DTSBD180
|
||||
00582 DTSBD180
|
||||
00583 DISPLAY ' NUMBER OF HELD HEADER RECORDS ENCOUNTERED: 'DTSBD180
|
||||
00584 WRK-AHDR-HELD-CNT. DTSBD180
|
||||
00585 DTSBD180
|
||||
00586 DISPLAY ' NUMBER OF NOT HELD HEADER RECORDS ENCOUNTERED: 'DTSBD180
|
||||
00587 WRK-AHDR-NOT-HELD-CNT. DTSBD180
|
||||
00588 DTSBD180
|
||||
00589 DISPLAY ' NUMBER OF PROCESSED HEADER RECORDS ENCOUNTERED: 'DTSBD180
|
||||
00590 WRK-AHDR-PROCESSED-CNT DTSBD180
|
||||
00591 DTSBD180
|
||||
00592 DISPLAY ' NUMBER OF BYPASSED HEADER RECORDS ENCOUNTERED: 'DTSBD180
|
||||
00593 WRK-AHDR-BYPASSED-CNT. DTSBD180
|
||||
00594 DTSBD180
|
||||
00595 DISPLAY ' NUMBER OF HEADER RECORDS DELETED: 'DTSBD180
|
||||
00596 WRK-AHDR-DELETED-CNT. DTSBD180
|
||||
00597 DTSBD180
|
||||
00598 DISPLAY ' NUMBER OF HEADER RECORDS RETAINED: 'DTSBD180
|
||||
00599 WRK-AHDR-RETAINED-CNT. DTSBD180
|
||||
00600 DTSBD180
|
||||
00601 DISPLAY ' '. DTSBD180
|
||||
00602 DTSBD180
|
||||
00603 DISPLAY ' NUMBER OF R301 RECORDS CREATED: 'DTSBD180
|
||||
00604 WRK-R301-REC-CNT. DTSBD180
|
||||
00605 DISPLAY ' '. DTSBD180
|
||||
00606 DTSBD180
|
||||
00607 DISPLAY ' NUMBER OF X217 RECORDS CREATED: 'DTSBD180
|
||||
00608 WRK-X217-REC-CNT. DTSBD180
|
||||
00609 DTSBD180
|
||||
00610 DISPLAY ' '. DTSBD180
|
||||
00611 DTSBD180
|
||||
00612 DTSBD180
|
||||
00613 PERFORM S910-CLOSE THRU S910-EXIT. DTSBD180
|
||||
00614 DTSBD180
|
||||
00615 PERFORM S923-CLOSE THRU S923-EXIT. DTSBD180
|
||||
00616 DTSBD180
|
||||
00617 MOVE -1 TO R301-LENGTH. DTSBD180
|
||||
00618 DTSBD180
|
||||
00619 PERFORM S946-WRITE-R301 THRU S946-EXIT. DTSBD180
|
||||
00620 DTSBD180
|
||||
00621 CLOSE BX217-BATCH-FILE. DTSBD180
|
||||
00622 T0000-EXIT. DTSBD180
|
||||
00623 EXIT. DTSBD180
|
||||
00624 EJECT DTSBD180
|
||||
00625 S001-FROM-FED-8. DTSBD180
|
||||
00626 SET L001-FROM-FED-8 TO TRUE. DTSBD180
|
||||
00627 GO TO S001-DATE. DTSBD180
|
||||
00628 DTSBD180
|
||||
00629 S001-FROM-ABS-DAY. DTSBD180
|
||||
00630 SET L001-FROM-ABS-DAY TO TRUE. DTSBD180
|
||||
00631 GO TO S001-DATE. DTSBD180
|
||||
00632 DTSBD180
|
||||
00633 S001-DATE. DTSBD180
|
||||
00634 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD180
|
||||
00635 S001-EXIT. DTSBD180
|
||||
00636 EXIT. DTSBD180
|
||||
00637 DTSBD180
|
||||
00638 S910-OPEN-READ. DTSBD180
|
||||
00639 SET L910-OPEN-READ-88 TO TRUE. DTSBD180
|
||||
00640 GO TO S910-MSTR-IO. DTSBD180
|
||||
00641 DTSBD180
|
||||
00642 S910-READ. DTSBD180
|
||||
00643 SET L910-READ-88 TO TRUE. DTSBD180
|
||||
00644 GO TO S910-MSTR-IO. DTSBD180
|
||||
00645 DTSBD180
|
||||
00646 *S910-START-BROWSE. DTSBD180
|
||||
00647 *****SET L910-START-BROWSE-88 TO TRUE. DTSBD180
|
||||
00648 *****GO TO S910-MSTR-IO. DTSBD180
|
||||
00649 DTSBD180
|
||||
00650 *S910-READ-NEXT. DTSBD180
|
||||
00651 *****SET L910-READ-NEXT-88 TO TRUE. DTSBD180
|
||||
00652 *****GO TO S910-MSTR-IO. DTSBD180
|
||||
00653 DTSBD180
|
||||
00654 *S910-COUNT. DTSBD180
|
||||
00655 *****SET L910-COUNT-88 TO TRUE. DTSBD180
|
||||
00656 *****GO TO S910-MSTR-IO. DTSBD180
|
||||
00657 DTSBD180
|
||||
00658 S910-CLOSE. DTSBD180
|
||||
00659 SET L910-CLOSE-88 TO TRUE. DTSBD180
|
||||
00660 GO TO S910-MSTR-IO. DTSBD180
|
||||
00661 DTSBD180
|
||||
00662 S910-MSTR-IO. DTSBD180
|
||||
00663 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD180
|
||||
00664 MSKL-REC. DTSBD180
|
||||
00665 S910-EXIT. DTSBD180
|
||||
00666 EXIT. DTSBD180
|
||||
00667 SKIP3 DTSBD180
|
||||
00668 S923-OPEN-UPDATE. DTSBD180
|
||||
00669 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBD180
|
||||
00670 GO TO S923-ATC-IO. DTSBD180
|
||||
00671 DTSBD180
|
||||
00672 S923-READ. DTSBD180
|
||||
00673 SET L923-READ-88 TO TRUE. DTSBD180
|
||||
00674 GO TO S923-ATC-IO. DTSBD180
|
||||
00675 DTSBD180
|
||||
00676 S923-START-BROWSE. DTSBD180
|
||||
00677 SET L923-START-BROWSE-88 TO TRUE. DTSBD180
|
||||
00678 GO TO S923-ATC-IO. DTSBD180
|
||||
00679 DTSBD180
|
||||
00680 S923-READ-NEXT. DTSBD180
|
||||
00681 SET L923-READ-NEXT-88 TO TRUE. DTSBD180
|
||||
00682 GO TO S923-ATC-IO. DTSBD180
|
||||
00683 DTSBD180
|
||||
00684 *S923-WRITE. DTSBD180
|
||||
00685 *****SET L923-WRITE-88 TO TRUE. DTSBD180
|
||||
00686 *****GO TO S923-ATC-IO. DTSBD180
|
||||
00687 DTSBD180
|
||||
00688 S923-REWRITE. DTSBD180
|
||||
00689 SET L923-REWRITE-88 TO TRUE. DTSBD180
|
||||
00690 GO TO S923-ATC-IO. DTSBD180
|
||||
00691 DTSBD180
|
||||
00692 S923-DELETE. DTSBD180
|
||||
00693 SET L923-DELETE-88 TO TRUE. DTSBD180
|
||||
00694 GO TO S923-ATC-IO. DTSBD180
|
||||
00695 DTSBD180
|
||||
00696 S923-CLOSE. DTSBD180
|
||||
00697 SET L923-CLOSE-88 TO TRUE. DTSBD180
|
||||
00698 GO TO S923-ATC-IO. DTSBD180
|
||||
00699 DTSBD180
|
||||
00700 S923-ATC-IO. DTSBD180
|
||||
00701 CALL 'DTSBU923' USING L923-LINK-AREA DTSBD180
|
||||
00702 ASKL-REC. DTSBD180
|
||||
00703 S923-EXIT. DTSBD180
|
||||
00704 EXIT. DTSBD180
|
||||
00705 SKIP3 DTSBD180
|
||||
00706 S946-WRITE-R301. DTSBD180
|
||||
00707 CALL 'DTSBU946' USING R301-REC. DTSBD180
|
||||
00708 GO TO S946-EXIT. DTSBD180
|
||||
00709 DTSBD180
|
||||
00710 S946-EXIT. DTSBD180
|
||||
00711 EXIT. DTSBD180
|
||||
00712 SKIP3 DTSBD180
|
||||
00713 S999-ABEND. DTSBD180
|
||||
00714 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD180
|
||||
00715 S999-EXIT. DTSBD180
|
||||
00716 EXIT. DTSBD180
|
||||
Reference in New Issue
Block a user