611 lines
48 KiB
COBOL
611 lines
48 KiB
COBOL
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
|