4169 lines
326 KiB
COBOL
4169 lines
326 KiB
COBOL
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
|