597 lines
47 KiB
COBOL
597 lines
47 KiB
COBOL
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
|