00001 IDENTIFICATION DIVISION. 01/02/06 00002 PROGRAM-ID. DTSCS22. DTSCS22 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV013 00004 DATE-WRITTEN. NOVEMBER 1991. DTSCS22 00005 DATE-COMPILED. DTSCS22 00006 SKIP3 DTSCS22 00007 ***** DTSCS22 00008 * DTSCS22 00009 * FUNCTION: BATCH CORRECTION INQUIRY SCREEN PROCESSOR. DTSCS22 00010 * DTSCS22 00011 * DTSCS22 00012 * MODIFICATION LOG: DTSCS22 00013 * DTSCS22 00014 * 05/11/95 AHDR-*-ITEM-CNT WERE CHANGED TO AHDR-*-TRAN-CNT. DTSCS22 00015 * THEY NO LONGER INCLUDE THE CHECKS IN THE COUNTS. DTSCS22 00016 * WORK ORDER: CR076 PROGRAMMER: RHC DTSCS22 00017 * DTSCS22 00018 * 12/31/96 ADDED 88 LEVEL TO DTSIAHDR FOR ELECTRONIC FILER DTSCS22 00019 * BATCHES. ONLY USED IN DTSBD140, SO TO SAVE MONEY DTSCS22 00020 * THIS PROGRAM WASN'T RECOMPILED. DTSCS22 00021 * WORK ORDER: PROGRAMMER: MJA DTSCS22 00022 * DTSCS22 00023 * 01/08/1999 REVIEWED AND MODIFIED FOR DC. DTSCS22 00024 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSCS22 00025 * DTSCS22 00026 * 12/19/2005 RECOMPILED WITH NEW VERSION OF AHDR. DTSCS22 00027 * REFERENCE: PROGRAMMER: GD DTSCS22 00028 * DTSCS22 00029 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS22 00030 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS22 00031 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCS22 00032 * DTSCS22 00033 * DTSCS22 00034 * DESCRIPTION: DTSCS22 00035 * DTSCS22 00036 * DTSCS22 00037 * CLEAR: DTSCS22 00038 * DTSCS22 00039 * FIELD DISPLAYED: MAP-BATCH-NO (FROM LCCM-BATCH-NO). DTSCS22 00040 * DTSCS22 00041 * DTSCS22 00042 * JUMP: DTSCS22 00043 * DTSCS22 00044 * STANDARD DTSCS22 00045 * DTSCS22 00046 * DTSCS22 00047 * INQUIRY: DTSCS22 00048 * DTSCS22 00049 * CONTROL FIELDS: MAP-BATCH-NO. DTSCS22 00050 * DTSCS22 00051 * JUMP IN: IF LCCM-ITEM-NO IS NOT EQUAL TO ZERO DTSCS22 00052 * START A SEARCH AT THE ACCT TRAN RECORD WHOSE DTSCS22 00053 * KEY IS IN LCCM-DOC-NO DTSCS22 00054 * ELSE DTSCS22 00055 * IF LCCM-BATCH-NO IS NOT EQUAL TO ZERO DTSCS22 00056 * START A SEARCH AT FIRST ACCT TRAN RECORD DTSCS22 00057 * IN LCCM-BATCH-NO DTSCS22 00058 * ELSE DTSCS22 00059 * CLEAR. DTSCS22 00060 * DTSCS22 00061 * ENTER: REDISPLAY SAME STUFF. DTSCS22 00062 * DTSCS22 00063 * F07, F08: DO NOT BOTHER TO 'WRAP' PAGING. 'BREAK' AT DTSCS22 00064 * A*-BATCH-NO. DTSCS22 00065 * DTSCS22 00066 * JUMP OUT: IF A LINE NO IS BEING SELECTED: DTSCS22 00067 * UPDATE LCCM-EMP-NO DTSCS22 00068 * UPDATE LCCM-DOC-NO. DTSCS22 00069 * DTSCS22 00070 * PROTECT THE 'CONTROL' FIELD (MAP-BATCH-NO DURING A SEARCH, DTSCS22 00071 * LEAVING THE USER SPECIFIED MAP-BATCH-NO DISPLAYED. TO DTSCS22 00072 * RESTART A SEARCH, THE USER MUST PRESS THE CLEAR KEY OR DTSCS22 00073 * THE F12 KEY. DTSCS22 00074 * DTSCS22 00075 * STORE INFORMATION IN LCCM-SCR-HOLD-AREA TO CONTROL PAGING DTSCS22 00076 * AND FOR USE IN DETERMINING WHICH ACCT TRAN RECORD WAS DTSCS22 00077 * SELECTED FOR INQUIRY. DTSCS22 00078 * DTSCS22 00079 * NOTE: A AHDR RECORD WITH NO ASSOCIATED ARPT, APAY, OR DTSCS22 00080 * AADJ RECORDS MAY EXIST. DTSCS22 MUST BE ABLE DTSCS22 00081 * TO COPE WITH THIS POSSIBILITY. DTSCS22 00082 * DTSCS22 00083 * DTSCS22 00084 * UPDATE: DTSCS22 00085 * DTSCS22 00086 * NONE. DTSCS22 00087 * DTSCS22 00088 * DTSCS22 00089 * DTSCS22 00090 * RECORDS READ: DTSCS22 00091 * DTSCS22 00092 * MASTER: DTSCS22 00093 * DTSCS22 00094 * NONE. DTSCS22 00095 * DTSCS22 00096 * DTSCS22 00097 * ALTERNATE INDEX: DTSCS22 00098 * DTSCS22 00099 * NONE. DTSCS22 00100 * DTSCS22 00101 * DTSCS22 00102 * REFERENCE: DTSCS22 00103 * DTSCS22 00104 * NONE. DTSCS22 00105 * DTSCS22 00106 * DTSCS22 00107 * ACCOUNTING TRANSACTION COLLECTION: DTSCS22 00108 * DTSCS22 00109 * AHDR DTSCS22 00110 * ARPT DTSCS22 00111 * APAY DTSCS22 00112 * AADJ DTSCS22 00113 * DTSCS22 00114 * DTSCS22 00115 * RECORDS UPDATED: DTSCS22 00116 * DTSCS22 00117 * MASTER: DTSCS22 00118 * DTSCS22 00119 * NONE. DTSCS22 00120 * DTSCS22 00121 * DTSCS22 00122 * REFERENCE: DTSCS22 00123 * DTSCS22 00124 * NONE. DTSCS22 00125 * DTSCS22 00126 * DTSCS22 00127 * ACCOUNTING TRANSACTION COLLECTION: DTSCS22 00128 * DTSCS22 00129 * NONE. DTSCS22 00130 * DTSCS22 00131 * DTSCS22 00132 * ON-LINE ACTIVITY FILE RECORDS WRITTEN: DTSCS22 00133 * DTSCS22 00134 * NONE. DTSCS22 00135 * DTSCS22 00136 * DTSCS22 00137 * TEMPORARY STORAGE USAGE: DTSCS22 00138 * DTSCS22 00139 * NONE. DTSCS22 00140 * DTSCS22 00141 * DTSCS22 00142 * MODULES LINKED TO: DTSCS22 00143 * DTSCS22 00144 * DTSCU013 COUNT (INTEGER) FROM SCREEN FORMAT/EDIT. DTSCS22 00145 * DTSCU019 DOCUMENT NO FROM SCREEN FORMAT/EDIT. DTSCS22 00146 * DTSCU823 ACCOUNTING TRANSACTION FILE INPUT/OUTPUT. DTSCS22 00147 * DTSCS22 00148 ***** DTSCS22 00149 EJECT DTSCS22 00150 ENVIRONMENT DIVISION. DTSCS22 00151 DTSCS22 00152 DATA DIVISION. DTSCS22 00153 DTSCS22 00154 WORKING-STORAGE SECTION. DTSCS22 001545 77 PAN-VALET PICTURE X(24) VALUE '013DTSCS22 01/02/06'. DTSCS22 00155 DTSCS22 00156 01 WRK-HOLD-AREA. DTSCS22 00157 05 WRK-HOLD-SCREEN-22-IND PIC X(02). DTSCS22 00158 88 WRK-HOLD-SCREEN-22-YES VALUE '22'. DTSCS22 00159 DTSCS22 00160 DTSCS22 00161 05 WRK-HOLD-CTR PIC S9(04) COMP. DTSCS22 00162 DTSCS22 00163 DTSCS22 00164 05 WRK-HOLD-KEY-AREA PIC X(87). DTSCS22 00165 DTSCS22 00166 05 FILLER REDEFINES WRK-HOLD-KEY-AREA. DTSCS22 00167 10 WRK-HOLD-BATCH-NO PIC S9(05) COMP-3. DTSCS22 00168 10 WRK-HOLD-KEY OCCURS 12 TIMES. DTSCS22 00169 15 WRK-HOLD-ITEM-NO PIC S9(03) COMP-3. DTSCS22 00170 15 WRK-HOLD-EMP-NO PIC S9(07) COMP-3. DTSCS22 00171 15 WRK-HOLD-REC-TYPE PIC X(01). DTSCS22 00172 DTSCS22 00173 DTSCS22 00174 DTSCS22 00175 01 WRK-AREA. DTSCS22 00176 05 WRK-ABEND-CD PIC X(04) VALUE 'S22 '. DTSCS22 00177 DTSCS22 00178 05 WRK-SCR-ID. DTSCS22 00179 10 WRK-SCR-ID-N PIC 9(02) VALUE 22. DTSCS22 00180 DTSCS22 00181 05 WRK-F03-SCR-ID PIC X(02) VALUE '20'. DTSCS22 00182 DTSCS22 00183 05 SCR-ACCESS-IND PIC X(01). DTSCS22 00184 88 SCR-ACCESS-INQ VALUE '1'. DTSCS22 00185 88 SCR-ACCESS-UPDATE VALUE '2'. DTSCS22 00186 DTSCS22 00187 05 CURSOR-SET-IND PIC X(01). DTSCS22 00188 88 CURSOR-SET-YES VALUE 'Y'. DTSCS22 00189 88 CURSOR-SET-NO VALUE 'N'. DTSCS22 00190 88 CURSOR-SET-GOTO VALUE 'G'. DTSCS22 00191 DTSCS22 00192 05 REQ-IND PIC X(01). DTSCS22 00193 88 REQ-CURSOR-TO-GOTO VALUE 'G'. DTSCS22 00194 88 REQ-ERROR VALUE 'O'. DTSCS22 00195 88 REQ-JUMP VALUE 'J'. DTSCS22 00196 88 REQ-UPDATE VALUE 'U'. DTSCS22 00197 88 REQ-INQUIRE VALUE 'I'. DTSCS22 00198 88 REQ-CLEAR VALUE 'C'. DTSCS22 00199 88 REQ-EDIT VALUE 'E'. DTSCS22 00200 DTSCS22 00201 05 RESP-IND PIC X(01). DTSCS22 00202 88 RESP-SEND-MSGONLY VALUE 'O'. DTSCS22 00203 88 RESP-SEND-MAP VALUE 'M'. DTSCS22 00204 88 RESP-JUMP VALUE 'J'. DTSCS22 00205 88 RESP-CURSOR-TO-GOTO VALUE 'G'. DTSCS22 00206 DTSCS22 00207 05 WRK-MSG-AREA PIC X(64). DTSCS22 00208 DTSCS22 00209 05 WRK-BATCH-NO PIC 9(05) COMP-3. DTSCS22 00210 DTSCS22 00211 05 WRK-ITEM-NO PIC 9(03) COMP-3. DTSCS22 00212 DTSCS22 00213 05 WRK-ATB-AN PIC X(01). DTSCS22 00214 DTSCS22 00215 05 WRK-ATB-NUM PIC X(01). DTSCS22 00216 DTSCS22 00217 05 WRK-HOLD-FOUND-IND PIC X(01). DTSCS22 00218 88 WRK-HOLD-FOUND-YES VALUE 'Y'. DTSCS22 00219 88 WRK-HOLD-FOUND-NO VALUE 'N'. DTSCS22 00220 DTSCS22 00221 05 WRK-CTR PIC S9(04) COMP. DTSCS22 00222 DTSCS22 00223 05 WRK-CTR2 PIC S9(04) COMP. DTSCS22 00224 DTSCS22 00225 05 WRK-SUB PIC S9(04) COMP. DTSCS22 00226 DTSCS22 00227 05 WRK-TRAN-CNT PIC S9(03) COMP-3. DTSCS22 00228 EJECT DTSCS22 00229 *01 MSG-LITERALS. DTSCS22 00230 DTSCS22 00231 *****05 MSG-E221-AREA. DTSCS22 00232 *********10 FILLER PIC X(04) VALUE 'E221'. DTSCS22 00233 *********10 FILLER PIC X(30) DTSCS22 00234 ***************VALUE 'UPDATES TO THIS BATCH ARE ACTI'. DTSCS22 00235 *********10 FILLER PIC X(30) DTSCS22 00236 ***************VALUE 'VE. CLEAR AND TRY AGAIN. '. DTSCS22 00237 EJECT DTSCS22 00238 01 L001-COMM-AREA. DTSCS22 00239 ++INCLUDE DTSIL001 DTSCS22 00240 EJECT DTSCS22 00241 01 L013-COMM-AREA. DTSCS22 00242 ++INCLUDE DTSIL013 DTSCS22 00243 EJECT DTSCS22 00244 01 L019-COMM-AREA. DTSCS22 00245 ++INCLUDE DTSIL019 DTSCS22 00246 EJECT DTSCS22 00247 01 L805-COMM-AREA. DTSCS22 00248 ++INCLUDE DTSIL805 DTSCS22 00249 EJECT DTSCS22 00250 01 L823-COMM-AREA. DTSCS22 00251 05 L823-CONTROL-BLOCK. DTSCS22 00252 ++INCLUDE DTSIL823 DTSCS22 00253 EJECT DTSCS22 00254 05 ASKL-REC. DTSCS22 00255 ++INCLUDE DTSIASKL DTSCS22 00256 EJECT DTSCS22 00257 01 AHDR-REC. DTSCS22 00258 ++INCLUDE DTSIAHDR DTSCS22 00259 EJECT DTSCS22 00260 01 AADJ-REC. DTSCS22 00261 ++INCLUDE DTSIAADJ DTSCS22 00262 EJECT DTSCS22 00263 01 APAY-REC. DTSCS22 00264 ++INCLUDE DTSIAPAY DTSCS22 00265 EJECT DTSCS22 00266 01 ARPT-REC. DTSCS22 00267 ++INCLUDE DTSIARPT DTSCS22 00268 EJECT DTSCS22 00269 01 AATX-REC. DTSCS22 00270 ++INCLUDE DTSIAATX DTSCS22 00271 EJECT DTSCS22 00272 01 L851-COMM-AREA. DTSCS22 00273 ++INCLUDE DTSIL851 DTSCS22 00274 DTSCS22 00275 05 MAP-AREA REDEFINES L851-MAP-AREA. DTSCS22 00276 ++INCLUDE DTSIS22 DTSCS22 00277 EJECT DTSCS22 00278 01 CATB-LITERALS. DTSCS22 00279 ++INCLUDE DTSICATB DTSCS22 00280 DTSCS22 00281 DTSCS22 00282 DTSCS22 00283 01 CFKD-LITERALS. DTSCS22 00284 ++INCLUDE DTSICFKD DTSCS22 00285 DTSCS22 00286 DTSCS22 00287 DTSCS22 00288 01 CECD-LITERALS. DTSCS22 00289 ++INCLUDE DTSICECD DTSCS22 00290 DTSCS22 00291 DTSCS22 00292 DTSCS22 00293 01 CPCD-LITERALS. DTSCS22 00294 ++INCLUDE DTSICPCD DTSCS22 00295 EJECT DTSCS22 00296 LINKAGE SECTION. DTSCS22 00297 DTSCS22 00298 01 DFHCOMMAREA. DTSCS22 00299 ++INCLUDE DTSILCCM DTSCS22 00300 EJECT DTSCS22 00301 ******************************************************************DTSCS22 00302 * *DTSCS22 00303 ******************************************************************DTSCS22 00304 DTSCS22 00305 PROCEDURE DIVISION. DTSCS22 00306 DTSCS22 00307 DTSCS22 00308 MOVE +0 TO WRK-BATCH-NO. DTSCS22 00309 DTSCS22 00310 MOVE +0 TO WRK-ITEM-NO. DTSCS22 00311 DTSCS22 00312 MOVE +0 TO WRK-HOLD-CTR. DTSCS22 00313 DTSCS22 00314 MOVE LOW-VALUES TO MAP-AREA. DTSCS22 00315 DTSCS22 00316 SET CURSOR-SET-NO TO TRUE. DTSCS22 00317 DTSCS22 00318 MOVE LCCM-SCR-NUM-ACCESS-IND (WRK-SCR-ID-N) DTSCS22 00319 TO SCR-ACCESS-IND. DTSCS22 00320 DTSCS22 00321 DTSCS22 00322 MOVE SPACE TO REQ-IND. DTSCS22 00323 DTSCS22 00324 PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT. DTSCS22 00325 DTSCS22 00326 DTSCS22 00327 *----------------------------------------------------- DTSCS22 00328 * P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE DTSCS22 00329 * "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT DTSCS22 00330 * REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE DTSCS22 00331 * OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED. DTSCS22 00332 * DTSCS22 00333 * THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE DTSCS22 00334 * PROCESSED. DTSCS22 00335 * DTSCS22 00336 * THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND, DTSCS22 00337 * INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE DTSCS22 00338 * WORK STATION OPERATOR. DTSCS22 00339 *----------------------------------------------------- DTSCS22 00340 DTSCS22 00341 MOVE SPACE TO RESP-IND. DTSCS22 00342 DTSCS22 00343 IF REQ-ERROR DTSCS22 00344 PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT DTSCS22 00345 ELSE DTSCS22 00346 IF REQ-JUMP DTSCS22 00347 PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT DTSCS22 00348 ELSE DTSCS22 00349 IF REQ-CLEAR DTSCS22 00350 PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT DTSCS22 00351 ELSE DTSCS22 00352 IF REQ-CURSOR-TO-GOTO DTSCS22 00353 PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT DTSCS22 00354 ELSE DTSCS22 00355 IF REQ-INQUIRE DTSCS22 00356 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCS22 00357 ELSE DTSCS22 00358 GO TO S899-ABEND. DTSCS22 00359 DTSCS22 00360 DTSCS22 00361 *----------------------------------------------------- DTSCS22 00362 * THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED DTSCS22 00363 * IN RESP-IND THE TYPE OF RESPONSE TO BE MADE. DTSCS22 00364 *----------------------------------------------------- DTSCS22 00365 DTSCS22 00366 IF RESP-SEND-MAP DTSCS22 00367 PERFORM S9300-SEND-MAP THRU S9300-EXIT DTSCS22 00368 SET LCCM-END-TASK-88 TO TRUE DTSCS22 00369 ELSE DTSCS22 00370 IF RESP-SEND-MSGONLY DTSCS22 00371 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCS22 00372 SET LCCM-END-TASK-88 TO TRUE DTSCS22 00373 ELSE DTSCS22 00374 IF RESP-JUMP DTSCS22 00375 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS22 00376 ELSE DTSCS22 00377 IF RESP-CURSOR-TO-GOTO DTSCS22 00378 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCS22 00379 SET LCCM-END-TASK-88 TO TRUE DTSCS22 00380 ELSE DTSCS22 00381 GO TO S899-ABEND. DTSCS22 00382 DTSCS22 00383 DTSCS22 00384 MAINLINE-EXIT. DTSCS22 00385 DTSCS22 00386 DTSCS22 00387 EXEC CICS DTSCS22 00388 RETURN DTSCS22 00389 END-EXEC. DTSCS22 00390 DTSCS22 00391 DTSCS22 00392 GOBACK. DTSCS22 00393 /*****************************************************************DTSCS22 00394 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION *DTSCS22 00395 ******************************************************************DTSCS22 00396 DTSCS22 00397 P1000-ANALYZE-REQUEST. DTSCS22 00398 DTSCS22 00399 *----------------------------------------------------- DTSCS22 00400 * IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE) DTSCS22 00401 * THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE DTSCS22 00402 * REPLACED WITH ENTER) DTSCS22 00403 * ASSUME THAT ITEM-NO IS IN SYNC WITH BATCH-NO DTSCS22 00404 *----------------------------------------------------- DTSCS22 00405 DTSCS22 00406 IF LCCM-SCR-ID NOT = WRK-SCR-ID DTSCS22 00407 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA DTSCS22 00408 SET LCCM-ENTER-88 TO TRUE DTSCS22 00409 IF LCCM-BATCH-NO = 0 DTSCS22 00410 MOVE +0 TO LCCM-ITEM-NO DTSCS22 00411 WRK-ITEM-NO DTSCS22 00412 WRK-BATCH-NO DTSCS22 00413 SET REQ-CLEAR TO TRUE DTSCS22 00414 ELSE DTSCS22 00415 MOVE +1 TO WRK-HOLD-CTR DTSCS22 00416 MOVE LCCM-BATCH-NO TO WRK-BATCH-NO DTSCS22 00417 MOVE LCCM-BATCH-NO TO MAP-BATCH-NO-N DTSCS22 00418 WRK-HOLD-BATCH-NO DTSCS22 00419 IF LCCM-ITEM-NO = +0 DTSCS22 00420 MOVE +0 TO WRK-HOLD-ITEM-NO (1) DTSCS22 00421 SET REQ-INQUIRE TO TRUE DTSCS22 00422 ELSE DTSCS22 00423 MOVE LCCM-ITEM-NO TO WRK-HOLD-ITEM-NO (1) DTSCS22 00424 SET REQ-INQUIRE TO TRUE DTSCS22 00425 END-IF DTSCS22 00426 END-IF DTSCS22 00427 GO TO P1000-EXIT. DTSCS22 00428 DTSCS22 00429 DTSCS22 00430 *----------------------------------------------------- DTSCS22 00431 * RECOVER INFORMATION FROM PREVIOUS INQUIRE DTSCS22 00432 *----------------------------------------------------- DTSCS22 00433 DTSCS22 00434 MOVE LCCM-SCR-HOLD-AREA TO WRK-HOLD-AREA. DTSCS22 00435 DTSCS22 00436 IF WRK-HOLD-SCREEN-22-YES DTSCS22 00437 SET WRK-HOLD-FOUND-YES TO TRUE DTSCS22 00438 MOVE WRK-HOLD-BATCH-NO TO WRK-BATCH-NO DTSCS22 00439 ELSE DTSCS22 00440 MOVE +0 TO WRK-HOLD-CTR DTSCS22 00441 SET WRK-HOLD-FOUND-NO TO TRUE. DTSCS22 00442 DTSCS22 00443 DTSCS22 00444 *----------------------------------------------------- DTSCS22 00445 * MAP IS RECEIVED DTSCS22 00446 *----------------------------------------------------- DTSCS22 00447 DTSCS22 00448 PERFORM S9100-RECEIVE THRU S9100-EXIT. DTSCS22 00449 DTSCS22 00450 DTSCS22 00451 *----------------------------------------------------- DTSCS22 00452 * CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE DTSCS22 00453 * WORK STATION DTSCS22 00454 *----------------------------------------------------- DTSCS22 00455 DTSCS22 00456 IF LCCM-CLEAR-88 DTSCS22 00457 SET REQ-CLEAR TO TRUE DTSCS22 00458 GO TO P1000-EXIT. DTSCS22 00459 DTSCS22 00460 DTSCS22 00461 *----------------------------------------------------- DTSCS22 00462 * PA2 IS A REQUEST TO POSITION CURSOR AT GO TO: DTSCS22 00463 *----------------------------------------------------- DTSCS22 00464 DTSCS22 00465 IF LCCM-PA2-88 DTSCS22 00466 SET REQ-CURSOR-TO-GOTO TO TRUE DTSCS22 00467 GO TO P1000-EXIT. DTSCS22 00468 DTSCS22 00469 DTSCS22 00470 *----------------------------------------------------- DTSCS22 00471 * ALL OTHER PA KEYS ARE NOT ACTIVE DTSCS22 00472 *----------------------------------------------------- DTSCS22 00473 DTSCS22 00474 IF LCCM-PA-88 DTSCS22 00475 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCS22 00476 SET REQ-ERROR TO TRUE DTSCS22 00477 GO TO P1000-EXIT. DTSCS22 00478 DTSCS22 00479 DTSCS22 00480 *----------------------------------------------------- DTSCS22 00481 * F12 IS TREATED AS A "CLEAR". DTSCS22 00482 *----------------------------------------------------- DTSCS22 00483 DTSCS22 00484 IF LCCM-F12-88 DTSCS22 00485 MOVE LOW-VALUES TO MAP-AREA DTSCS22 00486 SET REQ-CLEAR TO TRUE DTSCS22 00487 GO TO P1000-EXIT. DTSCS22 00488 DTSCS22 00489 DTSCS22 00490 *----------------------------------------------------- DTSCS22 00491 * IF EXIT KEY PRESSED, GO TO THE NEXT HIGHER LEVEL DTSCS22 00492 *----------------------------------------------------- DTSCS22 00493 DTSCS22 00494 IF LCCM-F03-88 DTSCS22 00495 MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID DTSCS22 00496 SET REQ-JUMP TO TRUE DTSCS22 00497 GO TO P1000-EXIT. DTSCS22 00498 DTSCS22 00499 DTSCS22 00500 *----------------------------------------------------- DTSCS22 00501 * IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN DTSCS22 00502 *----------------------------------------------------- DTSCS22 00503 DTSCS22 00504 IF LCCM-F04-88 DTSCS22 00505 MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS22 00506 SET REQ-JUMP TO TRUE DTSCS22 00507 GO TO P1000-EXIT. DTSCS22 00508 DTSCS22 00509 DTSCS22 00510 *--------------------------------------------------------- DTSCS22 00511 * IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO DTSCS22 00512 * CORRESPONDENCE SCREEN. DTSCS22 00513 *--------------------------------------------------------- DTSCS22 00514 DTSCS22 00515 IF LCCM-F14-88 DTSCS22 00516 MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS22 00517 SET REQ-JUMP TO TRUE DTSCS22 00518 GO TO P1000-EXIT. DTSCS22 00519 DTSCS22 00520 DTSCS22 00521 *----------------------------------------------------- DTSCS22 00522 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS22 00523 * REQUESTED SCREEN TYPE DTSCS22 00524 *----------------------------------------------------- DTSCS22 00525 DTSCS22 00526 IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID DTSCS22 00527 NEXT SENTENCE DTSCS22 00528 ELSE DTSCS22 00529 MOVE MAP-GOTO TO LCCM-REQ-SCR-ID DTSCS22 00530 SET REQ-JUMP TO TRUE DTSCS22 00531 GO TO P1000-EXIT. DTSCS22 00532 DTSCS22 00533 DTSCS22 00534 *----------------------------------------------------- DTSCS22 00535 * A LINE OF DETAIL WAS SELECTED WHICH MEANS TO JUMP DTSCS22 00536 *----------------------------------------------------- DTSCS22 00537 DTSCS22 00538 MOVE MAP-SELECT-LINE-NO-AREA TO L013-S-CNT-AREA. DTSCS22 00539 DTSCS22 00540 PERFORM S013-COUNT-FROM-SCREEN THRU S013-EXIT. DTSCS22 00541 DTSCS22 00542 IF L013-NO-ENTRY DTSCS22 00543 NEXT SENTENCE DTSCS22 00544 ELSE DTSCS22 00545 SET REQ-JUMP TO TRUE DTSCS22 00546 GO TO P1000-EXIT. DTSCS22 00547 DTSCS22 00548 DTSCS22 00549 *----------------------------------------------------- DTSCS22 00550 * IF INQUIRY TYPE KEY PRESSED (ENTER, F7, OR F8), DTSCS22 00551 * INDICATES INQUIRY REQUEST DTSCS22 00552 *----------------------------------------------------- DTSCS22 00553 DTSCS22 00554 IF LCCM-ENTER-88 DTSCS22 00555 OR LCCM-F07-88 DTSCS22 00556 OR LCCM-F08-88 DTSCS22 00557 SET REQ-INQUIRE TO TRUE DTSCS22 00558 GO TO P1000-EXIT. DTSCS22 00559 DTSCS22 00560 DTSCS22 00561 *----------------------------------------------------- DTSCS22 00562 * ANY OTHER KEY IS INVALID DTSCS22 00563 *----------------------------------------------------- DTSCS22 00564 DTSCS22 00565 PERFORM S804-INVALID-KEY THRU S804-EXIT. DTSCS22 00566 DTSCS22 00567 SET REQ-ERROR TO TRUE. DTSCS22 00568 P1000-EXIT. DTSCS22 00569 EXIT. DTSCS22 00570 /*****************************************************************DTSCS22 00571 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCS22 00572 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN. *DTSCS22 00573 ******************************************************************DTSCS22 00574 DTSCS22 00575 P2000-REQUEST-ERROR. DTSCS22 00576 IF LCCM-MSG DTSCS22 00577 SET RESP-SEND-MSGONLY TO TRUE DTSCS22 00578 ELSE DTSCS22 00579 GO TO S899-ABEND. DTSCS22 00580 P2000-EXIT. DTSCS22 00581 EXIT. DTSCS22 00582 /*****************************************************************DTSCS22 00583 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED *DTSCS22 00584 ******************************************************************DTSCS22 00585 DTSCS22 00586 P3000-REQUEST-JUMP. DTSCS22 00587 PERFORM P3001-SELECTION-LINE-EDIT THRU P3001-EXIT DTSCS22 00588 DTSCS22 00589 DTSCS22 00590 *----------------------------------------------------- DTSCS22 00591 * VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE DTSCS22 00592 * BY USER DTSCS22 00593 *----------------------------------------------------- DTSCS22 00594 DTSCS22 00595 PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT. DTSCS22 00596 DTSCS22 00597 DTSCS22 00598 *----------------------------------------------------- DTSCS22 00599 * VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED DTSCS22 00600 *----------------------------------------------------- DTSCS22 00601 DTSCS22 00602 IF LCCM-MSG DTSCS22 00603 SET RESP-SEND-MSGONLY TO TRUE DTSCS22 00604 IF L013-NO-ENTRY DTSCS22 00605 SET CURSOR-SET-GOTO TO TRUE DTSCS22 00606 ELSE DTSCS22 00607 PERFORM S1201-SELECT-LINE-ERROR THRU S1201-EXIT DTSCS22 00608 END-IF DTSCS22 00609 GO TO P3000-EXIT DTSCS22 00610 END-IF. DTSCS22 00611 DTSCS22 00612 DTSCS22 00613 MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO. DTSCS22 00614 DTSCS22 00615 PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT. DTSCS22 00616 DTSCS22 00617 IF L019-VALID DTSCS22 00618 IF L019-BATCH-NO = LCCM-BATCH-NO DTSCS22 00619 NEXT SENTENCE DTSCS22 00620 ELSE DTSCS22 00621 MOVE L019-BATCH-NO TO LCCM-BATCH-NO DTSCS22 00622 MOVE +0 TO LCCM-ITEM-NO. DTSCS22 00623 DTSCS22 00624 DTSCS22 00625 *----------------------------------------------------- DTSCS22 00626 * CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING DTSCS22 00627 *----------------------------------------------------- DTSCS22 00628 DTSCS22 00629 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA. DTSCS22 00630 DTSCS22 00631 MOVE LOW-VALUES TO LCCM-SCR-STATUS DTSCS22 00632 LCCM-SCR-HOLD-AREA. DTSCS22 00633 DTSCS22 00634 MOVE +0 TO LCCM-SCR-ABSTIME. DTSCS22 00635 DTSCS22 00636 SET RESP-JUMP TO TRUE. DTSCS22 00637 P3000-EXIT. DTSCS22 00638 EXIT. DTSCS22 00639 DTSCS22 00640 DTSCS22 00641 DTSCS22 00642 ******************************************************************DTSCS22 00643 * IF A LINE NUMBER WAS ENTERED IT MUST EXIST ON THE SCREEN DTSCS22 00644 ******************************************************************DTSCS22 00645 DTSCS22 00646 P3001-SELECTION-LINE-EDIT. DTSCS22 00647 MOVE MAP-SELECT-LINE-NO-AREA TO L013-S-CNT-AREA. DTSCS22 00648 DTSCS22 00649 PERFORM S013-COUNT-FROM-SCREEN THRU S013-EXIT. DTSCS22 00650 DTSCS22 00651 IF L013-NO-ENTRY DTSCS22 00652 GO TO P3001-EXIT DTSCS22 00653 END-IF. DTSCS22 00654 DTSCS22 00655 IF L013-NOT-VALID DTSCS22 00656 OR (L013-CNT > WRK-HOLD-CTR) DTSCS22 00657 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT DTSCS22 00658 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS22 00659 PERFORM S1201-SELECT-LINE-ERROR THRU S1201-EXIT DTSCS22 00660 GO TO P3001-EXIT DTSCS22 00661 END-IF. DTSCS22 00662 DTSCS22 00663 DTSCS22 00664 MOVE WRK-HOLD-BATCH-NO DTSCS22 00665 TO LCCM-BATCH-NO. DTSCS22 00666 DTSCS22 00667 MOVE WRK-HOLD-ITEM-NO (L013-CNT) DTSCS22 00668 TO LCCM-ITEM-NO. DTSCS22 00669 DTSCS22 00670 MOVE WRK-HOLD-EMP-NO (L013-CNT) DTSCS22 00671 TO LCCM-EMP-NO. DTSCS22 00672 DTSCS22 00673 DTSCS22 00674 * NOW DETERMINE WHICH SCREEN TO JUMP TO DTSCS22 00675 DTSCS22 00676 IF LCCM-REQ-SCR-ID = LOW-VALUES OR SPACES OR WRK-SCR-ID DTSCS22 00677 NEXT SENTENCE DTSCS22 00678 ELSE DTSCS22 00679 GO TO P3001-EXIT. DTSCS22 00680 DTSCS22 00681 IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID DTSCS22 00682 NEXT SENTENCE DTSCS22 00683 ELSE DTSCS22 00684 GO TO P3001-EXIT. DTSCS22 00685 DTSCS22 00686 MOVE WRK-HOLD-REC-TYPE (L013-CNT) DTSCS22 00687 TO ASKL-REC-TYPE. DTSCS22 00688 DTSCS22 00689 IF ASKL-ADJ-88 DTSCS22 00690 MOVE '26' TO LCCM-REQ-SCR-ID DTSCS22 00691 ELSE DTSCS22 00692 IF ASKL-PAY-88 DTSCS22 00693 MOVE '25' TO LCCM-REQ-SCR-ID DTSCS22 00694 ELSE DTSCS22 00695 IF ASKL-RPT-88 DTSCS22 00696 MOVE '24' TO LCCM-REQ-SCR-ID DTSCS22 00697 ELSE DTSCS22 00698 IF ASKL-ATX-88 DTSCS22 00699 MOVE '27' TO LCCM-REQ-SCR-ID DTSCS22 00700 ELSE DTSCS22 00701 GO TO S899-ABEND. DTSCS22 00702 P3001-EXIT. DTSCS22 00703 EXIT. DTSCS22 00704 /*****************************************************************DTSCS22 00705 * CLEAR KEY OR F12 KEY WAS PRESSED. *DTSCS22 00706 ******************************************************************DTSCS22 00707 DTSCS22 00708 P4000-REQUEST-CLEAR. DTSCS22 00709 DTSCS22 00710 *----------------------------------------------------- DTSCS22 00711 * CLEAN UP INDICATORS AND PAGING STORAGE. RESET KEY DTSCS22 00712 * FIELDS FROM EARLIER REQUESTS DTSCS22 00713 *----------------------------------------------------- DTSCS22 00714 DTSCS22 00715 MOVE +0 TO LCCM-BATCH-NO. DTSCS22 00716 DTSCS22 00717 MOVE +0 TO LCCM-ITEM-NO. DTSCS22 00718 DTSCS22 00719 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA. DTSCS22 00720 DTSCS22 00721 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS22 00722 DTSCS22 00723 SET LCCM-SCR-CLEAR TO TRUE. DTSCS22 00724 DTSCS22 00725 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS22 00726 DTSCS22 00727 SET RESP-SEND-MAP TO TRUE. DTSCS22 00728 P4000-EXIT. DTSCS22 00729 EXIT. DTSCS22 00730 /*****************************************************************DTSCS22 00731 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED *DTSCS22 00732 ******************************************************************DTSCS22 00733 DTSCS22 00734 P5000-CURSOR-TO-GOTO. DTSCS22 00735 SET CURSOR-SET-GOTO TO TRUE. DTSCS22 00736 DTSCS22 00737 SET RESP-CURSOR-TO-GOTO TO TRUE. DTSCS22 00738 P5000-EXIT. DTSCS22 00739 EXIT. DTSCS22 00740 /*****************************************************************DTSCS22 00741 * INQUIRY WAS REQUESTED *DTSCS22 00742 ******************************************************************DTSCS22 00743 DTSCS22 00744 P6000-REQUEST-INQUIRE. DTSCS22 00745 MOVE SPACES TO WRK-MSG-AREA. DTSCS22 00746 DTSCS22 00747 MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO. DTSCS22 00748 DTSCS22 00749 MOVE LOW-VALUES TO MAP-AREA. DTSCS22 00750 DTSCS22 00751 MOVE L019-S-DOC-NO TO MAP-DOC-NO-AREA. DTSCS22 00752 DTSCS22 00753 SET LCCM-SCR-CLEAR TO TRUE. DTSCS22 00754 DTSCS22 00755 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS22 00756 DTSCS22 00757 SET RESP-SEND-MAP TO TRUE. DTSCS22 00758 DTSCS22 00759 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS22 00760 DTSCS22 00761 PERFORM S1100-EDIT-KEY THRU S1100-EXIT. DTSCS22 00762 DTSCS22 00763 IF LCCM-ERROR-MSG DTSCS22 00764 GO TO P6000-EXIT. DTSCS22 00765 DTSCS22 00766 DTSCS22 00767 PERFORM P6100-LOCATE-REC THRU P6100-EXIT. DTSCS22 00768 DTSCS22 00769 IF LCCM-ERROR-MSG DTSCS22 00770 GO TO P6000-EXIT. DTSCS22 00771 DTSCS22 00772 DTSCS22 00773 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT DTSCS22 00774 DTSCS22 00775 DTSCS22 00776 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS22 00777 DTSCS22 00778 IF WRK-HOLD-CTR > 0 DTSCS22 00779 MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-SELECT-LINE-NO-A DTSCS22 00780 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L DTSCS22 00781 MOVE CATB-ASKIP-BRT-MDTON TO MAP-BATCH-NO-A DTSCS22 00782 SET CURSOR-SET-YES TO TRUE DTSCS22 00783 END-IF. DTSCS22 00784 DTSCS22 00785 DTSCS22 00786 SET WRK-HOLD-SCREEN-22-YES TO TRUE. DTSCS22 00787 DTSCS22 00788 MOVE WRK-HOLD-AREA TO LCCM-SCR-HOLD-AREA. DTSCS22 00789 P6000-EXIT. DTSCS22 00790 EXIT. DTSCS22 00791 EJECT DTSCS22 00792 P6100-LOCATE-REC. DTSCS22 00793 DTSCS22 00794 *------------------------------------------------------------ DTSCS22 00795 * IF, AT THE LAST USE OF THIS SCREEN, A RECORD FOR DTSCS22 00796 * BATCH NUMBER LCCM-BATCH-NO WAS DISPLAYED ON THE DTSCS22 00797 * SCREEN, THEN BASE THE PAGING LOGIC ON THE LAST RECORD DTSCS22 00798 * DISPLAYED ON THIS SCREEN; OTHERWISE, CLEAR DTSCS22 00799 *------------------------------------------------------------ DTSCS22 00800 DTSCS22 00801 MOVE LOW-VALUES TO ASKL-KEY-AREA. DTSCS22 00802 DTSCS22 00803 MOVE WRK-HOLD-BATCH-NO TO ASKL-BATCH-NO DTSCS22 00804 DTSCS22 00805 IF LCCM-F08-88 DTSCS22 00806 MOVE WRK-HOLD-ITEM-NO (WRK-HOLD-CTR) TO ASKL-ITEM-NO DTSCS22 00807 ELSE DTSCS22 00808 MOVE WRK-HOLD-ITEM-NO (1) TO ASKL-ITEM-NO. DTSCS22 00809 DTSCS22 00810 MOVE ASKL-BATCH-NO TO WRK-BATCH-NO. DTSCS22 00811 DTSCS22 00812 MOVE ASKL-ITEM-NO TO WRK-ITEM-NO. DTSCS22 00813 DTSCS22 00814 IF WRK-ITEM-NO = 0 DTSCS22 00815 MOVE +1 TO WRK-ITEM-NO DTSCS22 00816 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA. DTSCS22 00817 DTSCS22 00818 DTSCS22 00819 * :---------------------------------------DTSCS22 00820 * ------------------------: READ THE HEADER RECORD FOR THE BATCH DTSCS22 00821 * :---------------------------------------DTSCS22 00822 DTSCS22 00823 MOVE 0 TO ASKL-ITEM-NO DTSCS22 00824 DTSCS22 00825 PERFORM S823-READ THRU S823-EXIT. DTSCS22 00826 DTSCS22 00827 * :--------------------------------------- DTSCS22 00828 * -----------------------: NO REC MEANS THERE IS NOT ANY RECORDS DTSCS22 00829 * : FOR THE BATCH. DTSCS22 00830 * :--------------------------------------- DTSCS22 00831 DTSCS22 00832 IF L823-NO-REC-88 DTSCS22 00833 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS22 00834 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS22 00835 GO TO P6100-EXIT. DTSCS22 00836 DTSCS22 00837 DTSCS22 00838 * :--------------------------------------- DTSCS22 00839 * -----------------------: OK THE BATCH DOES EXIST ON THE FILE DTSCS22 00840 * : BUT IF AHDR-ATC-FILE-TRAN-CNT = 0, THENDTSCS22 00841 * : THERE ARE NO RECORDS (ADJ,PAY,RPT) DTSCS22 00842 * : TO BE SEEN. DTSCS22 00843 * :--------------------------------------- DTSCS22 00844 DTSCS22 00845 MOVE ASKL-REC TO AHDR-REC. DTSCS22 00846 DTSCS22 00847 PERFORM P6930-FROM-HDR THRU P6930-EXIT. DTSCS22 00848 DTSCS22 00849 IF AHDR-ATC-FILE-TRAN-CNT = +0 DTSCS22 00850 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCS22 00851 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS22 00852 GO TO P6100-EXIT. DTSCS22 00853 DTSCS22 00854 * :--------------------------------------- DTSCS22 00855 * -----------------------: OK THE BATCH DOES EXIST ON THE FILE DTSCS22 00856 * : AND THERE ARE ITEMS TO BE SEEN. TRY DTSCS22 00857 * : STARTING AT THE ITEM NO DETERMINED DTSCS22 00858 * : ABOVE. DTSCS22 00859 * :--------------------------------------- DTSCS22 00860 DTSCS22 00861 MOVE WRK-ITEM-NO TO ASKL-ITEM-NO. DTSCS22 00862 DTSCS22 00863 PERFORM S823-START-BROWSE THRU S823-EXIT. DTSCS22 00864 DTSCS22 00865 * :--------------------------------------- DTSCS22 00866 * -----------------------: THE ITEM NO REQUESTED IS > THAN THE DTSCS22 00867 * : LAST RECORD ON THE FILE. IF WE TRIED DTSCS22 00868 * : TO GET THE THEORETICAL FIRST ITEM THEN DTSCS22 00869 * : THERE ARE NO RECORDS AND THE BATCH HDR DTSCS22 00870 * : HAS AN ERROR. DTSCS22 00871 * :--------------------------------------- DTSCS22 00872 DTSCS22 00873 IF (L823-NO-REC-88 DTSCS22 00874 OR ASKL-HDR-88) DTSCS22 00875 AND WRK-ITEM-NO NOT GREATER THAN 1 DTSCS22 00876 GO TO S899-ABEND. DTSCS22 00877 DTSCS22 00878 DTSCS22 00879 * :--------------------------------------- DTSCS22 00880 * : BECAUSE I CAN'T START ANYWHERE ELSE DTSCS22 00881 * : IF IT IS > LAST RECORD ON FILE (AND DTSCS22 00882 * : TO BE CONSISTENT) DTSCS22 00883 * : I WILL TRY TO WRAP PAGING. I KNOW DTSCS22 00884 * -----------------------: THE PROGRAM NOTES SAID NOT TO BUT TO DTSCS22 00885 * : SEND A REAL GOOD MESSAGE I NEED TO DTSCS22 00886 * : KNOW MORE. DTSCS22 00887 * :--------------------------------------- DTSCS22 00888 * : DTSCS22 00889 * -----------------------: MUST TERMINATE THE LAST BROWSE DTSCS22 00890 * : IF THE BROWSE WAS OK DTSCS22 00891 DTSCS22 00892 IF L823-NO-REC-88 DTSCS22 00893 OR ASKL-HDR-88 DTSCS22 00894 IF L823-OK-88 DTSCS22 00895 PERFORM S823-END-BROWSE THRU S823-EXIT DTSCS22 00896 END-IF DTSCS22 00897 MOVE WRK-BATCH-NO TO ASKL-BATCH-NO DTSCS22 00898 MOVE +1 TO WRK-ITEM-NO DTSCS22 00899 ASKL-ITEM-NO DTSCS22 00900 PERFORM S823-START-BROWSE THRU S823-EXIT DTSCS22 00901 IF L823-NO-REC-88 DTSCS22 00902 OR ASKL-HDR-88 DTSCS22 00903 GO TO S899-ABEND DTSCS22 00904 ELSE DTSCS22 00905 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA DTSCS22 00906 GO TO P6100-EXIT. DTSCS22 00907 DTSCS22 00908 DTSCS22 00909 * :--------------------------------------- DTSCS22 00910 * : IF I GOT THIS FAR THEN THINGS SHOULD DTSCS22 00911 * -----------------------: PROCEED NORMALLY DTSCS22 00912 * :--------------------------------------- DTSCS22 00913 DTSCS22 00914 IF LCCM-ENTER-88 DTSCS22 00915 GO TO P6100-EXIT. DTSCS22 00916 DTSCS22 00917 DTSCS22 00918 MOVE ASKL-BATCH-NO TO WRK-BATCH-NO. DTSCS22 00919 DTSCS22 00920 MOVE ASKL-ITEM-NO TO WRK-ITEM-NO. DTSCS22 00921 DTSCS22 00922 IF LCCM-F07-88 DTSCS22 00923 PERFORM P6120-PREV-REC THRU P6120-EXIT DTSCS22 00924 GO TO P6100-EXIT. DTSCS22 00925 DTSCS22 00926 IF LCCM-F08-88 DTSCS22 00927 PERFORM P6130-NEXT-REC THRU P6130-EXIT DTSCS22 00928 GO TO P6100-EXIT. DTSCS22 00929 DTSCS22 00930 GO TO S899-ABEND. DTSCS22 00931 P6100-EXIT. DTSCS22 00932 EXIT. DTSCS22 00933 EJECT DTSCS22 00934 P6120-PREV-REC. DTSCS22 00935 PERFORM S823-READ-PREV THRU S823-EXIT. DTSCS22 00936 DTSCS22 00937 PERFORM S823-READ-PREV THRU S823-EXIT. DTSCS22 00938 DTSCS22 00939 * :--------------------------------------- DTSCS22 00940 * : ACTUALLY NO REC HERE WOULD IMPLY BIG DTSCS22 00941 * -----------------------: TROUBLE. DTSCS22 00942 * : DTSCS22 00943 * :--------------------------------------- DTSCS22 00944 DTSCS22 00945 IF L823-NO-REC-88 DTSCS22 00946 MOVE WRK-BATCH-NO TO ASKL-BATCH-NO DTSCS22 00947 MOVE WRK-ITEM-NO TO ASKL-ITEM-NO DTSCS22 00948 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA DTSCS22 00949 GO TO P6120-EXIT. DTSCS22 00950 DTSCS22 00951 DTSCS22 00952 * :--------------------------------------- DTSCS22 00953 * : OOPS! I FOUND THE HEADER. RESTORE THE DTSCS22 00954 * -----------------------: KEY INFO FROM THE LAST START BROWSE DTSCS22 00955 * : AND GO THE OTHER DIRECTION DTSCS22 00956 * :--------------------------------------- DTSCS22 00957 DTSCS22 00958 IF ASKL-HDR-88 DTSCS22 00959 PERFORM S823-END-BROWSE THRU S823-EXIT DTSCS22 00960 MOVE WRK-BATCH-NO TO ASKL-BATCH-NO DTSCS22 00961 MOVE WRK-ITEM-NO TO ASKL-ITEM-NO DTSCS22 00962 PERFORM S823-START-BROWSE THRU S823-EXIT DTSCS22 00963 SET LCCM-F08-88 TO TRUE DTSCS22 00964 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA DTSCS22 00965 GO TO P6120-EXIT. DTSCS22 00966 P6120-EXIT. DTSCS22 00967 EXIT. DTSCS22 00968 DTSCS22 00969 DTSCS22 00970 DTSCS22 00971 P6130-NEXT-REC. DTSCS22 00972 PERFORM S823-READ-NEXT THRU S823-EXIT. DTSCS22 00973 DTSCS22 00974 * :--------------------------------------- DTSCS22 00975 * : OOPS! I FOUND THE THE NEXT HEADER. DTSCS22 00976 * -----------------------: RESTORE INFO FROM THE LAST START BROWSEDTSCS22 00977 * : AND GO THE OTHER DIRECTION DTSCS22 00978 * :--------------------------------------- DTSCS22 00979 DTSCS22 00980 IF L823-NO-REC-88 DTSCS22 00981 OR ASKL-HDR-88 DTSCS22 00982 PERFORM S823-END-BROWSE THRU S823-EXIT DTSCS22 00983 MOVE WRK-BATCH-NO TO ASKL-BATCH-NO DTSCS22 00984 MOVE WRK-ITEM-NO TO ASKL-ITEM-NO DTSCS22 00985 PERFORM S823-START-BROWSE THRU S823-EXIT DTSCS22 00986 PERFORM S823-READ-PREV THRU S823-EXIT DTSCS22 00987 SET LCCM-F07-88 TO TRUE DTSCS22 00988 MOVE PMSG-LAST-PAGE TO LCCM-MSG-AREA DTSCS22 00989 GO TO P6130-EXIT. DTSCS22 00990 P6130-EXIT. DTSCS22 00991 EXIT. DTSCS22 00992 /*****************************************************************DTSCS22 00993 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS *DTSCS22 00994 ******************************************************************DTSCS22 00995 DTSCS22 00996 P6900-CONSTRUCT-SCREEN. DTSCS22 00997 MOVE +0 TO WRK-TRAN-CNT. DTSCS22 00998 DTSCS22 00999 MOVE +0 TO WRK-HOLD-CTR. DTSCS22 01000 DTSCS22 01001 PERFORM P6910-CONSTRUCT-SCREEN THRU P6910-EXIT DTSCS22 01002 VARYING WRK-SUB FROM 1 BY 1 DTSCS22 01003 UNTIL WRK-SUB > 12 DTSCS22 01004 OR L823-NO-REC-88. DTSCS22 01005 DTSCS22 01006 IF L823-OK-88 DTSCS22 01007 PERFORM S823-END-BROWSE THRU S823-EXIT DTSCS22 01008 ELSE DTSCS22 01009 IF LCCM-F07-88 DTSCS22 01010 AND WRK-HOLD-CTR < 12 DTSCS22 01011 PERFORM P6901-REVERSE-FLOW THRU P6901-EXIT DTSCS22 01012 ELSE DTSCS22 01013 MOVE PMSG-LAST-PAGE TO LCCM-MSG-AREA. DTSCS22 01014 DTSCS22 01015 IF AHDR-ATC-FILE-TRAN-CNT = WRK-TRAN-CNT DTSCS22 01016 MOVE PMSG-ONLY-PAGE TO LCCM-MSG-AREA. DTSCS22 01017 P6900-EXIT. DTSCS22 01018 EXIT. DTSCS22 01019 DTSCS22 01020 DTSCS22 01021 DTSCS22 01022 P6901-REVERSE-FLOW. DTSCS22 01023 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID DTSCS22 01024 DTSCS22 01025 IF WRK-HOLD-CTR = 0 DTSCS22 01026 MOVE WRK-HOLD-BATCH-NO TO ASKL-BATCH-NO DTSCS22 01027 MOVE WRK-HOLD-ITEM-NO (1) TO ASKL-ITEM-NO DTSCS22 01028 ELSE DTSCS22 01029 MOVE WRK-HOLD-BATCH-NO TO ASKL-BATCH-NO DTSCS22 01030 MOVE WRK-HOLD-ITEM-NO (WRK-HOLD-CTR) TO ASKL-ITEM-NO DTSCS22 01031 END-IF. DTSCS22 01032 DTSCS22 01033 PERFORM S823-START-BROWSE THRU S823-EXIT DTSCS22 01034 DTSCS22 01035 IF L823-OK-88 DTSCS22 01036 PERFORM S823-READ-NEXT THRU S823-EXIT DTSCS22 01037 SET LCCM-F08-88 TO TRUE DTSCS22 01038 PERFORM P6910-CONSTRUCT-SCREEN THRU P6910-EXIT DTSCS22 01039 VARYING WRK-SUB FROM WRK-SUB BY 1 DTSCS22 01040 UNTIL WRK-SUB > 12 DTSCS22 01041 OR L823-NO-REC-88 DTSCS22 01042 OR ASKL-HDR-88 DTSCS22 01043 IF L823-OK-88 DTSCS22 01044 PERFORM S823-END-BROWSE THRU S823-EXIT. DTSCS22 01045 P6901-EXIT. DTSCS22 01046 EXIT. DTSCS22 01047 DTSCS22 01048 DTSCS22 01049 DTSCS22 01050 P6910-CONSTRUCT-SCREEN. DTSCS22 01051 ADD 1 TO WRK-HOLD-CTR. DTSCS22 01052 DTSCS22 01053 IF LCCM-F07-88 DTSCS22 01054 PERFORM P6920-PUSH-STACK THRU P6920-EXIT DTSCS22 01055 VARYING WRK-CTR FROM WRK-SUB BY -1 DTSCS22 01056 UNTIL WRK-CTR < 2. DTSCS22 01057 DTSCS22 01058 IF LCCM-F07-88 DTSCS22 01059 COMPUTE WRK-CTR = 1 DTSCS22 01060 ELSE DTSCS22 01061 COMPUTE WRK-CTR = WRK-SUB. DTSCS22 01062 DTSCS22 01063 MOVE SPACES TO MAP-LINE-DATA (WRK-CTR) DTSCS22 01064 DTSCS22 01065 IF ASKL-ADJ-88 DTSCS22 01066 PERFORM P6911-FROM-ADJ THRU P6911-EXIT DTSCS22 01067 *****ELSE DTSCS22 01068 *****IF ASKL-CHK-88 DTSCS22 01069 ********PERFORM P6912-FROM-CHK THRU P6912-EXIT DTSCS22 01070 ELSE DTSCS22 01071 IF ASKL-PAY-88 DTSCS22 01072 PERFORM P6913-FROM-PAY THRU P6913-EXIT DTSCS22 01073 ELSE DTSCS22 01074 IF ASKL-RPT-88 DTSCS22 01075 PERFORM P6914-FROM-RPT THRU P6914-EXIT DTSCS22 01076 ELSE DTSCS22 01077 IF ASKL-ATX-88 DTSCS22 01078 PERFORM P6915-FROM-ATX THRU P6915-EXIT DTSCS22 01079 ELSE DTSCS22 01080 GO TO S899-ABEND. DTSCS22 01081 DTSCS22 01082 MOVE WRK-CTR TO MAP-LINE-NO (WRK-CTR). DTSCS22 01083 DTSCS22 01084 IF LCCM-F07-88 DTSCS22 01085 MOVE ASKL-ITEM-NO TO WRK-HOLD-ITEM-NO (1) DTSCS22 01086 MOVE ASKL-REC-TYPE TO WRK-HOLD-REC-TYPE (1) DTSCS22 01087 PERFORM S823-READ-PREV THRU S823-EXIT DTSCS22 01088 ELSE DTSCS22 01089 MOVE ASKL-ITEM-NO TO WRK-HOLD-ITEM-NO (WRK-HOLD-CTR) DTSCS22 01090 MOVE ASKL-REC-TYPE TO WRK-HOLD-REC-TYPE (WRK-HOLD-CTR) DTSCS22 01091 PERFORM S823-READ-NEXT THRU S823-EXIT. DTSCS22 01092 DTSCS22 01093 IF L823-OK-88 DTSCS22 01094 IF ASKL-HDR-88 DTSCS22 01095 PERFORM S823-END-BROWSE THRU S823-EXIT DTSCS22 01096 SET L823-NO-REC-88 TO TRUE. DTSCS22 01097 P6910-EXIT. DTSCS22 01098 EXIT. DTSCS22 01099 EJECT DTSCS22 01100 P6911-FROM-ADJ. DTSCS22 01101 MOVE ASKL-REC TO AADJ-REC. DTSCS22 01102 DTSCS22 01103 MOVE AADJ-ITEM-NO TO MAP-ITEM-NO (WRK-CTR). DTSCS22 01104 DTSCS22 01105 MOVE AADJ-REC-TYPE TO MAP-REC-TYPE (WRK-CTR). DTSCS22 01106 DTSCS22 01107 MOVE AADJ-ADJ-TYPE TO MAP-TYPE-TYPE (WRK-CTR). DTSCS22 01108 DTSCS22 01109 MOVE AADJ-EMP-NO TO MAP-EMP-NO (WRK-CTR). DTSCS22 01110 DTSCS22 01111 IF AADJ-PROCESSED-DATE > +0 DTSCS22 01112 MOVE AADJ-PROCESSED-DATE TO L001-FED-8-DATE-9 DTSCS22 01113 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSCS22 01114 MOVE L001-SLASH-DATE TO MAP-PROCESSED-DATE (WRK-CTR). DTSCS22 01115 DTSCS22 01116 MOVE AADJ-EMP-NO TO WRK-HOLD-EMP-NO (WRK-CTR). DTSCS22 01117 DTSCS22 01118 ADD +1 TO WRK-TRAN-CNT. DTSCS22 01119 P6911-EXIT. DTSCS22 01120 EXIT. DTSCS22 01121 DTSCS22 01122 DTSCS22 01123 DTSCS22 01124 *P6912-FROM-CHK. DTSCS22 01125 *****MOVE ASKL-REC TO ACHK-REC. DTSCS22 01126 *****MOVE ACHK-ITEM-NO TO MAP-ITEM-NO(WRK-CTR). DTSCS22 01127 *****MOVE ACHK-REC-TYPE TO MAP-REC-TYPE(WRK-CTR). DTSCS22 01128 *****MOVE ACHK-EMP-NO TO MAP-EMP-NO(WRK-CTR). DTSCS22 01129 *****MOVE ACHK-CHECK-AMT TO MAP-CHECK-AMT(WRK-CTR). DTSCS22 01130 *****ADD +1 TO WRK-CHECK-CNT. DTSCS22 01131 DTSCS22 01132 *****MOVE ACHK-EMP-NO TO WRK-HOLD-EMP-NO(WRK-CTR). DTSCS22 01133 *P6912-EXIT. DTSCS22 01134 *****EXIT. DTSCS22 01135 DTSCS22 01136 DTSCS22 01137 DTSCS22 01138 P6913-FROM-PAY. DTSCS22 01139 MOVE ASKL-REC TO APAY-REC. DTSCS22 01140 DTSCS22 01141 MOVE APAY-ITEM-NO TO MAP-ITEM-NO (WRK-CTR). DTSCS22 01142 DTSCS22 01143 MOVE APAY-REC-TYPE TO MAP-REC-TYPE (WRK-CTR). DTSCS22 01144 DTSCS22 01145 MOVE APAY-PAY-TYPE TO MAP-TYPE-TYPE (WRK-CTR). DTSCS22 01146 DTSCS22 01147 MOVE APAY-EMP-NO TO MAP-EMP-NO (WRK-CTR). DTSCS22 01148 DTSCS22 01149 MOVE APAY-REMIT-AMT TO MAP-REMIT-AMT (WRK-CTR) DTSCS22 01150 DTSCS22 01151 IF APAY-PROCESSED-DATE > +0 DTSCS22 01152 MOVE APAY-PROCESSED-DATE TO L001-FED-8-DATE-9 DTSCS22 01153 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSCS22 01154 MOVE L001-SLASH-DATE TO MAP-PROCESSED-DATE (WRK-CTR). DTSCS22 01155 DTSCS22 01156 DTSCS22 01157 MOVE APAY-EMP-NO TO WRK-HOLD-EMP-NO(WRK-CTR). DTSCS22 01158 DTSCS22 01159 ADD +1 TO WRK-TRAN-CNT. DTSCS22 01160 P6913-EXIT. DTSCS22 01161 EXIT. DTSCS22 01162 DTSCS22 01163 DTSCS22 01164 DTSCS22 01165 P6914-FROM-RPT. DTSCS22 01166 MOVE ASKL-REC TO ARPT-REC. DTSCS22 01167 DTSCS22 01168 MOVE ARPT-ITEM-NO TO MAP-ITEM-NO (WRK-CTR). DTSCS22 01169 DTSCS22 01170 MOVE ARPT-REC-TYPE TO MAP-REC-TYPE (WRK-CTR). DTSCS22 01171 DTSCS22 01172 MOVE ARPT-RPT-TYPE TO MAP-TYPE-TYPE (WRK-CTR). DTSCS22 01173 DTSCS22 01174 MOVE ARPT-EMP-NO TO MAP-EMP-NO (WRK-CTR). DTSCS22 01175 DTSCS22 01176 MOVE ARPT-REMIT-AMT TO MAP-REMIT-AMT (WRK-CTR). DTSCS22 01177 DTSCS22 01178 IF ARPT-PROCESSED-DATE > +0 DTSCS22 01179 MOVE ARPT-PROCESSED-DATE TO L001-FED-8-DATE-9 DTSCS22 01180 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSCS22 01181 MOVE L001-SLASH-DATE TO MAP-PROCESSED-DATE (WRK-CTR). DTSCS22 01182 DTSCS22 01183 DTSCS22 01184 ADD +1 TO WRK-TRAN-CNT. DTSCS22 01185 DTSCS22 01186 MOVE ARPT-EMP-NO TO WRK-HOLD-EMP-NO (WRK-CTR). DTSCS22 01187 P6914-EXIT. DTSCS22 01188 EXIT. DTSCS22 01189 DTSCS22 01190 P6915-FROM-ATX. DTSCS22 01191 MOVE ASKL-REC TO AATX-REC. DTSCS22 01192 DTSCS22 01193 MOVE AATX-ITEM-NO TO MAP-ITEM-NO (WRK-CTR). DTSCS22 01194 DTSCS22 01195 MOVE AATX-REC-TYPE TO MAP-REC-TYPE (WRK-CTR). DTSCS22 01196 DTSCS22 01197 MOVE AATX-RPT-TYPE TO MAP-TYPE-TYPE (WRK-CTR). DTSCS22 01198 DTSCS22 01199 MOVE AATX-EMP-NO TO MAP-EMP-NO (WRK-CTR). DTSCS22 01200 DTSCS22 01201 MOVE AATX-REMIT-AMT TO MAP-REMIT-AMT (WRK-CTR). DTSCS22 01202 DTSCS22 01203 IF AATX-PROCESSED-DATE > +0 DTSCS22 01204 MOVE AATX-PROCESSED-DATE TO L001-FED-8-DATE-9 DTSCS22 01205 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSCS22 01206 MOVE L001-SLASH-DATE TO MAP-PROCESSED-DATE (WRK-CTR). DTSCS22 01207 DTSCS22 01208 DTSCS22 01209 ADD +1 TO WRK-TRAN-CNT. DTSCS22 01210 DTSCS22 01211 MOVE AATX-EMP-NO TO WRK-HOLD-EMP-NO (WRK-CTR). DTSCS22 01212 P6915-EXIT. DTSCS22 01213 EXIT. DTSCS22 01214 DTSCS22 01215 DTSCS22 01216 P6920-PUSH-STACK. DTSCS22 01217 COMPUTE WRK-CTR2 = WRK-CTR - 1. DTSCS22 01218 DTSCS22 01219 MOVE MAP-LINE (WRK-CTR2) TO MAP-LINE (WRK-CTR). DTSCS22 01220 DTSCS22 01221 MOVE WRK-HOLD-KEY (WRK-CTR2) TO WRK-HOLD-KEY (WRK-CTR). DTSCS22 01222 DTSCS22 01223 MOVE WRK-CTR TO MAP-LINE-NO (WRK-CTR). DTSCS22 01224 P6920-EXIT. DTSCS22 01225 EXIT. DTSCS22 01226 DTSCS22 01227 DTSCS22 01228 P6930-FROM-HDR. DTSCS22 01229 MOVE AHDR-CONTROL-REMIT-AMT TO MAP-CONTROL-REMIT-AMT-N. DTSCS22 01230 DTSCS22 01231 MOVE AHDR-CONTROL-TRAN-CNT TO MAP-CONTROL-TRAN-CNT-N. DTSCS22 01232 DTSCS22 01233 COMPUTE MAP-BALANCE-REMIT-AMT-N DTSCS22 01234 = AHDR-CONTROL-REMIT-AMT - AHDR-ATC-FILE-REMIT-AMT. DTSCS22 01235 DTSCS22 01236 COMPUTE MAP-BALANCE-TRAN-CNT-N DTSCS22 01237 = AHDR-CONTROL-TRAN-CNT - AHDR-ATC-FILE-TRAN-CNT. DTSCS22 01238 DTSCS22 01239 IF AHDR-BATCH-BALANCED-YES-88 DTSCS22 01240 MOVE 'BALANCED' TO MAP-BATCH-STATUS-DSCR-1 DTSCS22 01241 ELSE DTSCS22 01242 MOVE 'NOT BALANCED' TO MAP-BATCH-STATUS-DSCR-1. DTSCS22 01243 DTSCS22 01244 IF AHDR-BATCH-HELD-YES-88 DTSCS22 01245 MOVE 'HELD' TO MAP-BATCH-STATUS-DSCR-2 DTSCS22 01246 ELSE DTSCS22 01247 MOVE SPACES TO MAP-BATCH-STATUS-DSCR-2. DTSCS22 01248 DTSCS22 01249 IF AHDR-PROC-TRAN-CNT > +0 DTSCS22 01250 MOVE 'PART PROCESSED' TO MAP-BATCH-STATUS-DSCR-3 DTSCS22 01251 ELSE DTSCS22 01252 MOVE SPACES TO MAP-BATCH-STATUS-DSCR-3. DTSCS22 01253 P6930-EXIT. DTSCS22 01254 EXIT. DTSCS22 01255 EJECT DTSCS22 01256 /*****************************************************************DTSCS22 01257 * LINKS TO UTILITY MODULES DTSCS22 01258 ******************************************************************DTSCS22 01259 DTSCS22 01260 S001-FROM-FED-8. DTSCS22 01261 SET L001-FROM-FED-8 TO TRUE. DTSCS22 01262 GO TO S001-DATE. DTSCS22 01263 DTSCS22 01264 S001-DATE. DTSCS22 01265 EXEC CICS LINK DTSCS22 01266 PROGRAM('DTSCU001') DTSCS22 01267 COMMAREA(L001-COMM-AREA) DTSCS22 01268 END-EXEC. DTSCS22 01269 S001-EXIT. DTSCS22 01270 EXIT. DTSCS22 01271 DTSCS22 01272 DTSCS22 01273 DTSCS22 01274 S013-COUNT-FROM-SCREEN. DTSCS22 01275 MOVE +1 TO L013-MIN-CNT. DTSCS22 01276 DTSCS22 01277 MOVE WRK-HOLD-CTR TO L013-MAX-CNT. DTSCS22 01278 DTSCS22 01279 EXEC CICS LINK DTSCS22 01280 PROGRAM('DTSCU013') DTSCS22 01281 COMMAREA(L013-COMM-AREA) DTSCS22 01282 END-EXEC. DTSCS22 01283 S013-EXIT. DTSCS22 01284 EXIT. DTSCS22 01285 DTSCS22 01286 DTSCS22 01287 DTSCS22 01288 S019-BATCH-NO-FROM-SCREEN. DTSCS22 01289 EXEC CICS LINK DTSCS22 01290 PROGRAM('DTSCU019') DTSCS22 01291 COMMAREA(L019-COMM-AREA) DTSCS22 01292 END-EXEC. DTSCS22 01293 S019-EXIT. DTSCS22 01294 EXIT. DTSCS22 01295 DTSCS22 01296 DTSCS22 01297 DTSCS22 01298 S803-REQ-SCR-ID-EDIT. DTSCS22 01299 EXEC CICS LINK DTSCS22 01300 PROGRAM ('DTSCU803') DTSCS22 01301 COMMAREA (DFHCOMMAREA) DTSCS22 01302 END-EXEC. DTSCS22 01303 S803-EXIT. DTSCS22 01304 EXIT. DTSCS22 01305 DTSCS22 01306 DTSCS22 01307 DTSCS22 01308 S804-INVALID-KEY. DTSCS22 01309 EXEC CICS LINK DTSCS22 01310 PROGRAM ('DTSCU804') DTSCS22 01311 COMMAREA (DFHCOMMAREA) DTSCS22 01312 END-EXEC. DTSCS22 01313 S804-EXIT. DTSCS22 01314 EXIT. DTSCS22 01315 DTSCS22 01316 DTSCS22 01317 DTSCS22 01318 S805-MSG-AREA. DTSCS22 01319 MOVE LCCM-MSG-AREA TO L805-MSG-AREA DTSCS22 01320 DTSCS22 01321 EXEC CICS LINK DTSCS22 01322 PROGRAM ('DTSCU805') DTSCS22 01323 COMMAREA (L805-COMM-AREA) DTSCS22 01324 END-EXEC. DTSCS22 01325 DTSCS22 01326 MOVE L805-S-MSG-AREA TO MAP-MSG-AREA. DTSCS22 01327 S805-EXIT. DTSCS22 01328 EXIT. DTSCS22 01329 DTSCS22 01330 DTSCS22 01331 DTSCS22 01332 S823-READ. DTSCS22 01333 SET L823-READ-88 TO TRUE. DTSCS22 01334 GO TO S823-IO. DTSCS22 01335 DTSCS22 01336 S823-START-BROWSE. DTSCS22 01337 SET L823-START-BROWSE-88 TO TRUE. DTSCS22 01338 GO TO S823-IO. DTSCS22 01339 DTSCS22 01340 S823-READ-NEXT. DTSCS22 01341 SET L823-READ-NEXT-88 TO TRUE. DTSCS22 01342 GO TO S823-IO. DTSCS22 01343 DTSCS22 01344 S823-READ-PREV. DTSCS22 01345 SET L823-READ-PREV-88 TO TRUE. DTSCS22 01346 GO TO S823-IO. DTSCS22 01347 DTSCS22 01348 S823-END-BROWSE. DTSCS22 01349 SET L823-END-BROWSE-88 TO TRUE. DTSCS22 01350 GO TO S823-IO. DTSCS22 01351 DTSCS22 01352 S823-IO. DTSCS22 01353 EXEC CICS LINK DTSCS22 01354 PROGRAM ('DTSCU823') DTSCS22 01355 COMMAREA (L823-COMM-AREA) DTSCS22 01356 END-EXEC. DTSCS22 01357 DTSCS22 01358 IF L823-FILE-CLOSED-88 DTSCS22 01359 MOVE L823-MSG-AREA TO LCCM-MSG-AREA DTSCS22 01360 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS22 01361 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS22 01362 GO TO MAINLINE-EXIT. DTSCS22 01363 S823-EXIT. DTSCS22 01364 EXIT. DTSCS22 01365 DTSCS22 01366 DTSCS22 01367 DTSCS22 01368 S851-SCREEN-PROCESSING. DTSCS22 01369 EXEC CICS LINK DTSCS22 01370 PROGRAM ('DTSCU851') DTSCS22 01371 COMMAREA (L851-COMM-AREA) DTSCS22 01372 END-EXEC. DTSCS22 01373 S851-EXIT. DTSCS22 01374 EXIT. DTSCS22 01375 DTSCS22 01376 DTSCS22 01377 DTSCS22 01378 S899-ABEND. DTSCS22 01379 EXEC CICS ABEND DTSCS22 01380 ABCODE(WRK-ABEND-CD) DTSCS22 01381 END-EXEC. DTSCS22 01382 S899-EXIT. DTSCS22 01383 EXIT. DTSCS22 01384 /*****************************************************************DTSCS22 01385 * EDIT THE INFORMATION ON THE SCREEN. *DTSCS22 01386 ******************************************************************DTSCS22 01387 DTSCS22 01388 S1100-EDIT-KEY. DTSCS22 01389 PERFORM S1110-BATCH-NO THRU S1110-EXIT. DTSCS22 01390 S1100-EXIT. EXIT. DTSCS22 01391 /*****************************************************************DTSCS22 01392 * DTSCS22 01393 ******************************************************************DTSCS22 01394 DTSCS22 01395 S1110-BATCH-NO. DTSCS22 01396 MOVE MAP-DOC-NO-AREA TO L019-S-DOC-NO. DTSCS22 01397 DTSCS22 01398 PERFORM S019-BATCH-NO-FROM-SCREEN THRU S019-EXIT. DTSCS22 01399 DTSCS22 01400 IF L019-NO-ENTRY DTSCS22 01401 IF WRK-BATCH-NO > 0 DTSCS22 01402 MOVE WRK-BATCH-NO TO MAP-BATCH-NO-N DTSCS22 01403 GO TO S1110-EXIT DTSCS22 01404 ELSE DTSCS22 01405 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCS22 01406 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS22 01407 GO TO S1110-EXIT. DTSCS22 01408 DTSCS22 01409 IF L019-NOT-VALID DTSCS22 01410 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCS22 01411 PERFORM S1111-ERROR THRU S1111-EXIT DTSCS22 01412 GO TO S1110-EXIT. DTSCS22 01413 DTSCS22 01414 IF L019-BATCH-NO NOT = WRK-BATCH-NO DTSCS22 01415 MOVE +1 TO WRK-HOLD-CTR DTSCS22 01416 MOVE L019-BATCH-NO TO WRK-HOLD-BATCH-NO DTSCS22 01417 LCCM-BATCH-NO DTSCS22 01418 MOVE L019-ITEM-NO TO WRK-HOLD-ITEM-NO (1) DTSCS22 01419 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-AREA. DTSCS22 01420 S1110-EXIT. DTSCS22 01421 EXIT. DTSCS22 01422 DTSCS22 01423 DTSCS22 01424 DTSCS22 01425 S1111-ERROR. DTSCS22 01426 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-BATCH-NO-A. DTSCS22 01427 DTSCS22 01428 IF NOT LCCM-ERROR-MSG DTSCS22 01429 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS22 01430 MOVE CATB-CURSOR TO MAP-BATCH-NO-L DTSCS22 01431 SET CURSOR-SET-YES TO TRUE. DTSCS22 01432 S1111-EXIT. DTSCS22 01433 EXIT. DTSCS22 01434 /*****************************************************************DTSCS22 01435 * DTSCS22 01436 ******************************************************************DTSCS22 01437 DTSCS22 01438 S1201-SELECT-LINE-ERROR. DTSCS22 01439 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-SELECT-LINE-NO-A DTSCS22 01440 DTSCS22 01441 IF LCCM-NO-MSG DTSCS22 01442 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCS22 01443 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L DTSCS22 01444 SET CURSOR-SET-YES TO TRUE. DTSCS22 01445 S1201-EXIT. DTSCS22 01446 EXIT. DTSCS22 01447 /*****************************************************************DTSCS22 01448 * SET ATTRIBUTE BYTES FOR INQUIRY STATUS *DTSCS22 01449 ******************************************************************DTSCS22 01450 DTSCS22 01451 S5300-SET-INQ-ATTRB. DTSCS22 01452 MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-BATCH-NO-A DTSCS22 01453 DTSCS22 01454 MOVE CATB-ASKIP-BRT-MDTOFF TO WRK-ATB-AN DTSCS22 01455 WRK-ATB-NUM. DTSCS22 01456 DTSCS22 01457 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS22 01458 S5300-EXIT. DTSCS22 01459 EXIT. DTSCS22 01460 DTSCS22 01461 DTSCS22 01462 DTSCS22 01463 S5900-SET-ATTRB. DTSCS22 01464 MOVE WRK-ATB-NUM DTSCS22 01465 TO MAP-SELECT-LINE-NO-A. DTSCS22 01466 DTSCS22 01467 MOVE CATB-ASKIP-BRT-MDTOFF DTSCS22 01468 TO MAP-CONTROL-REMIT-AMT-A DTSCS22 01469 MAP-CONTROL-TRAN-CNT-A DTSCS22 01470 MAP-BALANCE-REMIT-AMT-A DTSCS22 01471 MAP-BALANCE-TRAN-CNT-A DTSCS22 01472 MAP-BATCH-STATUS-DSCR-1-A DTSCS22 01473 MAP-BATCH-STATUS-DSCR-2-A DTSCS22 01474 MAP-BATCH-STATUS-DSCR-3-A. DTSCS22 01475 DTSCS22 01476 PERFORM DTSCS22 01477 VARYING WRK-SUB FROM 1 BY 1 DTSCS22 01478 UNTIL WRK-SUB > 12 DTSCS22 01479 MOVE CATB-ASKIP-BRT-MDTOFF DTSCS22 01480 TO MAP-LINE-A (WRK-SUB) DTSCS22 01481 END-PERFORM. DTSCS22 01482 DTSCS22 01483 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A. DTSCS22 01484 S5900-EXIT. DTSCS22 01485 EXIT. DTSCS22 01486 EJECT DTSCS22 01487 /*****************************************************************DTSCS22 01488 * MAP ROUTINES *DTSCS22 01489 ******************************************************************DTSCS22 01490 DTSCS22 01491 S9100-RECEIVE. DTSCS22 01492 SET L851-RECEIVE-88 TO TRUE. DTSCS22 01493 DTSCS22 01494 MOVE WRK-SCR-ID TO L851-SCR-ID. DTSCS22 01495 DTSCS22 01496 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS22 01497 DTSCS22 01498 MOVE L851-AID TO LCCM-AID. DTSCS22 01499 DTSCS22 01500 MOVE L851-CURSOR TO LCCM-CURSOR. DTSCS22 01501 S9100-EXIT. DTSCS22 01502 EXIT. DTSCS22 01503 DTSCS22 01504 DTSCS22 01505 DTSCS22 01506 S9200-SEND-DATAONLY. DTSCS22 01507 MOVE LOW-VALUES TO MAP-AREA. DTSCS22 01508 DTSCS22 01509 IF LCCM-NO-MSG DTSCS22 01510 NEXT SENTENCE DTSCS22 01511 ELSE DTSCS22 01512 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS22 01513 DTSCS22 01514 IF CURSOR-SET-GOTO DTSCS22 01515 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS22 01516 ELSE DTSCS22 01517 IF LCCM-SCR-INQUIRE DTSCS22 01518 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L DTSCS22 01519 ELSE DTSCS22 01520 MOVE CATB-CURSOR TO MAP-BATCH-NO-L. DTSCS22 01521 DTSCS22 01522 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS22 01523 DTSCS22 01524 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS22 01525 DTSCS22 01526 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS22 01527 S9200-EXIT. DTSCS22 01528 EXIT. DTSCS22 01529 DTSCS22 01530 DTSCS22 01531 DTSCS22 01532 S9300-SEND-MAP. DTSCS22 01533 MOVE LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE. DTSCS22 01534 DTSCS22 01535 MOVE LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME. DTSCS22 01536 DTSCS22 01537 MOVE LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME. DTSCS22 01538 DTSCS22 01539 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCS22 01540 DTSCS22 01541 *****PERFORM S9330-DSCR-FIELDS THRU S9330-EXIT. DTSCS22 01542 DTSCS22 01543 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS22 01544 DTSCS22 01545 IF CURSOR-SET-NO DTSCS22 01546 MOVE CATB-CURSOR TO MAP-BATCH-NO-L. DTSCS22 01547 DTSCS22 01548 SET L851-SEND-88 TO TRUE. DTSCS22 01549 DTSCS22 01550 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS22 01551 DTSCS22 01552 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS22 01553 S9300-EXIT. DTSCS22 01554 EXIT. DTSCS22 01555 DTSCS22 01556 DTSCS22 01557 DTSCS22 01558 S9320-INQUIRY-FKEYS. DTSCS22 01559 MOVE CFKD-BACKWARD TO MAP-KEY-BACK. DTSCS22 01560 DTSCS22 01561 MOVE CFKD-FORWARD TO MAP-KEY-FWRD. DTSCS22 01562 DTSCS22 01563 MOVE 'F12=CLEAR' TO MAP-KEY-CLEAR. DTSCS22 01564 S9320-EXIT. DTSCS22 01565 EXIT. DTSCS22 01566 DTSCS22 01567 DTSCS22 01568 DTSCS22 01569 *S9330-DSCR-FIELDS. DTSCS22 01570 *S9330-EXIT. DTSCS22 01571 *****EXIT. DTSCS22 01572 DTSCS22 01573 DTSCS22 01574 DTSCS22 01575 S9900-PREPARE-SEND. DTSCS22 01576 MOVE WRK-SCR-ID TO L851-SCR-ID DTSCS22 01577 LCCM-SCR-ID. DTSCS22 01578 DTSCS22 01579 MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND. DTSCS22 01580 DTSCS22 01581 MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE. DTSCS22 01582 S9900-EXIT. DTSCS22 01583 EXIT. DTSCS22