DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
610
Batch/DTSBU921.cob
Normal file
610
Batch/DTSBU921.cob
Normal file
@ -0,0 +1,610 @@
|
||||
00001 IDENTIFICATION DIVISION. 07/08/08
|
||||
00002 PROGRAM-ID. DTSBU921. DTSBU921
|
||||
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV011
|
||||
00004 DATE-WRITTEN. FEBRUARY 1992. DTSBU921
|
||||
00005 DATE-COMPILED. DTSBU921
|
||||
00006 SKIP3 DTSBU921
|
||||
00007 ***** DTSBU921
|
||||
00008 * DTSBU921
|
||||
00009 * FUNCTION: ALTERNATE INDEX FILE INPUT/OUTPUT. DTSBU921
|
||||
00010 * DTSBU921
|
||||
00011 * DTSBU921
|
||||
00012 * MODIFICATION LOG: DTSBU921
|
||||
00013 * DTSBU921
|
||||
00014 * 02/03/92 INITIAL DEVELOPMENT. DTSBU921
|
||||
00015 * WORK ORDER: PROGRAMMER: TCL DTSBU921
|
||||
00016 * DTSBU921
|
||||
00017 * 09/18/95 IBTN RECORD PROCESSING ADDED. DTSBU921
|
||||
00018 * WORK ORDER: JR PROGRAMMER: EHH DTSBU921
|
||||
00019 * DTSBU921
|
||||
00020 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. DTSBU921
|
||||
00021 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBU921
|
||||
00022 * DTSBU921
|
||||
00023 * 04/22/2003 ADDED ITRT AND ITRE AIX RECORDS FOR ELECTRONIC DTSBU921
|
||||
00024 * PAYMENT AND REPORTING. DTSBU921
|
||||
00025 * REFERENCE: EFT PROGRAMMER: GD DTSBU921
|
||||
00026 * DTSBU921
|
||||
00027 * 10/23/2006 RECOMPILED FOR NEW VERSION OF IPES (INCLUDES DTSBU921
|
||||
00028 * PERCENTAGE TRANSFERRED). DTSBU921
|
||||
00029 * REFERENCE: PROGRAMMER: GD DTSBU921
|
||||
00030 * DTSBU921
|
||||
00031 * 02/08/2008 MODIFIED FOR IRFD REFUND RECORD. DTSBU921
|
||||
00032 * REFERENCE: PROGRAMMER: GD DTSBU921
|
||||
00033 * DTSBU921
|
||||
00034 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU921
|
||||
00035 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU921
|
||||
00036 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU921
|
||||
00037 * DTSBU921
|
||||
00038 * DTSBU921
|
||||
00039 * DESCRIPTION: DTSBU921
|
||||
00040 * DTSBU921
|
||||
00041 * DTSBU921 PERFORMS ALL REQUIRED ALTERNATE INDEX FILE DTSBU921
|
||||
00042 * INPUT/OUTPUT. DTSBU921
|
||||
00043 * DTSBU921
|
||||
00044 * DTSBU921
|
||||
00045 * GENERAL SPECIFICATIONS: DTSBU921
|
||||
00046 * DTSBU921
|
||||
00047 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBU921
|
||||
00048 * MODULE. DTSBU921
|
||||
00049 * DTSBU921
|
||||
00050 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBU921
|
||||
00051 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBU921
|
||||
00052 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBU921
|
||||
00053 * DTSBU921
|
||||
00054 * DTSBU921
|
||||
00055 * COMMAND SPECIFIC SPECIFICATIONS: DTSBU921
|
||||
00056 * DTSBU921
|
||||
00057 * OPEN-READ DTSBU921
|
||||
00058 * OPEN INPUT. DTSBU921
|
||||
00059 * DTSBU921
|
||||
00060 * OPEN-UPDATE DTSBU921
|
||||
00061 * OPEN I-O. DTSBU921
|
||||
00062 * DTSBU921
|
||||
00063 * CLOSE DTSBU921
|
||||
00064 * DTSBU921
|
||||
00065 * READ DTSBU921
|
||||
00066 * DTSBU921
|
||||
00067 * START BROWSE DTSBU921
|
||||
00068 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBU921
|
||||
00069 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBU921
|
||||
00070 * A RECORD. DTSBU921
|
||||
00071 * DTSBU921
|
||||
00072 * READ NEXT DTSBU921
|
||||
00073 * IF A BREAK IN REC-TYPE OCCURS, THEN RETURN DTSBU921
|
||||
00074 * L921-NO-REC-88. DTSBU921
|
||||
00075 * DTSBU921
|
||||
00076 * WRITE DTSBU921
|
||||
00077 * PRIOR TO THE WRITE, MOVE SPACES TO I***-KEY-FILLER. DTSBU921
|
||||
00078 * DTSBU921
|
||||
00079 * DELETE DTSBU921
|
||||
00080 * DTSBU921
|
||||
00081 ***** DTSBU921
|
||||
00082 SKIP3 DTSBU921
|
||||
00083 ENVIRONMENT DIVISION. DTSBU921
|
||||
00084 SKIP2 DTSBU921
|
||||
00085 INPUT-OUTPUT SECTION. DTSBU921
|
||||
00086 DTSBU921
|
||||
00087 FILE-CONTROL. DTSBU921
|
||||
00088 SELECT AIX-FILE ASSIGN TO DTSFAIX DTSBU921
|
||||
00089 ORGANIZATION IS INDEXED DTSBU921
|
||||
00090 RECORD KEY IS ISKL-KEY-AREA OF FILE-REC DTSBU921
|
||||
00091 FILE STATUS IS FILE-STATUS DTSBU921
|
||||
00092 ACCESS IS DYNAMIC. DTSBU921
|
||||
00093 SKIP3 DTSBU921
|
||||
00094 DATA DIVISION. DTSBU921
|
||||
00095 SKIP3 DTSBU921
|
||||
00096 FILE SECTION. DTSBU921
|
||||
00097 SKIP3 DTSBU921
|
||||
00098 FD AIX-FILE. DTSBU921
|
||||
00099 DTSBU921
|
||||
00100 01 FILE-REC. DTSBU921
|
||||
00101 ++INCLUDE DTSIISKL DTSBU921
|
||||
00102 EJECT DTSBU921
|
||||
00103 WORKING-STORAGE SECTION. DTSBU921
|
||||
001035 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU921 07/08/08'. DTSBU921
|
||||
00104 SKIP3 DTSBU921
|
||||
00105 01 WRK-AREA. DTSBU921
|
||||
00106 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +921.DTSBU921
|
||||
00107 DTSBU921
|
||||
00108 05 FILE-STATUS PIC X(02). DTSBU921
|
||||
00109 88 FILE-OK-88 VALUE '00'. DTSBU921
|
||||
00110 88 FILE-NO-REC-88 VALUE '10' '23'. DTSBU921
|
||||
00111 88 FILE-VERIFY-88 VALUE '97'. DTSBU921
|
||||
00112 DTSBU921
|
||||
00113 05 WRK-REC-PREFIX PIC X(04). DTSBU921
|
||||
00114 EJECT DTSBU921
|
||||
00115 01 L991-LINK-AREA. DTSBU921
|
||||
00116 ++INCLUDE DTSIL991 DTSBU921
|
||||
00117 EJECT DTSBU921
|
||||
00118 01 ILEN-LITERALS. DTSBU921
|
||||
00119 ++INCLUDE DTSIILEN DTSBU921
|
||||
00120 EJECT DTSBU921
|
||||
00121 LINKAGE SECTION. DTSBU921
|
||||
00122 SKIP3 DTSBU921
|
||||
00123 01 L921-LINK-AREA. DTSBU921
|
||||
00124 05 L921-CONTROL-BLOCK. DTSBU921
|
||||
00125 ++INCLUDE DTSIL921 DTSBU921
|
||||
00126 SKIP3 DTSBU921
|
||||
00127 01 LINK-REC. DTSBU921
|
||||
00128 05 ISKL-REC. DTSBU921
|
||||
00129 ++INCLUDE DTSIISKL DTSBU921
|
||||
00130 SKIP3 DTSBU921
|
||||
00131 05 IBTB-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00132 ++INCLUDE DTSIIBTB DTSBU921
|
||||
00133 SKIP3 DTSBU921
|
||||
00134 05 IFAN-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00135 ++INCLUDE DTSIIFAN DTSBU921
|
||||
00136 SKIP3 DTSBU921
|
||||
00137 05 IFID-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00138 ++INCLUDE DTSIIFID DTSBU921
|
||||
00139 SKIP3 DTSBU921
|
||||
00140 05 IEIN-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00141 ++INCLUDE DTSIIEIN DTSBU921
|
||||
00142 SKIP3 DTSBU921
|
||||
00143 05 IOPN-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00144 ++INCLUDE DTSIIOPN DTSBU921
|
||||
00145 SKIP3 DTSBU921
|
||||
00146 05 IOPS-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00147 ++INCLUDE DTSIIOPS DTSBU921
|
||||
00148 SKIP3 DTSBU921
|
||||
00149 05 IPES-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00150 ++INCLUDE DTSIIPES DTSBU921
|
||||
00151 SKIP3 DTSBU921
|
||||
00152 05 ITDS-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00153 ++INCLUDE DTSIITDS DTSBU921
|
||||
00154 SKIP3 DTSBU921
|
||||
00155 05 ITRE-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00156 ++INCLUDE DTSIITRE DTSBU921
|
||||
00157 SKIP3 DTSBU921
|
||||
00158 05 ITRT-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00159 ++INCLUDE DTSIITRT DTSBU921
|
||||
00160 SKIP3 DTSBU921
|
||||
00161 05 IZIP-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00162 ++INCLUDE DTSIIZIP DTSBU921
|
||||
00163 SKIP3 DTSBU921
|
||||
00164 05 IBTN-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00165 ++INCLUDE DTSIIBTN DTSBU921
|
||||
00166 SKIP3 DTSBU921
|
||||
00167 05 IENM-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00168 ++INCLUDE DTSIIENM DTSBU921
|
||||
00169 SKIP3 DTSBU921
|
||||
00170 05 IEAL-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00171 ++INCLUDE DTSIIEAL DTSBU921
|
||||
00172 SKIP3 DTSBU921
|
||||
00173 05 IEAE-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00174 ++INCLUDE DTSIIEAE DTSBU921
|
||||
00175 SKIP3 DTSBU921
|
||||
00176 05 IEBX-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00177 ++INCLUDE DTSIIEBX DTSBU921
|
||||
00178 SKIP3 DTSBU921
|
||||
00179 05 IEOP-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00180 ++INCLUDE DTSIIEOP DTSBU921
|
||||
00181 SKIP3 DTSBU921
|
||||
00182 05 IESR-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00183 ++INCLUDE DTSIIESR DTSBU921
|
||||
00184 SKIP3 DTSBU921
|
||||
00185 05 IEER-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00186 ++INCLUDE DTSIIEER DTSBU921
|
||||
00187 SKIP3 DTSBU921
|
||||
00188 05 IEET-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00189 ++INCLUDE DTSIIEET DTSBU921
|
||||
00190 SKIP3 DTSBU921
|
||||
00191 05 IEPR-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00192 ++INCLUDE DTSIIEPR DTSBU921
|
||||
00193 EJECT DTSBU921
|
||||
00194 05 IRFD-REC REDEFINES ISKL-REC. DTSBU921
|
||||
00195 ++INCLUDE DTSIIRFD DTSBU921
|
||||
00196 EJECT DTSBU921
|
||||
00197 PROCEDURE DIVISION USING L921-LINK-AREA DTSBU921
|
||||
00198 LINK-REC. DTSBU921
|
||||
00199 DTSBU921
|
||||
00200 DTSBU921
|
||||
00201 SET L921-OK-88 TO TRUE. DTSBU921
|
||||
00202 DTSBU921
|
||||
00203 IF L921-TRACE-88 DTSBU921
|
||||
00204 PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT. DTSBU921
|
||||
00205 DTSBU921
|
||||
00206 IF L921-READ-NEXT-88 DTSBU921
|
||||
00207 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU921
|
||||
00208 ELSE DTSBU921
|
||||
00209 IF L921-READ-88 DTSBU921
|
||||
00210 PERFORM P2100-READ THRU P2100-EXIT DTSBU921
|
||||
00211 ELSE DTSBU921
|
||||
00212 IF L921-START-BROWSE-88 DTSBU921
|
||||
00213 PERFORM P2200-START-BROWSE THRU P2200-EXIT DTSBU921
|
||||
00214 ELSE DTSBU921
|
||||
00215 IF L921-WRITE-88 DTSBU921
|
||||
00216 PERFORM P3100-WRITE THRU P3100-EXIT DTSBU921
|
||||
00217 ELSE DTSBU921
|
||||
00218 IF L921-DELETE-88 DTSBU921
|
||||
00219 PERFORM P3300-DELETE THRU P3300-EXIT DTSBU921
|
||||
00220 ELSE DTSBU921
|
||||
00221 IF L921-OPEN-READ-88 DTSBU921
|
||||
00222 OR DTSBU921
|
||||
00223 L921-OPEN-UPDATE-88 DTSBU921
|
||||
00224 PERFORM P1100-OPEN THRU P1100-EXIT DTSBU921
|
||||
00225 ELSE DTSBU921
|
||||
00226 IF L921-CLOSE-88 DTSBU921
|
||||
00227 PERFORM P1200-CLOSE THRU P1200-EXIT DTSBU921
|
||||
00228 ELSE DTSBU921
|
||||
00229 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00230 DTSBU921
|
||||
00231 IF L921-TRACE-88 DTSBU921
|
||||
00232 PERFORM S9200-POST-DISPLAY THRU S9200-EXIT. DTSBU921
|
||||
00233 DTSBU921
|
||||
00234 DTSBU921
|
||||
00235 GOBACK. DTSBU921
|
||||
00236 EJECT DTSBU921
|
||||
00237 P1100-OPEN. DTSBU921
|
||||
00238 IF L921-OPEN-UPDATE-88 DTSBU921
|
||||
00239 OPEN I-O AIX-FILE DTSBU921
|
||||
00240 ELSE DTSBU921
|
||||
00241 OPEN INPUT AIX-FILE. DTSBU921
|
||||
00242 DTSBU921
|
||||
00243 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU921
|
||||
00244 NEXT SENTENCE DTSBU921
|
||||
00245 ELSE DTSBU921
|
||||
00246 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00247 P1100-EXIT. DTSBU921
|
||||
00248 EXIT. DTSBU921
|
||||
00249 SKIP3 DTSBU921
|
||||
00250 P1200-CLOSE. DTSBU921
|
||||
00251 CLOSE AIX-FILE. DTSBU921
|
||||
00252 DTSBU921
|
||||
00253 IF FILE-OK-88 DTSBU921
|
||||
00254 NEXT SENTENCE DTSBU921
|
||||
00255 ELSE DTSBU921
|
||||
00256 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00257 P1200-EXIT. DTSBU921
|
||||
00258 EXIT. DTSBU921
|
||||
00259 EJECT DTSBU921
|
||||
00260 P2100-READ. DTSBU921
|
||||
00261 MOVE ISKL-KEY-AREA OF LINK-REC TO ISKL-KEY-AREA OF FILE-REC. DTSBU921
|
||||
00262 DTSBU921
|
||||
00263 READ AIX-FILE. DTSBU921
|
||||
00264 DTSBU921
|
||||
00265 IF FILE-OK-88 DTSBU921
|
||||
00266 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU921
|
||||
00267 ELSE DTSBU921
|
||||
00268 IF FILE-NO-REC-88 DTSBU921
|
||||
00269 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921
|
||||
00270 ELSE DTSBU921
|
||||
00271 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00272 P2100-EXIT. DTSBU921
|
||||
00273 EXIT. DTSBU921
|
||||
00274 EJECT DTSBU921
|
||||
00275 P2200-START-BROWSE. DTSBU921
|
||||
00276 MOVE ISKL-KEY-AREA OF LINK-REC TO ISKL-KEY-AREA OF FILE-REC. DTSBU921
|
||||
00277 DTSBU921
|
||||
00278 START AIX-FILE DTSBU921
|
||||
00279 KEY IS NOT < ISKL-KEY-AREA OF FILE-REC. DTSBU921
|
||||
00280 DTSBU921
|
||||
00281 IF FILE-OK-88 DTSBU921
|
||||
00282 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU921
|
||||
00283 ELSE DTSBU921
|
||||
00284 IF FILE-NO-REC-88 DTSBU921
|
||||
00285 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921
|
||||
00286 ELSE DTSBU921
|
||||
00287 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00288 P2200-EXIT. DTSBU921
|
||||
00289 EXIT. DTSBU921
|
||||
00290 EJECT DTSBU921
|
||||
00291 P2300-READ-NEXT. DTSBU921
|
||||
00292 READ AIX-FILE NEXT. DTSBU921
|
||||
00293 DTSBU921
|
||||
00294 IF FILE-OK-88 DTSBU921
|
||||
00295 IF ISKL-REC-TYPE OF FILE-REC = ISKL-REC-TYPE OF LINK-REC DTSBU921
|
||||
00296 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU921
|
||||
00297 ELSE DTSBU921
|
||||
00298 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921
|
||||
00299 ELSE DTSBU921
|
||||
00300 IF FILE-NO-REC-88 DTSBU921
|
||||
00301 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU921
|
||||
00302 ELSE DTSBU921
|
||||
00303 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00304 P2300-EXIT. DTSBU921
|
||||
00305 EXIT. DTSBU921
|
||||
00306 EJECT DTSBU921
|
||||
00307 P3100-WRITE. DTSBU921
|
||||
00308 PERFORM S2100-LINK-TO-FILE THRU S2100-EXIT. DTSBU921
|
||||
00309 DTSBU921
|
||||
00310 WRITE FILE-REC. DTSBU921
|
||||
00311 DTSBU921
|
||||
00312 IF FILE-OK-88 DTSBU921
|
||||
00313 NEXT SENTENCE DTSBU921
|
||||
00314 ELSE DTSBU921
|
||||
00315 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00316 P3100-EXIT. DTSBU921
|
||||
00317 EXIT. DTSBU921
|
||||
00318 EJECT DTSBU921
|
||||
00319 P3300-DELETE. DTSBU921
|
||||
00320 MOVE ISKL-KEY-AREA OF LINK-REC TO ISKL-KEY-AREA OF FILE-REC. DTSBU921
|
||||
00321 DTSBU921
|
||||
00322 DELETE AIX-FILE RECORD. DTSBU921
|
||||
00323 DTSBU921
|
||||
00324 IF FILE-OK-88 DTSBU921
|
||||
00325 NEXT SENTENCE DTSBU921
|
||||
00326 ELSE DTSBU921
|
||||
00327 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00328 P3300-EXIT. DTSBU921
|
||||
00329 EXIT. DTSBU921
|
||||
00330 EJECT DTSBU921
|
||||
00331 S1100-NO-REC. DTSBU921
|
||||
00332 SET L921-NO-REC-88 TO TRUE. DTSBU921
|
||||
00333 S1100-EXIT. DTSBU921
|
||||
00334 EXIT. DTSBU921
|
||||
00335 SKIP3 DTSBU921
|
||||
00336 S2100-LINK-TO-FILE. DTSBU921
|
||||
00337 GO TO S2101-BTB DTSBU921
|
||||
00338 S2102-EIN DTSBU921
|
||||
00339 S2103-FAN DTSBU921
|
||||
00340 S2104-FID DTSBU921
|
||||
00341 S2105-OPN DTSBU921
|
||||
00342 S2106-OPS DTSBU921
|
||||
00343 S2107-PES DTSBU921
|
||||
00344 S2108-TDS DTSBU921
|
||||
00345 S2109-ZIP DTSBU921
|
||||
00346 S2110-BTN DTSBU921
|
||||
00347 S2111-ENM DTSBU921
|
||||
00348 S2112-EAL DTSBU921
|
||||
00349 S2113-EAE DTSBU921
|
||||
00350 S2114-EBX DTSBU921
|
||||
00351 S2115-EOP DTSBU921
|
||||
00352 S2116-ESR DTSBU921
|
||||
00353 S2117-EER DTSBU921
|
||||
00354 S2118-EET DTSBU921
|
||||
00355 S2119-EPR DTSBU921
|
||||
00356 S2120-TRT DTSBU921
|
||||
00357 S2121-TRE DTSBU921
|
||||
00358 S2122-RFD DTSBU921
|
||||
00359 DEPENDING ON ISKL-REC-TYPE OF LINK-REC. DTSBU921
|
||||
00360 DTSBU921
|
||||
00361 PERFORM S999-ABEND THRU S999-EXIT. DTSBU921
|
||||
00362 DTSBU921
|
||||
00363 DTSBU921
|
||||
00364 S2101-BTB. DTSBU921
|
||||
00365 MOVE LOW-VALUES TO IBTB-KEY-FILLER. DTSBU921
|
||||
00366 DTSBU921
|
||||
00367 MOVE IBTB-REC TO FILE-REC. DTSBU921
|
||||
00368 DTSBU921
|
||||
00369 GO TO S2100-EXIT. DTSBU921
|
||||
00370 SKIP3 DTSBU921
|
||||
00371 S2102-EIN. DTSBU921
|
||||
00372 MOVE LOW-VALUES TO IEIN-KEY-FILLER. DTSBU921
|
||||
00373 DTSBU921
|
||||
00374 MOVE IEIN-REC TO FILE-REC. DTSBU921
|
||||
00375 DTSBU921
|
||||
00376 GO TO S2100-EXIT. DTSBU921
|
||||
00377 SKIP3 DTSBU921
|
||||
00378 S2103-FAN. DTSBU921
|
||||
00379 MOVE LOW-VALUES TO IFAN-KEY-FILLER. DTSBU921
|
||||
00380 DTSBU921
|
||||
00381 MOVE IFAN-REC TO FILE-REC. DTSBU921
|
||||
00382 DTSBU921
|
||||
00383 GO TO S2100-EXIT. DTSBU921
|
||||
00384 SKIP3 DTSBU921
|
||||
00385 S2104-FID. DTSBU921
|
||||
00386 MOVE LOW-VALUES TO IFID-KEY-FILLER. DTSBU921
|
||||
00387 DTSBU921
|
||||
00388 MOVE IFID-REC TO FILE-REC. DTSBU921
|
||||
00389 DTSBU921
|
||||
00390 GO TO S2100-EXIT. DTSBU921
|
||||
00391 SKIP3 DTSBU921
|
||||
00392 S2105-OPN. DTSBU921
|
||||
00393 MOVE LOW-VALUES TO IOPN-KEY-FILLER. DTSBU921
|
||||
00394 DTSBU921
|
||||
00395 MOVE IOPN-REC TO FILE-REC. DTSBU921
|
||||
00396 DTSBU921
|
||||
00397 GO TO S2100-EXIT. DTSBU921
|
||||
00398 SKIP3 DTSBU921
|
||||
00399 S2106-OPS. DTSBU921
|
||||
00400 MOVE LOW-VALUES TO IOPS-KEY-FILLER. DTSBU921
|
||||
00401 DTSBU921
|
||||
00402 MOVE IOPS-REC TO FILE-REC. DTSBU921
|
||||
00403 DTSBU921
|
||||
00404 GO TO S2100-EXIT. DTSBU921
|
||||
00405 SKIP3 DTSBU921
|
||||
00406 S2107-PES. DTSBU921
|
||||
00407 MOVE LOW-VALUES TO IPES-KEY-FILLER. DTSBU921
|
||||
00408 DTSBU921
|
||||
00409 MOVE IPES-REC TO FILE-REC. DTSBU921
|
||||
00410 DTSBU921
|
||||
00411 GO TO S2100-EXIT. DTSBU921
|
||||
00412 SKIP3 DTSBU921
|
||||
00413 S2108-TDS. DTSBU921
|
||||
00414 MOVE LOW-VALUES TO ITDS-KEY-FILLER. DTSBU921
|
||||
00415 DTSBU921
|
||||
00416 MOVE ITDS-REC TO FILE-REC. DTSBU921
|
||||
00417 DTSBU921
|
||||
00418 GO TO S2100-EXIT. DTSBU921
|
||||
00419 SKIP3 DTSBU921
|
||||
00420 S2109-ZIP. DTSBU921
|
||||
00421 MOVE LOW-VALUES TO IZIP-KEY-FILLER. DTSBU921
|
||||
00422 DTSBU921
|
||||
00423 MOVE IZIP-REC TO FILE-REC. DTSBU921
|
||||
00424 DTSBU921
|
||||
00425 GO TO S2100-EXIT. DTSBU921
|
||||
00426 SKIP3 DTSBU921
|
||||
00427 S2110-BTN. DTSBU921
|
||||
00428 MOVE LOW-VALUES TO IBTN-KEY-FILLER. DTSBU921
|
||||
00429 DTSBU921
|
||||
00430 MOVE IBTN-REC TO FILE-REC. DTSBU921
|
||||
00431 DTSBU921
|
||||
00432 GO TO S2100-EXIT. DTSBU921
|
||||
00433 SKIP3 DTSBU921
|
||||
00434 S2111-ENM. DTSBU921
|
||||
00435 MOVE LOW-VALUES TO IENM-KEY-FILLER. DTSBU921
|
||||
00436 DTSBU921
|
||||
00437 MOVE IENM-REC TO FILE-REC. DTSBU921
|
||||
00438 DTSBU921
|
||||
00439 GO TO S2100-EXIT. DTSBU921
|
||||
00440 SKIP3 DTSBU921
|
||||
00441 S2112-EAL. DTSBU921
|
||||
00442 MOVE LOW-VALUES TO IEAL-KEY-FILLER. DTSBU921
|
||||
00443 DTSBU921
|
||||
00444 MOVE IEAL-REC TO FILE-REC. DTSBU921
|
||||
00445 DTSBU921
|
||||
00446 GO TO S2100-EXIT. DTSBU921
|
||||
00447 SKIP3 DTSBU921
|
||||
00448 S2113-EAE. DTSBU921
|
||||
00449 MOVE LOW-VALUES TO IEAE-KEY-FILLER. DTSBU921
|
||||
00450 DTSBU921
|
||||
00451 MOVE IEAE-REC TO FILE-REC. DTSBU921
|
||||
00452 DTSBU921
|
||||
00453 GO TO S2100-EXIT. DTSBU921
|
||||
00454 SKIP3 DTSBU921
|
||||
00455 S2114-EBX. DTSBU921
|
||||
00456 MOVE LOW-VALUES TO IEBX-KEY-FILLER. DTSBU921
|
||||
00457 DTSBU921
|
||||
00458 MOVE IEBX-REC TO FILE-REC. DTSBU921
|
||||
00459 DTSBU921
|
||||
00460 GO TO S2100-EXIT. DTSBU921
|
||||
00461 SKIP3 DTSBU921
|
||||
00462 S2115-EOP. DTSBU921
|
||||
00463 MOVE LOW-VALUES TO IEOP-KEY-FILLER. DTSBU921
|
||||
00464 DTSBU921
|
||||
00465 MOVE IEOP-REC TO FILE-REC. DTSBU921
|
||||
00466 DTSBU921
|
||||
00467 GO TO S2100-EXIT. DTSBU921
|
||||
00468 SKIP3 DTSBU921
|
||||
00469 S2116-ESR. DTSBU921
|
||||
00470 MOVE LOW-VALUES TO IESR-KEY-FILLER. DTSBU921
|
||||
00471 DTSBU921
|
||||
00472 MOVE IESR-REC TO FILE-REC. DTSBU921
|
||||
00473 DTSBU921
|
||||
00474 GO TO S2100-EXIT. DTSBU921
|
||||
00475 SKIP3 DTSBU921
|
||||
00476 S2117-EER. DTSBU921
|
||||
00477 MOVE LOW-VALUES TO IEER-KEY-FILLER. DTSBU921
|
||||
00478 DTSBU921
|
||||
00479 MOVE IEER-REC TO FILE-REC. DTSBU921
|
||||
00480 DTSBU921
|
||||
00481 GO TO S2100-EXIT. DTSBU921
|
||||
00482 SKIP3 DTSBU921
|
||||
00483 S2118-EET. DTSBU921
|
||||
00484 MOVE LOW-VALUES TO IEET-KEY-FILLER. DTSBU921
|
||||
00485 DTSBU921
|
||||
00486 MOVE IEET-REC TO FILE-REC. DTSBU921
|
||||
00487 DTSBU921
|
||||
00488 GO TO S2100-EXIT. DTSBU921
|
||||
00489 SKIP3 DTSBU921
|
||||
00490 S2119-EPR. DTSBU921
|
||||
00491 MOVE LOW-VALUES TO IEPR-KEY-FILLER. DTSBU921
|
||||
00492 DTSBU921
|
||||
00493 MOVE IEPR-REC TO FILE-REC. DTSBU921
|
||||
00494 DTSBU921
|
||||
00495 GO TO S2100-EXIT. DTSBU921
|
||||
00496 SKIP3 DTSBU921
|
||||
00497 S2120-TRT. DTSBU921
|
||||
00498 MOVE LOW-VALUES TO ITRT-KEY-FILLER. DTSBU921
|
||||
00499 DTSBU921
|
||||
00500 MOVE ITRT-REC TO FILE-REC. DTSBU921
|
||||
00501 DTSBU921
|
||||
00502 GO TO S2100-EXIT. DTSBU921
|
||||
00503 SKIP3 DTSBU921
|
||||
00504 S2121-TRE. DTSBU921
|
||||
00505 MOVE LOW-VALUES TO ITRE-KEY-FILLER. DTSBU921
|
||||
00506 DTSBU921
|
||||
00507 MOVE ITRE-REC TO FILE-REC. DTSBU921
|
||||
00508 DTSBU921
|
||||
00509 GO TO S2100-EXIT. DTSBU921
|
||||
00510 SKIP3 DTSBU921
|
||||
00511 S2122-RFD. DTSBU921
|
||||
00512 MOVE LOW-VALUES TO IRFD-KEY-FILLER. DTSBU921
|
||||
00513 DTSBU921
|
||||
00514 MOVE IRFD-REC TO FILE-REC. DTSBU921
|
||||
00515 DTSBU921
|
||||
00516 GO TO S2100-EXIT. DTSBU921
|
||||
00517 SKIP3 DTSBU921
|
||||
00518 S2100-EXIT. DTSBU921
|
||||
00519 EXIT. DTSBU921
|
||||
00520 EJECT DTSBU921
|
||||
00521 S2200-FILE-TO-LINK. DTSBU921
|
||||
00522 MOVE FILE-REC TO LINK-REC. DTSBU921
|
||||
00523 S2200-EXIT. DTSBU921
|
||||
00524 EXIT. DTSBU921
|
||||
00525 EJECT DTSBU921
|
||||
00526 S9100-PRE-DISPLAY. DTSBU921
|
||||
00527 DISPLAY ' '. DTSBU921
|
||||
00528 DTSBU921
|
||||
00529 DISPLAY ' '. DTSBU921
|
||||
00530 DTSBU921
|
||||
00531 DISPLAY '*** DTSBU921 PRE TRACE DISPLAY ***'. DTSBU921
|
||||
00532 DTSBU921
|
||||
00533 DISPLAY L921-MOD-NAME DTSBU921
|
||||
00534 ' = L921-MOD-NAME'. DTSBU921
|
||||
00535 DTSBU921
|
||||
00536 DISPLAY L921-CMND-CD DTSBU921
|
||||
00537 ' = L921-CMND-CD'. DTSBU921
|
||||
00538 DTSBU921
|
||||
00539 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU921
|
||||
00540 S9100-EXIT. DTSBU921
|
||||
00541 EXIT. DTSBU921
|
||||
00542 SKIP3 DTSBU921
|
||||
00543 S9200-POST-DISPLAY. DTSBU921
|
||||
00544 DISPLAY ' '. DTSBU921
|
||||
00545 DTSBU921
|
||||
00546 DISPLAY ' '. DTSBU921
|
||||
00547 DTSBU921
|
||||
00548 DISPLAY '*** DTSBU921 POST TRACE DISPLAY ***'. DTSBU921
|
||||
00549 DTSBU921
|
||||
00550 DISPLAY L921-RESULT-IND DTSBU921
|
||||
00551 ' = L921-RESULT-IND'. DTSBU921
|
||||
00552 DTSBU921
|
||||
00553 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU921
|
||||
00554 S9200-EXIT. DTSBU921
|
||||
00555 EXIT. DTSBU921
|
||||
00556 SKIP3 DTSBU921
|
||||
00557 S9300-REC-DISPLAY. DTSBU921
|
||||
00558 DISPLAY ' '. DTSBU921
|
||||
00559 DTSBU921
|
||||
00560 IF (ISKL-REC-TYPE OF LINK-REC < +1) DTSBU921
|
||||
00561 OR DTSBU921
|
||||
00562 (ISKL-REC-TYPE OF LINK-REC > ILEN-MAX-REC-ID) DTSBU921
|
||||
00563 MOVE SPACES TO WRK-REC-PREFIX DTSBU921
|
||||
00564 ELSE DTSBU921
|
||||
00565 MOVE ILEN-PREFIX (ISKL-REC-TYPE OF LINK-REC) DTSBU921
|
||||
00566 TO WRK-REC-PREFIX. DTSBU921
|
||||
00567 DTSBU921
|
||||
00568 IF WRK-REC-PREFIX = SPACES DTSBU921
|
||||
00569 MOVE '????' TO WRK-REC-PREFIX. DTSBU921
|
||||
00570 DTSBU921
|
||||
00571 MOVE ILEN-LENGTH TO L991-REQ-CHAR-CNT. DTSBU921
|
||||
00572 DTSBU921
|
||||
00573 MOVE ISKL-KEY-AREA OF LINK-REC TO L991-REQ-AREA. DTSBU921
|
||||
00574 DTSBU921
|
||||
00575 PERFORM S991-HEX-FORMAT THRU S991-EXIT. DTSBU921
|
||||
00576 DTSBU921
|
||||
00577 DISPLAY 'REC TYPE = ' DTSBU921
|
||||
00578 WRK-REC-PREFIX. DTSBU921
|
||||
00579 DTSBU921
|
||||
00580 DISPLAY 'KEY AREA = ' DTSBU921
|
||||
00581 L991-REPLY-HEX-1-AREA. DTSBU921
|
||||
00582 DTSBU921
|
||||
00583 DISPLAY ' ' DTSBU921
|
||||
00584 L991-REPLY-HEX-2-AREA. DTSBU921
|
||||
00585 DTSBU921
|
||||
00586 DISPLAY ' ' DTSBU921
|
||||
00587 L991-REPLY-AN-AREA. DTSBU921
|
||||
00588 S9300-EXIT. DTSBU921
|
||||
00589 EXIT. DTSBU921
|
||||
00590 EJECT DTSBU921
|
||||
00591 S991-HEX-FORMAT. DTSBU921
|
||||
00592 CALL 'DTSBU991' USING L991-LINK-AREA. DTSBU921
|
||||
00593 S991-EXIT. DTSBU921
|
||||
00594 EXIT. DTSBU921
|
||||
00595 SKIP3 DTSBU921
|
||||
00596 S999-ABEND. DTSBU921
|
||||
00597 DISPLAY '*** I/O MODULE ABENDING'. DTSBU921
|
||||
00598 DTSBU921
|
||||
00599 DISPLAY '*** CMND-CD = ' L921-CMND-CD. DTSBU921
|
||||
00600 DTSBU921
|
||||
00601 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DTSBU921
|
||||
00602 DTSBU921
|
||||
00603 DISPLAY '*** CALLING MODULE = ' L921-MOD-NAME. DTSBU921
|
||||
00604 DTSBU921
|
||||
00605 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU921
|
||||
00606 DTSBU921
|
||||
00607 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU921
|
||||
00608 S999-EXIT. DTSBU921
|
||||
00609 EXIT. DTSBU921
|
||||
Reference in New Issue
Block a user