giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f8b9dd0f5612ad38b5ea474fd5af67b0e43194ce
DUTAS/CICS/DTSCS82.cob
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

1886 lines
147 KiB
COBOL
Raw Blame History

00001 IDENTIFICATION DIVISION. 09/01/16
00002 PROGRAM-ID. DTSCS82. DTSCS82
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV030
00004 DATE-WRITTEN. SEPTEMBER 1998. DTSCS82
00005 DATE-COMPILED. DTSCS82
00006 SKIP3 DTSCS82
00007 ***** DTSCS82
00008 * DTSCS82
00009 * FUNCTION: CALENDAR QUARTER INQUIRY/UPDATE DTSCS82
00010 * SCREEN PROCESSOR. DTSCS82
00011 ***** DTSCS82
00012 * DTSCS82
00013 * MODIFICATION LOG: DTSCS82
00014 * DTSCS82
00015 * 09/03/1998 INITIAL DEVELOPMENT. MODIFIED FROM MACCS82. DTSCS82
00016 * WORK ORDER: PROGRAMMER: GD DTSCS82
00017 * DTSCS82
00018 * 05/21/1999 PICKUP MODIFICATIONS. DO NOT ALLOW ADD DTSCS82
00019 * OR MODIFY FOR YRQ <= 19924. DTSCS82
00020 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSCS82
00021 * DTSCS82
00022 * 12/18/2099 ADDED NEW FIELD TO SHOW WHEN INTENT TO ESTIMATE DTSCS82
00023 * LETTER WAS SENT DTSCS82
00024 * REFERENCE: PROGRAMMER: ZL1 DTSCS82
00025 * DTSCS82
00026 * 02/18/2099 ADDED NEW FIELD TO SHOW WHEN 2ND LETTER FOR SI DTSCS82
00027 * EMPLOYERS WERE SENT DTSCS82
00028 * REFERENCE: PROGRAMMER: ZL1 DTSCS82
00029 * DTSCS82
00030 * 10/19/2010 CORRECTED EDIT PROBLEM WITH 2ND LETTER FOR SI DTSCS82
00031 * EMPLOYERS DTSCS82
00032 * REFERENCE: PROGRAMMER: GD DTSCS82
00033 * DTSCS82
00034 * DTSCS82
00035 * 02/20/2013 ADDED NEW FIELD TO SHOW DATE LATE PENALTY WAS DTSCS82
00036 * SENT TO SI EMPLOYERS.REPLACED INTENT TO ESTIMATE DTSCS82
00037 * DATE DTSCS82
00038 * REFERENCE: PROGRAMMER: ZL1 DTSCS82
00039 * DTSCS82
00040 * XX/XX/XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS82
00041 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCS82
00042 * REFERENCE: PROGRAMMER: XXX DTSCS82
00043 * DTSCS82
00044 * DTSCS82
00045 * DESCRIPTION: DTSCS82
00046 * DTSCS82
00047 * CLEAR: DTSCS82
00048 * DTSCS82
00049 * DATA FIELDS DISPLAYED: NONE. DTSCS82
00050 * MESSAGE: NONE (OTHER THAN "DELETE SUCCESSFUL"). DTSCS82
00051 * MOVE LOW-VALUES TO LCCM-SCR-KEY-AREA. DTSCS82
00052 * DTSCS82
00053 * DTSCS82
00054 * INQUIRY: DTSCS82
00055 * DTSCS82
00056 * CONTROL FIELD(S): MAP-YR, MAP-Q. DTSCS82
00057 * DTSCS82
00058 * JUMP IN: USE CLEAR LOGIC. DTSCS82
00059 * DTSCS82
00060 * ENTER: DISPLAY FQTR RECORD ASSOCIATED WITH MAP-YR DTSCS82
00061 * AND MAP-Q. DTSCS82
00062 * DTSCS82
00063 * PRIOR: STANDARD PAGING LOGIC, EXCEPT BASED ON USER DTSCS82
00064 * MODIFICATION TO MAP-YR AND MAP-Q (RATHER THAN DTSCS82
00065 * EMP-NO). DTSCS82
00066 * DTSCS82
00067 * NEXT: STANDARD PAGING LOGIC, EXCEPT BASED ON USER DTSCS82
00068 * MODIFICATION TO MAP-YR AND MAP-Q (RATHER THAN DTSCS82
00069 * EMP-NO). DTSCS82
00070 * DTSCS82
00071 * WHILE PAGING, CONSIDER THE BREAK TO BE A BREAK IN REC-TYPE.DTSCS82
00072 * DO NOT "WRAP" PAGING. DTSCS82
00073 * DTSCS82
00074 * A SUCCESSFUL DISPLAY RESULTS IN STORAGE OF THE DTSCS82
00075 * FQTR-KEY-AREA OF THE DISPLAYED FQTR RECORD IN DTSCS82
00076 * LCCM-SCR-KEY-AREA. DTSCS82
00077 * DTSCS82
00078 * DTSCS82
00079 * UPDATE: DTSCS82
00080 * DTSCS82
00081 * ADD DTSCS82
00082 * MOD DTSCS82
00083 * DEL DTSCS82
00084 * DTSCS82
00085 * DTSCS82
00086 * RECORDS READ: DTSCS82
00087 * DTSCS82
00088 * MASTER: DTSCS82
00089 * DTSCS82
00090 * NONE. DTSCS82
00091 * DTSCS82
00092 * DTSCS82
00093 * ALTERNATE INDEX: DTSCS82
00094 * DTSCS82
00095 * NONE. DTSCS82
00096 * DTSCS82
00097 * DTSCS82
00098 * REFERENCE: DTSCS82
00099 * DTSCS82
00100 * FQTR. DTSCS82
00101 * DTSCS82
00102 * DTSCS82
00103 * ACCOUNTING TRANSACTION COLLECTION: DTSCS82
00104 * DTSCS82
00105 * NONE. DTSCS82
00106 * DTSCS82
00107 * DTSCS82
00108 * RECORDS UPDATED: DTSCS82
00109 * DTSCS82
00110 * MASTER: DTSCS82
00111 * DTSCS82
00112 * NONE. DTSCS82
00113 * DTSCS82
00114 * DTSCS82
00115 * REFERENCE: DTSCS82
00116 * DTSCS82
00117 * FQTR (ADD, MOD, DEL). DTSCS82
00118 * DTSCS82
00119 * DTSCS82
00120 * ACCOUNTING TRANSACTION COLLECTION: DTSCS82
00121 * DTSCS82
00122 * NONE. DTSCS82
00123 * DTSCS82
00124 * DTSCS82
00125 * ON-LINE EVENT FILE RECORDS WRITTEN: DTSCS82
00126 * DTSCS82
00127 * NONE. DTSCS82
00128 * DTSCS82
00129 * DTSCS82
00130 * MODULES (OTHER THAN STANDARD SCREEN PROCESSING DTSCS82
00131 * UTILITY MODULES) LINKED TO: DTSCS82
00132 * DTSCS82
00133 * DTSCU001 DATE EDIT/CONVERSION. DTSCS82
00134 * DTSCU004 QUARTER EDIT/CONVERSION. DTSCS82
00135 * DTSCU015 DATE FROM SCREEN FORMAT/EDIT. DTSCS82
00136 * DTSCU016 QUARTER FROM SCREEN FORMAT/EDIT. DTSCS82
00137 * DTSCU831 REFERENCE FILE I/O. DTSCS82
00138 * DTSCS82
00139 * DTSCS82
00140 * MAINTENANCE NOTES: DTSCS82
00141 * DTSCS82
00142 * A NON-KEY FIELD ADDED TO OR REMOVED FROM THE SCREEN DTSCS82
00143 * REQUIRES ATTENTION IN THE FOLLOWING AREAS: DTSCS82
00144 * ALTER PARAGRAPHS P6900, P8900, S5900, DTSCS82
00145 * ALTER AS APPROPRIATE PARAGRAPHS LISTED IN S1002, DTSCS82
00146 * ALTER THE SEND/RECEIVE AREA DEFINITION (MACIS82), DTSCS82
00147 * ALTER THE MAP (MACM82) AND ASSEMBLE THE MAPSET (MACMSET).DTSCS82
00148 * DTSCS82
00149 ***** DTSCS82
00150 SKIP3 DTSCS82
00151 ENVIRONMENT DIVISION. DTSCS82
00152 SKIP3 DTSCS82
00153 DATA DIVISION. DTSCS82
00154 SKIP3 DTSCS82
00155 WORKING-STORAGE SECTION. DTSCS82
001555 77 PAN-VALET PICTURE X(24) VALUE '030DTSCS82 09/01/16'. DTSCS82
00156 77 PAN-VALET PICTURE X(24) VALUE '004DTSCS82 09/01/16'. DTSCS82
00157 77 PAN-VALET PICTURE X(24) VALUE '028DTSCS82 04/01/13'. DTSCS82
00158 77 PAN-VALET PICTURE X(24) VALUE '004DTSCS82 02/21/13'. DTSCS82
00159 77 PAN-VALET PICTURE X(24) VALUE '026DTSCS82 10/19/10'. DTSCS82
00160 SKIP3 DTSCS82
00161 01 WRK-AREA. DTSCS82
00162 05 WRK-ABEND-CD PIC X(04) VALUE 'S82 '. DTSCS82
00163 SKIP1 DTSCS82
00164 05 WRK-SCR-ID. DTSCS82
00165 10 WRK-SCR-ID-9 PIC 9(02) VALUE 82. DTSCS82
00166 05 WRK-F03-SCR-ID PIC X(02) VALUE '80'. DTSCS82
00167 SKIP1 DTSCS82
00168 05 WRK-KEY-AREA. DTSCS82
00169 10 WRK-REC-TYPE PIC S9(04) COMP. DTSCS82
00170 10 WRK-QTR PIC S9(05) COMP-3. DTSCS82
00171 10 FILLER PIC X(11). DTSCS82
00172 SKIP1 DTSCS82
00173 05 WRK-DISP-DATE PIC 9(08). DTSCS82
00174 05 FILLER REDEFINES WRK-DISP-DATE. DTSCS82
00175 10 WRK-DISP-CC PIC X(02). DTSCS82
00176 10 WRK-DISP-YY PIC X(02). DTSCS82
00177 10 WRK-DISP-MM PIC X(02). DTSCS82
00178 10 WRK-DISP-DD PIC X(02). DTSCS82
00179 SKIP1 DTSCS82
00180 05 WRK-NO-ENTRY PIC S9(09) COMP-3 DTSCS82
00181 VALUE +999999999. DTSCS82
00182 05 WRK-UC30-MASS-MAIL-DATE PIC S9(09) COMP-3. DTSCS82
00183 05 WRK-UC30-FIRST-DEL-DATE PIC S9(09) COMP-3. DTSCS82
00184 05 WRK-UC30-FINAL-DEL-DATE PIC S9(09) COMP-3. DTSCS82
00185 05 WRK-UC30-ESTIMATED-DATE PIC S9(09) COMP-3. DTSCS82
00186 05 WRK-DELQ-LTR-SENT-DATE PIC S9(09) COMP-3. DTSCS82
00187 05 WRK-SELF-INS-CHG-RUN-DATE PIC S9(09) COMP-3. DTSCS82
00188 05 WRK-YRQ-START-DATE PIC S9(09) COMP-3. DTSCS82
00189 05 WRK-YRQ-END-DATE PIC S9(09) COMP-3. DTSCS82
00190 05 WRK-YRQ-PLUS1-START-DATE PIC S9(09) COMP-3. DTSCS82
00191 05 WRK-YRQ-PLUS1-END-DATE PIC S9(09) COMP-3. DTSCS82
00192 05 WRK-DEFAULT-LATE-PEN-DATE PIC S9(09) COMP-3. DTSCS82
00193 EJECT DTSCS82
00194 01 SCREEN-PROCESSING. DTSCS82
00195 05 SCR-ACCESS-IND PIC X(01). DTSCS82
00196 88 SCR-ACCESS-INQ VALUE '1'. DTSCS82
00197 88 SCR-ACCESS-UPDATE VALUE '2'. DTSCS82
00198 SKIP1 DTSCS82
00199 05 CURSOR-SET-IND PIC X(01). DTSCS82
00200 88 CURSOR-SET-YES VALUE 'Y'. DTSCS82
00201 88 CURSOR-SET-NO VALUE 'N'. DTSCS82
00202 88 CURSOR-SET-GOTO VALUE 'G'. DTSCS82
00203 SKIP1 DTSCS82
00204 05 REQ-IND PIC X(01). DTSCS82
00205 88 REQ-ERROR VALUE 'O'. DTSCS82
00206 88 REQ-JUMP VALUE 'J'. DTSCS82
00207 88 REQ-INQUIRE VALUE 'I'. DTSCS82
00208 88 REQ-CLEAR VALUE 'C'. DTSCS82
00209 88 REQ-EDIT VALUE 'E'. DTSCS82
00210 88 REQ-UPDATE VALUE 'U'. DTSCS82
00211 88 REQ-CURSOR-TO-GOTO VALUE 'G'. DTSCS82
00212 SKIP1 DTSCS82
00213 05 RESP-IND PIC X(01). DTSCS82
00214 88 RESP-SEND-MSGONLY VALUE 'O'. DTSCS82
00215 88 RESP-SEND-MAP VALUE 'M'. DTSCS82
00216 88 RESP-JUMP VALUE 'J'. DTSCS82
00217 88 RESP-CURSOR-TO-GOTO VALUE 'G'. DTSCS82
00218 SKIP1 DTSCS82
00219 05 WRK-NEW-KEY-IND PIC X(01). DTSCS82
00220 SKIP1 DTSCS82
00221 05 WRK-MSG-ID PIC X(04). DTSCS82
00222 SKIP1 DTSCS82
00223 05 WRK-ATB-AN PIC X(01). DTSCS82
00224 05 WRK-ATB-NUM PIC X(01). DTSCS82
00225 EJECT DTSCS82
00226 01 L001-COMM-AREA. DTSCS82
00227 ++INCLUDE DTSIL001 DTSCS82
00228 EJECT DTSCS82
00229 01 L004-COMM-AREA. DTSCS82
00230 ++INCLUDE DTSIL004 DTSCS82
00231 EJECT DTSCS82
00232 01 L015-COMM-AREA. DTSCS82
00233 ++INCLUDE DTSIL015 DTSCS82
00234 EJECT DTSCS82
00235 01 L016-COMM-AREA. DTSCS82
00236 ++INCLUDE DTSIL016 DTSCS82
00237 EJECT DTSCS82
00238 * ERROR MSG MODULE DTSCS82
00239 01 L805-COMM-AREA. DTSCS82
00240 ++INCLUDE DTSIL805 DTSCS82
00241 EJECT DTSCS82
00242 * REFERENCE FILE I-O LINKAGE DTSCS82
00243 01 L831-COMM-AREA. DTSCS82
00244 05 L831-CONTROL-BLOCK. DTSCS82
00245 ++INCLUDE DTSIL831 DTSCS82
00246 EJECT DTSCS82
00247 * COMMON SKELETAL RECORD DTSCS82
00248 05 FCOMM-REC. DTSCS82
00249 ++INCLUDE DTSIFSKL DTSCS82
00250 EJECT DTSCS82
00251 * CALENDAR YEAR RECORD LAYOUT DTSCS82
00252 05 FQTR-REC REDEFINES FCOMM-REC. DTSCS82
00253 ++INCLUDE DTSIFQTR DTSCS82
00254 EJECT DTSCS82
00255 * MAP DEFINITION DTSCS82
00256 01 L851-COMM-AREA. DTSCS82
00257 ++INCLUDE DTSIL851 DTSCS82
00258 SKIP3 DTSCS82
00259 05 MAP-AREA REDEFINES L851-MAP-AREA. DTSCS82
00260 ++INCLUDE DTSIS82 DTSCS82
00261 EJECT DTSCS82
00262 * ATTRIBUTE LITERALS DTSCS82
00263 01 CATB-LITERALS. DTSCS82
00264 ++INCLUDE DTSICATB DTSCS82
00265 SKIP3 DTSCS82
00266 * FUNCTION KEY DESCRIPTION LITERALS DTSCS82
00267 01 CFKD-LITERALS. DTSCS82
00268 ++INCLUDE DTSICFKD DTSCS82
00269 SKIP3 DTSCS82
00270 * ERROR CODE MESSAGE LITERALS DTSCS82
00271 01 CECD-LITERALS. DTSCS82
00272 ++INCLUDE DTSICECD DTSCS82
00273 SKIP3 DTSCS82
00274 * PROMPT CODE MESSAGE LITERALS DTSCS82
00275 01 CPCD-LITERALS. DTSCS82
00276 ++INCLUDE DTSICPCD DTSCS82
00277 EJECT DTSCS82
00278 LINKAGE SECTION. DTSCS82
00279 SKIP3 DTSCS82
00280 01 DFHCOMMAREA. DTSCS82
00281 ++INCLUDE DTSILCCM DTSCS82
00282 SKIP3 DTSCS82
00283 15 FILLER REDEFINES LCCM-SCR-HOLD-AREA. DTSCS82
00284 20 LCCM-SCR-KEY-AREA PIC X(16). DTSCS82
00285 EJECT DTSCS82
00286 ******************************************************************DTSCS82
00287 * *DTSCS82
00288 ******************************************************************DTSCS82
00289 SKIP1 DTSCS82
00290 PROCEDURE DIVISION. DTSCS82
00291 SKIP2 DTSCS82
00292 SET CURSOR-SET-NO TO TRUE. DTSCS82
00293 SKIP1 DTSCS82
00294 MOVE LOW-VALUES TO MAP-AREA. DTSCS82
00295 SKIP1 DTSCS82
00296 MOVE LCCM-SCR-NUM-ACCESS-IND (WRK-SCR-ID-9) DTSCS82
00297 TO SCR-ACCESS-IND. DTSCS82
00298 SKIP3 DTSCS82
00299 MOVE SPACE TO REQ-IND. DTSCS82
00300 SKIP1 DTSCS82
00301 PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT. DTSCS82
00302 SKIP1 DTSCS82
00303 *----------------------------------------------------- DTSCS82
00304 * P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE DTSCS82
00305 * "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT DTSCS82
00306 * REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE DTSCS82
00307 * OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED. DTSCS82
00308 * DTSCS82
00309 * THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE DTSCS82
00310 * PROCESSED. DTSCS82
00311 * DTSCS82
00312 * THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND, DTSCS82
00313 * INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE DTSCS82
00314 * WORK STATION OPERATOR. DTSCS82
00315 *----------------------------------------------------- DTSCS82
00316 SKIP1 DTSCS82
00317 MOVE SPACE TO RESP-IND. DTSCS82
00318 SKIP1 DTSCS82
00319 IF REQ-ERROR DTSCS82
00320 PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT DTSCS82
00321 ELSE DTSCS82
00322 IF REQ-JUMP DTSCS82
00323 PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT DTSCS82
00324 ELSE DTSCS82
00325 IF REQ-CLEAR DTSCS82
00326 PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT DTSCS82
00327 ELSE DTSCS82
00328 IF REQ-CURSOR-TO-GOTO DTSCS82
00329 PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT DTSCS82
00330 ELSE DTSCS82
00331 IF REQ-INQUIRE DTSCS82
00332 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCS82
00333 ELSE DTSCS82
00334 IF REQ-EDIT DTSCS82
00335 PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT DTSCS82
00336 ELSE DTSCS82
00337 IF REQ-UPDATE DTSCS82
00338 PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT DTSCS82
00339 ELSE DTSCS82
00340 PERFORM S899-ABEND THRU S899-EXIT. DTSCS82
00341 SKIP3 DTSCS82
00342 *----------------------------------------------------- DTSCS82
00343 * THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED DTSCS82
00344 * IN RESP-IND THE TYPE OF RESPONSE TO BE MADE. DTSCS82
00345 *----------------------------------------------------- DTSCS82
00346 SKIP1 DTSCS82
00347 IF RESP-SEND-MAP DTSCS82
00348 PERFORM S9300-SEND-MAP THRU S9300-EXIT DTSCS82
00349 SET LCCM-END-TASK-88 TO TRUE DTSCS82
00350 ELSE DTSCS82
00351 IF RESP-SEND-MSGONLY DTSCS82
00352 OR RESP-CURSOR-TO-GOTO DTSCS82
00353 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCS82
00354 SET LCCM-END-TASK-88 TO TRUE DTSCS82
00355 ELSE DTSCS82
00356 IF RESP-JUMP DTSCS82
00357 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS82
00358 ELSE DTSCS82
00359 PERFORM S899-ABEND THRU S899-EXIT. DTSCS82
00360 SKIP3 DTSCS82
00361 MAINLINE-EXIT. DTSCS82
00362 SKIP1 DTSCS82
00363 EXEC CICS DTSCS82
00364 RETURN DTSCS82
00365 END-EXEC. DTSCS82
00366 SKIP2 DTSCS82
00367 GOBACK. DTSCS82
00368 /*****************************************************************DTSCS82
00369 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION *DTSCS82
00370 ******************************************************************DTSCS82
00371 P1000-ANALYZE-REQUEST. DTSCS82
00372 SKIP1 DTSCS82
00373 *----------------------------------------------------- DTSCS82
00374 * IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE) DTSCS82
00375 * THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE DTSCS82
00376 * REPLACED WITH ENTER) DTSCS82
00377 *----------------------------------------------------- DTSCS82
00378 IF LCCM-SCR-ID NOT = WRK-SCR-ID DTSCS82
00379 SET LCCM-ENTER-88 TO TRUE DTSCS82
00380 SET REQ-CLEAR TO TRUE DTSCS82
00381 GO TO P1000-EXIT. DTSCS82
00382 SKIP3 DTSCS82
00383 *----------------------------------------------------- DTSCS82
00384 * MAP IS RECEIVED DTSCS82
00385 *----------------------------------------------------- DTSCS82
00386 PERFORM S9100-RECEIVE THRU S9100-EXIT. DTSCS82
00387 SKIP3 DTSCS82
00388 *----------------------------------------------------- DTSCS82
00389 * CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE DTSCS82
00390 * WORK STATION DTSCS82
00391 *----------------------------------------------------- DTSCS82
00392 IF LCCM-CLEAR-88 DTSCS82
00393 SET REQ-CLEAR TO TRUE DTSCS82
00394 GO TO P1000-EXIT. DTSCS82
00395 SKIP3 DTSCS82
00396 *----------------------------------------------------- DTSCS82
00397 * IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED DTSCS82
00398 *----------------------------------------------------- DTSCS82
00399 IF LCCM-SCR-UPDATE-LOCKED DTSCS82
00400 PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT DTSCS82
00401 GO TO P1000-EXIT. DTSCS82
00402 SKIP3 DTSCS82
00403 *----------------------------------------------------- DTSCS82
00404 * PA2 IS A REQUEST TO POSITION CURSOR AT GO TO: DTSCS82
00405 *----------------------------------------------------- DTSCS82
00406 IF LCCM-PA2-88 DTSCS82
00407 SET REQ-CURSOR-TO-GOTO TO TRUE DTSCS82
00408 GO TO P1000-EXIT. DTSCS82
00409 SKIP3 DTSCS82
00410 *----------------------------------------------------- DTSCS82
00411 * ALL OTHER PA KEYS ARE NOT ACTIVE DTSCS82
00412 *----------------------------------------------------- DTSCS82
00413 IF LCCM-PA-88 DTSCS82
00414 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCS82
00415 SET REQ-ERROR TO TRUE DTSCS82
00416 GO TO P1000-EXIT. DTSCS82
00417 SKIP3 DTSCS82
00418 *----------------------------------------------------- DTSCS82
00419 * IF F12 PRESSED WHEN UPDATE NOT IN PROGRESS IS A DTSCS82
00420 * REQUEST TO CLEAR THE SCREEN. DTSCS82
00421 *----------------------------------------------------- DTSCS82
00422 IF LCCM-F12-88 DTSCS82
00423 MOVE LOW-VALUES TO MAP-AREA DTSCS82
00424 SET REQ-CLEAR TO TRUE DTSCS82
00425 GO TO P1000-EXIT. DTSCS82
00426 SKIP3 DTSCS82
00427 *----------------------------------------------------- DTSCS82
00428 * IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION DTSCS82
00429 *----------------------------------------------------- DTSCS82
00430 IF LCCM-F03-88 DTSCS82
00431 MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID DTSCS82
00432 SET REQ-JUMP TO TRUE DTSCS82
00433 GO TO P1000-EXIT. DTSCS82
00434 SKIP3 DTSCS82
00435 *----------------------------------------------------- DTSCS82
00436 * IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN DTSCS82
00437 *----------------------------------------------------- DTSCS82
00438 IF LCCM-F04-88 DTSCS82
00439 MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS82
00440 SET REQ-JUMP TO TRUE DTSCS82
00441 GO TO P1000-EXIT. DTSCS82
00442 SKIP3 DTSCS82
00443 *----------------------------------------------------- DTSCS82
00444 * IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO DTSCS82
00445 * CORRESPONDENCE SCREEN DTSCS82
00446 *----------------------------------------------------- DTSCS82
00447 IF LCCM-F14-88 DTSCS82
00448 MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID DTSCS82
00449 SET REQ-JUMP TO TRUE DTSCS82
00450 GO TO P1000-EXIT. DTSCS82
00451 SKIP3 DTSCS82
00452 *----------------------------------------------------- DTSCS82
00453 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS82
00454 * REQUESTED SCREEN TYPE DTSCS82
00455 *----------------------------------------------------- DTSCS82
00456 IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID DTSCS82
00457 NEXT SENTENCE DTSCS82
00458 ELSE DTSCS82
00459 MOVE MAP-GOTO TO LCCM-REQ-SCR-ID DTSCS82
00460 SET REQ-JUMP TO TRUE DTSCS82
00461 GO TO P1000-EXIT. DTSCS82
00462 SKIP3 DTSCS82
00463 *----------------------------------------------------- DTSCS82
00464 * IF REQUEST TO UPDATE THE DATA (ADD, MOD, DEL) DTSCS82
00465 * VERIFY USER ACCESS TO PERFORM UPDATE DTSCS82
00466 *----------------------------------------------------- DTSCS82
00467 IF LCCM-F09-88 OR LCCM-F10-88 OR LCCM-F23-88 DTSCS82
00468 IF SCR-ACCESS-UPDATE DTSCS82
00469 SET REQ-EDIT TO TRUE DTSCS82
00470 GO TO P1000-EXIT DTSCS82
00471 ELSE DTSCS82
00472 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCS82
00473 SET REQ-ERROR TO TRUE DTSCS82
00474 GO TO P1000-EXIT. DTSCS82
00475 SKIP3 DTSCS82
00476 *----------------------------------------------------- DTSCS82
00477 * IF INQUIRY TYPE KEY PRESSED (ENTER, PAGE DOWN, DTSCS82
00478 * PAGE UP), INDICATE INQUIRY REQUEST DTSCS82
00479 *----------------------------------------------------- DTSCS82
00480 IF LCCM-ENTER-88 OR LCCM-F07-88 OR LCCM-F08-88 DTSCS82
00481 SET REQ-INQUIRE TO TRUE DTSCS82
00482 GO TO P1000-EXIT. DTSCS82
00483 SKIP3 DTSCS82
00484 *----------------------------------------------------- DTSCS82
00485 * ANY OTHER KEY IS INVALID DTSCS82
00486 *----------------------------------------------------- DTSCS82
00487 PERFORM S804-INVALID-KEY THRU S804-EXIT. DTSCS82
00488 SET REQ-ERROR TO TRUE. DTSCS82
00489 P1000-EXIT. DTSCS82
00490 EXIT. DTSCS82
00491 SKIP3 DTSCS82
00492 ******************************************************************DTSCS82
00493 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCS82
00494 ******************************************************************DTSCS82
00495 SKIP1 DTSCS82
00496 P1100-UPDATE-LOCKED. DTSCS82
00497 *----------------------------------------------------- DTSCS82
00498 * IF THE SCREEN IS "LOCKED FOR UPDATE", THEN DTSCS82
00499 * THE ONLY VALID OPERATOR REQUESTS ARE ENTER DTSCS82
00500 * (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE). DTSCS82
00501 *----------------------------------------------------- DTSCS82
00502 IF LCCM-ENTER-88 OR LCCM-F12-88 DTSCS82
00503 SET REQ-UPDATE TO TRUE DTSCS82
00504 ELSE DTSCS82
00505 SET REQ-ERROR TO TRUE DTSCS82
00506 IF LCCM-SCR-ADD-LOCKED DTSCS82
00507 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID DTSCS82
00508 ELSE DTSCS82
00509 IF LCCM-SCR-MOD-LOCKED DTSCS82
00510 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID DTSCS82
00511 ELSE DTSCS82
00512 IF LCCM-SCR-DEL-LOCKED DTSCS82
00513 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID DTSCS82
00514 ELSE DTSCS82
00515 PERFORM S899-ABEND THRU S899-EXIT. DTSCS82
00516 P1100-EXIT. DTSCS82
00517 EXIT. DTSCS82
00518 /*****************************************************************DTSCS82
00519 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCS82
00520 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN. *DTSCS82
00521 ******************************************************************DTSCS82
00522 SKIP1 DTSCS82
00523 P2000-REQUEST-ERROR. DTSCS82
00524 IF LCCM-MSG DTSCS82
00525 SET RESP-SEND-MSGONLY TO TRUE DTSCS82
00526 ELSE DTSCS82
00527 PERFORM S899-ABEND THRU S899-EXIT. DTSCS82
00528 P2000-EXIT. DTSCS82
00529 EXIT. DTSCS82
00530 /*****************************************************************DTSCS82
00531 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED *DTSCS82
00532 ******************************************************************DTSCS82
00533 SKIP1 DTSCS82
00534 P3000-REQUEST-JUMP. DTSCS82
00535 *----------------------------------------------------- DTSCS82
00536 * VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE DTSCS82
00537 * BY USER DTSCS82
00538 *----------------------------------------------------- DTSCS82
00539 PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT. DTSCS82
00540 SKIP3 DTSCS82
00541 *----------------------------------------------------- DTSCS82
00542 * VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED DTSCS82
00543 *----------------------------------------------------- DTSCS82
00544 IF LCCM-MSG DTSCS82
00545 SET RESP-SEND-MSGONLY TO TRUE DTSCS82
00546 SET CURSOR-SET-GOTO TO TRUE DTSCS82
00547 GO TO P3000-EXIT. DTSCS82
00548 SKIP3 DTSCS82
00549 *----------------------------------------------------- DTSCS82
00550 * CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING DTSCS82
00551 *----------------------------------------------------- DTSCS82
00552 MOVE LOW-VALUES TO LCCM-SCR-STATUS DTSCS82
00553 LCCM-SCR-HOLD-AREA. DTSCS82
00554 MOVE +0 TO LCCM-SCR-ABSTIME. DTSCS82
00555 SET RESP-JUMP TO TRUE. DTSCS82
00556 P3000-EXIT. DTSCS82
00557 EXIT. DTSCS82
00558 /*****************************************************************DTSCS82
00559 * CLEAR KEY WAS PRESSED *DTSCS82
00560 ******************************************************************DTSCS82
00561 SKIP1 DTSCS82
00562 P4000-REQUEST-CLEAR. DTSCS82
00563 IF SCR-ACCESS-UPDATE DTSCS82
00564 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS82
00565 ELSE DTSCS82
00566 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS82
00567 SKIP3 DTSCS82
00568 *----------------------------------------------------- DTSCS82
00569 * CLEAN UP INDICATORS AND PAGING STORAGE. RESET KEY DTSCS82
00570 * FIELDS FROM EARLIER REQUESTS DTSCS82
00571 *----------------------------------------------------- DTSCS82
00572 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA. DTSCS82
00573 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS82
00574 SET LCCM-SCR-CLEAR TO TRUE. DTSCS82
00575 SET RESP-SEND-MAP TO TRUE. DTSCS82
00576 P4000-EXIT. DTSCS82
00577 EXIT. DTSCS82
00578 /*****************************************************************DTSCS82
00579 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED *DTSCS82
00580 ******************************************************************DTSCS82
00581 SKIP1 DTSCS82
00582 P5000-CURSOR-TO-GOTO. DTSCS82
00583 SET CURSOR-SET-GOTO TO TRUE. DTSCS82
00584 SET RESP-CURSOR-TO-GOTO TO TRUE. DTSCS82
00585 P5000-EXIT. DTSCS82
00586 EXIT. DTSCS82
00587 /*****************************************************************DTSCS82
00588 * INQUIRY WAS REQUESTED *DTSCS82
00589 ******************************************************************DTSCS82
00590 SKIP1 DTSCS82
00591 P6000-REQUEST-INQUIRE. DTSCS82
00592 MOVE LOW-VALUES TO FQTR-KEY-AREA. DTSCS82
00593 SET FQTR-QTR-88 TO TRUE. DTSCS82
00594 SKIP1 DTSCS82
00595 MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA. DTSCS82
00596 MOVE LOW-VALUES TO MAP-AREA. DTSCS82
00597 MOVE L016-S-YRQ-AREA TO MAP-YRQ-AREA. DTSCS82
00598 PERFORM S016-CHECK-MAP-YR-Q THRU S016-EXIT. DTSCS82
00599 IF L016-NO-ENTRY DTSCS82
00600 MOVE +0 TO FQTR-YRQ DTSCS82
00601 ELSE DTSCS82
00602 IF L016-VALID DTSCS82
00603 MOVE L016-YRQ TO FQTR-YRQ DTSCS82
00604 ELSE DTSCS82
00605 MOVE +0 TO FQTR-YRQ DTSCS82
00606 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
00607 PERFORM S1101-ERROR THRU S1101-EXIT. DTSCS82
00608 IF LCCM-SCR-INQUIRE DTSCS82
00609 AND FQTR-KEY-AREA = LCCM-SCR-KEY-AREA DTSCS82
00610 MOVE 'N' TO WRK-NEW-KEY-IND DTSCS82
00611 ELSE DTSCS82
00612 MOVE 'Y' TO WRK-NEW-KEY-IND. DTSCS82
00613 SKIP1 DTSCS82
00614 IF SCR-ACCESS-UPDATE DTSCS82
00615 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCS82
00616 ELSE DTSCS82
00617 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCS82
00618 SKIP1 DTSCS82
00619 SET LCCM-SCR-CLEAR TO TRUE. DTSCS82
00620 MOVE LOW-VALUES TO LCCM-SCR-KEY-AREA. DTSCS82
00621 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS82
00622 SKIP1 DTSCS82
00623 IF LCCM-MSG DTSCS82
00624 NEXT SENTENCE DTSCS82
00625 ELSE DTSCS82
00626 IF LCCM-ENTER-88 DTSCS82
00627 PERFORM P6100-NO-PAGE THRU P6100-EXIT DTSCS82
00628 ELSE DTSCS82
00629 IF LCCM-F07-88 DTSCS82
00630 PERFORM P6200-PAGE-BACK THRU P6200-EXIT DTSCS82
00631 ELSE DTSCS82
00632 IF LCCM-F08-88 DTSCS82
00633 PERFORM P6300-PAGE-NEXT THRU P6300-EXIT DTSCS82
00634 ELSE DTSCS82
00635 PERFORM S899-ABEND THRU S899-EXIT. DTSCS82
00636 SKIP1 DTSCS82
00637 SET RESP-SEND-MAP TO TRUE. DTSCS82
00638 P6000-EXIT. DTSCS82
00639 EXIT. DTSCS82
00640 EJECT DTSCS82
00641 P6100-NO-PAGE. DTSCS82
00642 IF L016-NO-ENTRY DTSCS82
00643 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-ID DTSCS82
00644 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00645 GO TO P6100-EXIT. DTSCS82
00646 SKIP1 DTSCS82
00647 PERFORM S831-READ THRU S831-EXIT. DTSCS82
00648 IF L831-NO-REC-88 DTSCS82
00649 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
00650 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00651 GO TO P6100-EXIT. DTSCS82
00652 SKIP1 DTSCS82
00653 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT. DTSCS82
00654 P6100-EXIT. DTSCS82
00655 EXIT. DTSCS82
00656 EJECT DTSCS82
00657 P6200-PAGE-BACK. DTSCS82
00658 MOVE FQTR-KEY-AREA TO WRK-KEY-AREA. DTSCS82
00659 PERFORM S831-START-BROWSE THRU S831-EXIT. DTSCS82
00660 IF L831-NO-REC-88 DTSCS82
00661 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
00662 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00663 GO TO P6200-EXIT. DTSCS82
00664 SKIP1 DTSCS82
00665 IF (WRK-NEW-KEY-IND = 'Y') DTSCS82
00666 AND DTSCS82
00667 (WRK-KEY-AREA = FQTR-KEY-AREA) DTSCS82
00668 PERFORM S831-END-BROWSE THRU S831-EXIT DTSCS82
00669 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT DTSCS82
00670 GO TO P6200-EXIT. DTSCS82
00671 SKIP1 DTSCS82
00672 PERFORM S831-READ-PREV THRU S831-EXIT. DTSCS82
00673 IF L831-NO-REC-88 DTSCS82
00674 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
00675 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00676 GO TO P6200-EXIT. DTSCS82
00677 SKIP1 DTSCS82
00678 PERFORM S831-READ-PREV THRU S831-EXIT. DTSCS82
00679 IF L831-NO-REC-88 DTSCS82
00680 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT DTSCS82
00681 MOVE PMSG-FIRST-PAGE TO LCCM-MSG-ID DTSCS82
00682 ELSE DTSCS82
00683 PERFORM S831-END-BROWSE THRU S831-EXIT DTSCS82
00684 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT. DTSCS82
00685 P6200-EXIT. DTSCS82
00686 EXIT. DTSCS82
00687 EJECT DTSCS82
00688 P6300-PAGE-NEXT. DTSCS82
00689 MOVE FQTR-KEY-AREA TO WRK-KEY-AREA. DTSCS82
00690 PERFORM S831-START-BROWSE THRU S831-EXIT. DTSCS82
00691 IF L831-NO-REC-88 DTSCS82
00692 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
00693 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00694 GO TO P6300-EXIT. DTSCS82
00695 SKIP1 DTSCS82
00696 IF (WRK-NEW-KEY-IND = 'N') DTSCS82
00697 AND DTSCS82
00698 (WRK-KEY-AREA = FQTR-KEY-AREA) DTSCS82
00699 NEXT SENTENCE DTSCS82
00700 ELSE DTSCS82
00701 PERFORM S831-END-BROWSE THRU S831-EXIT DTSCS82
00702 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT DTSCS82
00703 GO TO P6300-EXIT. DTSCS82
00704 SKIP1 DTSCS82
00705 PERFORM S831-READ-NEXT THRU S831-EXIT. DTSCS82
00706 IF L831-NO-REC-88 DTSCS82
00707 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT DTSCS82
00708 MOVE PMSG-LAST-PAGE TO LCCM-MSG-ID DTSCS82
00709 ELSE DTSCS82
00710 PERFORM S831-END-BROWSE THRU S831-EXIT DTSCS82
00711 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT. DTSCS82
00712 P6300-EXIT. DTSCS82
00713 EXIT. DTSCS82
00714 /*****************************************************************DTSCS82
00715 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS *DTSCS82
00716 ******************************************************************DTSCS82
00717 SKIP1 DTSCS82
00718 P6900-CONSTRUCT-SCREEN. DTSCS82
00719 MOVE FQTR-YRQ TO L004-QTR-5-9. DTSCS82
00720 SET L004-FROM-5 TO TRUE. DTSCS82
00721 PERFORM S004-YRQ-CONVERT THROUGH S004-EXIT. DTSCS82
00722 IF L004-VALID-QTR DTSCS82
00723 MOVE L004-QTR-3-YR TO MAP-YR DTSCS82
00724 MOVE L004-QTR-3-Q TO MAP-Q DTSCS82
00725 ELSE DTSCS82
00726 GO TO S899-ABEND. DTSCS82
00727 SKIP1 DTSCS82
00728 IF FQTR-UC30-MASS-MAIL-DATE NUMERIC DTSCS82
00729 IF FQTR-UC30-MASS-MAIL-DATE NOT = +0 DTSCS82
00730 MOVE FQTR-UC30-MASS-MAIL-DATE TO WRK-DISP-DATE DTSCS82
00731 MOVE WRK-DISP-MM TO MAP-UC30-MASS-MAIL-MM DTSCS82
00732 MOVE WRK-DISP-DD TO MAP-UC30-MASS-MAIL-DD DTSCS82
00733 MOVE WRK-DISP-YY TO MAP-UC30-MASS-MAIL-YY. DTSCS82
00734 SKIP1 DTSCS82
00735 IF FQTR-LATE-PEN-ASSESSED-DATE NUMERIC DTSCS82
00736 IF FQTR-LATE-PEN-ASSESSED-DATE NOT = +0 DTSCS82
00737 MOVE FQTR-LATE-PEN-ASSESSED-DATE TO WRK-DISP-DATE DTSCS82
00738 MOVE WRK-DISP-MM TO MAP-LATE-PEN-ASSESSED-MM DTSCS82
00739 MOVE WRK-DISP-DD TO MAP-LATE-PEN-ASSESSED-DD DTSCS82
00740 MOVE WRK-DISP-YY TO MAP-LATE-PEN-ASSESSED-YY. DTSCS82
00741 SKIP1 DTSCS82
00742 IF FQTR-UC30-FIRST-DEL-DATE NUMERIC DTSCS82
00743 IF FQTR-UC30-FIRST-DEL-DATE NOT = +0 DTSCS82
00744 MOVE FQTR-UC30-FIRST-DEL-DATE TO WRK-DISP-DATE DTSCS82
00745 MOVE WRK-DISP-MM TO MAP-UC30-FIRST-DEL-MM DTSCS82
00746 MOVE WRK-DISP-DD TO MAP-UC30-FIRST-DEL-DD DTSCS82
00747 MOVE WRK-DISP-YY TO MAP-UC30-FIRST-DEL-YY. DTSCS82
00748 SKIP1 DTSCS82
00749 IF FQTR-UC30-FINAL-DEL-DATE NUMERIC DTSCS82
00750 IF FQTR-UC30-FINAL-DEL-DATE NOT = +0 DTSCS82
00751 MOVE FQTR-UC30-FINAL-DEL-DATE TO WRK-DISP-DATE DTSCS82
00752 MOVE WRK-DISP-MM TO MAP-UC30-FINAL-DEL-MM DTSCS82
00753 MOVE WRK-DISP-DD TO MAP-UC30-FINAL-DEL-DD DTSCS82
00754 MOVE WRK-DISP-YY TO MAP-UC30-FINAL-DEL-YY. DTSCS82
00755 SKIP1 DTSCS82
00756 IF FQTR-UC30-FINAL-ACTION-DATE NUMERIC DTSCS82
00757 IF FQTR-UC30-FINAL-ACTION-DATE NOT = +0 DTSCS82
00758 MOVE FQTR-UC30-FINAL-ACTION-DATE TO WRK-DISP-DATE DTSCS82
00759 MOVE WRK-DISP-MM TO MAP-UC30-FINAL-ACTION-MM DTSCS82
00760 MOVE WRK-DISP-DD TO MAP-UC30-FINAL-ACTION-DD DTSCS82
00761 MOVE WRK-DISP-YY TO MAP-UC30-FINAL-ACTION-YY.DTSCS82
00762 SKIP1 DTSCS82
00763 IF FQTR-DELQ-LTR-SENT-DATE NUMERIC DTSCS82
00764 IF FQTR-DELQ-LTR-SENT-DATE NOT = +0 DTSCS82
00765 MOVE FQTR-DELQ-LTR-SENT-DATE TO WRK-DISP-DATE DTSCS82
00766 MOVE WRK-DISP-MM TO MAP-DELQ-LTR-SENT-MM DTSCS82
00767 MOVE WRK-DISP-DD TO MAP-DELQ-LTR-SENT-DD DTSCS82
00768 MOVE WRK-DISP-YY TO MAP-DELQ-LTR-SENT-YY. DTSCS82
00769 SKIP1 DTSCS82
00770 IF FQTR-ESTIMATED-DATE NUMERIC DTSCS82
00771 IF FQTR-ESTIMATED-DATE NOT = +0 DTSCS82
00772 MOVE FQTR-ESTIMATED-DATE TO WRK-DISP-DATE DTSCS82
00773 MOVE WRK-DISP-MM TO MAP-UC30-ESTIMATED-MM DTSCS82
00774 MOVE WRK-DISP-DD TO MAP-UC30-ESTIMATED-DD DTSCS82
00775 MOVE WRK-DISP-YY TO MAP-UC30-ESTIMATED-YY. DTSCS82
00776 SKIP1 DTSCS82
00777 IF FQTR-SELF-INS-TAX-DUE-DATE NUMERIC DTSCS82
00778 IF FQTR-SELF-INS-TAX-DUE-DATE NOT = +0 DTSCS82
00779 MOVE FQTR-SELF-INS-TAX-DUE-DATE TO WRK-DISP-DATE DTSCS82
00780 MOVE WRK-DISP-MM TO MAP-SELF-INS-TAX-DUE-MM DTSCS82
00781 MOVE WRK-DISP-DD TO MAP-SELF-INS-TAX-DUE-DD DTSCS82
00782 MOVE WRK-DISP-YY TO MAP-SELF-INS-TAX-DUE-YY. DTSCS82
00783 SKIP1 DTSCS82
00784 IF FQTR-SELF-INS-2ND-LETTER-DATE NUMERIC DTSCS82
00785 IF FQTR-SELF-INS-2ND-LETTER-DATE NOT = +0 DTSCS82
00786 MOVE FQTR-SELF-INS-2ND-LETTER-DATE TO WRK-DISP-DATE DTSCS82
00787 MOVE WRK-DISP-MM TO MAP-SELF-INS-2ND-LTR-MM DTSCS82
00788 MOVE WRK-DISP-DD TO MAP-SELF-INS-2ND-LTR-DD DTSCS82
00789 MOVE WRK-DISP-YY TO MAP-SELF-INS-2ND-LTR-YY. DTSCS82
00790 SKIP1 DTSCS82
00791 IF FQTR-SELF-INS-CHG-RUN-DATE NUMERIC DTSCS82
00792 IF FQTR-SELF-INS-CHG-RUN-DATE NOT = +0 DTSCS82
00793 MOVE FQTR-SELF-INS-CHG-RUN-DATE TO WRK-DISP-DATE DTSCS82
00794 MOVE WRK-DISP-MM TO MAP-SELF-INS-CHG-RUN-MM DTSCS82
00795 MOVE WRK-DISP-DD TO MAP-SELF-INS-CHG-RUN-DD DTSCS82
00796 MOVE WRK-DISP-YY TO MAP-SELF-INS-CHG-RUN-YY. DTSCS82
00797 SKIP1 DTSCS82
00798 IF FQTR-ESTB-DATE NOT = +0 DTSCS82
00799 MOVE FQTR-ESTB-DATE TO L001-FED-8-DATE-9 DTSCS82
00800 SET L001-FROM-FED-8 TO TRUE DTSCS82
00801 PERFORM S001-DATE THRU S001-EXIT DTSCS82
00802 MOVE L001-SLASH-DATE TO MAP-ESTB-DATE. DTSCS82
00803 SKIP1 DTSCS82
00804 IF FQTR-CHNG-DATE NOT = +0 DTSCS82
00805 MOVE FQTR-CHNG-DATE TO L001-FED-8-DATE-9 DTSCS82
00806 SET L001-FROM-FED-8 TO TRUE DTSCS82
00807 PERFORM S001-DATE THRU S001-EXIT DTSCS82
00808 MOVE L001-SLASH-DATE TO MAP-CHNG-DATE. DTSCS82
00809 SKIP1 DTSCS82
00810 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS82
00811 MOVE FQTR-KEY-AREA TO LCCM-SCR-KEY-AREA. DTSCS82
00812 P6900-EXIT. DTSCS82
00813 EXIT. DTSCS82
00814 /*****************************************************************DTSCS82
00815 * FUNCTION KEY WAS PRESSED TO ADD, MOD OR DEL THE RECORD. *DTSCS82
00816 ******************************************************************DTSCS82
00817 SKIP1 DTSCS82
00818 P7000-REQUEST-EDIT. DTSCS82
00819 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS82
00820 SKIP1 DTSCS82
00821 IF LCCM-F09-88 DTSCS82
00822 PERFORM P7100-EDIT-ADD THRU P7100-EXIT DTSCS82
00823 ELSE DTSCS82
00824 IF LCCM-F10-88 DTSCS82
00825 PERFORM P7200-EDIT-MOD THRU P7200-EXIT DTSCS82
00826 ELSE DTSCS82
00827 IF LCCM-F23-88 DTSCS82
00828 PERFORM P7300-EDIT-DEL THRU P7300-EXIT DTSCS82
00829 ELSE DTSCS82
00830 PERFORM S899-ABEND THRU S899-EXIT. DTSCS82
00831 SKIP3 DTSCS82
00832 *------------------------------------------------------ DTSCS82
00833 * SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED. DTSCS82
00834 * IN ORDER TO CONTINUE TO ATTEMPT AN ADD THE SCREEN MUST REMAIN DTSCS82
00835 * IN A 'CLEAR' STATE. THE SCREEN MUST BE IN 'INQUIRE' STATUS DTSCS82
00836 * IF MOD OR DEL FUNCTIONS ARE BEING REQUESTED. DTSCS82
00837 *------------------------------------------------------ DTSCS82
00838 SKIP1 DTSCS82
00839 IF LCCM-MSG DTSCS82
00840 NEXT SENTENCE DTSCS82
00841 ELSE DTSCS82
00842 PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT DTSCS82
00843 IF LCCM-F09-88 DTSCS82
00844 SET LCCM-SCR-ADD-LOCKED TO TRUE DTSCS82
00845 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-ID DTSCS82
00846 ELSE DTSCS82
00847 IF LCCM-F10-88 DTSCS82
00848 SET LCCM-SCR-MOD-LOCKED TO TRUE DTSCS82
00849 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-ID DTSCS82
00850 ELSE DTSCS82
00851 IF LCCM-F23-88 DTSCS82
00852 SET LCCM-SCR-DEL-LOCKED TO TRUE DTSCS82
00853 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-ID. DTSCS82
00854 SKIP1 DTSCS82
00855 SET RESP-SEND-MAP TO TRUE. DTSCS82
00856 P7000-EXIT. DTSCS82
00857 EXIT. DTSCS82
00858 /*****************************************************************DTSCS82
00859 * ADD FUNCTION WAS REQUESTED *DTSCS82
00860 ******************************************************************DTSCS82
00861 SKIP1 DTSCS82
00862 P7100-EDIT-ADD. DTSCS82
00863 *------------------------------------------------------ DTSCS82
00864 * ADD REQUIRES THAT THE SCREEN WAS IN THE CLEAR STATE DTSCS82
00865 *------------------------------------------------------ DTSCS82
00866 IF NOT LCCM-SCR-CLEAR DTSCS82
00867 MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-ID DTSCS82
00868 GO TO P7100-EXIT. DTSCS82
00869 SKIP1 DTSCS82
00870 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCS82
00871 SKIP1 DTSCS82
00872 IF LCCM-NO-MSG DTSCS82
00873 PERFORM S8010-READ-FQTR THRU S8010-EXIT DTSCS82
00874 IF L831-OK-88 DTSCS82
00875 MOVE EMSG-RECORD-EXISTS TO WRK-MSG-ID DTSCS82
00876 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00877 ELSE DTSCS82
00878 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT. DTSCS82
00879 P7100-EXIT. DTSCS82
00880 EXIT. DTSCS82
00881 /*****************************************************************DTSCS82
00882 * MODIFICATION FUNCTION WAS REQUESTED *DTSCS82
00883 ******************************************************************DTSCS82
00884 SKIP1 DTSCS82
00885 P7200-EDIT-MOD. DTSCS82
00886 *----------------------------------------------------- DTSCS82
00887 * MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCS82
00888 * INQUIRED DTSCS82
00889 *----------------------------------------------------- DTSCS82
00890 IF NOT LCCM-SCR-INQUIRE DTSCS82
00891 MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-ID DTSCS82
00892 GO TO P7200-EXIT. DTSCS82
00893 SKIP3 DTSCS82
00894 *----------------------------------------------------- DTSCS82
00895 * CONTROL FIELD(S) MAY NOT BE CHANGED DURING THE MOD DTSCS82
00896 *----------------------------------------------------- DTSCS82
00897 MOVE LCCM-SCR-KEY-AREA TO WRK-KEY-AREA. DTSCS82
00898 MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA. DTSCS82
00899 PERFORM S016-CHECK-MAP-YR-Q THRU S016-EXIT. DTSCS82
00900 IF L016-NOT-VALID DTSCS82
00901 OR L016-YRQ NOT = WRK-QTR DTSCS82
00902 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-ID DTSCS82
00903 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00904 GO TO P7200-EXIT. DTSCS82
00905 SKIP1 DTSCS82
00906 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCS82
00907 SKIP1 DTSCS82
00908 IF LCCM-NO-MSG DTSCS82
00909 PERFORM S8010-READ-FQTR THRU S8010-EXIT DTSCS82
00910 IF L831-NO-REC-88 DTSCS82
00911 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
00912 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00913 ELSE DTSCS82
00914 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT. DTSCS82
00915 P7200-EXIT. DTSCS82
00916 EXIT. DTSCS82
00917 /*****************************************************************DTSCS82
00918 * DELETE FUNCTION WAS REQUESTED *DTSCS82
00919 ******************************************************************DTSCS82
00920 SKIP1 DTSCS82
00921 P7300-EDIT-DEL. DTSCS82
00922 *----------------------------------------------------- DTSCS82
00923 * DELETE REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCS82
00924 * INQUIRED DTSCS82
00925 *----------------------------------------------------- DTSCS82
00926 IF NOT LCCM-SCR-INQUIRE DTSCS82
00927 MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-ID DTSCS82
00928 GO TO P7300-EXIT. DTSCS82
00929 SKIP3 DTSCS82
00930 *----------------------------------------------------- DTSCS82
00931 * CONTROL FIELD(S) MAY NOT BE CHANGED DURING A DELETE DTSCS82
00932 *----------------------------------------------------- DTSCS82
00933 MOVE LCCM-SCR-KEY-AREA TO WRK-KEY-AREA. DTSCS82
00934 MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA. DTSCS82
00935 PERFORM S016-CHECK-MAP-YR-Q THRU S016-EXIT. DTSCS82
00936 IF L016-NOT-VALID DTSCS82
00937 OR L016-YRQ NOT = WRK-QTR DTSCS82
00938 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-ID DTSCS82
00939 PERFORM S1101-ERROR THRU S1101-EXIT. DTSCS82
00940 SKIP1 DTSCS82
00941 IF LCCM-NO-MSG DTSCS82
00942 PERFORM S8010-READ-FQTR THRU S8010-EXIT DTSCS82
00943 IF L831-NO-REC-88 DTSCS82
00944 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
00945 PERFORM S1101-ERROR THRU S1101-EXIT. DTSCS82
00946 P7300-EXIT. DTSCS82
00947 EXIT. DTSCS82
00948 /*****************************************************************DTSCS82
00949 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED *DTSCS82
00950 ******************************************************************DTSCS82
00951 SKIP1 DTSCS82
00952 P8000-REQUEST-UPDATE. DTSCS82
00953 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS82
00954 SKIP1 DTSCS82
00955 IF LCCM-SCR-ADD-LOCKED DTSCS82
00956 PERFORM P8100-ADD THRU P8100-EXIT DTSCS82
00957 ELSE DTSCS82
00958 IF LCCM-SCR-MOD-LOCKED DTSCS82
00959 PERFORM P8200-MOD THRU P8200-EXIT DTSCS82
00960 ELSE DTSCS82
00961 IF LCCM-SCR-DEL-LOCKED DTSCS82
00962 PERFORM P8300-DEL THRU P8300-EXIT DTSCS82
00963 ELSE DTSCS82
00964 PERFORM S899-ABEND THRU S899-EXIT. DTSCS82
00965 SKIP1 DTSCS82
00966 SET RESP-SEND-MAP TO TRUE. DTSCS82
00967 P8000-EXIT. DTSCS82
00968 EXIT. DTSCS82
00969 /*****************************************************************DTSCS82
00970 * *DTSCS82
00971 ******************************************************************DTSCS82
00972 SKIP1 DTSCS82
00973 P8100-ADD. DTSCS82
00974 SET LCCM-SCR-CLEAR TO TRUE. DTSCS82
00975 SKIP1 DTSCS82
00976 IF LCCM-F12-88 DTSCS82
00977 MOVE PMSG-ADD-CANCELED TO LCCM-MSG-ID DTSCS82
00978 GO TO P8100-EXIT. DTSCS82
00979 SKIP1 DTSCS82
00980 PERFORM S8010-READ-FQTR THRU S8010-EXIT. DTSCS82
00981 IF L831-OK-88 DTSCS82
00982 MOVE EMSG-RECORD-EXISTS TO WRK-MSG-ID DTSCS82
00983 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
00984 GO TO P8100-EXIT. DTSCS82
00985 SKIP1 DTSCS82
00986 MOVE LOW-VALUES TO FQTR-DATA-AREA. DTSCS82
00987 SKIP1 DTSCS82
00988 PERFORM P8900-CONSTRUCT-FQTR THRU P8900-EXIT. DTSCS82
00989 SKIP1 DTSCS82
00990 MOVE LCCM-CURR-RUN-DATE TO FQTR-ESTB-DATE. DTSCS82
00991 MOVE LCCM-CURR-RUN-DATE TO FQTR-CHNG-DATE. DTSCS82
00992 SKIP1 DTSCS82
00993 PERFORM S831-WRITE THRU S831-EXIT. DTSCS82
00994 SKIP1 DTSCS82
00995 MOVE LOW-VALUES TO MAP-AREA. DTSCS82
00996 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS82
00997 MOVE PMSG-ADD-SUCCESSFUL TO LCCM-MSG-ID. DTSCS82
00998 P8100-EXIT. DTSCS82
00999 EXIT. DTSCS82
01000 /*****************************************************************DTSCS82
01001 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCS82
01002 ******************************************************************DTSCS82
01003 SKIP1 DTSCS82
01004 P8200-MOD. DTSCS82
01005 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS82
01006 SKIP1 DTSCS82
01007 IF LCCM-F12-88 DTSCS82
01008 MOVE PMSG-MOD-CANCELED TO LCCM-MSG-ID DTSCS82
01009 GO TO P8200-EXIT. DTSCS82
01010 SKIP1 DTSCS82
01011 PERFORM S8010-READ-FQTR THRU S8010-EXIT. DTSCS82
01012 IF L831-NO-REC-88 DTSCS82
01013 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
01014 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
01015 GO TO P8200-EXIT. DTSCS82
01016 SKIP1 DTSCS82
01017 PERFORM P8900-CONSTRUCT-FQTR THRU P8900-EXIT. DTSCS82
01018 SKIP1 DTSCS82
01019 MOVE LCCM-CURR-RUN-DATE TO FQTR-CHNG-DATE. DTSCS82
01020 SKIP1 DTSCS82
01021 PERFORM S831-REWRITE THRU S831-EXIT. DTSCS82
01022 SKIP1 DTSCS82
01023 MOVE FQTR-CHNG-DATE TO L001-FED-8-DATE-9. DTSCS82
01024 SET L001-FROM-FED-8 TO TRUE. DTSCS82
01025 PERFORM S001-DATE THRU S001-EXIT. DTSCS82
01026 MOVE L001-SLASH-DATE TO MAP-CHNG-DATE. DTSCS82
01027 SKIP1 DTSCS82
01028 MOVE PMSG-MOD-SUCCESSFUL TO LCCM-MSG-ID. DTSCS82
01029 P8200-EXIT. DTSCS82
01030 EXIT. DTSCS82
01031 /*****************************************************************DTSCS82
01032 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCS82
01033 ******************************************************************DTSCS82
01034 SKIP1 DTSCS82
01035 P8300-DEL. DTSCS82
01036 SET LCCM-SCR-INQUIRE TO TRUE. DTSCS82
01037 SKIP1 DTSCS82
01038 IF LCCM-F12-88 DTSCS82
01039 MOVE PMSG-DEL-CANCELED TO LCCM-MSG-ID DTSCS82
01040 GO TO P8300-EXIT. DTSCS82
01041 SKIP1 DTSCS82
01042 PERFORM S8010-READ-FQTR THRU S8010-EXIT. DTSCS82
01043 IF NOT L831-OK-88 DTSCS82
01044 MOVE EMSG-NO-RECORD TO WRK-MSG-ID DTSCS82
01045 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
01046 GO TO P8300-EXIT. DTSCS82
01047 SKIP1 DTSCS82
01048 PERFORM S831-DELETE THRU S831-EXIT. DTSCS82
01049 SKIP1 DTSCS82
01050 MOVE LOW-VALUES TO LCCM-SCR-KEY-AREA. DTSCS82
01051 SET LCCM-SCR-CLEAR TO TRUE. DTSCS82
01052 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCS82
01053 SKIP1 DTSCS82
01054 MOVE LOW-VALUES TO MAP-AREA. DTSCS82
01055 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCS82
01056 SKIP1 DTSCS82
01057 MOVE FQTR-YRQ TO L004-QTR-5-9. DTSCS82
01058 SET L004-FROM-5 TO TRUE. DTSCS82
01059 PERFORM S004-YRQ-CONVERT THRU S004-EXIT. DTSCS82
01060 IF L004-VALID-QTR DTSCS82
01061 MOVE L004-QTR-3-YR TO MAP-YR DTSCS82
01062 MOVE L004-QTR-3-Q TO MAP-Q DTSCS82
01063 ELSE DTSCS82
01064 GO TO S899-ABEND. DTSCS82
01065 SKIP1 DTSCS82
01066 MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-ID. DTSCS82
01067 P8300-EXIT. DTSCS82
01068 EXIT. DTSCS82
01069 EJECT DTSCS82
01070 P8900-CONSTRUCT-FQTR. DTSCS82
01071 SKIP1 DTSCS82
01072 MOVE MAP-UC30-MASS-MAIL-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01073 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01074 MOVE L015-DATE TO FQTR-UC30-MASS-MAIL-DATE.DTSCS82
01075 SKIP1 DTSCS82
01076 MOVE MAP-SELF-INS-TAX-DUE-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01077 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01078 MOVE L015-DATE TO FQTR-SELF-INS-TAX-DUE-DATE. DTSCS82
01079 SKIP1 DTSCS82
01080 MOVE MAP-SELF-INS-2ND-LTR-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01081 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01082 MOVE L015-DATE TO FQTR-SELF-INS-2ND-LETTER-DATE. DTSCS82
01083 SKIP1 DTSCS82
01084 MOVE MAP-LATE-PEN-ASSESS-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01085 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01086 MOVE L015-DATE TO FQTR-LATE-PEN-ASSESSED-DATE. DTSCS82
01087 SKIP1 DTSCS82
01088 MOVE MAP-UC30-FIRST-DEL-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01089 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01090 MOVE L015-DATE TO FQTR-UC30-FIRST-DEL-DATE.DTSCS82
01091 SKIP1 DTSCS82
01092 MOVE MAP-UC30-FINAL-DEL-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01093 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01094 MOVE L015-DATE TO FQTR-UC30-FINAL-DEL-DATE.DTSCS82
01095 SKIP1 DTSCS82
01096 MOVE MAP-DELQ-LTR-SENT-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01097 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01098 MOVE L015-DATE TO FQTR-DELQ-LTR-SENT-DATE. DTSCS82
01099 SKIP1 DTSCS82
01100 MOVE MAP-UC30-ESTIMATED-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01101 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01102 MOVE L015-DATE TO FQTR-ESTIMATED-DATE. DTSCS82
01103 SKIP1 DTSCS82
01104 MOVE MAP-UC30-FINAL-ACT-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01105 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01106 MOVE L015-DATE TO FQTR-UC30-FINAL-ACTION-DATE. DTSCS82
01107 SKIP1 DTSCS82
01108 MOVE MAP-SELF-INS-CHG-RUN-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01109 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01110 MOVE L015-DATE TO FQTR-SELF-INS-CHG-RUN-DATE. DTSCS82
01111 P8900-EXIT. DTSCS82
01112 EXIT. DTSCS82
01113 /*****************************************************************DTSCS82
01114 * LINKS TO UTILITY MODULES DTSCS82
01115 ******************************************************************DTSCS82
01116 SKIP1 DTSCS82
01117 S001-DATE. DTSCS82
01118 EXEC CICS LINK DTSCS82
01119 PROGRAM ('DTSCU001') DTSCS82
01120 COMMAREA (L001-COMM-AREA) DTSCS82
01121 END-EXEC. DTSCS82
01122 S001-EXIT. DTSCS82
01123 EXIT. DTSCS82
01124 SKIP3 DTSCS82
01125 S004-YRQ-CONVERT. DTSCS82
01126 EXEC CICS LINK DTSCS82
01127 PROGRAM ('DTSCU004') DTSCS82
01128 COMMAREA (L004-COMM-AREA) DTSCS82
01129 END-EXEC. DTSCS82
01130 S004-EXIT. DTSCS82
01131 EXIT. DTSCS82
01132 SKIP3 DTSCS82
01133 S015-DATE-AREA. DTSCS82
01134 EXEC CICS LINK DTSCS82
01135 PROGRAM ('DTSCU015') DTSCS82
01136 COMMAREA (L015-COMM-AREA) DTSCS82
01137 END-EXEC. DTSCS82
01138 S015-EXIT. DTSCS82
01139 EXIT. DTSCS82
01140 SKIP3 DTSCS82
01141 S016-CHECK-MAP-YR-Q. DTSCS82
01142 EXEC CICS LINK DTSCS82
01143 PROGRAM ('DTSCU016') DTSCS82
01144 COMMAREA (L016-COMM-AREA) DTSCS82
01145 END-EXEC. DTSCS82
01146 S016-EXIT. DTSCS82
01147 EXIT. DTSCS82
01148 EJECT DTSCS82
01149 S803-REQ-SCR-ID-EDIT. DTSCS82
01150 EXEC CICS LINK DTSCS82
01151 PROGRAM ('DTSCU803') DTSCS82
01152 COMMAREA (DFHCOMMAREA) DTSCS82
01153 END-EXEC. DTSCS82
01154 S803-EXIT. DTSCS82
01155 EXIT. DTSCS82
01156 SKIP3 DTSCS82
01157 S804-INVALID-KEY. DTSCS82
01158 EXEC CICS LINK DTSCS82
01159 PROGRAM ('DTSCU804') DTSCS82
01160 COMMAREA (DFHCOMMAREA) DTSCS82
01161 END-EXEC. DTSCS82
01162 S804-EXIT. DTSCS82
01163 EXIT. DTSCS82
01164 SKIP3 DTSCS82
01165 S805-MSG-AREA. DTSCS82
01166 MOVE LCCM-MSG-AREA TO L805-MSG-AREA DTSCS82
01167 SKIP1 DTSCS82
01168 EXEC CICS LINK DTSCS82
01169 PROGRAM ('DTSCU805') DTSCS82
01170 COMMAREA (L805-COMM-AREA) DTSCS82
01171 END-EXEC. DTSCS82
01172 SKIP1 DTSCS82
01173 MOVE L805-S-MSG-AREA TO MAP-MSG-AREA. DTSCS82
01174 S805-EXIT. DTSCS82
01175 EXIT. DTSCS82
01176 EJECT DTSCS82
01177 S831-READ. DTSCS82
01178 SET L831-READ-88 TO TRUE. DTSCS82
01179 GO TO S831-IO. DTSCS82
01180 SKIP1 DTSCS82
01181 S831-START-BROWSE. DTSCS82
01182 SET L831-START-BROWSE-88 TO TRUE. DTSCS82
01183 GO TO S831-IO. DTSCS82
01184 SKIP1 DTSCS82
01185 S831-READ-NEXT. DTSCS82
01186 SET L831-READ-NEXT-88 TO TRUE. DTSCS82
01187 GO TO S831-IO. DTSCS82
01188 SKIP1 DTSCS82
01189 S831-READ-PREV. DTSCS82
01190 SET L831-READ-PREV-88 TO TRUE. DTSCS82
01191 GO TO S831-IO. DTSCS82
01192 SKIP1 DTSCS82
01193 S831-END-BROWSE. DTSCS82
01194 SET L831-END-BROWSE-88 TO TRUE. DTSCS82
01195 GO TO S831-IO. DTSCS82
01196 SKIP1 DTSCS82
01197 S831-REWRITE. DTSCS82
01198 SET L831-REWRITE-88 TO TRUE. DTSCS82
01199 GO TO S831-IO. DTSCS82
01200 SKIP1 DTSCS82
01201 S831-WRITE. DTSCS82
01202 SET L831-WRITE-88 TO TRUE. DTSCS82
01203 GO TO S831-IO. DTSCS82
01204 SKIP1 DTSCS82
01205 S831-DELETE. DTSCS82
01206 SET L831-DELETE-88 TO TRUE. DTSCS82
01207 GO TO S831-IO. DTSCS82
01208 SKIP1 DTSCS82
01209 S831-IO. DTSCS82
01210 SKIP1 DTSCS82
01211 EXEC CICS LINK DTSCS82
01212 PROGRAM ('DTSCU831') DTSCS82
01213 COMMAREA (L831-COMM-AREA) DTSCS82
01214 END-EXEC. DTSCS82
01215 SKIP1 DTSCS82
01216 IF L831-FILE-CLOSED-88 DTSCS82
01217 MOVE L831-MSG-AREA TO LCCM-MSG-AREA DTSCS82
01218 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCS82
01219 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCS82
01220 GO TO MAINLINE-EXIT. DTSCS82
01221 S831-EXIT. DTSCS82
01222 EXIT. DTSCS82
01223 SKIP3 DTSCS82
01224 S851-SCREEN-PROCESSING. DTSCS82
01225 EXEC CICS LINK DTSCS82
01226 PROGRAM ('DTSCU851') DTSCS82
01227 COMMAREA (L851-COMM-AREA) DTSCS82
01228 END-EXEC. DTSCS82
01229 S851-EXIT. DTSCS82
01230 EXIT. DTSCS82
01231 SKIP3 DTSCS82
01232 S899-ABEND. DTSCS82
01233 EXEC CICS ABEND DTSCS82
01234 ABCODE(WRK-ABEND-CD) DTSCS82
01235 END-EXEC. DTSCS82
01236 S899-EXIT. DTSCS82
01237 EXIT. DTSCS82
01238 /*****************************************************************DTSCS82
01239 * EDIT THE INFORMATION ON THE SCREEN. *DTSCS82
01240 ******************************************************************DTSCS82
01241 SKIP1 DTSCS82
01242 S1001-SCREEN-KEY-EDITS. DTSCS82
01243 SKIP1 DTSCS82
01244 PERFORM S1100-YR-Q THRU S1100-EXIT. DTSCS82
01245 SKIP1 DTSCS82
01246 S1001-EXIT. DTSCS82
01247 EXIT. DTSCS82
01248 SKIP3 DTSCS82
01249 S1002-SCREEN-DATA-EDITS. DTSCS82
01250 SKIP1 DTSCS82
01251 MOVE +0 TO WRK-UC30-MASS-MAIL-DATE DTSCS82
01252 WRK-UC30-FIRST-DEL-DATE DTSCS82
01253 WRK-DELQ-LTR-SENT-DATE DTSCS82
01254 WRK-UC30-ESTIMATED-DATE DTSCS82
01255 WRK-UC30-FINAL-DEL-DATE DTSCS82
01256 WRK-SELF-INS-CHG-RUN-DATE. DTSCS82
01257 DTSCS82
01258 MOVE FQTR-YRQ TO L004-QTR-5-9. DTSCS82
01259 SET L004-FROM-5 TO TRUE. DTSCS82
01260 PERFORM S004-YRQ-CONVERT THRU S004-EXIT. DTSCS82
01261 MOVE L004-QTR-START-DATE TO WRK-YRQ-START-DATE. DTSCS82
01262 MOVE L004-QTR-END-DATE TO WRK-YRQ-END-DATE. DTSCS82
01263 SKIP1 DTSCS82
01264 ADD +1 TO L004-ABS-QTR. DTSCS82
01265 SET L004-FROM-ABS TO TRUE. DTSCS82
01266 PERFORM S004-YRQ-CONVERT THRU S004-EXIT. DTSCS82
01267 MOVE L004-QTR-START-DATE TO WRK-YRQ-PLUS1-START-DATE. DTSCS82
01268 MOVE L004-QTR-END-DATE TO WRK-YRQ-PLUS1-END-DATE. DTSCS82
01269 SKIP1 DTSCS82
01270 ******************************************************************DTSCS82
01271 * DEFAULT LATE PENALTY DATE IS THE FIRST DAY OF THE SECOND *DTSCS82
01272 * MONTH OF THE QUARTER FOLLOWING THE QUARTER FOR WHICH THE *DTSCS82
01273 * REPORT WAS DUE. DTSCS82
01274 ******************************************************************DTSCS82
01275 MOVE WRK-YRQ-PLUS1-START-DATE TO L001-FED-8-DATE-9. DTSCS82
01276 ADD 1 TO L001-FED-8-MO. DTSCS82
01277 MOVE 01 TO L001-FED-8-DA. DTSCS82
01278 SET L001-FROM-FED-8 TO TRUE DTSCS82
01279 PERFORM S001-DATE THRU S001-EXIT DTSCS82
01280 IF L001-VALID-DATE DTSCS82
01281 MOVE L001-FED-8-DATE-9 TO WRK-DEFAULT-LATE-PEN-DATE DTSCS82
01282 ELSE DTSCS82
01283 MOVE ZERO TO WRK-DEFAULT-LATE-PEN-DATE. DTSCS82
01284 SKIP1 DTSCS82
01285 PERFORM S1200-UC30-MASS-MAIL-DATE THRU S1200-EXIT. DTSCS82
01286 PERFORM S1300-UC30-FIRST-DEL-DATE THRU S1300-EXIT. DTSCS82
01287 PERFORM S1400-UC30-FINAL-DEL-DATE THRU S1400-EXIT. DTSCS82
01288 PERFORM S1500-SELF-INS-TAX-DUE-DATE THRU S1500-EXIT. DTSCS82
01289 PERFORM S1600-LATE-PEN-ASSESSED-DATE THRU S1600-EXIT. DTSCS82
01290 PERFORM S1650-SELF-INS-LATE-PEN-DATE THRU S1650-EXIT. DTSCS82
01291 PERFORM S1675-UC30-ESTIMATED-DATE THRU S1675-EXIT. DTSCS82
01292 PERFORM S1700-UC30-FINAL-ACTION-DATE THRU S1700-EXIT. DTSCS82
01293 PERFORM S1800-SELF-INS-CHG-RUN-DATE THRU S1800-EXIT. DTSCS82
01294 PERFORM S1900-SELF-INS-2ND-LTR-DATE THRU S1900-EXIT. DTSCS82
01295 SKIP1 DTSCS82
01296 S1002-EXIT. DTSCS82
01297 EXIT. DTSCS82
01298 EJECT DTSCS82
01299 S1100-YR-Q. DTSCS82
01300 MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA. DTSCS82
01301 PERFORM S016-CHECK-MAP-YR-Q THRU S016-EXIT. DTSCS82
01302 IF L016-NO-ENTRY DTSCS82
01303 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-ID DTSCS82
01304 PERFORM S1101-ERROR THRU S1101-EXIT DTSCS82
01305 ELSE DTSCS82
01306 IF (L016-NOT-VALID) DTSCS82
01307 OR DTSCS82
01308 (L016-YRQ <= LCCM-PICKUP-YRQ) DTSCS82
01309 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01310 PERFORM S1101-ERROR THRU S1101-EXIT. DTSCS82
01311 S1100-EXIT. DTSCS82
01312 EXIT. DTSCS82
01313 SKIP3 DTSCS82
01314 S1101-ERROR. DTSCS82
01315 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-YR-A DTSCS82
01316 MAP-Q-A. DTSCS82
01317 IF LCCM-NO-MSG DTSCS82
01318 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01319 MOVE CATB-CURSOR TO MAP-YR-L DTSCS82
01320 SET CURSOR-SET-YES TO TRUE. DTSCS82
01321 S1101-EXIT. DTSCS82
01322 EXIT. DTSCS82
01323 EJECT DTSCS82
01324 S1200-UC30-MASS-MAIL-DATE. DTSCS82
01325 MOVE MAP-UC30-MASS-MAIL-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01326 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01327 IF L015-NO-ENTRY DTSCS82
01328 MOVE WRK-NO-ENTRY TO WRK-UC30-MASS-MAIL-DATE DTSCS82
01329 GO TO S1200-EXIT. DTSCS82
01330 IF L015-NOT-VALID DTSCS82
01331 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01332 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS82
01333 GO TO S1200-EXIT. DTSCS82
01334 SKIP1 DTSCS82
01335 IF L015-DATE < WRK-YRQ-START-DATE DTSCS82
01336 OR L015-DATE > WRK-YRQ-PLUS1-END-DATE DTSCS82
01337 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01338 PERFORM S1201-ERROR THRU S1201-EXIT DTSCS82
01339 ELSE DTSCS82
01340 MOVE L015-DATE TO WRK-UC30-MASS-MAIL-DATE. DTSCS82
01341 S1200-EXIT. DTSCS82
01342 EXIT. DTSCS82
01343 SKIP3 DTSCS82
01344 S1201-ERROR. DTSCS82
01345 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-UC30-MASS-MAIL-MM-A DTSCS82
01346 MAP-UC30-MASS-MAIL-DD-A DTSCS82
01347 MAP-UC30-MASS-MAIL-YY-A. DTSCS82
01348 IF LCCM-NO-MSG DTSCS82
01349 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01350 MOVE CATB-CURSOR TO MAP-UC30-MASS-MAIL-MM-L DTSCS82
01351 SET CURSOR-SET-YES TO TRUE. DTSCS82
01352 S1201-EXIT. DTSCS82
01353 EXIT. DTSCS82
01354 /*****************************************************************DTSCS82
01355 * WORK FIELDS MUST BE SET BY S1200 BEFORE PERFORMING S1300 *DTSCS82
01356 ******************************************************************DTSCS82
01357 S1300-UC30-FIRST-DEL-DATE. DTSCS82
01358 MOVE MAP-UC30-FIRST-DEL-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01359 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01360 IF L015-NO-ENTRY DTSCS82
01361 MOVE WRK-NO-ENTRY TO WRK-UC30-FIRST-DEL-DATE DTSCS82
01362 ELSE DTSCS82
01363 IF L015-NOT-VALID DTSCS82
01364 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01365 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS82
01366 ELSE DTSCS82
01367 IF L015-DATE < WRK-YRQ-PLUS1-START-DATE DTSCS82
01368 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01369 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS82
01370 ELSE DTSCS82
01371 IF L015-DATE > WRK-UC30-MASS-MAIL-DATE DTSCS82
01372 MOVE L015-DATE TO WRK-UC30-FIRST-DEL-DATE DTSCS82
01373 ELSE DTSCS82
01374 IF WRK-UC30-MASS-MAIL-DATE = WRK-NO-ENTRY DTSCS82
01375 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-ID DTSCS82
01376 PERFORM S1301-ERROR THRU S1301-EXIT DTSCS82
01377 ELSE DTSCS82
01378 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01379 PERFORM S1301-ERROR THRU S1301-EXIT. DTSCS82
01380 S1300-EXIT. DTSCS82
01381 EXIT. DTSCS82
01382 SKIP3 DTSCS82
01383 S1301-ERROR. DTSCS82
01384 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-UC30-FIRST-DEL-MM-A DTSCS82
01385 MAP-UC30-FIRST-DEL-DD-A DTSCS82
01386 MAP-UC30-FIRST-DEL-YY-A. DTSCS82
01387 IF LCCM-NO-MSG DTSCS82
01388 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01389 MOVE CATB-CURSOR TO MAP-UC30-FIRST-DEL-MM-L DTSCS82
01390 SET CURSOR-SET-YES TO TRUE. DTSCS82
01391 S1301-EXIT. DTSCS82
01392 EXIT. DTSCS82
01393 /*****************************************************************DTSCS82
01394 * WORK FIELDS MUST BE SET BY S1300 BEFORE PERFORMING S1400 *DTSCS82
01395 ******************************************************************DTSCS82
01396 S1400-UC30-FINAL-DEL-DATE. DTSCS82
01397 MOVE MAP-UC30-FINAL-DEL-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01398 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01399 IF L015-NO-ENTRY DTSCS82
01400 MOVE WRK-NO-ENTRY TO WRK-UC30-FINAL-DEL-DATE DTSCS82
01401 ELSE DTSCS82
01402 IF L015-NOT-VALID DTSCS82
01403 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01404 PERFORM S1401-ERROR THRU S1401-EXIT DTSCS82
01405 ELSE DTSCS82
01406 IF L015-DATE > WRK-UC30-FIRST-DEL-DATE DTSCS82
01407 MOVE L015-DATE TO WRK-UC30-FINAL-DEL-DATE DTSCS82
01408 ELSE DTSCS82
01409 IF WRK-UC30-FIRST-DEL-DATE = WRK-NO-ENTRY DTSCS82
01410 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-ID DTSCS82
01411 PERFORM S1401-ERROR THRU S1401-EXIT DTSCS82
01412 ELSE DTSCS82
01413 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01414 PERFORM S1401-ERROR THRU S1401-EXIT. DTSCS82
01415 S1400-EXIT. DTSCS82
01416 EXIT. DTSCS82
01417 SKIP3 DTSCS82
01418 S1401-ERROR. DTSCS82
01419 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-UC30-FINAL-DEL-MM-A DTSCS82
01420 MAP-UC30-FINAL-DEL-DD-A DTSCS82
01421 MAP-UC30-FINAL-DEL-YY-A. DTSCS82
01422 IF LCCM-NO-MSG DTSCS82
01423 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01424 MOVE CATB-CURSOR TO MAP-UC30-FINAL-DEL-MM-L DTSCS82
01425 SET CURSOR-SET-YES TO TRUE. DTSCS82
01426 S1401-EXIT. DTSCS82
01427 EXIT. DTSCS82
01428 /*****************************************************************DTSCS82
01429 * WORK FIELDS MUST BE SET BY S1200 BEFORE PERFORMING S1500 *DTSCS82
01430 ******************************************************************DTSCS82
01431 S1500-SELF-INS-TAX-DUE-DATE. DTSCS82
01432 MOVE MAP-SELF-INS-TAX-DUE-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01433 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01434 IF L015-NO-ENTRY DTSCS82
01435 NEXT SENTENCE DTSCS82
01436 ELSE DTSCS82
01437 IF L015-NOT-VALID DTSCS82
01438 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01439 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS82
01440 ELSE DTSCS82
01441 IF WRK-UC30-MASS-MAIL-DATE = WRK-NO-ENTRY DTSCS82
01442 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-ID DTSCS82
01443 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS82
01444 ELSE DTSCS82
01445 IF L015-DATE < WRK-UC30-MASS-MAIL-DATE DTSCS82
01446 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01447 PERFORM S1501-ERROR THRU S1501-EXIT DTSCS82
01448 ELSE DTSCS82
01449 IF L015-DATE > WRK-YRQ-PLUS1-END-DATE DTSCS82
01450 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01451 PERFORM S1501-ERROR THRU S1501-EXIT. DTSCS82
01452 DTSCS82
01453 IF FQTR-SELF-INS-CHG-RUN-DATE NOT NUMERIC DTSCS82
01454 MOVE ZERO TO FQTR-SELF-INS-CHG-RUN-DATE DTSCS82
01455 GO TO S1500-EXIT. DTSCS82
01456 DTSCS82
01457 IF FQTR-SELF-INS-CHG-RUN-DATE = ZERO DTSCS82
01458 GO TO S1500-EXIT. DTSCS82
01459 DTSCS82
01460 MOVE FQTR-SELF-INS-CHG-RUN-DATE TO L001-FED-8-DATE-9. DTSCS82
01461 SET L001-FROM-FED-8 TO TRUE. DTSCS82
01462 PERFORM S001-DATE THRU S001-EXIT. DTSCS82
01463 ADD +7 TO L001-JUL-ABS-DAY. DTSCS82
01464 SET L001-FROM-ABS-DAY TO TRUE. DTSCS82
01465 PERFORM S001-DATE THRU S001-EXIT. DTSCS82
01466 DTSCS82
01467 IF L015-DATE < L001-FED-8-DATE-9 DTSCS82
01468 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01469 PERFORM S1501-ERROR THRU S1501-EXIT. DTSCS82
01470 DTSCS82
01471 S1500-EXIT. DTSCS82
01472 EXIT. DTSCS82
01473 SKIP3 DTSCS82
01474 S1501-ERROR. DTSCS82
01475 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-SELF-INS-TAX-DUE-MM-A DTSCS82
01476 MAP-SELF-INS-TAX-DUE-DD-A DTSCS82
01477 MAP-SELF-INS-TAX-DUE-YY-A. DTSCS82
01478 IF LCCM-NO-MSG DTSCS82
01479 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01480 MOVE CATB-CURSOR TO MAP-SELF-INS-TAX-DUE-MM-L DTSCS82
01481 SET CURSOR-SET-YES TO TRUE. DTSCS82
01482 S1501-EXIT. DTSCS82
01483 EXIT. DTSCS82
01484 /*****************************************************************DTSCS82
01485 * WORK FIELDS MUST BE SET BY S1100 BEFORE PERFORMING S1600 *DTSCS82
01486 ******************************************************************DTSCS82
01487 S1600-LATE-PEN-ASSESSED-DATE. DTSCS82
01488 MOVE MAP-LATE-PEN-ASSESS-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01489 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01490 IF L015-NO-ENTRY DTSCS82
01491 NEXT SENTENCE DTSCS82
01492 ELSE DTSCS82
01493 IF L015-NOT-VALID DTSCS82
01494 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01495 PERFORM S1601-ERROR THRU S1601-EXIT DTSCS82
01496 ELSE DTSCS82
01497 IF WRK-DEFAULT-LATE-PEN-DATE NOT = ZERO DTSCS82
01498 IF L015-DATE < WRK-DEFAULT-LATE-PEN-DATE DTSCS82
01499 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01500 PERFORM S1601-ERROR THRU S1601-EXIT. DTSCS82
01501 S1600-EXIT. DTSCS82
01502 EXIT. DTSCS82
01503 SKIP3 DTSCS82
01504 S1601-ERROR. DTSCS82
01505 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-LATE-PEN-ASSESSED-MM-ADTSCS82
01506 MAP-LATE-PEN-ASSESSED-DD-A DTSCS82
01507 MAP-LATE-PEN-ASSESSED-YY-A. DTSCS82
01508 IF LCCM-NO-MSG DTSCS82
01509 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01510 MOVE CATB-CURSOR TO MAP-LATE-PEN-ASSESSED-MM-L DTSCS82
01511 SET CURSOR-SET-YES TO TRUE. DTSCS82
01512 S1601-EXIT. DTSCS82
01513 EXIT. DTSCS82
01514 ******************************************************************DTSCS82
01515 S1650-SELF-INS-LATE-PEN-DATE. DTSCS82
01516 MOVE MAP-DELQ-LTR-SENT-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01517 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01518 IF L015-NO-ENTRY DTSCS82
01519 MOVE WRK-NO-ENTRY TO WRK-DELQ-LTR-SENT-DATE DTSCS82
01520 ELSE DTSCS82
01521 IF L015-NOT-VALID DTSCS82
01522 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01523 PERFORM S1651-ERROR THRU S1651-EXIT. DTSCS82
01524 * ELSE DTSCS82
01525 * IF L015-DATE > WRK-UC30-FINAL-DEL-DATE DTSCS82
01526 * MOVE L015-DATE TO WRK-INTENT-2-ESTIM-DATE DTSCS82
01527 * ELSE DTSCS82
01528 * IF WRK-UC30-FINAL-DEL-DATE = WRK-NO-ENTRY DTSCS82
01529 * MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-ID DTSCS82
01530 * PERFORM S1651-ERROR THRU S1651-EXIT DTSCS82
01531 * ELSE DTSCS82
01532 * MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01533 * PERFORM S1651-ERROR THRU S1651-EXIT. DTSCS82
01534 S1650-EXIT. DTSCS82
01535 EXIT. DTSCS82
01536 SKIP3 DTSCS82
01537 S1651-ERROR. DTSCS82
01538 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-DELQ-LTR-SENT-MM-A DTSCS82
01539 MAP-DELQ-LTR-SENT-DD-A DTSCS82
01540 MAP-DELQ-LTR-SENT-YY-A. DTSCS82
01541 IF LCCM-NO-MSG DTSCS82
01542 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01543 MOVE CATB-CURSOR TO MAP-DELQ-LTR-SENT-MM-L DTSCS82
01544 SET CURSOR-SET-YES TO TRUE. DTSCS82
01545 S1651-EXIT. DTSCS82
01546 EXIT. DTSCS82
01547 DTSCS82
01548 ******************************************************************DTSCS82
01549 S1675-UC30-ESTIMATED-DATE. DTSCS82
01550 MOVE MAP-UC30-ESTIMATED-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01551 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01552 IF L015-NO-ENTRY DTSCS82
01553 MOVE WRK-NO-ENTRY TO WRK-UC30-ESTIMATED-DATE DTSCS82
01554 ELSE DTSCS82
01555 IF L015-NOT-VALID DTSCS82
01556 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01557 PERFORM S1676-ERROR THRU S1676-EXIT. DTSCS82
01558 * ELSE DTSCS82
01559 * IF L015-DATE > WRK-INTENT-2-ESTIM-DATE DTSCS82
01560 * MOVE L015-DATE TO WRK-UC30-ESTIMATED-DATE DTSCS82
01561 * ELSE DTSCS82
01562 * IF WRK-INTENT-2-ESTIM-DATE = WRK-NO-ENTRY DTSCS82
01563 * MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-ID DTSCS82
01564 * PERFORM S1676-ERROR THRU S1676-EXIT DTSCS82
01565 * ELSE DTSCS82
01566 * MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01567 * PERFORM S1676-ERROR THRU S1676-EXIT. DTSCS82
01568 S1675-EXIT. DTSCS82
01569 EXIT. DTSCS82
01570 SKIP3 DTSCS82
01571 S1676-ERROR. DTSCS82
01572 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-UC30-ESTIMATED-MM-A DTSCS82
01573 MAP-UC30-ESTIMATED-DD-A DTSCS82
01574 MAP-UC30-ESTIMATED-YY-A. DTSCS82
01575 IF LCCM-NO-MSG DTSCS82
01576 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01577 MOVE CATB-CURSOR TO MAP-UC30-ESTIMATED-MM-L DTSCS82
01578 SET CURSOR-SET-YES TO TRUE. DTSCS82
01579 S1676-EXIT. DTSCS82
01580 EXIT. DTSCS82
01581 DTSCS82
01582 /*****************************************************************DTSCS82
01583 * WORK FIELDS MUST BE SET BY S1400 BEFORE PERFORMING S1500 *DTSCS82
01584 ******************************************************************DTSCS82
01585 S1700-UC30-FINAL-ACTION-DATE. DTSCS82
01586 MOVE MAP-UC30-FINAL-ACT-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01587 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01588 IF L015-NO-ENTRY DTSCS82
01589 NEXT SENTENCE DTSCS82
01590 ELSE DTSCS82
01591 IF L015-NOT-VALID DTSCS82
01592 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01593 PERFORM S1701-ERROR THRU S1701-EXIT DTSCS82
01594 ELSE DTSCS82
01595 IF L015-DATE > WRK-UC30-FINAL-DEL-DATE DTSCS82
01596 NEXT SENTENCE DTSCS82
01597 ELSE DTSCS82
01598 IF WRK-UC30-FINAL-DEL-DATE = WRK-NO-ENTRY DTSCS82
01599 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-ID DTSCS82
01600 PERFORM S1701-ERROR THRU S1701-EXIT DTSCS82
01601 ELSE DTSCS82
01602 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01603 PERFORM S1701-ERROR THRU S1701-EXIT. DTSCS82
01604 S1700-EXIT. DTSCS82
01605 EXIT. DTSCS82
01606 SKIP3 DTSCS82
01607 S1701-ERROR. DTSCS82
01608 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-UC30-FINAL-ACTION-MM-ADTSCS82
01609 MAP-UC30-FINAL-ACTION-DD-A DTSCS82
01610 MAP-UC30-FINAL-ACTION-YY-A. DTSCS82
01611 IF LCCM-NO-MSG DTSCS82
01612 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01613 MOVE CATB-CURSOR TO MAP-UC30-FINAL-ACTION-MM-L DTSCS82
01614 SET CURSOR-SET-YES TO TRUE. DTSCS82
01615 S1701-EXIT. DTSCS82
01616 EXIT. DTSCS82
01617 DTSCS82
01618 S1800-SELF-INS-CHG-RUN-DATE. DTSCS82
01619 MOVE MAP-SELF-INS-CHG-RUN-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01620 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01621 IF L015-NO-ENTRY DTSCS82
01622 MOVE WRK-NO-ENTRY TO WRK-SELF-INS-CHG-RUN-DATE DTSCS82
01623 GO TO S1800-EXIT DTSCS82
01624 ELSE DTSCS82
01625 IF L015-DATE = ZERO DTSCS82
01626 NEXT SENTENCE DTSCS82
01627 ELSE DTSCS82
01628 IF L015-NOT-VALID DTSCS82
01629 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01630 PERFORM S1801-ERROR THRU S1801-EXIT DTSCS82
01631 ELSE DTSCS82
01632 IF L015-DATE < WRK-YRQ-END-DATE DTSCS82
01633 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01634 PERFORM S1801-ERROR THRU S1801-EXIT DTSCS82
01635 ELSE DTSCS82
01636 MOVE L015-DATE TO WRK-SELF-INS-CHG-RUN-DATE. DTSCS82
01637 DTSCS82
01638 DTSCS82
01639 S1800-EXIT. DTSCS82
01640 EXIT. DTSCS82
01641 SKIP3 DTSCS82
01642 S1801-ERROR. DTSCS82
01643 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-SELF-INS-CHG-RUN-MM-A DTSCS82
01644 MAP-SELF-INS-CHG-RUN-DD-A DTSCS82
01645 MAP-SELF-INS-CHG-RUN-YY-A. DTSCS82
01646 IF LCCM-NO-MSG DTSCS82
01647 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01648 MOVE CATB-CURSOR TO MAP-SELF-INS-CHG-RUN-MM-L DTSCS82
01649 SET CURSOR-SET-YES TO TRUE. DTSCS82
01650 S1801-EXIT. DTSCS82
01651 EXIT. DTSCS82
01652 ******************************************************************DTSCS82
01653 S1900-SELF-INS-2ND-LTR-DATE. DTSCS82
01654 MOVE MAP-SELF-INS-2ND-LTR-DATE-AREA TO L015-S-DATE-AREA. DTSCS82
01655 PERFORM S015-DATE-AREA THRU S015-EXIT. DTSCS82
01656 IF L015-NO-ENTRY DTSCS82
01657 GO TO S1900-EXIT DTSCS82
01658 ELSE DTSCS82
01659 IF L015-NOT-VALID DTSCS82
01660 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01661 PERFORM S1901-ERROR THRU S1901-EXIT DTSCS82
01662 ELSE DTSCS82
01663 IF WRK-SELF-INS-CHG-RUN-DATE = WRK-NO-ENTRY DTSCS82
01664 MOVE EMSG-FIELD-NOT-ALLOWED TO WRK-MSG-ID DTSCS82
01665 PERFORM S1901-ERROR THRU S1901-EXIT DTSCS82
01666 GO TO S1900-EXIT. DTSCS82
01667 DTSCS82
01668 IF FQTR-SELF-INS-TAX-DUE-DATE > +0 DTSCS82
01669 IF L015-DATE < FQTR-SELF-INS-TAX-DUE-DATE DTSCS82
01670 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-ID DTSCS82
01671 PERFORM S1901-ERROR THRU S1901-EXIT DTSCS82
01672 END-IF DTSCS82
01673 ELSE DTSCS82
01674 GO TO S1900-EXIT DTSCS82
01675 END-IF. DTSCS82
01676 DTSCS82
01677 S1900-EXIT. DTSCS82
01678 EXIT. DTSCS82
01679 SKIP3 DTSCS82
01680 S1901-ERROR. DTSCS82
01681 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-SELF-INS-2ND-LTR-MM-A DTSCS82
01682 MAP-SELF-INS-2ND-LTR-DD-A DTSCS82
01683 MAP-SELF-INS-2ND-LTR-YY-A. DTSCS82
01684 IF LCCM-NO-MSG DTSCS82
01685 MOVE WRK-MSG-ID TO LCCM-MSG-ID DTSCS82
01686 MOVE CATB-CURSOR TO MAP-SELF-INS-2ND-LTR-MM-L DTSCS82
01687 SET CURSOR-SET-YES TO TRUE. DTSCS82
01688 S1901-EXIT. DTSCS82
01689 EXIT. DTSCS82
01690 DTSCS82
01691 ******************************************************************DTSCS82
01692 /*****************************************************************DTSCS82
01693 * LOCK SCREEN FOR UPDATE CONFIRMATION *DTSCS82
01694 ******************************************************************DTSCS82
01695 S5100-SET-LOCK-ATTRB. DTSCS82
01696 MOVE CATB-ASKIP-BRT-MDTON TO WRK-ATB-AN DTSCS82
01697 WRK-ATB-NUM. DTSCS82
01698 SKIP1 DTSCS82
01699 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS82
01700 SKIP1 DTSCS82
01701 MOVE CATB-ASKIP-BRT-MDTON TO MAP-YR-A DTSCS82
01702 MAP-Q-A DTSCS82
01703 MAP-GOTO-A. DTSCS82
01704 S5100-EXIT. DTSCS82
01705 EXIT. DTSCS82
01706 SKIP3 DTSCS82
01707 ******************************************************************DTSCS82
01708 * SET ATTIBUTE BYTES FOR UPDATE ACCESS *DTSCS82
01709 ******************************************************************DTSCS82
01710 S5200-SET-UPDATE-ATTRB. DTSCS82
01711 MOVE CATB-UNPROT-BRT-AN-MDTON TO WRK-ATB-AN. DTSCS82
01712 MOVE CATB-UNPROT-BRT-NUM-MDTON TO WRK-ATB-NUM. DTSCS82
01713 SKIP1 DTSCS82
01714 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS82
01715 S5200-EXIT. DTSCS82
01716 EXIT. DTSCS82
01717 SKIP3 DTSCS82
01718 ******************************************************************DTSCS82
01719 * SET ATTRIBUTE BYTES FOR INQUIRY STATUS *DTSCS82
01720 ******************************************************************DTSCS82
01721 S5300-SET-INQ-ATTRB. DTSCS82
01722 MOVE CATB-ASKIP-BRT-MDTOFF TO WRK-ATB-AN DTSCS82
01723 WRK-ATB-NUM. DTSCS82
01724 SKIP1 DTSCS82
01725 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCS82
01726 S5300-EXIT. DTSCS82
01727 EXIT. DTSCS82
01728 SKIP3 DTSCS82
01729 ******************************************************************DTSCS82
01730 * DO IT *DTSCS82
01731 ******************************************************************DTSCS82
01732 S5900-SET-ATTRB. DTSCS82
01733 MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-YR-A DTSCS82
01734 MAP-Q-A. DTSCS82
01735 SKIP1 DTSCS82
01736 MOVE WRK-ATB-NUM TO MAP-UC30-MASS-MAIL-MM-A DTSCS82
01737 MAP-UC30-MASS-MAIL-DD-A DTSCS82
01738 MAP-UC30-MASS-MAIL-YY-A DTSCS82
01739 MAP-UC30-FIRST-DEL-MM-A DTSCS82
01740 MAP-UC30-FIRST-DEL-DD-A DTSCS82
01741 MAP-UC30-FIRST-DEL-YY-A DTSCS82
01742 MAP-UC30-FINAL-DEL-MM-A DTSCS82
01743 MAP-UC30-FINAL-DEL-DD-A DTSCS82
01744 MAP-UC30-FINAL-DEL-YY-A DTSCS82
01745 MAP-SELF-INS-2ND-LTR-MM-A DTSCS82
01746 MAP-SELF-INS-2ND-LTR-DD-A DTSCS82
01747 MAP-SELF-INS-2ND-LTR-YY-A DTSCS82
01748 MAP-SELF-INS-TAX-DUE-MM-A DTSCS82
01749 MAP-SELF-INS-TAX-DUE-DD-A DTSCS82
01750 MAP-SELF-INS-TAX-DUE-YY-A DTSCS82
01751 MAP-SELF-INS-CHG-RUN-MM-A DTSCS82
01752 MAP-SELF-INS-CHG-RUN-DD-A DTSCS82
01753 MAP-SELF-INS-CHG-RUN-YY-A DTSCS82
01754 MAP-LATE-PEN-ASSESSED-MM-A DTSCS82
01755 MAP-LATE-PEN-ASSESSED-DD-A DTSCS82
01756 MAP-LATE-PEN-ASSESSED-YY-A DTSCS82
01757 MAP-DELQ-LTR-SENT-MM-A DTSCS82
01758 MAP-DELQ-LTR-SENT-DD-A DTSCS82
01759 MAP-DELQ-LTR-SENT-YY-A DTSCS82
01760 MAP-UC30-ESTIMATED-MM-A DTSCS82
01761 MAP-UC30-ESTIMATED-DD-A DTSCS82
01762 MAP-UC30-ESTIMATED-YY-A DTSCS82
01763 MAP-UC30-FINAL-ACTION-MM-A DTSCS82
01764 MAP-UC30-FINAL-ACTION-DD-A DTSCS82
01765 MAP-UC30-FINAL-ACTION-YY-A. DTSCS82
01766 SKIP1 DTSCS82
01767 MOVE CATB-ASKIP-BRT-MDTON TO MAP-ESTB-DATE-A DTSCS82
01768 MAP-CHNG-DATE-A. DTSCS82
01769 SKIP1 DTSCS82
01770 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A. DTSCS82
01771 S5900-EXIT. DTSCS82
01772 EXIT. DTSCS82
01773 /*****************************************************************DTSCS82
01774 * READ PREPARATION ROUTINES *DTSCS82
01775 ******************************************************************DTSCS82
01776 S8010-READ-FQTR. DTSCS82
01777 MOVE MAP-YRQ-AREA TO L016-S-YRQ-AREA. DTSCS82
01778 PERFORM S016-CHECK-MAP-YR-Q THRU S016-EXIT. DTSCS82
01779 IF L016-VALID DTSCS82
01780 MOVE LOW-VALUES TO FQTR-KEY-AREA DTSCS82
01781 SET FQTR-QTR-88 TO TRUE DTSCS82
01782 MOVE L016-YRQ TO FQTR-YRQ DTSCS82
01783 PERFORM S831-READ THRU S831-EXIT DTSCS82
01784 ELSE DTSCS82
01785 GO TO S899-ABEND. DTSCS82
01786 S8010-EXIT. DTSCS82
01787 EXIT. DTSCS82
01788 /*****************************************************************DTSCS82
01789 * MAP ROUTINES *DTSCS82
01790 ******************************************************************DTSCS82
01791 S9100-RECEIVE. DTSCS82
01792 SET L851-RECEIVE-88 TO TRUE. DTSCS82
01793 SKIP1 DTSCS82
01794 MOVE WRK-SCR-ID TO L851-SCR-ID. DTSCS82
01795 SKIP1 DTSCS82
01796 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS82
01797 SKIP1 DTSCS82
01798 MOVE L851-AID TO LCCM-AID. DTSCS82
01799 MOVE L851-CURSOR TO LCCM-CURSOR. DTSCS82
01800 S9100-EXIT. DTSCS82
01801 EXIT. DTSCS82
01802 SKIP3 DTSCS82
01803 S9200-SEND-DATAONLY. DTSCS82
01804 MOVE LOW-VALUES TO MAP-AREA. DTSCS82
01805 SKIP1 DTSCS82
01806 IF LCCM-NO-MSG DTSCS82
01807 NEXT SENTENCE DTSCS82
01808 ELSE DTSCS82
01809 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS82
01810 SKIP1 DTSCS82
01811 IF CURSOR-SET-GOTO DTSCS82
01812 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS82
01813 ELSE DTSCS82
01814 MOVE CATB-CURSOR TO MAP-YR-L. DTSCS82
01815 SKIP1 DTSCS82
01816 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS82
01817 SKIP1 DTSCS82
01818 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS82
01819 SKIP1 DTSCS82
01820 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS82
01821 S9200-EXIT. DTSCS82
01822 EXIT. DTSCS82
01823 SKIP3 DTSCS82
01824 S9300-SEND-MAP. DTSCS82
01825 MOVE LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE. DTSCS82
01826 MOVE LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME. DTSCS82
01827 MOVE LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME. DTSCS82
01828 SKIP1 DTSCS82
01829 IF SCR-ACCESS-UPDATE DTSCS82
01830 PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT DTSCS82
01831 ELSE DTSCS82
01832 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCS82
01833 SKIP1 DTSCS82
01834 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCS82
01835 SKIP1 DTSCS82
01836 IF CURSOR-SET-NO DTSCS82
01837 MOVE CATB-CURSOR TO MAP-YR-L. DTSCS82
01838 SKIP1 DTSCS82
01839 SET L851-SEND-88 TO TRUE. DTSCS82
01840 SKIP1 DTSCS82
01841 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCS82
01842 SKIP1 DTSCS82
01843 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCS82
01844 S9300-EXIT. DTSCS82
01845 EXIT. DTSCS82
01846 SKIP3 DTSCS82
01847 S9310-UPDATE-FKEYS. DTSCS82
01848 MOVE CFKD-BACKWARD TO MAP-KEY-BACK. DTSCS82
01849 MOVE CFKD-FORWARD TO MAP-KEY-FWRD. DTSCS82
01850 MOVE CFKD-ADD TO MAP-KEY-ADD. DTSCS82
01851 MOVE CFKD-MOD TO MAP-KEY-MOD. DTSCS82
01852 MOVE CFKD-DEL TO MAP-KEY-DEL. DTSCS82
01853 SKIP1 DTSCS82
01854 IF LCCM-SCR-CLEAR DTSCS82
01855 MOVE LOW-VALUES TO MAP-KEY-MOD DTSCS82
01856 MAP-KEY-DEL DTSCS82
01857 ELSE DTSCS82
01858 IF LCCM-SCR-UPDATE-LOCKED DTSCS82
01859 MOVE LOW-VALUES TO MAP-KEY-BACK DTSCS82
01860 MAP-KEY-FWRD DTSCS82
01861 MAP-KEY-ADD DTSCS82
01862 MAP-KEY-MOD DTSCS82
01863 MAP-KEY-DEL DTSCS82
01864 ELSE DTSCS82
01865 MOVE LOW-VALUES TO MAP-KEY-ADD. DTSCS82
01866 S9310-EXIT. DTSCS82
01867 EXIT. DTSCS82
01868 SKIP3 DTSCS82
01869 S9320-INQUIRY-FKEYS. DTSCS82
01870 MOVE CFKD-BACKWARD TO MAP-KEY-BACK. DTSCS82
01871 MOVE CFKD-FORWARD TO MAP-KEY-FWRD. DTSCS82
01872 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCS82
01873 MAP-KEY-MOD DTSCS82
01874 MAP-KEY-DEL. DTSCS82
01875 S9320-EXIT. DTSCS82
01876 EXIT. DTSCS82
01877 SKIP3 DTSCS82
01878 S9900-PREPARE-SEND. DTSCS82
01879 MOVE WRK-SCR-ID TO L851-SCR-ID DTSCS82
01880 LCCM-SCR-ID. DTSCS82
01881 MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND. DTSCS82
01882 MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE. DTSCS82
01883 S9900-EXIT. DTSCS82
01884 EXIT. DTSCS82
Reference in New Issue View Git Blame Copy Permalink