00001 IDENTIFICATION DIVISION. 05/22/01 00002 PROGRAM-ID. DTSCSL5. DTSCSL5 00003 AUTHOR. TRICOASTAL CONSULTING LV001 00004 DATE-WRITTEN. SEPTEMBER 1998. DTSCSL5 00005 DATE-COMPILED. DTSCSL5 00006 DTSCSL5 00007 DTSCSL5 00008 ***** DTSCSL5 00009 * DTSCSL5 00010 * FUNCTION: ELECTRONIC FILER INQUIRY/UPDATE DTSCSL5 00011 * SCREEN PROCESSOR. DTSCSL5 00012 * DTSCSL5 00013 * DTSCSL5 00014 * MODIFICATION LOG: DTSCSL5 00015 * DTSCSL5 00016 * 02/28/2001 INITIAL DEVELOPMENT. MODIFIED FROM DTSCS7A. DTSCSL5 00017 * REFERENCE RFP: PROGRAMMER: ZL1 DTSCSL5 00018 * DTSCSL5 00019 * XX/XX/XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCSL5 00020 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCSL5 00021 * RERFERENCE RFP: #**** PROGRAMMER: XXX DTSCSL5 00022 * DTSCSL5 00023 * DTSCSL5 00024 * DESCRIPTION: DTSCSL5 00025 * DTSCSL5 00026 * DTSCSL5 00027 * CLEAR: DTSCSL5 00028 * DTSCSL5 00029 * FIELD(S) DISPLAYED: MAP-ELF-ID. DTSCSL5 00030 * DTSCSL5 00031 * DTSCSL5 00032 * DTSCSL5 00033 * INQUIRY: DTSCSL5 00034 * DTSCSL5 00035 * CONTROL FIELD(S): MAP-ELF-ID. DTSCSL5 00036 * DTSCSL5 00037 * JUMP IN: DISPLAY DATA ASSOCIATED WITH LCCM-EMP-NO. DTSCSL5 00038 * DTSCSL5 00039 * ENTER: DISPLAY DATA ASSOCIATED WITH MAP-ELF-ID. DTSCSL5 00040 * DTSCSL5 00041 * STANDARD LCCM-EMP-NO MAINTENANCE. DTSCSL5 00042 * DTSCSL5 00043 * DTSCSL5 00044 * UPDATE: DTSCSL5 00045 * DTSCSL5 00046 * ADD: F9 DTSCSL5 00047 * MOD: F10 DTSCSL5 00048 * UNLK: F11 DTSCSL5 00049 * DELETE: F23 DTSCSL5 00050 * DTSCSL5 00051 * DTSCSL5 00052 * RECORDS READ: DTSCSL5 00053 * DTSCSL5 00054 * MASTER: DTSCSL5 00055 * DTSCSL5 00056 * MPRF. DTSCSL5 00057 * MELF. DTSCSL5 00058 * DTSCSL5 00059 * DTSCSL5 00060 * ALTERNATE INDEX: DTSCSL5 00061 * DTSCSL5 00062 * NONE. DTSCSL5 00063 * DTSCSL5 00064 * DTSCSL5 00065 * REFERENCE: DTSCSL5 00066 * DTSCSL5 00067 * NONE. DTSCSL5 00068 * DTSCSL5 00069 * DTSCSL5 00070 * ACCOUNTING TRANSACTION COLLECTION: DTSCSL5 00071 * DTSCSL5 00072 * NONE. DTSCSL5 00073 * DTSCSL5 00074 * DTSCSL5 00075 * RECORDS UPDATED: DTSCSL5 00076 * DTSCSL5 00077 * MASTER: DTSCSL5 00078 * DTSCSL5 00079 * EPRF (ADD, REWRITE, DELETE). DTSCSL5 00080 * DTSCSL5 00081 * DTSCSL5 00082 * REFERENCE: DTSCSL5 00083 * DTSCSL5 00084 * NONE. DTSCSL5 00085 * DTSCSL5 00086 * DTSCSL5 00087 * ACCOUNTING TRANSACTION COLLECTION: DTSCSL5 00088 * DTSCSL5 00089 * NONE. DTSCSL5 00090 * DTSCSL5 00091 * DTSCSL5 00092 * ON-LINE ACTIVITY FILE RECORDS WRITTEN: DTSCSL5 00093 * DTSCSL5 00094 * NONE. DTSCSL5 00095 * DTSCSL5 00096 * DTSCSL5 00097 * TEMPORARY STORAGE USAGE: DTSCSL5 00098 * DTSCSL5 00099 * NONE. DTSCSL5 00100 * DTSCSL5 00101 * DTSCSL5 00102 * MODULES LINKED TO: DTSCSL5 00103 * DTSCSL5 00104 * DTSCU001 DATE CONVERSION. DTSCSL5 00105 * DTSCU004 YRQ CONVERSION. DTSCSL5 00106 * DTSCU018 EMP NO FROM SCREEN FORMAT/EDIT. DTSCSL5 00107 * DTSCU021 TELEPHONE NUMBER FROM SCREEN FORMAT/EDIT. DTSCSL5 00108 * DTSCU072 ADDRESS EDIT. DTSCSL5 00109 * DTSCU073 TELEPHONE NUMBER EDIT. DTSCSL5 00110 * DTSCU221 MAINTENANCE OF PRF UPDATE FIELDS. DTSCSL5 00111 * DTSCU805 BUILD SCREEN MESSAGE LINE. DTSCSL5 00112 * DTSCU810 MASTER FILE I/O DRIVER. DTSCSL5 00113 * DTSCSL5 00114 * DTSCSL5 00115 * MAINTENANCE NOTES: DTSCSL5 00116 * DTSCSL5 00117 * A NON-KEY FIELD ADDED TO OR REMOVED FROM THE SCREEN DTSCSL5 00118 * REQUIRES ATTENTION IN THE FOLLOWING AREAS: DTSCSL5 00119 * ALTER PARAGRAPHS P6910/P6920, P8912, S5900 DTSCSL5 00120 * ALTER AS APPROPRIATE PARAGRAPHS LISTED IN S1002 DTSCSL5 00121 * ALTER THE SEND/RECEIVE AREA DEFINITION (MDTSS7A) DTSCSL5 00122 * ALTER THE MAP (DTSM7A) AND ASSEMBLE THE MAPSET (DTSMSET) DTSCSL5 00123 * DTSCSL5 00124 ***** DTSCSL5 00125 SKIP3 DTSCSL5 00126 ENVIRONMENT DIVISION. DTSCSL5 00127 SKIP3 DTSCSL5 00128 DATA DIVISION. DTSCSL5 00129 SKIP3 DTSCSL5 00130 WORKING-STORAGE SECTION. DTSCSL5 001305 77 PAN-VALET PICTURE X(24) VALUE '001DTSCSL5 05/22/01'. DTSCSL5 00131 SKIP3 DTSCSL5 00132 01 WRK-AREA. DTSCSL5 00133 05 WRK-ABEND-CD PIC X(04) VALUE 'SL5 '. DTSCSL5 00134 DTSCSL5 00135 05 WRK-SCR-ID. DTSCSL5 00136 10 WRK-SCR-ID-A PIC X(02) VALUE 'L5'. DTSCSL5 00137 DTSCSL5 00138 05 WRK-F03-SCR-ID PIC X(02) VALUE 'L0'. DTSCSL5 00139 DTSCSL5 00140 05 WRK-EHDR-ELF-ID PIC S9(07) COMP-3. DTSCSL5 00141 DTSCSL5 00142 05 WRK-YRQ PIC 9(05). DTSCSL5 00143 DTSCSL5 00144 05 WRK-MSG-AREA PIC X(62) VALUE SPACES. DTSCSL5 00145 DTSCSL5 00146 05 WRK-SCR-HOLD-AREA. DTSCSL5 00147 10 WRK-ELF-ID PIC 9(07). DTSCSL5 00148 10 WRK-ELF-ID-X REDEFINES WRK-ELF-ID DTSCSL5 00149 PIC X(07). DTSCSL5 00150 10 FILLER REDEFINES WRK-ELF-ID-X. DTSCSL5 00151 15 WRK-ELF-ID-0 PIC X(01). DTSCSL5 00152 15 WRK-ELF-ID-1 PIC X(03). DTSCSL5 00153 15 WRK-ELF-ID-2 PIC X(03). DTSCSL5 00154 05 WRK-DATA-TYPE-CD PIC X(02) VALUE SPACES. DTSCSL5 00155 05 WRK-HOLD-ADDRESS PIC X(171) VALUE SPACES. DTSCSL5 00156 DTSCSL5 00157 05 WRK-MTAD-IND PIC X(01). DTSCSL5 00158 88 WRK-MTAD-YES-88 VALUE 'Y'. DTSCSL5 00159 88 WRK-MTAD-NO-88 VALUE 'N'. DTSCSL5 00160 DTSCSL5 00161 05 WRK-MPRF-IND PIC X(01). DTSCSL5 00162 88 WRK-MPRF-YES-88 VALUE 'Y'. DTSCSL5 00163 88 WRK-MPRF-NO-88 VALUE 'N'. DTSCSL5 00164 DTSCSL5 00165 05 WRK-SCRL5-HOLD-AREA. DTSCSL5 00166 10 WRK-SCRL5-FUNCTION-KEY PIC X(03). DTSCSL5 00167 88 WRK-SCRL5-F11-88 VALUE 'F11'. DTSCSL5 00168 10 WRK-SCRL5-FILLER PIC X(21). DTSCSL5 00169 DTSCSL5 00170 05 WRK-DATA-CHANGE PIC X(01). DTSCSL5 00171 88 WRK-DATA-CHNG-YES-88 VALUE 'Y'. DTSCSL5 00172 88 WRK-DATA-CHNG-NO-88 VALUE 'N'. DTSCSL5 00173 DTSCSL5 00174 05 WRK-ELF-ADDRESS-INFO. DTSCSL5 00175 10 WRK-MAP-ADDR-IND PIC X(01). DTSCSL5 00176 88 WRK-MAP-ADDR-BLANK VALUE '0'. DTSCSL5 00177 88 WRK-MAP-ADDR-HAS-DATA VALUE '1'. DTSCSL5 00178 10 HOLD-ATTRB-AREA. DTSCSL5 00179 15 HOLD-ATTN-A PIC X(01). DTSCSL5 00180 15 HOLD-DLV1-A PIC X(01). DTSCSL5 00181 15 HOLD-DLV2-A PIC X(01). DTSCSL5 00182 15 HOLD-CITY-A PIC X(01). DTSCSL5 00183 15 HOLD-STAT-A PIC X(01). DTSCSL5 00184 15 HOLD-ZIPC-A PIC X(01). DTSCSL5 00185 DTSCSL5 00186 05 WRK-EPRF-PHONE-NUMBERS. DTSCSL5 00187 10 WRK-EPRF-PHONE. DTSCSL5 00188 15 WRK-EPRF-PHONE-A-CD PIC X(03). DTSCSL5 00189 15 WRK-EPRF-PHONE-PREF PIC X(03). DTSCSL5 00190 15 WRK-EPRF-PHONE-SUFF PIC X(04). DTSCSL5 00191 15 WRK-EPRF-PHONE-EXT PIC X(05). DTSCSL5 00192 EJECT DTSCSL5 00193 01 SCREEN-CONTROL. DTSCSL5 00194 05 SCR-ACCESS-IND PIC X(01). DTSCSL5 00195 88 SCR-ACCESS-INQ VALUE '1'. DTSCSL5 00196 88 SCR-ACCESS-UPDATE VALUE '2'. DTSCSL5 00197 DTSCSL5 00198 05 CURSOR-SET-IND PIC X(01). DTSCSL5 00199 88 CURSOR-SET-YES VALUE 'Y'. DTSCSL5 00200 88 CURSOR-SET-NO VALUE 'N'. DTSCSL5 00201 88 CURSOR-SET-GOTO VALUE 'G'. DTSCSL5 00202 DTSCSL5 00203 05 REQ-IND PIC X(01). DTSCSL5 00204 88 REQ-ERROR VALUE 'O'. DTSCSL5 00205 88 REQ-JUMP VALUE 'J'. DTSCSL5 00206 88 REQ-INQUIRE VALUE 'I'. DTSCSL5 00207 88 REQ-CLEAR VALUE 'C'. DTSCSL5 00208 88 REQ-EDIT VALUE 'E'. DTSCSL5 00209 88 REQ-UPDATE VALUE 'U'. DTSCSL5 00210 88 REQ-CURSOR-TO-GOTO VALUE 'G'. DTSCSL5 00211 DTSCSL5 00212 05 RESP-IND PIC X(01). DTSCSL5 00213 88 RESP-SEND-MSGONLY VALUE 'O'. DTSCSL5 00214 88 RESP-SEND-MAP VALUE 'M'. DTSCSL5 00215 88 RESP-JUMP VALUE 'J'. DTSCSL5 00216 88 RESP-CURSOR-TO-GOTO VALUE 'G'. DTSCSL5 00217 DTSCSL5 00218 05 SCR-ATB-AN PIC X(01). DTSCSL5 00219 DTSCSL5 00220 05 SCR-ATB-NUM PIC X(01). DTSCSL5 00221 EJECT DTSCSL5 00222 01 MSG-LITERALS. DTSCSL5 00223 05 MSG-EL51-AREA. DTSCSL5 00224 10 FILLER PIC X(04) VALUE 'EL51'. DTSCSL5 00225 10 FILLER PIC X(40) DTSCSL5 00226 VALUE 'ACCOUNT INACTIVE '. DTSCSL5 00227 10 FILLER PIC X(20) DTSCSL5 00228 VALUE ' '. DTSCSL5 00229 DTSCSL5 00230 05 MSG-EL52-AREA. DTSCSL5 00231 10 FILLER PIC X(04) VALUE 'EL52'. DTSCSL5 00232 10 FILLER PIC X(40) DTSCSL5 00233 VALUE 'ACCOUNT NEVER SUBJECT '. DTSCSL5 00234 DTSCSL5 00235 05 MSG-EL53-AREA. DTSCSL5 00236 10 FILLER PIC X(04) VALUE 'EL53'. DTSCSL5 00237 10 FILLER PIC X(40) DTSCSL5 00238 VALUE 'NAME MAY NOT BE ENTERED OR CHANGED '. DTSCSL5 00239 10 FILLER PIC X(20) DTSCSL5 00240 VALUE ' '. DTSCSL5 00241 DTSCSL5 00242 05 MSG-EL54-AREA. DTSCSL5 00243 10 FILLER PIC X(04) VALUE 'EL54'. DTSCSL5 00244 10 FILLER PIC X(40) DTSCSL5 00245 VALUE 'MEDIUM AND FORMAT INCOMPATIBLE '. DTSCSL5 00246 10 FILLER PIC X(20) DTSCSL5 00247 VALUE ' '. DTSCSL5 00248 DTSCSL5 00249 05 MSG-EL55-AREA. DTSCSL5 00250 10 FILLER PIC X(04) VALUE 'EL55'. DTSCSL5 00251 10 FILLER PIC X(40) DTSCSL5 00252 VALUE 'FIELD MUST BE BLANK - ELF ID IS A SYSTEM'. DTSCSL5 00253 10 FILLER PIC X(20) DTSCSL5 00254 VALUE ' GENERATED FIELD '. DTSCSL5 00255 DTSCSL5 00256 05 MSG-EL56-AREA. DTSCSL5 00257 10 FILLER PIC X(04) VALUE 'EL56'. DTSCSL5 00258 10 FILLER PIC X(40) DTSCSL5 00259 VALUE 'WAGE IS ONLY VALID DATA TYPE FOR EMPLOYE'. DTSCSL5 00260 10 FILLER PIC X(20) DTSCSL5 00261 VALUE 'R '. DTSCSL5 00262 DTSCSL5 00263 EJECT DTSCSL5 00264 01 L001-COMM-AREA. DTSCSL5 00265 ++INCLUDE DTSIL001 DTSCSL5 00266 EJECT DTSCSL5 00267 01 L004-COMM-AREA. DTSCSL5 00268 ++INCLUDE DTSIL004 DTSCSL5 00269 EJECT DTSCSL5 00270 01 L018-COMM-AREA. DTSCSL5 00271 ++INCLUDE DTSIL018 DTSCSL5 00272 EJECT DTSCSL5 00273 01 L021-COMM-AREA. DTSCSL5 00274 ++INCLUDE DTSIL021 DTSCSL5 00275 EJECT DTSCSL5 00276 01 L041-COMM-AREA. DTSCSL5 00277 ++INCLUDE DTSIL041 DTSCSL5 00278 EJECT DTSCSL5 00279 01 L072-COMM-AREA. DTSCSL5 00280 ++INCLUDE DTSIL072 DTSCSL5 00281 EJECT DTSCSL5 00282 01 L073-COMM-AREA. DTSCSL5 00283 ++INCLUDE DTSIL073 DTSCSL5 00284 EJECT DTSCSL5 00285 01 L200-CONSTANTS. DTSCSL5 00286 ++INCLUDE DTSIC200 DTSCSL5 00287 EJECT DTSCSL5 00288 01 L222-COMM-AREA. DTSCSL5 00289 ++INCLUDE DTSIL222 DTSCSL5 00290 EJECT DTSCSL5 00291 01 L357-COMM-AREA. DTSCSL5 00292 ++INCLUDE DTSIL357 DTSCSL5 00293 EJECT DTSCSL5 00294 01 L805-COMM-AREA. DTSCSL5 00295 ++INCLUDE DTSIL805 DTSCSL5 00296 EJECT DTSCSL5 00297 01 L810-COMM-AREA. DTSCSL5 00298 05 L810-CONTROL-BLOCK. DTSCSL5 00299 ++INCLUDE DTSIL810 DTSCSL5 00300 EJECT DTSCSL5 00301 05 MSKL-REC. DTSCSL5 00302 ++INCLUDE DTSIMSKL DTSCSL5 00303 EJECT DTSCSL5 00304 01 MPRF-REC. DTSCSL5 00305 ++INCLUDE DTSIMPRF DTSCSL5 00306 EJECT DTSCSL5 00307 01 MTAD-REC. DTSCSL5 00308 ++INCLUDE DTSIMTAD DTSCSL5 00309 EJECT DTSCSL5 00310 01 L821-COMM-AREA. DTSCSL5 00311 05 L821-CONTROL-BLOCK. DTSCSL5 00312 ++INCLUDE DTSIL821 DTSCSL5 00313 DTSCSL5 00314 05 ISKL-REC. DTSCSL5 00315 ++INCLUDE DTSIISKL DTSCSL5 00316 05 FILLER REDEFINES ISKL-REC. DTSCSL5 00317 ++INCLUDE DTSIIENM DTSCSL5 00318 05 FILLER REDEFINES ISKL-REC. DTSCSL5 00319 ++INCLUDE DTSIIEPR DTSCSL5 00320 EJECT DTSCSL5 00321 01 L835-COMM-AREA. DTSCSL5 00322 05 L835-CONTROL-BLOCK. DTSCSL5 00323 ++INCLUDE DTSIL835 DTSCSL5 00324 EJECT DTSCSL5 00325 05 ESKL-REC. DTSCSL5 00326 ++INCLUDE DTSIESKL DTSCSL5 00327 EJECT DTSCSL5 00328 01 EPRF-REC. DTSCSL5 00329 ++INCLUDE DTSIEPRF DTSCSL5 00330 EJECT DTSCSL5 00331 01 EHDR-REC. DTSCSL5 00332 ++INCLUDE DTSIEHDR DTSCSL5 00333 EJECT DTSCSL5 00334 DTSCSL5 00335 * MAP DEFINITION DTSCSL5 00336 01 L851-COMM-AREA. DTSCSL5 00337 ++INCLUDE DTSIL851 DTSCSL5 00338 SKIP3 DTSCSL5 00339 05 MAP-AREA REDEFINES L851-MAP-AREA. DTSCSL5 00340 ++INCLUDE DTSISL5 DTSCSL5 00341 EJECT DTSCSL5 00342 01 CATB-LITERALS. DTSCSL5 00343 ++INCLUDE DTSICATB DTSCSL5 00344 SKIP3 DTSCSL5 00345 01 CFKD-LITERALS. DTSCSL5 00346 ++INCLUDE DTSICFKD DTSCSL5 00347 EJECT DTSCSL5 00348 01 CECD-LITERALS. DTSCSL5 00349 ++INCLUDE DTSICECD DTSCSL5 00350 SKIP3 DTSCSL5 00351 01 CPCD-LITERALS. DTSCSL5 00352 ++INCLUDE DTSICPCD DTSCSL5 00353 EJECT DTSCSL5 00354 LINKAGE SECTION. DTSCSL5 00355 SKIP3 DTSCSL5 00356 01 DFHCOMMAREA. DTSCSL5 00357 ++INCLUDE DTSILCCM DTSCSL5 00358 SKIP3 DTSCSL5 00359 15 FILLER REDEFINES LCCM-SCR-HOLD-AREA. DTSCSL5 00360 20 LCCM-ELF-ID PIC 9(6). DTSCSL5 00361 20 LCCM-DATA-TYPE-CD PIC X(2). DTSCSL5 00362 20 LCCM-HOLD-ADDRESS PIC X(171). DTSCSL5 00363 EJECT DTSCSL5 00364 ******************************************************************DTSCSL5 00365 * *DTSCSL5 00366 ******************************************************************DTSCSL5 00367 DTSCSL5 00368 PROCEDURE DIVISION. DTSCSL5 00369 SKIP2 DTSCSL5 00370 MOVE +0 TO WRK-ELF-ID. DTSCSL5 00371 DTSCSL5 00372 SET CURSOR-SET-NO TO TRUE. DTSCSL5 00373 DTSCSL5 00374 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5 00375 DTSCSL5 00376 SET SCR-ACCESS-INQ TO TRUE. DTSCSL5 00377 DTSCSL5 00378 SET WRK-MPRF-NO-88 TO TRUE. DTSCSL5 00379 SET WRK-MTAD-NO-88 TO TRUE. DTSCSL5 00380 DTSCSL5 00381 PERFORM P0100-ACCESS-SEARCH THRU P0100-EXIT DTSCSL5 00382 VARYING LCCM-NONUM-IDX FROM 1 BY 1 DTSCSL5 00383 UNTIL LCCM-NONUM-IDX > LCCM-SCR-NONUM-CNT. DTSCSL5 00384 DTSCSL5 00385 DTSCSL5 00386 MOVE SPACE TO REQ-IND DTSCSL5 00387 LCCM-REQ-SCR-ID. DTSCSL5 00388 DTSCSL5 00389 PERFORM P1000-ANALYZE-REQUEST THRU P1000-EXIT. DTSCSL5 00390 DTSCSL5 00391 *----------------------------------------------------- DTSCSL5 00392 * P1000-ANALYZE-REQUEST HAS DETERMINED, BASED ON THE DTSCSL5 00393 * "AID" KEY PRESSED AND THE CONTEXT OF THE CURRENT DTSCSL5 00394 * REQUEST WITHIN THE PSEUDO CONVERSATION, THE TYPE DTSCSL5 00395 * OF ACTIVITY THE WORK STATION OPERATOR HAS REQUESTED. DTSCSL5 00396 * DTSCSL5 00397 * THE REQUEST, REFLECTED IN REQ-IND WILL NOW BE DTSCSL5 00398 * PROCESSED. DTSCSL5 00399 * DTSCSL5 00400 * THE REQUEST PROCESSING PARAGRAPHS WILL SET RESP-IND, DTSCSL5 00401 * INDICATING THE TYPE OF RESPONSE TO BE SENT TO THE DTSCSL5 00402 * WORK STATION OPERATOR. DTSCSL5 00403 *----------------------------------------------------- DTSCSL5 00404 DTSCSL5 00405 MOVE SPACE TO RESP-IND. DTSCSL5 00406 DTSCSL5 00407 IF REQ-ERROR DTSCSL5 00408 PERFORM P2000-REQUEST-ERROR THRU P2000-EXIT DTSCSL5 00409 ELSE DTSCSL5 00410 IF REQ-JUMP DTSCSL5 00411 PERFORM P3000-REQUEST-JUMP THRU P3000-EXIT DTSCSL5 00412 ELSE DTSCSL5 00413 IF REQ-CLEAR DTSCSL5 00414 PERFORM P4000-REQUEST-CLEAR THRU P4000-EXIT DTSCSL5 00415 ELSE DTSCSL5 00416 IF REQ-CURSOR-TO-GOTO DTSCSL5 00417 PERFORM P5000-CURSOR-TO-GOTO THRU P5000-EXIT DTSCSL5 00418 ELSE DTSCSL5 00419 IF REQ-INQUIRE DTSCSL5 00420 PERFORM P6000-REQUEST-INQUIRE THRU P6000-EXIT DTSCSL5 00421 ELSE DTSCSL5 00422 IF REQ-EDIT DTSCSL5 00423 PERFORM P7000-REQUEST-EDIT THRU P7000-EXIT DTSCSL5 00424 ELSE DTSCSL5 00425 IF REQ-UPDATE DTSCSL5 00426 PERFORM P8000-REQUEST-UPDATE THRU P8000-EXIT DTSCSL5 00427 ELSE DTSCSL5 00428 GO TO S899-ABEND. DTSCSL5 00429 DTSCSL5 00430 DTSCSL5 00431 *----------------------------------------------------- DTSCSL5 00432 * THE REQUEST PROCESSING PARAGRAPHS HAVE INDICATED DTSCSL5 00433 * IN RESP-IND THE TYPE OF RESPONSE TO BE MADE. DTSCSL5 00434 *----------------------------------------------------- DTSCSL5 00435 DTSCSL5 00436 IF RESP-SEND-MAP DTSCSL5 00437 PERFORM S9300-SEND-MAP THRU S9300-EXIT DTSCSL5 00438 SET LCCM-END-TASK-88 TO TRUE DTSCSL5 00439 ELSE DTSCSL5 00440 IF RESP-SEND-MSGONLY DTSCSL5 00441 OR RESP-CURSOR-TO-GOTO DTSCSL5 00442 PERFORM S9200-SEND-DATAONLY THRU S9200-EXIT DTSCSL5 00443 SET LCCM-END-TASK-88 TO TRUE DTSCSL5 00444 ELSE DTSCSL5 00445 IF RESP-JUMP DTSCSL5 00446 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5 00447 ELSE DTSCSL5 00448 GO TO S899-ABEND. DTSCSL5 00449 DTSCSL5 00450 DTSCSL5 00451 MAINLINE-EXIT. DTSCSL5 00452 DTSCSL5 00453 EXEC CICS DTSCSL5 00454 RETURN DTSCSL5 00455 END-EXEC. DTSCSL5 00456 DTSCSL5 00457 DTSCSL5 00458 GOBACK. DTSCSL5 00459 EJECT DTSCSL5 00460 P0100-ACCESS-SEARCH. DTSCSL5 00461 IF LCCM-SCR-NONUM-ID (LCCM-NONUM-IDX) = WRK-SCR-ID DTSCSL5 00462 MOVE LCCM-SCR-NONUM-ACCESS-IND (LCCM-NONUM-IDX) DTSCSL5 00463 TO SCR-ACCESS-IND. DTSCSL5 00464 P0100-EXIT. DTSCSL5 00465 EXIT. DTSCSL5 00466 /*****************************************************************DTSCSL5 00467 * DETERMINE CURRENT SCREEN STATE AND REQUEST COMBINATION *DTSCSL5 00468 ******************************************************************DTSCSL5 00469 DTSCSL5 00470 P1000-ANALYZE-REQUEST. DTSCSL5 00471 DTSCSL5 00472 *----------------------------------------------------- DTSCSL5 00473 * IF SCREEN IS NOT CURRENTLY DISPLAYED (JUMP TO HERE) DTSCSL5 00474 * THEN ANY KEY PRESSED WILL BE IGNORED (WILL BE DTSCSL5 00475 * REPLACED WITH ENTER) DTSCSL5 00476 *----------------------------------------------------- DTSCSL5 00477 DTSCSL5 00478 IF LCCM-SCR-ID NOT = WRK-SCR-ID DTSCSL5 00479 SET LCCM-ENTER-88 TO TRUE DTSCSL5 00480 SET REQ-INQUIRE TO TRUE DTSCSL5 00481 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA DTSCSL5 00482 IF LCCM-EMP-NO > ZERO DTSCSL5 00483 MOVE LCCM-EMP-NO-1 TO MAP-ELF-ID-1 DTSCSL5 00484 MOVE LCCM-EMP-NO-2 TO MAP-ELF-ID-2 DTSCSL5 00485 END-IF DTSCSL5 00486 GO TO P1000-EXIT. DTSCSL5 00487 DTSCSL5 00488 DTSCSL5 00489 *----------------------------------------------------- DTSCSL5 00490 * MAP IS RECEIVED DTSCSL5 00491 *----------------------------------------------------- DTSCSL5 00492 DTSCSL5 00493 PERFORM S9100-RECEIVE THRU S9100-EXIT. DTSCSL5 00494 DTSCSL5 00495 DTSCSL5 00496 *----------------------------------------------------- DTSCSL5 00497 * CHECK FOR AID KEYS THAT DO NOT SEND DATA FROM THE DTSCSL5 00498 * WORK STATION DTSCSL5 00499 *----------------------------------------------------- DTSCSL5 00500 DTSCSL5 00501 IF LCCM-CLEAR-88 DTSCSL5 00502 SET REQ-CLEAR TO TRUE DTSCSL5 00503 GO TO P1000-EXIT. DTSCSL5 00504 DTSCSL5 00505 DTSCSL5 00506 *----------------------------------------------------- DTSCSL5 00507 * IF IN UPDATE MODE, SPECIFIC KEYS MUST BE CHECKED DTSCSL5 00508 *----------------------------------------------------- DTSCSL5 00509 DTSCSL5 00510 IF LCCM-SCR-UPDATE-LOCKED DTSCSL5 00511 PERFORM P1100-UPDATE-LOCKED THRU P1100-EXIT DTSCSL5 00512 GO TO P1000-EXIT. DTSCSL5 00513 DTSCSL5 00514 DTSCSL5 00515 *----------------------------------------------------- DTSCSL5 00516 * PA2 IS A REQUEST TO POSITION CURSOR AT GO TO: DTSCSL5 00517 *----------------------------------------------------- DTSCSL5 00518 DTSCSL5 00519 IF LCCM-PA2-88 DTSCSL5 00520 SET REQ-CURSOR-TO-GOTO TO TRUE DTSCSL5 00521 GO TO P1000-EXIT. DTSCSL5 00522 DTSCSL5 00523 DTSCSL5 00524 *----------------------------------------------------- DTSCSL5 00525 * ALL OTHER PA KEYS ARE NOT ACTIVE DTSCSL5 00526 *----------------------------------------------------- DTSCSL5 00527 DTSCSL5 00528 IF LCCM-PA-88 DTSCSL5 00529 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCSL5 00530 SET REQ-ERROR TO TRUE DTSCSL5 00531 GO TO P1000-EXIT. DTSCSL5 00532 DTSCSL5 00533 DTSCSL5 00534 *----------------------------------------------------- DTSCSL5 00535 * F12 PRESSED WHEN UPDATE NOT IN PROGRESS IS A DTSCSL5 00536 * REQUEST TO CLEAR THE SCREEN DTSCSL5 00537 *----------------------------------------------------- DTSCSL5 00538 DTSCSL5 00539 IF LCCM-F12-88 DTSCSL5 00540 MOVE LOW-VALUES TO MAP-AREA DTSCSL5 00541 SET REQ-CLEAR TO TRUE DTSCSL5 00542 GO TO P1000-EXIT. DTSCSL5 00543 DTSCSL5 00544 DTSCSL5 00545 *----------------------------------------------------- DTSCSL5 00546 * IF EXIT KEY PRESSED, JUMP TO NEXT HIGHER FUNCTION DTSCSL5 00547 *----------------------------------------------------- DTSCSL5 00548 DTSCSL5 00549 IF LCCM-F03-88 DTSCSL5 00550 MOVE WRK-F03-SCR-ID TO LCCM-REQ-SCR-ID DTSCSL5 00551 SET REQ-JUMP TO TRUE DTSCSL5 00552 GO TO P1000-EXIT. DTSCSL5 00553 DTSCSL5 00554 DTSCSL5 00555 *----------------------------------------------------- DTSCSL5 00556 * IF PRIOR SCREEN KEY PRESSED, JUMP TO PREVIOUS SCREEN DTSCSL5 00557 *----------------------------------------------------- DTSCSL5 00558 DTSCSL5 00559 IF LCCM-F04-88 DTSCSL5 00560 MOVE LCCM-PRIOR-SCR-ID TO LCCM-REQ-SCR-ID DTSCSL5 00561 SET REQ-JUMP TO TRUE DTSCSL5 00562 GO TO P1000-EXIT. DTSCSL5 00563 DTSCSL5 00564 DTSCSL5 00565 *---------------------------------------------------------- DTSCSL5 00566 * IF CORRESPONDENCE SCREEN KEY PRESSED, JUMP TO DTSCSL5 00567 * CORRESPONDENCE SCREEN. DTSCSL5 00568 *---------------------------------------------------------- DTSCSL5 00569 DTSCSL5 00570 IF LCCM-F14-88 DTSCSL5 00571 MOVE LCCM-CORR-SCR-ID TO LCCM-REQ-SCR-ID DTSCSL5 00572 SET REQ-JUMP TO TRUE DTSCSL5 00573 GO TO P1000-EXIT. DTSCSL5 00574 DTSCSL5 00575 DTSCSL5 00576 *----------------------------------------------------- DTSCSL5 00577 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCSL5 00578 * REQUESTED SCREEN TYPE DTSCSL5 00579 *----------------------------------------------------- DTSCSL5 00580 DTSCSL5 00581 IF MAP-GOTO = SPACES OR LOW-VALUES OR WRK-SCR-ID DTSCSL5 00582 NEXT SENTENCE DTSCSL5 00583 ELSE DTSCSL5 00584 MOVE MAP-GOTO TO LCCM-REQ-SCR-ID DTSCSL5 00585 SET REQ-JUMP TO TRUE DTSCSL5 00586 GO TO P1000-EXIT. DTSCSL5 00587 DTSCSL5 00588 DTSCSL5 00589 *----------------------------------------------------- DTSCSL5 00590 * IF REQUEST TO UPDATE THE DATA (ADD, MOD, DEL) DTSCSL5 00591 * VERIFY USER ACCESS TO PERFORM UPDATE DTSCSL5 00592 *----------------------------------------------------- DTSCSL5 00593 DTSCSL5 00594 IF LCCM-F09-88 OR LCCM-F10-88 OR DTSCSL5 00595 LCCM-F11-88 OR LCCM-F23-88 DTSCSL5 00596 IF SCR-ACCESS-UPDATE DTSCSL5 00597 SET REQ-EDIT TO TRUE DTSCSL5 00598 GO TO P1000-EXIT DTSCSL5 00599 ELSE DTSCSL5 00600 PERFORM S804-INVALID-KEY THRU S804-EXIT DTSCSL5 00601 SET REQ-ERROR TO TRUE DTSCSL5 00602 GO TO P1000-EXIT. DTSCSL5 00603 DTSCSL5 00604 DTSCSL5 00605 *----------------------------------------------------- DTSCSL5 00606 * IF INQUIRY TYPE KEY PRESSED (ENTER, PAGE DOWN, DTSCSL5 00607 * PAGE UP), INDICATE INQUIRY REQUEST DTSCSL5 00608 *----------------------------------------------------- DTSCSL5 00609 DTSCSL5 00610 IF LCCM-ENTER-88 DTSCSL5 00611 SET REQ-INQUIRE TO TRUE DTSCSL5 00612 GO TO P1000-EXIT. DTSCSL5 00613 DTSCSL5 00614 DTSCSL5 00615 *----------------------------------------------------- DTSCSL5 00616 * ANY OTHER KEY IS INVALID DTSCSL5 00617 *----------------------------------------------------- DTSCSL5 00618 DTSCSL5 00619 PERFORM S804-INVALID-KEY THRU S804-EXIT. DTSCSL5 00620 DTSCSL5 00621 SET REQ-ERROR TO TRUE. DTSCSL5 00622 P1000-EXIT. DTSCSL5 00623 EXIT. DTSCSL5 00624 DTSCSL5 00625 DTSCSL5 00626 DTSCSL5 00627 ******************************************************************DTSCSL5 00628 * THE SCREEN IS LOCKED FOR UPDATE AND THE USER CONFIRMS HIS WISH *DTSCSL5 00629 ******************************************************************DTSCSL5 00630 DTSCSL5 00631 P1100-UPDATE-LOCKED. DTSCSL5 00632 DTSCSL5 00633 *----------------------------------------------------- DTSCSL5 00634 * IF THE SCREEN IS "LOCKED FOR UPDATE", THEN DTSCSL5 00635 * THE ONLY VALID OPERATOR REQUESTS ARE ENTER DTSCSL5 00636 * (CONFIRMING UPDATE) OR F12 (CANCELLING UPDATE). DTSCSL5 00637 *----------------------------------------------------- DTSCSL5 00638 DTSCSL5 00639 IF LCCM-ENTER-88 OR LCCM-F12-88 DTSCSL5 00640 SET REQ-UPDATE TO TRUE DTSCSL5 00641 ELSE DTSCSL5 00642 SET REQ-ERROR TO TRUE DTSCSL5 00643 IF LCCM-SCR-ADD-LOCKED DTSCSL5 00644 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-AREA DTSCSL5 00645 ELSE DTSCSL5 00646 IF LCCM-SCR-MOD-LOCKED DTSCSL5 00647 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-AREA DTSCSL5 00648 ELSE DTSCSL5 00649 IF LCCM-SCR-DEL-LOCKED DTSCSL5 00650 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-AREA DTSCSL5 00651 ELSE DTSCSL5 00652 GO TO S899-ABEND. DTSCSL5 00653 P1100-EXIT. DTSCSL5 00654 EXIT. DTSCSL5 00655 /*****************************************************************DTSCSL5 00656 * ANALYZE REQUEST HAS DETERMINED AN ERROR THAT MUST BE REPORTED. *DTSCSL5 00657 * VERIFY THAT A MESSAGE HAS BEEN FILLED IN. *DTSCSL5 00658 ******************************************************************DTSCSL5 00659 DTSCSL5 00660 P2000-REQUEST-ERROR. DTSCSL5 00661 IF LCCM-MSG DTSCSL5 00662 SET RESP-SEND-MSGONLY TO TRUE DTSCSL5 00663 ELSE DTSCSL5 00664 GO TO S899-ABEND. DTSCSL5 00665 P2000-EXIT. DTSCSL5 00666 EXIT. DTSCSL5 00667 /*****************************************************************DTSCSL5 00668 * JUMP TO A DIFFERENT SCREEN TYPE WAS REQUESTED *DTSCSL5 00669 ******************************************************************DTSCSL5 00670 DTSCSL5 00671 P3000-REQUEST-JUMP. DTSCSL5 00672 DTSCSL5 00673 *----------------------------------------------------- DTSCSL5 00674 * VERIFY THAT THE REQUESTED SCREEN EXISTS AND IS ACCESSIBLE DTSCSL5 00675 * BY USER DTSCSL5 00676 *----------------------------------------------------- DTSCSL5 00677 DTSCSL5 00678 PERFORM S803-REQ-SCR-ID-EDIT THRU S803-EXIT. DTSCSL5 00679 DTSCSL5 00680 DTSCSL5 00681 *----------------------------------------------------- DTSCSL5 00682 * VERIFICATION RETURN LCCM-MSG IF ERROR DETECTED DTSCSL5 00683 *----------------------------------------------------- DTSCSL5 00684 DTSCSL5 00685 IF LCCM-MSG DTSCSL5 00686 SET RESP-SEND-MSGONLY TO TRUE DTSCSL5 00687 SET CURSOR-SET-GOTO TO TRUE DTSCSL5 00688 GO TO P3000-EXIT. DTSCSL5 00689 DTSCSL5 00690 DTSCSL5 00691 MOVE MAP-ELF-ID-AREA TO L018-S-EMP-NO-AREA. DTSCSL5 00692 DTSCSL5 00693 PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT. DTSCSL5 00694 DTSCSL5 00695 IF L018-VALID DTSCSL5 00696 MOVE L018-EMP-NO TO LCCM-ELF-ID DTSCSL5 00697 LCCM-EMP-NO. DTSCSL5 00698 DTSCSL5 00699 *----------------------------------------------------- DTSCSL5 00700 * CLEAN UP INDICATORS AND PAGING STORAGE PRIOR TO LEAVING DTSCSL5 00701 *----------------------------------------------------- DTSCSL5 00702 DTSCSL5 00703 MOVE LOW-VALUES TO LCCM-SCR-STATUS DTSCSL5 00704 LCCM-SCR-HOLD-AREA. DTSCSL5 00705 DTSCSL5 00706 MOVE +0 TO LCCM-SCR-ABSTIME. DTSCSL5 00707 DTSCSL5 00708 SET RESP-JUMP TO TRUE. DTSCSL5 00709 P3000-EXIT. DTSCSL5 00710 EXIT. DTSCSL5 00711 /*****************************************************************DTSCSL5 00712 * CLEAR KEY WAS PRESSED *DTSCSL5 00713 ******************************************************************DTSCSL5 00714 DTSCSL5 00715 P4000-REQUEST-CLEAR. DTSCSL5 00716 IF SCR-ACCESS-UPDATE DTSCSL5 00717 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCSL5 00718 ELSE DTSCSL5 00719 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCSL5 00720 DTSCSL5 00721 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5 00722 DTSCSL5 00723 DTSCSL5 00724 *----------------------------------------------------- DTSCSL5 00725 * CLEAN UP INDICATORS AND PAGING STORAGE. RESET KEY DTSCSL5 00726 * FIELDS FROM EARLIER REQUESTS DTSCSL5 00727 *----------------------------------------------------- DTSCSL5 00728 DTSCSL5 00729 IF LCCM-EMP-NO > ZERO DTSCSL5 00730 MOVE LCCM-EMP-NO-1 TO MAP-ELF-ID-1 DTSCSL5 00731 MOVE LCCM-EMP-NO-2 TO MAP-ELF-ID-2. DTSCSL5 00732 DTSCSL5 00733 MOVE ZERO TO LCCM-EMP-NO. DTSCSL5 00734 DTSCSL5 00735 MOVE LOW-VALUES TO LCCM-SCR-HOLD-AREA. DTSCSL5 00736 DTSCSL5 00737 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5 00738 DTSCSL5 00739 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5 00740 DTSCSL5 00741 SET RESP-SEND-MAP TO TRUE. DTSCSL5 00742 P4000-EXIT. DTSCSL5 00743 EXIT. DTSCSL5 00744 /*****************************************************************DTSCSL5 00745 * POSITION CURSOR ON GO TO FIELD WAS REQUESTED *DTSCSL5 00746 ******************************************************************DTSCSL5 00747 DTSCSL5 00748 P5000-CURSOR-TO-GOTO. DTSCSL5 00749 SET CURSOR-SET-GOTO TO TRUE. DTSCSL5 00750 DTSCSL5 00751 SET RESP-CURSOR-TO-GOTO TO TRUE. DTSCSL5 00752 P5000-EXIT. DTSCSL5 00753 EXIT. DTSCSL5 00754 /*****************************************************************DTSCSL5 00755 * INQUIRY WAS REQUESTED *DTSCSL5 00756 ******************************************************************DTSCSL5 00757 DTSCSL5 00758 P6000-REQUEST-INQUIRE. DTSCSL5 00759 MOVE MAP-ELF-ID-AREA TO L018-S-EMP-NO-AREA. DTSCSL5 00760 MOVE MAP-DATA-TYPE-CD TO L041-CD-2. DTSCSL5 00761 DTSCSL5 00762 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5 00763 DTSCSL5 00764 MOVE L018-S-EMP-NO-AREA TO MAP-ELF-ID-AREA. DTSCSL5 00765 DTSCSL5 00766 MOVE L041-CD-2 TO MAP-DATA-TYPE-CD. DTSCSL5 00767 DTSCSL5 00768 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5 00769 DTSCSL5 00770 MOVE LCCM-TASK-START-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5 00771 DTSCSL5 00772 SET RESP-SEND-MAP TO TRUE. DTSCSL5 00773 DTSCSL5 00774 IF SCR-ACCESS-UPDATE DTSCSL5 00775 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT DTSCSL5 00776 ELSE DTSCSL5 00777 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCSL5 00778 DTSCSL5 00779 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5 00780 DTSCSL5 00781 IF ELF-ID-EXTERNAL-88 OR ELF-ID-BLANK-88 DTSCSL5 00782 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5 00783 DTSCSL5 00784 MOVE WRK-ELF-ID TO LCCM-ELF-ID. DTSCSL5 00785 DTSCSL5 00786 MOVE WRK-DATA-TYPE-CD TO LCCM-DATA-TYPE-CD. DTSCSL5 00787 DTSCSL5 00788 IF ELF-ID-EXTERNAL-88 DTSCSL5 00789 NEXT SENTENCE DTSCSL5 00790 ELSE DTSCSL5 00791 PERFORM S8100-READ-MPRF THRU S8100-EXIT DTSCSL5 00792 IF L810-NO-REC-88 DTSCSL5 00793 SET LCCM-SCR-CLEAR TO TRUE DTSCSL5 00794 MOVE EMSG-NO-EMPLOYER TO WRK-MSG-AREA DTSCSL5 00795 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 00796 GO TO P6000-EXIT DTSCSL5 00797 ELSE DTSCSL5 00798 MOVE MPRF-PRIMARY-NAME TO MAP-ELF-NAME. DTSCSL5 00799 DTSCSL5 00800 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 00801 DTSCSL5 00802 IF L835-NO-REC-88 DTSCSL5 00803 SET LCCM-SCR-CLEAR TO TRUE DTSCSL5 00804 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 00805 GO TO P6000-EXIT. DTSCSL5 00806 DTSCSL5 00807 PERFORM P6900-CONSTRUCT-SCREEN THRU P6900-EXIT. DTSCSL5 00808 P6000-EXIT. DTSCSL5 00809 EXIT. DTSCSL5 00810 /*****************************************************************DTSCSL5 00811 * THE RECORD WAS FOUND SO FORMAT AND PLACE ALL FIELDS *DTSCSL5 00812 ******************************************************************DTSCSL5 00813 DTSCSL5 00814 P6900-CONSTRUCT-SCREEN. DTSCSL5 00815 PERFORM P6910-FROM-EPRF THRU P6910-EXIT. DTSCSL5 00816 PERFORM P6920-DISP-CODES THRU P6920-EXIT. DTSCSL5 00817 DTSCSL5 00818 SET LCCM-SCR-INQUIRE TO TRUE. DTSCSL5 00819 DTSCSL5 00820 MOVE WRK-ELF-ID TO LCCM-ELF-ID. DTSCSL5 00821 MOVE WRK-DATA-TYPE-CD TO LCCM-DATA-TYPE-CD. DTSCSL5 00822 P6900-EXIT. DTSCSL5 00823 EXIT. DTSCSL5 00824 DTSCSL5 00825 ******************************************************************DTSCSL5 00826 * *DTSCSL5 00827 ******************************************************************DTSCSL5 00828 DTSCSL5 00829 P6910-FROM-EPRF. DTSCSL5 00830 MOVE EPRF-ELF-NAME TO MAP-ELF-NAME. DTSCSL5 00831 MOVE EPRF-DATA-TYPE-CD TO MAP-DATA-TYPE-CD DTSCSL5 00832 MOVE EPRF-MEDIUM-TYPE-CD TO MAP-MEDIUM-TYPE-CD DTSCSL5 00833 MOVE EPRF-FORMAT-CD TO MAP-FORMAT-TYPE-CD DTSCSL5 00834 DTSCSL5 00835 IF EPRF-JOB-NAME = SPACES DTSCSL5 00836 PERFORM P6911-GET-JOB-NAME THRU P6911-EXIT DTSCSL5 00837 ELSE DTSCSL5 00838 MOVE EPRF-JOB-NAME TO MAP-JOB-NAME. DTSCSL5 00839 DTSCSL5 00840 MOVE EPRF-FORMAT-NOTES TO MAP-FORMAT-NOTES DTSCSL5 00841 MOVE EPRF-BUSINESS-CONTACT-NAME TO DTSCSL5 00842 MAP-BUSN-CONTACT-NAME. DTSCSL5 00843 MOVE EPRF-BUSINESS-CONTACT-EMAIL TO DTSCSL5 00844 MAP-BUSN-CONTACT-EMAIL. DTSCSL5 00845 MOVE EPRF-BUSINESS-VOICE-AREA-CD TO DTSCSL5 00846 MAP-BUSN-VOICE-AREA-CD. DTSCSL5 00847 MOVE EPRF-BUSINESS-VOICE-PREFIX TO MAP-BUSN-VOICE-PREFIX DTSCSL5 00848 MOVE EPRF-BUSINESS-VOICE-SUFFIX TO MAP-BUSN-VOICE-SUFFIX DTSCSL5 00849 MOVE EPRF-BUSINESS-VOICE-EXT TO MAP-BUSN-VOICE-EXT. DTSCSL5 00850 MOVE EPRF-BUSINESS-FAX-AREA-CD TO MAP-BUSN-FAX-AREA-CD. DTSCSL5 00851 MOVE EPRF-BUSINESS-FAX-PREFIX TO MAP-BUSN-FAX-PREFIX. DTSCSL5 00852 MOVE EPRF-BUSINESS-FAX-SUFFIX TO MAP-BUSN-FAX-SUFFIX. DTSCSL5 00853 * MOVE EPRF-BUSINESS-FAX-EXT TO MAP-BUSN-FAX-EXT. DTSCSL5 00854 MOVE EPRF-TECH-CONTACT-NAME TO MAP-TECH-CONTACT-NAME. DTSCSL5 00855 MOVE EPRF-TECH-CONTACT-EMAIL TO MAP-TECH-CONTACT-EMAIL. DTSCSL5 00856 MOVE EPRF-TECH-VOICE-AREA-CD TO MAP-TECH-VOICE-AREA-CD. DTSCSL5 00857 MOVE EPRF-TECH-VOICE-PREFIX TO MAP-TECH-VOICE-PREFIX. DTSCSL5 00858 MOVE EPRF-TECH-VOICE-SUFFIX TO MAP-TECH-VOICE-SUFFIX. DTSCSL5 00859 MOVE EPRF-TECH-VOICE-EXT TO MAP-TECH-VOICE-EXT. DTSCSL5 00860 MOVE EPRF-TECH-FAX-AREA-CD TO MAP-TECH-FAX-AREA-CD. DTSCSL5 00861 MOVE EPRF-TECH-FAX-PREFIX TO MAP-TECH-FAX-PREFIX. DTSCSL5 00862 MOVE EPRF-TECH-FAX-SUFFIX TO MAP-TECH-FAX-SUFFIX. DTSCSL5 00863 * MOVE EPRF-TECH-FAX-EXT TO MAP-TECH-FAX-EXT. DTSCSL5 00864 MOVE EPRF-ATTN-LINE TO MAP-ATTN-LINE. DTSCSL5 00865 MOVE EPRF-DELIV-LINE-1 TO MAP-DELIV-LINE-1. DTSCSL5 00866 MOVE EPRF-DELIV-LINE-2 TO MAP-DELIV-LINE-2. DTSCSL5 00867 MOVE EPRF-CITY TO MAP-CITY. DTSCSL5 00868 MOVE EPRF-ST TO MAP-STATE. DTSCSL5 00869 MOVE EPRF-ZIP TO MAP-ZIP DTSCSL5 00870 DTSCSL5 00871 IF EPRF-ESTB-DATE > ZEROS DTSCSL5 00872 MOVE EPRF-ESTB-DATE TO L001-FED-8-DATE-9 DTSCSL5 00873 SET L001-FROM-FED-8 TO TRUE DTSCSL5 00874 PERFORM S001-DATE THRU S001-EXIT DTSCSL5 00875 MOVE L001-CAL-6-MO TO MAP-ESTB-MO DTSCSL5 00876 MOVE L001-CAL-6-DA TO MAP-ESTB-DA DTSCSL5 00877 MOVE L001-CAL-6-YR TO MAP-ESTB-YR. DTSCSL5 00878 DTSCSL5 00879 IF EPRF-CHNG-DATE > ZEROS DTSCSL5 00880 MOVE EPRF-CHNG-DATE TO L001-FED-8-DATE-9 DTSCSL5 00881 SET L001-FROM-FED-8 TO TRUE DTSCSL5 00882 PERFORM S001-DATE THRU S001-EXIT DTSCSL5 00883 MOVE L001-CAL-6-MO TO MAP-CHNG-MO DTSCSL5 00884 MOVE L001-CAL-6-DA TO MAP-CHNG-DA DTSCSL5 00885 MOVE L001-CAL-6-YR TO MAP-CHNG-YR. DTSCSL5 00886 DTSCSL5 00887 MOVE EPRF-CHNG-OPID TO MAP-CHNG-OPID. DTSCSL5 00888 P6910-EXIT. DTSCSL5 00889 EXIT. DTSCSL5 00890 DTSCSL5 00891 P6911-GET-JOB-NAME. DTSCSL5 00892 PERFORM DTSCSL5 00893 VARYING C200-JOB-IDX FROM +1 BY +1 DTSCSL5 00894 UNTIL C200-JOB-IDX > C200-JOB-TABLE-MAX DTSCSL5 00895 IF (C200-FORMAT (C200-JOB-IDX) DTSCSL5 00896 = EPRF-FORMAT-CD DTSCSL5 00897 AND C200-MEDIUM (C200-JOB-IDX) DTSCSL5 00898 = EPRF-MEDIUM-TYPE-CD) DTSCSL5 00899 MOVE C200-JOB (C200-JOB-IDX) DTSCSL5 00900 TO MAP-JOB-NAME DTSCSL5 00901 END-IF DTSCSL5 00902 END-PERFORM. DTSCSL5 00903 DTSCSL5 00904 P6911-EXIT. DTSCSL5 00905 EXIT. DTSCSL5 00906 DTSCSL5 00907 ******************************************************************DTSCSL5 00908 * *DTSCSL5 00909 ******************************************************************DTSCSL5 00910 DTSCSL5 00911 P6920-DISP-CODES. DTSCSL5 00912 MOVE EPRF-DATA-TYPE-CD TO L041-CD-2. DTSCSL5 00913 SET L041-EPRF-DATA-TYPE-CD TO TRUE. DTSCSL5 00914 PERFORM S041-DISP-CODES THRU S041-EXIT. DTSCSL5 00915 DTSCSL5 00916 IF L041-VALID DTSCSL5 00917 MOVE L041-LONG-DSCR TO MAP-DATA-TYPE-NAME. DTSCSL5 00918 DTSCSL5 00919 MOVE EPRF-MEDIUM-TYPE-CD TO L041-CD-2. DTSCSL5 00920 SET L041-EPRF-MEDIUM-TYPE-CD TO TRUE. DTSCSL5 00921 PERFORM S041-DISP-CODES THRU S041-EXIT. DTSCSL5 00922 DTSCSL5 00923 IF L041-VALID DTSCSL5 00924 MOVE L041-SHORT-DSCR TO MAP-MEDIUM-TYPE-NAME. DTSCSL5 00925 DTSCSL5 00926 MOVE EPRF-FORMAT-CD TO L041-CD-3. DTSCSL5 00927 SET L041-EPRF-FORMAT-CD TO TRUE. DTSCSL5 00928 PERFORM S041-DISP-CODES THRU S041-EXIT. DTSCSL5 00929 DTSCSL5 00930 IF L041-VALID DTSCSL5 00931 MOVE L041-SHORT-DSCR TO MAP-FORMAT-TYPE-NAME. DTSCSL5 00932 DTSCSL5 00933 P6920-EXIT. DTSCSL5 00934 EXIT. DTSCSL5 00935 /*****************************************************************DTSCSL5 00936 * FUNCTION KEY TO ADD, MOD OR DEL THE RECORD WAS PRESSED. *DTSCSL5 00937 ******************************************************************DTSCSL5 00938 DTSCSL5 00939 P7000-REQUEST-EDIT. DTSCSL5 00940 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5 00941 DTSCSL5 00942 IF LCCM-F09-88 DTSCSL5 00943 PERFORM P7100-EDIT-ADD THRU P7100-EXIT DTSCSL5 00944 ELSE DTSCSL5 00945 IF LCCM-F10-88 OR LCCM-F11-88 DTSCSL5 00946 PERFORM P7200-EDIT-MOD THRU P7200-EXIT DTSCSL5 00947 ELSE DTSCSL5 00948 IF LCCM-F23-88 DTSCSL5 00949 PERFORM P7300-EDIT-DEL THRU P7300-EXIT DTSCSL5 00950 ELSE DTSCSL5 00951 GO TO S899-ABEND. DTSCSL5 00952 DTSCSL5 00953 DTSCSL5 00954 *------------------------------------------------------ DTSCSL5 00955 * SCREEN STATUS IS NOT CHANGED IF AN ERROR IS DETECTED. DTSCSL5 00956 * IN ORDER TO CONTINUE TO ATTEMPT AN ADD THE SCREEN MUST REMAIN DTSCSL5 00957 * IN A 'CLEAR' STATE. THE SCREEN MUST BE IN 'INQUIRE' STATUS DTSCSL5 00958 * IF MOD OR DEL FUNCTIONS ARE BEING REQUESTED. DTSCSL5 00959 *------------------------------------------------------ DTSCSL5 00960 DTSCSL5 00961 IF LCCM-MSG DTSCSL5 00962 NEXT SENTENCE DTSCSL5 00963 ELSE DTSCSL5 00964 PERFORM S5100-SET-LOCK-ATTRB THRU S5100-EXIT DTSCSL5 00965 IF LCCM-F09-88 DTSCSL5 00966 SET LCCM-SCR-ADD-LOCKED TO TRUE DTSCSL5 00967 MOVE PMSG-ADD-CONFIRM TO LCCM-MSG-AREA DTSCSL5 00968 ELSE DTSCSL5 00969 IF LCCM-F10-88 OR LCCM-F11-88 DTSCSL5 00970 SET LCCM-SCR-MOD-LOCKED TO TRUE DTSCSL5 00971 MOVE PMSG-MOD-CONFIRM TO LCCM-MSG-AREA DTSCSL5 00972 ELSE DTSCSL5 00973 IF LCCM-F23-88 DTSCSL5 00974 SET LCCM-SCR-DEL-LOCKED TO TRUE DTSCSL5 00975 MOVE PMSG-DEL-CONFIRM TO LCCM-MSG-AREA. DTSCSL5 00976 DTSCSL5 00977 SET RESP-SEND-MAP TO TRUE. DTSCSL5 00978 P7000-EXIT. DTSCSL5 00979 EXIT. DTSCSL5 00980 /*****************************************************************DTSCSL5 00981 * ADD FUNCTION WAS REQUESTED *DTSCSL5 00982 ******************************************************************DTSCSL5 00983 DTSCSL5 00984 P7100-EDIT-ADD. DTSCSL5 00985 DTSCSL5 00986 *----------------------------------------------------- DTSCSL5 00987 * ADD REQUIRES THAT THE SCREEN WAS IN THE CLEAR STATE DTSCSL5 00988 *----------------------------------------------------- DTSCSL5 00989 DTSCSL5 00990 IF NOT LCCM-SCR-CLEAR DTSCSL5 00991 MOVE EMSG-ADD-PRECEDED TO LCCM-MSG-AREA DTSCSL5 00992 GO TO P7100-EXIT. DTSCSL5 00993 DTSCSL5 00994 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5 00995 DTSCSL5 00996 IF LCCM-MSG DTSCSL5 00997 GO TO P7100-EXIT. DTSCSL5 00998 DTSCSL5 00999 IF L018-NO-ENTRY DTSCSL5 01000 OR ELF-ID-EXTERNAL-88 DTSCSL5 01001 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT DTSCSL5 01002 GO TO P7100-EXIT. DTSCSL5 01003 DTSCSL5 01004 MOVE WRK-ELF-ID TO LCCM-ELF-ID. DTSCSL5 01005 MOVE WRK-DATA-TYPE-CD TO LCCM-DATA-TYPE-CD DTSCSL5 01006 DTSCSL5 01007 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 01008 DTSCSL5 01009 IF L835-OK-88 DTSCSL5 01010 MOVE EMSG-RECORD-EXISTS TO WRK-MSG-AREA DTSCSL5 01011 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01012 GO TO P7100-EXIT DTSCSL5 01013 ELSE DTSCSL5 01014 IF L835-NO-REC-88 DTSCSL5 01015 NEXT SENTENCE DTSCSL5 01016 ELSE DTSCSL5 01017 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01018 GO TO P7100-EXIT. DTSCSL5 01019 DTSCSL5 01020 IF ELF-ID-EXTERNAL-88 DTSCSL5 01021 PERFORM P7110-BROWSE-ELF-ID THRU P7110-EXIT DTSCSL5 01022 IF L835-NO-REC-88 DTSCSL5 01023 MOVE MSG-EL55-AREA TO WRK-MSG-AREA DTSCSL5 01024 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01025 GO TO P7100-EXIT DTSCSL5 01026 ELSE DTSCSL5 01027 GO TO P7100-EXIT. DTSCSL5 01028 DTSCSL5 01029 PERFORM S8100-READ-MPRF THRU S8100-EXIT. DTSCSL5 01030 DTSCSL5 01031 IF L810-NO-REC-88 DTSCSL5 01032 MOVE EMSG-NO-EMPLOYER TO WRK-MSG-AREA DTSCSL5 01033 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01034 GO TO P7100-EXIT DTSCSL5 01035 ELSE DTSCSL5 01036 SET WRK-MPRF-YES-88 TO TRUE DTSCSL5 01037 MOVE MSKL-REC TO MPRF-REC DTSCSL5 01038 MOVE MPRF-PRIMARY-NAME TO MAP-ELF-NAME. DTSCSL5 01039 DTSCSL5 01040 IF MPRF-STATUS-INACT-88 DTSCSL5 01041 MOVE MSG-EL51-AREA TO WRK-MSG-AREA DTSCSL5 01042 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01043 GO TO P7100-EXIT DTSCSL5 01044 ELSE DTSCSL5 01045 IF MPRF-STATUS-NEVERSUB-88 DTSCSL5 01046 MOVE MSG-EL52-AREA TO WRK-MSG-AREA DTSCSL5 01047 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01048 GO TO P7100-EXIT. DTSCSL5 01049 DTSCSL5 01050 SET WRK-MPRF-YES-88 TO TRUE. DTSCSL5 01051 DTSCSL5 01052 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT. DTSCSL5 01053 DTSCSL5 01054 P7100-EXIT. DTSCSL5 01055 EXIT. DTSCSL5 01056 DTSCSL5 01057 P7110-BROWSE-ELF-ID. DTSCSL5 01058 MOVE LOW-VALUES TO EPRF-KEY-AREA. DTSCSL5 01059 MOVE WRK-ELF-ID TO EPRF-ELF-ID. DTSCSL5 01060 MOVE ZERO TO EPRF-DATA-TYPE-CD. DTSCSL5 01061 SET EPRF-PRF-88 TO TRUE. DTSCSL5 01062 MOVE EPRF-KEY-AREA TO ESKL-KEY-AREA. DTSCSL5 01063 PERFORM S835-START-BROWSE THRU S835-EXIT. DTSCSL5 01064 DTSCSL5 01065 P7110-EXIT. DTSCSL5 01066 EXIT. DTSCSL5 01067 DTSCSL5 01068 /*****************************************************************DTSCSL5 01069 * MODIFICATION FUNCTION WAS REQUESTED *DTSCSL5 01070 ******************************************************************DTSCSL5 01071 DTSCSL5 01072 P7200-EDIT-MOD. DTSCSL5 01073 DTSCSL5 01074 *----------------------------------------------------- DTSCSL5 01075 * MODIFICATION REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCSL5 01076 * INQUIRED DTSCSL5 01077 *----------------------------------------------------- DTSCSL5 01078 DTSCSL5 01079 IF NOT LCCM-SCR-INQUIRE DTSCSL5 01080 MOVE EMSG-MOD-PRECEDED TO LCCM-MSG-AREA DTSCSL5 01081 GO TO P7200-EXIT. DTSCSL5 01082 DTSCSL5 01083 MOVE LCCM-SCR-HOLD-AREA TO WRK-SCR-HOLD-AREA. DTSCSL5 01084 DTSCSL5 01085 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5 01086 DTSCSL5 01087 IF LCCM-MSG DTSCSL5 01088 GO TO P7200-EXIT. DTSCSL5 01089 DTSCSL5 01090 IF LCCM-ELF-ID NOT = WRK-ELF-ID OR DTSCSL5 01091 LCCM-DATA-TYPE-CD NOT = WRK-DATA-TYPE-CD DTSCSL5 01092 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCSL5 01093 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01094 GO TO P7200-EXIT. DTSCSL5 01095 DTSCSL5 01096 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 01097 DTSCSL5 01098 IF LCCM-MSG DTSCSL5 01099 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01100 GO TO P7200-EXIT. DTSCSL5 01101 DTSCSL5 01102 MOVE ESKL-REC TO EPRF-REC. DTSCSL5 01103 IF LCCM-F11-88 DTSCSL5 01104 MOVE 'F11' TO LCCM-SCRL5-HOLD-AREA DTSCSL5 01105 GO TO P7200-EXIT. DTSCSL5 01106 DTSCSL5 01107 PERFORM S1002-SCREEN-DATA-EDITS THRU S1002-EXIT. DTSCSL5 01108 DTSCSL5 01109 P7200-EXIT. DTSCSL5 01110 EXIT. DTSCSL5 01111 /*****************************************************************DTSCSL5 01112 * DELETE FUNCTION WAS REQUESTED *DTSCSL5 01113 ******************************************************************DTSCSL5 01114 DTSCSL5 01115 P7300-EDIT-DEL. DTSCSL5 01116 DTSCSL5 01117 *----------------------------------------------------- DTSCSL5 01118 * DELETE REQUIRES THAT A RECORD WAS SUCCESSFULLY DTSCSL5 01119 * INQUIRED DTSCSL5 01120 *----------------------------------------------------- DTSCSL5 01121 DTSCSL5 01122 IF NOT LCCM-SCR-INQUIRE DTSCSL5 01123 MOVE EMSG-DEL-PRECEDED TO LCCM-MSG-AREA DTSCSL5 01124 GO TO P7300-EXIT. DTSCSL5 01125 DTSCSL5 01126 DTSCSL5 01127 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5 01128 DTSCSL5 01129 IF LCCM-MSG DTSCSL5 01130 GO TO P7300-EXIT. DTSCSL5 01131 DTSCSL5 01132 IF LCCM-ELF-ID NOT = WRK-ELF-ID DTSCSL5 01133 MOVE EMSG-NO-FIELD-CHANGE-UPDATE TO WRK-MSG-AREA DTSCSL5 01134 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01135 GO TO P7300-EXIT. DTSCSL5 01136 DTSCSL5 01137 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 01138 DTSCSL5 01139 IF LCCM-MSG DTSCSL5 01140 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01141 GO TO P7300-EXIT. DTSCSL5 01142 DTSCSL5 01143 MOVE ESKL-REC TO EPRF-REC. DTSCSL5 01144 DTSCSL5 01145 P7300-EXIT. DTSCSL5 01146 EXIT. DTSCSL5 01147 /*****************************************************************DTSCSL5 01148 * THE UPDATE/ADD/DELETE FUNCTION WAS CONFIRMED OR CANCELED *DTSCSL5 01149 ******************************************************************DTSCSL5 01150 DTSCSL5 01151 P8000-REQUEST-UPDATE. DTSCSL5 01152 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5 01153 DTSCSL5 01154 IF LCCM-SCR-ADD-LOCKED DTSCSL5 01155 PERFORM P8100-ADD THRU P8100-EXIT DTSCSL5 01156 ELSE DTSCSL5 01157 IF LCCM-SCR-MOD-LOCKED DTSCSL5 01158 PERFORM P8200-MOD THRU P8200-EXIT DTSCSL5 01159 ELSE DTSCSL5 01160 IF LCCM-SCR-DEL-LOCKED DTSCSL5 01161 PERFORM P8300-DEL THRU P8300-EXIT DTSCSL5 01162 ELSE DTSCSL5 01163 GO TO S899-ABEND. DTSCSL5 01164 DTSCSL5 01165 SET RESP-SEND-MAP TO TRUE. DTSCSL5 01166 P8000-EXIT. DTSCSL5 01167 EXIT. DTSCSL5 01168 /*****************************************************************DTSCSL5 01169 * *DTSCSL5 01170 ******************************************************************DTSCSL5 01171 DTSCSL5 01172 P8100-ADD. DTSCSL5 01173 DTSCSL5 01174 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5 01175 DTSCSL5 01176 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5 01177 DTSCSL5 01178 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5 01179 DTSCSL5 01180 IF LCCM-F12-88 DTSCSL5 01181 MOVE PMSG-ADD-CANCELED TO LCCM-MSG-AREA DTSCSL5 01182 GO TO P8100-EXIT. DTSCSL5 01183 DTSCSL5 01184 IF NOT MAP-DATA-TYPE-VALID-88 DTSCSL5 01185 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 01186 GO TO P8100-EXIT. DTSCSL5 01187 DTSCSL5 01188 IF L018-NO-ENTRY DTSCSL5 01189 MOVE SPACES TO WRK-MSG-AREA DTSCSL5 01190 PERFORM P8920-GEN-ELF-ID THRU P8920-EXIT. DTSCSL5 01191 DTSCSL5 01192 PERFORM P8911-EPRF-INITIALIZE THRU P8911-EXIT. DTSCSL5 01193 DTSCSL5 01194 MOVE EPRF-REC TO ESKL-REC. DTSCSL5 01195 DTSCSL5 01196 PERFORM S835-WRITE THRU S835-EXIT. DTSCSL5 01197 DTSCSL5 01198 PERFORM P8800-LOCK-EMPLOYER THRU P8800-EXIT. DTSCSL5 01199 DTSCSL5 01200 MOVE 'A' TO L222-UPDATE-FUNCTION. DTSCSL5 01201 DTSCSL5 01202 IF LCCM-MSG DTSCSL5 01203 GO TO P8100-EXIT. DTSCSL5 01204 DTSCSL5 01205 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 01206 DTSCSL5 01207 IF LCCM-MSG DTSCSL5 01208 GO TO S899-ABEND. DTSCSL5 01209 DTSCSL5 01210 PERFORM P8912-UPDATE THRU P8912-EXIT. DTSCSL5 01211 DTSCSL5 01212 MOVE EPRF-REC TO ESKL-REC. DTSCSL5 01213 PERFORM S835-REWRITE THRU S835-EXIT. DTSCSL5 01214 DTSCSL5 01215 PERFORM S222-EMP-UNLOCK THRU S222-EXIT. DTSCSL5 01216 DTSCSL5 01217 IF LCCM-MSG DTSCSL5 01218 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01219 GO TO P8100-EXIT. DTSCSL5 01220 DTSCSL5 01221 MOVE PMSG-ADD-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5 01222 DTSCSL5 01223 MOVE L222-UPDATE-END-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5 01224 DTSCSL5 01225 MOVE LOW-VALUES TO MAP-CASS-IND DTSCSL5 01226 MAP-CASS-CD. DTSCSL5 01227 P8100-EXIT. DTSCSL5 01228 EXIT. DTSCSL5 01229 /*****************************************************************DTSCSL5 01230 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCSL5 01231 ******************************************************************DTSCSL5 01232 DTSCSL5 01233 P8200-MOD. DTSCSL5 01234 SET LCCM-SCR-INQUIRE TO TRUE. DTSCSL5 01235 DTSCSL5 01236 MOVE LCCM-SCRL5-HOLD-AREA TO WRK-SCRL5-HOLD-AREA. DTSCSL5 01237 DTSCSL5 01238 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5 01239 DTSCSL5 01240 IF LCCM-F12-88 DTSCSL5 01241 MOVE PMSG-MOD-CANCELED TO LCCM-MSG-AREA DTSCSL5 01242 GO TO P8200-EXIT. DTSCSL5 01243 DTSCSL5 01244 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5 01245 DTSCSL5 01246 IF WRK-SCRL5-F11-88 DTSCSL5 01247 PERFORM P8913-RESET THRU P8913-EXIT DTSCSL5 01248 GO TO P8200-EXIT. DTSCSL5 01249 DTSCSL5 01250 MOVE 'M' TO L222-UPDATE-FUNCTION. DTSCSL5 01251 PERFORM P8800-LOCK-EMPLOYER THRU P8800-EXIT. DTSCSL5 01252 DTSCSL5 01253 IF LCCM-MSG DTSCSL5 01254 GO TO P8200-EXIT. DTSCSL5 01255 DTSCSL5 01256 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 01257 DTSCSL5 01258 IF LCCM-MSG DTSCSL5 01259 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01260 GO TO P8200-EXIT. DTSCSL5 01261 DTSCSL5 01262 PERFORM P8912-UPDATE THRU P8912-EXIT. DTSCSL5 01263 DTSCSL5 01264 MOVE EPRF-REC TO ESKL-REC. DTSCSL5 01265 DTSCSL5 01266 PERFORM S835-REWRITE THRU S835-EXIT. DTSCSL5 01267 DTSCSL5 01268 PERFORM S222-EMP-UNLOCK THRU S222-EXIT. DTSCSL5 01269 DTSCSL5 01270 IF LCCM-MSG DTSCSL5 01271 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01272 GO TO P8200-EXIT. DTSCSL5 01273 DTSCSL5 01274 MOVE PMSG-MOD-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5 01275 DTSCSL5 01276 MOVE L222-UPDATE-END-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5 01277 * MOVE L222-SCR-ABSTIME TO LCCM-SCR-ABSTIME. DTSCSL5 01278 DTSCSL5 01279 MOVE LOW-VALUES TO MAP-CASS-IND DTSCSL5 01280 MAP-CASS-CD. DTSCSL5 01281 P8200-EXIT. DTSCSL5 01282 EXIT. DTSCSL5 01283 /*****************************************************************DTSCSL5 01284 * IF ENTER OR CANCEL, MODULE IS SET TO INQUIRY REGARDLESS *DTSCSL5 01285 ******************************************************************DTSCSL5 01286 DTSCSL5 01287 P8300-DEL. DTSCSL5 01288 SET LCCM-SCR-INQUIRE TO TRUE. DTSCSL5 01289 DTSCSL5 01290 PERFORM S5200-SET-UPDATE-ATTRB THRU S5200-EXIT. DTSCSL5 01291 DTSCSL5 01292 IF LCCM-F12-88 DTSCSL5 01293 MOVE PMSG-DEL-CANCELED TO LCCM-MSG-AREA DTSCSL5 01294 GO TO P8300-EXIT. DTSCSL5 01295 DTSCSL5 01296 PERFORM S1001-SCREEN-KEY-EDITS THRU S1001-EXIT. DTSCSL5 01297 DTSCSL5 01298 MOVE 'D' TO L222-UPDATE-FUNCTION. DTSCSL5 01299 DTSCSL5 01300 IF LCCM-MSG DTSCSL5 01301 GO TO P8300-EXIT. DTSCSL5 01302 DTSCSL5 01303 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 01304 DTSCSL5 01305 IF L835-OK-88 DTSCSL5 01306 NEXT SENTENCE DTSCSL5 01307 ELSE DTSCSL5 01308 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCSL5 01309 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01310 GO TO P8300-EXIT. DTSCSL5 01311 DTSCSL5 01312 DTSCSL5 01313 PERFORM S835-DELETE THRU S835-EXIT. DTSCSL5 01314 DTSCSL5 01315 IF L835-OK-88 DTSCSL5 01316 NEXT SENTENCE DTSCSL5 01317 ELSE DTSCSL5 01318 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCSL5 01319 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01320 GO TO P8300-EXIT. DTSCSL5 01321 DTSCSL5 01322 IF LCCM-MSG DTSCSL5 01323 GO TO P8300-EXIT. DTSCSL5 01324 DTSCSL5 01325 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5 01326 DTSCSL5 01327 SET LCCM-SCR-CLEAR TO TRUE. DTSCSL5 01328 DTSCSL5 01329 PERFORM S5300-SET-INQ-ATTRB THRU S5300-EXIT. DTSCSL5 01330 DTSCSL5 01331 MOVE PMSG-DEL-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5 01332 DTSCSL5 01333 P8300-EXIT. DTSCSL5 01334 EXIT. DTSCSL5 01335 /*****************************************************************DTSCSL5 01336 * *DTSCSL5 01337 ******************************************************************DTSCSL5 01338 DTSCSL5 01339 P8800-LOCK-EMPLOYER. DTSCSL5 01340 MOVE WRK-ELF-ID TO L222-ELF-ID. DTSCSL5 01341 DTSCSL5 01342 MOVE WRK-DATA-TYPE-CD TO L222-DATA-TYPE-CD. DTSCSL5 01343 DTSCSL5 01344 MOVE LCCM-SCR-ABSTIME TO L222-SCR-ABSTIME. DTSCSL5 01345 DTSCSL5 01346 MOVE LCCM-TASK-ID TO L222-UPDATE-TASK-ID. DTSCSL5 01347 DTSCSL5 01348 MOVE LCCM-OP-ID TO L222-UPDATE-OP-ID. DTSCSL5 01349 DTSCSL5 01350 MOVE LCCM-CICS-TERM-ID TO L222-UPDATE-TERMID. DTSCSL5 01351 DTSCSL5 01352 MOVE LCCM-TASK-NETNAME TO L222-UPDATE-NETNAME. DTSCSL5 01353 DTSCSL5 01354 MOVE LCCM-TASK-START-DATE TO L222-UPDATE-START-DATE. DTSCSL5 01355 DTSCSL5 01356 MOVE LCCM-TASK-START-TIME TO L222-UPDATE-START-TIME. DTSCSL5 01357 DTSCSL5 01358 MOVE WRK-SCR-ID TO L222-UPDATE-SCR-ID. DTSCSL5 01359 DTSCSL5 01360 DTSCSL5 01361 PERFORM S222-EMP-LOCK THRU S222-EXIT. DTSCSL5 01362 P8800-EXIT. DTSCSL5 01363 EXIT. DTSCSL5 01364 EJECT DTSCSL5 01365 P8911-EPRF-INITIALIZE. DTSCSL5 01366 MOVE LOW-VALUES TO EPRF-REC. DTSCSL5 01367 DTSCSL5 01368 MOVE ZERO TO EPRF-UPDATE-END-ABSTIME DTSCSL5 01369 EPRF-UPDATE-TASK-ID DTSCSL5 01370 EPRF-UPDATE-START-DATE DTSCSL5 01371 EPRF-UPDATE-START-TIME DTSCSL5 01372 EPRF-ESTB-DATE DTSCSL5 01373 EPRF-CHNG-DATE. DTSCSL5 01374 DTSCSL5 01375 MOVE SPACES TO EPRF-ELF-NAME DTSCSL5 01376 EPRF-FORMAT-CD DTSCSL5 01377 EPRF-MEDIUM-TYPE-CD DTSCSL5 01378 EPRF-JOB-NAME DTSCSL5 01379 EPRF-FORMAT-NOTES DTSCSL5 01380 EPRF-BUSINESS-CONTACT-NAME DTSCSL5 01381 EPRF-BUSINESS-CONTACT-FAX DTSCSL5 01382 EPRF-BUSINESS-CONTACT-PHONE DTSCSL5 01383 EPRF-BUSINESS-CONTACT-EMAIL DTSCSL5 01384 EPRF-TECH-CONTACT-NAME DTSCSL5 01385 EPRF-TECH-CONTACT-EMAIL DTSCSL5 01386 EPRF-TECH-CONTACT-PHONE DTSCSL5 01387 EPRF-TECH-CONTACT-FAX DTSCSL5 01388 EPRF-ADDRESS DTSCSL5 01389 EPRF-UPDATE-OP-ID DTSCSL5 01390 EPRF-UPDATE-TERMID DTSCSL5 01391 EPRF-UPDATE-NETNAME DTSCSL5 01392 EPRF-UPDATE-SCR-ID DTSCSL5 01393 EPRF-UPDATE-FUNCTION DTSCSL5 01394 EPRF-CHNG-OPID. DTSCSL5 01395 DTSCSL5 01396 SET EPRF-NOT-CONVERTED-88 TO TRUE. DTSCSL5 01397 DTSCSL5 01398 MOVE LCCM-CURR-RUN-DATE TO EPRF-ESTB-DATE DTSCSL5 01399 EPRF-CHNG-DATE. DTSCSL5 01400 DTSCSL5 01401 SET EPRF-PRF-88 TO TRUE. DTSCSL5 01402 DTSCSL5 01403 MOVE WRK-ELF-ID TO EPRF-ELF-ID. DTSCSL5 01404 MOVE WRK-DATA-TYPE-CD TO EPRF-DATA-TYPE-CD. DTSCSL5 01405 DTSCSL5 01406 P8911-EXIT. DTSCSL5 01407 EXIT. DTSCSL5 01408 DTSCSL5 01409 DTSCSL5 01410 P8912-UPDATE. DTSCSL5 01411 SET WRK-DATA-CHNG-NO-88 TO TRUE. DTSCSL5 01412 DTSCSL5 01413 DTSCSL5 01414 IF MAP-ELF-NAME NOT = EPRF-ELF-NAME DTSCSL5 01415 MOVE MAP-ELF-NAME TO EPRF-ELF-NAME DTSCSL5 01416 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01417 DTSCSL5 01418 IF MAP-MEDIUM-TYPE-CD NOT = EPRF-MEDIUM-TYPE-CD DTSCSL5 01419 MOVE MAP-MEDIUM-TYPE-CD TO EPRF-MEDIUM-TYPE-CD DTSCSL5 01420 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01421 DTSCSL5 01422 IF MAP-FORMAT-TYPE-CD NOT = EPRF-FORMAT-CD DTSCSL5 01423 MOVE MAP-FORMAT-TYPE-CD TO EPRF-FORMAT-CD DTSCSL5 01424 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01425 DTSCSL5 01426 IF MAP-JOB-NAME NOT = EPRF-JOB-NAME DTSCSL5 01427 MOVE MAP-JOB-NAME TO EPRF-JOB-NAME DTSCSL5 01428 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01429 DTSCSL5 01430 IF MAP-FORMAT-NOTES NOT = EPRF-FORMAT-NOTES DTSCSL5 01431 MOVE MAP-FORMAT-NOTES TO EPRF-FORMAT-NOTES DTSCSL5 01432 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01433 DTSCSL5 01434 IF MAP-BUSN-CONTACT-NAME NOT = DTSCSL5 01435 EPRF-BUSINESS-CONTACT-NAME DTSCSL5 01436 MOVE MAP-BUSN-CONTACT-NAME TO DTSCSL5 01437 EPRF-BUSINESS-CONTACT-NAME DTSCSL5 01438 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01439 DTSCSL5 01440 IF MAP-BUSN-CONTACT-EMAIL NOT = DTSCSL5 01441 EPRF-BUSINESS-CONTACT-EMAIL DTSCSL5 01442 MOVE MAP-BUSN-CONTACT-EMAIL TO DTSCSL5 01443 EPRF-BUSINESS-CONTACT-EMAIL DTSCSL5 01444 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01445 DTSCSL5 01446 IF MAP-TECH-CONTACT-NAME NOT = EPRF-TECH-CONTACT-NAME DTSCSL5 01447 MOVE MAP-TECH-CONTACT-NAME TO EPRF-TECH-CONTACT-NAME DTSCSL5 01448 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01449 DTSCSL5 01450 IF MAP-TECH-CONTACT-EMAIL NOT = EPRF-TECH-CONTACT-EMAIL DTSCSL5 01451 MOVE MAP-TECH-CONTACT-EMAIL TO EPRF-TECH-CONTACT-EMAIL DTSCSL5 01452 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01453 DTSCSL5 01454 DTSCSL5 01455 PERFORM P8912A-UPDATE-PHONES THRU P8912A-EXIT. DTSCSL5 01456 DTSCSL5 01457 MOVE LCCM-HOLD-ADDRESS TO L072-ADDRESS. DTSCSL5 01458 DTSCSL5 01459 DTSCSL5 01460 IF L072-ATTN-LINE NOT = EPRF-ATTN-LINE DTSCSL5 01461 MOVE L072-ATTN-LINE TO EPRF-ATTN-LINE DTSCSL5 01462 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01463 DTSCSL5 01464 DTSCSL5 01465 IF L072-DELIV-LINE-1 NOT = EPRF-DELIV-LINE-1 DTSCSL5 01466 MOVE L072-DELIV-LINE-1 TO EPRF-DELIV-LINE-1 DTSCSL5 01467 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01468 DTSCSL5 01469 DTSCSL5 01470 IF L072-DELIV-LINE-2 NOT = EPRF-DELIV-LINE-2 DTSCSL5 01471 MOVE L072-DELIV-LINE-2 TO EPRF-DELIV-LINE-2 DTSCSL5 01472 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01473 DTSCSL5 01474 DTSCSL5 01475 IF L072-CITY NOT = EPRF-CITY DTSCSL5 01476 MOVE L072-CITY TO EPRF-CITY DTSCSL5 01477 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01478 DTSCSL5 01479 DTSCSL5 01480 IF L072-ST NOT = EPRF-ST DTSCSL5 01481 MOVE L072-ST TO EPRF-ST DTSCSL5 01482 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01483 DTSCSL5 01484 DTSCSL5 01485 IF L072-ZIP NOT = EPRF-ZIP DTSCSL5 01486 MOVE L072-ZIP TO EPRF-ZIP DTSCSL5 01487 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01488 DTSCSL5 01489 DTSCSL5 01490 IF L072-ADVANCED-BARCODE NOT = EPRF-ADVANCED-BARCODE DTSCSL5 01491 MOVE L072-ADVANCED-BARCODE TO EPRF-ADVANCED-BARCODE DTSCSL5 01492 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01493 DTSCSL5 01494 DTSCSL5 01495 IF WRK-DATA-CHNG-YES-88 DTSCSL5 01496 MOVE LCCM-CURR-RUN-DATE TO EPRF-CHNG-DATE DTSCSL5 01497 MOVE LCCM-OP-ID TO EPRF-CHNG-OPID. DTSCSL5 01498 DTSCSL5 01499 PERFORM P6920-DISP-CODES THRU P6920-EXIT. DTSCSL5 01500 P8912-EXIT. DTSCSL5 01501 EXIT. DTSCSL5 01502 DTSCSL5 01503 DTSCSL5 01504 P8912A-UPDATE-PHONES. DTSCSL5 01505 DTSCSL5 01506 MOVE EPRF-BUSINESS-CONTACT-PHONE TO WRK-EPRF-PHONE. DTSCSL5 01507 DTSCSL5 01508 MOVE MAP-BUSN-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5 01509 DTSCSL5 01510 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 01511 DTSCSL5 01512 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5 01513 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5 01514 MOVE WRK-EPRF-PHONE TO EPRF-BUSINESS-CONTACT-PHONE DTSCSL5 01515 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01516 DTSCSL5 01517 MOVE EPRF-BUSINESS-CONTACT-FAX TO WRK-EPRF-PHONE. DTSCSL5 01518 DTSCSL5 01519 MOVE MAP-BUSN-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5 01520 DTSCSL5 01521 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 01522 DTSCSL5 01523 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5 01524 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5 01525 MOVE WRK-EPRF-PHONE TO EPRF-BUSINESS-CONTACT-FAX DTSCSL5 01526 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01527 DTSCSL5 01528 DTSCSL5 01529 MOVE EPRF-TECH-CONTACT-PHONE TO WRK-EPRF-PHONE. DTSCSL5 01530 DTSCSL5 01531 MOVE MAP-TECH-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5 01532 DTSCSL5 01533 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 01534 DTSCSL5 01535 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5 01536 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5 01537 MOVE WRK-EPRF-PHONE TO EPRF-TECH-CONTACT-PHONE DTSCSL5 01538 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01539 DTSCSL5 01540 DTSCSL5 01541 MOVE EPRF-TECH-CONTACT-FAX TO WRK-EPRF-PHONE. DTSCSL5 01542 DTSCSL5 01543 MOVE MAP-TECH-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5 01544 DTSCSL5 01545 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 01546 DTSCSL5 01547 IF L021-TNO NOT = WRK-EPRF-PHONE DTSCSL5 01548 MOVE L021-TNO TO WRK-EPRF-PHONE DTSCSL5 01549 MOVE WRK-EPRF-PHONE TO EPRF-TECH-CONTACT-FAX DTSCSL5 01550 SET WRK-DATA-CHNG-YES-88 TO TRUE. DTSCSL5 01551 DTSCSL5 01552 P8912A-EXIT. DTSCSL5 01553 EXIT. DTSCSL5 01554 DTSCSL5 01555 P8913-RESET. DTSCSL5 01556 PERFORM S1015-READ-EPRF THRU S1015-EXIT. DTSCSL5 01557 DTSCSL5 01558 IF LCCM-MSG DTSCSL5 01559 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01560 GO TO P8913-EXIT. DTSCSL5 01561 DTSCSL5 01562 SET EPRF-UPDATED-NEVER-88 TO TRUE. DTSCSL5 01563 DTSCSL5 01564 MOVE LCCM-TASK-ID TO EPRF-UPDATE-TASK-ID. DTSCSL5 01565 DTSCSL5 01566 MOVE LCCM-OP-ID TO EPRF-UPDATE-OP-ID. DTSCSL5 01567 DTSCSL5 01568 MOVE LCCM-CICS-TERM-ID TO EPRF-UPDATE-TERMID. DTSCSL5 01569 DTSCSL5 01570 MOVE LCCM-TASK-NETNAME TO EPRF-UPDATE-NETNAME. DTSCSL5 01571 DTSCSL5 01572 MOVE LCCM-TASK-START-DATE TO EPRF-UPDATE-START-DATE. DTSCSL5 01573 DTSCSL5 01574 MOVE LCCM-TASK-START-TIME TO EPRF-UPDATE-START-TIME. DTSCSL5 01575 DTSCSL5 01576 MOVE WRK-SCR-ID TO EPRF-UPDATE-SCR-ID. DTSCSL5 01577 DTSCSL5 01578 MOVE SPACE TO LCCM-SCRL5-HOLD-AREA. DTSCSL5 01579 DTSCSL5 01580 MOVE EPRF-REC TO ESKL-REC. DTSCSL5 01581 DTSCSL5 01582 PERFORM S835-REWRITE THRU S835-EXIT. DTSCSL5 01583 IF LCCM-MSG DTSCSL5 01584 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01585 GO TO P8913-EXIT. DTSCSL5 01586 DTSCSL5 01587 MOVE PMSG-MOD-SUCCESSFUL TO LCCM-MSG-AREA. DTSCSL5 01588 DTSCSL5 01589 P8913-EXIT. DTSCSL5 01590 EXIT. DTSCSL5 01591 DTSCSL5 01592 P8920-GEN-ELF-ID. DTSCSL5 01593 DTSCSL5 01594 MOVE LOW-VALUES TO EHDR-KEY-AREA. DTSCSL5 01595 SET EHDR-ELF-ID-HDR-88 TO TRUE. DTSCSL5 01596 SET EHDR-ELF-DATA-TYPE-HDR-88 TO TRUE. DTSCSL5 01597 SET EHDR-HDR-88 TO TRUE. DTSCSL5 01598 MOVE EHDR-KEY-AREA TO ESKL-KEY-AREA. DTSCSL5 01599 DTSCSL5 01600 PERFORM S835-READ-UPDATE THRU S835-EXIT. DTSCSL5 01601 IF L835-NO-REC-88 DTSCSL5 01602 GO TO S899-ABEND. DTSCSL5 01603 DTSCSL5 01604 MOVE ESKL-REC TO EHDR-REC. DTSCSL5 01605 DTSCSL5 01606 MOVE EHDR-LAST-USED-ELF-ID TO WRK-EHDR-ELF-ID. DTSCSL5 01607 ADD +1 TO WRK-EHDR-ELF-ID. DTSCSL5 01608 DTSCSL5 01609 MOVE WRK-EHDR-ELF-ID TO WRK-ELF-ID DTSCSL5 01610 EHDR-LAST-USED-ELF-ID. DTSCSL5 01611 MOVE EHDR-REC TO ESKL-REC. DTSCSL5 01612 PERFORM S835-REWRITE-UPDATE THRU S835-EXIT. DTSCSL5 01613 MOVE WRK-ELF-ID-1 TO MAP-ELF-ID-1. DTSCSL5 01614 MOVE WRK-ELF-ID-2 TO MAP-ELF-ID-2. DTSCSL5 01615 P8920-EXIT. DTSCSL5 01616 EXIT. DTSCSL5 01617 DTSCSL5 01618 /*****************************************************************DTSCSL5 01619 * LINKS TO UTILITY MODULES DTSCSL5 01620 ******************************************************************DTSCSL5 01621 DTSCSL5 01622 S001-DATE. DTSCSL5 01623 EXEC CICS LINK DTSCSL5 01624 PROGRAM ('DTSCU001') DTSCSL5 01625 COMMAREA (L001-COMM-AREA) DTSCSL5 01626 END-EXEC. DTSCSL5 01627 S001-EXIT. DTSCSL5 01628 EXIT. DTSCSL5 01629 DTSCSL5 01630 DTSCSL5 01631 DTSCSL5 01632 S004-FIND-QUARTER. DTSCSL5 01633 EXEC CICS LINK DTSCSL5 01634 PROGRAM ('DTSCU004') DTSCSL5 01635 COMMAREA (L004-COMM-AREA) DTSCSL5 01636 END-EXEC. DTSCSL5 01637 S004-EXIT. DTSCSL5 01638 EXIT. DTSCSL5 01639 DTSCSL5 01640 DTSCSL5 01641 DTSCSL5 01642 S018-EMP-NO-FROM-SCREEN. DTSCSL5 01643 EXEC CICS LINK DTSCSL5 01644 PROGRAM ('DTSCU018') DTSCSL5 01645 COMMAREA (L018-COMM-AREA) DTSCSL5 01646 END-EXEC. DTSCSL5 01647 S018-EXIT. DTSCSL5 01648 EXIT. DTSCSL5 01649 DTSCSL5 01650 DTSCSL5 01651 DTSCSL5 01652 S021-TELNO-FROM-SCREEN. DTSCSL5 01653 EXEC CICS LINK DTSCSL5 01654 PROGRAM ('DTSCU021') DTSCSL5 01655 COMMAREA (L021-COMM-AREA) DTSCSL5 01656 END-EXEC. DTSCSL5 01657 S021-EXIT. DTSCSL5 01658 EXIT. DTSCSL5 01659 DTSCSL5 01660 DTSCSL5 01661 S041-DISP-CODES. DTSCSL5 01662 EXEC CICS LINK DTSCSL5 01663 PROGRAM ('DTSCU041') DTSCSL5 01664 COMMAREA (L041-COMM-AREA) DTSCSL5 01665 END-EXEC. DTSCSL5 01666 S041-EXIT. DTSCSL5 01667 EXIT. DTSCSL5 01668 DTSCSL5 01669 DTSCSL5 01670 DTSCSL5 01671 DTSCSL5 01672 S072-ADDRESS-EDIT. DTSCSL5 01673 EXEC CICS LINK DTSCSL5 01674 PROGRAM ('DTSCU072') DTSCSL5 01675 COMMAREA (L072-COMM-AREA) DTSCSL5 01676 END-EXEC. DTSCSL5 01677 S072-EXIT. DTSCSL5 01678 EXIT. DTSCSL5 01679 DTSCSL5 01680 DTSCSL5 01681 DTSCSL5 01682 S073-TELNO-EDIT. DTSCSL5 01683 EXEC CICS LINK DTSCSL5 01684 PROGRAM ('DTSCU073') DTSCSL5 01685 COMMAREA (L073-COMM-AREA) DTSCSL5 01686 END-EXEC. DTSCSL5 01687 S073-EXIT. DTSCSL5 01688 EXIT. DTSCSL5 01689 DTSCSL5 01690 DTSCSL5 01691 DTSCSL5 01692 S222-EMP-LOCK. DTSCSL5 01693 SET L222-START-UPDATE TO TRUE. DTSCSL5 01694 GO TO S222-EMP-LOCK-UNLOCK. DTSCSL5 01695 DTSCSL5 01696 S222-EMP-UNLOCK. DTSCSL5 01697 SET L222-END-UPDATE TO TRUE. DTSCSL5 01698 GO TO S222-EMP-LOCK-UNLOCK. DTSCSL5 01699 DTSCSL5 01700 S222-EMP-LOCK-UNLOCK. DTSCSL5 01701 EXEC CICS LINK DTSCSL5 01702 PROGRAM ('DTSCU222') DTSCSL5 01703 COMMAREA (L222-COMM-AREA) DTSCSL5 01704 END-EXEC. DTSCSL5 01705 DTSCSL5 01706 IF L222-FILE-CLOSED DTSCSL5 01707 MOVE L222-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 01708 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCSL5 01709 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5 01710 GO TO MAINLINE-EXIT. DTSCSL5 01711 DTSCSL5 01712 IF L222-NOT-OK DTSCSL5 01713 MOVE L222-MSG-AREA TO LCCM-MSG-AREA. DTSCSL5 01714 S222-EXIT. DTSCSL5 01715 EXIT. DTSCSL5 01716 SKIP3 DTSCSL5 01717 DTSCSL5 01718 S803-REQ-SCR-ID-EDIT. DTSCSL5 01719 EXEC CICS LINK DTSCSL5 01720 PROGRAM ('DTSCU803') DTSCSL5 01721 COMMAREA (DFHCOMMAREA) DTSCSL5 01722 END-EXEC. DTSCSL5 01723 S803-EXIT. DTSCSL5 01724 EXIT. DTSCSL5 01725 DTSCSL5 01726 S804-INVALID-KEY. DTSCSL5 01727 EXEC CICS LINK DTSCSL5 01728 PROGRAM ('DTSCU804') DTSCSL5 01729 COMMAREA (DFHCOMMAREA) DTSCSL5 01730 END-EXEC. DTSCSL5 01731 S804-EXIT. DTSCSL5 01732 EXIT. DTSCSL5 01733 DTSCSL5 01734 DTSCSL5 01735 DTSCSL5 01736 S805-MSG-AREA. DTSCSL5 01737 MOVE LCCM-MSG-AREA TO L805-MSG-AREA DTSCSL5 01738 DTSCSL5 01739 EXEC CICS LINK DTSCSL5 01740 PROGRAM ('DTSCU805') DTSCSL5 01741 COMMAREA (L805-COMM-AREA) DTSCSL5 01742 END-EXEC. DTSCSL5 01743 DTSCSL5 01744 MOVE L805-S-MSG-AREA TO MAP-MSG-AREA. DTSCSL5 01745 S805-EXIT. DTSCSL5 01746 EXIT. DTSCSL5 01747 DTSCSL5 01748 DTSCSL5 01749 DTSCSL5 01750 S810-START-BROWSE. DTSCSL5 01751 SET L810-START-BROWSE-88 TO TRUE. DTSCSL5 01752 GO TO S810-IO. DTSCSL5 01753 DTSCSL5 01754 S810-READ. DTSCSL5 01755 SET L810-READ-88 TO TRUE. DTSCSL5 01756 GO TO S810-IO. DTSCSL5 01757 DTSCSL5 01758 S810-READ-NEXT. DTSCSL5 01759 SET L810-READ-NEXT-88 TO TRUE. DTSCSL5 01760 GO TO S810-IO. DTSCSL5 01761 DTSCSL5 01762 S810-END-BROWSE. DTSCSL5 01763 SET L810-END-BROWSE-88 TO TRUE. DTSCSL5 01764 GO TO S810-IO. DTSCSL5 01765 DTSCSL5 01766 S810-REWRITE. DTSCSL5 01767 SET L810-REWRITE-88 TO TRUE. DTSCSL5 01768 GO TO S810-IO. DTSCSL5 01769 DTSCSL5 01770 S810-WRITE. DTSCSL5 01771 SET L810-WRITE-88 TO TRUE. DTSCSL5 01772 GO TO S810-IO. DTSCSL5 01773 DTSCSL5 01774 S810-DELETE. DTSCSL5 01775 SET L810-DELETE-88 TO TRUE. DTSCSL5 01776 GO TO S810-IO. DTSCSL5 01777 DTSCSL5 01778 S810-IO. DTSCSL5 01779 DTSCSL5 01780 EXEC CICS LINK DTSCSL5 01781 PROGRAM ('DTSCU810') DTSCSL5 01782 COMMAREA (L810-COMM-AREA) DTSCSL5 01783 END-EXEC. DTSCSL5 01784 DTSCSL5 01785 IF L810-FILE-CLOSED-88 DTSCSL5 01786 MOVE L810-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 01787 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCSL5 01788 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5 01789 GO TO MAINLINE-EXIT. DTSCSL5 01790 S810-EXIT. DTSCSL5 01791 EXIT. DTSCSL5 01792 DTSCSL5 01793 S835-READ. DTSCSL5 01794 SET L835-READ-88 TO TRUE. DTSCSL5 01795 GO TO S835-IO. DTSCSL5 01796 DTSCSL5 01797 S835-READ-UPDATE. DTSCSL5 01798 SET L835-READ-UPDATE-88 TO TRUE. DTSCSL5 01799 GO TO S835-IO. DTSCSL5 01800 DTSCSL5 01801 S835-START-BROWSE. DTSCSL5 01802 SET L835-START-BROWSE-88 TO TRUE. DTSCSL5 01803 GO TO S835-IO. DTSCSL5 01804 DTSCSL5 01805 S835-READ-NEXT. DTSCSL5 01806 SET L835-READ-NEXT-88 TO TRUE. DTSCSL5 01807 GO TO S835-IO. DTSCSL5 01808 DTSCSL5 01809 S835-READ-PREV. DTSCSL5 01810 SET L835-READ-PREV-88 TO TRUE. DTSCSL5 01811 GO TO S835-IO. DTSCSL5 01812 DTSCSL5 01813 S835-END-BROWSE. DTSCSL5 01814 SET L835-END-BROWSE-88 TO TRUE. DTSCSL5 01815 GO TO S835-IO. DTSCSL5 01816 DTSCSL5 01817 S835-COUNT. DTSCSL5 01818 SET L835-COUNT-88 TO TRUE. DTSCSL5 01819 GO TO S835-IO. DTSCSL5 01820 DTSCSL5 01821 S835-REWRITE. DTSCSL5 01822 SET L835-REWRITE-88 TO TRUE. DTSCSL5 01823 GO TO S835-IO. DTSCSL5 01824 DTSCSL5 01825 S835-REWRITE-UPDATE. DTSCSL5 01826 SET L835-REWRITE-UPDATE-88 TO TRUE. DTSCSL5 01827 GO TO S835-IO. DTSCSL5 01828 DTSCSL5 01829 S835-WRITE. DTSCSL5 01830 SET L835-WRITE-88 TO TRUE. DTSCSL5 01831 GO TO S835-IO. DTSCSL5 01832 DTSCSL5 01833 S835-DELETE. DTSCSL5 01834 SET L835-DELETE-88 TO TRUE. DTSCSL5 01835 GO TO S835-IO. DTSCSL5 01836 DTSCSL5 01837 S835-IO. DTSCSL5 01838 DTSCSL5 01839 EXEC CICS LINK DTSCSL5 01840 PROGRAM ('DTSCU835') DTSCSL5 01841 COMMAREA (L835-COMM-AREA) DTSCSL5 01842 END-EXEC. DTSCSL5 01843 DTSCSL5 01844 IF L835-FILE-CLOSED-88 DTSCSL5 01845 MOVE L835-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 01846 SET LCCM-REQ-SCR-SF-88 TO TRUE DTSCSL5 01847 SET LCCM-LINK-SCREEN-88 TO TRUE DTSCSL5 01848 GO TO MAINLINE-EXIT. DTSCSL5 01849 S835-EXIT. DTSCSL5 01850 EXIT. DTSCSL5 01851 EJECT DTSCSL5 01852 DTSCSL5 01853 S851-SCREEN-PROCESSING. DTSCSL5 01854 EXEC CICS LINK DTSCSL5 01855 PROGRAM ('DTSCU851') DTSCSL5 01856 COMMAREA (L851-COMM-AREA) DTSCSL5 01857 END-EXEC. DTSCSL5 01858 S851-EXIT. DTSCSL5 01859 EXIT. DTSCSL5 01860 DTSCSL5 01861 DTSCSL5 01862 DTSCSL5 01863 S899-ABEND. DTSCSL5 01864 EXEC CICS ABEND DTSCSL5 01865 ABCODE(WRK-ABEND-CD) DTSCSL5 01866 END-EXEC. DTSCSL5 01867 *S899-EXIT. DTSCSL5 01868 *****EXIT. DTSCSL5 01869 /*****************************************************************DTSCSL5 01870 * EDIT THE INFORMATION ON THE SCREEN. *DTSCSL5 01871 ******************************************************************DTSCSL5 01872 DTSCSL5 01873 S1001-SCREEN-KEY-EDITS. DTSCSL5 01874 PERFORM S1100-ELF-ID THRU S1100-EXIT. DTSCSL5 01875 PERFORM S1200-DATA-TYPE THRU S1200-EXIT. DTSCSL5 01876 S1001-EXIT. DTSCSL5 01877 EXIT. DTSCSL5 01878 DTSCSL5 01879 ******************************************************************DTSCSL5 01880 * SET UP READ OF EPRF RECORD USING WRK-ELF-ID AND DTSCSL5 01881 * WRK-DATA-TYPE-CD. DTSCSL5 01882 ******************************************************************DTSCSL5 01883 S1015-READ-EPRF. DTSCSL5 01884 MOVE LOW-VALUES TO EPRF-KEY-AREA. DTSCSL5 01885 MOVE WRK-ELF-ID TO EPRF-ELF-ID. DTSCSL5 01886 DTSCSL5 01887 IF WRK-DATA-TYPE-CD = SPACES OR LOW-VALUES DTSCSL5 01888 SET EPRF-WAGE-88 TO TRUE DTSCSL5 01889 MOVE EPRF-DATA-TYPE-CD TO WRK-DATA-TYPE-CD DTSCSL5 01890 ELSE DTSCSL5 01891 MOVE WRK-DATA-TYPE-CD TO EPRF-DATA-TYPE-CD. DTSCSL5 01892 DTSCSL5 01893 SET EPRF-PRF-88 TO TRUE. DTSCSL5 01894 MOVE EPRF-KEY-AREA TO ESKL-KEY-AREA. DTSCSL5 01895 PERFORM S835-READ THRU S835-EXIT. DTSCSL5 01896 DTSCSL5 01897 IF L835-NO-REC-88 DTSCSL5 01898 MOVE EMSG-NO-RECORD TO WRK-MSG-AREA DTSCSL5 01899 GO TO S1015-EXIT. DTSCSL5 01900 DTSCSL5 01901 MOVE ESKL-REC TO EPRF-REC. DTSCSL5 01902 DTSCSL5 01903 S1015-EXIT. DTSCSL5 01904 EXIT. DTSCSL5 01905 DTSCSL5 01906 S1020-READ-MTAD. DTSCSL5 01907 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSCSL5 01908 DTSCSL5 01909 MOVE WRK-ELF-ID TO MTAD-EMP-NO. DTSCSL5 01910 DTSCSL5 01911 SET MTAD-TAD-88 TO TRUE. DTSCSL5 01912 DTSCSL5 01913 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSCSL5 01914 DTSCSL5 01915 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSCSL5 01916 DTSCSL5 01917 PERFORM S810-READ THRU S810-EXIT. DTSCSL5 01918 DTSCSL5 01919 IF L810-OK-88 DTSCSL5 01920 MOVE MSKL-REC TO MTAD-REC DTSCSL5 01921 SET WRK-MTAD-YES-88 TO TRUE. DTSCSL5 01922 S1020-EXIT. DTSCSL5 01923 EXIT. DTSCSL5 01924 DTSCSL5 01925 DTSCSL5 01926 DTSCSL5 01927 S1002-SCREEN-DATA-EDITS. DTSCSL5 01928 DTSCSL5 01929 MOVE LOW-VALUES TO MAP-CASS-CD. DTSCSL5 01930 PERFORM S1300-ELF-NAME THRU S1300-EXIT. DTSCSL5 01931 PERFORM S1400-MEDIUM-TYPE THRU S1400-EXIT. DTSCSL5 01932 PERFORM S1500-FORMAT-TYPE THRU S1500-EXIT. DTSCSL5 01933 PERFORM S1600-JOB-NAME THRU S1600-EXIT. DTSCSL5 01934 PERFORM S1700-FORMAT-NOTES THRU S1700-EXIT. DTSCSL5 01935 PERFORM S1800-BUSINESS-NAME THRU S1800-EXIT. DTSCSL5 01936 PERFORM S1900-BUSINESS-EMAIL THRU S1900-EXIT. DTSCSL5 01937 PERFORM S2000-TECH-NAME THRU S2000-EXIT. DTSCSL5 01938 PERFORM S2100-TECH-EMAIL THRU S2100-EXIT. DTSCSL5 01939 PERFORM S2200-EPRF-ADDR THRU S2200-EXIT. DTSCSL5 01940 PERFORM S2300-EDIT-PHONES THRU S2300-EXIT. DTSCSL5 01941 S1002-EXIT. DTSCSL5 01942 EXIT. DTSCSL5 01943 /*****************************************************************DTSCSL5 01944 * ELF-ID IS THE ONLY KEY FIELD FOR EPRF *DTSCSL5 01945 ******************************************************************DTSCSL5 01946 DTSCSL5 01947 S1100-ELF-ID. DTSCSL5 01948 MOVE MAP-ELF-ID-AREA TO L018-S-EMP-NO-AREA. DTSCSL5 01949 DTSCSL5 01950 PERFORM S018-EMP-NO-FROM-SCREEN THRU S018-EXIT. DTSCSL5 01951 DTSCSL5 01952 IF L018-NO-ENTRY AND DTSCSL5 01953 (LCCM-SCR-ADD-LOCKED OR LCCM-F09-88) DTSCSL5 01954 GO TO S1100-EXIT. DTSCSL5 01955 DTSCSL5 01956 IF L018-NO-ENTRY DTSCSL5 01957 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5 01958 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01959 ELSE DTSCSL5 01960 IF L018-NOT-VALID DTSCSL5 01961 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 01962 PERFORM S1101-ERROR THRU S1101-EXIT DTSCSL5 01963 ELSE DTSCSL5 01964 MOVE L018-EMP-NO TO WRK-ELF-ID. DTSCSL5 01965 DTSCSL5 01966 S1100-EXIT. DTSCSL5 01967 EXIT. DTSCSL5 01968 DTSCSL5 01969 S1101-ERROR. DTSCSL5 01970 MOVE CATB-UNPROT-NORM-NUM-MDTON TO MAP-ELF-ID-1-A DTSCSL5 01971 MAP-ELF-ID-2-A. DTSCSL5 01972 DTSCSL5 01973 IF LCCM-NO-MSG DTSCSL5 01974 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 01975 MOVE CATB-CURSOR TO MAP-ELF-ID-1-L DTSCSL5 01976 SET CURSOR-SET-YES TO TRUE. DTSCSL5 01977 S1101-EXIT. DTSCSL5 01978 EXIT. DTSCSL5 01979 /*****************************************************************DTSCSL5 01980 * *DTSCSL5 01981 ******************************************************************DTSCSL5 01982 DTSCSL5 01983 S1200-DATA-TYPE. DTSCSL5 01984 IF MAP-DATA-TYPE-CD = SPACES OR LOW-VALUES DTSCSL5 01985 IF LCCM-ENTER-88 DTSCSL5 01986 SET EPRF-WAGE-88 TO TRUE DTSCSL5 01987 MOVE EPRF-DATA-TYPE-CD TO WRK-DATA-TYPE-CD DTSCSL5 01988 MAP-DATA-TYPE-CD DTSCSL5 01989 ELSE DTSCSL5 01990 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5 01991 PERFORM S1201-ERROR THRU S1201-EXIT DTSCSL5 01992 END-IF DTSCSL5 01993 ELSE DTSCSL5 01994 IF MAP-DATA-TYPE-VALID-88 DTSCSL5 01995 MOVE MAP-DATA-TYPE-CD TO WRK-DATA-TYPE-CD DTSCSL5 01996 ELSE DTSCSL5 01997 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 01998 PERFORM S1201-ERROR THRU S1201-EXIT DTSCSL5 01999 END-IF DTSCSL5 02000 END-IF. DTSCSL5 02001 DTSCSL5 02002 IF NOT ELF-ID-EXTERNAL-88 DTSCSL5 02003 IF MAP-DATA-TYPE-WAGE-88 DTSCSL5 02004 NEXT SENTENCE DTSCSL5 02005 ELSE DTSCSL5 02006 MOVE MSG-EL56-AREA TO WRK-MSG-AREA DTSCSL5 02007 PERFORM S1201-ERROR THRU S1201-EXIT. DTSCSL5 02008 DTSCSL5 02009 S1200-EXIT. DTSCSL5 02010 EXIT. DTSCSL5 02011 DTSCSL5 02012 DTSCSL5 02013 DTSCSL5 02014 S1201-ERROR. DTSCSL5 02015 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-DATA-TYPE-CD-A. DTSCSL5 02016 DTSCSL5 02017 IF LCCM-NO-MSG DTSCSL5 02018 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02019 MOVE CATB-CURSOR TO MAP-DATA-TYPE-CD-L DTSCSL5 02020 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02021 S1201-EXIT. DTSCSL5 02022 EXIT. DTSCSL5 02023 /*****************************************************************DTSCSL5 02024 * *DTSCSL5 02025 ******************************************************************DTSCSL5 02026 DTSCSL5 02027 S1300-ELF-NAME. DTSCSL5 02028 DTSCSL5 02029 IF MAP-ELF-NAME = SPACES OR LOW-VALUES DTSCSL5 02030 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5 02031 PERFORM S1301-ERROR THRU S1301-EXIT. DTSCSL5 02032 S1300-EXIT. DTSCSL5 02033 EXIT. DTSCSL5 02034 S1301-ERROR. DTSCSL5 02035 DTSCSL5 02036 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5 02037 DTSCSL5 02038 IF LCCM-NO-MSG DTSCSL5 02039 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02040 MOVE CATB-CURSOR TO MAP-ELF-NAME-L DTSCSL5 02041 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02042 S1301-EXIT. DTSCSL5 02043 EXIT. DTSCSL5 02044 /*****************************************************************DTSCSL5 02045 * *DTSCSL5 02046 ******************************************************************DTSCSL5 02047 DTSCSL5 02048 S1400-MEDIUM-TYPE. DTSCSL5 02049 IF MAP-MEDIUM-TYPE-CD = SPACES OR LOW-VALUES DTSCSL5 02050 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5 02051 PERFORM S1401-ERROR THRU S1401-EXIT DTSCSL5 02052 ELSE DTSCSL5 02053 IF MAP-MEDIUM-TYPE-VALID-88 DTSCSL5 02054 NEXT SENTENCE DTSCSL5 02055 ELSE DTSCSL5 02056 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02057 PERFORM S1401-ERROR THRU S1401-EXIT. DTSCSL5 02058 S1400-EXIT. DTSCSL5 02059 EXIT. DTSCSL5 02060 DTSCSL5 02061 DTSCSL5 02062 DTSCSL5 02063 S1401-ERROR. DTSCSL5 02064 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-MEDIUM-TYPE-CD-A. DTSCSL5 02065 DTSCSL5 02066 IF LCCM-NO-MSG DTSCSL5 02067 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02068 MOVE CATB-CURSOR TO MAP-MEDIUM-TYPE-CD-L DTSCSL5 02069 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02070 S1401-EXIT. DTSCSL5 02071 EXIT. DTSCSL5 02072 /*****************************************************************DTSCSL5 02073 * *DTSCSL5 02074 ******************************************************************DTSCSL5 02075 DTSCSL5 02076 S1500-FORMAT-TYPE. DTSCSL5 02077 IF MAP-FORMAT-TYPE-CD = LOW-VALUES DTSCSL5 02078 MOVE SPACES TO MAP-FORMAT-TYPE-CD. DTSCSL5 02079 DTSCSL5 02080 IF MAP-FORMAT-TYPE-VALID-88 DTSCSL5 02081 NEXT SENTENCE DTSCSL5 02082 ELSE DTSCSL5 02083 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02084 PERFORM S1501-ERROR THRU S1501-EXIT. DTSCSL5 02085 S1500-EXIT. DTSCSL5 02086 EXIT. DTSCSL5 02087 DTSCSL5 02088 DTSCSL5 02089 S1501-ERROR. DTSCSL5 02090 DTSCSL5 02091 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-FORMAT-TYPE-CD-A DTSCSL5 02092 IF LCCM-NO-MSG DTSCSL5 02093 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02094 MOVE CATB-CURSOR TO MAP-FORMAT-TYPE-CD-L DTSCSL5 02095 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02096 S1501-EXIT. DTSCSL5 02097 EXIT. DTSCSL5 02098 /*****************************************************************DTSCSL5 02099 * *DTSCSL5 02100 ******************************************************************DTSCSL5 02101 DTSCSL5 02102 S1600-JOB-NAME. DTSCSL5 02103 IF MAP-JOB-NAME = LOW-VALUES DTSCSL5 02104 MOVE SPACES TO MAP-JOB-NAME. DTSCSL5 02105 DTSCSL5 02106 S1600-EXIT. DTSCSL5 02107 EXIT. DTSCSL5 02108 DTSCSL5 02109 DTSCSL5 02110 DTSCSL5 02111 S1601-ERROR. DTSCSL5 02112 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-JOB-NAME-A. DTSCSL5 02113 DTSCSL5 02114 IF LCCM-NO-MSG DTSCSL5 02115 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02116 MOVE CATB-CURSOR TO MAP-JOB-NAME-L DTSCSL5 02117 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02118 S1601-EXIT. DTSCSL5 02119 EXIT. DTSCSL5 02120 DTSCSL5 02121 DTSCSL5 02122 ******************************************************************DTSCSL5 02123 * *DTSCSL5 02124 ******************************************************************DTSCSL5 02125 DTSCSL5 02126 S1700-FORMAT-NOTES. DTSCSL5 02127 INSPECT MAP-FORMAT-NOTES CONVERTING LOW-VALUE TO SPACE. DTSCSL5 02128 S1700-EXIT. DTSCSL5 02129 EXIT. DTSCSL5 02130 DTSCSL5 02131 DTSCSL5 02132 ******************************************************************DTSCSL5 02133 * *DTSCSL5 02134 ******************************************************************DTSCSL5 02135 DTSCSL5 02136 S1800-BUSINESS-NAME. DTSCSL5 02137 INSPECT MAP-BUSN-CONTACT-NAME DTSCSL5 02138 CONVERTING LOW-VALUE TO SPACE. DTSCSL5 02139 S1800-EXIT. DTSCSL5 02140 EXIT. DTSCSL5 02141 DTSCSL5 02142 ******************************************************************DTSCSL5 02143 * *DTSCSL5 02144 ******************************************************************DTSCSL5 02145 DTSCSL5 02146 S1900-BUSINESS-EMAIL. DTSCSL5 02147 INSPECT MAP-BUSN-CONTACT-EMAIL DTSCSL5 02148 CONVERTING LOW-VALUE TO SPACE. DTSCSL5 02149 S1900-EXIT. DTSCSL5 02150 EXIT. DTSCSL5 02151 DTSCSL5 02152 DTSCSL5 02153 ******************************************************************DTSCSL5 02154 * *DTSCSL5 02155 ******************************************************************DTSCSL5 02156 DTSCSL5 02157 S2000-TECH-NAME. DTSCSL5 02158 INSPECT MAP-TECH-CONTACT-NAME DTSCSL5 02159 CONVERTING LOW-VALUE TO SPACE. DTSCSL5 02160 S2000-EXIT. DTSCSL5 02161 EXIT. DTSCSL5 02162 DTSCSL5 02163 ******************************************************************DTSCSL5 02164 * *DTSCSL5 02165 ******************************************************************DTSCSL5 02166 DTSCSL5 02167 S2100-TECH-EMAIL. DTSCSL5 02168 INSPECT MAP-TECH-CONTACT-EMAIL DTSCSL5 02169 CONVERTING LOW-VALUE TO SPACE. DTSCSL5 02170 S2100-EXIT. DTSCSL5 02171 EXIT. DTSCSL5 02172 DTSCSL5 02173 /*****************************************************************DTSCSL5 02174 * STEP THROUGH ELF ADDRESS *DTSCSL5 02175 ******************************************************************DTSCSL5 02176 DTSCSL5 02177 S2200-EPRF-ADDR. DTSCSL5 02178 IF MAP-ATTN-LINE = SPACES OR LOW-VALUES DTSCSL5 02179 MOVE SPACES TO MAP-ATTN-LINE. DTSCSL5 02180 DTSCSL5 02181 IF MAP-DELIV-LINE-1 = SPACES OR LOW-VALUES DTSCSL5 02182 MOVE SPACES TO MAP-DELIV-LINE-1. DTSCSL5 02183 DTSCSL5 02184 IF MAP-DELIV-LINE-2 = SPACES OR LOW-VALUES DTSCSL5 02185 MOVE SPACES TO MAP-DELIV-LINE-2. DTSCSL5 02186 DTSCSL5 02187 IF MAP-CASS-IND = SPACES OR LOW-VALUES DTSCSL5 02188 MOVE SPACES TO MAP-CASS-IND. DTSCSL5 02189 DTSCSL5 02190 IF MAP-CITY = SPACES OR LOW-VALUES DTSCSL5 02191 MOVE SPACES TO MAP-CITY. DTSCSL5 02192 DTSCSL5 02193 IF MAP-STATE = SPACES OR LOW-VALUES DTSCSL5 02194 MOVE SPACES TO MAP-STATE. DTSCSL5 02195 DTSCSL5 02196 IF MAP-ZIP = SPACES OR LOW-VALUES DTSCSL5 02197 MOVE SPACES TO MAP-ZIP. DTSCSL5 02198 DTSCSL5 02199 DTSCSL5 02200 PERFORM S2210-IS-MAP-ADDR-BLANK THRU S2210-EXIT. DTSCSL5 02201 DTSCSL5 02202 IF WRK-MPRF-YES-88 AND WRK-MAP-ADDR-BLANK DTSCSL5 02203 PERFORM S2230-MTAD-ADDR THRU S2230-EXIT. DTSCSL5 02204 DTSCSL5 02205 DTSCSL5 02206 MOVE SPACE TO L072-ADDRESS. DTSCSL5 02207 DTSCSL5 02208 IF WRK-MAP-ADDR-HAS-DATA DTSCSL5 02209 PERFORM S2220-ADDR THRU S2220-EXIT DTSCSL5 02210 ELSE DTSCSL5 02211 MOVE SPACE TO LCCM-HOLD-ADDRESS DTSCSL5 02212 MOVE EMSG-FIELD-REQUIRED TO WRK-MSG-AREA DTSCSL5 02213 PERFORM S2202-ERROR THRU S2202-EXIT. DTSCSL5 02214 DTSCSL5 02215 DTSCSL5 02216 MOVE MAP-STATE TO L073-ST. DTSCSL5 02217 DTSCSL5 02218 MOVE MAP-ZIP TO L073-ZIP. DTSCSL5 02219 DTSCSL5 02220 S2200-EXIT. DTSCSL5 02221 EXIT. DTSCSL5 02222 DTSCSL5 02223 DTSCSL5 02224 DTSCSL5 02225 S2202-ERROR. DTSCSL5 02226 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ATTN-LINE-A. DTSCSL5 02227 DTSCSL5 02228 IF LCCM-NO-MSG DTSCSL5 02229 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02230 MOVE CATB-CURSOR TO MAP-ATTN-LINE-L DTSCSL5 02231 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02232 S2202-EXIT. DTSCSL5 02233 EXIT. DTSCSL5 02234 DTSCSL5 02235 DTSCSL5 02236 DTSCSL5 02237 /*****************************************************************DTSCSL5 02238 * *DTSCSL5 02239 ******************************************************************DTSCSL5 02240 S2210-IS-MAP-ADDR-BLANK. DTSCSL5 02241 IF ( MAP-ATTN-LINE = SPACE OR LOW-VALUE ) DTSCSL5 02242 AND ( MAP-DELIV-LINE-1 = SPACE OR LOW-VALUE ) DTSCSL5 02243 AND ( MAP-DELIV-LINE-2 = SPACE OR LOW-VALUE ) DTSCSL5 02244 AND ( MAP-CITY = SPACE OR LOW-VALUE ) DTSCSL5 02245 AND ( MAP-STATE = SPACE OR LOW-VALUE ) DTSCSL5 02246 AND ( MAP-ZIP = SPACE OR LOW-VALUE ) DTSCSL5 02247 MOVE SPACE TO MAP-CASS-IND DTSCSL5 02248 MAP-CASS-CD DTSCSL5 02249 SET WRK-MAP-ADDR-BLANK TO TRUE DTSCSL5 02250 ELSE DTSCSL5 02251 SET WRK-MAP-ADDR-HAS-DATA TO TRUE. DTSCSL5 02252 S2210-EXIT. DTSCSL5 02253 EXIT. DTSCSL5 02254 DTSCSL5 02255 DTSCSL5 02256 DTSCSL5 02257 /*****************************************************************DTSCSL5 02258 * *DTSCSL5 02259 ******************************************************************DTSCSL5 02260 DTSCSL5 02261 S2220-ADDR. DTSCSL5 02262 MOVE MAP-CASS-IND TO L072-CASS-IND. DTSCSL5 02263 DTSCSL5 02264 SET L072-MTAD-88 TO TRUE. DTSCSL5 02265 DTSCSL5 02266 MOVE MAP-ELF-NAME TO L072-NAME. DTSCSL5 02267 DTSCSL5 02268 MOVE MAP-ATTN-LINE TO L072-ATTN-LINE. DTSCSL5 02269 DTSCSL5 02270 MOVE MAP-DELIV-LINE-1 TO L072-DELIV-LINE-1. DTSCSL5 02271 DTSCSL5 02272 MOVE MAP-DELIV-LINE-2 TO L072-DELIV-LINE-2. DTSCSL5 02273 DTSCSL5 02274 MOVE MAP-CITY TO L072-CITY. DTSCSL5 02275 DTSCSL5 02276 MOVE MAP-STATE TO L072-ST. DTSCSL5 02277 DTSCSL5 02278 MOVE MAP-ZIP TO L072-ZIP. DTSCSL5 02279 DTSCSL5 02280 DTSCSL5 02281 * DEFAULT L072-CASS-IND IS BLANK, SO 'Y' IS DELIBERATE. DTSCSL5 02282 DTSCSL5 02283 IF L072-CASS-IND = 'Y' DTSCSL5 02284 NEXT SENTENCE DTSCSL5 02285 ELSE DTSCSL5 02286 IF L072-ATTN-LINE = EPRF-ATTN-LINE DTSCSL5 02287 AND L072-DELIV-LINE-1 = EPRF-DELIV-LINE-1 DTSCSL5 02288 AND L072-DELIV-LINE-2 = EPRF-DELIV-LINE-2 DTSCSL5 02289 AND L072-CITY = EPRF-CITY DTSCSL5 02290 AND L072-ST = EPRF-ST DTSCSL5 02291 AND L072-ZIP = EPRF-ZIP DTSCSL5 02292 MOVE EPRF-ADVANCED-BARCODE DTSCSL5 02293 TO L072-ADVANCED-BARCODE DTSCSL5 02294 MOVE L072-ADDRESS TO LCCM-HOLD-ADDRESS DTSCSL5 02295 GO TO S2220-EXIT. DTSCSL5 02296 DTSCSL5 02297 DTSCSL5 02298 PERFORM S072-ADDRESS-EDIT THRU S072-EXIT. DTSCSL5 02299 DTSCSL5 02300 MOVE L072-ADDRESS TO LCCM-HOLD-ADDRESS. DTSCSL5 02301 DTSCSL5 02302 MOVE L072-CASS-IND TO MAP-CASS-IND. DTSCSL5 02303 DTSCSL5 02304 MOVE L072-CASS-RETURN-CODES TO MAP-CASS-CD. DTSCSL5 02305 DTSCSL5 02306 DTSCSL5 02307 IF L072-ATTN-LINE-NOT-VALID-88 DTSCSL5 02308 PERFORM S2221-ERROR THRU S2221-EXIT DTSCSL5 02309 ELSE DTSCSL5 02310 MOVE L072-ATTN-LINE TO MAP-ATTN-LINE DTSCSL5 02311 IF L072-ATTN-LINE-CHANGED-88 DTSCSL5 02312 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02313 TO MAP-ATTN-LINE-A. DTSCSL5 02314 DTSCSL5 02315 DTSCSL5 02316 IF L072-DELIV-LINE-1-NOT-VALID-88 DTSCSL5 02317 PERFORM S2222-ERROR THRU S2222-EXIT DTSCSL5 02318 ELSE DTSCSL5 02319 MOVE L072-DELIV-LINE-1 TO MAP-DELIV-LINE-1 DTSCSL5 02320 IF L072-DELIV-LINE-1-CHANGED-88 DTSCSL5 02321 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02322 TO MAP-DELIV-LINE-1-A. DTSCSL5 02323 DTSCSL5 02324 DTSCSL5 02325 IF L072-DELIV-LINE-2-NOT-VALID-88 DTSCSL5 02326 PERFORM S2223-ERROR THRU S2223-EXIT DTSCSL5 02327 ELSE DTSCSL5 02328 MOVE L072-DELIV-LINE-2 TO MAP-DELIV-LINE-2 DTSCSL5 02329 IF L072-DELIV-LINE-2-CHANGED-88 DTSCSL5 02330 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02331 TO MAP-DELIV-LINE-2-A. DTSCSL5 02332 DTSCSL5 02333 DTSCSL5 02334 IF L072-CITY-NOT-VALID-88 DTSCSL5 02335 PERFORM S2224-ERROR THRU S2224-EXIT DTSCSL5 02336 ELSE DTSCSL5 02337 MOVE L072-CITY TO MAP-CITY DTSCSL5 02338 IF L072-CITY-CHANGED-88 DTSCSL5 02339 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02340 TO MAP-CITY-A. DTSCSL5 02341 DTSCSL5 02342 DTSCSL5 02343 IF L072-ST-NOT-VALID-88 DTSCSL5 02344 PERFORM S2225-ERROR THRU S2225-EXIT DTSCSL5 02345 ELSE DTSCSL5 02346 MOVE L072-ST TO MAP-STATE DTSCSL5 02347 IF L072-ST-CHANGED-88 DTSCSL5 02348 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02349 TO MAP-STATE-A. DTSCSL5 02350 DTSCSL5 02351 DTSCSL5 02352 IF L072-ZIP-NOT-VALID-88 DTSCSL5 02353 PERFORM S2226-ERROR THRU S2226-EXIT DTSCSL5 02354 ELSE DTSCSL5 02355 MOVE L072-ZIP TO MAP-ZIP DTSCSL5 02356 IF L072-ZIP-CHANGED-88 DTSCSL5 02357 MOVE CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02358 TO MAP-ZIP-A. DTSCSL5 02359 DTSCSL5 02360 DTSCSL5 02361 IF L072-ADDRESS-NOT-VALID-88 DTSCSL5 02362 IF LCCM-NO-MSG DTSCSL5 02363 PERFORM S2221-ERROR THRU S2221-EXIT. DTSCSL5 02364 S2220-EXIT. DTSCSL5 02365 EXIT. DTSCSL5 02366 DTSCSL5 02367 DTSCSL5 02368 DTSCSL5 02369 S2221-ERROR. DTSCSL5 02370 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ATTN-LINE-A. DTSCSL5 02371 DTSCSL5 02372 IF LCCM-NO-MSG DTSCSL5 02373 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02374 MOVE CATB-CURSOR TO MAP-ATTN-LINE-L DTSCSL5 02375 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02376 S2221-EXIT. DTSCSL5 02377 EXIT. DTSCSL5 02378 DTSCSL5 02379 DTSCSL5 02380 DTSCSL5 02381 S2222-ERROR. DTSCSL5 02382 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-DELIV-LINE-1-A. DTSCSL5 02383 DTSCSL5 02384 IF LCCM-NO-MSG DTSCSL5 02385 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02386 MOVE CATB-CURSOR TO MAP-DELIV-LINE-1-L DTSCSL5 02387 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02388 S2222-EXIT. DTSCSL5 02389 EXIT. DTSCSL5 02390 DTSCSL5 02391 DTSCSL5 02392 DTSCSL5 02393 S2223-ERROR. DTSCSL5 02394 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-DELIV-LINE-2-A. DTSCSL5 02395 DTSCSL5 02396 IF LCCM-NO-MSG DTSCSL5 02397 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02398 MOVE CATB-CURSOR TO MAP-DELIV-LINE-2-L DTSCSL5 02399 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02400 S2223-EXIT. DTSCSL5 02401 EXIT. DTSCSL5 02402 DTSCSL5 02403 DTSCSL5 02404 DTSCSL5 02405 S2224-ERROR. DTSCSL5 02406 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-CITY-A. DTSCSL5 02407 DTSCSL5 02408 IF LCCM-NO-MSG DTSCSL5 02409 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02410 MOVE CATB-CURSOR TO MAP-CITY-L DTSCSL5 02411 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02412 S2224-EXIT. DTSCSL5 02413 EXIT. DTSCSL5 02414 DTSCSL5 02415 DTSCSL5 02416 DTSCSL5 02417 S2225-ERROR. DTSCSL5 02418 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-STATE-A. DTSCSL5 02419 DTSCSL5 02420 IF LCCM-NO-MSG DTSCSL5 02421 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02422 MOVE CATB-CURSOR TO MAP-STATE-L DTSCSL5 02423 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02424 S2225-EXIT. DTSCSL5 02425 EXIT. DTSCSL5 02426 DTSCSL5 02427 DTSCSL5 02428 DTSCSL5 02429 S2226-ERROR. DTSCSL5 02430 MOVE CATB-UNPROT-NORM-AN-MDTON TO MAP-ZIP-A. DTSCSL5 02431 DTSCSL5 02432 IF LCCM-NO-MSG DTSCSL5 02433 MOVE L072-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02434 MOVE CATB-CURSOR TO MAP-ZIP-L DTSCSL5 02435 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02436 S2226-EXIT. DTSCSL5 02437 EXIT. DTSCSL5 02438 DTSCSL5 02439 DTSCSL5 02440 DTSCSL5 02441 S2230-MTAD-ADDR. DTSCSL5 02442 DTSCSL5 02443 PERFORM S1020-READ-MTAD THRU S1020-EXIT. DTSCSL5 02444 DTSCSL5 02445 IF L810-OK-88 DTSCSL5 02446 NEXT SENTENCE DTSCSL5 02447 ELSE DTSCSL5 02448 GO TO S2230-EXIT. DTSCSL5 02449 DTSCSL5 02450 MOVE MTAD-ATTN-LINE TO MAP-ATTN-LINE. DTSCSL5 02451 DTSCSL5 02452 MOVE MTAD-DELIV-LINE-1 TO MAP-DELIV-LINE-1. DTSCSL5 02453 DTSCSL5 02454 MOVE MTAD-DELIV-LINE-2 TO MAP-DELIV-LINE-2. DTSCSL5 02455 DTSCSL5 02456 MOVE MTAD-CITY TO MAP-CITY. DTSCSL5 02457 DTSCSL5 02458 MOVE MTAD-ST TO MAP-STATE. DTSCSL5 02459 DTSCSL5 02460 MOVE MTAD-ZIP TO MAP-ZIP. DTSCSL5 02461 DTSCSL5 02462 S2230-EXIT. DTSCSL5 02463 EXIT. DTSCSL5 02464 DTSCSL5 02465 DTSCSL5 02466 ******************************************************************DTSCSL5 02467 * *DTSCSL5 02468 ******************************************************************DTSCSL5 02469 DTSCSL5 02470 S2300-EDIT-PHONES. DTSCSL5 02471 PERFORM S2310-BUSINESS-PHONE THRU S2310-EXIT. DTSCSL5 02472 PERFORM S2315-BUSINESS-FAX THRU S2315-EXIT. DTSCSL5 02473 PERFORM S2320-TECH-PHONE THRU S2320-EXIT. DTSCSL5 02474 PERFORM S2325-TECH-FAX THRU S2325-EXIT. DTSCSL5 02475 S2300-EXIT. DTSCSL5 02476 EXIT. DTSCSL5 02477 ******************************************************************DTSCSL5 02478 * *DTSCSL5 02479 ******************************************************************DTSCSL5 02480 DTSCSL5 02481 S2310-BUSINESS-PHONE. DTSCSL5 02482 MOVE MAP-BUSN-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5 02483 DTSCSL5 02484 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 02485 DTSCSL5 02486 IF L021-NOT-VALID DTSCSL5 02487 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02488 PERFORM S2311-ERROR THRU S2311-EXIT DTSCSL5 02489 ELSE DTSCSL5 02490 IF L021-VALID DTSCSL5 02491 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5 02492 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5 02493 IF L073-NOT-VALID DTSCSL5 02494 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02495 PERFORM S2311-ERROR THRU S2311-EXIT DTSCSL5 02496 ELSE DTSCSL5 02497 MOVE L073-AREA-CD TO MAP-BUSN-VOICE-AREA-CD DTSCSL5 02498 MOVE L073-PREFIX TO MAP-BUSN-VOICE-PREFIX DTSCSL5 02499 MOVE L073-SUFFIX TO MAP-BUSN-VOICE-SUFFIX DTSCSL5 02500 MOVE L073-EXT TO MAP-BUSN-VOICE-EXT. DTSCSL5 02501 S2310-EXIT. DTSCSL5 02502 EXIT. DTSCSL5 02503 DTSCSL5 02504 DTSCSL5 02505 DTSCSL5 02506 S2311-ERROR. DTSCSL5 02507 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5 02508 TO MAP-BUSN-VOICE-AREA-CD-A DTSCSL5 02509 MAP-BUSN-VOICE-PREFIX-A DTSCSL5 02510 MAP-BUSN-VOICE-SUFFIX-A DTSCSL5 02511 MAP-BUSN-VOICE-EXT-A. DTSCSL5 02512 DTSCSL5 02513 IF LCCM-NO-MSG DTSCSL5 02514 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02515 MOVE CATB-CURSOR TO MAP-BUSN-VOICE-AREA-CD-L DTSCSL5 02516 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02517 S2311-EXIT. DTSCSL5 02518 EXIT. DTSCSL5 02519 DTSCSL5 02520 DTSCSL5 02521 DTSCSL5 02522 ******************************************************************DTSCSL5 02523 * *DTSCSL5 02524 ******************************************************************DTSCSL5 02525 DTSCSL5 02526 S2315-BUSINESS-FAX. DTSCSL5 02527 MOVE MAP-BUSN-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5 02528 DTSCSL5 02529 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 02530 DTSCSL5 02531 IF L021-NOT-VALID DTSCSL5 02532 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02533 PERFORM S2316-ERROR THRU S2316-EXIT DTSCSL5 02534 ELSE DTSCSL5 02535 IF L021-VALID DTSCSL5 02536 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5 02537 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5 02538 IF L073-NOT-VALID DTSCSL5 02539 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02540 PERFORM S2316-ERROR THRU S2316-EXIT DTSCSL5 02541 ELSE DTSCSL5 02542 MOVE L073-AREA-CD TO MAP-BUSN-FAX-AREA-CD DTSCSL5 02543 MOVE L073-PREFIX TO MAP-BUSN-FAX-PREFIX DTSCSL5 02544 MOVE L073-SUFFIX TO MAP-BUSN-FAX-SUFFIX. DTSCSL5 02545 * MOVE L073-EXT TO MAP-BUSN-FAX-EXT. DTSCSL5 02546 S2315-EXIT. DTSCSL5 02547 EXIT. DTSCSL5 02548 DTSCSL5 02549 DTSCSL5 02550 DTSCSL5 02551 S2316-ERROR. DTSCSL5 02552 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5 02553 TO MAP-BUSN-FAX-AREA-CD-A DTSCSL5 02554 MAP-BUSN-FAX-PREFIX-A DTSCSL5 02555 MAP-BUSN-FAX-SUFFIX-A. DTSCSL5 02556 DTSCSL5 02557 IF LCCM-NO-MSG DTSCSL5 02558 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02559 MOVE CATB-CURSOR TO MAP-BUSN-FAX-AREA-CD-L DTSCSL5 02560 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02561 S2316-EXIT. DTSCSL5 02562 EXIT. DTSCSL5 02563 DTSCSL5 02564 DTSCSL5 02565 ******************************************************************DTSCSL5 02566 * *DTSCSL5 02567 ******************************************************************DTSCSL5 02568 DTSCSL5 02569 S2320-TECH-PHONE. DTSCSL5 02570 MOVE MAP-TECH-CONTACT-PHONE-AREA TO L021-S-TNO-AREA. DTSCSL5 02571 DTSCSL5 02572 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 02573 DTSCSL5 02574 IF L021-NOT-VALID DTSCSL5 02575 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02576 PERFORM S2321-ERROR THRU S2321-EXIT DTSCSL5 02577 ELSE DTSCSL5 02578 IF L021-VALID DTSCSL5 02579 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5 02580 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5 02581 IF L073-NOT-VALID DTSCSL5 02582 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02583 PERFORM S2321-ERROR THRU S2321-EXIT DTSCSL5 02584 ELSE DTSCSL5 02585 MOVE L073-AREA-CD TO MAP-TECH-VOICE-AREA-CD DTSCSL5 02586 MOVE L073-PREFIX TO MAP-TECH-VOICE-PREFIX DTSCSL5 02587 MOVE L073-SUFFIX TO MAP-TECH-VOICE-SUFFIX DTSCSL5 02588 MOVE L073-EXT TO MAP-TECH-VOICE-EXT. DTSCSL5 02589 S2320-EXIT. DTSCSL5 02590 EXIT. DTSCSL5 02591 DTSCSL5 02592 DTSCSL5 02593 DTSCSL5 02594 S2321-ERROR. DTSCSL5 02595 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5 02596 TO MAP-TECH-VOICE-AREA-CD-A DTSCSL5 02597 MAP-TECH-VOICE-PREFIX-A DTSCSL5 02598 MAP-TECH-VOICE-SUFFIX-A DTSCSL5 02599 MAP-TECH-VOICE-EXT-A. DTSCSL5 02600 DTSCSL5 02601 IF LCCM-NO-MSG DTSCSL5 02602 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02603 MOVE CATB-CURSOR TO MAP-TECH-VOICE-AREA-CD-L DTSCSL5 02604 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02605 S2321-EXIT. DTSCSL5 02606 EXIT. DTSCSL5 02607 DTSCSL5 02608 DTSCSL5 02609 DTSCSL5 02610 ******************************************************************DTSCSL5 02611 * *DTSCSL5 02612 ******************************************************************DTSCSL5 02613 DTSCSL5 02614 S2325-TECH-FAX. DTSCSL5 02615 MOVE MAP-TECH-CONTACT-FAX-AREA TO L021-S-TNO-AREA. DTSCSL5 02616 DTSCSL5 02617 PERFORM S021-TELNO-FROM-SCREEN THRU S021-EXIT. DTSCSL5 02618 DTSCSL5 02619 IF L021-NOT-VALID DTSCSL5 02620 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02621 PERFORM S2326-ERROR THRU S2326-EXIT DTSCSL5 02622 ELSE DTSCSL5 02623 IF L021-VALID DTSCSL5 02624 MOVE L021-TNO TO L073-TELEPHONE DTSCSL5 02625 PERFORM S073-TELNO-EDIT THRU S073-EXIT DTSCSL5 02626 IF L073-NOT-VALID DTSCSL5 02627 MOVE EMSG-FIELD-NOT-VALID TO WRK-MSG-AREA DTSCSL5 02628 PERFORM S2326-ERROR THRU S2326-EXIT DTSCSL5 02629 ELSE DTSCSL5 02630 MOVE L073-AREA-CD TO MAP-TECH-FAX-AREA-CD DTSCSL5 02631 MOVE L073-PREFIX TO MAP-TECH-FAX-PREFIX DTSCSL5 02632 MOVE L073-SUFFIX TO MAP-TECH-FAX-SUFFIX. DTSCSL5 02633 S2325-EXIT. DTSCSL5 02634 EXIT. DTSCSL5 02635 DTSCSL5 02636 DTSCSL5 02637 DTSCSL5 02638 S2326-ERROR. DTSCSL5 02639 MOVE CATB-UNPROT-NORM-NUM-MDTON DTSCSL5 02640 TO MAP-TECH-FAX-AREA-CD-A DTSCSL5 02641 MAP-TECH-FAX-PREFIX-A DTSCSL5 02642 MAP-TECH-FAX-SUFFIX-A. DTSCSL5 02643 DTSCSL5 02644 IF LCCM-NO-MSG DTSCSL5 02645 MOVE WRK-MSG-AREA TO LCCM-MSG-AREA DTSCSL5 02646 MOVE CATB-CURSOR TO MAP-TECH-FAX-AREA-CD-L DTSCSL5 02647 SET CURSOR-SET-YES TO TRUE. DTSCSL5 02648 S2326-EXIT. DTSCSL5 02649 EXIT. DTSCSL5 02650 DTSCSL5 02651 DTSCSL5 02652 ******************************************************************DTSCSL5 02653 * *DTSCSL5 02654 ******************************************************************DTSCSL5 02655 /*****************************************************************DTSCSL5 02656 * LOCK SCREEN FOR UPDATE CONFIRMATION *DTSCSL5 02657 ******************************************************************DTSCSL5 02658 DTSCSL5 02659 S5100-SET-LOCK-ATTRB. DTSCSL5 02660 MOVE CATB-ASKIP-BRT-MDTON TO SCR-ATB-AN DTSCSL5 02661 SCR-ATB-NUM. DTSCSL5 02662 DTSCSL5 02663 PERFORM S5110-HOLD-ATTRB THRU S5110-EXIT. DTSCSL5 02664 DTSCSL5 02665 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCSL5 02666 DTSCSL5 02667 PERFORM S5120-RESTORE-ATTRB THRU S5120-EXIT. DTSCSL5 02668 DTSCSL5 02669 MOVE CATB-ASKIP-BRT-MDTON TO MAP-ELF-ID-1-A DTSCSL5 02670 MAP-ELF-ID-2-A DTSCSL5 02671 MAP-DATA-TYPE-CD-A DTSCSL5 02672 MAP-GOTO-A. DTSCSL5 02673 S5100-EXIT. DTSCSL5 02674 EXIT. DTSCSL5 02675 DTSCSL5 02676 DTSCSL5 02677 DTSCSL5 02678 S5110-HOLD-ATTRB. DTSCSL5 02679 MOVE MAP-ATTN-LINE-A TO HOLD-ATTN-A. DTSCSL5 02680 DTSCSL5 02681 MOVE MAP-DELIV-LINE-1-A TO HOLD-DLV1-A. DTSCSL5 02682 DTSCSL5 02683 MOVE MAP-DELIV-LINE-2-A TO HOLD-DLV2-A. DTSCSL5 02684 DTSCSL5 02685 MOVE MAP-CITY-A TO HOLD-CITY-A. DTSCSL5 02686 DTSCSL5 02687 MOVE MAP-STATE-A TO HOLD-STAT-A. DTSCSL5 02688 DTSCSL5 02689 MOVE MAP-ZIP-A TO HOLD-ZIPC-A. DTSCSL5 02690 S5110-EXIT. DTSCSL5 02691 EXIT. DTSCSL5 02692 DTSCSL5 02693 DTSCSL5 02694 DTSCSL5 02695 S5120-RESTORE-ATTRB. DTSCSL5 02696 IF HOLD-ATTN-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02697 MOVE CATB-ASKIP-NORM-MDTON TO MAP-ATTN-LINE-A. DTSCSL5 02698 DTSCSL5 02699 IF HOLD-DLV1-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02700 MOVE CATB-ASKIP-NORM-MDTON TO MAP-DELIV-LINE-1-A. DTSCSL5 02701 DTSCSL5 02702 IF HOLD-DLV2-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02703 MOVE CATB-ASKIP-NORM-MDTON TO MAP-DELIV-LINE-2-A. DTSCSL5 02704 DTSCSL5 02705 IF HOLD-CITY-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02706 MOVE CATB-ASKIP-NORM-MDTON TO MAP-CITY-A. DTSCSL5 02707 DTSCSL5 02708 IF HOLD-STAT-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02709 MOVE CATB-ASKIP-NORM-MDTON TO MAP-STATE-A. DTSCSL5 02710 DTSCSL5 02711 IF HOLD-ZIPC-A = CATB-UNPROT-NORM-AN-MDTON DTSCSL5 02712 MOVE CATB-ASKIP-NORM-MDTON TO MAP-ZIP-A. DTSCSL5 02713 S5120-EXIT. DTSCSL5 02714 EXIT. DTSCSL5 02715 DTSCSL5 02716 DTSCSL5 02717 DTSCSL5 02718 ******************************************************************DTSCSL5 02719 * SET ATTIBUTE BYTES FOR UPDATE ACCESS *DTSCSL5 02720 ******************************************************************DTSCSL5 02721 DTSCSL5 02722 S5200-SET-UPDATE-ATTRB. DTSCSL5 02723 MOVE CATB-UNPROT-BRT-AN-MDTON TO SCR-ATB-AN. DTSCSL5 02724 DTSCSL5 02725 MOVE CATB-UNPROT-BRT-NUM-MDTON TO SCR-ATB-NUM. DTSCSL5 02726 DTSCSL5 02727 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCSL5 02728 DTSCSL5 02729 IF ELF-ID-EXTERNAL-88 OR ELF-ID-BLANK-88 DTSCSL5 02730 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-ELF-NAME-A. DTSCSL5 02731 DTSCSL5 02732 S5200-EXIT. DTSCSL5 02733 EXIT. DTSCSL5 02734 DTSCSL5 02735 DTSCSL5 02736 DTSCSL5 02737 ******************************************************************DTSCSL5 02738 * SET ATTRIBUTE BYTES FOR INQUIRY STATUS *DTSCSL5 02739 ******************************************************************DTSCSL5 02740 DTSCSL5 02741 S5300-SET-INQ-ATTRB. DTSCSL5 02742 MOVE CATB-ASKIP-BRT-MDTOFF TO SCR-ATB-AN DTSCSL5 02743 SCR-ATB-NUM. DTSCSL5 02744 DTSCSL5 02745 PERFORM S5900-SET-ATTRB THRU S5900-EXIT. DTSCSL5 02746 S5300-EXIT. DTSCSL5 02747 EXIT. DTSCSL5 02748 /*****************************************************************DTSCSL5 02749 * *DTSCSL5 02750 ******************************************************************DTSCSL5 02751 DTSCSL5 02752 S5900-SET-ATTRB. DTSCSL5 02753 MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-ELF-ID-1-A DTSCSL5 02754 MAP-ELF-ID-2-A. DTSCSL5 02755 DTSCSL5 02756 MOVE CATB-UNPROT-BRT-AN-MDTON TO MAP-GOTO-A DTSCSL5 02757 MAP-DATA-TYPE-CD-A. DTSCSL5 02758 DTSCSL5 02759 MOVE CATB-ASKIP-BRT-MDTON TO MAP-ELF-NAME-A DTSCSL5 02760 MAP-DATA-TYPE-NAME-A DTSCSL5 02761 MAP-MEDIUM-TYPE-NAME-A DTSCSL5 02762 MAP-FORMAT-TYPE-NAME-A DTSCSL5 02763 MAP-ESTB-MO-A DTSCSL5 02764 MAP-ESTB-DA-A DTSCSL5 02765 MAP-ESTB-YR-A DTSCSL5 02766 MAP-CHNG-MO-A DTSCSL5 02767 MAP-CHNG-DA-A DTSCSL5 02768 MAP-CHNG-YR-A DTSCSL5 02769 MAP-CHNG-OPID-A DTSCSL5 02770 MAP-CASS-CD-A. DTSCSL5 02771 DTSCSL5 02772 MOVE SCR-ATB-AN TO MAP-MEDIUM-TYPE-CD-A DTSCSL5 02773 MAP-FORMAT-TYPE-CD-A DTSCSL5 02774 MAP-JOB-NAME-A DTSCSL5 02775 MAP-FORMAT-NOTES-A DTSCSL5 02776 MAP-BUSN-CONTACT-NAME-A DTSCSL5 02777 MAP-BUSN-CONTACT-EMAIL-A DTSCSL5 02778 MAP-TECH-CONTACT-NAME-A DTSCSL5 02779 MAP-TECH-CONTACT-EMAIL-A DTSCSL5 02780 MAP-BUSN-VOICE-AREA-CD-A DTSCSL5 02781 MAP-BUSN-VOICE-PREFIX-A DTSCSL5 02782 MAP-BUSN-VOICE-SUFFIX-A DTSCSL5 02783 MAP-BUSN-VOICE-EXT-A DTSCSL5 02784 MAP-BUSN-FAX-AREA-CD-A DTSCSL5 02785 MAP-BUSN-FAX-PREFIX-A DTSCSL5 02786 MAP-BUSN-FAX-SUFFIX-A DTSCSL5 02787 MAP-TECH-VOICE-AREA-CD-A DTSCSL5 02788 MAP-TECH-VOICE-PREFIX-A DTSCSL5 02789 MAP-TECH-VOICE-SUFFIX-A DTSCSL5 02790 MAP-TECH-VOICE-EXT-A DTSCSL5 02791 MAP-TECH-FAX-AREA-CD-A DTSCSL5 02792 MAP-TECH-FAX-PREFIX-A DTSCSL5 02793 MAP-TECH-FAX-SUFFIX-A DTSCSL5 02794 MAP-ATTN-LINE-A DTSCSL5 02795 MAP-DELIV-LINE-1-A DTSCSL5 02796 MAP-DELIV-LINE-2-A DTSCSL5 02797 MAP-CASS-IND-A DTSCSL5 02798 MAP-CITY-A DTSCSL5 02799 MAP-STATE-A DTSCSL5 02800 MAP-ZIP-A. DTSCSL5 02801 S5900-EXIT. DTSCSL5 02802 EXIT. DTSCSL5 02803 /*****************************************************************DTSCSL5 02804 * FILE READ COMMON PREPARATION ROUTINES *DTSCSL5 02805 ******************************************************************DTSCSL5 02806 DTSCSL5 02807 S8100-READ-MPRF. DTSCSL5 02808 MOVE LOW-VALUES TO MPRF-KEY-AREA. DTSCSL5 02809 DTSCSL5 02810 MOVE WRK-ELF-ID TO MPRF-EMP-NO. DTSCSL5 02811 DTSCSL5 02812 SET MPRF-PRF-88 TO TRUE. DTSCSL5 02813 DTSCSL5 02814 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSCSL5 02815 DTSCSL5 02816 PERFORM S810-READ THRU S810-EXIT. DTSCSL5 02817 IF L810-OK-88 DTSCSL5 02818 MOVE MSKL-REC TO MPRF-REC DTSCSL5 02819 SET WRK-MPRF-YES-88 TO TRUE DTSCSL5 02820 ELSE DTSCSL5 02821 SET WRK-MPRF-NO-88 TO TRUE. DTSCSL5 02822 DTSCSL5 02823 S8100-EXIT. DTSCSL5 02824 EXIT. DTSCSL5 02825 DTSCSL5 02826 DTSCSL5 02827 DTSCSL5 02828 *S8200-READ-MFAE. DTSCSL5 02829 * MOVE LOW-VALUES TO MFAE-KEY-AREA. DTSCSL5 02830 * DTSCSL5 02831 * MOVE WRK-ELF-ID TO MFAE-EMP-NO. DTSCSL5 02832 * DTSCSL5 02833 * SET MFAE-FAE-88 TO TRUE. DTSCSL5 02834 * DTSCSL5 02835 * MOVE MFAE-KEY-AREA TO MSKL-KEY-AREA. DTSCSL5 02836 * DTSCSL5 02837 * PERFORM S810-READ THRU S810-EXIT. DTSCSL5 02838 *S8200-EXIT. DTSCSL5 02839 * EXIT. DTSCSL5 02840 /*****************************************************************DTSCSL5 02841 * MAP ROUTINES *DTSCSL5 02842 ******************************************************************DTSCSL5 02843 DTSCSL5 02844 S9100-RECEIVE. DTSCSL5 02845 SET L851-RECEIVE-88 TO TRUE. DTSCSL5 02846 DTSCSL5 02847 MOVE WRK-SCR-ID TO L851-SCR-ID. DTSCSL5 02848 DTSCSL5 02849 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCSL5 02850 DTSCSL5 02851 MOVE L851-AID TO LCCM-AID. DTSCSL5 02852 DTSCSL5 02853 MOVE L851-CURSOR TO LCCM-CURSOR. DTSCSL5 02854 S9100-EXIT. DTSCSL5 02855 EXIT. DTSCSL5 02856 DTSCSL5 02857 DTSCSL5 02858 DTSCSL5 02859 ******************************************************************DTSCSL5 02860 * *DTSCSL5 02861 ******************************************************************DTSCSL5 02862 DTSCSL5 02863 S9200-SEND-DATAONLY. DTSCSL5 02864 MOVE LOW-VALUES TO MAP-AREA. DTSCSL5 02865 DTSCSL5 02866 IF LCCM-NO-MSG DTSCSL5 02867 NEXT SENTENCE DTSCSL5 02868 ELSE DTSCSL5 02869 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCSL5 02870 DTSCSL5 02871 IF CURSOR-SET-GOTO DTSCSL5 02872 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCSL5 02873 ELSE DTSCSL5 02874 MOVE CATB-CURSOR TO MAP-ELF-ID-1-L. DTSCSL5 02875 DTSCSL5 02876 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCSL5 02877 DTSCSL5 02878 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCSL5 02879 DTSCSL5 02880 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCSL5 02881 S9200-EXIT. DTSCSL5 02882 EXIT. DTSCSL5 02883 DTSCSL5 02884 DTSCSL5 02885 DTSCSL5 02886 ******************************************************************DTSCSL5 02887 * *DTSCSL5 02888 ******************************************************************DTSCSL5 02889 DTSCSL5 02890 S9300-SEND-MAP. DTSCSL5 02891 MOVE LCCM-TASK-START-DISP-DATE TO MAP-SYS-DATE. DTSCSL5 02892 DTSCSL5 02893 MOVE LCCM-TASK-START-DISP-TIME TO MAP-SYS-TIME. DTSCSL5 02894 DTSCSL5 02895 MOVE LCCM-CICS-REGION-NAME TO MAP-CICS-REGION-NAME. DTSCSL5 02896 DTSCSL5 02897 IF SCR-ACCESS-UPDATE DTSCSL5 02898 PERFORM S9310-UPDATE-FKEYS THRU S9310-EXIT DTSCSL5 02899 ELSE DTSCSL5 02900 PERFORM S9320-INQUIRY-FKEYS THRU S9320-EXIT. DTSCSL5 02901 DTSCSL5 02902 PERFORM S805-MSG-AREA THRU S805-EXIT. DTSCSL5 02903 DTSCSL5 02904 IF CURSOR-SET-NO DTSCSL5 02905 MOVE CATB-CURSOR TO MAP-ELF-ID-1-L. DTSCSL5 02906 DTSCSL5 02907 SET L851-SEND-88 TO TRUE. DTSCSL5 02908 DTSCSL5 02909 PERFORM S9900-PREPARE-SEND THRU S9900-EXIT. DTSCSL5 02910 DTSCSL5 02911 PERFORM S851-SCREEN-PROCESSING THRU S851-EXIT. DTSCSL5 02912 S9300-EXIT. DTSCSL5 02913 EXIT. DTSCSL5 02914 DTSCSL5 02915 DTSCSL5 02916 DTSCSL5 02917 S9310-UPDATE-FKEYS. DTSCSL5 02918 MOVE CFKD-ADD TO MAP-KEY-ADD. DTSCSL5 02919 DTSCSL5 02920 MOVE CFKD-MOD TO MAP-KEY-MOD. DTSCSL5 02921 DTSCSL5 02922 MOVE 'F11=UNLK' TO MAP-KEY-UNLK. DTSCSL5 02923 DTSCSL5 02924 MOVE CFKD-DEL TO MAP-KEY-DEL. DTSCSL5 02925 DTSCSL5 02926 IF LCCM-SCR-CLEAR DTSCSL5 02927 MOVE LOW-VALUES TO MAP-KEY-MOD DTSCSL5 02928 MAP-KEY-DEL DTSCSL5 02929 MAP-KEY-UNLK DTSCSL5 02930 ELSE DTSCSL5 02931 IF LCCM-SCR-INQUIRE DTSCSL5 02932 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCSL5 02933 ELSE DTSCSL5 02934 IF LCCM-SCR-UPDATE-LOCKED DTSCSL5 02935 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCSL5 02936 MAP-KEY-MOD DTSCSL5 02937 MAP-KEY-UNLK DTSCSL5 02938 MAP-KEY-DEL. DTSCSL5 02939 S9310-EXIT. DTSCSL5 02940 EXIT. DTSCSL5 02941 DTSCSL5 02942 DTSCSL5 02943 DTSCSL5 02944 S9320-INQUIRY-FKEYS. DTSCSL5 02945 MOVE LOW-VALUES TO MAP-KEY-ADD DTSCSL5 02946 MAP-KEY-MOD DTSCSL5 02947 MAP-KEY-UNLK DTSCSL5 02948 MAP-KEY-DEL. DTSCSL5 02949 S9320-EXIT. DTSCSL5 02950 EXIT. DTSCSL5 02951 /*****************************************************************DTSCSL5 02952 * *DTSCSL5 02953 ******************************************************************DTSCSL5 02954 DTSCSL5 02955 S9900-PREPARE-SEND. DTSCSL5 02956 MOVE WRK-SCR-ID TO L851-SCR-ID DTSCSL5 02957 LCCM-SCR-ID. DTSCSL5 02958 DTSCSL5 02959 MOVE LCCM-OP-ALARM-IND TO L851-ALARM-IND. DTSCSL5 02960 DTSCSL5 02961 MOVE LCCM-MSG-TYPE TO L851-MSG-TYPE. DTSCSL5 02962 S9900-EXIT. DTSCSL5 02963 EXIT. DTSCSL5