00001 IDENTIFICATION DIVISION. 08/12/98 00002 PROGRAM-ID. DTSCU805. DTSCU805 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003 00004 DATE-WRITTEN. NOVEMBER 1991. DTSCU805 00005 DATE-COMPILED. DTSCU805 00006 SKIP3 DTSCU805 00007 ***** DTSCU805 00008 * DTSCU805 00009 * FUNCTION: BUILD SCREEN MESSAGE LINE. DTSCU805 00010 * DTSCU805 00011 * DTSCU805 00012 * MODIFICATION LOG: DTSCU805 00013 * DTSCU805 00014 * 11/05/91 INITIAL DEVELOPMENT. DTSCU805 00015 * WORK ORDER: PROGRAMMER: TCL DTSCU805 00016 * DTSCU805 00017 * 01/22/92 PROMPT MESSAGES WILL BE BRIGHT ATTRIBUTE AS ARE DTSCU805 00018 * ERROR MESSAGES DTSCU805 00019 * WORK ORDER: PROGRAMMER: JLB DTSCU805 00020 * DTSCU805 00021 * 04/01/94 MODIFIED FOR MONTANA. DTSCU805 00022 * WORK ORDER: PROGRAMMER: EHH DTSCU805 00023 * DTSCU805 00024 * 12/08/94 ADD A CONSTRUCTABLE ERROR MESSAGE (E051). DTSCU805 00025 * WORK ORDER: PROGRAMMER: RHC DTSCU805 00026 * DTSCU805 00027 * 10/03/95 ADD NEW JOINT REGISTRATION ERROR MESSAGES. DTSCU805 00028 * WORK ORDER: JR PROGRAMMER: EHH DTSCU805 00029 * DTSCU805 00030 * 08/12/1998 REVIEWED AND MODIFIED FOR DC. CL**2 00031 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH CL**2 00032 * CL**2 00033 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2 00034 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2 00035 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX CL**2 00036 * DTSCU805 00037 * DTSCU805 00038 * DESCRIPTION: DTSCU805 00039 * DTSCU805 00040 * SCREEN PROCESSING MODULES LINK DTSCU805 FOR ASSISTANCE CL**2 00041 * IN BUILDING A SCREEN SEND/RECEIVE MESSAGE AREA. DTSCU805 00042 * DTSCU805 00043 * IF L805-NO-MSG DTSCU805 00044 * INITIALIZE L805-S-MSG-AREA TO NULL DTSCU805 00045 * GO TO EXIT. DTSCU805 00046 * DTSCU805 00047 * IF L805-MSG-TEXT IS EQUAL TO SPACES OR LOW VALUES, TRY TO DTSCU805 00048 * FIND THE APPROPRIATE MESSAGE TEXT. DTSCU805 00049 * DTSCU805 00050 * MOVE L805-MSG-ID TO L805-S-MSG-ID. DTSCU805 00051 * MOVE L805-MSG-TEXT TO L805-S-MSG-TEXT. DTSCU805 00052 * DTSCU805 00053 * SET L805-S-MSG-ID-A TO HIGH INTENSITY DTSCU805 00054 * SET L805-S-MSG-TEXT-A TO HIGH INTENSITY. DTSCU805 00055 * DTSCU805 00056 * DTSCU805 00057 ***** DTSCU805 00058 SKIP3 DTSCU805 00059 ENVIRONMENT DIVISION. DTSCU805 00060 SKIP3 DTSCU805 00061 DATA DIVISION. DTSCU805 00062 SKIP3 DTSCU805 00063 WORKING-STORAGE SECTION. DTSCU805 000635 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU805 08/12/98'. DTSCU805 00064 SKIP3 DTSCU805 00065 01 WRK-AREA. DTSCU805 00066 05 WRK-ABEND-CD PIC X(04) VALUE 'U805'. DTSCU805 00067 05 WRK-RESP-CD PIC S9(08) COMP. DTSCU805 00068 CL**3 00069 05 WRK-MSG-NO PIC 9(03). DTSCU805 00070 CL**3 00071 05 MSG-INVALID-ID. DTSCU805 00072 10 FILLER PIC X(30) DTSCU805 00073 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00074 10 FILLER PIC X(30) DTSCU805 00075 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00076 EJECT DTSCU805 00077 01 CATB-LIT. DTSCU805 00078 ++INCLUDE DTSICATB CL**2 00079 EJECT DTSCU805 00080 01 EMSG-TEXT-AREA. DTSCU805 00081 05 E001-DUPLICATE. DTSCU805 00082 10 FILLER PIC X(30) DTSCU805 00083 VALUE 'DUPLICATE FOUND - ADD IS NOT V'. DTSCU805 00084 10 FILLER PIC X(30) DTSCU805 00085 VALUE 'ALID '. DTSCU805 00086 CL**3 00087 05 E002-NO-RECORD. DTSCU805 00088 10 FILLER PIC X(30) DTSCU805 00089 VALUE 'NO RECORD - RECORD DOES NOT CU'. DTSCU805 00090 10 FILLER PIC X(30) DTSCU805 00091 VALUE 'RRENTLY RESIDE ON FILE '. DTSCU805 00092 CL**3 00093 05 E003-NOT-ALLOWED. DTSCU805 00094 10 FILLER PIC X(30) DTSCU805 00095 VALUE 'NOT ALLOWED - ENTRY INTO INDIC'. DTSCU805 00096 10 FILLER PIC X(30) DTSCU805 00097 VALUE 'ATED FIELD NOT ALLOWED '. DTSCU805 00098 CL**3 00099 05 E004-BANKRUPT. DTSCU805 00100 10 FILLER PIC X(30) DTSCU805 00101 VALUE 'BANKRUPT - EMPLOYER MAY NOT BE'. DTSCU805 00102 10 FILLER PIC X(30) DTSCU805 00103 VALUE ' ACTIVATED '. DTSCU805 00104 CL**3 00105 05 E005-INVALID-ID. DTSCU805 00106 10 FILLER PIC X(30) DTSCU805 00107 VALUE 'TRANSACTION SELECTION IS INVAL'. DTSCU805 00108 10 FILLER PIC X(30) DTSCU805 00109 VALUE 'ID '. DTSCU805 00110 CL**3 00111 05 E006-SEARCH-CRITERIA. DTSCU805 00112 10 FILLER PIC X(30) DTSCU805 00113 VALUE 'NO RECORD - MODIFY SEARCH CRIT'. DTSCU805 00114 10 FILLER PIC X(30) DTSCU805 00115 VALUE 'ERIA '. DTSCU805 00116 CL**3 00117 05 E007-INVALID-ID. DTSCU805 00118 10 FILLER PIC X(30) DTSCU805 00119 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00120 10 FILLER PIC X(30) DTSCU805 00121 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00122 CL**3 00123 05 E008-INVALID-ID. DTSCU805 00124 10 FILLER PIC X(30) DTSCU805 00125 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00126 10 FILLER PIC X(30) DTSCU805 00127 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00128 CL**3 00129 05 E009-INVALID-ID. DTSCU805 00130 10 FILLER PIC X(30) DTSCU805 00131 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00132 10 FILLER PIC X(30) DTSCU805 00133 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00134 CL**3 00135 05 E010-INVALID-ID. DTSCU805 00136 10 FILLER PIC X(30) DTSCU805 00137 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00138 10 FILLER PIC X(30) DTSCU805 00139 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00140 CL**3 00141 05 E011-FIELD-NOT-VALID. DTSCU805 00142 10 FILLER PIC X(30) DTSCU805 00143 VALUE 'NOT VALID - VALUE IN INDICATED'. DTSCU805 00144 10 FILLER PIC X(30) DTSCU805 00145 VALUE ' FIELD IS NOT A VALID VALUE '. DTSCU805 00146 CL**3 00147 05 E012-FIELD-REQUIRED. DTSCU805 00148 10 FILLER PIC X(30) DTSCU805 00149 VALUE 'REQUIRED - ENTRY IS REQUIRED I'. DTSCU805 00150 10 FILLER PIC X(30) DTSCU805 00151 VALUE 'N INDICATED FIELD '. DTSCU805 00152 CL**3 00153 05 E013-NEGATIVE-NOT-VALID. DTSCU805 00154 10 FILLER PIC X(30) DTSCU805 00155 VALUE 'NEGATIVE VALUE IS NOT VALID IN'. DTSCU805 00156 10 FILLER PIC X(30) DTSCU805 00157 VALUE ' INDICATED FIELD '. DTSCU805 00158 CL**3 00159 05 E014-EXCEEDS-MIN-MAX. DTSCU805 00160 10 FILLER PIC X(30) DTSCU805 00161 VALUE 'VALUE IN INDICATED FIELD IS NO'. DTSCU805 00162 10 FILLER PIC X(30) DTSCU805 00163 VALUE 'T AN ALLOWABLE VALUE '. DTSCU805 00164 CL**3 00165 05 E015-CROSS-EDIT. DTSCU805 00166 10 FILLER PIC X(30) DTSCU805 00167 VALUE 'NOT VALID - FAILED DATA ELEMEN'. DTSCU805 00168 10 FILLER PIC X(30) DTSCU805 00169 VALUE 'T CROSS EDITS '. DTSCU805 00170 CL**3 00171 05 E016-INVALID-ID. DTSCU805 00172 10 FILLER PIC X(30) DTSCU805 00173 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00174 10 FILLER PIC X(30) DTSCU805 00175 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00176 CL**3 00177 05 E017-INVALID-ID. DTSCU805 00178 10 FILLER PIC X(30) DTSCU805 00179 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00180 10 FILLER PIC X(30) DTSCU805 00181 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00182 CL**3 00183 05 E018-INVALID-ID. DTSCU805 00184 10 FILLER PIC X(30) DTSCU805 00185 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00186 10 FILLER PIC X(30) DTSCU805 00187 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00188 CL**3 00189 05 E019-INVALID-ID. DTSCU805 00190 10 FILLER PIC X(30) DTSCU805 00191 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00192 10 FILLER PIC X(30) DTSCU805 00193 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00194 CL**3 00195 05 E020-INVALID-ID. DTSCU805 00196 10 FILLER PIC X(30) DTSCU805 00197 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00198 10 FILLER PIC X(30) DTSCU805 00199 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00200 CL**3 00201 05 E021-NO-EMPLOYER. DTSCU805 00202 10 FILLER PIC X(30) DTSCU805 00203 VALUE 'EMPLOYER DOES NOT EXIST '. DTSCU805 00204 10 FILLER PIC X(30) DTSCU805 00205 VALUE ' '. DTSCU805 00206 CL**3 00207 05 E022-NO-ASSIGNMENT. DTSCU805 00208 10 FILLER PIC X(30) DTSCU805 00209 VALUE 'ASSIGNMENT DOES NOT EXIST '. DTSCU805 00210 10 FILLER PIC X(30) DTSCU805 00211 VALUE ' '. DTSCU805 00212 CL**3 00213 05 E023-NO-BATCH. DTSCU805 00214 10 FILLER PIC X(30) DTSCU805 00215 VALUE 'BATCH DOES NOT EXIST '. DTSCU805 00216 10 FILLER PIC X(30) DTSCU805 00217 VALUE ' '. DTSCU805 00218 CL**3 00219 05 E024-NO-DOC. DTSCU805 00220 10 FILLER PIC X(30) DTSCU805 00221 VALUE 'DOCUMENT DOES NOT EXIST '. DTSCU805 00222 10 FILLER PIC X(30) DTSCU805 00223 VALUE ' '. DTSCU805 00224 CL**3 00225 05 E025-ADD-PRECEDED. DTSCU805 00226 10 FILLER PIC X(30) DTSCU805 00227 VALUE 'ADD MUST BE PRECEDED BY CLEAR '. DTSCU805 00228 10 FILLER PIC X(30) DTSCU805 00229 VALUE ' '. DTSCU805 00230 CL**3 00231 05 E026-MOD-PRECEDED. DTSCU805 00232 10 FILLER PIC X(30) DTSCU805 00233 VALUE 'MODIFY MUST BE PRECEDED BY INQ'. DTSCU805 00234 10 FILLER PIC X(30) DTSCU805 00235 VALUE 'UIRY '. DTSCU805 00236 CL**3 00237 05 E027-DEL-PRECEDED. DTSCU805 00238 10 FILLER PIC X(30) DTSCU805 00239 VALUE 'DELETE MUST BE PRECEDED BY INQ'. DTSCU805 00240 10 FILLER PIC X(30) DTSCU805 00241 VALUE 'UIRY '. DTSCU805 00242 CL**3 00243 05 E028-PRINT-PRECEDED. CL**2 00244 10 FILLER PIC X(30) DTSCU805 00245 VALUE 'PRINT MUST BE PRECEDED BY INQU'. DTSCU805 00246 10 FILLER PIC X(30) DTSCU805 00247 VALUE 'IRY '. DTSCU805 00248 CL**3 00249 05 E029-EMP-LOCKED. DTSCU805 00250 10 FILLER PIC X(30) DTSCU805 00251 VALUE 'EMPLOYER LOCKED AGAINST UPDATE'. DTSCU805 00252 10 FILLER PIC X(30) DTSCU805 00253 VALUE ' (PRIOR UPDATE FAILED) '. DTSCU805 00254 CL**3 00255 05 E030-MARKED-FOR-PURGE. DTSCU805 00256 10 FILLER PIC X(30) DTSCU805 00257 VALUE 'EMPLOYER MARKED FOR PURGE UPD'. DTSCU805 00258 10 FILLER PIC X(30) DTSCU805 00259 VALUE 'ATE NOT ALLOWED '. DTSCU805 00260 CL**3 00261 05 E031-NOT-CURRENT-UPDATE. DTSCU805 00262 10 FILLER PIC X(30) DTSCU805 00263 VALUE 'DISPLAY MAY NOT BE CURRENT RE'. DTSCU805 00264 10 FILLER PIC X(30) DTSCU805 00265 VALUE 'DISPLAY AND RETRY UPDATE '. DTSCU805 00266 CL**3 00267 05 E032-NOT-CURRENT-PRINT. DTSCU805 00268 10 FILLER PIC X(30) DTSCU805 00269 VALUE 'DISPLAY MAY NOT BE CURRENT RE'. DTSCU805 00270 10 FILLER PIC X(30) DTSCU805 00271 VALUE 'DISPLAY AND RETRY PRINT '. DTSCU805 00272 CL**3 00273 05 E033-NO-EMP-NO-CHANGE. DTSCU805 00274 10 FILLER PIC X(30) DTSCU805 00275 VALUE 'EMP NO MAY NOT BE CHANGED DURI'. DTSCU805 00276 10 FILLER PIC X(30) DTSCU805 00277 VALUE 'NG MODIFY OR DELETE '. DTSCU805 00278 CL**3 00279 05 E034-NO-BATCH-NO-CHANGE. DTSCU805 00280 10 FILLER PIC X(30) DTSCU805 00281 VALUE 'BATCH NO MAY NOT BE CHANGED DU'. DTSCU805 00282 10 FILLER PIC X(30) DTSCU805 00283 VALUE 'RING MODIFY OR DELETE '. DTSCU805 00284 CL**3 00285 05 E035-NO-ASSIGN-NO-CHANGE. DTSCU805 00286 10 FILLER PIC X(30) DTSCU805 00287 VALUE 'ASSIGN NO MAY NOT BE CHANGED D'. DTSCU805 00288 10 FILLER PIC X(30) DTSCU805 00289 VALUE 'URING MODIFY OR DELETE '. DTSCU805 00290 CL**3 00291 05 E036-NO-ITEM-NO-CHANGE. DTSCU805 00292 10 FILLER PIC X(30) DTSCU805 00293 VALUE 'ITEM NO MAY NOT BE CHANGED DUR'. DTSCU805 00294 10 FILLER PIC X(30) DTSCU805 00295 VALUE 'ING MODIFY OR DELETE '. DTSCU805 00296 CL**3 00297 05 E037-NO-FIELD-CHANGE-UPDATE. DTSCU805 00298 10 FILLER PIC X(30) DTSCU805 00299 VALUE 'FIELD MAY NOT BE CHANGED DURIN'. DTSCU805 00300 10 FILLER PIC X(30) DTSCU805 00301 VALUE 'G MODIFY OR DELETE '. DTSCU805 00302 CL**3 00303 05 E038-NO-FIELD-CHANGE-PRINT. DTSCU805 00304 10 FILLER PIC X(30) DTSCU805 00305 VALUE 'FIELD MAY NOT BE CHANGED DURIN'. DTSCU805 00306 10 FILLER PIC X(30) DTSCU805 00307 VALUE 'G PRINT '. DTSCU805 00308 CL**3 00309 05 E039-COLLECTIONS-WRITTEN-OFF. CL**2 00310 10 FILLER PIC X(30) DTSCU805 00311 VALUE 'EMPLOYER WRITTEN OFF UPDATE N'. CL**2 00312 10 FILLER PIC X(30) DTSCU805 00313 VALUE 'OT ALLOWED '. CL**2 00314 CL**3 00315 05 E040-INVALID-ID. DTSCU805 00316 10 FILLER PIC X(30) DTSCU805 00317 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00318 10 FILLER PIC X(30) DTSCU805 00319 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00320 CL**3 00321 05 E041-INVALID-ID. CL**2 00322 10 FILLER PIC X(30) DTSCU805 00323 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00324 10 FILLER PIC X(30) DTSCU805 00325 VALUE 'NOTIFY PROGRAMMING '. CL**2 00326 CL**3 00327 05 E042-DUPLICATE-FEIN. DTSCU805 00328 10 FILLER PIC X(30) DTSCU805 00329 VALUE 'ACTIVE EMPLOYER WITH SPECIFIED'. DTSCU805 00330 10 FILLER PIC X(30) DTSCU805 00331 VALUE ' FEIN ALREADY EXISTS '. DTSCU805 00332 CL**3 00333 05 E043-PRINT-FAILED. DTSCU805 00334 10 FILLER PIC X(30) DTSCU805 00335 VALUE 'PRINT FAILED PRINTER ID IS NO'. DTSCU805 00336 10 FILLER PIC X(30) DTSCU805 00337 VALUE 'T VALID OR NOT AVAILABLE '. DTSCU805 00338 CL**3 00339 05 E044-NO-ADDRESS. DTSCU805 00340 10 FILLER PIC X(30) DTSCU805 00341 VALUE 'REQUESTED ADDRESS DOES NOT EXI'. DTSCU805 00342 10 FILLER PIC X(30) DTSCU805 00343 VALUE 'ST '. DTSCU805 00344 CL**3 00345 05 E045-NO-AHDR-RECORD. DTSCU805 00346 10 FILLER PIC X(30) DTSCU805 00347 VALUE 'ACCOUNTING BATCH HEADER RECORD'. DTSCU805 00348 10 FILLER PIC X(30) DTSCU805 00349 VALUE ' NOT FOUND '. DTSCU805 00350 CL**3 00351 05 E046-BATCH-FULL. DTSCU805 00352 10 FILLER PIC X(30) DTSCU805 00353 VALUE 'BATCH IS FULL ADDITIONAL TRAN'. DTSCU805 00354 10 FILLER PIC X(30) DTSCU805 00355 VALUE 'SACTIONS MAY NOT BE ADDED '. DTSCU805 00356 CL**3 00357 05 E047-INVALID-ID. CL**2 00358 10 FILLER PIC X(30) DTSCU805 00359 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00360 10 FILLER PIC X(30) DTSCU805 00361 VALUE 'NOTIFY PROGRAMMING '. CL**2 00362 CL**3 00363 05 E048-OLD-RECEIVED-DATE. DTSCU805 00364 10 FILLER PIC X(30) DTSCU805 00365 VALUE 'RCVD DATE NOT WITHIN ONE YEAR '. DTSCU805 00366 10 FILLER PIC X(30) DTSCU805 00367 VALUE 'OF CURRENT DATE DISREGARD? '. DTSCU805 00368 CL**3 00369 05 E049-INVALID-ID. DTSCU805 00370 10 FILLER PIC X(30) DTSCU805 00371 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00372 10 FILLER PIC X(30) DTSCU805 00373 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00374 CL**3 00375 05 E050-INVALID-ID. DTSCU805 00376 10 FILLER PIC X(30) DTSCU805 00377 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00378 10 FILLER PIC X(30) DTSCU805 00379 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00380 CL**3 00381 05 E051-INVALID-ID. DTSCU805 00382 10 FILLER PIC X(30) DTSCU805 00383 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00384 10 FILLER PIC X(30) DTSCU805 00385 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00386 CL**3 00387 05 E052-INVALID-ID. DTSCU805 00388 10 FILLER PIC X(30) DTSCU805 00389 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00390 10 FILLER PIC X(30) DTSCU805 00391 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00392 CL**3 00393 05 E053-INVALID-ID. DTSCU805 00394 10 FILLER PIC X(30) DTSCU805 00395 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00396 10 FILLER PIC X(30) DTSCU805 00397 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00398 CL**3 00399 05 E054-INVALID-ID. DTSCU805 00400 10 FILLER PIC X(30) DTSCU805 00401 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00402 10 FILLER PIC X(30) DTSCU805 00403 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00404 CL**3 00405 05 E055-INVALID-ID. DTSCU805 00406 10 FILLER PIC X(30) DTSCU805 00407 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00408 10 FILLER PIC X(30) DTSCU805 00409 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00410 CL**3 00411 05 E056-INVALID-ID. DTSCU805 00412 10 FILLER PIC X(30) DTSCU805 00413 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00414 10 FILLER PIC X(30) DTSCU805 00415 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00416 CL**3 00417 05 E057-INVALID-ID. DTSCU805 00418 10 FILLER PIC X(30) DTSCU805 00419 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00420 10 FILLER PIC X(30) DTSCU805 00421 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00422 CL**3 00423 05 E058-INVALID-ID. DTSCU805 00424 10 FILLER PIC X(30) DTSCU805 00425 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00426 10 FILLER PIC X(30) DTSCU805 00427 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00428 CL**3 00429 05 E059-INVALID-ID. DTSCU805 00430 10 FILLER PIC X(30) DTSCU805 00431 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00432 10 FILLER PIC X(30) DTSCU805 00433 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00434 CL**3 00435 05 E060-INVALID-ID. DTSCU805 00436 10 FILLER PIC X(30) DTSCU805 00437 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00438 10 FILLER PIC X(30) DTSCU805 00439 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00440 CL**3 00441 05 E061-INVALID-ID. CL**2 00442 10 FILLER PIC X(30) CL**2 00443 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00444 10 FILLER PIC X(30) CL**2 00445 VALUE 'NOTIFY PROGRAMMING '. CL**2 00446 CL**3 00447 05 E062-INVALID-ID. CL**2 00448 10 FILLER PIC X(30) CL**2 00449 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00450 10 FILLER PIC X(30) CL**2 00451 VALUE 'NOTIFY PROGRAMMING '. CL**2 00452 CL**3 00453 05 E063-INVALID-ID. CL**2 00454 10 FILLER PIC X(30) CL**2 00455 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00456 10 FILLER PIC X(30) CL**2 00457 VALUE 'NOTIFY PROGRAMMING '. CL**2 00458 CL**3 00459 05 E064-INVALID-ID. CL**2 00460 10 FILLER PIC X(30) CL**2 00461 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00462 10 FILLER PIC X(30) CL**2 00463 VALUE 'NOTIFY PROGRAMMING '. CL**2 00464 CL**3 00465 05 E065-INVALID-ID. CL**2 00466 10 FILLER PIC X(30) CL**2 00467 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00468 10 FILLER PIC X(30) CL**2 00469 VALUE 'NOTIFY PROGRAMMING '. CL**2 00470 CL**3 00471 05 E066-INVALID-ID. CL**2 00472 10 FILLER PIC X(30) CL**2 00473 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00474 10 FILLER PIC X(30) CL**2 00475 VALUE 'NOTIFY PROGRAMMING '. CL**2 00476 CL**3 00477 05 E067-INVALID-ID. CL**2 00478 10 FILLER PIC X(30) CL**2 00479 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00480 10 FILLER PIC X(30) CL**2 00481 VALUE 'NOTIFY PROGRAMMING '. CL**2 00482 CL**3 00483 05 E068-INVALID-ID. CL**2 00484 10 FILLER PIC X(30) CL**2 00485 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00486 10 FILLER PIC X(30) CL**2 00487 VALUE 'NOTIFY PROGRAMMING '. CL**2 00488 CL**3 00489 05 E069-INVALID-ID. CL**2 00490 10 FILLER PIC X(30) CL**2 00491 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**2 00492 10 FILLER PIC X(30) CL**2 00493 VALUE 'NOTIFY PROGRAMMING '. CL**2 00494 CL**3 00495 05 E070-INVALID-ID. DTSCU805 00496 10 FILLER PIC X(30) DTSCU805 00497 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00498 10 FILLER PIC X(30) DTSCU805 00499 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00500 SKIP2 DTSCU805 00501 01 FILLER REDEFINES EMSG-TEXT-AREA. DTSCU805 00502 05 EMSG-TEXT OCCURS 70 TIMES DTSCU805 00503 PIC X(60). DTSCU805 00504 EJECT DTSCU805 00505 01 PMSG-TEXT-AREA. DTSCU805 00506 05 P001-KEY-OPTION. DTSCU805 00507 10 FILLER PIC X(30) DTSCU805 00508 VALUE 'PLEASE KEY OPTION AND PRESS EN'. DTSCU805 00509 10 FILLER PIC X(30) DTSCU805 00510 VALUE 'TER '. DTSCU805 00511 CL**3 00512 05 P002-ADD-CONFIRM. DTSCU805 00513 10 FILLER PIC X(30) DTSCU805 00514 VALUE 'PRESS ENTER TO CONFIRM ADD; PR'. DTSCU805 00515 10 FILLER PIC X(30) DTSCU805 00516 VALUE 'ESS F12 TO CANCEL ADD '. DTSCU805 00517 CL**3 00518 05 P003-MOD-CONFIRM. DTSCU805 00519 10 FILLER PIC X(30) DTSCU805 00520 VALUE 'PRESS ENTER TO CONFIRM MODIFY;'. DTSCU805 00521 10 FILLER PIC X(30) DTSCU805 00522 VALUE ' PRESS F12 TO CANCEL MODIFY '. DTSCU805 00523 CL**3 00524 05 P004-DEL-CONFIRM. DTSCU805 00525 10 FILLER PIC X(30) DTSCU805 00526 VALUE 'PRESS ENTER TO CONFIRM DELETE;'. DTSCU805 00527 10 FILLER PIC X(30) DTSCU805 00528 VALUE ' PRESS F12 TO CANCEL DELETE '. DTSCU805 00529 CL**3 00530 05 P005-ADD-CANCELED. DTSCU805 00531 10 FILLER PIC X(30) DTSCU805 00532 VALUE 'ADD CANCELED '. DTSCU805 00533 10 FILLER PIC X(30) DTSCU805 00534 VALUE ' '. DTSCU805 00535 CL**3 00536 05 P006-MOD-CANCELED. DTSCU805 00537 10 FILLER PIC X(30) DTSCU805 00538 VALUE 'MODIFY CANCELED '. DTSCU805 00539 10 FILLER PIC X(30) DTSCU805 00540 VALUE ' '. DTSCU805 00541 CL**3 00542 05 P007-DEL-CANCELED. DTSCU805 00543 10 FILLER PIC X(30) DTSCU805 00544 VALUE 'DELETE CANCELED '. DTSCU805 00545 10 FILLER PIC X(30) DTSCU805 00546 VALUE ' '. DTSCU805 00547 CL**3 00548 05 P008-ADD-SUCCESSFUL. DTSCU805 00549 10 FILLER PIC X(30) DTSCU805 00550 VALUE 'ADD SUCCESSFUL '. DTSCU805 00551 10 FILLER PIC X(30) DTSCU805 00552 VALUE ' '. DTSCU805 00553 CL**3 00554 05 P009-MOD-SUCCESSFUL. DTSCU805 00555 10 FILLER PIC X(30) DTSCU805 00556 VALUE 'MODIFY SUCCESSFUL '. DTSCU805 00557 10 FILLER PIC X(30) DTSCU805 00558 VALUE ' '. DTSCU805 00559 CL**3 00560 05 P010-DEL-SUCCESSFUL. DTSCU805 00561 10 FILLER PIC X(30) DTSCU805 00562 VALUE 'DELETE SUCCESSFUL '. DTSCU805 00563 10 FILLER PIC X(30) DTSCU805 00564 VALUE ' '. DTSCU805 00565 CL**3 00566 05 P011-PRINT-CONFIRM. DTSCU805 00567 10 FILLER PIC X(30) DTSCU805 00568 VALUE 'PRESS ENTER TO CONFIRM PRINT; '. DTSCU805 00569 10 FILLER PIC X(30) DTSCU805 00570 VALUE 'PRESS F12 TO CANCEL PRINT '. DTSCU805 00571 CL**3 00572 05 P012-PRINT-CANCELED. DTSCU805 00573 10 FILLER PIC X(30) DTSCU805 00574 VALUE 'PRINT CANCELED '. DTSCU805 00575 10 FILLER PIC X(30) DTSCU805 00576 VALUE ' '. DTSCU805 00577 CL**3 00578 05 P013-PRINT-SUCCESSFUL. DTSCU805 00579 10 FILLER PIC X(30) DTSCU805 00580 VALUE 'PRINT SUCCESSFUL '. DTSCU805 00581 10 FILLER PIC X(30) DTSCU805 00582 VALUE ' '. DTSCU805 00583 CL**3 00584 05 P014-KEY-EMP-NO. DTSCU805 00585 10 FILLER PIC X(30) DTSCU805 00586 VALUE 'PLEASE KEY EMPLOYER NUMBER '. DTSCU805 00587 10 FILLER PIC X(30) DTSCU805 00588 VALUE ' '. DTSCU805 00589 CL**3 00590 05 P015-KEY-BATCH-NO. DTSCU805 00591 10 FILLER PIC X(30) DTSCU805 00592 VALUE 'PLEASE KEY BATCH NUMBER '. DTSCU805 00593 10 FILLER PIC X(30) DTSCU805 00594 VALUE ' '. DTSCU805 00595 CL**3 00596 05 P016-KEY-ASSIGN-NO. DTSCU805 00597 10 FILLER PIC X(30) DTSCU805 00598 VALUE 'PLEASE KEY ASSIGNMENT NUMBER '. DTSCU805 00599 10 FILLER PIC X(30) DTSCU805 00600 VALUE ' '. DTSCU805 00601 CL**3 00602 05 P017-KEY-DOC-NO. DTSCU805 00603 10 FILLER PIC X(30) DTSCU805 00604 VALUE 'PLEASE KEY DOCUMENT NUMBER '. DTSCU805 00605 10 FILLER PIC X(30) DTSCU805 00606 VALUE ' '. DTSCU805 00607 CL**3 00608 05 P018-INVALID-ID. DTSCU805 00609 10 FILLER PIC X(30) DTSCU805 00610 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00611 10 FILLER PIC X(30) DTSCU805 00612 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00613 CL**3 00614 05 P019-INVALID-ID. DTSCU805 00615 10 FILLER PIC X(30) DTSCU805 00616 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00617 10 FILLER PIC X(30) DTSCU805 00618 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00619 CL**3 00620 05 P020-INVALID-ID. DTSCU805 00621 10 FILLER PIC X(30) DTSCU805 00622 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00623 10 FILLER PIC X(30) DTSCU805 00624 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00625 CL**3 00626 05 P021-FIRST-PAGE. DTSCU805 00627 10 FILLER PIC X(30) DTSCU805 00628 VALUE 'FIRST PAGE OF INFORMATION DISP'. DTSCU805 00629 10 FILLER PIC X(30) DTSCU805 00630 VALUE 'LAYED. '. DTSCU805 00631 CL**3 00632 05 P022-LAST-PAGE. DTSCU805 00633 10 FILLER PIC X(30) DTSCU805 00634 VALUE 'LAST PAGE OF INFORMATION DISPL'. DTSCU805 00635 10 FILLER PIC X(30) DTSCU805 00636 VALUE 'AYED. '. DTSCU805 00637 CL**3 00638 05 P023-ONLY-PAGE. DTSCU805 00639 10 FILLER PIC X(30) DTSCU805 00640 VALUE 'ONLY PAGE OF INFORMATION DISPL'. DTSCU805 00641 10 FILLER PIC X(30) DTSCU805 00642 VALUE 'AYED. '. DTSCU805 00643 CL**3 00644 05 P024-INVALID-ID. DTSCU805 00645 10 FILLER PIC X(30) DTSCU805 00646 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00647 10 FILLER PIC X(30) DTSCU805 00648 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00649 CL**3 00650 05 P025-PRINT-CONFIRM-ALT. CL**3 00651 10 FILLER PIC X(30) DTSCU805 00652 VALUE 'PRESS ENTER (OR F9) TO CONFIRM'. DTSCU805 00653 10 FILLER PIC X(30) DTSCU805 00654 VALUE ' PRINT; PRESS F12 TO CANCEL '. DTSCU805 00655 CL**3 00656 05 P026-ADD-CONFIRM-ALT. DTSCU805 00657 10 FILLER PIC X(30) DTSCU805 00658 VALUE 'PRESS ENTER (OR F9) TO CONFIRM'. DTSCU805 00659 10 FILLER PIC X(30) DTSCU805 00660 VALUE ' ADD; PRESS F12 TO CANCEL ADD '. DTSCU805 00661 CL**3 00662 05 P027-INVALID-ID. CL**3 00663 10 FILLER PIC X(30) DTSCU805 00664 VALUE 'MESSAGE IDENTIFIER NOT VALID '. CL**3 00665 10 FILLER PIC X(30) DTSCU805 00666 VALUE 'NOTIFY PROGRAMMING '. CL**3 00667 CL**3 00668 05 P028-INVALID-ID. DTSCU805 00669 10 FILLER PIC X(30) DTSCU805 00670 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00671 10 FILLER PIC X(30) DTSCU805 00672 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00673 CL**3 00674 05 P029-INVALID-ID. DTSCU805 00675 10 FILLER PIC X(30) DTSCU805 00676 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00677 10 FILLER PIC X(30) DTSCU805 00678 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00679 CL**3 00680 05 P030-INVALID-ID. DTSCU805 00681 10 FILLER PIC X(30) DTSCU805 00682 VALUE 'MESSAGE IDENTIFIER NOT VALID '. DTSCU805 00683 10 FILLER PIC X(30) DTSCU805 00684 VALUE 'NOTIFY PROGRAMMING '. DTSCU805 00685 SKIP2 DTSCU805 00686 01 FILLER REDEFINES PMSG-TEXT-AREA. DTSCU805 00687 05 PMSG-TEXT OCCURS 30 TIMES DTSCU805 00688 PIC X(60). DTSCU805 00689 EJECT DTSCU805 00690 LINKAGE SECTION. DTSCU805 00691 SKIP3 DTSCU805 00692 01 DFHCOMMAREA. DTSCU805 00693 ++INCLUDE DTSIL805 CL**2 00694 EJECT DTSCU805 00695 PROCEDURE DIVISION. DTSCU805 00696 SKIP2 DTSCU805 00697 MOVE LOW-VALUES TO L805-S-MSG-AREA. DTSCU805 00698 CL**3 00699 MOVE 'DTS' TO L805-S-MSG-ID (1:3). CL**2 00700 CL**3 00701 IF L805-NO-MSG DTSCU805 00702 *********SET ATTRIBUTE TO 'DARK' IF THE USERS DON'T LIKE 'DTS' CL**2 00703 MOVE CATB-ASKIP-NORM-MDTOFF TO L805-S-MSG-ID-A DTSCU805 00704 L805-S-MSG-TEXT-A CL**3 00705 ELSE DTSCU805 00706 MOVE L805-MSG-ID TO L805-S-MSG-ID (4:4) DTSCU805 00707 PERFORM P1000-MSG-TEXT THRU P1000-EXIT DTSCU805 00708 MOVE CATB-ASKIP-NORM-MDTOFF TO L805-S-MSG-ID-A DTSCU805 00709 MOVE CATB-ASKIP-BRT-MDTOFF TO L805-S-MSG-TEXT-A. DTSCU805 00710 SKIP2 DTSCU805 00711 EXEC CICS DTSCU805 00712 RETURN DTSCU805 00713 END-EXEC. DTSCU805 00714 SKIP2 DTSCU805 00715 *****GOBACK. CL**3 00716 EJECT DTSCU805 00717 P1000-MSG-TEXT. DTSCU805 00718 IF L805-MSG-TEXT = SPACES OR LOW-VALUES DTSCU805 00719 NEXT SENTENCE DTSCU805 00720 ELSE DTSCU805 00721 IF L805-CONSTRUCT-88 DTSCU805 00722 MOVE SPACE TO L805-S-MSG-TEXT DTSCU805 00723 STRING 'VALIDATE {' DELIMITED BY SIZE DTSCU805 00724 L805-MSG-TEXT DELIMITED BY ' ' DTSCU805 00725 '}' DELIMITED BY SIZE DTSCU805 00726 INTO L805-S-MSG-TEXT DTSCU805 00727 GO TO P1000-EXIT DTSCU805 00728 ELSE DTSCU805 00729 MOVE L805-MSG-TEXT TO L805-S-MSG-TEXT DTSCU805 00730 GO TO P1000-EXIT. DTSCU805 00731 CL**3 00732 IF L805-MSG-NO NUMERIC DTSCU805 00733 MOVE L805-MSG-NO TO WRK-MSG-NO DTSCU805 00734 ELSE DTSCU805 00735 MOVE MSG-INVALID-ID TO L805-S-MSG-TEXT DTSCU805 00736 GO TO P1000-EXIT. DTSCU805 00737 CL**3 00738 IF L805-PROMPT-MSG DTSCU805 00739 IF (WRK-MSG-NO > 0) DTSCU805 00740 AND DTSCU805 00741 (WRK-MSG-NO < 31) DTSCU805 00742 MOVE PMSG-TEXT (WRK-MSG-NO) TO L805-S-MSG-TEXT DTSCU805 00743 ELSE DTSCU805 00744 MOVE MSG-INVALID-ID TO L805-S-MSG-TEXT DTSCU805 00745 ELSE DTSCU805 00746 IF L805-ERROR-MSG DTSCU805 00747 IF (WRK-MSG-NO > 0) DTSCU805 00748 AND DTSCU805 00749 (WRK-MSG-NO < 71) DTSCU805 00750 MOVE EMSG-TEXT (WRK-MSG-NO) TO L805-S-MSG-TEXT DTSCU805 00751 ELSE DTSCU805 00752 MOVE MSG-INVALID-ID TO L805-S-MSG-TEXT DTSCU805 00753 ELSE DTSCU805 00754 MOVE MSG-INVALID-ID TO L805-S-MSG-TEXT. DTSCU805 00755 P1000-EXIT. DTSCU805 00756 EXIT. DTSCU805