00001 IDENTIFICATION DIVISION. 06/19/13 00002 PROGRAM-ID. DTSCS21. DTSCS21 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV064 00004 DATE-WRITTEN. NOVEMBER 1991. DTSCS21 00005 DATE-COMPILED. DTSCS21 00006 SKIP3 DTSCS21 00007 ***** DTSCS21 00008 * DTSCS21 00009 * FUNCTION: BATCH SUMMARY INQUIRY/UPDATE SCREEN PROCESSOR. DTSCS21 00010 * DTSCS21 00011 * DTSCS21 00012 * MODIFICATION LOG: DTSCS21 00013 * DTSCS21 00014 * 05/09/95 AHDR-*-ITEM-CNT WERE CHANGED TO AHDR-*-TRAN-CNT. DTSCS21 00015 * THEY NO LONGER INCLUDE THE CHECKS IN THE COUNTS. DTSCS21 00016 * WORK ORDER: CR076 PROGRAMMER: RHC DTSCS21 00017 * DTSCS21 00018 * 12/11/95 FAILURE TO INITIALIZE L019-S-ITEM-NO-AREA PRIOR DTSCS21 00019 * LINK TO DTSCU019 CAUSING INTERMITTANT ERROR. DTSCS21 00020 * INSERTED MOVE SPACES TO L019-S-ITEM-NO-AREA DTSCS21 00021 * INTO PARAGRAPHS P3000, S1110, AND S1120. DTSCS21 00022 * WORK ORDER: NONE PROGRAMMER: EHH DTSCS21 00023 * DTSCS21 00024 * 12/31/96 ADDED 88 LEVEL TO DTSIAHDR FOR ELECTRONIC FILER DTSCS21 00025 * BATCHES. ONLY USED IN DTSBD140, SO TO SAVE MONEY DTSCS21 00026 * THIS PROGRAM WASN'T RECOMPILED. DTSCS21 00027 * WORK ORDER: PROGRAMMER: MJA DTSCS21 00028 * DTSCS21 00029 * 08/04/97 MODIFY LOGIC TO REMOVE DELETE FUNCTION AS DTSCS21 00030 * CURRENTLY PERFORMED USING FUNCTION 11. DTSCS21 00031 * REFERENCE RFP: TCL 096 PROGRAMMER: FLS DTSCS21 00032 * DTSCS21 00033 * 11/07/97 MODIFICATIONS TO REFLECT THE TRANSFER OF UI TAX DTSCS21 00034 * FUNCTIONS FROM DLI TO DOR. DTSCS21 00035 * REFERENCE RFP: TCL 208 PROGRAMMER: EHH DTSCS21 00036 * DTSCS21 00037 * 11/16/1998 REVIEWED AND MODIFIED FOR DC. DTSCS21 00038 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSCS21 00039 * DTSCS21 00040 * 12/07/2005 ADDED BANK BATCH NUMBER. DTSCS21 00041 * REFERENCE: PROGRAMMER: GD DTSCS21 00042 * DTSCS21 00043 * 03/13/2006 MODIFIED TO PREVENT CHANGE IN CONTROL TOTALS DTSCS21 00044 * EXCEPT BY DESIGNATED SUPERVISORS. DTSCS21 00045 * USER IDS ARE HARD-CODED IN P7200 AND P7300. DTSCS21 00046 * REFERENCE: PROGRAMMER: GD DTSCS21 00047 * DTSCS21 00048 * 09/26/2008 ADDED ID OF NEW ACCOUNTING SUPERVISOR TO LIST DTSCS21 00049 * OF THOSE AUTHORIZED TO MODIFY AN ACCOUNTING DTSCS21 00050 * HEADER. (P7200 AND P7300). DTSCS21 00051 * REFERENCE: PROGRAMMER: GD DTSCS21 00052 * DTSCS21 00053 * 04/09/2009 MODIFIED TO PRINT DEPOSIT TICKET WHEN F6 DTSCS21 00054 * KEY IS PRESSED. DTSCS21 00055 * REFERENCE: PROGRAMMER: GD DTSCS21 00056 * DTSCS21 00057 * 05/15/2009 MODIFIED DEPOSIT TICKET: ADDED ONE LETTER BATCH DTSCS21 00058 * TYPE IMMEDIATELY BEFORE BATCH NUMBER. FOR DTSCS21 00059 * ONLINE BATCHES, THE TYPE IS "A," WHILE FOR DTSCS21 00060 * ICESA BATCHES, IT IS "B." DTSCS21 00061 * REFERENCE: PROGRAMMER: GD DTSCS21 00062 * DTSCS21 00063 * 07/23/2009 ADDED USERID EUMJ01B (JALLOH MOHAMED) TO UPDATE DTSCS21 00064 * BATCHES. DTSCS21 00065 * REFERENCE: PROGRAMMER: ZL1 DTSCS21 00066 * DTSCS21 00067 * 12/02/2009 ADDED SUPERVISOR LEVEL ACCESS TO UPDATE BATCHES DTSCS21 00068 * REFERENCE: PROGRAMMER: ZL1 DTSCS21 00069 * DTSCS21 00070 * 12/22/2009 MODIFIED P8110, P8210, P8310 TO CALL DTSCU826 DTSCS21 00071 * TO SAVE COPIES OF REPORT RECORDS WHEN ADDED DTSCS21 00072 * AND WHEN MODIFIED. THE RECORDS ARE SAVED DTSCS21 00073 * IN THE ACCOUNTING TRANSACTION HISTORY DTSCS21 00074 * FILE (ATH). DTSCS21 00075 * REFERENCE: PROGRAMMER: GD DTSCS21 00076 * DTSCS21 00077 * 02/10/2011 ADDED TREASURY DEPOSIT ID FIELD FOR WALK-IN DTSCS21 00078 * DEPOSITS. DTSCS21 00079 * REFERENCE: PROGRAMMER: GD DTSCS21 00080 * DTSCS21 00081 * 06/19/2013 MODIFIED RECEIVED DATE AND DEPOSIT DATE EDITS DTSCS21 00082 * TO ALLOW UPDATE OF BATCHES WHERE THE DATES DTSCS21 00083 * ARE MORE THAN ONE YEAR OLD. DTSCS21 00084 * REFERENCE: PROGRAMMER: GD DTSCS21 00085 * DTSCS21 00086 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS21 00087 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS21 00088 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCS21 00089 * DTSCS21 00090 * DTSCS21 00091 * DESCRIPTION: DTSCS21 00092 * DTSCS21 00093 * DTSCS21 00094 * CLEAR: DTSCS21 00095 * DTSCS21 00096 * FIELD DISPLAYED: NONE. DTSCS21 00097 * DTSCS21 00098 * DTSCS21 00099 * JUMP: DTSCS21 00100 * DTSCS21 00101 * STANDARD DTSCS21 00102 * DTSCS21 00103 * DTSCS21 00104 * INQUIRY: DTSCS21 00105 * DTSCS21 00106 * CONTROL FIELDS: MAP-BATCH-NO-1 AND MAP-BATCH-NO-2. DTSCS21 00107 * DTSCS21 00108 * JUMP IN: IF LCCM-BATCH-NO AHDR RECORD EXISTS DTSCS21 00109 * DISPLAY LCCM-BATCH-NO AHDR RECORD DTSCS21 00110 * ELSE DTSCS21 00111 * CLEAR. DTSCS21 00112 * DTSCS21 00113 * ENTER: SPECIAL LOGIC TO DISPLAY SUMMARY OF RANGE OF DTSCS21 00114 * BATCH HEADER RECORDS. SEE SCREEN DESCRIPTION FOR DTSCS21 00115 * DETAILS. DTSCS21 00116 * DTSCS21 00117 * F7, F8: PAGE TO PRIOR, PAGE TO NEXT BATCH HEADER RECORD. DTSCS21 00118 * DO NOT BOTHER TO 'WRAP' PAGING. DTSCS21 00119 * DTSCS21 00120 * STANDARD LCCM-DOC-NO MAINTENANCE. DTSCS21 00121 * DTSCS21 00122 * STANDARD LCCM-PRINTER-ID MAINTENANCE. DTSCS21 00123 * DTSCS21 00124 * USE LCCM-SCR-HOLD-AREA TO STORE CONTROL INFORMATION DTSCS21 00125 * BETWEEN TASKS. OF COURSE, AT JUMP FROM SCREEN 21, DTSCS21 00126 * LCCM-SCR-HOLD-AREA IS CLEARED. DTSCS21 00127 * DTSCS21 00128 * DTSCS21 00129 * PRINT: DTSCS21 00130 * DTSCS21 00131 * MAKE IT LOOK SOMETHING LIKE AN UPDATE (F5; LOCK SCREEN; DTSCS21 00132 * F12 OR ENTER). USE TS Q 'P' TO COMMUNICATE PRINT LINES DTSCS21 00133 * TO DTSCU357. DTSCS21 00134 * DTSCS21 00135 * DTSCS21 00136 * UPDATE: DTSCS21 00137 * DTSCS21 00138 * ADD DTSCS21 00139 * DTSCS21 00140 * UTILIZE DTSCU373. DTSCS21 00141 * DTSCS21 00142 * DTSCS21 00143 * MOD DTSCS21 00144 * DTSCS21 00145 * A SINGLE BATCH MUST BE DISPLAYED. DTSCS21 00146 * CHANGE OF MAP-BATCH-NO-1 DURING MOD IS AN ERROR. DTSCS21 00147 * DTSCS21 00148 * DTSCS21 00149 * DEL DTSCS21 00150 * DTSCS21 00151 * DELETE ALL ARPT, APAY, AND AADJ RECORDS ASSOCIATED DTSCS21 00152 * WITH MAP-BATCH-NO-1. SET AHDR-ATC-FILE-* DATA ELEMENTS DTSCS21 00153 * TO ZERO. SET AHDR-RELEASED-88 TO TRUE. DTSCS21 00154 * DO NOT DELETE THE AHDR RECORD. A SINGLE BATCH MUST BE DTSCS21 00155 * DISPLAYED PRIOR TO THE DELETE. CHANGE OF MAP-BATCH-NO-1 DTSCS21 00156 * DURING DEL IS AN ERROR. DTSCS21 00157 * DTSCS21 00158 * DTSCS21 00159 * DTSCS21 00160 * RECORDS READ: DTSCS21 00161 * DTSCS21 00162 * MASTER: DTSCS21 00163 * DTSCS21 00164 * NONE DTSCS21 00165 * DTSCS21 00166 * DTSCS21 00167 * ALTERNATE INDEX: DTSCS21 00168 * DTSCS21 00169 * NONE. DTSCS21 00170 * DTSCS21 00171 * DTSCS21 00172 * REFERENCE: DTSCS21 00173 * DTSCS21 00174 * NONE. DTSCS21 00175 * DTSCS21 00176 * DTSCS21 00177 * ACCOUNTING TRANSACTION COLLECTION: DTSCS21 00178 * DTSCS21 00179 * AHDR DTSCS21 00180 * ARPT DTSCS21 00181 * APAY DTSCS21 00182 * AADJ DTSCS21 00183 * DTSCS21 00184 * DTSCS21 00185 * RECORDS UPDATED: DTSCS21 00186 * DTSCS21 00187 * MASTER: DTSCS21 00188 * DTSCS21 00189 * NONE. DTSCS21 00190 * DTSCS21 00191 * DTSCS21 00192 * REFERENCE: DTSCS21 00193 * DTSCS21 00194 * NONE. DTSCS21 00195 * DTSCS21 00196 * DTSCS21 00197 * ACCOUNTING TRANSACTION COLLECTION: DTSCS21 00198 * DTSCS21 00199 * AHDR (REWRITE) DTSCS21 00200 * ARPT (DELETE) DTSCS21 00201 * APAY (DELETE) DTSCS21 00202 * AADJ (DELETE) DTSCS21 00203 * DTSCS21 00204 * DTSCS21 00205 * ON-LINE ACTIVITY FILE RECORDS WRITTEN: DTSCS21 00206 * DTSCS21 00207 * NONE. DTSCS21 00208 * DTSCS21 00209 * DTSCS21 00210 * TEMPORARY STORAGE USAGE: DTSCS21 00211 * DTSCS21 00212 * P COMMUNICATE PRINT LINES TO DTSCU357. DTSCS21 00213 * DTSCS21 00214 * DTSCS21 00215 * MODULES LINKED TO: DTSCS21 00216 * DTSCS21 00217 * DTSCU001 DATE EDIT/CONVERSION. DTSCS21 00218 * DTSCU011 MONEY AMOUNT FROM SCREEN FORMAT/EDIT. DTSCS21 00219 * DTSCU013 COUNT (INTEGER) FROM SCREEN FORMAT/EDIT. DTSCS21 00220 * DTSCU015 DATE FROM SCREEN FORMAT/EDIT. DTSCS21 00221 * DTSCU019 DOCUMENT NO FROM SCREEN FORMAT/EDIT. DTSCS21 00222 * DTSCU082 OPERATOR ID EDIT/LOOKUP. DTSCS21 00223 * DTSCU357 ON-LINE PRINTING. DTSCS21 00224 * DTSCU373 ACCOUNTING TRANSACTION FILE BATCH HEADER DTSCS21 00225 * RECORD ESTABLISH. DTSCS21 00226 * DTSCU823 ACCOUNTING TRANSACTION FILE INPUT/OUTPUT. DTSCS21 00227 * DTSCS21 00228 * DTSCS21 00229 * VERMONT REFERENCE: DTSCS21 00230 * DTSCS21 00231 * TXC110C. DTSCS21 00232 * DTSCS21 00233 ***** DTSCS21 00234 DTSCS21 00235 ENVIRONMENT DIVISION. DTSCS21 00236 DTSCS21 00237 DATA DIVISION. DTSCS21 00238 DTSCS21 00239 WORKING-STORAGE SECTION. DTSCS21 002395 77 PAN-VALET PICTURE X(24) VALUE '064DTSCS21 06/19/13'. DTSCS21 00240 77 PAN-VALET PICTURE X(24) VALUE '003DTSCS21 06/19/13'. DTSCS21 00241 77 PAN-VALET PICTURE X(24) VALUE '062DTSCS21 09/26/11'. DTSCS21 00242 DTSCS21 00243 01 WRK-AREA. DTSCS21 00244 05 WRK-ABEND-CD PIC X(04) VALUE 'S21 '. DTSCS21 00245 DTSCS21 00246 05 WRK-SCR-ID. DTSCS21 00247 10 WRK-SCR-ID-N PIC 9(02) VALUE 21. DTSCS21 00248 DTSCS21 00249 05 WRK-F03-SCR-ID PIC X(02) VALUE '20'. DTSCS21 00250 DTSCS21 00251 05 LIT-MAX-DETAIL PIC S9(04) COMP VALUE +55. DTSCS21 00252 DTSCS21 00253 05 SCR-ACCESS-IND PIC X(01). DTSCS21 00254 88 SCR-ACCESS-INQ VALUE '1'. DTSCS21 00255 88 SCR-ACCESS-UPDATE VALUE '2' '3'. DTSCS21 00256 88 SCR-ACCESS-SUPERVISOR VALUE '3'. DTSCS21 00257 DTSCS21 00258 05 CURSOR-SET-IND PIC X(01). DTSCS21 00259 88 CURSOR-SET-YES VALUE 'Y'. DTSCS21 00260 88 CURSOR-SET-NO VALUE 'N'. DTSCS21 00261 88 CURSOR-SET-GOTO VALUE 'G'. DTSCS21 00262 DTSCS21 00263 05 REQ-IND PIC X(01). DTSCS21 00264 88 REQ-CURSOR-TO-GOTO VALUE 'G'. DTSCS21 00265 88 REQ-ERROR VALUE 'O'. DTSCS21 00266 88 REQ-JUMP VALUE 'J'. DTSCS21 00267 88 REQ-UPDATE VALUE 'U'. DTSCS21 00268 88 REQ-INQUIRE VALUE 'I'. DTSCS21 00269 88 REQ-CLEAR VALUE 'C'. DTSCS21 00270 88 REQ-EDIT VALUE 'E'. DTSCS21 00271 DTSCS21 00272 05 RESP-IND PIC X(01). DTSCS21 00273 88 RESP-SEND-MSGONLY VALUE 'O'. DTSCS21 00274 88 RESP-SEND-MAP VALUE 'M'. DTSCS21 00275 88 RESP-JUMP VALUE 'J'. DTSCS21 00276 88 RESP-CURSOR-TO-GOTO VALUE 'G'. DTSCS21 00277 DTSCS21 00278 05 WRK-MSG-AREA PIC X(64). DTSCS21 00279 DTSCS21 00280 05 WRK-ATB-AN PIC X(01). DTSCS21 00281 DTSCS21 00282 05 WRK-ATB-NUM PIC X(01). DTSCS21 00283 DTSCS21 00284 05 WRK-RECORD-ACCUM-IND PIC X(01). DTSCS21 00285 88 WRK-RECORD-ACCUM-NO-88 VALUE 'N'. DTSCS21 00286 88 WRK-RECORD-ACCUM-YES-88 VALUE 'Y'. DTSCS21 00287 DTSCS21 00288 05 WRK-BATCH-NO-1-RESULT-IND PIC X(01). DTSCS21 00289 88 WRK-BATCH-NO-1-NO-ENTRY VALUE '0'. DTSCS21 00290 88 WRK-BATCH-NO-1-VALID VALUE '1'. DTSCS21 00291 88 WRK-BATCH-NO-1-NOT-VALID VALUE '2'. DTSCS21 00292 DTSCS21 00293 05 WRK-BATCH-NO-2-RESULT-IND PIC X(01). DTSCS21 00294 88 WRK-BATCH-NO-2-NO-ENTRY VALUE '0'. DTSCS21 00295 88 WRK-BATCH-NO-2-VALID VALUE '1'. DTSCS21 00296 88 WRK-BATCH-NO-2-NOT-VALID VALUE '2'. DTSCS21 00297 DTSCS21 00298 05 WRK-RECEIVED-DATE PIC S9(09) COMP-3. DTSCS21 00299 DTSCS21 00300 05 WRK-DEPOSIT-DATE PIC S9(09) COMP-3. DTSCS21 00301 DTSCS21 00302 05 WRK-DEPOSIT-ID PIC 9(10). DTSCS21 00303 DTSCS21 00304 05 WRK-EMP-NO PIC 9(06). DTSCS21 00305 05 WRK-EMP-NO-X REDEFINES WRK-EMP-NO. DTSCS21 00306 10 WRK-EMP-NO-1 PIC 9(03). DTSCS21 00307 10 WRK-EMP-NO-2 PIC 9(03). DTSCS21 00308 DTSCS21 00309 05 WRK-TOT-REMIT PIC S9(09)V9(02) COMP-3. DTSCS21 00310 DTSCS21 00311 05 WRK-TOT-ITEMS PIC S9(03) COMP-3. DTSCS21 00312 DTSCS21 00313 05 WRK-DISPLAY PIC 9(11). DTSCS21 00314 DTSCS21 00315 05 FILLER REDEFINES WRK-DISPLAY. DTSCS21 00316 10 FILLER PIC X(05). DTSCS21 00317 10 WRK-DISPLAY-YR PIC X(02). DTSCS21 00318 10 WRK-DISPLAY-MO PIC X(02). DTSCS21 00319 10 WRK-DISPLAY-DA PIC X(02). DTSCS21 00320 DTSCS21 00321 05 WRK-ACCUMULATORS. DTSCS21 00322 10 WRK-PAGE-CTR PIC S9(05) COMP-3. DTSCS21 00323 10 WRK-DETAIL-CTR PIC S9(05) COMP-3. DTSCS21 00324 10 WRK-CONTROL-TRAN-CNT PIC S9(05) COMP-3. DTSCS21 00325 10 WRK-ATC-FILE-TRAN-CNT PIC S9(05) COMP-3. DTSCS21 00326 10 WRK-PROC-TRAN-CNT PIC S9(05) COMP-3. DTSCS21 00327 10 WRK-CONTROL-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSCS21 00328 10 WRK-ATC-FILE-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSCS21 00329 10 WRK-PROC-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSCS21 00330 DTSCS21 00331 05 WRK-LCCM-SCR-HOLD. DTSCS21 00332 10 WRK-LCCM-PRINT-TYPE PIC X(03). DTSCS21 00333 88 WRK-LCCM-PRINT-REG-88 VALUE 'REG'. DTSCS21 00334 88 WRK-LCCM-PRINT-DEP-88 VALUE 'DEP'. DTSCS21 00335 DTSCS21 00336 05 SCREEN-HOLD-AREA. DTSCS21 00337 10 WRK-BATCH-NO-1-AREA. DTSCS21 00338 15 WRK-BATCH-NO-1-L PIC S9(04) COMP. DTSCS21 00339 15 WRK-BATCH-NO-1-A PIC X(01). DTSCS21 00340 15 WRK-BATCH-NO-1 PIC 9(05). DTSCS21 00341 DTSCS21 00342 10 WRK-BATCH-NO-2-AREA. DTSCS21 00343 15 WRK-BATCH-NO-2-L PIC S9(04) COMP. DTSCS21 00344 15 WRK-BATCH-NO-2-A PIC X(01). DTSCS21 00345 15 WRK-BATCH-NO-2 PIC 9(05). DTSCS21 00346 DTSCS21 00347 05 WRK-E215-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSCS21 00348 05 WRK-E216-TRAN-CNT PIC S9(05) COMP-3. DTSCS21 00349 DTSCS21 00350 05 WRK-AATH-ACTION PIC X(01). DTSCS21 00351 88 WRK-AATH-ACTION-ADD-88 VALUE 'A'. DTSCS21 00352 88 WRK-AATH-ACTION-UPD-88 VALUE 'U'. DTSCS21 00353 88 WRK-AATH-ACTION-DEL-88 VALUE 'D'. DTSCS21 00354 DTSCS21 00355 01 MSG-LITERALS. DTSCS21 00356 DTSCS21 00357 05 MSG-E211-AREA. DTSCS21 00358 10 FILLER PIC X(04) VALUE 'E211'. DTSCS21 00359 10 FILLER PIC X(30) DTSCS21 00360 VALUE 'PRINT FAILED '. DTSCS21 00361 10 FILLER PIC X(30) DTSCS21 00362 VALUE ' '. DTSCS21 00363 DTSCS21 00364 05 MSG-E212-AREA. DTSCS21 00365 10 FILLER PIC X(04) VALUE 'E212'. DTSCS21 00366 10 FILLER PIC X(30) DTSCS21 00367 VALUE 'TRANSACTIONS PROCESSED - DELET'. DTSCS21 00368 10 FILLER PIC X(30) DTSCS21 00369 VALUE 'E NOT ALLOWED '. DTSCS21 00370 DTSCS21 00371 05 MSG-E213-AREA. DTSCS21 00372 10 FILLER PIC X(04) VALUE 'E213'. DTSCS21 00373 10 FILLER PIC X(30) DTSCS21 00374 VALUE 'NO RECORD FOR SPECIFIED BATCH '. DTSCS21 00375 10 FILLER PIC X(30) DTSCS21 00376 VALUE 'OR BATCH RANGE '. DTSCS21 00377 DTSCS21 00378 05 MSG-E214-AREA. DTSCS21 00379 10 FILLER PIC X(04) VALUE 'E214'. DTSCS21 00380 10 FILLER PIC X(30) DTSCS21 00381 VALUE 'CHANGE NOT ALLOWED: TRANSACTIO'. DTSCS21 00382 10 FILLER PIC X(30) DTSCS21 00383 VALUE 'NS ON FILE '. DTSCS21 00384 DTSCS21 00385 05 MSG-E215-AREA. DTSCS21 00386 10 FILLER PIC X(04) VALUE 'E215'. DTSCS21 00387 10 FILLER PIC X(30) DTSCS21 00388 VALUE 'CONTROL REMIT AMT MAY NOT BE C'. DTSCS21 00389 10 FILLER PIC X(30) DTSCS21 00390 VALUE 'HANGED '. DTSCS21 00391 DTSCS21 00392 05 MSG-E216-AREA. DTSCS21 00393 10 FILLER PIC X(04) VALUE 'E216'. DTSCS21 00394 10 FILLER PIC X(30) DTSCS21 00395 VALUE 'CONTROL TRAN CNT MAY NOT BE CH'. DTSCS21 00396 10 FILLER PIC X(30) DTSCS21 00397 VALUE 'ANGED '. DTSCS21 00398 DTSCS21 00399 05 MSG-E217-AREA. DTSCS21 00400 10 FILLER PIC X(04) VALUE 'E217'. DTSCS21 00401 10 FILLER PIC X(30) DTSCS21 00402 VALUE 'DELETION NOT ALLOWED '. DTSCS21 00403 10 FILLER PIC X(30) DTSCS21 00404 VALUE ' '. DTSCS21 00405 DTSCS21 00406 05 MSG-E218-AREA. DTSCS21 00407 10 FILLER PIC X(04) VALUE 'E218'. DTSCS21 00408 10 FILLER PIC X(30) DTSCS21 00409 VALUE 'NOT BALANCED: DEPOSIT TICKET C'. DTSCS21 00410 10 FILLER PIC X(30) DTSCS21 00411 VALUE 'ANNOT BE PRINTED. '. DTSCS21 00412 DTSCS21 00413 05 MSG-E219-AREA. DTSCS21 00414 10 FILLER PIC X(04) VALUE 'E219'. DTSCS21 00415 10 FILLER PIC X(30) DTSCS21 00416 VALUE 'BATCH IS HELD: DEPOSIT TICKET '. DTSCS21 00417 10 FILLER PIC X(30) DTSCS21 00418 VALUE 'CANNOT BE PRINTED. '. DTSCS21 00419 DTSCS21 00420 05 MSG-E220-AREA. DTSCS21 00421 10 FILLER PIC X(04) VALUE 'E220'. DTSCS21 00422 10 FILLER PIC X(30) DTSCS21 00423 VALUE 'REMITTANCE NOT > 0: DEPOSIT TI'. DTSCS21 00424 10 FILLER PIC X(30) DTSCS21 00425 VALUE 'CKET CANNOT BE PRINTED. '. DTSCS21 00426 DTSCS21 00427 05 MSG-E221-AREA. DTSCS21 00428 10 FILLER PIC X(04) VALUE 'E221'. DTSCS21 00429 10 FILLER PIC X(30) DTSCS21 00430 VALUE 'BATCH MUST CONTAIN ONLY PAYMEN'. DTSCS21 00431 10 FILLER PIC X(30) DTSCS21 00432 VALUE 'TS OR REPORTS. '. DTSCS21 00433 DTSCS21 00434 05 MSG-E222-AREA. DTSCS21 00435 10 FILLER PIC X(04) VALUE 'E222'. DTSCS21 00436 10 FILLER PIC X(30) DTSCS21 00437 VALUE 'ENTER EITHER BANK BATCH OR DEP'. DTSCS21 00438 10 FILLER PIC X(30) DTSCS21 00439 VALUE 'OSIT ID . '. DTSCS21 00440 DTSCS21 00441 05 MSG-E223-AREA. DTSCS21 00442 10 FILLER PIC X(04) VALUE 'E223'. DTSCS21 00443 10 FILLER PIC X(30) DTSCS21 00444 VALUE 'DATE IS MORE THAN 1 YEAR OLD. '. DTSCS21 00445 10 FILLER PIC X(30) DTSCS21 00446 VALUE 'SUPERVISOR AUTHORITY NEEDED. '. DTSCS21 00447 DTSCS21 00448 DTSCS21 00449 /**************************************************************** DTSCS21 00450 * 201 PRINT AREA DTSCS21 00451 ***************************************************************** DTSCS21 00452 DTSCS21 00453 01 WRK-HEADING-1. DTSCS21 00454 05 WRK-PROGRAM PIC X(05) VALUE '201R1'. DTSCS21 00455 05 FILLER PIC X(23) VALUE SPACES. DTSCS21 00456 05 FILLER PIC X(20) DTSCS21 00457 VALUE 'DISTRICT OF COLUMBIA'. DTSCS21 00458 05 FILLER PIC X(22) VALUE SPACES. DTSCS21 00459 05 WRK-SYS-DATE PIC X(08). DTSCS21 00460 DTSCS21 00461 01 WRK-HEADING-2. DTSCS21 00462 05 FILLER PIC X(20) DTSCS21 00463 VALUE 'ROUTE TO: ACCOUNTING'. DTSCS21 00464 05 FILLER PIC X(12) VALUE SPACES. DTSCS21 00465 05 FILLER PIC X(12) VALUE DTSCS21 00466 'TAX DIVISION'. DTSCS21 00467 05 FILLER PIC X(26) VALUE SPACES. DTSCS21 00468 05 WRK-SYS-TIME PIC X(08). DTSCS21 00469 DTSCS21 00470 01 WRK-HEADING-3. DTSCS21 00471 05 FILLER PIC X(16) VALUE SPACES. DTSCS21 00472 05 FILLER PIC X(44) VALUE DTSCS21 00473 'ON-LINE ACCOUNTING TRANSACTION BATCH SUMMARY'. DTSCS21 00474 05 FILLER PIC X(12) VALUE SPACES. DTSCS21 00475 05 WRK-PAGE PIC ZZ,ZZ9. DTSCS21 00476 DTSCS21 00477 01 WRK-HEADING-5. DTSCS21 00478 05 FILLER PIC X(05) VALUE SPACES. DTSCS21 00479 05 FILLER PIC X(13) VALUE 'START BATCH: '. DTSCS21 00480 05 WRK-HEADING-START PIC 9(05). DTSCS21 00481 05 FILLER PIC X(55) VALUE SPACES. DTSCS21 00482 DTSCS21 00483 01 WRK-HEADING-6. DTSCS21 00484 05 FILLER PIC X(05) VALUE SPACES. DTSCS21 00485 05 FILLER PIC X(13) VALUE ' END BATCH: '. DTSCS21 00486 05 WRK-HEADING-END PIC 9(05). DTSCS21 00487 05 FILLER PIC X(55) VALUE SPACES. DTSCS21 00488 DTSCS21 00489 01 WRK-HEADING-8. DTSCS21 00490 05 FILLER PIC X(40) DTSCS21 00491 VALUE ' B H **** CONTROL ***'. DTSCS21 00492 05 FILLER PIC X(38) DTSCS21 00493 VALUE ' *** ATC FILE *** *** PROCESSED **'. DTSCS21 00494 DTSCS21 00495 01 WRK-HEADING-9. DTSCS21 00496 05 FILLER PIC X(40) DTSCS21 00497 VALUE ' A L DEPOSIT REMIT TRN'. DTSCS21 00498 05 FILLER PIC X(38) DTSCS21 00499 VALUE ' REMIT TRN REMIT TRN'. DTSCS21 00500 DTSCS21 00501 01 WRK-HEADING-10. DTSCS21 00502 05 FILLER PIC X(40) DTSCS21 00503 VALUE 'BATCH L D DATE AMOUNT CNT'. DTSCS21 00504 05 FILLER PIC X(38) DTSCS21 00505 VALUE ' AMOUNT CNT AMOUNT CNT'. DTSCS21 00506 DTSCS21 00507 01 WRK-DETAIL-LINE. DTSCS21 00508 05 WRK-DETAIL-BATCH-NO PIC 9(05). DTSCS21 00509 05 FILLER PIC X(02) VALUE SPACES. DTSCS21 00510 05 WRK-DETAIL-BALANCED-IND PIC X(01). DTSCS21 00511 05 FILLER PIC X(02) VALUE SPACES. DTSCS21 00512 05 WRK-DETAIL-HELD-IND PIC X(01). DTSCS21 00513 05 FILLER PIC X(02) VALUE SPACES. DTSCS21 00514 05 WRK-DETAIL-DEPOSIT-DATE PIC X(08). DTSCS21 00515 05 WRK-DETAIL-CONTROL-REMIT-AMT PIC -------,--9.99. DTSCS21 00516 05 FILLER PIC X(01) VALUE SPACES. DTSCS21 00517 05 WRK-DETAIL-CONTROL-TRAN-CNT PIC ZZZ9. DTSCS21 00518 05 WRK-DETAIL-ATC-FILE-REMIT-AMT PIC -------,--9.99. DTSCS21 00519 05 FILLER PIC X(01) VALUE SPACES. DTSCS21 00520 05 WRK-DETAIL-ATC-FILE-TRAN-CNT PIC ZZZ9. DTSCS21 00521 05 WRK-DETAIL-PROC-REMIT-AMT PIC -------,--9.99. DTSCS21 00522 05 FILLER PIC X(01) VALUE SPACES. DTSCS21 00523 05 WRK-DETAIL-PROC-TRAN-CNT PIC ZZZ9. DTSCS21 00524 DTSCS21 00525 01 WRK-FOOTER-LINE. DTSCS21 00526 05 FILLER PIC X(05) VALUE 'TOTAL'. DTSCS21 00527 05 FILLER PIC X(16) VALUE SPACES. DTSCS21 00528 05 WRK-FOOTER-CONTROL-REMIT-AMT PIC -------,--9.99. DTSCS21 00529 05 FILLER PIC X(01) VALUE SPACES. DTSCS21 00530 05 WRK-FOOTER-CONTROL-TRAN-CNT PIC ZZZ9. DTSCS21 00531 05 WRK-FOOTER-ATC-FILE-REMIT-AMT PIC -------,--9.99. DTSCS21 00532 05 FILLER PIC X(01) VALUE SPACES. DTSCS21 00533 05 WRK-FOOTER-ATC-FILE-TRAN-CNT PIC ZZZ9. DTSCS21 00534 05 WRK-FOOTER-PROC-REMIT-AMT PIC -------,--9.99. DTSCS21 00535 05 FILLER PIC X(01) VALUE SPACES. DTSCS21 00536 05 WRK-FOOTER-PROC-TRAN-CNT PIC ZZZ9. DTSCS21 00537 EJECT DTSCS21 00538 01 WRK-DEPOSIT-HDR-1. DTSCS21 00539 05 FILLER PIC X(21) VALUE SPACES. DTSCS21 00540 05 FILLER PIC X(36) DTSCS21 00541 VALUE 'DC DEPARTMENT OF EMPLOYMENT SERVICES'. DTSCS21 00542 05 FILLER PIC X(21) VALUE SPACES. DTSCS21 00543 DTSCS21 00544 01 WRK-DEPOSIT-HDR-2. DTSCS21 00545 05 FILLER PIC X(33) VALUE SPACES. DTSCS21 00546 05 FILLER PIC X(12) DTSCS21 00547 VALUE 'TAX DIVISION'. DTSCS21 00548 05 FILLER PIC X(33) VALUE SPACES. DTSCS21 00549 DTSCS21 00550 01 WRK-DEPOSIT-HDR-3. DTSCS21 00551 05 FILLER PIC X(29) VALUE SPACES. DTSCS21 00552 05 FILLER PIC X(19) DTSCS21 00553 VALUE 'BANK DEPOSIT TICKET'. DTSCS21 00554 05 FILLER PIC X(30) VALUE SPACES. DTSCS21 00555 DTSCS21 00556 01 WRK-DEPOSIT-HDR-4. DTSCS21 00557 05 FILLER PIC X(07) DTSCS21 00558 VALUE 'BATCH: '. DTSCS21 00559 05 FILLER PIC X(01) DTSCS21 00560 VALUE 'A'. DTSCS21 00561 05 WRK-DEPOSIT-BATCH PIC 9(05). DTSCS21 00562 05 FILLER PIC X(04) VALUE SPACES. DTSCS21 00563 05 FILLER PIC X(10) DTSCS21 00564 VALUE 'ACCT NBR: '. DTSCS21 00565 05 WRK-DEPOSIT-ACCT PIC 9(12) DTSCS21 00566 VALUE 610000001304. DTSCS21 00567 05 FILLER PIC X(04) VALUE SPACES. DTSCS21 00568 05 FILLER PIC X(12) DTSCS21 00569 VALUE 'DEPOSIT DT: '. DTSCS21 00570 05 WRK-DEPOSIT-DT-AREA. DTSCS21 00571 10 WRK-DEPOSIT-MO PIC X(02). DTSCS21 00572 10 FILLER PIC X(01) VALUE '/'. DTSCS21 00573 10 WRK-DEPOSIT-DA PIC X(02). DTSCS21 00574 10 FILLER PIC X(01) VALUE '/'. DTSCS21 00575 10 WRK-DEPOSIT-YR PIC X(02). DTSCS21 00576 05 FILLER PIC X(04) VALUE SPACES. DTSCS21 00577 05 FILLER PIC X(06) DTSCS21 00578 VALUE 'OPID: '. DTSCS21 00579 05 WRK-DEPOSIT-OPID PIC X(07). DTSCS21 00580 DTSCS21 00581 01 WRK-DEPOSIT-HDR-5. DTSCS21 00582 05 FILLER PIC X(15) VALUE SPACES. DTSCS21 00583 05 FILLER PIC X(04) DTSCS21 00584 VALUE 'ITEM'. DTSCS21 00585 05 FILLER PIC X(11) VALUE SPACES. DTSCS21 00586 05 FILLER PIC X(08) DTSCS21 00587 VALUE 'EMPLOYER'. DTSCS21 00588 05 FILLER PIC X(13) VALUE SPACES. DTSCS21 00589 05 FILLER PIC X(12) DTSCS21 00590 VALUE 'CHECK AMOUNT'. DTSCS21 00591 05 FILLER PIC X(15) VALUE SPACES. DTSCS21 00592 DTSCS21 00593 01 WRK-DEPOSIT-DTL. DTSCS21 00594 05 FILLER PIC X(15) VALUE SPACES. DTSCS21 00595 05 WRK-DEPOSIT-ITEM-NO PIC 9(03). DTSCS21 00596 05 FILLER PIC X(12) VALUE SPACES. DTSCS21 00597 05 WRK-DEPOSIT-EMP-NO-1 PIC 9(03). DTSCS21 00598 05 FILLER PIC X(01) VALUE SPACES. DTSCS21 00599 05 WRK-DEPOSIT-EMP-NO-2 PIC 9(03). DTSCS21 00600 05 FILLER PIC X(12) VALUE SPACES. DTSCS21 00601 05 WRK-DEPOSIT-AMT PIC ---,---,--9.99. DTSCS21 00602 05 FILLER PIC X(15) VALUE SPACES. DTSCS21 00603 DTSCS21 00604 01 WRK-DEPOSIT-FOOTER. DTSCS21 00605 05 FILLER PIC X(15) DTSCS21 00606 VALUE 'TOTAL ITEMS: '. DTSCS21 00607 05 WRK-DEP-TOT-ITEMS PIC 9(03). DTSCS21 00608 05 FILLER PIC X(16) VALUE SPACES. DTSCS21 00609 05 FILLER PIC X(15) DTSCS21 00610 VALUE 'TOTAL REMIT: '. DTSCS21 00611 05 WRK-DEP-TOT-REMIT PIC ---,---,--9.99. DTSCS21 00612 DTSCS21 00613 01 L001-COMM-AREA. DTSCS21 00614 ++INCLUDE DTSIL001 DTSCS21 00615 EJECT DTSCS21 00616 01 L011-COMM-AREA. DTSCS21 00617 ++INCLUDE DTSIL011 DTSCS21 00618 EJECT DTSCS21 00619 01 L013-COMM-AREA. DTSCS21 00620 ++INCLUDE DTSIL013 DTSCS21 00621 EJECT DTSCS21 00622 01 L015-COMM-AREA. DTSCS21 00623 ++INCLUDE DTSIL015 DTSCS21 00624 EJECT DTSCS21 00625 01 L019-COMM-AREA. DTSCS21 00626 ++INCLUDE DTSIL019 DTSCS21 00627 EJECT DTSCS21 00628 01 L082-COMM-AREA. DTSCS21 00629 ++INCLUDE DTSIL082 DTSCS21 00630 EJECT DTSCS21 00631 01 L357-COMM-AREA. DTSCS21 00632 ++INCLUDE DTSIL357 DTSCS21 00633 EJECT DTSCS21 00634 01 L373-COMM-AREA. DTSCS21 00635 ++INCLUDE DTSIL373 DTSCS21 00636 EJECT DTSCS21 00637 DTSCS21 00638 01 L805-COMM-AREA. DTSCS21 00639 ++INCLUDE DTSIL805 DTSCS21 00640 EJECT DTSCS21 00641 DTSCS21 00642 01 L823-COMM-AREA. DTSCS21 00643 05 L823-CONTROL-BLOCK. DTSCS21 00644 ++INCLUDE DTSIL823 DTSCS21 00645 EJECT DTSCS21 00646 05 ASKL-REC. DTSCS21 00647 ++INCLUDE DTSIASKL DTSCS21 00648 EJECT DTSCS21 00649 01 AHDR-REC. DTSCS21 00650 ++INCLUDE DTSIAHDR DTSCS21 00651 EJECT DTSCS21 00652 01 APAY-REC. DTSCS21 00653 ++INCLUDE DTSIAPAY DTSCS21 00654 EJECT DTSCS21 00655 01 ARPT-REC. DTSCS21 00656 ++INCLUDE DTSIARPT DTSCS21 00657 EJECT DTSCS21 00658 01 AATX-REC. DTSCS21 00659 ++INCLUDE DTSIAATX DTSCS21 00660 EJECT DTSCS21 00661 01 L826-COMM-AREA. DTSCS21 00662 05 L826-CONTROL-BLOCK. DTSCS21 00663 ++INCLUDE DTSIL826 DTSCS21 00664 DTSCS21 00665 05 AATH-REC. DTSCS21 00666 ++INCLUDE DTSIAATH DTSCS21 00667 DTSCS21 00668 01 R202-REC. DTSCS21 00669 ++INCLUDE DTSIR202 DTSCS21 00670 DTSCS21 00671 01 L825-COMM-AREA. DTSCS21 00672 05 L825-CONTROL-BLOCK. DTSCS21 00673 ++INCLUDE DTSIL825 DTSCS21 00674 DTSCS21 00675 05 RSKL-REC. DTSCS21 00676 ++INCLUDE DTSIRSK1 DTSCS21 00677 DTSCS21 00678 01 L829-COMM-AREA. DTSCS21 00679 05 L829-CONTROL-BLOCK. DTSCS21 00680 ++INCLUDE DTSIL829 DTSCS21 00681 DTSCS21 00682 05 L829-REC. DTSCS21 00683 ++INCLUDE DTSIXPTS DTSCS21 00684 EJECT DTSCS21 00685 01 L851-COMM-AREA. DTSCS21 00686 ++INCLUDE DTSIL851 DTSCS21 00687 DTSCS21 00688 05 MAP-AREA REDEFINES L851-MAP-AREA. DTSCS21 00689 ++INCLUDE DTSIS21 DTSCS21 00690 EJECT DTSCS21 00691 01 L880-COMM-AREA. DTSCS21 00692 05 L880-CONTROL-BLOCK. DTSCS21 00693 ++INCLUDE DTSIL880 DTSCS21 00694 EJECT DTSCS21 00695 05 WSKL-REC. DTSCS21 00696 ++INCLUDE DTSIWSKL DTSCS21 00697 EJECT DTSCS21 00698 01 W001-REC. DTSCS21 00699 ++INCLUDE DTSIW001 DTSCS21 00700 EJECT DTSCS21 00701 01 CATB-LITERALS. DTSCS21 00702 ++INCLUDE DTSICATB DTSCS21 00703 SKIP3 DTSCS21 00704 01 CFKD-LITERALS. DTSCS21 00705 ++INCLUDE DTSICFKD DTSCS21 00706 SKIP3 DTSCS21 00707 01 CECD-LITERALS. DTSCS21 00708 ++INCLUDE DTSICECD DTSCS21 00709 SKIP3 DTSCS21 00710 01 CPCD-LITERALS. DTSCS21 00711 ++INCLUDE DTSICPCD DTSCS21 00712 EJECT DTSCS21 00713 LINKAGE SECTION. DTSCS21 00714 DTSCS21 00715 01 DFHCOMMAREA. DTSCS21 00716 ++INCLUDE DTSILCCM DTSCS21 00717 EJECT DTSCS21 00718 PROCEDURE DIVISION. DTSCS21 00719 DTSCS21 00720 MOVE +0 TO WRK-BATCH-NO-1 DTSCS21 00721 WRK-BATCH-NO-2. DTSCS21 00722 DTSCS21 00723 SET WRK-BATCH-NO-1-NO-ENTRY TO TRUE. DTSCS21 00724 DTSCS21 00725 SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE. DTSCS21 00726 DTSCS21 00727 DTSCS21 00728 MOVE LOW-VALUES TO MAP-AREA. DTSCS21 00729 DTSCS21 00730 DTSCS21 00731 SET CURSOR-SET-NO TO TRUE. DTSCS21 00732 DTSCS21 00733 DTSCS21 00734 MOVE LCCM-SCR-NUM-ACCESS-IND (WRK-SCR-ID-N) DTSCS21 00735 TO SCR-ACCESS-IND. DTSCS21 00736 DTSCS21 00737 MOVE LCCM-SCR-HOLD-AREA TO WRK-LCCM-SCR-HOLD. DTSCS21 00738 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA. DTSCS21 00739 DTSCS21 00740 MOVE SPACE TO REQ-IND. DTSCS21 00741 DTSCS21 00742 PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT. DTSCS21 00743 DTSCS21 00744 DTSCS21 00745 *----------------------------------------------------- DTSCS21 00746 * P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE DTSCS21 00747 * "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT DTSCS21 00748 * REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE DTSCS21 00749 * OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED. DTSCS21 00750 * DTSCS21 00751 * THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE DTSCS21 00752 * PROCESSED. DTSCS21 00753 * DTSCS21 00754 * THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND, DTSCS21 00755 * INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE DTSCS21 00756 * WORK STATION OPERATOR. DTSCS21 00757 *----------------------------------------------------- DTSCS21 00758 DTSCS21 00759 MOVE SPACE TO RESP-IND. DTSCS21 00760 DTSCS21 00761 IF REQ-ERROR DTSCS21 00762 PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT DTSCS21 00763 ELSE DTSCS21 00764 IF REQ-JUMP DTSCS21 00765 PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT DTSCS21 00766 ELSE DTSCS21 00767 IF REQ-CLEAR DTSCS21 00768 PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT DTSCS21 00769 ELSE DTSCS21 00770 IF REQ-CURSOR-TO-GOTO DTSCS21 00771 PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT DTSCS21 00772 ELSE DTSCS21 00773 IF REQ-INQUIRE DTSCS21 00774 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCS21 00775 ELSE DTSCS21 00776 IF REQ-EDIT DTSCS21 00777 PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT DTSCS21 00778 ELSE DTSCS21 00779 IF REQ-UPDATE DTSCS21 00780 PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT DTSCS21 00781 ELSE DTSCS21 00782 GO TO S899-ABEND. DTSCS21 00783 DTSCS21 00784 DTSCS21 00785 *----------------------------------------------------- DTSCS21 00786 * THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED DTSCS21 00787 * IN RESP-IND THE TYPE OF RESPONSE TO BE MADE. DTSCS21 00788 *----------------------------------------------------- DTSCS21 00789 DTSCS21 00790 IF RESP-SEND-MAP DTSCS21 00791 PERFORM S9300-SEND-MAP THRU S9300-EXIT DTSCS21 00792 SET LCCM-END-TASK-88 TO TRUE DTSCS21 00793 ELSE DTSCS21 00794 IF RESP-SEND-MSGONLY DTSCS21 00795 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCS21 00796 SET LCCM-END-TASK-88 TO TRUE DTSCS21 00797 ELSE DTSCS21 00798 IF RESP-JUMP DTSCS21 00799 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS21 00800 ELSE DTSCS21 00801 IF RESP-CURSOR-TO-GOTO DTSCS21 00802 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCS21 00803 SET LCCM-END-TASK-88 TO TRUE DTSCS21 00804 ELSE DTSCS21 00805 GO TO S899-ABEND. DTSCS21 00806 DTSCS21 00807 MAINLINE-EXIT. DTSCS21 00808 DTSCS21 00809 EXEC CICS DTSCS21 00810 RETURN DTSCS21 00811 END-EXEC. DTSCS21 00812 DTSCS21 00813 DTSCS21 00814 GOBACK. DTSCS21 00815 EJECT DTSCS21 00816 /*****************************************************************DTSCS21 00817 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION *DTSCS21 00818 ******************************************************************DTSCS21 00819 P1000-ANALYZE-REQUEST. DTSCS21 00820 DTSCS21 00821 *----------------------------------------------------- DTSCS21 00822 * IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE) DTSCS21 00823 * THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE DTSCS21 00824 * REPLACED WITH ENTER) DTSCS21 00825 *----------------------------------------------------- DTSCS21 00826 DTSCS21 00827 IF LCCM-SCR-ID NOT = WRK-SCR-ID DTSCS21 00828 SET LCCM-ENTER-88 TO TRUE DTSCS21 00829 IF LCCM-BATCH-NO > ZERO DTSCS21 00830 SET REQ-INQUIRE TO TRUE DTSCS21 00831 MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-1-N DTSCS21 00832 ELSE DTSCS21 00833 SET REQ-INQUIRE TO TRUE DTSCS21 00834 END-IF DTSCS21 00835 GO TO P1000-EXIT. DTSCS21 00836 DTSCS21 00837 DTSCS21 00838 *----------------------------------------------------- DTSCS21 00839 * MAP IS RECEIVED DTSCS21 00840 *----------------------------------------------------- DTSCS21 00841 DTSCS21 00842 PERFORM S9100-RECEIVE THRU S9100-EXIT. DTSCS21 00843 DTSCS21 00844 DTSCS21 00845 *----------------------------------------------------- DTSCS21 00846 * CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE DTSCS21 00847 * WORK STATION DTSCS21 00848 *----------------------------------------------------- DTSCS21 00849 DTSCS21 00850 IF LCCM-CLEAR-88 DTSCS21 00851 SET REQ-CLEAR TO TRUE DTSCS21 00852 GO TO P1000-EXIT. DTSCS21 00853 DTSCS21 00854 DTSCS21 00855 *----------------------------------------------------- DTSCS21 00856 * IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED DTSCS21 00857 *----------------------------------------------------- DTSCS21 00858 DTSCS21 00859 IF LCCM-SCR-UPDATE-LOCKED DTSCS21 00860 PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT DTSCS21 00861 GO TO P1000-EXIT. DTSCS21 00862 DTSCS21 00863 DTSCS21 00864 *----------------------------------------------------- DTSCS21 00865 * PA2 IS A REQUEST TO POSITION CURSOR AT GO TO: DTSCS21 00866 *----------------------------------------------------- DTSCS21 00867 DTSCS21 00868 IF LCCM-PA2-88 DTSCS21 00869 SET REQ-CURSOR-TO-GOTO TO TRUE DTSCS21 00870 GO TO P1000-EXIT. DTSCS21 00871 DTSCS21 00872 DTSCS21 00873 *----------------------------------------------------- DTSCS21 00874 * ALL OTHER PA KEYS ARE NOT ACTIVE DTSCS21 00875 *----------------------------------------------------- DTSCS21 00876 DTSCS21 00877 IF LCCM-PA-88 DTSCS21 00878 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCS21 00879 SET REQ-ERROR TO TRUE DTSCS21 00880 GO TO P1000-EXIT. DTSCS21 00881 DTSCS21 00882 DTSCS21 00883 *------------------------------------------------------- DTSCS21 00884 * F12 PRESSED WHEN UPDATE NOT IN PROGRESS IS A DTSCS21 00885 * REQUEST TO CLEAR THE SCREEN. DTSCS21 00886 *------------------------------------------------------- DTSCS21 00887 DTSCS21 00888 IF LCCM-F12-88 DTSCS21 00889 MOVE LOW-VALUES TO MAP-AREA DTSCS21 00890 SET REQ-CLEAR TO TRUE DTSCS21 00891 GO TO P1000-EXIT. DTSCS21 00892 DTSCS21 00893 DTSCS21 00894 *----------------------------------------------------- DTSCS21 00895 * IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION DTSCS21 00896 *----------------------------------------------------- DTSCS21 00897 DTSCS21 00898 IF LCCM-F03-88 DTSCS21 00899 MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID DTSCS21 00900 SET REQ-JUMP TO TRUE DTSCS21 00901 GO TO P1000-EXIT. DTSCS21 00902 DTSCS21 00903 DTSCS21 00904 *----------------------------------------------------- DTSCS21 00905 * IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN DTSCS21 00906 *----------------------------------------------------- DTSCS21 00907 DTSCS21 00908 IF LCCM-F04-88 DTSCS21 00909 MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS21 00910 SET REQ-JUMP TO TRUE DTSCS21 00911 GO TO P1000-EXIT. DTSCS21 00912 DTSCS21 00913 DTSCS21 00914 *--------------------------------------------------------- DTSCS21 00915 * IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO DTSCS21 00916 * CORRESPONDENCE SCREEN. DTSCS21 00917 *--------------------------------------------------------- DTSCS21 00918 DTSCS21 00919 IF LCCM-F14-88 DTSCS21 00920 MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS21 00921 SET REQ-JUMP TO TRUE DTSCS21 00922 GO TO P1000-EXIT. DTSCS21 00923 DTSCS21 00924 DTSCS21 00925 *----------------------------------------------------- DTSCS21 00926 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS21 00927 * REQUESTED SCREEN TYPE DTSCS21 00928 *----------------------------------------------------- DTSCS21 00929 DTSCS21 00930 IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID DTSCS21 00931 NEXT SENTENCE DTSCS21 00932 ELSE DTSCS21 00933 MOVE MAP-GOTO TO LCCM-REQ-SCR-ID DTSCS21 00934 SET REQ-JUMP TO TRUE DTSCS21 00935 GO TO P1000-EXIT. DTSCS21 00936 DTSCS21 00937 DTSCS21 00938 *----------------------------------------------------- DTSCS21 00939 * IF REQUEST TO UPDATE THE DATA (ADD,MOD,DEL) DTSCS21 00940 * VERIFY USER ACCESS TO PERFORM UPDATE DTSCS21 00941 *----------------------------------------------------- DTSCS21 00942 DTSCS21 00943 IF LCCM-F05-88 DTSCS21 00944 OR LCCM-F06-88 DTSCS21 00945 SET REQ-EDIT TO TRUE DTSCS21 00946 GO TO P1000-EXIT. DTSCS21 00947 DTSCS21 00948 IF LCCM-F09-88 DTSCS21 00949 OR LCCM-F10-88 DTSCS21 00950 OR LCCM-F23-88 DTSCS21 00951 IF SCR-ACCESS-UPDATE DTSCS21 00952 SET REQ-EDIT TO TRUE DTSCS21 00953 GO TO P1000-EXIT DTSCS21 00954 ELSE DTSCS21 00955 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCS21 00956 SET REQ-ERROR TO TRUE DTSCS21 00957 GO TO P1000-EXIT. DTSCS21 00958 DTSCS21 00959 DTSCS21 00960 *----------------------------------------------------- DTSCS21 00961 * IF INQUIRY REQUEST KEY PRESSED (ENTER, F7, OR F8) DTSCS21 00962 * INDICATE INQUIRY REQUEST DTSCS21 00963 *----------------------------------------------------- DTSCS21 00964 DTSCS21 00965 IF LCCM-ENTER-88 DTSCS21 00966 OR LCCM-F07-88 DTSCS21 00967 OR LCCM-F08-88 DTSCS21 00968 SET REQ-INQUIRE TO TRUE DTSCS21 00969 GO TO P1000-EXIT. DTSCS21 00970 DTSCS21 00971 DTSCS21 00972 *----------------------------------------------------- DTSCS21 00973 * ANY OTHER KEY IS INVALID DTSCS21 00974 *----------------------------------------------------- DTSCS21 00975 DTSCS21 00976 PERFORM S804-INVALID-KEY THRU S804-EXIT. DTSCS21 00977 DTSCS21 00978 SET REQ-ERROR TO TRUE. DTSCS21 00979 P1000-EXIT. DTSCS21 00980 EXIT. DTSCS21 00981 DTSCS21 00982 DTSCS21 00983 DTSCS21 00984 ******************************************************************DTSCS21 00985 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCS21 00986 ******************************************************************DTSCS21 00987 DTSCS21 00988 P1100-UPDATE-LOCKED. DTSCS21 00989 *----------------------------------------------------- DTSCS21 00990 * IF THE SCREEN IS "LOCKED FOR UPDATE", THEN DTSCS21 00991 * THE ONLY VALID OPERATOR REQUESTS ARE ENTER DTSCS21 00992 * (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE). DTSCS21 00993 *----------------------------------------------------- DTSCS21 00994 DTSCS21 00995 IF LCCM-ENTER-88 OR LCCM-F12-88 DTSCS21 00996 SET REQ-UPDATE TO TRUE DTSCS21 00997 ELSE DTSCS21 00998 SET REQ-ERROR TO TRUE DTSCS21 00999 IF LCCM-SCR-ADD-LOCKED DTSCS21 01000 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID DTSCS21 01001 ELSE DTSCS21 01002 IF LCCM-SCR-MOD-LOCKED DTSCS21 01003 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID DTSCS21 01004 ELSE DTSCS21 01005 IF LCCM-SCR-DEL-LOCKED DTSCS21 01006 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID DTSCS21 01007 ELSE DTSCS21 01008 IF LCCM-SCR-PRT-LOCKED DTSCS21 01009 MOVE PMSG-PRINT-CONFIRM TO LCCM-MSG-ID DTSCS21 01010 ELSE DTSCS21 01011 GO TO S899-ABEND. DTSCS21 01012 P1100-EXIT. DTSCS21 01013 EXIT. DTSCS21 01014 /*****************************************************************DTSCS21 01015 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCS21 01016 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN. *DTSCS21 01017 ******************************************************************DTSCS21 01018 DTSCS21 01019 P2000-REQUEST-ERROR. DTSCS21 01020 IF LCCM-MSG DTSCS21 01021 SET RESP-SEND-MSGONLY TO TRUE DTSCS21 01022 ELSE DTSCS21 01023 GO TO S899-ABEND. DTSCS21 01024 P2000-EXIT. DTSCS21 01025 EXIT. DTSCS21 01026 /*****************************************************************DTSCS21 01027 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED *DTSCS21 01028 ******************************************************************DTSCS21 01029 DTSCS21 01030 P3000-REQUEST-JUMP. DTSCS21 01031 *----------------------------------------------------- DTSCS21 01032 * VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE DTSCS21 01033 * BY USER DTSCS21 01034 *----------------------------------------------------- DTSCS21 01035 DTSCS21 01036 PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT. DTSCS21 01037 DTSCS21 01038 DTSCS21 01039 *----------------------------------------------------- DTSCS21 01040 * VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED DTSCS21 01041 *----------------------------------------------------- DTSCS21 01042 DTSCS21 01043 IF LCCM-MSG DTSCS21 01044 SET RESP-SEND-MSGONLY TO TRUE DTSCS21 01045 SET CURSOR-SET-GOTO TO TRUE DTSCS21 01046 GO TO P3000-EXIT. DTSCS21 01047 DTSCS21 01048 DTSCS21 01049 MOVE MAP-BATCH-NO-1-AREA TO L019-S-BATCH-NO-AREA. DTSCS21 01050 DTSCS21 01051 MOVE SPACES TO L019-S-ITEM-NO-AREA. DTSCS21 01052 DTSCS21 01053 PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT. DTSCS21 01054 DTSCS21 01055 IF L019-BATCH-NO > +0 DTSCS21 01056 IF L019-BATCH-NO NOT = LCCM-BATCH-NO DTSCS21 01057 MOVE L019-BATCH-NO TO LCCM-BATCH-NO DTSCS21 01058 MOVE +0 TO LCCM-ITEM-NO. DTSCS21 01059 DTSCS21 01060 DTSCS21 01061 *----------------------------------------------------- DTSCS21 01062 * CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING DTSCS21 01063 *----------------------------------------------------- DTSCS21 01064 DTSCS21 01065 MOVE LOW-VALUES TO LCCM-SCR-STATUS DTSCS21 01066 LCCM-SCR-HOLD-AREA. DTSCS21 01067 DTSCS21 01068 MOVE +0 TO LCCM-SCR-ABSTIME. DTSCS21 01069 DTSCS21 01070 SET RESP-JUMP TO TRUE. DTSCS21 01071 P3000-EXIT. DTSCS21 01072 EXIT. DTSCS21 01073 /*****************************************************************DTSCS21 01074 * CLEAR KEY WAS PRESSED *DTSCS21 01075 ******************************************************************DTSCS21 01076 DTSCS21 01077 P4000-REQUEST-CLEAR. DTSCS21 01078 DTSCS21 01079 *----------------------------------------------------- DTSCS21 01080 * CLEAN UP INDICATORS AND PAGING STORAGE. RESET KEY DTSCS21 01081 * FIELDS FROM EARLIER REQUESTS DTSCS21 01082 *----------------------------------------------------- DTSCS21 01083 DTSCS21 01084 IF LCCM-BATCH-NO > ZERO DTSCS21 01085 MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-1-N DTSCS21 01086 DTSCS21 01087 MOVE ZERO TO LCCM-BATCH-NO DTSCS21 01088 LCCM-ITEM-NO. DTSCS21 01089 DTSCS21 01090 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA. DTSCS21 01091 DTSCS21 01092 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS21 01093 DTSCS21 01094 SET LCCM-SCR-CLEAR TO TRUE. DTSCS21 01095 DTSCS21 01096 IF SCR-ACCESS-UPDATE DTSCS21 01097 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS21 01098 ELSE DTSCS21 01099 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS21 01100 DTSCS21 01101 SET RESP-SEND-MAP TO TRUE. DTSCS21 01102 P4000-EXIT. DTSCS21 01103 EXIT. DTSCS21 01104 /*****************************************************************DTSCS21 01105 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED *DTSCS21 01106 ******************************************************************DTSCS21 01107 DTSCS21 01108 P5000-CURSOR-TO-GOTO. DTSCS21 01109 SET CURSOR-SET-GOTO TO TRUE. DTSCS21 01110 SET RESP-CURSOR-TO-GOTO TO TRUE. DTSCS21 01111 P5000-EXIT. DTSCS21 01112 EXIT. DTSCS21 01113 /*****************************************************************DTSCS21 01114 * INQUIRY WAS REQUESTED *DTSCS21 01115 ******************************************************************DTSCS21 01116 DTSCS21 01117 P6000-REQUEST-INQUIRE. DTSCS21 01118 MOVE MAP-BATCH-NO-1-AREA TO WRK-BATCH-NO-1-AREA. DTSCS21 01119 DTSCS21 01120 MOVE MAP-BATCH-NO-2-AREA TO WRK-BATCH-NO-2-AREA. DTSCS21 01121 DTSCS21 01122 MOVE LOW-VALUES TO MAP-AREA. DTSCS21 01123 DTSCS21 01124 MOVE WRK-BATCH-NO-1-AREA TO MAP-BATCH-NO-1-AREA. DTSCS21 01125 DTSCS21 01126 MOVE WRK-BATCH-NO-2-AREA TO MAP-BATCH-NO-2-AREA. DTSCS21 01127 DTSCS21 01128 SET LCCM-SCR-CLEAR TO TRUE. DTSCS21 01129 DTSCS21 01130 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS21 01131 DTSCS21 01132 SET RESP-SEND-MAP TO TRUE. DTSCS21 01133 DTSCS21 01134 DTSCS21 01135 IF SCR-ACCESS-UPDATE DTSCS21 01136 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS21 01137 ELSE DTSCS21 01138 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS21 01139 DTSCS21 01140 DTSCS21 01141 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 01142 DTSCS21 01143 IF LCCM-MSG DTSCS21 01144 GO TO P6000-EXIT. DTSCS21 01145 DTSCS21 01146 DTSCS21 01147 PERFORM P6100-LOCATE-REC THRU P6100-EXIT. DTSCS21 01148 DTSCS21 01149 DTSCS21 01150 IF WRK-BATCH-NO-1 = LCCM-BATCH-NO DTSCS21 01151 NEXT SENTENCE DTSCS21 01152 ELSE DTSCS21 01153 MOVE WRK-BATCH-NO-1 TO LCCM-BATCH-NO DTSCS21 01154 MOVE +0 TO LCCM-ITEM-NO. DTSCS21 01155 DTSCS21 01156 DTSCS21 01157 SET WRK-RECORD-ACCUM-NO-88 TO TRUE. DTSCS21 01158 DTSCS21 01159 PERFORM P6990-INIT-ACCUMALATERS THRU P6990-EXIT. DTSCS21 01160 DTSCS21 01161 DTSCS21 01162 *-------------------------------------------------------------- DTSCS21 01163 * IF NO RECORD WAS FOUND SAY SO. IF A SINGLE RECORD WAS DTSCS21 01164 * REQUESTED DO THE ONE RECORD OTHERWISE ACCUMALATE THE RANGE DTSCS21 01165 * UNTIL NO RECORD WAS FOUND OR WE EXCEED THE RANGE DTSCS21 01166 *-------------------------------------------------------------- DTSCS21 01167 DTSCS21 01168 IF L823-NO-REC-88 DTSCS21 01169 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS21 01170 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 01171 GO TO P6000-EXIT DTSCS21 01172 ELSE DTSCS21 01173 IF WRK-BATCH-NO-2-NO-ENTRY DTSCS21 01174 PERFORM P6950-ACCUMALATE THRU P6950-EXIT DTSCS21 01175 ELSE DTSCS21 01176 PERFORM P6950-ACCUMALATE THRU P6950-EXIT DTSCS21 01177 UNTIL L823-NO-REC-88 DTSCS21 01178 OR ASKL-BATCH-NO > WRK-BATCH-NO-2. DTSCS21 01179 DTSCS21 01180 DTSCS21 01181 *-------------------------------------------------------------- DTSCS21 01182 * IF AT LEAST ONE RECORD WAS ACCUMALATED THEN FORMAT THE SCREEN DTSCS21 01183 * OTHERWISE TELL THEM THAT THERE ARE NO RECORDS ON THE FILE DTSCS21 01184 * OR AT LEAST NONE WITHIN THE SELECTED RANGE DTSCS21 01185 *-------------------------------------------------------------- DTSCS21 01186 DTSCS21 01187 IF WRK-RECORD-ACCUM-YES-88 DTSCS21 01188 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT DTSCS21 01189 ELSE DTSCS21 01190 MOVE MSG-E213-AREA TO LCCM-MSG-AREA DTSCS21 01191 GO TO P6000-EXIT DTSCS21 01192 END-IF. DTSCS21 01193 DTSCS21 01194 DTSCS21 01195 *------------------------------------------------------------- DTSCS21 01196 * IF A RANGE OF RECORDS IS SHOWN THEN WE WILL NOT ALLOW THEM DTSCS21 01197 * TO MODIFY THE INFORMATION THAT IS ON THE SCREEN DTSCS21 01198 *------------------------------------------------------------- DTSCS21 01199 DTSCS21 01200 IF WRK-BATCH-NO-2-VALID DTSCS21 01201 SET LCCM-SCR-CLEAR TO TRUE DTSCS21 01202 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT DTSCS21 01203 ELSE DTSCS21 01204 SET LCCM-SCR-INQUIRE TO TRUE DTSCS21 01205 END-IF. DTSCS21 01206 P6000-EXIT. DTSCS21 01207 EXIT. DTSCS21 01208 EJECT DTSCS21 01209 P6100-LOCATE-REC. DTSCS21 01210 *------------------------------------------------------------ DTSCS21 01211 * BASE THE PAGING LOGIC BASED ON THE BATCH(ES) ENTERED DTSCS21 01212 * ON THE SCREEN. DTSCS21 01213 * USE THE DATA IN WRK-BATCH-NO-2 TO CONTROL THE START OF DTSCS21 01214 * THE PAGING DOWN (IT MAY HAVE BEEN COPIED FROM BATCH-NO-1) DTSCS21 01215 *------------------------------------------------------------ DTSCS21 01216 DTSCS21 01217 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS21 01218 DTSCS21 01219 IF LCCM-F08-88 DTSCS21 01220 MOVE WRK-BATCH-NO-2-AREA TO WRK-BATCH-NO-1-AREA DTSCS21 01221 MOVE WRK-BATCH-NO-2 TO MAP-BATCH-NO-1-N. DTSCS21 01222 DTSCS21 01223 DTSCS21 01224 DTSCS21 01225 *------------------------------------------------------------ DTSCS21 01226 * IF THEY PRESSED A PAGING KEY DTSCS21 01227 * DISABLE THE RANGE REQUEST BUT ALLOW FOR THE LAST HDR ON FILE DTSCS21 01228 *------------------------------------------------------------ DTSCS21 01229 DTSCS21 01230 IF LCCM-F07-88 DTSCS21 01231 OR LCCM-F08-88 DTSCS21 01232 MOVE 99999 TO WRK-BATCH-NO-2 DTSCS21 01233 MOVE SPACE TO MAP-BATCH-NO-2 DTSCS21 01234 SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE. DTSCS21 01235 DTSCS21 01236 DTSCS21 01237 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 01238 DTSCS21 01239 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 01240 DTSCS21 01241 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 01242 DTSCS21 01243 IF L823-NO-REC-88 DTSCS21 01244 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS21 01245 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 01246 GO TO P6100-EXIT. DTSCS21 01247 DTSCS21 01248 MOVE ASKL-REC TO AHDR-REC. DTSCS21 01249 DTSCS21 01250 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 01251 DTSCS21 01252 IF LCCM-F05-88 DTSCS21 01253 OR LCCM-F06-88 DTSCS21 01254 GO TO P6100-EXIT DTSCS21 01255 END-IF. DTSCS21 01256 DTSCS21 01257 *------------------------------------------------------------ DTSCS21 01258 * IF A RANGE WAS REQUESTED AND THE RECORD READ IS NOT OUTSIDE THE DTSCS21 01259 * REQUESTED RANGE THEN MODIFY THE RANGE PARAMETERS DISPLAYED TO DTSCS21 01260 * REFLECT WHAT THE FIRST RECORD IN THE RANGE IS DTSCS21 01261 * IF A RANGE WAS NOT SELECTED AND THEY ASKED FOR A SPECIFIC BATCH DTSCS21 01262 * AND WE DID NOT GET AN EXACT HIT THEN SET NO-REC-88 TO TRUE DTSCS21 01263 *------------------------------------------------------------ DTSCS21 01264 DTSCS21 01265 IF WRK-BATCH-NO-2-VALID DTSCS21 01266 IF AHDR-BATCH-NO > MAP-BATCH-NO-2-N DTSCS21 01267 GO TO P6100-EXIT DTSCS21 01268 ELSE DTSCS21 01269 MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N DTSCS21 01270 MOVE AHDR-BATCH-NO TO WRK-BATCH-NO-1 DTSCS21 01271 ELSE DTSCS21 01272 IF LCCM-ENTER-88 DTSCS21 01273 AND AHDR-BATCH-NO NOT = WRK-BATCH-NO-1 DTSCS21 01274 SET L823-NO-REC-88 TO TRUE DTSCS21 01275 ELSE DTSCS21 01276 IF LCCM-F08-88 DTSCS21 01277 AND AHDR-BATCH-NO > WRK-BATCH-NO-1 DTSCS21 01278 MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N DTSCS21 01279 MOVE AHDR-BATCH-NO TO WRK-BATCH-NO-1 DTSCS21 01280 GO TO P6100-EXIT. DTSCS21 01281 DTSCS21 01282 DTSCS21 01283 IF LCCM-ENTER-88 DTSCS21 01284 GO TO P6100-EXIT. DTSCS21 01285 DTSCS21 01286 DTSCS21 01287 IF LCCM-F07-88 DTSCS21 01288 PERFORM P6120-PREV-REC THRU P6120-EXIT DTSCS21 01289 GO TO P6100-EXIT. DTSCS21 01290 DTSCS21 01291 DTSCS21 01292 IF LCCM-F08-88 DTSCS21 01293 PERFORM P6130-NEXT-REC THRU P6130-EXIT DTSCS21 01294 GO TO P6100-EXIT. DTSCS21 01295 DTSCS21 01296 DTSCS21 01297 GO TO S899-ABEND. DTSCS21 01298 P6100-EXIT. DTSCS21 01299 EXIT. DTSCS21 01300 DTSCS21 01301 DTSCS21 01302 DTSCS21 01303 P6120-PREV-REC. DTSCS21 01304 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 01305 DTSCS21 01306 IF L823-NO-REC-88 DTSCS21 01307 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID DTSCS21 01308 SET L823-OK-88 TO TRUE DTSCS21 01309 GO TO P6120-EXIT. DTSCS21 01310 DTSCS21 01311 DTSCS21 01312 PERFORM S823-READ-PREV THRU S823-EXIT. DTSCS21 01313 DTSCS21 01314 IF L823-NO-REC-88 DTSCS21 01315 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID DTSCS21 01316 SET L823-OK-88 TO TRUE DTSCS21 01317 GO TO P6120-EXIT. DTSCS21 01318 DTSCS21 01319 DTSCS21 01320 PERFORM S823-READ-PREV THRU S823-EXIT. DTSCS21 01321 DTSCS21 01322 IF L823-NO-REC-88 DTSCS21 01323 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID DTSCS21 01324 SET L823-OK-88 TO TRUE DTSCS21 01325 GO TO P6120-EXIT. DTSCS21 01326 DTSCS21 01327 DTSCS21 01328 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 01329 DTSCS21 01330 DTSCS21 01331 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 01332 DTSCS21 01333 PERFORM S823-READ THRU S823-EXIT. DTSCS21 01334 DTSCS21 01335 IF L823-NO-REC-88 DTSCS21 01336 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID DTSCS21 01337 SET L823-OK-88 TO TRUE DTSCS21 01338 GO TO P6120-EXIT. DTSCS21 01339 DTSCS21 01340 DTSCS21 01341 MOVE ASKL-REC TO AHDR-REC. DTSCS21 01342 DTSCS21 01343 MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N DTSCS21 01344 WRK-BATCH-NO-1. DTSCS21 01345 P6120-EXIT. DTSCS21 01346 EXIT. DTSCS21 01347 DTSCS21 01348 DTSCS21 01349 DTSCS21 01350 P6130-NEXT-REC. DTSCS21 01351 ADD 1 TO ASKL-BATCH-NO. DTSCS21 01352 DTSCS21 01353 MOVE 0 TO ASKL-ITEM-NO. DTSCS21 01354 DTSCS21 01355 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 01356 DTSCS21 01357 IF L823-NO-REC-88 DTSCS21 01358 MOVE PMSG-LAST-PAGE TO LCCM-MSG-ID DTSCS21 01359 SET L823-OK-88 TO TRUE DTSCS21 01360 GO TO P6130-EXIT. DTSCS21 01361 DTSCS21 01362 DTSCS21 01363 MOVE ASKL-REC TO AHDR-REC. DTSCS21 01364 DTSCS21 01365 DTSCS21 01366 MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-1-N DTSCS21 01367 WRK-BATCH-NO-1. DTSCS21 01368 DTSCS21 01369 DTSCS21 01370 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 01371 P6130-EXIT. DTSCS21 01372 EXIT. DTSCS21 01373 /*****************************************************************DTSCS21 01374 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS *DTSCS21 01375 ******************************************************************DTSCS21 01376 DTSCS21 01377 P6900-CONSTRUCT-SCREEN. DTSCS21 01378 MOVE LCCM-PRINTER-ID TO MAP-PRINTER-ID. DTSCS21 01379 DTSCS21 01380 PERFORM P6910-FROM-WRK THRU P6910-EXIT. DTSCS21 01381 P6900-EXIT. DTSCS21 01382 EXIT. DTSCS21 01383 DTSCS21 01384 DTSCS21 01385 DTSCS21 01386 P6910-FROM-WRK. DTSCS21 01387 IF WRK-BATCH-NO-2-NO-ENTRY DTSCS21 01388 PERFORM P6911-NO-RANGE THRU P6911-EXIT. DTSCS21 01389 DTSCS21 01390 DTSCS21 01391 MOVE WRK-CONTROL-REMIT-AMT TO MAP-CONTROL-REMIT-AMT-N. DTSCS21 01392 DTSCS21 01393 MOVE WRK-CONTROL-TRAN-CNT TO MAP-CONTROL-TRAN-CNT-N. DTSCS21 01394 DTSCS21 01395 MOVE WRK-ATC-FILE-REMIT-AMT TO MAP-ATC-FILE-REMIT-AMT-N. DTSCS21 01396 DTSCS21 01397 MOVE WRK-ATC-FILE-TRAN-CNT TO MAP-ATC-FILE-TRAN-CNT-N. DTSCS21 01398 DTSCS21 01399 MOVE WRK-PROC-REMIT-AMT TO MAP-PROC-REMIT-AMT-N. DTSCS21 01400 DTSCS21 01401 MOVE WRK-PROC-TRAN-CNT TO MAP-PROC-TRAN-CNT-N. DTSCS21 01402 DTSCS21 01403 COMPUTE MAP-BALANCE-REMIT-AMT-N DTSCS21 01404 = WRK-CONTROL-REMIT-AMT - WRK-ATC-FILE-REMIT-AMT. DTSCS21 01405 DTSCS21 01406 COMPUTE MAP-BALANCE-TRAN-CNT-N DTSCS21 01407 = WRK-CONTROL-TRAN-CNT - WRK-ATC-FILE-TRAN-CNT. DTSCS21 01408 P6910-EXIT. DTSCS21 01409 EXIT. DTSCS21 01410 DTSCS21 01411 DTSCS21 01412 DTSCS21 01413 P6911-NO-RANGE. DTSCS21 01414 MOVE AHDR-BATCH-HELD-IND TO MAP-BATCH-HELD-IND. DTSCS21 01415 DTSCS21 01416 MOVE AHDR-ANNUAL-BATCH-IND TO MAP-ANNUAL-BATCH-IND. DTSCS21 01417 DTSCS21 01418 IF AHDR-BATCH-BALANCED-YES-88 DTSCS21 01419 MOVE 'BALANCED' TO MAP-STATUS-DSCR-1 DTSCS21 01420 ELSE DTSCS21 01421 MOVE 'NOT BALANCED' TO MAP-STATUS-DSCR-1. DTSCS21 01422 DTSCS21 01423 DTSCS21 01424 IF AHDR-BATCH-HELD-YES-88 DTSCS21 01425 MOVE 'HELD' TO MAP-STATUS-DSCR-2 DTSCS21 01426 ELSE DTSCS21 01427 MOVE SPACES TO MAP-STATUS-DSCR-2. DTSCS21 01428 DTSCS21 01429 DTSCS21 01430 IF AHDR-PROC-TRAN-CNT > +0 DTSCS21 01431 MOVE 'PART PROCESSED' TO MAP-STATUS-DSCR-3 DTSCS21 01432 ELSE DTSCS21 01433 MOVE SPACES TO MAP-STATUS-DSCR-3. DTSCS21 01434 DTSCS21 01435 DTSCS21 01436 MOVE AHDR-RECEIVED-DATE TO WRK-DISPLAY. DTSCS21 01437 DTSCS21 01438 MOVE WRK-DISPLAY-MO TO MAP-RECEIVED-DATE-MO. DTSCS21 01439 DTSCS21 01440 MOVE WRK-DISPLAY-DA TO MAP-RECEIVED-DATE-DA. DTSCS21 01441 DTSCS21 01442 MOVE WRK-DISPLAY-YR TO MAP-RECEIVED-DATE-YR. DTSCS21 01443 DTSCS21 01444 DTSCS21 01445 MOVE AHDR-DEPOSIT-DATE TO WRK-DISPLAY. DTSCS21 01446 DTSCS21 01447 MOVE WRK-DISPLAY-MO TO MAP-DEPOSIT-DATE-MO. DTSCS21 01448 DTSCS21 01449 MOVE WRK-DISPLAY-DA TO MAP-DEPOSIT-DATE-DA. DTSCS21 01450 DTSCS21 01451 MOVE WRK-DISPLAY-YR TO MAP-DEPOSIT-DATE-YR. DTSCS21 01452 DTSCS21 01453 DTSCS21 01454 MOVE AHDR-LAST-USED-ITEM-NO TO MAP-LAST-USED-ITEM-NO-N. DTSCS21 01455 DTSCS21 01456 MOVE AHDR-BANK-BATCH-NO TO MAP-BANK-BATCH-N. DTSCS21 01457 DTSCS21 01458 IF AHDR-DEPOSIT-ID IS NUMERIC DTSCS21 01459 MOVE AHDR-DEPOSIT-ID TO MAP-DEPOSIT-ID-N DTSCS21 01460 ELSE DTSCS21 01461 MOVE ZERO TO MAP-DEPOSIT-ID DTSCS21 01462 END-IF. DTSCS21 01463 DTSCS21 01464 MOVE AHDR-ESTB-OP-ID TO MAP-ESTB-OP-ID. DTSCS21 01465 DTSCS21 01466 DTSCS21 01467 MOVE AHDR-ESTB-DATE TO L001-FED-8-DATE-9. DTSCS21 01468 DTSCS21 01469 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSCS21 01470 DTSCS21 01471 MOVE L001-SLASH-DATE TO MAP-ESTB-DATE. DTSCS21 01472 DTSCS21 01473 DTSCS21 01474 IF AHDR-CHNG-DATE > 0 DTSCS21 01475 MOVE AHDR-CHNG-OP-ID TO MAP-CHNG-OP-ID DTSCS21 01476 MOVE AHDR-CHNG-DATE TO L001-FED-8-DATE-9 DTSCS21 01477 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSCS21 01478 MOVE L001-SLASH-DATE TO MAP-CHNG-DATE. DTSCS21 01479 P6911-EXIT. EXIT. DTSCS21 01480 DTSCS21 01481 DTSCS21 01482 DTSCS21 01483 P6950-ACCUMALATE. DTSCS21 01484 SET WRK-RECORD-ACCUM-YES-88 TO TRUE. DTSCS21 01485 DTSCS21 01486 ADD AHDR-CONTROL-TRAN-CNT TO WRK-CONTROL-TRAN-CNT. DTSCS21 01487 DTSCS21 01488 ADD AHDR-ATC-FILE-TRAN-CNT TO WRK-ATC-FILE-TRAN-CNT. DTSCS21 01489 DTSCS21 01490 ADD AHDR-PROC-TRAN-CNT TO WRK-PROC-TRAN-CNT. DTSCS21 01491 DTSCS21 01492 ADD AHDR-CONTROL-REMIT-AMT TO WRK-CONTROL-REMIT-AMT. DTSCS21 01493 DTSCS21 01494 ADD AHDR-ATC-FILE-REMIT-AMT TO WRK-ATC-FILE-REMIT-AMT. DTSCS21 01495 DTSCS21 01496 ADD AHDR-PROC-REMIT-AMT TO WRK-PROC-REMIT-AMT. DTSCS21 01497 DTSCS21 01498 DTSCS21 01499 IF WRK-BATCH-NO-2-NO-ENTRY DTSCS21 01500 OR WRK-BATCH-NO-1 DTSCS21 01501 = WRK-BATCH-NO-2 DTSCS21 01502 SET L823-NO-REC-88 TO TRUE DTSCS21 01503 GO TO P6950-EXIT. DTSCS21 01504 DTSCS21 01505 DTSCS21 01506 MOVE AHDR-BATCH-NO TO MAP-BATCH-NO-2-N. DTSCS21 01507 DTSCS21 01508 DTSCS21 01509 ADD 1 TO ASKL-BATCH-NO. DTSCS21 01510 DTSCS21 01511 MOVE 0 TO ASKL-ITEM-NO. DTSCS21 01512 DTSCS21 01513 PERFORM S823-START-BROWSE THRU S823-EXIT DTSCS21 01514 DTSCS21 01515 IF L823-OK-88 DTSCS21 01516 MOVE ASKL-REC TO AHDR-REC DTSCS21 01517 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 01518 P6950-EXIT. EXIT. DTSCS21 01519 DTSCS21 01520 DTSCS21 01521 DTSCS21 01522 P6990-INIT-ACCUMALATERS. DTSCS21 01523 MOVE +0 TO WRK-CONTROL-REMIT-AMT DTSCS21 01524 WRK-CONTROL-TRAN-CNT DTSCS21 01525 WRK-ATC-FILE-REMIT-AMT DTSCS21 01526 WRK-ATC-FILE-TRAN-CNT DTSCS21 01527 WRK-PROC-REMIT-AMT DTSCS21 01528 WRK-PROC-TRAN-CNT. DTSCS21 01529 DTSCS21 01530 P6990-EXIT. DTSCS21 01531 EXIT. DTSCS21 01532 /*****************************************************************DTSCS21 01533 * FUNCTION KEY TO ADD, MOD OR DEL THE RECORD WAS PRESSED. *DTSCS21 01534 ******************************************************************DTSCS21 01535 DTSCS21 01536 P7000-REQUEST-EDIT. DTSCS21 01537 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS21 01538 DTSCS21 01539 IF LCCM-F09-88 DTSCS21 01540 PERFORM P7100-EDIT-ADD THRU P7100-EXIT DTSCS21 01541 ELSE DTSCS21 01542 IF LCCM-F10-88 DTSCS21 01543 PERFORM P7200-EDIT-MOD THRU P7200-EXIT DTSCS21 01544 ELSE DTSCS21 01545 IF LCCM-F23-88 DTSCS21 01546 PERFORM P7300-EDIT-DEL THRU P7300-EXIT DTSCS21 01547 ELSE DTSCS21 01548 IF LCCM-F05-88 DTSCS21 01549 PERFORM P7400-EDIT-PRT THRU P7400-EXIT DTSCS21 01550 ELSE DTSCS21 01551 IF LCCM-F06-88 DTSCS21 01552 PERFORM P7500-EDIT-DEP-PRT THRU P7500-EXIT DTSCS21 01553 ELSE DTSCS21 01554 GO TO S899-ABEND. DTSCS21 01555 DTSCS21 01556 DTSCS21 01557 *------------------------------------------------------ DTSCS21 01558 * SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED. DTSCS21 01559 * IN ORDER TO CONTINUE TO ATTEMPT A MOD THE SCREEN MUST DTSCS21 01560 * REMAIN IN 'INQUIRE' STATUS. DTSCS21 01561 *------------------------------------------------------ DTSCS21 01562 DTSCS21 01563 IF LCCM-MSG DTSCS21 01564 NEXT SENTENCE DTSCS21 01565 ELSE DTSCS21 01566 PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT DTSCS21 01567 IF LCCM-F09-88 DTSCS21 01568 SET LCCM-SCR-ADD-LOCKED TO TRUE DTSCS21 01569 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID DTSCS21 01570 ELSE DTSCS21 01571 IF LCCM-F10-88 DTSCS21 01572 SET LCCM-SCR-MOD-LOCKED TO TRUE DTSCS21 01573 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID DTSCS21 01574 ELSE DTSCS21 01575 IF LCCM-F23-88 DTSCS21 01576 SET LCCM-SCR-DEL-LOCKED TO TRUE DTSCS21 01577 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID DTSCS21 01578 ELSE DTSCS21 01579 IF LCCM-F05-88 DTSCS21 01580 OR LCCM-F06-88 DTSCS21 01581 SET LCCM-SCR-PRT-LOCKED TO TRUE DTSCS21 01582 MOVE PMSG-PRINT-CONFIRM TO LCCM-MSG-ID. DTSCS21 01583 DTSCS21 01584 DTSCS21 01585 SET RESP-SEND-MAP TO TRUE. DTSCS21 01586 P7000-EXIT. DTSCS21 01587 EXIT. DTSCS21 01588 /*****************************************************************DTSCS21 01589 * ADD FUNCTION WAS REQUESTED *DTSCS21 01590 ******************************************************************DTSCS21 01591 DTSCS21 01592 P7100-EDIT-ADD. DTSCS21 01593 *----------------------------------------------------- DTSCS21 01594 * ADDITION REQUIRES THAT THE SCREEN WAS CLEARED FIRST DTSCS21 01595 *----------------------------------------------------- DTSCS21 01596 DTSCS21 01597 IF NOT LCCM-SCR-CLEAR DTSCS21 01598 MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-ID DTSCS21 01599 GO TO P7100-EXIT. DTSCS21 01600 DTSCS21 01601 DTSCS21 01602 *----------------------------------------------------- DTSCS21 01603 * MAP-BATCH-NO MAY NOT BE ENTERED DURING THE ADD DTSCS21 01604 *----------------------------------------------------- DTSCS21 01605 DTSCS21 01606 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 01607 DTSCS21 01608 IF LCCM-MSG DTSCS21 01609 GO TO P7100-EXIT. DTSCS21 01610 DTSCS21 01611 DTSCS21 01612 PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT. DTSCS21 01613 DTSCS21 01614 *----------------------------------------------------- DTSCS21 01615 * IF THEY DIDN'T CLEAR THE SCREEN PROPERLY THEN DATA MAY BE LEFT DTSCS21 01616 * FROM THE PREVIOUS REQUEST (INQ RANGE LEAVES SCREEN IN CLEAR DTSCS21 01617 * STATE) BLANK OUT NON-ENTRY FIELDS DTSCS21 01618 *----------------------------------------------------- DTSCS21 01619 DTSCS21 01620 MOVE SPACES TO MAP-ATC-FILE-REMIT-AMT DTSCS21 01621 MAP-ATC-FILE-TRAN-CNT DTSCS21 01622 MAP-BALANCE-REMIT-AMT DTSCS21 01623 MAP-BALANCE-TRAN-CNT DTSCS21 01624 MAP-PROC-REMIT-AMT DTSCS21 01625 MAP-PROC-TRAN-CNT. DTSCS21 01626 P7100-EXIT. DTSCS21 01627 EXIT. DTSCS21 01628 /*****************************************************************DTSCS21 01629 * MODIFICATION FUNCTION WAS REQUESTED *DTSCS21 01630 ******************************************************************DTSCS21 01631 DTSCS21 01632 P7200-EDIT-MOD. DTSCS21 01633 *----------------------------------------------------- DTSCS21 01634 * MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCS21 01635 * INQUIRED DTSCS21 01636 *----------------------------------------------------- DTSCS21 01637 DTSCS21 01638 IF NOT LCCM-SCR-INQUIRE DTSCS21 01639 MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-ID DTSCS21 01640 GO TO P7200-EXIT. DTSCS21 01641 DTSCS21 01642 DTSCS21 01643 PERFORM S1000-SCREEN-EDITS THRU S1000-EXIT. DTSCS21 01644 DTSCS21 01645 DTSCS21 01646 *----------------------------------------------------- DTSCS21 01647 * MAP-BATCH-NO MAY NOT BE CHANGED DURING THE MOD DTSCS21 01648 *----------------------------------------------------- DTSCS21 01649 DTSCS21 01650 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 01651 DTSCS21 01652 IF LCCM-MSG DTSCS21 01653 GO TO P7200-EXIT. DTSCS21 01654 DTSCS21 01655 DTSCS21 01656 IF LCCM-BATCH-NO NOT = WRK-BATCH-NO-1 DTSCS21 01657 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCS21 01658 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 01659 GO TO P7200-EXIT. DTSCS21 01660 DTSCS21 01661 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS21 01662 DTSCS21 01663 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 01664 DTSCS21 01665 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 01666 DTSCS21 01667 PERFORM S823-READ THRU S823-EXIT. DTSCS21 01668 DTSCS21 01669 IF L823-NO-REC-88 DTSCS21 01670 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS21 01671 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 01672 GO TO P7200-EXIT. DTSCS21 01673 DTSCS21 01674 MOVE ASKL-REC TO AHDR-REC. DTSCS21 01675 DTSCS21 01676 MOVE MAP-CONTROL-REMIT-AMT-N TO WRK-E215-REMIT-AMT. DTSCS21 01677 IF WRK-E215-REMIT-AMT NOT = AHDR-CONTROL-REMIT-AMT DTSCS21 01678 IF SCR-ACCESS-SUPERVISOR DTSCS21 01679 NEXT SENTENCE DTSCS21 01680 ELSE DTSCS21 01681 MOVE MSG-E215-AREA TO WRK-MSG-AREA DTSCS21 01682 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS21 01683 GO TO P7200-EXIT. DTSCS21 01684 DTSCS21 01685 MOVE MAP-CONTROL-TRAN-CNT-N TO WRK-E216-TRAN-CNT. DTSCS21 01686 IF WRK-E216-TRAN-CNT NOT = AHDR-CONTROL-TRAN-CNT DTSCS21 01687 IF SCR-ACCESS-SUPERVISOR DTSCS21 01688 NEXT SENTENCE DTSCS21 01689 ELSE DTSCS21 01690 MOVE MSG-E216-AREA TO WRK-MSG-AREA DTSCS21 01691 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS21 01692 GO TO P7200-EXIT. DTSCS21 01693 DTSCS21 01694 *& IF MAP-ANNUAL-BATCH-IND NOT = AHDR-ANNUAL-BATCH-IND DTSCS21 01695 * IF AHDR-ATC-FILE-TRAN-CNT = +0 DTSCS21 01696 * NEXT SENTENCE DTSCS21 01697 * ELSE DTSCS21 01698 * MOVE MSG-E214-AREA TO WRK-MSG-AREA DTSCS21 01699 * PERFORM S1801-ERROR THRU S1801-EXIT DTSCS21 01700 *& GO TO P7200-EXIT. DTSCS21 01701 DTSCS21 01702 P7200-EXIT. DTSCS21 01703 EXIT. DTSCS21 01704 /*****************************************************************DTSCS21 01705 * DELETE FUNCTION WAS REQUESTED *DTSCS21 01706 ******************************************************************DTSCS21 01707 DTSCS21 01708 P7300-EDIT-DEL. DTSCS21 01709 IF SCR-ACCESS-SUPERVISOR DTSCS21 01710 NEXT SENTENCE DTSCS21 01711 ELSE DTSCS21 01712 MOVE MSG-E217-AREA TO WRK-MSG-AREA DTSCS21 01713 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 01714 GO TO P7300-EXIT. DTSCS21 01715 DTSCS21 01716 *----------------------------------------------------- DTSCS21 01717 * DELETION REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCS21 01718 * INQUIRED DTSCS21 01719 *----------------------------------------------------- DTSCS21 01720 DTSCS21 01721 IF NOT LCCM-SCR-INQUIRE DTSCS21 01722 MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-ID DTSCS21 01723 GO TO P7300-EXIT. DTSCS21 01724 DTSCS21 01725 DTSCS21 01726 *----------------------------------------------------- DTSCS21 01727 * MAP-BATCH-NO MAY NOT BE CHANGED DURING THE DEL DTSCS21 01728 *----------------------------------------------------- DTSCS21 01729 DTSCS21 01730 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 01731 DTSCS21 01732 IF LCCM-MSG DTSCS21 01733 GO TO P7300-EXIT. DTSCS21 01734 DTSCS21 01735 DTSCS21 01736 IF LCCM-BATCH-NO NOT = WRK-BATCH-NO-1 DTSCS21 01737 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCS21 01738 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 01739 GO TO P7300-EXIT. DTSCS21 01740 DTSCS21 01741 DTSCS21 01742 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS21 01743 DTSCS21 01744 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 01745 DTSCS21 01746 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 01747 DTSCS21 01748 PERFORM S823-READ THRU S823-EXIT. DTSCS21 01749 DTSCS21 01750 IF L823-OK-88 DTSCS21 01751 MOVE ASKL-REC TO AHDR-REC DTSCS21 01752 IF AHDR-PROC-TRAN-CNT > +0 DTSCS21 01753 MOVE MSG-E212-AREA TO WRK-MSG-AREA DTSCS21 01754 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 01755 GO TO P7300-EXIT. DTSCS21 01756 P7300-EXIT. DTSCS21 01757 EXIT. DTSCS21 01758 /*****************************************************************DTSCS21 01759 * PRINT FUNCTION WAS REQUESTED * DTSCS21 01760 ******************************************************************DTSCS21 01761 DTSCS21 01762 P7400-EDIT-PRT. DTSCS21 01763 IF SCR-ACCESS-UPDATE DTSCS21 01764 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS21 01765 ELSE DTSCS21 01766 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS21 01767 DTSCS21 01768 DTSCS21 01769 PERFORM S1700-MAP-PRINTER-ID THRU S1700-EXIT. DTSCS21 01770 DTSCS21 01771 IF LCCM-MSG DTSCS21 01772 GO TO P7400-EXIT. DTSCS21 01773 DTSCS21 01774 DTSCS21 01775 *----------------------------------------------------- DTSCS21 01776 * PRINT REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCS21 01777 * INQUIRED BUT THE SCREEN COULD BE IN A CLEAR STATE DTSCS21 01778 * SO WE'LL INQUIRE FIRST TO MAKE SURE ITS OK TO PRINT DTSCS21 01779 *----------------------------------------------------- DTSCS21 01780 DTSCS21 01781 IF (MAP-BATCH-NO-1 = SPACES OR LOW-VALUES) DTSCS21 01782 AND DTSCS21 01783 (MAP-BATCH-NO-2 = SPACES OR LOW-VALUES) DTSCS21 01784 MOVE 1 TO MAP-BATCH-NO-1-N DTSCS21 01785 MOVE 99999 TO MAP-BATCH-NO-2-N. DTSCS21 01786 DTSCS21 01787 SET WRK-LCCM-PRINT-REG-88 TO TRUE. DTSCS21 01788 MOVE WRK-LCCM-SCR-HOLD TO LCCM-SCR-HOLD-AREA. DTSCS21 01789 DTSCS21 01790 SET LCCM-ENTER-88 TO TRUE. DTSCS21 01791 DTSCS21 01792 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS21 01793 DTSCS21 01794 SET LCCM-F05-88 TO TRUE. DTSCS21 01795 DTSCS21 01796 IF WRK-RECORD-ACCUM-YES-88 DTSCS21 01797 NEXT SENTENCE DTSCS21 01798 ELSE DTSCS21 01799 MOVE MSG-E213-AREA TO LCCM-MSG-AREA DTSCS21 01800 GO TO P7400-EXIT. DTSCS21 01801 P7400-EXIT. DTSCS21 01802 EXIT. DTSCS21 01803 /*****************************************************************DTSCS21 01804 * PRINT DEPOSIT TICKET FUNCTION REQUESTED * DTSCS21 01805 ******************************************************************DTSCS21 01806 DTSCS21 01807 P7500-EDIT-DEP-PRT. DTSCS21 01808 IF SCR-ACCESS-UPDATE DTSCS21 01809 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS21 01810 ELSE DTSCS21 01811 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS21 01812 DTSCS21 01813 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 01814 DTSCS21 01815 IF LCCM-MSG DTSCS21 01816 GO TO P7500-EXIT DTSCS21 01817 END-IF. DTSCS21 01818 DTSCS21 01819 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS21 01820 DTSCS21 01821 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 01822 DTSCS21 01823 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 01824 DTSCS21 01825 PERFORM S823-READ THRU S823-EXIT. DTSCS21 01826 DTSCS21 01827 IF L823-OK-88 DTSCS21 01828 MOVE ASKL-REC TO AHDR-REC DTSCS21 01829 END-IF. DTSCS21 01830 DTSCS21 01831 PERFORM S2000-DEPOSIT-TKT THRU S2000-EXIT. DTSCS21 01832 DTSCS21 01833 IF LCCM-MSG DTSCS21 01834 GO TO P7500-EXIT. DTSCS21 01835 DTSCS21 01836 SET WRK-LCCM-PRINT-DEP-88 TO TRUE. DTSCS21 01837 MOVE WRK-LCCM-SCR-HOLD TO LCCM-SCR-HOLD-AREA. DTSCS21 01838 DTSCS21 01839 ** SET LCCM-ENTER-88 TO TRUE. DTSCS21 01840 DTSCS21 01841 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS21 01842 DTSCS21 01843 ** SET LCCM-F06-88 TO TRUE. DTSCS21 01844 DTSCS21 01845 P7500-EXIT. DTSCS21 01846 EXIT. DTSCS21 01847 /*****************************************************************DTSCS21 01848 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED *DTSCS21 01849 ******************************************************************DTSCS21 01850 DTSCS21 01851 P8000-REQUEST-UPDATE. DTSCS21 01852 IF LCCM-SCR-ADD-LOCKED DTSCS21 01853 PERFORM P8100-ADD THRU P8100-EXIT DTSCS21 01854 ELSE DTSCS21 01855 IF LCCM-SCR-MOD-LOCKED DTSCS21 01856 PERFORM P8200-MOD THRU P8200-EXIT DTSCS21 01857 ELSE DTSCS21 01858 IF LCCM-SCR-DEL-LOCKED DTSCS21 01859 PERFORM P8300-DEL THRU P8300-EXIT DTSCS21 01860 ELSE DTSCS21 01861 IF LCCM-SCR-PRT-LOCKED DTSCS21 01862 IF WRK-LCCM-PRINT-REG-88 DTSCS21 01863 PERFORM P8400-PRT THRU P8400-EXIT DTSCS21 01864 ELSE DTSCS21 01865 IF WRK-LCCM-PRINT-DEP-88 DTSCS21 01866 PERFORM P8500-DEP-PRT THRU P8500-EXIT DTSCS21 01867 ELSE DTSCS21 01868 GO TO S899-ABEND DTSCS21 01869 END-IF DTSCS21 01870 END-IF DTSCS21 01871 ELSE DTSCS21 01872 GO TO S899-ABEND. DTSCS21 01873 DTSCS21 01874 DTSCS21 01875 SET RESP-SEND-MAP TO TRUE. DTSCS21 01876 P8000-EXIT. DTSCS21 01877 EXIT. DTSCS21 01878 /*****************************************************************DTSCS21 01879 * *DTSCS21 01880 ******************************************************************DTSCS21 01881 DTSCS21 01882 P8100-ADD. DTSCS21 01883 SET LCCM-SCR-CLEAR TO TRUE. DTSCS21 01884 DTSCS21 01885 DTSCS21 01886 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS21 01887 DTSCS21 01888 DTSCS21 01889 IF LCCM-F12-88 DTSCS21 01890 MOVE PMSG-ADD-CANCELED TO LCCM-MSG-ID DTSCS21 01891 GO TO P8100-EXIT. DTSCS21 01892 DTSCS21 01893 DTSCS21 01894 PERFORM P8110-CONSTRUCT-AHDR THRU P8110-EXIT. DTSCS21 01895 DTSCS21 01896 DTSCS21 01897 ** INQUIRE AFTER ADD DTSCS21 01898 DTSCS21 01899 SET LCCM-ENTER-88 TO TRUE. DTSCS21 01900 DTSCS21 01901 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS21 01902 DTSCS21 01903 MOVE PMSG-ADD-SUCCESSFUL TO LCCM-MSG-ID. DTSCS21 01904 P8100-EXIT. DTSCS21 01905 EXIT. DTSCS21 01906 DTSCS21 01907 DTSCS21 01908 DTSCS21 01909 P8110-CONSTRUCT-AHDR. DTSCS21 01910 MOVE LCCM-OP-ID TO L373-ESTB-OP-ID. DTSCS21 01911 DTSCS21 01912 PERFORM S373-ADD-HDR THRU S373-EXIT. DTSCS21 01913 DTSCS21 01914 MOVE L373-BATCH-NO TO MAP-BATCH-NO-1 DTSCS21 01915 WRK-BATCH-NO-1. DTSCS21 01916 DTSCS21 01917 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS21 01918 DTSCS21 01919 MOVE L373-BATCH-NO TO ASKL-BATCH-NO. DTSCS21 01920 DTSCS21 01921 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 01922 DTSCS21 01923 PERFORM S823-READ THRU S823-EXIT. DTSCS21 01924 DTSCS21 01925 ** SHOULD NEVER HAPPEN BUT ... DTSCS21 01926 DTSCS21 01927 IF L823-NO-REC-88 DTSCS21 01928 GO TO S899-ABEND. DTSCS21 01929 DTSCS21 01930 DTSCS21 01931 MOVE ASKL-REC TO AHDR-REC. DTSCS21 01932 DTSCS21 01933 DTSCS21 01934 MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA. DTSCS21 01935 DTSCS21 01936 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS21 01937 DTSCS21 01938 IF L015-VALID DTSCS21 01939 MOVE L015-DATE TO AHDR-RECEIVED-DATE. DTSCS21 01940 DTSCS21 01941 DTSCS21 01942 MOVE MAP-DEPOSIT-DATE-AREA TO L015-S-DATE-AREA. DTSCS21 01943 DTSCS21 01944 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS21 01945 DTSCS21 01946 IF L015-VALID DTSCS21 01947 MOVE L015-DATE TO AHDR-DEPOSIT-DATE. DTSCS21 01948 DTSCS21 01949 DTSCS21 01950 MOVE MAP-BATCH-HELD-IND TO AHDR-BATCH-HELD-IND. DTSCS21 01951 DTSCS21 01952 MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA. DTSCS21 01953 DTSCS21 01954 PERFORM S011-REMIT-AMT THRU S011-EXIT. DTSCS21 01955 DTSCS21 01956 MOVE L011-AMT TO AHDR-CONTROL-REMIT-AMT. DTSCS21 01957 DTSCS21 01958 DTSCS21 01959 MOVE MAP-CONTROL-TRAN-CNT-AREA TO L013-S-CNT-AREA. DTSCS21 01960 DTSCS21 01961 PERFORM S013-TRAN-CNT THRU S013-EXIT. DTSCS21 01962 DTSCS21 01963 MOVE L013-CNT TO AHDR-CONTROL-TRAN-CNT. DTSCS21 01964 DTSCS21 01965 DTSCS21 01966 IF (AHDR-CONTROL-REMIT-AMT = AHDR-ATC-FILE-REMIT-AMT) DTSCS21 01967 AND DTSCS21 01968 (AHDR-CONTROL-TRAN-CNT = AHDR-ATC-FILE-TRAN-CNT) DTSCS21 01969 SET AHDR-BATCH-BALANCED-YES-88 TO TRUE DTSCS21 01970 ELSE DTSCS21 01971 SET AHDR-BATCH-BALANCED-NO-88 TO TRUE. DTSCS21 01972 DTSCS21 01973 DTSCS21 01974 MOVE MAP-ANNUAL-BATCH-IND TO AHDR-ANNUAL-BATCH-IND. DTSCS21 01975 DTSCS21 01976 MOVE MAP-BANK-BATCH-N TO AHDR-BANK-BATCH-NO. DTSCS21 01977 DTSCS21 01978 IF MAP-DEPOSIT-ID-N IS NUMERIC DTSCS21 01979 MOVE MAP-DEPOSIT-ID-N TO AHDR-DEPOSIT-ID DTSCS21 01980 ELSE DTSCS21 01981 MOVE +0 TO AHDR-DEPOSIT-ID DTSCS21 01982 END-IF. DTSCS21 01983 DTSCS21 01984 DTSCS21 01985 MOVE AHDR-REC TO ASKL-REC. DTSCS21 01986 DTSCS21 01987 PERFORM S823-REWRITE THRU S823-EXIT. DTSCS21 01988 DTSCS21 01989 SET WRK-AATH-ACTION-ADD-88 TO TRUE. DTSCS21 01990 PERFORM S826-WRITE-ATH THRU S826-EXIT. DTSCS21 01991 DTSCS21 01992 P8110-EXIT. DTSCS21 01993 EXIT. DTSCS21 01994 /*****************************************************************DTSCS21 01995 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCS21 01996 ******************************************************************DTSCS21 01997 DTSCS21 01998 P8200-MOD. DTSCS21 01999 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS21 02000 DTSCS21 02001 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS21 02002 DTSCS21 02003 DTSCS21 02004 IF LCCM-F12-88 DTSCS21 02005 MOVE PMSG-MOD-CANCELED TO LCCM-MSG-ID DTSCS21 02006 GO TO P8200-EXIT. DTSCS21 02007 DTSCS21 02008 DTSCS21 02009 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 02010 DTSCS21 02011 DTSCS21 02012 PERFORM P8210-CONSTRUCT-AHDR THRU P8210-EXIT. DTSCS21 02013 DTSCS21 02014 DTSCS21 02015 ***** INQUIRE AFTER MODIFY. DTSCS21 02016 DTSCS21 02017 SET LCCM-ENTER-88 TO TRUE. DTSCS21 02018 DTSCS21 02019 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS21 02020 DTSCS21 02021 DTSCS21 02022 MOVE PMSG-MOD-SUCCESSFUL TO LCCM-MSG-ID. DTSCS21 02023 P8200-EXIT. DTSCS21 02024 EXIT. DTSCS21 02025 DTSCS21 02026 DTSCS21 02027 DTSCS21 02028 P8210-CONSTRUCT-AHDR. DTSCS21 02029 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS21 02030 DTSCS21 02031 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 02032 DTSCS21 02033 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 02034 DTSCS21 02035 PERFORM S823-READ THRU S823-EXIT. DTSCS21 02036 DTSCS21 02037 IF L823-NO-REC-88 DTSCS21 02038 MOVE MSG-E214-AREA TO WRK-MSG-AREA DTSCS21 02039 PERFORM S1801-ERROR THRU S1801-EXIT DTSCS21 02040 GO TO P8210-EXIT. DTSCS21 02041 DTSCS21 02042 DTSCS21 02043 MOVE ASKL-REC TO AHDR-REC. DTSCS21 02044 DTSCS21 02045 MOVE LCCM-CURR-RUN-DATE TO AHDR-CHNG-DATE. DTSCS21 02046 DTSCS21 02047 DTSCS21 02048 MOVE LCCM-OP-ID TO AHDR-CHNG-OP-ID. DTSCS21 02049 DTSCS21 02050 DTSCS21 02051 MOVE MAP-BATCH-HELD-IND TO AHDR-BATCH-HELD-IND. DTSCS21 02052 DTSCS21 02053 DTSCS21 02054 MOVE MAP-DEPOSIT-DATE-AREA TO L015-S-DATE-AREA. DTSCS21 02055 DTSCS21 02056 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS21 02057 DTSCS21 02058 MOVE L015-DATE TO AHDR-DEPOSIT-DATE. DTSCS21 02059 DTSCS21 02060 DTSCS21 02061 MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA. DTSCS21 02062 DTSCS21 02063 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS21 02064 DTSCS21 02065 MOVE L015-DATE TO AHDR-RECEIVED-DATE. DTSCS21 02066 DTSCS21 02067 DTSCS21 02068 MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA. DTSCS21 02069 DTSCS21 02070 PERFORM S011-REMIT-AMT THRU S011-EXIT. DTSCS21 02071 DTSCS21 02072 MOVE L011-AMT TO AHDR-CONTROL-REMIT-AMT. DTSCS21 02073 DTSCS21 02074 DTSCS21 02075 MOVE MAP-CONTROL-TRAN-CNT-AREA TO L013-S-CNT-AREA. DTSCS21 02076 DTSCS21 02077 PERFORM S013-TRAN-CNT THRU S013-EXIT. DTSCS21 02078 DTSCS21 02079 MOVE L013-CNT TO AHDR-CONTROL-TRAN-CNT. DTSCS21 02080 DTSCS21 02081 DTSCS21 02082 IF (AHDR-CONTROL-REMIT-AMT = AHDR-ATC-FILE-REMIT-AMT) DTSCS21 02083 AND DTSCS21 02084 (AHDR-CONTROL-TRAN-CNT = AHDR-ATC-FILE-TRAN-CNT) DTSCS21 02085 SET AHDR-BATCH-BALANCED-YES-88 TO TRUE DTSCS21 02086 ELSE DTSCS21 02087 SET AHDR-BATCH-BALANCED-NO-88 TO TRUE. DTSCS21 02088 DTSCS21 02089 IF MAP-ANNUAL-BATCH-VALID-88 DTSCS21 02090 IF MAP-ANNUAL-BATCH-IND NOT = AHDR-ANNUAL-BATCH-IND DTSCS21 02091 MOVE MAP-ANNUAL-BATCH-IND TO AHDR-ANNUAL-BATCH-IND. DTSCS21 02092 DTSCS21 02093 MOVE MAP-BANK-BATCH-N TO AHDR-BANK-BATCH-NO. DTSCS21 02094 DTSCS21 02095 IF MAP-DEPOSIT-ID-N IS NUMERIC DTSCS21 02096 MOVE MAP-DEPOSIT-ID-N TO AHDR-DEPOSIT-ID DTSCS21 02097 ELSE DTSCS21 02098 MOVE +0 TO AHDR-DEPOSIT-ID DTSCS21 02099 END-IF. DTSCS21 02100 DTSCS21 02101 DTSCS21 02102 MOVE AHDR-REC TO ASKL-REC. DTSCS21 02103 DTSCS21 02104 PERFORM S823-REWRITE THRU S823-EXIT. DTSCS21 02105 DTSCS21 02106 SET WRK-AATH-ACTION-UPD-88 TO TRUE. DTSCS21 02107 PERFORM S826-WRITE-ATH THRU S826-EXIT. DTSCS21 02108 DTSCS21 02109 P8210-EXIT. DTSCS21 02110 EXIT. DTSCS21 02111 /*****************************************************************DTSCS21 02112 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCS21 02113 ******************************************************************DTSCS21 02114 DTSCS21 02115 P8300-DEL. DTSCS21 02116 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS21 02117 DTSCS21 02118 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS21 02119 DTSCS21 02120 DTSCS21 02121 IF LCCM-F12-88 DTSCS21 02122 MOVE PMSG-DEL-CANCELED TO LCCM-MSG-ID DTSCS21 02123 GO TO P8300-EXIT. DTSCS21 02124 DTSCS21 02125 DTSCS21 02126 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 02127 DTSCS21 02128 DTSCS21 02129 PERFORM P8310-DELETE THRU P8310-EXIT. DTSCS21 02130 DTSCS21 02131 IF LCCM-MSG DTSCS21 02132 GO TO P8300-EXIT. DTSCS21 02133 DTSCS21 02134 PERFORM P8320-DELETE-WAGES THRU P8320-EXIT. DTSCS21 02135 DTSCS21 02136 IF LCCM-MSG DTSCS21 02137 GO TO P8300-EXIT. DTSCS21 02138 DTSCS21 02139 DTSCS21 02140 MOVE LOW-VALUES TO MAP-AREA. DTSCS21 02141 DTSCS21 02142 MOVE WRK-BATCH-NO-1 TO MAP-BATCH-NO-1. DTSCS21 02143 DTSCS21 02144 SET LCCM-SCR-CLEAR TO TRUE. DTSCS21 02145 DTSCS21 02146 DTSCS21 02147 ** INQUIRE AFTER DEL DTSCS21 02148 DTSCS21 02149 SET LCCM-ENTER-88 TO TRUE. DTSCS21 02150 DTSCS21 02151 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS21 02152 DTSCS21 02153 MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-ID. DTSCS21 02154 P8300-EXIT. DTSCS21 02155 EXIT. DTSCS21 02156 EJECT DTSCS21 02157 P8310-DELETE. DTSCS21 02158 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS21 02159 DTSCS21 02160 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 02161 DTSCS21 02162 MOVE +0 TO ASKL-ITEM-NO. DTSCS21 02163 DTSCS21 02164 PERFORM S823-READ THRU S823-EXIT. DTSCS21 02165 DTSCS21 02166 IF L823-NO-REC-88 DTSCS21 02167 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS21 02168 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 02169 GO TO P8310-EXIT. DTSCS21 02170 DTSCS21 02171 DTSCS21 02172 MOVE ASKL-REC TO AHDR-REC. DTSCS21 02173 DTSCS21 02174 DTSCS21 02175 MOVE +0 TO AHDR-CONTROL-TRAN-CNT DTSCS21 02176 AHDR-ATC-FILE-TRAN-CNT DTSCS21 02177 AHDR-PROC-TRAN-CNT DTSCS21 02178 AHDR-CONTROL-REMIT-AMT DTSCS21 02179 AHDR-ATC-FILE-REMIT-AMT DTSCS21 02180 AHDR-PROC-REMIT-AMT DTSCS21 02181 AHDR-LAST-USED-ITEM-NO DTSCS21 02182 AHDR-DEPOSIT-ID. DTSCS21 02183 DTSCS21 02184 SET AHDR-BATCH-BALANCED-YES-88 TO TRUE. DTSCS21 02185 DTSCS21 02186 SET AHDR-BATCH-HELD-NO-88 TO TRUE. DTSCS21 02187 DTSCS21 02188 MOVE AHDR-REC TO ASKL-REC. DTSCS21 02189 DTSCS21 02190 PERFORM S823-REWRITE THRU S823-EXIT. DTSCS21 02191 DTSCS21 02192 SET WRK-AATH-ACTION-DEL-88 TO TRUE. DTSCS21 02193 PERFORM S826-WRITE-ATH THRU S826-EXIT. DTSCS21 02194 DTSCS21 02195 MOVE +1 TO ASKL-ITEM-NO. DTSCS21 02196 DTSCS21 02197 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 02198 DTSCS21 02199 PERFORM P8311-DELETE-LOOP THRU P8311-EXIT DTSCS21 02200 UNTIL L823-NO-REC-88. DTSCS21 02201 P8310-EXIT. DTSCS21 02202 EXIT. DTSCS21 02203 DTSCS21 02204 DTSCS21 02205 DTSCS21 02206 P8311-DELETE-LOOP. DTSCS21 02207 IF ASKL-BATCH-NO = WRK-BATCH-NO-1 DTSCS21 02208 NEXT SENTENCE DTSCS21 02209 ELSE DTSCS21 02210 PERFORM S823-END-BROWSE THRU S823-EXIT DTSCS21 02211 SET L823-NO-REC-88 TO TRUE DTSCS21 02212 GO TO P8311-EXIT. DTSCS21 02213 DTSCS21 02214 DTSCS21 02215 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 02216 DTSCS21 02217 DTSCS21 02218 PERFORM S823-DELETE THRU S823-EXIT. DTSCS21 02219 DTSCS21 02220 DTSCS21 02221 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 02222 P8311-EXIT. DTSCS21 02223 EXIT. DTSCS21 02224 DTSCS21 02225 P8320-DELETE-WAGES. DTSCS21 02226 MOVE LOW-VALUES TO WSKL-KEY-AREA. DTSCS21 02227 DTSCS21 02228 MOVE WRK-BATCH-NO-1 TO WSKL-BATCH-NO. DTSCS21 02229 DTSCS21 02230 MOVE +0 TO WSKL-ITEM-NO. DTSCS21 02231 DTSCS21 02232 PERFORM S880-START-BROWSE THRU S880-EXIT. DTSCS21 02233 DTSCS21 02234 IF L880-NO-REC-88 DTSCS21 02235 GO TO P8320-EXIT DTSCS21 02236 ELSE DTSCS21 02237 PERFORM P8321-DELETE-LOOP THRU P8321-EXIT DTSCS21 02238 UNTIL L880-NO-REC-88. DTSCS21 02239 DTSCS21 02240 P8320-EXIT. DTSCS21 02241 EXIT. DTSCS21 02242 DTSCS21 02243 P8321-DELETE-LOOP. DTSCS21 02244 IF WSKL-BATCH-NO = WRK-BATCH-NO-1 DTSCS21 02245 NEXT SENTENCE DTSCS21 02246 ELSE DTSCS21 02247 PERFORM S880-END-BROWSE THRU S880-EXIT DTSCS21 02248 SET L880-NO-REC-88 TO TRUE DTSCS21 02249 GO TO P8321-EXIT. DTSCS21 02250 DTSCS21 02251 PERFORM S880-END-BROWSE THRU S880-EXIT. DTSCS21 02252 DTSCS21 02253 PERFORM S880-DELETE THRU S880-EXIT. DTSCS21 02254 DTSCS21 02255 PERFORM S880-START-BROWSE THRU S880-EXIT. DTSCS21 02256 DTSCS21 02257 P8321-EXIT. DTSCS21 02258 EXIT. DTSCS21 02259 DTSCS21 02260 P8400-PRT. DTSCS21 02261 SET LCCM-SCR-CLEAR TO TRUE. DTSCS21 02262 DTSCS21 02263 IF SCR-ACCESS-UPDATE DTSCS21 02264 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS21 02265 ELSE DTSCS21 02266 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS21 02267 DTSCS21 02268 DTSCS21 02269 IF LCCM-F12-88 DTSCS21 02270 SET LCCM-ENTER-88 TO TRUE DTSCS21 02271 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCS21 02272 MOVE PMSG-PRINT-CANCELED TO LCCM-MSG-ID DTSCS21 02273 GO TO P8400-EXIT. DTSCS21 02274 DTSCS21 02275 DTSCS21 02276 PERFORM P8410-PRINT THRU P8410-EXIT. DTSCS21 02277 DTSCS21 02278 IF LCCM-MSG DTSCS21 02279 GO TO P8400-EXIT. DTSCS21 02280 DTSCS21 02281 DTSCS21 02282 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS21 02283 DTSCS21 02284 MOVE PMSG-PRINT-SUCCESSFUL TO LCCM-MSG-ID. DTSCS21 02285 P8400-EXIT. DTSCS21 02286 EXIT. DTSCS21 02287 DTSCS21 02288 DTSCS21 02289 DTSCS21 02290 P8410-PRINT. DTSCS21 02291 MOVE +0 TO WRK-PAGE-CTR. DTSCS21 02292 DTSCS21 02293 MOVE +0 TO WRK-DETAIL-CTR. DTSCS21 02294 DTSCS21 02295 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 02296 DTSCS21 02297 PERFORM P6100-LOCATE-REC THRU P6100-EXIT. DTSCS21 02298 DTSCS21 02299 IF LCCM-MSG DTSCS21 02300 GO TO P8410-EXIT. DTSCS21 02301 DTSCS21 02302 DTSCS21 02303 SET WRK-RECORD-ACCUM-NO-88 TO TRUE. DTSCS21 02304 DTSCS21 02305 PERFORM P6990-INIT-ACCUMALATERS THRU P6990-EXIT. DTSCS21 02306 DTSCS21 02307 PERFORM P8440-INIT-PRINT THRU P8440-EXIT. DTSCS21 02308 DTSCS21 02309 PERFORM P8450-HEADING THRU P8450-EXIT. DTSCS21 02310 DTSCS21 02311 PERFORM P8420-ACCUMALATE THRU P8420-EXIT DTSCS21 02312 UNTIL L823-NO-REC-88 DTSCS21 02313 OR ASKL-BATCH-NO > WRK-BATCH-NO-2. DTSCS21 02314 DTSCS21 02315 IF LCCM-MSG DTSCS21 02316 PERFORM S829-DELETE-QUEUE THRU S829-EXIT DTSCS21 02317 GO TO P8410-EXIT. DTSCS21 02318 DTSCS21 02319 DTSCS21 02320 IF WRK-RECORD-ACCUM-YES-88 DTSCS21 02321 CONTINUE DTSCS21 02322 ELSE DTSCS21 02323 PERFORM S829-DELETE-QUEUE THRU S829-EXIT DTSCS21 02324 MOVE MSG-E213-AREA TO LCCM-MSG-AREA DTSCS21 02325 GO TO P8410-EXIT. DTSCS21 02326 DTSCS21 02327 PERFORM P8430-TOTALS THRU P8430-EXIT. DTSCS21 02328 DTSCS21 02329 IF WRK-BATCH-NO-2-NO-ENTRY DTSCS21 02330 SET LCCM-SCR-INQUIRE TO TRUE DTSCS21 02331 IF SCR-ACCESS-UPDATE DTSCS21 02332 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS21 02333 DTSCS21 02334 PERFORM S357-LINK-PRINT THRU S357-EXIT. DTSCS21 02335 DTSCS21 02336 IF L357-FAILED-88 DTSCS21 02337 MOVE MSG-E211-AREA TO WRK-MSG-AREA DTSCS21 02338 PERFORM S1501-ERROR THRU S1501-EXIT. DTSCS21 02339 P8410-EXIT. DTSCS21 02340 EXIT. DTSCS21 02341 DTSCS21 02342 DTSCS21 02343 DTSCS21 02344 P8420-ACCUMALATE. DTSCS21 02345 ADD 1 TO WRK-DETAIL-CTR. DTSCS21 02346 DTSCS21 02347 IF WRK-DETAIL-CTR > LIT-MAX-DETAIL DTSCS21 02348 MOVE 1 TO WRK-DETAIL-CTR DTSCS21 02349 PERFORM P8450-HEADING THRU P8450-EXIT. DTSCS21 02350 DTSCS21 02351 SET WRK-RECORD-ACCUM-YES-88 TO TRUE. DTSCS21 02352 DTSCS21 02353 ADD AHDR-CONTROL-TRAN-CNT TO WRK-CONTROL-TRAN-CNT. DTSCS21 02354 DTSCS21 02355 ADD AHDR-ATC-FILE-TRAN-CNT TO WRK-ATC-FILE-TRAN-CNT. DTSCS21 02356 DTSCS21 02357 ADD AHDR-PROC-TRAN-CNT TO WRK-PROC-TRAN-CNT. DTSCS21 02358 DTSCS21 02359 ADD AHDR-CONTROL-REMIT-AMT TO WRK-CONTROL-REMIT-AMT. DTSCS21 02360 DTSCS21 02361 ADD AHDR-ATC-FILE-REMIT-AMT TO WRK-ATC-FILE-REMIT-AMT. DTSCS21 02362 DTSCS21 02363 ADD AHDR-PROC-REMIT-AMT TO WRK-PROC-REMIT-AMT. DTSCS21 02364 DTSCS21 02365 DTSCS21 02366 DTSCS21 02367 MOVE AHDR-BATCH-NO TO WRK-DETAIL-BATCH-NO. DTSCS21 02368 DTSCS21 02369 MOVE AHDR-BATCH-BALANCED-IND DTSCS21 02370 TO WRK-DETAIL-BALANCED-IND. DTSCS21 02371 DTSCS21 02372 MOVE AHDR-BATCH-HELD-IND DTSCS21 02373 TO WRK-DETAIL-HELD-IND. DTSCS21 02374 DTSCS21 02375 MOVE AHDR-DEPOSIT-DATE TO L001-FED-8-DATE-9. DTSCS21 02376 DTSCS21 02377 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSCS21 02378 DTSCS21 02379 MOVE L001-SLASH-DATE TO WRK-DETAIL-DEPOSIT-DATE. DTSCS21 02380 DTSCS21 02381 MOVE AHDR-CONTROL-REMIT-AMT DTSCS21 02382 TO WRK-DETAIL-CONTROL-REMIT-AMT. DTSCS21 02383 DTSCS21 02384 MOVE AHDR-CONTROL-TRAN-CNT DTSCS21 02385 TO WRK-DETAIL-CONTROL-TRAN-CNT. DTSCS21 02386 DTSCS21 02387 MOVE AHDR-ATC-FILE-REMIT-AMT DTSCS21 02388 TO WRK-DETAIL-ATC-FILE-REMIT-AMT. DTSCS21 02389 DTSCS21 02390 MOVE AHDR-ATC-FILE-TRAN-CNT DTSCS21 02391 TO WRK-DETAIL-ATC-FILE-TRAN-CNT. DTSCS21 02392 DTSCS21 02393 MOVE AHDR-PROC-REMIT-AMT DTSCS21 02394 TO WRK-DETAIL-PROC-REMIT-AMT. DTSCS21 02395 DTSCS21 02396 MOVE AHDR-PROC-TRAN-CNT DTSCS21 02397 TO WRK-DETAIL-PROC-TRAN-CNT. DTSCS21 02398 DTSCS21 02399 DTSCS21 02400 SET XPTS-DS-88 TO TRUE. DTSCS21 02401 DTSCS21 02402 MOVE WRK-DETAIL-LINE TO XPTS-DATA. DTSCS21 02403 DTSCS21 02404 ADD 1 TO L829-ITEM-NO. DTSCS21 02405 DTSCS21 02406 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02407 DTSCS21 02408 IF NOT L829-OK-88 DTSCS21 02409 MOVE MSG-E211-AREA TO LCCM-MSG-AREA DTSCS21 02410 GO TO P8420-EXIT. DTSCS21 02411 DTSCS21 02412 DTSCS21 02413 IF WRK-BATCH-NO-2-NO-ENTRY DTSCS21 02414 OR WRK-BATCH-NO-1 DTSCS21 02415 = WRK-BATCH-NO-2 DTSCS21 02416 SET L823-NO-REC-88 TO TRUE DTSCS21 02417 GO TO P8420-EXIT. DTSCS21 02418 DTSCS21 02419 DTSCS21 02420 ADD 1 TO ASKL-BATCH-NO. DTSCS21 02421 DTSCS21 02422 MOVE 0 TO ASKL-ITEM-NO. DTSCS21 02423 DTSCS21 02424 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 02425 DTSCS21 02426 IF L823-OK-88 DTSCS21 02427 MOVE ASKL-REC TO AHDR-REC DTSCS21 02428 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 02429 P8420-EXIT. DTSCS21 02430 EXIT. DTSCS21 02431 DTSCS21 02432 DTSCS21 02433 DTSCS21 02434 P8430-TOTALS. DTSCS21 02435 * NEED 3 LINES (1 LINE TRIPLE SPACED) TO PRINT TOTALS. DTSCS21 02436 DTSCS21 02437 IF WRK-DETAIL-CTR > LIT-MAX-DETAIL - 2 DTSCS21 02438 PERFORM P8450-HEADING THRU P8450-EXIT. DTSCS21 02439 DTSCS21 02440 MOVE WRK-CONTROL-REMIT-AMT DTSCS21 02441 TO WRK-FOOTER-CONTROL-REMIT-AMT. DTSCS21 02442 DTSCS21 02443 MOVE WRK-CONTROL-TRAN-CNT DTSCS21 02444 TO WRK-FOOTER-CONTROL-TRAN-CNT. DTSCS21 02445 DTSCS21 02446 MOVE WRK-ATC-FILE-REMIT-AMT DTSCS21 02447 TO WRK-FOOTER-ATC-FILE-REMIT-AMT. DTSCS21 02448 DTSCS21 02449 MOVE WRK-ATC-FILE-TRAN-CNT DTSCS21 02450 TO WRK-FOOTER-ATC-FILE-TRAN-CNT. DTSCS21 02451 DTSCS21 02452 MOVE WRK-PROC-REMIT-AMT DTSCS21 02453 TO WRK-FOOTER-PROC-REMIT-AMT. DTSCS21 02454 DTSCS21 02455 MOVE WRK-PROC-TRAN-CNT DTSCS21 02456 TO WRK-FOOTER-PROC-TRAN-CNT. DTSCS21 02457 DTSCS21 02458 DTSCS21 02459 SET XPTS-TS-88 TO TRUE. DTSCS21 02460 DTSCS21 02461 MOVE WRK-FOOTER-LINE TO XPTS-DATA. DTSCS21 02462 DTSCS21 02463 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02464 P8430-EXIT. DTSCS21 02465 EXIT. DTSCS21 02466 DTSCS21 02467 DTSCS21 02468 DTSCS21 02469 P8440-INIT-PRINT. DTSCS21 02470 *-----------------------------------------------------------------DTSCS21 02471 * CLEAN UP AND INITIALIZE TS QUEUE AREA. DTSCS21 02472 *-----------------------------------------------------------------DTSCS21 02473 DTSCS21 02474 MOVE 0 TO L829-ITEM-NO. DTSCS21 02475 DTSCS21 02476 MOVE LENGTH OF L829-REC TO L829-REC-LENGTH. DTSCS21 02477 DTSCS21 02478 SET L829-DEFAULT-STORAGE-88 TO TRUE. DTSCS21 02479 DTSCS21 02480 MOVE LCCM-TS-NAME-PREFIX TO L829-QUEUE-NAME-PREFIX. DTSCS21 02481 DTSCS21 02482 MOVE 'P' TO L829-QUEUE-NAME-SUFFIX. DTSCS21 02483 DTSCS21 02484 PERFORM S829-DELETE-QUEUE THRU S829-EXIT. DTSCS21 02485 DTSCS21 02486 MOVE LCCM-PRINTER-ID TO L357-PRINTER-ID. DTSCS21 02487 DTSCS21 02488 MOVE L829-QUEUE-NAME TO L357-QUEUE-NAME. DTSCS21 02489 P8440-EXIT. DTSCS21 02490 EXIT. DTSCS21 02491 /*****************************************************************DTSCS21 02492 * BUILD REPORT HEADING (FIRST 10 LINES DISPLAYED ON EACH PAGE) DTSCS21 02493 ******************************************************************DTSCS21 02494 P8450-HEADING. DTSCS21 02495 ADD 1 TO WRK-PAGE-CTR. DTSCS21 02496 DTSCS21 02497 MOVE WRK-PAGE-CTR TO WRK-PAGE. DTSCS21 02498 DTSCS21 02499 MOVE LCCM-TASK-START-DISP-DATE TO WRK-SYS-DATE. DTSCS21 02500 DTSCS21 02501 MOVE LCCM-TASK-START-DISP-TIME TO WRK-SYS-TIME. DTSCS21 02502 DTSCS21 02503 DTSCS21 02504 SET XPTS-FF-88 TO TRUE. DTSCS21 02505 DTSCS21 02506 MOVE WRK-HEADING-1 TO XPTS-DATA. DTSCS21 02507 DTSCS21 02508 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02509 DTSCS21 02510 DTSCS21 02511 SET XPTS-SS-88 TO TRUE. DTSCS21 02512 DTSCS21 02513 MOVE WRK-HEADING-2 TO XPTS-DATA. DTSCS21 02514 DTSCS21 02515 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02516 DTSCS21 02517 DTSCS21 02518 SET XPTS-SS-88 TO TRUE. DTSCS21 02519 DTSCS21 02520 MOVE WRK-HEADING-3 TO XPTS-DATA. DTSCS21 02521 DTSCS21 02522 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02523 DTSCS21 02524 DTSCS21 02525 MOVE WRK-BATCH-NO-1 TO WRK-HEADING-START. DTSCS21 02526 DTSCS21 02527 SET XPTS-DS-88 TO TRUE. DTSCS21 02528 DTSCS21 02529 MOVE WRK-HEADING-5 TO XPTS-DATA. DTSCS21 02530 DTSCS21 02531 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02532 DTSCS21 02533 DTSCS21 02534 MOVE WRK-BATCH-NO-2 TO WRK-HEADING-END. DTSCS21 02535 DTSCS21 02536 SET XPTS-SS-88 TO TRUE. DTSCS21 02537 DTSCS21 02538 MOVE WRK-HEADING-6 TO XPTS-DATA. DTSCS21 02539 DTSCS21 02540 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02541 DTSCS21 02542 DTSCS21 02543 SET XPTS-DS-88 TO TRUE. DTSCS21 02544 DTSCS21 02545 MOVE WRK-HEADING-8 TO XPTS-DATA. DTSCS21 02546 DTSCS21 02547 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02548 DTSCS21 02549 DTSCS21 02550 SET XPTS-SS-88 TO TRUE. DTSCS21 02551 DTSCS21 02552 MOVE WRK-HEADING-9 TO XPTS-DATA. DTSCS21 02553 DTSCS21 02554 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02555 DTSCS21 02556 DTSCS21 02557 SET XPTS-SS-88 TO TRUE. DTSCS21 02558 DTSCS21 02559 MOVE WRK-HEADING-10 TO XPTS-DATA. DTSCS21 02560 DTSCS21 02561 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02562 P8450-EXIT. DTSCS21 02563 EXIT. DTSCS21 02564 DTSCS21 02565 *-----------------------------------------------------------------DTSCS21 02566 * PRINT DEPOSIT TICKET DTSCS21 02567 *-----------------------------------------------------------------DTSCS21 02568 P8500-DEP-PRT. DTSCS21 02569 SET LCCM-SCR-CLEAR TO TRUE. DTSCS21 02570 DTSCS21 02571 IF SCR-ACCESS-UPDATE DTSCS21 02572 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS21 02573 ELSE DTSCS21 02574 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS21 02575 DTSCS21 02576 DTSCS21 02577 IF LCCM-F12-88 DTSCS21 02578 SET LCCM-ENTER-88 TO TRUE DTSCS21 02579 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCS21 02580 MOVE PMSG-PRINT-CANCELED TO LCCM-MSG-ID DTSCS21 02581 GO TO P8500-EXIT. DTSCS21 02582 DTSCS21 02583 DTSCS21 02584 PERFORM P8510-PRINT THRU P8510-EXIT. DTSCS21 02585 DTSCS21 02586 IF LCCM-MSG DTSCS21 02587 GO TO P8500-EXIT. DTSCS21 02588 DTSCS21 02589 PERFORM P8550-WRITE-R202 THRU P8550-EXIT. DTSCS21 02590 DTSCS21 02591 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT. DTSCS21 02592 DTSCS21 02593 MOVE PMSG-PRINT-SUCCESSFUL TO LCCM-MSG-ID. DTSCS21 02594 P8500-EXIT. DTSCS21 02595 EXIT. DTSCS21 02596 DTSCS21 02597 P8510-PRINT. DTSCS21 02598 MOVE +0 TO WRK-PAGE-CTR DTSCS21 02599 WRK-DETAIL-CTR DTSCS21 02600 WRK-TOT-REMIT DTSCS21 02601 WRK-TOT-ITEMS. DTSCS21 02602 DTSCS21 02603 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS21 02604 DTSCS21 02605 *** ENSURE THAT DEPOSIT TICKET IS FOR ONLY 1 BATCH *** DTSCS21 02606 SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE. DTSCS21 02607 DTSCS21 02608 PERFORM P6100-LOCATE-REC THRU P6100-EXIT. DTSCS21 02609 DTSCS21 02610 IF LCCM-MSG DTSCS21 02611 GO TO P8510-EXIT. DTSCS21 02612 DTSCS21 02613 ******************************************************* DTSCS21 02614 * NOTE: THE SAME PARAGRAPH USED IN P8400 IS USED HERE. DTSCS21 02615 ******************************************************* DTSCS21 02616 PERFORM P8440-INIT-PRINT THRU P8440-EXIT. DTSCS21 02617 DTSCS21 02618 PERFORM P8520-HEADING THRU P8520-EXIT. DTSCS21 02619 DTSCS21 02620 PERFORM P8530-GET-PAYMENTS THRU P8530-EXIT. DTSCS21 02621 DTSCS21 02622 IF LCCM-MSG DTSCS21 02623 PERFORM S829-DELETE-QUEUE THRU S829-EXIT DTSCS21 02624 GO TO P8510-EXIT. DTSCS21 02625 DTSCS21 02626 DTSCS21 02627 PERFORM P8540-FOOTER THRU P8540-EXIT. DTSCS21 02628 DTSCS21 02629 SET LCCM-SCR-INQUIRE TO TRUE DTSCS21 02630 IF SCR-ACCESS-UPDATE DTSCS21 02631 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS21 02632 END-IF. DTSCS21 02633 DTSCS21 02634 PERFORM S357-LINK-PRINT THRU S357-EXIT. DTSCS21 02635 DTSCS21 02636 IF L357-FAILED-88 DTSCS21 02637 MOVE MSG-E211-AREA TO WRK-MSG-AREA DTSCS21 02638 PERFORM S1501-ERROR THRU S1501-EXIT. DTSCS21 02639 P8510-EXIT. DTSCS21 02640 EXIT. DTSCS21 02641 DTSCS21 02642 /*****************************************************************DTSCS21 02643 * BUILD REPORT HEADING (FIRST 9 LINES DISPLAYED ON EACH PAGE) DTSCS21 02644 ******************************************************************DTSCS21 02645 P8520-HEADING. DTSCS21 02646 ADD 1 TO WRK-PAGE-CTR. DTSCS21 02647 DTSCS21 02648 MOVE WRK-PAGE-CTR TO WRK-PAGE. DTSCS21 02649 DTSCS21 02650 MOVE LCCM-TASK-START-DISP-DATE TO WRK-SYS-DATE. DTSCS21 02651 DTSCS21 02652 MOVE LCCM-TASK-START-DISP-TIME TO WRK-SYS-TIME. DTSCS21 02653 DTSCS21 02654 DTSCS21 02655 ** SET XPTS-FF-88 TO TRUE. DTSCS21 02656 DTSCS21 02657 MOVE WRK-DEPOSIT-HDR-1 TO XPTS-DATA. DTSCS21 02658 DTSCS21 02659 ADD +1 TO L829-ITEM-NO. DTSCS21 02660 DTSCS21 02661 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02662 DTSCS21 02663 DTSCS21 02664 SET XPTS-SS-88 TO TRUE. DTSCS21 02665 DTSCS21 02666 MOVE WRK-DEPOSIT-HDR-2 TO XPTS-DATA. DTSCS21 02667 DTSCS21 02668 ADD +1 TO L829-ITEM-NO. DTSCS21 02669 DTSCS21 02670 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02671 DTSCS21 02672 DTSCS21 02673 SET XPTS-SS-88 TO TRUE. DTSCS21 02674 DTSCS21 02675 MOVE WRK-DEPOSIT-HDR-3 TO XPTS-DATA. DTSCS21 02676 DTSCS21 02677 ADD +1 TO L829-ITEM-NO. DTSCS21 02678 DTSCS21 02679 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02680 DTSCS21 02681 DTSCS21 02682 MOVE WRK-BATCH-NO-1 TO WRK-DEPOSIT-BATCH. DTSCS21 02683 MOVE MAP-DEPOSIT-DATE-MO TO WRK-DEPOSIT-MO. DTSCS21 02684 MOVE MAP-DEPOSIT-DATE-DA TO WRK-DEPOSIT-DA. DTSCS21 02685 MOVE MAP-DEPOSIT-DATE-YR TO WRK-DEPOSIT-YR. DTSCS21 02686 DTSCS21 02687 MOVE LCCM-OP-ID TO WRK-DEPOSIT-OPID. DTSCS21 02688 DTSCS21 02689 SET XPTS-DS-88 TO TRUE. DTSCS21 02690 DTSCS21 02691 MOVE WRK-DEPOSIT-HDR-4 TO XPTS-DATA. DTSCS21 02692 DTSCS21 02693 ADD +1 TO L829-ITEM-NO. DTSCS21 02694 DTSCS21 02695 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02696 DTSCS21 02697 SET XPTS-DS-88 TO TRUE. DTSCS21 02698 DTSCS21 02699 MOVE WRK-DEPOSIT-HDR-5 TO XPTS-DATA. DTSCS21 02700 DTSCS21 02701 ADD +1 TO L829-ITEM-NO. DTSCS21 02702 DTSCS21 02703 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02704 DTSCS21 02705 P8520-EXIT. DTSCS21 02706 EXIT. DTSCS21 02707 DTSCS21 02708 P8530-GET-PAYMENTS. DTSCS21 02709 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 02710 DTSCS21 02711 MOVE +1 TO ASKL-ITEM-NO. DTSCS21 02712 DTSCS21 02713 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 02714 DTSCS21 02715 PERFORM DTSCS21 02716 UNTIL L823-NO-REC-88 DTSCS21 02717 IF ASKL-BATCH-NO NOT = WRK-BATCH-NO-1 DTSCS21 02718 SET L823-NO-REC-88 TO TRUE DTSCS21 02719 ELSE DTSCS21 02720 EVALUATE TRUE DTSCS21 02721 WHEN ASKL-PAY-88 DTSCS21 02722 MOVE ASKL-REC TO APAY-REC DTSCS21 02723 PERFORM P8531-PAY-DETAIL THRU P8531-EXIT DTSCS21 02724 DTSCS21 02725 WHEN ASKL-RPT-88 DTSCS21 02726 MOVE ASKL-REC TO ARPT-REC DTSCS21 02727 PERFORM P8532-RPT-DETAIL THRU P8532-EXIT DTSCS21 02728 DTSCS21 02729 WHEN ASKL-ATX-88 DTSCS21 02730 MOVE ASKL-REC TO AATX-REC DTSCS21 02731 PERFORM P8533-ATX-DETAIL THRU P8533-EXIT DTSCS21 02732 END-EVALUATE DTSCS21 02733 PERFORM S823-READ-NEXT THRU S823-EXIT DTSCS21 02734 END-IF DTSCS21 02735 END-PERFORM. DTSCS21 02736 DTSCS21 02737 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 02738 DTSCS21 02739 P8530-EXIT. DTSCS21 02740 EXIT. DTSCS21 02741 DTSCS21 02742 P8531-PAY-DETAIL. DTSCS21 02743 IF APAY-REMIT-AMT NOT > ZERO DTSCS21 02744 GO TO P8531-EXIT DTSCS21 02745 END-IF. DTSCS21 02746 DTSCS21 02747 MOVE APAY-ITEM-NO TO WRK-DEPOSIT-ITEM-NO. DTSCS21 02748 MOVE APAY-EMP-NO TO WRK-EMP-NO. DTSCS21 02749 MOVE WRK-EMP-NO-1 TO WRK-DEPOSIT-EMP-NO-1. DTSCS21 02750 MOVE WRK-EMP-NO-2 TO WRK-DEPOSIT-EMP-NO-2. DTSCS21 02751 MOVE APAY-REMIT-AMT TO WRK-DEPOSIT-AMT. DTSCS21 02752 ADD APAY-REMIT-AMT TO WRK-TOT-REMIT. DTSCS21 02753 ADD +1 TO WRK-TOT-ITEMS. DTSCS21 02754 DTSCS21 02755 ADD 1 TO WRK-DETAIL-CTR. DTSCS21 02756 DTSCS21 02757 IF WRK-DETAIL-CTR > LIT-MAX-DETAIL DTSCS21 02758 MOVE 1 TO WRK-DETAIL-CTR DTSCS21 02759 SET XPTS-FF-88 TO TRUE DTSCS21 02760 PERFORM P8520-HEADING THRU P8520-EXIT DTSCS21 02761 END-IF. DTSCS21 02762 DTSCS21 02763 SET XPTS-SS-88 TO TRUE. DTSCS21 02764 MOVE WRK-DEPOSIT-DTL TO XPTS-DATA. DTSCS21 02765 ADD +1 TO L829-ITEM-NO. DTSCS21 02766 DTSCS21 02767 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02768 DTSCS21 02769 P8531-EXIT. DTSCS21 02770 EXIT. DTSCS21 02771 DTSCS21 02772 P8532-RPT-DETAIL. DTSCS21 02773 IF ARPT-REMIT-AMT NOT > ZERO DTSCS21 02774 GO TO P8532-EXIT DTSCS21 02775 END-IF. DTSCS21 02776 DTSCS21 02777 MOVE ARPT-ITEM-NO TO WRK-DEPOSIT-ITEM-NO. DTSCS21 02778 MOVE ARPT-EMP-NO TO WRK-EMP-NO. DTSCS21 02779 MOVE WRK-EMP-NO-1 TO WRK-DEPOSIT-EMP-NO-1. DTSCS21 02780 MOVE WRK-EMP-NO-2 TO WRK-DEPOSIT-EMP-NO-2. DTSCS21 02781 MOVE ARPT-REMIT-AMT TO WRK-DEPOSIT-AMT. DTSCS21 02782 ADD ARPT-REMIT-AMT TO WRK-TOT-REMIT. DTSCS21 02783 ADD +1 TO WRK-TOT-ITEMS. DTSCS21 02784 DTSCS21 02785 ADD 1 TO WRK-DETAIL-CTR. DTSCS21 02786 DTSCS21 02787 IF WRK-DETAIL-CTR > LIT-MAX-DETAIL DTSCS21 02788 MOVE 1 TO WRK-DETAIL-CTR DTSCS21 02789 SET XPTS-FF-88 TO TRUE DTSCS21 02790 PERFORM P8520-HEADING THRU P8520-EXIT DTSCS21 02791 END-IF. DTSCS21 02792 DTSCS21 02793 SET XPTS-SS-88 TO TRUE. DTSCS21 02794 MOVE WRK-DEPOSIT-DTL TO XPTS-DATA. DTSCS21 02795 ADD +1 TO L829-ITEM-NO. DTSCS21 02796 DTSCS21 02797 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02798 DTSCS21 02799 P8532-EXIT. DTSCS21 02800 EXIT. DTSCS21 02801 DTSCS21 02802 P8533-ATX-DETAIL. DTSCS21 02803 IF AATX-REMIT-AMT NOT > ZERO DTSCS21 02804 GO TO P8533-EXIT DTSCS21 02805 END-IF. DTSCS21 02806 DTSCS21 02807 MOVE AATX-ITEM-NO TO WRK-DEPOSIT-ITEM-NO. DTSCS21 02808 MOVE AATX-EMP-NO TO WRK-EMP-NO. DTSCS21 02809 MOVE WRK-EMP-NO-1 TO WRK-DEPOSIT-EMP-NO-1. DTSCS21 02810 MOVE WRK-EMP-NO-2 TO WRK-DEPOSIT-EMP-NO-2. DTSCS21 02811 MOVE AATX-REMIT-AMT TO WRK-DEPOSIT-AMT. DTSCS21 02812 ADD AATX-REMIT-AMT TO WRK-TOT-REMIT. DTSCS21 02813 ADD +1 TO WRK-TOT-ITEMS. DTSCS21 02814 DTSCS21 02815 ADD 1 TO WRK-DETAIL-CTR. DTSCS21 02816 DTSCS21 02817 IF WRK-DETAIL-CTR > LIT-MAX-DETAIL DTSCS21 02818 MOVE 1 TO WRK-DETAIL-CTR DTSCS21 02819 SET XPTS-FF-88 TO TRUE DTSCS21 02820 PERFORM P8520-HEADING THRU P8520-EXIT DTSCS21 02821 END-IF. DTSCS21 02822 DTSCS21 02823 SET XPTS-SS-88 TO TRUE. DTSCS21 02824 MOVE WRK-DEPOSIT-DTL TO XPTS-DATA. DTSCS21 02825 ADD +1 TO L829-ITEM-NO. DTSCS21 02826 DTSCS21 02827 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02828 DTSCS21 02829 P8533-EXIT. DTSCS21 02830 EXIT. DTSCS21 02831 DTSCS21 02832 P8540-FOOTER. DTSCS21 02833 * NEED 3 LINES (1 LINE TRIPLE SPACED) TO PRINT TOTALS. DTSCS21 02834 DTSCS21 02835 IF WRK-DETAIL-CTR > LIT-MAX-DETAIL - 2 DTSCS21 02836 PERFORM P8520-HEADING THRU P8520-EXIT DTSCS21 02837 END-IF. DTSCS21 02838 DTSCS21 02839 MOVE WRK-TOT-ITEMS TO WRK-DEP-TOT-ITEMS. DTSCS21 02840 DTSCS21 02841 MOVE WRK-TOT-REMIT TO WRK-DEP-TOT-REMIT. DTSCS21 02842 ADD +1 TO L829-ITEM-NO. DTSCS21 02843 DTSCS21 02844 SET XPTS-TS-88 TO TRUE. DTSCS21 02845 DTSCS21 02846 MOVE WRK-DEPOSIT-FOOTER TO XPTS-DATA. DTSCS21 02847 DTSCS21 02848 PERFORM S829-WRITE-ITEM THRU S829-EXIT. DTSCS21 02849 DTSCS21 02850 P8540-EXIT. DTSCS21 02851 EXIT. DTSCS21 02852 DTSCS21 02853 P8550-WRITE-R202. DTSCS21 02854 MOVE LENGTH OF R202-REC TO R202-LENGTH. DTSCS21 02855 MOVE AHDR-BATCH-NO TO R202-BATCH-NO. DTSCS21 02856 SET R202-BATCH-TAX-88 TO TRUE. DTSCS21 02857 MOVE AHDR-CONTROL-REMIT-AMT TO R202-CONTROL-REMIT-AMT. DTSCS21 02858 MOVE AHDR-CONTROL-TRAN-CNT TO R202-CONTROL-TRAN-CNT. DTSCS21 02859 MOVE AHDR-ESTB-DATE TO R202-BATCH-ESTB-DATE. DTSCS21 02860 MOVE LCCM-CURR-RUN-DATE TO R202-APPROVED-DATE. DTSCS21 02861 MOVE LCCM-OP-ID TO R202-APPROVED-OPID. DTSCS21 02862 DTSCS21 02863 MOVE R202-REC TO RSKL-REC. DTSCS21 02864 PERFORM S825-WRITE THRU S825-EXIT. DTSCS21 02865 DTSCS21 02866 P8550-EXIT. DTSCS21 02867 EXIT. DTSCS21 02868 DTSCS21 02869 /*****************************************************************DTSCS21 02870 * LINKS TO UTILITY MODULES DTSCS21 02871 ******************************************************************DTSCS21 02872 DTSCS21 02873 S001-FROM-FED-8. DTSCS21 02874 SET L001-FROM-FED-8 TO TRUE. DTSCS21 02875 GO TO S001-DATE. DTSCS21 02876 DTSCS21 02877 *S001-FROM-ABS-DATE. DTSCS21 02878 *****SET L001-FROM-ABS-DAY TO TRUE. DTSCS21 02879 *****GO TO S001-DATE. DTSCS21 02880 DTSCS21 02881 S001-DATE. DTSCS21 02882 EXEC CICS LINK DTSCS21 02883 PROGRAM('DTSCU001') DTSCS21 02884 COMMAREA(L001-COMM-AREA) DTSCS21 02885 END-EXEC. DTSCS21 02886 S001-EXIT. DTSCS21 02887 EXIT. DTSCS21 02888 DTSCS21 02889 DTSCS21 02890 S011-REMIT-AMT. DTSCS21 02891 MOVE -9999999.99 TO L011-MIN-AMT. DTSCS21 02892 MOVE +9999999.99 TO L011-MAX-AMT. DTSCS21 02893 GO TO S011-MONEY-FROM-SCREEN. DTSCS21 02894 DTSCS21 02895 S011-MONEY-FROM-SCREEN. DTSCS21 02896 EXEC CICS LINK DTSCS21 02897 PROGRAM('DTSCU011') DTSCS21 02898 COMMAREA(L011-COMM-AREA) DTSCS21 02899 END-EXEC. DTSCS21 02900 S011-EXIT. DTSCS21 02901 EXIT. DTSCS21 02902 DTSCS21 02903 DTSCS21 02904 DTSCS21 02905 S013-TRAN-CNT. DTSCS21 02906 MOVE +0 TO L013-MIN-CNT. DTSCS21 02907 MOVE +999 TO L013-MAX-CNT. DTSCS21 02908 GO TO S013-COUNT-FROM-SCREEN. DTSCS21 02909 DTSCS21 02910 S013-BANK-BATCH-NO. DTSCS21 02911 MOVE +0 TO L013-MIN-CNT. DTSCS21 02912 MOVE +9999 TO L013-MAX-CNT. DTSCS21 02913 GO TO S013-COUNT-FROM-SCREEN. DTSCS21 02914 DTSCS21 02915 S013-DEPOSIT-ID. DTSCS21 02916 MOVE +0 TO L013-MIN-CNT. DTSCS21 02917 MOVE +999999999 TO L013-MAX-CNT. DTSCS21 02918 GO TO S013-COUNT-FROM-SCREEN. DTSCS21 02919 DTSCS21 02920 S013-COUNT-FROM-SCREEN. DTSCS21 02921 EXEC CICS LINK DTSCS21 02922 PROGRAM('DTSCU013') DTSCS21 02923 COMMAREA(L013-COMM-AREA) DTSCS21 02924 END-EXEC. DTSCS21 02925 S013-EXIT. DTSCS21 02926 EXIT. DTSCS21 02927 DTSCS21 02928 DTSCS21 02929 DTSCS21 02930 S015-DATE-FROM-SCREEN. DTSCS21 02931 EXEC CICS LINK DTSCS21 02932 PROGRAM('DTSCU015') DTSCS21 02933 COMMAREA(L015-COMM-AREA) DTSCS21 02934 END-EXEC. DTSCS21 02935 S015-EXIT. DTSCS21 02936 EXIT. DTSCS21 02937 DTSCS21 02938 DTSCS21 02939 DTSCS21 02940 S019-BATCH-NO-FROM-SCREEN. DTSCS21 02941 EXEC CICS LINK DTSCS21 02942 PROGRAM('DTSCU019') DTSCS21 02943 COMMAREA(L019-COMM-AREA) DTSCS21 02944 END-EXEC. DTSCS21 02945 S019-EXIT. DTSCS21 02946 EXIT. DTSCS21 02947 DTSCS21 02948 DTSCS21 02949 DTSCS21 02950 S082-OP-ID-LOOKUP. DTSCS21 02951 EXEC CICS LINK DTSCS21 02952 PROGRAM('DTSCU082') DTSCS21 02953 COMMAREA(L082-COMM-AREA) DTSCS21 02954 END-EXEC. DTSCS21 02955 DTSCS21 02956 IF L082-FILE-CLOSED DTSCS21 02957 MOVE L082-MSG-AREA TO LCCM-MSG-AREA DTSCS21 02958 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS21 02959 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS21 02960 GO TO MAINLINE-EXIT. DTSCS21 02961 S082-EXIT. DTSCS21 02962 EXIT. DTSCS21 02963 DTSCS21 02964 DTSCS21 02965 DTSCS21 02966 S357-LINK-PRINT. DTSCS21 02967 SET L357-EJECT-PAGE-88 TO TRUE. DTSCS21 02968 DTSCS21 02969 EXEC CICS DTSCS21 02970 LINK DTSCS21 02971 PROGRAM ('DTSCU357') DTSCS21 02972 COMMAREA (L357-COMM-AREA) DTSCS21 02973 END-EXEC. DTSCS21 02974 S357-EXIT. DTSCS21 02975 EXIT. DTSCS21 02976 DTSCS21 02977 DTSCS21 02978 DTSCS21 02979 S373-ADD-HDR. DTSCS21 02980 EXEC CICS LINK DTSCS21 02981 PROGRAM ('DTSCU373') DTSCS21 02982 COMMAREA (L373-COMM-AREA) DTSCS21 02983 END-EXEC. DTSCS21 02984 DTSCS21 02985 IF L373-FILE-CLOSED DTSCS21 02986 MOVE L373-MSG-AREA TO LCCM-MSG-AREA DTSCS21 02987 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS21 02988 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS21 02989 GO TO MAINLINE-EXIT. DTSCS21 02990 S373-EXIT. DTSCS21 02991 EXIT. DTSCS21 02992 DTSCS21 02993 DTSCS21 02994 DTSCS21 02995 S803-REQ-SCR-ID-EDIT. DTSCS21 02996 EXEC CICS LINK DTSCS21 02997 PROGRAM ('DTSCU803') DTSCS21 02998 COMMAREA (DFHCOMMAREA) DTSCS21 02999 END-EXEC. DTSCS21 03000 S803-EXIT. DTSCS21 03001 EXIT. DTSCS21 03002 DTSCS21 03003 DTSCS21 03004 DTSCS21 03005 S804-INVALID-KEY. DTSCS21 03006 EXEC CICS LINK DTSCS21 03007 PROGRAM ('DTSCU804') DTSCS21 03008 COMMAREA (DFHCOMMAREA) DTSCS21 03009 END-EXEC. DTSCS21 03010 S804-EXIT. DTSCS21 03011 EXIT. DTSCS21 03012 DTSCS21 03013 DTSCS21 03014 DTSCS21 03015 S805-MSG-AREA. DTSCS21 03016 MOVE LCCM-MSG-AREA TO L805-MSG-AREA DTSCS21 03017 DTSCS21 03018 EXEC CICS LINK DTSCS21 03019 PROGRAM ('DTSCU805') DTSCS21 03020 COMMAREA (L805-COMM-AREA) DTSCS21 03021 END-EXEC. DTSCS21 03022 DTSCS21 03023 MOVE L805-S-MSG-AREA TO MAP-MSG-AREA. DTSCS21 03024 S805-EXIT. DTSCS21 03025 EXIT. DTSCS21 03026 DTSCS21 03027 DTSCS21 03028 DTSCS21 03029 S823-READ. DTSCS21 03030 SET L823-READ-88 TO TRUE. DTSCS21 03031 GO TO S823-IO. DTSCS21 03032 DTSCS21 03033 S823-START-BROWSE. DTSCS21 03034 SET L823-START-BROWSE-88 TO TRUE. DTSCS21 03035 GO TO S823-IO. DTSCS21 03036 DTSCS21 03037 S823-READ-NEXT. DTSCS21 03038 SET L823-READ-NEXT-88 TO TRUE. DTSCS21 03039 GO TO S823-IO. DTSCS21 03040 DTSCS21 03041 S823-READ-PREV. DTSCS21 03042 SET L823-READ-PREV-88 TO TRUE. DTSCS21 03043 GO TO S823-IO. DTSCS21 03044 DTSCS21 03045 S823-END-BROWSE. DTSCS21 03046 SET L823-END-BROWSE-88 TO TRUE. DTSCS21 03047 GO TO S823-IO. DTSCS21 03048 DTSCS21 03049 S823-REWRITE. DTSCS21 03050 SET L823-REWRITE-88 TO TRUE. DTSCS21 03051 GO TO S823-IO. DTSCS21 03052 DTSCS21 03053 S823-WRITE. DTSCS21 03054 SET L823-WRITE-88 TO TRUE. DTSCS21 03055 GO TO S823-IO. DTSCS21 03056 DTSCS21 03057 S823-DELETE. DTSCS21 03058 SET L823-DELETE-88 TO TRUE. DTSCS21 03059 GO TO S823-IO. DTSCS21 03060 DTSCS21 03061 S823-IO. DTSCS21 03062 EXEC CICS LINK DTSCS21 03063 PROGRAM ('DTSCU823') DTSCS21 03064 COMMAREA (L823-COMM-AREA) DTSCS21 03065 END-EXEC. DTSCS21 03066 DTSCS21 03067 IF L823-FILE-CLOSED-88 DTSCS21 03068 MOVE L823-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03069 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS21 03070 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS21 03071 GO TO MAINLINE-EXIT. DTSCS21 03072 S823-EXIT. DTSCS21 03073 EXIT. DTSCS21 03074 DTSCS21 03075 S825-WRITE. DTSCS21 03076 SET L825-WRITE-88 TO TRUE. DTSCS21 03077 GO TO S825-O. DTSCS21 03078 DTSCS21 03079 S825-O. DTSCS21 03080 DTSCS21 03081 EXEC CICS LINK DTSCS21 03082 PROGRAM ('DTSCU825') DTSCS21 03083 COMMAREA (L825-COMM-AREA) DTSCS21 03084 END-EXEC. DTSCS21 03085 DTSCS21 03086 IF L825-FILE-CLOSED-88 DTSCS21 03087 MOVE L825-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03088 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS21 03089 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS21 03090 GO TO MAINLINE-EXIT. DTSCS21 03091 S825-EXIT. DTSCS21 03092 EXIT. DTSCS21 03093 DTSCS21 03094 S826-WRITE-ATH. DTSCS21 03095 MOVE LOW-VALUES TO AATH-REC. DTSCS21 03096 DTSCS21 03097 MOVE WRK-BATCH-NO-1 TO AATH-BATCH-NO. DTSCS21 03098 MOVE +0 TO AATH-ITEM-NO. DTSCS21 03099 MOVE AHDR-DATA-AREA TO AATH-DATA-AREA. DTSCS21 03100 MOVE LCCM-OP-ID TO AATH-OP-ID. DTSCS21 03101 MOVE ZERO TO AATH-DATE DTSCS21 03102 AATH-TIME. DTSCS21 03103 MOVE WRK-AATH-ACTION TO AATH-ACTION. DTSCS21 03104 DTSCS21 03105 EXEC CICS LINK DTSCS21 03106 PROGRAM ('DTSCU826') DTSCS21 03107 COMMAREA (L826-COMM-AREA) DTSCS21 03108 END-EXEC. DTSCS21 03109 DTSCS21 03110 IF L826-FILE-CLOSED-88 DTSCS21 03111 MOVE L826-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03112 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS21 03113 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS21 03114 GO TO MAINLINE-EXIT. DTSCS21 03115 DTSCS21 03116 S826-EXIT. DTSCS21 03117 EXIT. DTSCS21 03118 DTSCS21 03119 DTSCS21 03120 S829-DELETE-QUEUE. DTSCS21 03121 SET L829-DELETE-QUEUE-88 TO TRUE. DTSCS21 03122 GO TO S829-TS-IO. DTSCS21 03123 DTSCS21 03124 S829-WRITE-ITEM. DTSCS21 03125 SET L829-WRITE-88 TO TRUE. DTSCS21 03126 GO TO S829-TS-IO. DTSCS21 03127 DTSCS21 03128 S829-TS-IO. DTSCS21 03129 EXEC CICS DTSCS21 03130 LINK DTSCS21 03131 PROGRAM ('DTSCU829') DTSCS21 03132 COMMAREA (L829-COMM-AREA) DTSCS21 03133 END-EXEC. DTSCS21 03134 S829-EXIT. DTSCS21 03135 EXIT. DTSCS21 03136 DTSCS21 03137 DTSCS21 03138 S851-SCREEN-PROCESSING. DTSCS21 03139 EXEC CICS LINK DTSCS21 03140 PROGRAM ('DTSCU851') DTSCS21 03141 COMMAREA (L851-COMM-AREA) DTSCS21 03142 END-EXEC. DTSCS21 03143 S851-EXIT. DTSCS21 03144 EXIT. DTSCS21 03145 DTSCS21 03146 DTSCS21 03147 S880-START-BROWSE. DTSCS21 03148 SET L880-START-BROWSE-88 TO TRUE. DTSCS21 03149 GO TO S880-WAGE-IO. DTSCS21 03150 DTSCS21 03151 S880-READ-NEXT. DTSCS21 03152 SET L880-READ-NEXT-88 TO TRUE. DTSCS21 03153 GO TO S880-WAGE-IO. DTSCS21 03154 DTSCS21 03155 S880-END-BROWSE. DTSCS21 03156 SET L880-END-BROWSE-88 TO TRUE. DTSCS21 03157 GO TO S880-WAGE-IO. DTSCS21 03158 DTSCS21 03159 S880-DELETE. DTSCS21 03160 SET L880-DELETE-88 TO TRUE. DTSCS21 03161 GO TO S880-WAGE-IO. DTSCS21 03162 DTSCS21 03163 S880-WAGE-IO. DTSCS21 03164 EXEC CICS LINK DTSCS21 03165 PROGRAM ('DTSCU880') DTSCS21 03166 COMMAREA (L880-COMM-AREA) DTSCS21 03167 END-EXEC. DTSCS21 03168 DTSCS21 03169 IF L880-FILE-CLOSED-88 DTSCS21 03170 MOVE L880-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03171 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS21 03172 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS21 03173 GO TO MAINLINE-EXIT. DTSCS21 03174 S880-EXIT. DTSCS21 03175 EXIT. DTSCS21 03176 DTSCS21 03177 DTSCS21 03178 DTSCS21 03179 S899-ABEND. DTSCS21 03180 EXEC CICS ABEND DTSCS21 03181 ABCODE(WRK-ABEND-CD) DTSCS21 03182 END-EXEC. DTSCS21 03183 S899-EXIT. DTSCS21 03184 EXIT. DTSCS21 03185 /*****************************************************************DTSCS21 03186 * EDIT THE INFORMATION ON THE SCREEN. *DTSCS21 03187 ******************************************************************DTSCS21 03188 DTSCS21 03189 S1000-SCREEN-EDITS. DTSCS21 03190 PERFORM S1200-CONTROL-REMIT-AMT THRU S1200-EXIT. DTSCS21 03191 DTSCS21 03192 PERFORM S1300-CONTROL-TRAN-CNT THRU S1300-EXIT. DTSCS21 03193 DTSCS21 03194 PERFORM S1400-BATCH-HELD-IND THRU S1400-EXIT. DTSCS21 03195 DTSCS21 03196 PERFORM S1500-RECEIVED-DATE THRU S1500-EXIT. DTSCS21 03197 DTSCS21 03198 PERFORM S1600-DEPOSIT-DATE THRU S1600-EXIT. DTSCS21 03199 DTSCS21 03200 PERFORM S1700-MAP-PRINTER-ID THRU S1700-EXIT. DTSCS21 03201 DTSCS21 03202 PERFORM S1800-ANNUAL-BATCH-IND THRU S1800-EXIT. DTSCS21 03203 DTSCS21 03204 PERFORM S1900-BANK-BATCH-NO THRU S1900-EXIT. DTSCS21 03205 DTSCS21 03206 PERFORM S1950-DEPOSIT-ID THRU S1950-EXIT. DTSCS21 03207 DTSCS21 03208 DTSCS21 03209 IF LCCM-F06-88 DTSCS21 03210 PERFORM S2000-DEPOSIT-TKT THRU S2000-EXIT DTSCS21 03211 END-IF. DTSCS21 03212 DTSCS21 03213 DTSCS21 03214 S1000-EXIT. DTSCS21 03215 EXIT. DTSCS21 03216 EJECT DTSCS21 03217 S1100-EDIT-KEY. DTSCS21 03218 SET WRK-BATCH-NO-1-NO-ENTRY TO TRUE. DTSCS21 03219 DTSCS21 03220 SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE. DTSCS21 03221 DTSCS21 03222 PERFORM S1110-BATCH-NO-1 THRU S1110-EXIT. DTSCS21 03223 DTSCS21 03224 PERFORM S1120-BATCH-NO-2 THRU S1120-EXIT. DTSCS21 03225 S1100-EXIT. DTSCS21 03226 EXIT. DTSCS21 03227 /*****************************************************************DTSCS21 03228 * DTSCS21 03229 ******************************************************************DTSCS21 03230 S1110-BATCH-NO-1. DTSCS21 03231 MOVE MAP-BATCH-NO-1-AREA TO L019-S-BATCH-NO-AREA. DTSCS21 03232 DTSCS21 03233 MOVE SPACES TO L019-S-ITEM-NO-AREA. DTSCS21 03234 DTSCS21 03235 PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT. DTSCS21 03236 DTSCS21 03237 DTSCS21 03238 IF L019-NO-ENTRY DTSCS21 03239 IF LCCM-F09-88 DTSCS21 03240 OR LCCM-F07-88 DTSCS21 03241 OR LCCM-F08-88 DTSCS21 03242 MOVE 0 TO WRK-BATCH-NO-1 DTSCS21 03243 GO TO S1110-EXIT DTSCS21 03244 ELSE DTSCS21 03245 SET WRK-BATCH-NO-1-NO-ENTRY TO TRUE DTSCS21 03246 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03247 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 03248 GO TO S1110-EXIT. DTSCS21 03249 DTSCS21 03250 DTSCS21 03251 IF L019-NOT-VALID DTSCS21 03252 IF LCCM-F09-88 DTSCS21 03253 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS21 03254 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 03255 GO TO S1110-EXIT DTSCS21 03256 ELSE DTSCS21 03257 SET WRK-BATCH-NO-1-NOT-VALID TO TRUE DTSCS21 03258 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03259 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 03260 GO TO S1110-EXIT. DTSCS21 03261 DTSCS21 03262 DTSCS21 03263 IF LCCM-F09-88 DTSCS21 03264 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS21 03265 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 03266 GO TO S1110-EXIT. DTSCS21 03267 DTSCS21 03268 DTSCS21 03269 SET WRK-BATCH-NO-1-VALID TO TRUE. DTSCS21 03270 DTSCS21 03271 MOVE L019-BATCH-NO TO WRK-BATCH-NO-1. DTSCS21 03272 S1110-EXIT. DTSCS21 03273 EXIT. DTSCS21 03274 DTSCS21 03275 DTSCS21 03276 DTSCS21 03277 S1111-ERROR. DTSCS21 03278 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A. DTSCS21 03279 DTSCS21 03280 IF LCCM-NO-MSG DTSCS21 03281 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03282 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03283 SET CURSOR-SET-YES TO TRUE. DTSCS21 03284 S1111-EXIT. DTSCS21 03285 EXIT. DTSCS21 03286 /*****************************************************************DTSCS21 03287 * DTSCS21 03288 ******************************************************************DTSCS21 03289 S1120-BATCH-NO-2. DTSCS21 03290 MOVE MAP-BATCH-NO-2-AREA TO L019-S-BATCH-NO-AREA. DTSCS21 03291 DTSCS21 03292 MOVE SPACES TO L019-S-ITEM-NO-AREA. DTSCS21 03293 DTSCS21 03294 PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT. DTSCS21 03295 DTSCS21 03296 DTSCS21 03297 IF L019-NO-ENTRY DTSCS21 03298 IF LCCM-F09-88 DTSCS21 03299 OR LCCM-F10-88 DTSCS21 03300 OR LCCM-F23-88 DTSCS21 03301 OR LCCM-F06-88 DTSCS21 03302 GO TO S1120-EXIT DTSCS21 03303 ELSE DTSCS21 03304 MOVE WRK-BATCH-NO-1-AREA TO WRK-BATCH-NO-2-AREA DTSCS21 03305 SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE DTSCS21 03306 GO TO S1120-EXIT. DTSCS21 03307 DTSCS21 03308 DTSCS21 03309 IF LCCM-F09-88 DTSCS21 03310 OR LCCM-F10-88 DTSCS21 03311 OR LCCM-F23-88 DTSCS21 03312 OR LCCM-F06-88 DTSCS21 03313 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS21 03314 PERFORM S1121-ERROR THRU S1121-EXIT DTSCS21 03315 GO TO S1120-EXIT. DTSCS21 03316 DTSCS21 03317 DTSCS21 03318 IF L019-NOT-VALID DTSCS21 03319 SET WRK-BATCH-NO-2-NOT-VALID TO TRUE DTSCS21 03320 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03321 PERFORM S1121-ERROR THRU S1121-EXIT DTSCS21 03322 GO TO S1120-EXIT. DTSCS21 03323 DTSCS21 03324 DTSCS21 03325 IF WRK-BATCH-NO-1-VALID DTSCS21 03326 IF WRK-BATCH-NO-1 = WRK-BATCH-NO-2 DTSCS21 03327 SET WRK-BATCH-NO-2-NO-ENTRY TO TRUE DTSCS21 03328 GO TO S1120-EXIT. DTSCS21 03329 DTSCS21 03330 DTSCS21 03331 SET WRK-BATCH-NO-2-VALID TO TRUE. DTSCS21 03332 DTSCS21 03333 MOVE L019-BATCH-NO TO WRK-BATCH-NO-2. DTSCS21 03334 DTSCS21 03335 DTSCS21 03336 IF WRK-BATCH-NO-1-VALID DTSCS21 03337 IF WRK-BATCH-NO-1 > WRK-BATCH-NO-2 DTSCS21 03338 MOVE EMSG-CROSS-EDIT TO WRK-MSG-AREA DTSCS21 03339 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS21 03340 PERFORM S1121-ERROR THRU S1121-EXIT DTSCS21 03341 GO TO S1120-EXIT. DTSCS21 03342 DTSCS21 03343 S1120-EXIT. DTSCS21 03344 EXIT. DTSCS21 03345 DTSCS21 03346 DTSCS21 03347 DTSCS21 03348 S1121-ERROR. DTSCS21 03349 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-2-A DTSCS21 03350 DTSCS21 03351 IF LCCM-NO-MSG DTSCS21 03352 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03353 MOVE CATB-CURSOR TO MAP-BATCH-NO-2-L DTSCS21 03354 SET CURSOR-SET-YES TO TRUE. DTSCS21 03355 S1121-EXIT. DTSCS21 03356 EXIT. DTSCS21 03357 /*****************************************************************DTSCS21 03358 * *DTSCS21 03359 ******************************************************************DTSCS21 03360 S1200-CONTROL-REMIT-AMT. DTSCS21 03361 MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA. DTSCS21 03362 DTSCS21 03363 PERFORM S011-REMIT-AMT THRU S011-EXIT. DTSCS21 03364 DTSCS21 03365 IF L011-NO-ENTRY DTSCS21 03366 *** MOVE +0 TO MAP-CONTROL-REMIT-AMT-N DTSCS21 03367 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03368 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS21 03369 ELSE DTSCS21 03370 IF L011-VALID DTSCS21 03371 MOVE L011-AMT TO MAP-CONTROL-REMIT-AMT-N DTSCS21 03372 ELSE DTSCS21 03373 IF L011-INVALID-NEGATIVE DTSCS21 03374 MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA DTSCS21 03375 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS21 03376 ELSE DTSCS21 03377 IF L011-EXCEEDS-MIN-MAX DTSCS21 03378 MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA DTSCS21 03379 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS21 03380 ELSE DTSCS21 03381 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03382 PERFORM S1201-ERROR THRU S1201-EXIT. DTSCS21 03383 S1200-EXIT. DTSCS21 03384 EXIT. DTSCS21 03385 DTSCS21 03386 DTSCS21 03387 DTSCS21 03388 S1201-ERROR. DTSCS21 03389 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS21 03390 TO MAP-CONTROL-REMIT-AMT-A. DTSCS21 03391 DTSCS21 03392 IF LCCM-NO-MSG DTSCS21 03393 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03394 MOVE CATB-CURSOR TO MAP-CONTROL-REMIT-AMT-L DTSCS21 03395 SET CURSOR-SET-YES TO TRUE. DTSCS21 03396 S1201-EXIT. DTSCS21 03397 EXIT. DTSCS21 03398 /*****************************************************************DTSCS21 03399 * *DTSCS21 03400 ******************************************************************DTSCS21 03401 S1300-CONTROL-TRAN-CNT. DTSCS21 03402 MOVE MAP-CONTROL-TRAN-CNT-AREA TO L013-S-CNT-AREA. DTSCS21 03403 DTSCS21 03404 PERFORM S013-TRAN-CNT THRU S013-EXIT. DTSCS21 03405 DTSCS21 03406 IF L013-NO-ENTRY DTSCS21 03407 *** MOVE +0 TO MAP-CONTROL-TRAN-CNT-N DTSCS21 03408 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03409 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS21 03410 ELSE DTSCS21 03411 IF L013-VALID DTSCS21 03412 MOVE L013-CNT TO MAP-CONTROL-TRAN-CNT-N DTSCS21 03413 ELSE DTSCS21 03414 IF L013-INVALID-NEGATIVE DTSCS21 03415 MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA DTSCS21 03416 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS21 03417 ELSE DTSCS21 03418 IF L013-EXCEEDS-MIN-MAX DTSCS21 03419 MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA DTSCS21 03420 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS21 03421 ELSE DTSCS21 03422 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03423 PERFORM S1301-ERROR THRU S1301-EXIT. DTSCS21 03424 S1300-EXIT. DTSCS21 03425 EXIT. DTSCS21 03426 DTSCS21 03427 DTSCS21 03428 DTSCS21 03429 S1301-ERROR. DTSCS21 03430 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS21 03431 TO MAP-CONTROL-TRAN-CNT-A. DTSCS21 03432 DTSCS21 03433 IF LCCM-NO-MSG DTSCS21 03434 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03435 MOVE CATB-CURSOR TO MAP-CONTROL-TRAN-CNT-L DTSCS21 03436 SET CURSOR-SET-YES TO TRUE. DTSCS21 03437 S1301-EXIT. DTSCS21 03438 EXIT. DTSCS21 03439 /*****************************************************************DTSCS21 03440 * *DTSCS21 03441 ******************************************************************DTSCS21 03442 S1400-BATCH-HELD-IND. DTSCS21 03443 IF MAP-BATCH-HELD-IND = LOW-VALUES OR SPACE DTSCS21 03444 SET MAP-BATCH-HELD-NO-88 TO TRUE DTSCS21 03445 ELSE DTSCS21 03446 IF NOT MAP-BATCH-HELD-VALID-88 DTSCS21 03447 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03448 PERFORM S1401-ERROR THRU S1401-EXIT. DTSCS21 03449 S1400-EXIT. DTSCS21 03450 EXIT. DTSCS21 03451 DTSCS21 03452 DTSCS21 03453 DTSCS21 03454 S1401-ERROR. DTSCS21 03455 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCS21 03456 TO MAP-BATCH-HELD-IND-A. DTSCS21 03457 DTSCS21 03458 IF LCCM-NO-MSG DTSCS21 03459 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03460 MOVE CATB-CURSOR TO MAP-BATCH-HELD-IND-L DTSCS21 03461 SET CURSOR-SET-YES TO TRUE. DTSCS21 03462 S1401-EXIT. DTSCS21 03463 EXIT. DTSCS21 03464 /*****************************************************************DTSCS21 03465 * *DTSCS21 03466 ******************************************************************DTSCS21 03467 S1500-RECEIVED-DATE. DTSCS21 03468 MOVE MAP-RECEIVED-DATE-AREA TO L015-S-DATE-AREA. DTSCS21 03469 DTSCS21 03470 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS21 03471 DTSCS21 03472 IF L015-NO-ENTRY DTSCS21 03473 IF LCCM-F09-88 DTSCS21 03474 GO TO S1500-EXIT DTSCS21 03475 ELSE DTSCS21 03476 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03477 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS21 03478 GO TO S1500-EXIT DTSCS21 03479 ELSE DTSCS21 03480 IF L015-NOT-VALID DTSCS21 03481 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03482 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS21 03483 GO TO S1500-EXIT. DTSCS21 03484 DTSCS21 03485 IF L015-DATE > LCCM-CURR-RUN-DATE DTSCS21 03486 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03487 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS21 03488 GO TO S1500-EXIT. DTSCS21 03489 DTSCS21 03490 MOVE LCCM-CURR-RUN-DATE TO L001-FED-8-DATE-9. DTSCS21 03491 DTSCS21 03492 SUBTRACT 1 FROM L001-FED-8-YR. DTSCS21 03493 DTSCS21 03494 IF L015-DATE < L001-FED-8-DATE-9 DTSCS21 03495 IF SCR-ACCESS-SUPERVISOR DTSCS21 03496 NEXT SENTENCE DTSCS21 03497 ELSE DTSCS21 03498 MOVE MSG-E223-AREA TO WRK-MSG-AREA DTSCS21 03499 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS21 03500 GO TO S1500-EXIT DTSCS21 03501 END-IF DTSCS21 03502 END-IF. DTSCS21 03503 DTSCS21 03504 S1500-EXIT. DTSCS21 03505 EXIT. DTSCS21 03506 DTSCS21 03507 DTSCS21 03508 DTSCS21 03509 S1501-ERROR. DTSCS21 03510 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-RECEIVED-DATE-MO-A DTSCS21 03511 MAP-RECEIVED-DATE-DA-A DTSCS21 03512 MAP-RECEIVED-DATE-YR-A. DTSCS21 03513 DTSCS21 03514 IF LCCM-NO-MSG DTSCS21 03515 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03516 MOVE CATB-CURSOR TO MAP-RECEIVED-DATE-MO-L DTSCS21 03517 SET CURSOR-SET-YES TO TRUE. DTSCS21 03518 S1501-EXIT. DTSCS21 03519 EXIT. DTSCS21 03520 /*****************************************************************DTSCS21 03521 * *DTSCS21 03522 ******************************************************************DTSCS21 03523 S1600-DEPOSIT-DATE. DTSCS21 03524 MOVE MAP-DEPOSIT-DATE-AREA TO L015-S-DATE-AREA. DTSCS21 03525 DTSCS21 03526 PERFORM S015-DATE-FROM-SCREEN THRU S015-EXIT. DTSCS21 03527 DTSCS21 03528 IF L015-NO-ENTRY DTSCS21 03529 IF LCCM-F09-88 DTSCS21 03530 GO TO S1600-EXIT DTSCS21 03531 ELSE DTSCS21 03532 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03533 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS21 03534 GO TO S1600-EXIT DTSCS21 03535 ELSE DTSCS21 03536 IF L015-NOT-VALID DTSCS21 03537 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03538 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS21 03539 GO TO S1600-EXIT. DTSCS21 03540 DTSCS21 03541 IF L015-DATE > LCCM-NEXT-RUN-DATE DTSCS21 03542 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03543 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS21 03544 GO TO S1600-EXIT. DTSCS21 03545 DTSCS21 03546 MOVE LCCM-NEXT-RUN-DATE TO L001-FED-8-DATE-9. DTSCS21 03547 DTSCS21 03548 SUBTRACT 1 FROM L001-FED-8-YR. DTSCS21 03549 DTSCS21 03550 IF L015-DATE < L001-FED-8-DATE-9 DTSCS21 03551 IF SCR-ACCESS-SUPERVISOR DTSCS21 03552 NEXT SENTENCE DTSCS21 03553 ELSE DTSCS21 03554 MOVE MSG-E223-AREA TO WRK-MSG-AREA DTSCS21 03555 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS21 03556 GO TO S1600-EXIT DTSCS21 03557 END-IF DTSCS21 03558 END-IF. DTSCS21 03559 DTSCS21 03560 S1600-EXIT. DTSCS21 03561 EXIT. DTSCS21 03562 DTSCS21 03563 DTSCS21 03564 DTSCS21 03565 S1601-ERROR. DTSCS21 03566 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS21 03567 TO MAP-DEPOSIT-DATE-MO-A DTSCS21 03568 MAP-DEPOSIT-DATE-DA-A DTSCS21 03569 MAP-DEPOSIT-DATE-YR-A. DTSCS21 03570 DTSCS21 03571 IF LCCM-NO-MSG DTSCS21 03572 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03573 MOVE CATB-CURSOR TO MAP-DEPOSIT-DATE-MO-L DTSCS21 03574 SET CURSOR-SET-YES TO TRUE. DTSCS21 03575 S1601-EXIT. DTSCS21 03576 EXIT. DTSCS21 03577 /*****************************************************************DTSCS21 03578 * *DTSCS21 03579 ******************************************************************DTSCS21 03580 S1700-MAP-PRINTER-ID. DTSCS21 03581 IF MAP-PRINTER-ID EQUAL LOW-VALUES OR SPACES DTSCS21 03582 IF LCCM-NO-PRINTER DTSCS21 03583 IF LCCM-F05-88 DTSCS21 03584 OR LCCM-F06-88 DTSCS21 03585 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03586 PERFORM S1701-ERROR THRU S1701-EXIT DTSCS21 03587 ELSE DTSCS21 03588 CONTINUE DTSCS21 03589 ELSE DTSCS21 03590 MOVE LCCM-PRINTER-ID TO MAP-PRINTER-ID DTSCS21 03591 ELSE DTSCS21 03592 MOVE MAP-PRINTER-ID TO LCCM-PRINTER-ID. DTSCS21 03593 S1700-EXIT. DTSCS21 03594 EXIT. DTSCS21 03595 DTSCS21 03596 DTSCS21 03597 DTSCS21 03598 S1701-ERROR. DTSCS21 03599 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCS21 03600 TO MAP-PRINTER-ID-A. DTSCS21 03601 DTSCS21 03602 IF LCCM-NO-MSG DTSCS21 03603 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03604 MOVE CATB-CURSOR TO MAP-PRINTER-ID-L DTSCS21 03605 SET CURSOR-SET-YES TO TRUE. DTSCS21 03606 S1701-EXIT. EXIT. DTSCS21 03607 DTSCS21 03608 /*****************************************************************DTSCS21 03609 * *DTSCS21 03610 ******************************************************************DTSCS21 03611 S1800-ANNUAL-BATCH-IND. DTSCS21 03612 IF MAP-ANNUAL-BATCH-IND = LOW-VALUES OR SPACE DTSCS21 03613 SET MAP-ANNUAL-BATCH-NO-88 TO TRUE DTSCS21 03614 ELSE DTSCS21 03615 IF LCCM-F09-88 DTSCS21 03616 IF NOT MAP-ANNUAL-BATCH-VALID-88 DTSCS21 03617 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03618 PERFORM S1801-ERROR THRU S1801-EXIT. DTSCS21 03619 DTSCS21 03620 S1800-EXIT. EXIT. DTSCS21 03621 DTSCS21 03622 S1801-ERROR. DTSCS21 03623 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCS21 03624 TO MAP-ANNUAL-BATCH-A. DTSCS21 03625 DTSCS21 03626 IF LCCM-NO-MSG DTSCS21 03627 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03628 MOVE CATB-CURSOR TO MAP-ANNUAL-BATCH-L DTSCS21 03629 SET CURSOR-SET-YES TO TRUE. DTSCS21 03630 S1801-EXIT. EXIT. DTSCS21 03631 DTSCS21 03632 S1900-BANK-BATCH-NO. DTSCS21 03633 MOVE MAP-BANK-BATCH-AREA TO L013-S-CNT-AREA. DTSCS21 03634 DTSCS21 03635 PERFORM S013-BANK-BATCH-NO THRU S013-EXIT. DTSCS21 03636 DTSCS21 03637 EVALUATE TRUE DTSCS21 03638 WHEN L013-NO-ENTRY DTSCS21 03639 IF LCCM-OP-ID (1:4) = 'TDEC' DTSCS21 03640 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03641 PERFORM S1901-ERROR THRU S1901-EXIT DTSCS21 03642 ELSE DTSCS21 03643 MOVE +0 TO MAP-BANK-BATCH-N DTSCS21 03644 END-IF DTSCS21 03645 DTSCS21 03646 WHEN L013-VALID DTSCS21 03647 MOVE L013-CNT TO MAP-BANK-BATCH-N DTSCS21 03648 DTSCS21 03649 WHEN L013-INVALID-NEGATIVE DTSCS21 03650 MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA DTSCS21 03651 PERFORM S1901-ERROR THRU S1901-EXIT DTSCS21 03652 DTSCS21 03653 WHEN L013-EXCEEDS-MIN-MAX DTSCS21 03654 MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA DTSCS21 03655 PERFORM S1901-ERROR THRU S1901-EXIT DTSCS21 03656 DTSCS21 03657 WHEN OTHER DTSCS21 03658 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03659 PERFORM S1901-ERROR THRU S1901-EXIT DTSCS21 03660 END-EVALUATE. DTSCS21 03661 S1900-EXIT. DTSCS21 03662 EXIT. DTSCS21 03663 DTSCS21 03664 S1901-ERROR. DTSCS21 03665 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS21 03666 TO MAP-BANK-BATCH-A. DTSCS21 03667 DTSCS21 03668 IF LCCM-NO-MSG DTSCS21 03669 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03670 MOVE CATB-CURSOR TO MAP-BANK-BATCH-L DTSCS21 03671 SET CURSOR-SET-YES TO TRUE. DTSCS21 03672 S1901-EXIT. DTSCS21 03673 EXIT. DTSCS21 03674 DTSCS21 03675 S1950-DEPOSIT-ID. DTSCS21 03676 MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA. DTSCS21 03677 PERFORM S011-REMIT-AMT THRU S011-EXIT. DTSCS21 03678 DTSCS21 03679 MOVE MAP-DEPOSIT-ID-AREA TO L013-S-CNT-AREA. DTSCS21 03680 DTSCS21 03681 PERFORM S013-DEPOSIT-ID THRU S013-EXIT. DTSCS21 03682 DTSCS21 03683 EVALUATE TRUE DTSCS21 03684 WHEN L013-NO-ENTRY DTSCS21 03685 MOVE +0 TO MAP-DEPOSIT-ID-N DTSCS21 03686 ** IF L011-AMT > 0 DTSCS21 03687 * IF WRK-BATCH-NO-1 > 69787 DTSCS21 03688 * AND LCCM-OP-ID (1:4) = 'TDEC' DTSCS21 03689 * MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS21 03690 * PERFORM S1951-ERROR THRU S1951-EXIT DTSCS21 03691 * ELSE DTSCS21 03692 * MOVE +0 TO MAP-DEPOSIT-ID-N DTSCS21 03693 * END-IF DTSCS21 03694 ** END-IF DTSCS21 03695 DTSCS21 03696 WHEN L013-VALID DTSCS21 03697 MOVE L013-CNT TO WRK-DEPOSIT-ID DTSCS21 03698 MOVE WRK-DEPOSIT-ID TO MAP-DEPOSIT-ID-N DTSCS21 03699 DTSCS21 03700 ** WHEN L013-VALID DTSCS21 03701 * IF L011-AMT NOT > 0 DTSCS21 03702 * MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-AREA DTSCS21 03703 * PERFORM S1951-ERROR THRU S1951-EXIT DTSCS21 03704 * MOVE +0 TO MAP-DEPOSIT-ID-N DTSCS21 03705 * ELSE DTSCS21 03706 * MOVE L013-CNT TO WRK-DEPOSIT-ID DTSCS21 03707 * MOVE WRK-DEPOSIT-ID TO MAP-DEPOSIT-ID-N DTSCS21 03708 ** END-IF DTSCS21 03709 DTSCS21 03710 WHEN L013-INVALID-NEGATIVE DTSCS21 03711 MOVE EMSG-INVALID-NEGATIVE TO WRK-MSG-AREA DTSCS21 03712 PERFORM S1951-ERROR THRU S1951-EXIT DTSCS21 03713 DTSCS21 03714 WHEN L013-EXCEEDS-MIN-MAX DTSCS21 03715 MOVE EMSG-EXCEEDS-MIN-MAX TO WRK-MSG-AREA DTSCS21 03716 PERFORM S1951-ERROR THRU S1951-EXIT DTSCS21 03717 DTSCS21 03718 WHEN OTHER DTSCS21 03719 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS21 03720 PERFORM S1951-ERROR THRU S1951-EXIT DTSCS21 03721 END-EVALUATE. DTSCS21 03722 DTSCS21 03723 ** IF L013-VALID DTSCS21 03724 * IF (MAP-BANK-BATCH-N > ZERO DTSCS21 03725 * AND MAP-DEPOSIT-ID-N > ZERO) DTSCS21 03726 * MOVE MSG-E222-AREA TO LCCM-MSG-AREA DTSCS21 03727 * PERFORM S1951-ERROR THRU S1951-EXIT DTSCS21 03728 * PERFORM S1901-ERROR THRU S1901-EXIT DTSCS21 03729 * END-IF DTSCS21 03730 ** END-IF. DTSCS21 03731 DTSCS21 03732 S1950-EXIT. DTSCS21 03733 EXIT. DTSCS21 03734 DTSCS21 03735 S1951-ERROR. DTSCS21 03736 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS21 03737 TO MAP-DEPOSIT-ID-A. DTSCS21 03738 DTSCS21 03739 IF LCCM-NO-MSG DTSCS21 03740 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS21 03741 MOVE CATB-CURSOR TO MAP-DEPOSIT-ID-L DTSCS21 03742 SET CURSOR-SET-YES TO TRUE. DTSCS21 03743 S1951-EXIT. DTSCS21 03744 EXIT. DTSCS21 03745 DTSCS21 03746 DTSCS21 03747 S2000-DEPOSIT-TKT. DTSCS21 03748 PERFORM S2100-BATCH-HELD THRU S2100-EXIT. DTSCS21 03749 IF LCCM-MSG DTSCS21 03750 GO TO S2000-EXIT DTSCS21 03751 END-IF. DTSCS21 03752 DTSCS21 03753 PERFORM S2200-BATCH-BALANCED THRU S2200-EXIT. DTSCS21 03754 IF LCCM-MSG DTSCS21 03755 GO TO S2000-EXIT DTSCS21 03756 END-IF. DTSCS21 03757 DTSCS21 03758 PERFORM S2300-REMIT-AMT THRU S2300-EXIT. DTSCS21 03759 IF LCCM-MSG DTSCS21 03760 GO TO S2000-EXIT DTSCS21 03761 END-IF. DTSCS21 03762 DTSCS21 03763 PERFORM S2400-CHK-TRANSACTIONS THRU S2400-EXIT. DTSCS21 03764 DTSCS21 03765 S2000-EXIT. DTSCS21 03766 EXIT. DTSCS21 03767 DTSCS21 03768 S2100-BATCH-HELD. DTSCS21 03769 IF MAP-BATCH-HELD-YES-88 DTSCS21 03770 OR AHDR-BATCH-HELD-YES-88 DTSCS21 03771 MOVE MSG-E219-AREA TO LCCM-MSG-AREA DTSCS21 03772 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCS21 03773 TO MAP-BATCH-HELD-IND-A DTSCS21 03774 MOVE CATB-CURSOR TO MAP-BATCH-HELD-IND-L DTSCS21 03775 SET CURSOR-SET-YES TO TRUE DTSCS21 03776 END-IF. DTSCS21 03777 DTSCS21 03778 S2100-EXIT. DTSCS21 03779 EXIT. DTSCS21 03780 DTSCS21 03781 S2200-BATCH-BALANCED. DTSCS21 03782 IF AHDR-BATCH-BALANCED-NO-88 DTSCS21 03783 MOVE MSG-E218-AREA TO LCCM-MSG-AREA DTSCS21 03784 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03785 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03786 SET CURSOR-SET-YES TO TRUE DTSCS21 03787 END-IF. DTSCS21 03788 DTSCS21 03789 S2200-EXIT. DTSCS21 03790 EXIT. DTSCS21 03791 DTSCS21 03792 S2300-REMIT-AMT. DTSCS21 03793 MOVE MAP-CONTROL-REMIT-AMT-AREA TO L011-S-AMT-AREA. DTSCS21 03794 PERFORM S011-REMIT-AMT THRU S011-EXIT. DTSCS21 03795 IF L011-AMT NOT > ZERO DTSCS21 03796 MOVE MSG-E220-AREA TO LCCM-MSG-AREA DTSCS21 03797 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS21 03798 TO MAP-CONTROL-REMIT-AMT-A DTSCS21 03799 MOVE CATB-CURSOR TO MAP-CONTROL-REMIT-AMT-L DTSCS21 03800 END-IF. DTSCS21 03801 DTSCS21 03802 S2300-EXIT. DTSCS21 03803 EXIT. DTSCS21 03804 DTSCS21 03805 S2400-CHK-TRANSACTIONS. DTSCS21 03806 MOVE WRK-BATCH-NO-1 TO ASKL-BATCH-NO. DTSCS21 03807 DTSCS21 03808 MOVE +1 TO ASKL-ITEM-NO. DTSCS21 03809 DTSCS21 03810 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS21 03811 DTSCS21 03812 PERFORM DTSCS21 03813 UNTIL L823-NO-REC-88 DTSCS21 03814 IF ASKL-BATCH-NO NOT = WRK-BATCH-NO-1 DTSCS21 03815 SET L823-NO-REC-88 TO TRUE DTSCS21 03816 ELSE DTSCS21 03817 EVALUATE TRUE DTSCS21 03818 WHEN ASKL-PAY-88 DTSCS21 03819 MOVE ASKL-REC TO APAY-REC DTSCS21 03820 PERFORM S2410-CHECK-PAY THRU S2410-EXIT DTSCS21 03821 DTSCS21 03822 WHEN ASKL-RPT-88 DTSCS21 03823 MOVE ASKL-REC TO ARPT-REC DTSCS21 03824 PERFORM S2420-CHECK-RPT THRU S2420-EXIT DTSCS21 03825 DTSCS21 03826 WHEN ASKL-ATX-88 DTSCS21 03827 MOVE ASKL-REC TO AATX-REC DTSCS21 03828 PERFORM S2430-CHECK-ATX THRU S2430-EXIT DTSCS21 03829 DTSCS21 03830 WHEN OTHER DTSCS21 03831 MOVE MSG-E221-AREA TO LCCM-MSG-AREA DTSCS21 03832 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCS21 03833 TO MAP-BATCH-NO-1-A DTSCS21 03834 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03835 SET CURSOR-SET-YES TO TRUE DTSCS21 03836 END-EVALUATE DTSCS21 03837 PERFORM S823-READ-NEXT THRU S823-EXIT DTSCS21 03838 END-IF DTSCS21 03839 END-PERFORM. DTSCS21 03840 DTSCS21 03841 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS21 03842 DTSCS21 03843 S2400-EXIT. DTSCS21 03844 EXIT. DTSCS21 03845 DTSCS21 03846 S2410-CHECK-PAY. DTSCS21 03847 IF APAY-OR-PAY-88 DTSCS21 03848 OR APAY-PAYMENT-88 DTSCS21 03849 NEXT SENTENCE DTSCS21 03850 ELSE DTSCS21 03851 MOVE MSG-E221-AREA TO LCCM-MSG-AREA DTSCS21 03852 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03853 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03854 SET CURSOR-SET-YES TO TRUE DTSCS21 03855 GO TO S2410-EXIT DTSCS21 03856 END-IF. DTSCS21 03857 DTSCS21 03858 IF APAY-REMIT-AMT < ZERO DTSCS21 03859 MOVE MSG-E218-AREA TO LCCM-MSG-AREA DTSCS21 03860 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03861 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03862 SET CURSOR-SET-YES TO TRUE DTSCS21 03863 GO TO S2410-EXIT DTSCS21 03864 END-IF. DTSCS21 03865 DTSCS21 03866 S2410-EXIT. DTSCS21 03867 EXIT. DTSCS21 03868 DTSCS21 03869 S2420-CHECK-RPT. DTSCS21 03870 IF ARPT-WITHDRW-88 DTSCS21 03871 MOVE MSG-E221-AREA TO LCCM-MSG-AREA DTSCS21 03872 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03873 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03874 SET CURSOR-SET-YES TO TRUE DTSCS21 03875 GO TO S2420-EXIT DTSCS21 03876 END-IF. DTSCS21 03877 DTSCS21 03878 IF ARPT-REMIT-AMT-NO-ENTRY-88 DTSCS21 03879 MOVE MSG-E220-AREA TO LCCM-MSG-AREA DTSCS21 03880 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03881 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03882 SET CURSOR-SET-YES TO TRUE DTSCS21 03883 ELSE DTSCS21 03884 IF ARPT-REMIT-AMT < 0 DTSCS21 03885 MOVE MSG-E220-AREA TO LCCM-MSG-AREA DTSCS21 03886 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03887 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03888 SET CURSOR-SET-YES TO TRUE DTSCS21 03889 END-IF DTSCS21 03890 END-IF. DTSCS21 03891 DTSCS21 03892 S2420-EXIT. DTSCS21 03893 EXIT. DTSCS21 03894 DTSCS21 03895 S2430-CHECK-ATX. DTSCS21 03896 IF AATX-ORIG-88 DTSCS21 03897 OR AATX-SUPPLEM-88 DTSCS21 03898 NEXT SENTENCE DTSCS21 03899 ELSE DTSCS21 03900 MOVE MSG-E221-AREA TO LCCM-MSG-AREA DTSCS21 03901 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03902 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03903 SET CURSOR-SET-YES TO TRUE DTSCS21 03904 GO TO S2430-EXIT DTSCS21 03905 END-IF. DTSCS21 03906 DTSCS21 03907 IF AATX-REMIT-AMT-NO-ENTRY-88 DTSCS21 03908 MOVE MSG-E220-AREA TO LCCM-MSG-AREA DTSCS21 03909 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03910 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03911 SET CURSOR-SET-YES TO TRUE DTSCS21 03912 ELSE DTSCS21 03913 IF AATX-REMIT-AMT < 0 DTSCS21 03914 MOVE MSG-E220-AREA TO LCCM-MSG-AREA DTSCS21 03915 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03916 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L DTSCS21 03917 SET CURSOR-SET-YES TO TRUE DTSCS21 03918 END-IF DTSCS21 03919 END-IF. DTSCS21 03920 DTSCS21 03921 S2430-EXIT. DTSCS21 03922 EXIT. DTSCS21 03923 DTSCS21 03924 /*****************************************************************DTSCS21 03925 * LOCK SCREEN FOR UPDATE CONFIRMATION *DTSCS21 03926 ******************************************************************DTSCS21 03927 S5100-SET-LOCK-ATTRB. DTSCS21 03928 MOVE CATB-ASKIP-BRT-MDTON TO WRK-ATB-AN DTSCS21 03929 WRK-ATB-NUM. DTSCS21 03930 DTSCS21 03931 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS21 03932 DTSCS21 03933 MOVE CATB-ASKIP-BRT-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03934 MAP-BATCH-NO-2-A DTSCS21 03935 MAP-GOTO-A. DTSCS21 03936 S5100-EXIT. DTSCS21 03937 EXIT. DTSCS21 03938 DTSCS21 03939 DTSCS21 03940 DTSCS21 03941 ******************************************************************DTSCS21 03942 * SET ATTIBUTE BYTES FOR UPDATE ACCESS *DTSCS21 03943 ******************************************************************DTSCS21 03944 S5200-SET-UPDATE-ATTRB. DTSCS21 03945 MOVE CATB-UNPROT-BRT-AN-MDTON TO WRK-ATB-AN. DTSCS21 03946 DTSCS21 03947 MOVE CATB-UNPROT-BRT-NUM-MDTON TO WRK-ATB-NUM. DTSCS21 03948 DTSCS21 03949 DTSCS21 03950 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS21 03951 S5200-EXIT. DTSCS21 03952 EXIT. DTSCS21 03953 DTSCS21 03954 DTSCS21 03955 DTSCS21 03956 ******************************************************************DTSCS21 03957 * SET ATTRIBUTE BYTES FOR INQUIRY STATUS *DTSCS21 03958 ******************************************************************DTSCS21 03959 S5300-SET-INQ-ATTRB. DTSCS21 03960 MOVE CATB-ASKIP-BRT-MDTOFF TO WRK-ATB-AN DTSCS21 03961 WRK-ATB-NUM. DTSCS21 03962 DTSCS21 03963 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS21 03964 DTSCS21 03965 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-PRINTER-ID-A. DTSCS21 03966 S5300-EXIT. DTSCS21 03967 EXIT. DTSCS21 03968 DTSCS21 03969 DTSCS21 03970 DTSCS21 03971 S5900-SET-ATTRB. DTSCS21 03972 MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-BATCH-NO-1-A DTSCS21 03973 MAP-BATCH-NO-2-A. DTSCS21 03974 DTSCS21 03975 MOVE WRK-ATB-NUM DTSCS21 03976 TO MAP-BANK-BATCH-A. DTSCS21 03977 DTSCS21 03978 MOVE WRK-ATB-NUM DTSCS21 03979 TO MAP-DEPOSIT-ID-A. DTSCS21 03980 DTSCS21 03981 MOVE WRK-ATB-NUM DTSCS21 03982 TO MAP-CONTROL-REMIT-AMT-A DTSCS21 03983 MAP-CONTROL-TRAN-CNT-A. DTSCS21 03984 DTSCS21 03985 MOVE WRK-ATB-NUM DTSCS21 03986 TO MAP-RECEIVED-DATE-MO-A DTSCS21 03987 MAP-RECEIVED-DATE-DA-A DTSCS21 03988 MAP-RECEIVED-DATE-YR-A. DTSCS21 03989 DTSCS21 03990 MOVE WRK-ATB-NUM DTSCS21 03991 TO MAP-DEPOSIT-DATE-MO-A DTSCS21 03992 MAP-DEPOSIT-DATE-DA-A DTSCS21 03993 MAP-DEPOSIT-DATE-YR-A. DTSCS21 03994 DTSCS21 03995 MOVE WRK-ATB-AN DTSCS21 03996 TO MAP-BATCH-HELD-IND-A DTSCS21 03997 MAP-ANNUAL-BATCH-A DTSCS21 03998 MAP-PRINTER-ID-A. DTSCS21 03999 DTSCS21 04000 DTSCS21 04001 MOVE CATB-ASKIP-BRT-MDTON DTSCS21 04002 TO MAP-STATUS-DSCR-1-A DTSCS21 04003 MAP-STATUS-DSCR-2-A DTSCS21 04004 MAP-STATUS-DSCR-3-A DTSCS21 04005 MAP-LAST-USED-ITEM-NO-A DTSCS21 04006 MAP-ATC-FILE-REMIT-AMT-A DTSCS21 04007 MAP-ATC-FILE-TRAN-CNT-A DTSCS21 04008 MAP-BALANCE-REMIT-AMT-A DTSCS21 04009 MAP-BALANCE-TRAN-CNT-A DTSCS21 04010 MAP-PROC-REMIT-AMT-A DTSCS21 04011 MAP-PROC-TRAN-CNT-A DTSCS21 04012 MAP-ESTB-OP-ID-A DTSCS21 04013 MAP-ESTB-DATE-A DTSCS21 04014 MAP-CHNG-OP-ID-A DTSCS21 04015 MAP-CHNG-DATE-A. DTSCS21 04016 DTSCS21 04017 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A. DTSCS21 04018 S5900-EXIT. DTSCS21 04019 EXIT. DTSCS21 04020 /*****************************************************************DTSCS21 04021 * MAP ROUTINES *DTSCS21 04022 ******************************************************************DTSCS21 04023 S9100-RECEIVE. DTSCS21 04024 SET L851-RECEIVE-88 TO TRUE. DTSCS21 04025 DTSCS21 04026 MOVE WRK-SCR-ID TO L851-SCR-ID. DTSCS21 04027 DTSCS21 04028 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS21 04029 DTSCS21 04030 MOVE L851-AID TO LCCM-AID. DTSCS21 04031 DTSCS21 04032 MOVE L851-CURSOR TO LCCM-CURSOR. DTSCS21 04033 S9100-EXIT. DTSCS21 04034 EXIT. DTSCS21 04035 DTSCS21 04036 DTSCS21 04037 DTSCS21 04038 S9200-SEND-DATAONLY. DTSCS21 04039 MOVE LOW-VALUES TO MAP-AREA. DTSCS21 04040 DTSCS21 04041 IF LCCM-NO-MSG DTSCS21 04042 NEXT SENTENCE DTSCS21 04043 ELSE DTSCS21 04044 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS21 04045 DTSCS21 04046 IF CURSOR-SET-GOTO DTSCS21 04047 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS21 04048 ELSE DTSCS21 04049 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L. DTSCS21 04050 DTSCS21 04051 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS21 04052 DTSCS21 04053 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS21 04054 DTSCS21 04055 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS21 04056 S9200-EXIT. DTSCS21 04057 EXIT. DTSCS21 04058 DTSCS21 04059 DTSCS21 04060 DTSCS21 04061 S9300-SEND-MAP. DTSCS21 04062 MOVE LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE. DTSCS21 04063 DTSCS21 04064 MOVE SPACES TO MAP-SYS-TIME. DTSCS21 04065 DTSCS21 04066 MOVE LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME. DTSCS21 04067 DTSCS21 04068 MOVE LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME. DTSCS21 04069 DTSCS21 04070 IF SCR-ACCESS-UPDATE DTSCS21 04071 PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT DTSCS21 04072 ELSE DTSCS21 04073 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCS21 04074 DTSCS21 04075 PERFORM S9330-DSCR-FIELDS THRU S9330-EXIT. DTSCS21 04076 DTSCS21 04077 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS21 04078 DTSCS21 04079 IF CURSOR-SET-NO DTSCS21 04080 MOVE CATB-CURSOR TO MAP-BATCH-NO-1-L. DTSCS21 04081 DTSCS21 04082 SET L851-SEND-88 TO TRUE. DTSCS21 04083 DTSCS21 04084 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS21 04085 DTSCS21 04086 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS21 04087 S9300-EXIT. DTSCS21 04088 EXIT. DTSCS21 04089 DTSCS21 04090 DTSCS21 04091 DTSCS21 04092 S9310-UPDATE-FKEYS. DTSCS21 04093 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCS21 04094 DTSCS21 04095 IF LCCM-SCR-CLEAR DTSCS21 04096 MOVE CFKD-ADD TO MAP-KEY-ADD DTSCS21 04097 ELSE DTSCS21 04098 IF LCCM-SCR-INQUIRE DTSCS21 04099 MOVE CFKD-MOD TO MAP-KEY-MOD DTSCS21 04100 MOVE CFKD-DEL TO MAP-KEY-DEL DTSCS21 04101 ELSE DTSCS21 04102 IF LCCM-SCR-UPDATE-LOCKED DTSCS21 04103 MOVE LOW-VALUES TO MAP-KEY-PRINT DTSCS21 04104 MAP-DEPOSIT-PRT DTSCS21 04105 MAP-KEY-BACK DTSCS21 04106 MAP-KEY-FWRD. DTSCS21 04107 S9310-EXIT. DTSCS21 04108 EXIT. DTSCS21 04109 DTSCS21 04110 DTSCS21 04111 DTSCS21 04112 S9320-INQUIRY-FKEYS. DTSCS21 04113 MOVE 'F5=PRINT' TO MAP-KEY-PRINT. DTSCS21 04114 DTSCS21 04115 MOVE 'F6=PRINT DEPOSIT TKT' TO MAP-DEPOSIT-PRT. DTSCS21 04116 DTSCS21 04117 MOVE CFKD-BACKWARD TO MAP-KEY-BACK. DTSCS21 04118 DTSCS21 04119 MOVE CFKD-FORWARD TO MAP-KEY-FWRD. DTSCS21 04120 DTSCS21 04121 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCS21 04122 MAP-KEY-MOD DTSCS21 04123 MAP-KEY-DEL. DTSCS21 04124 S9320-EXIT. DTSCS21 04125 EXIT. DTSCS21 04126 DTSCS21 04127 DTSCS21 04128 DTSCS21 04129 S9330-DSCR-FIELDS. DTSCS21 04130 IF MAP-PRINTER-ID = LOW-VALUES OR SPACES DTSCS21 04131 MOVE LCCM-PRINTER-ID TO MAP-PRINTER-ID. DTSCS21 04132 DTSCS21 04133 DTSCS21 04134 IF MAP-ESTB-OP-ID = LOW-VALUES OR SPACES DTSCS21 04135 MOVE LOW-VALUES TO MAP-ESTB-OP-ID-DSCR DTSCS21 04136 ELSE DTSCS21 04137 IF MAP-ESTB-OP-ID = LCCM-OP-ID DTSCS21 04138 MOVE LCCM-OP-NAME TO MAP-ESTB-OP-ID-DSCR DTSCS21 04139 ELSE DTSCS21 04140 MOVE MAP-ESTB-OP-ID TO L082-OP-ID DTSCS21 04141 PERFORM S082-OP-ID-LOOKUP THRU S082-EXIT DTSCS21 04142 MOVE L082-NAME TO MAP-ESTB-OP-ID-DSCR. DTSCS21 04143 DTSCS21 04144 DTSCS21 04145 IF MAP-CHNG-OP-ID = LOW-VALUES OR SPACES DTSCS21 04146 MOVE LOW-VALUES TO MAP-CHNG-OP-ID-DSCR DTSCS21 04147 ELSE DTSCS21 04148 IF MAP-CHNG-OP-ID = LCCM-OP-ID DTSCS21 04149 MOVE LCCM-OP-NAME TO MAP-CHNG-OP-ID-DSCR DTSCS21 04150 ELSE DTSCS21 04151 MOVE MAP-CHNG-OP-ID TO L082-OP-ID DTSCS21 04152 PERFORM S082-OP-ID-LOOKUP THRU S082-EXIT DTSCS21 04153 MOVE L082-NAME TO MAP-CHNG-OP-ID-DSCR. DTSCS21 04154 S9330-EXIT. DTSCS21 04155 EXIT. DTSCS21 04156 DTSCS21 04157 DTSCS21 04158 DTSCS21 04159 S9900-PREPARE-SEND. DTSCS21 04160 MOVE WRK-SCR-ID TO L851-SCR-ID DTSCS21 04161 LCCM-SCR-ID. DTSCS21 04162 DTSCS21 04163 MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND. DTSCS21 04164 DTSCS21 04165 MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE. DTSCS21 04166 S9900-EXIT. DTSCS21 04167 EXIT. DTSCS21