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