00001 IDENTIFICATION DIVISION. 08/19/13 00002 PROGRAM-ID. DTSCU032. DTSCU032 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV009 00004 DATE-WRITTEN. MARCH 1994. DTSCU032 00005 DATE-COMPILED. DTSCU032 00006 SKIP3 DTSCU032 00007 ***** DTSCU032 00008 * DTSCU032 00009 * FUNCTION: ACCOUNTING CODES EDIT/DESCRIPTION. DTSCU032 00010 * DTSCU032 00011 * DTSCU032 00012 * MODIFICATION LOG: DTSCU032 00013 * DTSCU032 00014 * 03/29/94 INITIAL DEVELOPMENT. DTSCU032 00015 * WORK ORDER: PROGRAMMER: RHC DTSCU032 00016 * DTSCU032 00017 * 11/05/1998 REVIEWED AND MODIFIED FOR DC. DTSCU032 00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSCU032 00019 * DTSCU032 00020 * 05/27/1999 RECOMPILED DUE TO PICKUP MODIFICATIONS TO DTSCU032 00021 * DTSIR032. DTSCU032 00022 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSCU032 00023 * DTSCU032 00024 * 07/12/2007 RECOMPILED - ADDED "ANNUAL NOT LIABLE" TO DTSCU032 00025 * DTSIR032. DTSCU032 00026 * REFERENCE: PROGRAMMER: GD DTSCU032 00027 * DTSCU032 00028 * 03/09/2011 RECOMPILED - ADDED NP AND NR PAYMENT TYPES FOR DTSCU032 00029 * NON-DOES CHECKS. DTSCU032 00030 * REFERENCE: PROGRAMMER: GD DTSCU032 00031 * DTSCU032 00032 * 09/27/2012 RECOMPILED FOR CW AND CZ REPORT TYPES DTSCU032 00033 * REFERENCE: PROGRAMMER: GD DTSCU032 00034 * DTSCU032 00035 * 07/26/2013 RECOMPILED FOR SUTA DUMPING PAYMENT TYPE DTSCU032 00036 * REFERENCE: TICKET 1969 PROGRAMMER: GD DTSCU032 00037 * DTSCU032 00038 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU032 00039 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU032 00040 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSCU032 00041 * DTSCU032 00042 * DTSCU032 00043 * DESCRIPTION: DTSCU032 00044 * DTSCU032 00045 * DTSCU032 EDITS ACCOUNTING CODES AND INDICATORS. DTSCU032 00046 * DTSCU032 00047 * DTSCU032 RETURNS A RESULT INDICATOR, A SHORT DESCRIPTION DTSCU032 00048 * OF THE CODE VALUE, AND A LONG DESCRIPTION OF THE CODE DTSCU032 00049 * VALUE. DTSCU032 00050 * DTSCU032 00051 * IF L032-OPTION IS NOT VALID, THEN ABEND THE TASK WITH AN DTSCU032 00052 * ABEND CODE OF 'U032'. DTSCU032 00053 * DTSCU032 00054 * GO TO DEPENDING ON L032-OPTION TO GET TO THE PARAGRAPH DTSCU032 00055 * THAT CARRIES OUT EDITING FOR THE DATA ELEMENT SPECIFIED DTSCU032 00056 * BY L032-OPTION. USE A SEARCH STATEMENT TO DETERMINE THE DTSCU032 00057 * VALIDITY OF L032-CD-*. DTSCU032 00058 * DTSCU032 00059 * IF L032-CD-* IS A VALID VALUE DTSCU032 00060 * MOVE '1' TO L032-RESULT-IND DTSCU032 00061 * MOVE THE APPROPRIATE C032-*-SHORT-DSCR DTSCU032 00062 * TO L032-SHORT-DSCR DTSCU032 00063 * MOVE THE APPROPRIATE C032-*-LONG-DSCR DTSCU032 00064 * TO L032-LONG-DSCR DTSCU032 00065 * ELSE DTSCU032 00066 * MOVE '2' TO L032-RESULT-IND DTSCU032 00067 * MOVE 'NOT VALID' TO L032-SHORT-DSCR DTSCU032 00068 * L032-LONG-DSCR. DTSCU032 00069 * DTSCU032 00070 ***** DTSCU032 00071 SKIP3 DTSCU032 00072 ENVIRONMENT DIVISION. DTSCU032 00073 SKIP3 DTSCU032 00074 DATA DIVISION. DTSCU032 00075 SKIP3 DTSCU032 00076 WORKING-STORAGE SECTION. DTSCU032 000765 77 PAN-VALET PICTURE X(24) VALUE '009DTSCU032 08/19/13'. DTSCU032 00077 77 PAN-VALET PICTURE X(24) VALUE '002DTSCU032 07/26/13'. DTSCU032 00078 77 PAN-VALET PICTURE X(24) VALUE '007DTSCU032 05/20/13'. DTSCU032 00079 77 PAN-VALET PICTURE X(24) VALUE '002DTSCU032 09/27/12'. DTSCU032 00080 77 PAN-VALET PICTURE X(24) VALUE '001DTSCU032 04/12/11'. DTSCU032 00081 SKIP3 DTSCU032 00082 01 WRK-AREA. DTSCU032 00083 05 WRK-ABEND-CODE PIC X(04) VALUE 'U032'. DTSCU032 00084 DTSCU032 00085 05 WRK-RESP-CODE PIC S9(08) COMP. DTSCU032 00086 EJECT DTSCU032 00087 01 C032-LITERALS. DTSCU032 00088 ++INCLUDE DTSIC032 DTSCU032 00089 EJECT DTSCU032 00090 LINKAGE SECTION. DTSCU032 00091 SKIP3 DTSCU032 00092 01 DFHCOMMAREA. DTSCU032 00093 ++INCLUDE DTSIL032 DTSCU032 00094 EJECT DTSCU032 00095 PROCEDURE DIVISION. DTSCU032 00096 DTSCU032 00097 DTSCU032 00098 SET L032-NOT-VALID TO TRUE. DTSCU032 00099 DTSCU032 00100 MOVE 'NOT VALID' TO L032-SHORT-DSCR DTSCU032 00101 L032-LONG-DSCR. DTSCU032 00102 DTSCU032 00103 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSCU032 00104 DTSCU032 00105 DTSCU032 00106 EXEC CICS DTSCU032 00107 RETURN DTSCU032 00108 END-EXEC. DTSCU032 00109 DTSCU032 00110 DTSCU032 00111 GOBACK. DTSCU032 00112 EJECT DTSCU032 00113 P1000-PROCESS. DTSCU032 00114 GO TO P1000-01 DTSCU032 00115 P1000-02 DTSCU032 00116 P1000-03 DTSCU032 00117 P1000-04 DTSCU032 00118 P1000-05 DTSCU032 00119 P1000-06 DTSCU032 00120 S899-ABEND DTSCU032 00121 S899-ABEND DTSCU032 00122 S899-ABEND DTSCU032 00123 S899-ABEND DTSCU032 00124 P1000-11 DTSCU032 00125 P1000-12 DTSCU032 00126 S899-ABEND DTSCU032 00127 S899-ABEND DTSCU032 00128 S899-ABEND DTSCU032 00129 P1000-16 DTSCU032 00130 P1000-17 DTSCU032 00131 S899-ABEND DTSCU032 00132 S899-ABEND DTSCU032 00133 S899-ABEND DTSCU032 00134 P1000-21 DTSCU032 00135 P1000-22 DTSCU032 00136 P1000-23 DTSCU032 00137 P1000-24 DTSCU032 00138 P1000-25 DTSCU032 00139 P1000-26 DTSCU032 00140 P1000-27 DTSCU032 00141 P1000-28 DTSCU032 00142 S899-ABEND DTSCU032 00143 S899-ABEND DTSCU032 00144 P1000-31 DTSCU032 00145 P1000-32 DTSCU032 00146 P1000-33 DTSCU032 00147 P1000-34 DTSCU032 00148 S899-ABEND DTSCU032 00149 P1000-36 DTSCU032 00150 P1000-37 DTSCU032 00151 S899-ABEND DTSCU032 00152 S899-ABEND DTSCU032 00153 S899-ABEND DTSCU032 00154 P1000-41 DTSCU032 00155 P1000-42 DTSCU032 00156 P1000-43 DTSCU032 00157 P1000-44 DTSCU032 00158 P1000-45 DTSCU032 00159 P1000-46 DTSCU032 00160 DEPENDING ON L032-OPTION. DTSCU032 00161 DTSCU032 00162 PERFORM S899-ABEND THRU S899-EXIT. DTSCU032 00163 SKIP3 DTSCU032 00164 P1000-01. DTSCU032 00165 SET C032-01-IDX TO 1. DTSCU032 00166 SEARCH C032-01-ENTRY DTSCU032 00167 VARYING DTSCU032 00168 C032-01-IDX DTSCU032 00169 WHEN L032-CD-1 = C032-01-CD (C032-01-IDX) DTSCU032 00170 MOVE '1' TO L032-RESULT-IND DTSCU032 00171 MOVE C032-01-SHORT-DSCR (C032-01-IDX) DTSCU032 00172 TO L032-SHORT-DSCR DTSCU032 00173 MOVE C032-01-LONG-DSCR (C032-01-IDX) DTSCU032 00174 TO L032-LONG-DSCR. DTSCU032 00175 DTSCU032 00176 GO TO P1000-EXIT. DTSCU032 00177 SKIP3 DTSCU032 00178 P1000-02. DTSCU032 00179 SET C032-02-IDX TO 1. DTSCU032 00180 SEARCH C032-02-ENTRY DTSCU032 00181 VARYING DTSCU032 00182 C032-02-IDX DTSCU032 00183 WHEN L032-CD-1 = C032-02-CD (C032-02-IDX) DTSCU032 00184 MOVE '1' TO L032-RESULT-IND DTSCU032 00185 MOVE C032-02-SHORT-DSCR (C032-02-IDX) DTSCU032 00186 TO L032-SHORT-DSCR DTSCU032 00187 MOVE C032-02-LONG-DSCR (C032-02-IDX) DTSCU032 00188 TO L032-LONG-DSCR. DTSCU032 00189 DTSCU032 00190 GO TO P1000-EXIT. DTSCU032 00191 SKIP3 DTSCU032 00192 P1000-03. DTSCU032 00193 SET C032-03-IDX TO 1. DTSCU032 00194 SEARCH C032-03-ENTRY DTSCU032 00195 VARYING DTSCU032 00196 C032-03-IDX DTSCU032 00197 WHEN L032-CD-1 = C032-03-CD (C032-03-IDX) DTSCU032 00198 MOVE '1' TO L032-RESULT-IND DTSCU032 00199 MOVE C032-03-SHORT-DSCR (C032-03-IDX) DTSCU032 00200 TO L032-SHORT-DSCR DTSCU032 00201 MOVE C032-03-LONG-DSCR (C032-03-IDX) DTSCU032 00202 TO L032-LONG-DSCR. DTSCU032 00203 DTSCU032 00204 GO TO P1000-EXIT. DTSCU032 00205 SKIP3 DTSCU032 00206 P1000-04. DTSCU032 00207 SET C032-04-IDX TO 1. DTSCU032 00208 SEARCH C032-04-ENTRY DTSCU032 00209 VARYING DTSCU032 00210 C032-04-IDX DTSCU032 00211 WHEN L032-CD-1 = C032-04-CD (C032-04-IDX) DTSCU032 00212 MOVE '1' TO L032-RESULT-IND DTSCU032 00213 MOVE C032-04-SHORT-DSCR (C032-04-IDX) DTSCU032 00214 TO L032-SHORT-DSCR DTSCU032 00215 MOVE C032-04-LONG-DSCR (C032-04-IDX) DTSCU032 00216 TO L032-LONG-DSCR. DTSCU032 00217 DTSCU032 00218 GO TO P1000-EXIT. DTSCU032 00219 SKIP3 DTSCU032 00220 P1000-05. DTSCU032 00221 SET C032-05-IDX TO 1. DTSCU032 00222 SEARCH C032-05-ENTRY DTSCU032 00223 VARYING DTSCU032 00224 C032-05-IDX DTSCU032 00225 WHEN L032-CD-1 = C032-05-CD (C032-05-IDX) DTSCU032 00226 MOVE '1' TO L032-RESULT-IND DTSCU032 00227 MOVE C032-05-SHORT-DSCR (C032-05-IDX) DTSCU032 00228 TO L032-SHORT-DSCR DTSCU032 00229 MOVE C032-05-LONG-DSCR (C032-05-IDX) DTSCU032 00230 TO L032-LONG-DSCR. DTSCU032 00231 DTSCU032 00232 GO TO P1000-EXIT. DTSCU032 00233 SKIP3 DTSCU032 00234 P1000-06. DTSCU032 00235 SET C032-06-IDX TO 1. DTSCU032 00236 SEARCH C032-06-ENTRY DTSCU032 00237 VARYING DTSCU032 00238 C032-06-IDX DTSCU032 00239 WHEN L032-CD-1 = C032-06-CD (C032-06-IDX) DTSCU032 00240 MOVE '1' TO L032-RESULT-IND DTSCU032 00241 MOVE C032-06-SHORT-DSCR (C032-06-IDX) DTSCU032 00242 TO L032-SHORT-DSCR DTSCU032 00243 MOVE C032-06-LONG-DSCR (C032-06-IDX) DTSCU032 00244 TO L032-LONG-DSCR. DTSCU032 00245 DTSCU032 00246 GO TO P1000-EXIT. DTSCU032 00247 SKIP3 DTSCU032 00248 P1000-11. DTSCU032 00249 SET C032-11-IDX TO 1. DTSCU032 00250 SEARCH C032-11-ENTRY DTSCU032 00251 VARYING DTSCU032 00252 C032-11-IDX DTSCU032 00253 WHEN L032-CD-2 = C032-11-CD (C032-11-IDX) DTSCU032 00254 MOVE '1' TO L032-RESULT-IND DTSCU032 00255 MOVE C032-11-SHORT-DSCR (C032-11-IDX) DTSCU032 00256 TO L032-SHORT-DSCR DTSCU032 00257 MOVE C032-11-LONG-DSCR (C032-11-IDX) DTSCU032 00258 TO L032-LONG-DSCR. DTSCU032 00259 DTSCU032 00260 GO TO P1000-EXIT. DTSCU032 00261 SKIP3 DTSCU032 00262 P1000-12. DTSCU032 00263 SET C032-12-IDX TO 1. DTSCU032 00264 SEARCH C032-12-ENTRY DTSCU032 00265 VARYING DTSCU032 00266 C032-12-IDX DTSCU032 00267 WHEN L032-CD-2 = C032-12-CD (C032-12-IDX) DTSCU032 00268 MOVE '1' TO L032-RESULT-IND DTSCU032 00269 MOVE C032-12-SHORT-DSCR (C032-12-IDX) DTSCU032 00270 TO L032-SHORT-DSCR DTSCU032 00271 MOVE C032-12-LONG-DSCR (C032-12-IDX) DTSCU032 00272 TO L032-LONG-DSCR. DTSCU032 00273 DTSCU032 00274 GO TO P1000-EXIT. DTSCU032 00275 SKIP3 DTSCU032 00276 P1000-16. DTSCU032 00277 SET C032-16-IDX TO 1. DTSCU032 00278 SEARCH C032-16-ENTRY DTSCU032 00279 VARYING DTSCU032 00280 C032-16-IDX DTSCU032 00281 WHEN L032-CD-2 = C032-16-CD (C032-16-IDX) DTSCU032 00282 MOVE '1' TO L032-RESULT-IND DTSCU032 00283 MOVE C032-16-SHORT-DSCR (C032-16-IDX) DTSCU032 00284 TO L032-SHORT-DSCR DTSCU032 00285 MOVE C032-16-LONG-DSCR (C032-16-IDX) DTSCU032 00286 TO L032-LONG-DSCR. DTSCU032 00287 DTSCU032 00288 GO TO P1000-EXIT. DTSCU032 00289 SKIP3 DTSCU032 00290 P1000-17. DTSCU032 00291 SET C032-17-IDX TO 1. DTSCU032 00292 SEARCH C032-17-ENTRY DTSCU032 00293 VARYING DTSCU032 00294 C032-17-IDX DTSCU032 00295 WHEN L032-CD-1 = C032-17-CD (C032-17-IDX) DTSCU032 00296 MOVE '1' TO L032-RESULT-IND DTSCU032 00297 MOVE C032-17-SHORT-DSCR (C032-17-IDX) DTSCU032 00298 TO L032-SHORT-DSCR DTSCU032 00299 MOVE C032-17-LONG-DSCR (C032-17-IDX) DTSCU032 00300 TO L032-LONG-DSCR. DTSCU032 00301 DTSCU032 00302 GO TO P1000-EXIT. DTSCU032 00303 SKIP3 DTSCU032 00304 P1000-21. DTSCU032 00305 SET C032-21-22-IDX TO 1. DTSCU032 00306 SEARCH C032-21-22-ENTRY DTSCU032 00307 VARYING DTSCU032 00308 C032-21-22-IDX DTSCU032 00309 WHEN L032-CD-2 = C032-21-22-CD (C032-21-22-IDX) DTSCU032 00310 MOVE '1' TO L032-RESULT-IND DTSCU032 00311 MOVE C032-21-22-SHORT-DSCR (C032-21-22-IDX) DTSCU032 00312 TO L032-SHORT-DSCR DTSCU032 00313 MOVE C032-21-22-LONG-DSCR (C032-21-22-IDX) DTSCU032 00314 TO L032-LONG-DSCR. DTSCU032 00315 DTSCU032 00316 GO TO P1000-EXIT. DTSCU032 00317 SKIP3 DTSCU032 00318 P1000-22. DTSCU032 00319 SET C032-21-22-IDX TO 1. DTSCU032 00320 SEARCH C032-21-22-ENTRY DTSCU032 00321 VARYING DTSCU032 00322 C032-21-22-IDX DTSCU032 00323 WHEN L032-CD-2 = C032-21-22-CD (C032-21-22-IDX) DTSCU032 00324 MOVE '1' TO L032-RESULT-IND DTSCU032 00325 MOVE C032-21-22-SHORT-DSCR (C032-21-22-IDX) DTSCU032 00326 TO L032-SHORT-DSCR DTSCU032 00327 MOVE C032-21-22-LONG-DSCR (C032-21-22-IDX) DTSCU032 00328 TO L032-LONG-DSCR. DTSCU032 00329 DTSCU032 00330 GO TO P1000-EXIT. DTSCU032 00331 SKIP3 DTSCU032 00332 P1000-23. DTSCU032 00333 SET C032-23-IDX TO 1. DTSCU032 00334 SEARCH C032-23-ENTRY DTSCU032 00335 VARYING DTSCU032 00336 C032-23-IDX DTSCU032 00337 WHEN L032-CD-2 = C032-23-CD (C032-23-IDX) DTSCU032 00338 MOVE '1' TO L032-RESULT-IND DTSCU032 00339 MOVE C032-23-SHORT-DSCR (C032-23-IDX) DTSCU032 00340 TO L032-SHORT-DSCR DTSCU032 00341 MOVE C032-23-LONG-DSCR (C032-23-IDX) DTSCU032 00342 TO L032-LONG-DSCR. DTSCU032 00343 DTSCU032 00344 GO TO P1000-EXIT. DTSCU032 00345 SKIP3 DTSCU032 00346 P1000-24. DTSCU032 00347 SET C032-24-IDX TO 1. DTSCU032 00348 SEARCH C032-24-ENTRY DTSCU032 00349 VARYING DTSCU032 00350 C032-24-IDX DTSCU032 00351 WHEN L032-CD-2 = C032-24-CD (C032-24-IDX) DTSCU032 00352 MOVE '1' TO L032-RESULT-IND DTSCU032 00353 MOVE C032-24-SHORT-DSCR (C032-24-IDX) DTSCU032 00354 TO L032-SHORT-DSCR DTSCU032 00355 MOVE C032-24-LONG-DSCR (C032-24-IDX) DTSCU032 00356 TO L032-LONG-DSCR. DTSCU032 00357 DTSCU032 00358 GO TO P1000-EXIT. DTSCU032 00359 SKIP3 DTSCU032 00360 P1000-25. DTSCU032 00361 SET C032-25-26-IDX TO 1. DTSCU032 00362 SEARCH C032-25-26-ENTRY DTSCU032 00363 VARYING DTSCU032 00364 C032-25-26-IDX DTSCU032 00365 WHEN L032-CD-2 = C032-25-26-CD (C032-25-26-IDX) DTSCU032 00366 MOVE '1' TO L032-RESULT-IND DTSCU032 00367 MOVE C032-25-26-SHORT-DSCR (C032-25-26-IDX) DTSCU032 00368 TO L032-SHORT-DSCR DTSCU032 00369 MOVE C032-25-26-LONG-DSCR (C032-25-26-IDX) DTSCU032 00370 TO L032-LONG-DSCR. DTSCU032 00371 DTSCU032 00372 GO TO P1000-EXIT. DTSCU032 00373 SKIP3 DTSCU032 00374 P1000-26. DTSCU032 00375 SET C032-25-26-IDX TO 1. DTSCU032 00376 SEARCH C032-25-26-ENTRY DTSCU032 00377 VARYING DTSCU032 00378 C032-25-26-IDX DTSCU032 00379 WHEN L032-CD-2 = C032-25-26-CD (C032-25-26-IDX) DTSCU032 00380 MOVE '1' TO L032-RESULT-IND DTSCU032 00381 MOVE C032-25-26-SHORT-DSCR (C032-25-26-IDX) DTSCU032 00382 TO L032-SHORT-DSCR DTSCU032 00383 MOVE C032-25-26-LONG-DSCR (C032-25-26-IDX) DTSCU032 00384 TO L032-LONG-DSCR. DTSCU032 00385 DTSCU032 00386 GO TO P1000-EXIT. DTSCU032 00387 SKIP3 DTSCU032 00388 P1000-27. DTSCU032 00389 SET C032-27-28-IDX TO 1. DTSCU032 00390 SEARCH C032-27-28-ENTRY DTSCU032 00391 VARYING DTSCU032 00392 C032-27-28-IDX DTSCU032 00393 WHEN L032-CD-2 = C032-27-28-CD (C032-27-28-IDX) DTSCU032 00394 MOVE '1' TO L032-RESULT-IND DTSCU032 00395 MOVE C032-27-28-SHORT-DSCR (C032-27-28-IDX) DTSCU032 00396 TO L032-SHORT-DSCR DTSCU032 00397 MOVE C032-27-28-LONG-DSCR (C032-27-28-IDX) DTSCU032 00398 TO L032-LONG-DSCR. DTSCU032 00399 DTSCU032 00400 GO TO P1000-EXIT. DTSCU032 00401 SKIP3 DTSCU032 00402 P1000-28. DTSCU032 00403 SET C032-27-28-IDX TO 1. DTSCU032 00404 SEARCH C032-27-28-ENTRY DTSCU032 00405 VARYING DTSCU032 00406 C032-27-28-IDX DTSCU032 00407 WHEN L032-CD-2 = C032-27-28-CD (C032-27-28-IDX) DTSCU032 00408 MOVE '1' TO L032-RESULT-IND DTSCU032 00409 MOVE C032-27-28-SHORT-DSCR (C032-27-28-IDX) DTSCU032 00410 TO L032-SHORT-DSCR DTSCU032 00411 MOVE C032-27-28-LONG-DSCR (C032-27-28-IDX) DTSCU032 00412 TO L032-LONG-DSCR. DTSCU032 00413 DTSCU032 00414 GO TO P1000-EXIT. DTSCU032 00415 SKIP3 DTSCU032 00416 P1000-31. DTSCU032 00417 SET C032-31--36-IDX TO 1. DTSCU032 00418 SEARCH C032-31--36-ENTRY DTSCU032 00419 VARYING DTSCU032 00420 C032-31--36-IDX DTSCU032 00421 WHEN L032-CD-2 = C032-31--36-CD (C032-31--36-IDX) DTSCU032 00422 MOVE '1' TO L032-RESULT-IND DTSCU032 00423 MOVE C032-31--36-SHORT-DSCR (C032-31--36-IDX) DTSCU032 00424 TO L032-SHORT-DSCR DTSCU032 00425 MOVE C032-31--36-LONG-DSCR (C032-31--36-IDX) DTSCU032 00426 TO L032-LONG-DSCR. DTSCU032 00427 DTSCU032 00428 GO TO P1000-EXIT. DTSCU032 00429 SKIP3 DTSCU032 00430 P1000-32. DTSCU032 00431 SET C032-31--36-IDX TO 1. DTSCU032 00432 SEARCH C032-31--36-ENTRY DTSCU032 00433 VARYING DTSCU032 00434 C032-31--36-IDX DTSCU032 00435 WHEN L032-CD-2 = C032-31--36-CD (C032-31--36-IDX) DTSCU032 00436 MOVE '1' TO L032-RESULT-IND DTSCU032 00437 MOVE C032-31--36-SHORT-DSCR (C032-31--36-IDX) DTSCU032 00438 TO L032-SHORT-DSCR DTSCU032 00439 MOVE C032-31--36-LONG-DSCR (C032-31--36-IDX) DTSCU032 00440 TO L032-LONG-DSCR. DTSCU032 00441 DTSCU032 00442 GO TO P1000-EXIT. DTSCU032 00443 SKIP3 DTSCU032 00444 P1000-33. DTSCU032 00445 SET C032-33--34-IDX TO 1. DTSCU032 00446 SEARCH C032-33--34-ENTRY DTSCU032 00447 VARYING DTSCU032 00448 C032-33--34-IDX DTSCU032 00449 WHEN L032-CD-2 = C032-33--34-CD (C032-33--34-IDX) DTSCU032 00450 MOVE '1' TO L032-RESULT-IND DTSCU032 00451 MOVE C032-33--34-SHORT-DSCR (C032-33--34-IDX) DTSCU032 00452 TO L032-SHORT-DSCR DTSCU032 00453 MOVE C032-33--34-LONG-DSCR (C032-33--34-IDX) DTSCU032 00454 TO L032-LONG-DSCR. DTSCU032 00455 DTSCU032 00456 GO TO P1000-EXIT. DTSCU032 00457 SKIP3 DTSCU032 00458 P1000-34. DTSCU032 00459 SET C032-33--34-IDX TO 1. DTSCU032 00460 SEARCH C032-33--34-ENTRY DTSCU032 00461 VARYING DTSCU032 00462 C032-33--34-IDX DTSCU032 00463 WHEN L032-CD-2 = C032-33--34-CD (C032-33--34-IDX) DTSCU032 00464 MOVE '1' TO L032-RESULT-IND DTSCU032 00465 MOVE C032-33--34-SHORT-DSCR (C032-33--34-IDX) DTSCU032 00466 TO L032-SHORT-DSCR DTSCU032 00467 MOVE C032-33--34-LONG-DSCR (C032-33--34-IDX) DTSCU032 00468 TO L032-LONG-DSCR. DTSCU032 00469 DTSCU032 00470 GO TO P1000-EXIT. DTSCU032 00471 SKIP3 DTSCU032 00472 P1000-36. DTSCU032 00473 SET C032-31--36-IDX TO 1. DTSCU032 00474 SEARCH C032-31--36-ENTRY DTSCU032 00475 VARYING DTSCU032 00476 C032-31--36-IDX DTSCU032 00477 WHEN L032-CD-2 = C032-31--36-CD (C032-31--36-IDX) DTSCU032 00478 MOVE '1' TO L032-RESULT-IND DTSCU032 00479 MOVE C032-31--36-SHORT-DSCR (C032-31--36-IDX) DTSCU032 00480 TO L032-SHORT-DSCR DTSCU032 00481 MOVE C032-31--36-LONG-DSCR (C032-31--36-IDX) DTSCU032 00482 TO L032-LONG-DSCR. DTSCU032 00483 DTSCU032 00484 GO TO P1000-EXIT. DTSCU032 00485 SKIP3 DTSCU032 00486 P1000-37. DTSCU032 00487 SET C032-37-IDX TO 1. DTSCU032 00488 SEARCH C032-37-ENTRY DTSCU032 00489 VARYING DTSCU032 00490 C032-37-IDX DTSCU032 00491 WHEN L032-CD-2 = C032-37-CD (C032-37-IDX) DTSCU032 00492 MOVE '1' TO L032-RESULT-IND DTSCU032 00493 MOVE C032-37-SHORT-DSCR (C032-37-IDX) DTSCU032 00494 TO L032-SHORT-DSCR DTSCU032 00495 MOVE C032-37-LONG-DSCR (C032-37-IDX) DTSCU032 00496 TO L032-LONG-DSCR. DTSCU032 00497 DTSCU032 00498 GO TO P1000-EXIT. DTSCU032 00499 SKIP3 DTSCU032 00500 P1000-41. DTSCU032 00501 SET C032-41-IDX TO 1. DTSCU032 00502 SEARCH C032-41-ENTRY DTSCU032 00503 VARYING DTSCU032 00504 C032-41-IDX DTSCU032 00505 WHEN L032-CD-3 = C032-41-CD (C032-41-IDX) DTSCU032 00506 MOVE '1' TO L032-RESULT-IND DTSCU032 00507 MOVE C032-41-SHORT-DSCR (C032-41-IDX) DTSCU032 00508 TO L032-SHORT-DSCR DTSCU032 00509 MOVE C032-41-LONG-DSCR (C032-41-IDX) DTSCU032 00510 TO L032-LONG-DSCR. DTSCU032 00511 DTSCU032 00512 GO TO P1000-EXIT. DTSCU032 00513 SKIP3 DTSCU032 00514 P1000-42. DTSCU032 00515 SET C032-41-IDX TO 1. DTSCU032 00516 SEARCH C032-41-ENTRY DTSCU032 00517 VARYING DTSCU032 00518 C032-41-IDX DTSCU032 00519 WHEN L032-CD-3 = C032-41-CD (C032-41-IDX) DTSCU032 00520 MOVE '1' TO L032-RESULT-IND DTSCU032 00521 MOVE C032-41-SHORT-DSCR (C032-41-IDX) DTSCU032 00522 TO L032-SHORT-DSCR DTSCU032 00523 MOVE C032-41-LONG-DSCR (C032-41-IDX) DTSCU032 00524 TO L032-LONG-DSCR. DTSCU032 00525 DTSCU032 00526 GO TO P1000-EXIT. DTSCU032 00527 SKIP3 DTSCU032 00528 P1000-43. DTSCU032 00529 SET C032-41-IDX TO 1. DTSCU032 00530 SEARCH C032-41-ENTRY DTSCU032 00531 VARYING DTSCU032 00532 C032-41-IDX DTSCU032 00533 WHEN L032-CD-3 = C032-41-CD (C032-41-IDX) DTSCU032 00534 MOVE '1' TO L032-RESULT-IND DTSCU032 00535 MOVE C032-41-SHORT-DSCR (C032-41-IDX) DTSCU032 00536 TO L032-SHORT-DSCR DTSCU032 00537 MOVE C032-41-LONG-DSCR (C032-41-IDX) DTSCU032 00538 TO L032-LONG-DSCR. DTSCU032 00539 DTSCU032 00540 GO TO P1000-EXIT. DTSCU032 00541 SKIP3 DTSCU032 00542 P1000-44. DTSCU032 00543 SET C032-41-IDX TO 1. DTSCU032 00544 SEARCH C032-41-ENTRY DTSCU032 00545 VARYING DTSCU032 00546 C032-41-IDX DTSCU032 00547 WHEN L032-CD-3 = C032-41-CD (C032-41-IDX) DTSCU032 00548 MOVE '1' TO L032-RESULT-IND DTSCU032 00549 MOVE C032-41-SHORT-DSCR (C032-41-IDX) DTSCU032 00550 TO L032-SHORT-DSCR DTSCU032 00551 MOVE C032-41-LONG-DSCR (C032-41-IDX) DTSCU032 00552 TO L032-LONG-DSCR. DTSCU032 00553 DTSCU032 00554 GO TO P1000-EXIT. DTSCU032 00555 SKIP3 DTSCU032 00556 P1000-45. DTSCU032 00557 SET C032-41-IDX TO 1. DTSCU032 00558 SEARCH C032-41-ENTRY DTSCU032 00559 VARYING DTSCU032 00560 C032-41-IDX DTSCU032 00561 WHEN L032-CD-3 = C032-41-CD (C032-41-IDX) DTSCU032 00562 MOVE '1' TO L032-RESULT-IND DTSCU032 00563 MOVE C032-41-SHORT-DSCR (C032-41-IDX) DTSCU032 00564 TO L032-SHORT-DSCR DTSCU032 00565 MOVE C032-41-LONG-DSCR (C032-41-IDX) DTSCU032 00566 TO L032-LONG-DSCR. DTSCU032 00567 DTSCU032 00568 GO TO P1000-EXIT. DTSCU032 00569 SKIP3 DTSCU032 00570 P1000-46. DTSCU032 00571 SET C032-41-IDX TO 1. DTSCU032 00572 SEARCH C032-41-ENTRY DTSCU032 00573 VARYING DTSCU032 00574 C032-41-IDX DTSCU032 00575 WHEN L032-CD-3 = C032-41-CD (C032-41-IDX) DTSCU032 00576 MOVE '1' TO L032-RESULT-IND DTSCU032 00577 MOVE C032-41-SHORT-DSCR (C032-41-IDX) DTSCU032 00578 TO L032-SHORT-DSCR DTSCU032 00579 MOVE C032-41-LONG-DSCR (C032-41-IDX) DTSCU032 00580 TO L032-LONG-DSCR. DTSCU032 00581 DTSCU032 00582 GO TO P1000-EXIT. DTSCU032 00583 SKIP3 DTSCU032 00584 P1000-EXIT. DTSCU032 00585 EXIT. DTSCU032 00586 EJECT DTSCU032 00587 S899-ABEND. DTSCU032 00588 DTSCU032 00589 EXEC CICS DTSCU032 00590 ABEND DTSCU032 00591 ABCODE (WRK-ABEND-CODE) DTSCU032 00592 END-EXEC. DTSCU032 00593 DTSCU032 00594 S899-EXIT. DTSCU032 00595 EXIT. DTSCU032