DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
757
CICS/DTSCU805.cob
Normal file
757
CICS/DTSCU805.cob
Normal file
@ -0,0 +1,757 @@
|
||||
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
|
||||
Reference in New Issue
Block a user