DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
460
Batch/DESBD992.cob
Normal file
460
Batch/DESBD992.cob
Normal file
@ -0,0 +1,460 @@
|
||||
00001 IDENTIFICATION DIVISION. 05/22/01
|
||||
00002 PROGRAM-ID. DESBD992. DESBD992
|
||||
00003 AUTHOR. TRW. LV001
|
||||
00004 DATE-WRITTEN. MARCH 2001. DESBD992
|
||||
00005 DATE-COMPILED. DESBD992
|
||||
00006 SKIP3 DESBD992
|
||||
00007 ***** DESBD992
|
||||
00008 * DESBD992
|
||||
00009 * FUNCTION: BUILD ELECTRONIC MEDIA ALTERNATE INDEX RECORDS DESBD992
|
||||
00010 * DESBD992
|
||||
00011 * DESBD992
|
||||
00012 * DESBD992
|
||||
00013 ***** DESBD992
|
||||
00014 SKIP3 DESBD992
|
||||
00015 ENVIRONMENT DIVISION. DESBD992
|
||||
00016 INPUT-OUTPUT SECTION. DESBD992
|
||||
00017 FILE-CONTROL. DESBD992
|
||||
00018 SELECT AIXO-FILE ASSIGN TO DTSFAIXO DESBD992
|
||||
00019 FILE STATUS IS FILE-STATUS. DESBD992
|
||||
00020 DESBD992
|
||||
00021 SKIP2 DESBD992
|
||||
00022 DATA DIVISION. DESBD992
|
||||
00023 FILE SECTION. DESBD992
|
||||
00024 DESBD992
|
||||
00025 FD AIXO-FILE DESBD992
|
||||
00026 RECORDING MODE IS F DESBD992
|
||||
00027 BLOCK CONTAINS 0 RECORDS. DESBD992
|
||||
00028 DESBD992
|
||||
00029 01 AIXO-REC PIC X(64). DESBD992
|
||||
00030 DESBD992
|
||||
00031 WORKING-STORAGE SECTION. DESBD992
|
||||
000315 77 PAN-VALET PICTURE X(24) VALUE '001DESBD992 05/22/01'. DESBD992
|
||||
00032 SKIP3 DESBD992
|
||||
00033 01 WRK-AREA. DESBD992
|
||||
00034 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +992. DESBD992
|
||||
00035 DESBD992
|
||||
00036 05 WRK-MOD-NAME PIC X(08) VALUE 'DESBD992'. DESBD992
|
||||
00037 DESBD992
|
||||
00038 05 FILE-STATUS PIC X(02). DESBD992
|
||||
00039 88 FILE-OK-88 VALUE '00'. DESBD992
|
||||
00040 DESBD992
|
||||
00041 05 WRK-ERROR-IND PIC X(01). DESBD992
|
||||
00042 88 WRK-ERROR-YES-88 VALUE 'Y'. DESBD992
|
||||
00043 88 WRK-ERROR-NO-88 VALUE 'N'. DESBD992
|
||||
00044 DESBD992
|
||||
00045 05 REC-TYPE-SUB PIC S9(04) COMP. DESBD992
|
||||
00046 DESBD992
|
||||
00047 05 WRK-EPRF-CNT PIC 9(06) COMP-3 VALUE 0. DESBD992
|
||||
00048 05 WRK-ELOG-CNT PIC 9(06) COMP-3 VALUE 0. DESBD992
|
||||
00049 05 WRK-EEMH-CNT PIC 9(06) COMP-3 VALUE 0. DESBD992
|
||||
00050 DESBD992
|
||||
00051 05 WRK-TRACE-IND PIC X(01) VALUE 'T'. DESBD992
|
||||
00052 DESBD992
|
||||
00053 01 AIX-WORK-AREA. DESBD992
|
||||
00054 ++INCLUDE DTSIXAIX DESBD992
|
||||
00055 EJECT DESBD992
|
||||
00056 01 ISKL-REC. DESBD992
|
||||
00057 ++INCLUDE DTSIISKL DESBD992
|
||||
00058 EJECT DESBD992
|
||||
00059 01 IENM-REC. DESBD992
|
||||
00060 ++INCLUDE DTSIIENM DESBD992
|
||||
00061 EJECT DESBD992
|
||||
00062 01 IEAL-REC. DESBD992
|
||||
00063 ++INCLUDE DTSIIEAL DESBD992
|
||||
00064 EJECT DESBD992
|
||||
00065 01 IEAE-REC. DESBD992
|
||||
00066 ++INCLUDE DTSIIEAE DESBD992
|
||||
00067 EJECT DESBD992
|
||||
00068 01 IEBX-REC. DESBD992
|
||||
00069 ++INCLUDE DTSIIEBX DESBD992
|
||||
00070 EJECT DESBD992
|
||||
00071 01 IEOP-REC. DESBD992
|
||||
00072 ++INCLUDE DTSIIEOP DESBD992
|
||||
00073 EJECT DESBD992
|
||||
00074 01 IESR-REC. DESBD992
|
||||
00075 ++INCLUDE DTSIIESR DESBD992
|
||||
00076 EJECT DESBD992
|
||||
00077 01 IEER-REC. DESBD992
|
||||
00078 ++INCLUDE DTSIIEER DESBD992
|
||||
00079 EJECT DESBD992
|
||||
00080 01 IEET-REC. DESBD992
|
||||
00081 ++INCLUDE DTSIIEET DESBD992
|
||||
00082 EJECT DESBD992
|
||||
00083 01 IEPR-REC. DESBD992
|
||||
00084 ++INCLUDE DTSIIEPR DESBD992
|
||||
00085 EJECT DESBD992
|
||||
00086 01 L910-LINK-AREA. DESBD992
|
||||
00087 ++INCLUDE DTSIL910 DESBD992
|
||||
00088 EJECT DESBD992
|
||||
00089 01 MSKL-REC. DESBD992
|
||||
00090 ++INCLUDE DTSIMSKL DESBD992
|
||||
00091 EJECT DESBD992
|
||||
00092 01 MPRF-REC. DESBD992
|
||||
00093 ++INCLUDE DTSIMPRF DESBD992
|
||||
00094 EJECT DESBD992
|
||||
00095 01 L935-LINK-AREA. DESBD992
|
||||
00096 ++INCLUDE DTSIL935 DESBD992
|
||||
00097 EJECT DESBD992
|
||||
00098 01 ELEN-REC. DESBD992
|
||||
00099 ++INCLUDE DTSIELEN DESBD992
|
||||
00100 EJECT DESBD992
|
||||
00101 01 WRK-REC. DESBD992
|
||||
00102 05 ESKL-REC. DESBD992
|
||||
00103 ++INCLUDE DTSIESKL DESBD992
|
||||
00104 EJECT DESBD992
|
||||
00105 05 EPRF-REC REDEFINES ESKL-REC. DESBD992
|
||||
00106 ++INCLUDE DTSIEPRF DESBD992
|
||||
00107 EJECT DESBD992
|
||||
00108 05 ELOG-REC REDEFINES ESKL-REC. DESBD992
|
||||
00109 ++INCLUDE DTSIELOG DESBD992
|
||||
00110 EJECT DESBD992
|
||||
00111 05 EEMH-REC REDEFINES ESKL-REC. DESBD992
|
||||
00112 ++INCLUDE DTSIEEMH DESBD992
|
||||
00113 EJECT DESBD992
|
||||
00114 PROCEDURE DIVISION. DESBD992
|
||||
00115 DESBD992
|
||||
00116 DESBD992-MAIN. DESBD992
|
||||
00117 PERFORM I0000-INITIATE THRU I0000-EXIT. DESBD992
|
||||
00118 IF WRK-ERROR-YES-88 DESBD992
|
||||
00119 GO TO DESBD992-MAIN-EXIT. DESBD992
|
||||
00120 DESBD992
|
||||
00121 PERFORM P0000-PROCESS THRU P0000-EXIT. DESBD992
|
||||
00122 DESBD992
|
||||
00123 PERFORM T0000-TERMINATE THRU T0000-EXIT. DESBD992
|
||||
00124 DESBD992
|
||||
00125 DESBD992-MAIN-EXIT. DESBD992
|
||||
00126 GOBACK. DESBD992
|
||||
00127 EJECT DESBD992
|
||||
00128 I0000-INITIATE. DESBD992
|
||||
00129 SET WRK-ERROR-NO-88 TO TRUE. DESBD992
|
||||
00130 DESBD992
|
||||
00131 MOVE ' ' TO WRK-TRACE-IND. DESBD992
|
||||
00132 DESBD992
|
||||
00133 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. DESBD992
|
||||
00134 IF WRK-ERROR-YES-88 DESBD992
|
||||
00135 GO TO I0000-EXIT. DESBD992
|
||||
00136 DESBD992
|
||||
00137 I0000-EXIT. DESBD992
|
||||
00138 EXIT. DESBD992
|
||||
00139 I1000-OPEN-FILES. DESBD992
|
||||
00140 OPEN OUTPUT AIXO-FILE. DESBD992
|
||||
00141 IF FILE-OK-88 DESBD992
|
||||
00142 NEXT SENTENCE DESBD992
|
||||
00143 ELSE DESBD992
|
||||
00144 DISPLAY 'CANNOT OPEN AIXO ' DESBD992
|
||||
00145 SET WRK-ERROR-YES-88 TO TRUE DESBD992
|
||||
00146 GO TO I1000-EXIT. DESBD992
|
||||
00147 DESBD992
|
||||
00148 MOVE WRK-TRACE-IND TO L935-TRACE-IND DESBD992
|
||||
00149 L910-TRACE-IND. DESBD992
|
||||
00150 DESBD992
|
||||
00151 MOVE WRK-MOD-NAME TO L935-MOD-NAME DESBD992
|
||||
00152 L910-MOD-NAME. DESBD992
|
||||
00153 DESBD992
|
||||
00154 PERFORM S935-OPEN-READ THRU S935-EXIT. DESBD992
|
||||
00155 PERFORM S910-OPEN-READ THRU S910-EXIT. DESBD992
|
||||
00156 DESBD992
|
||||
00157 I1000-EXIT. DESBD992
|
||||
00158 EXIT. DESBD992
|
||||
00159 DESBD992
|
||||
00160 EJECT DESBD992
|
||||
00161 P0000-PROCESS. DESBD992
|
||||
00162 PERFORM P1000-SCAN-PRF THRU P1000-EXIT. DESBD992
|
||||
00163 PERFORM P2000-SCAN-LOG THRU P2000-EXIT. DESBD992
|
||||
00164 PERFORM P3000-SCAN-EMH THRU P3000-EXIT. DESBD992
|
||||
00165 DESBD992
|
||||
00166 P0000-EXIT. DESBD992
|
||||
00167 EXIT. DESBD992
|
||||
00168 EJECT DESBD992
|
||||
00169 P1000-SCAN-PRF. DESBD992
|
||||
00170 MOVE LOW-VALUES TO EPRF-REC. DESBD992
|
||||
00171 DESBD992
|
||||
00172 SET EPRF-PRF-88 TO TRUE. DESBD992
|
||||
00173 MOVE EPRF-REC-TYPE TO REC-TYPE-SUB. DESBD992
|
||||
00174 MOVE ZERO TO EPRF-ELF-ID DESBD992
|
||||
00175 EPRF-DATA-TYPE-CD. DESBD992
|
||||
00176 DESBD992
|
||||
00177 PERFORM S935-START-BROWSE THRU S935-EXIT. DESBD992
|
||||
00178 IF L935-OK-88 DESBD992
|
||||
00179 PERFORM P1100-BUILD-AIX THRU P1100-EXIT DESBD992
|
||||
00180 UNTIL L935-NO-REC-88 DESBD992
|
||||
00181 ELSE DESBD992
|
||||
00182 DISPLAY 'CANNOT READ PRF' DESBD992
|
||||
00183 GO TO P1000-EXIT DESBD992
|
||||
00184 END-IF. DESBD992
|
||||
00185 DESBD992
|
||||
00186 DESBD992
|
||||
00187 P1000-EXIT. DESBD992
|
||||
00188 EXIT. DESBD992
|
||||
00189 DESBD992
|
||||
00190 P1100-BUILD-AIX. DESBD992
|
||||
00191 ADD 1 TO WRK-EPRF-CNT. DESBD992
|
||||
00192 DESBD992
|
||||
00193 PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT. DESBD992
|
||||
00194 DESBD992
|
||||
00195 PERFORM S4000-WRITE-AIX-RECS THRU S4000-EXIT. DESBD992
|
||||
00196 DESBD992
|
||||
00197 PERFORM S935-READ-NEXT THRU S935-EXIT. DESBD992
|
||||
00198 DESBD992
|
||||
00199 P1100-EXIT. DESBD992
|
||||
00200 EXIT. DESBD992
|
||||
00201 DESBD992
|
||||
00202 P2000-SCAN-LOG. DESBD992
|
||||
00203 MOVE LOW-VALUES TO ELOG-REC. DESBD992
|
||||
00204 DESBD992
|
||||
00205 SET ELOG-LOG-88 TO TRUE. DESBD992
|
||||
00206 MOVE EPRF-REC-TYPE TO REC-TYPE-SUB. DESBD992
|
||||
00207 MOVE ZERO TO ELOG-LOG-NO. DESBD992
|
||||
00208 DESBD992
|
||||
00209 PERFORM S935-START-BROWSE THRU S935-EXIT. DESBD992
|
||||
00210 IF L935-OK-88 DESBD992
|
||||
00211 PERFORM P2100-BUILD-AIX THRU P2100-EXIT DESBD992
|
||||
00212 UNTIL L935-NO-REC-88 DESBD992
|
||||
00213 ELSE DESBD992
|
||||
00214 DISPLAY 'CANNOT READ LOG' DESBD992
|
||||
00215 GO TO P2000-EXIT DESBD992
|
||||
00216 END-IF. DESBD992
|
||||
00217 DESBD992
|
||||
00218 P2000-EXIT. DESBD992
|
||||
00219 EXIT. DESBD992
|
||||
00220 DESBD992
|
||||
00221 DESBD992
|
||||
00222 P2100-BUILD-AIX. DESBD992
|
||||
00223 ADD 1 TO WRK-ELOG-CNT. DESBD992
|
||||
00224 DESBD992
|
||||
00225 PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT. DESBD992
|
||||
00226 DESBD992
|
||||
00227 PERFORM S4000-WRITE-AIX-RECS THRU S4000-EXIT. DESBD992
|
||||
00228 DESBD992
|
||||
00229 PERFORM S935-READ-NEXT THRU S935-EXIT. DESBD992
|
||||
00230 DESBD992
|
||||
00231 P2100-EXIT. DESBD992
|
||||
00232 EXIT. DESBD992
|
||||
00233 DESBD992
|
||||
00234 P3000-SCAN-EMH. DESBD992
|
||||
00235 MOVE LOW-VALUES TO MPRF-REC. DESBD992
|
||||
00236 DESBD992
|
||||
00237 SET MPRF-PRF-88 TO TRUE. DESBD992
|
||||
00238 MOVE ZERO TO MPRF-EMP-NO DESBD992
|
||||
00239 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DESBD992
|
||||
00240 DESBD992
|
||||
00241 PERFORM S910-START-BROWSE THRU S910-EXIT. DESBD992
|
||||
00242 IF L910-OK-88 DESBD992
|
||||
00243 PERFORM P3100-SCAN-MPRF THRU P3100-EXIT DESBD992
|
||||
00244 UNTIL L910-NO-REC-88 DESBD992
|
||||
00245 ELSE DESBD992
|
||||
00246 DISPLAY 'CANNOT READ MPRF' DESBD992
|
||||
00247 GO TO P3000-EXIT DESBD992
|
||||
00248 END-IF. DESBD992
|
||||
00249 DESBD992
|
||||
00250 P3000-EXIT. DESBD992
|
||||
00251 EXIT. DESBD992
|
||||
00252 DESBD992
|
||||
00253 P3100-SCAN-MPRF. DESBD992
|
||||
00254 MOVE MSKL-REC TO MPRF-REC. DESBD992
|
||||
00255 MOVE LOW-VALUES TO EEMH-REC. DESBD992
|
||||
00256 DESBD992
|
||||
00257 SET EEMH-EMH-88 TO TRUE. DESBD992
|
||||
00258 MOVE MPRF-EMP-NO TO EEMH-EMP-NO DESBD992
|
||||
00259 MOVE ZERO TO EEMH-REPORTING-DATE DESBD992
|
||||
00260 EEMH-LOG-NO. DESBD992
|
||||
00261 MOVE SPACES TO EEMH-DATA-TYPE-CD. DESBD992
|
||||
00262 DESBD992
|
||||
00263 DESBD992
|
||||
00264 PERFORM S935-START-BROWSE THRU S935-EXIT. DESBD992
|
||||
00265 IF L935-OK-88 DESBD992
|
||||
00266 PERFORM P3110-BUILD-AIX THRU P3110-EXIT DESBD992
|
||||
00267 UNTIL L935-NO-REC-88. DESBD992
|
||||
00268 DESBD992
|
||||
00269 PERFORM S910-READ-NEXT THRU S910-EXIT. DESBD992
|
||||
00270 DESBD992
|
||||
00271 P3100-EXIT. DESBD992
|
||||
00272 EXIT. DESBD992
|
||||
00273 DESBD992
|
||||
00274 P3110-BUILD-AIX. DESBD992
|
||||
00275 DISPLAY 'EEMH ' EEMH-EMP-NO. DESBD992
|
||||
00276 DESBD992
|
||||
00277 IF EEMH-LOG-NO = ZERO DESBD992
|
||||
00278 DISPLAY 'EEMH LOG NO = ZERO ' DESBD992
|
||||
00279 EEMH-EMP-NO ' ' EEMH-LOG-NO DESBD992
|
||||
00280 PERFORM S935-READ-NEXT THRU S935-EXIT DESBD992
|
||||
00281 GO TO P3110-EXIT. DESBD992
|
||||
00282 DESBD992
|
||||
00283 ADD 1 TO WRK-EEMH-CNT. DESBD992
|
||||
00284 DESBD992
|
||||
00285 PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT. DESBD992
|
||||
00286 DESBD992
|
||||
00287 PERFORM S4000-WRITE-AIX-RECS THRU S4000-EXIT. DESBD992
|
||||
00288 DESBD992
|
||||
00289 PERFORM S935-READ-NEXT THRU S935-EXIT. DESBD992
|
||||
00290 DESBD992
|
||||
00291 P3110-EXIT. DESBD992
|
||||
00292 EXIT. DESBD992
|
||||
00293 DESBD992
|
||||
00294 T0000-TERMINATE. DESBD992
|
||||
00295 DESBD992
|
||||
00296 DISPLAY ' '. DESBD992
|
||||
00297 DESBD992
|
||||
00298 DISPLAY '*** DESBD992 TERMINATION STATISTICS ***'. DESBD992
|
||||
00299 DESBD992
|
||||
00300 DISPLAY ' '. DESBD992
|
||||
00301 DESBD992
|
||||
00302 DISPLAY 'EPRF RECORDS READ: ' DESBD992
|
||||
00303 WRK-EPRF-CNT. DESBD992
|
||||
00304 DESBD992
|
||||
00305 DISPLAY 'ELOG RECORDS READ: ' DESBD992
|
||||
00306 WRK-ELOG-CNT. DESBD992
|
||||
00307 DESBD992
|
||||
00308 DISPLAY 'EEMH RECORDS READ: ' DESBD992
|
||||
00309 WRK-EEMH-CNT. DESBD992
|
||||
00310 DESBD992
|
||||
00311 DISPLAY SPACE. DESBD992
|
||||
00312 DESBD992
|
||||
00313 PERFORM S935-CLOSE THRU S935-EXIT. DESBD992
|
||||
00314 PERFORM S910-CLOSE THRU S910-EXIT. DESBD992
|
||||
00315 DESBD992
|
||||
00316 T0000-EXIT. DESBD992
|
||||
00317 EXIT. DESBD992
|
||||
00318 EJECT DESBD992
|
||||
00319 ++INCLUDE DTSIP011 DESBD992
|
||||
00320 DESBD992
|
||||
00321 ++INCLUDE DTSIP013 DESBD992
|
||||
00322 DESBD992
|
||||
00323 S4000-WRITE-AIX-RECS. DESBD992
|
||||
00324 PERFORM DESBD992
|
||||
00325 VARYING AIX-REC-SUB FROM 1 BY 1 DESBD992
|
||||
00326 UNTIL AIX-REC-SUB > AIX-REC-MAX DESBD992
|
||||
00327 IF PRE-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES DESBD992
|
||||
00328 MOVE PRE-UPDATE-AIX-REC (AIX-REC-SUB) DESBD992
|
||||
00329 TO AIXO-REC DESBD992
|
||||
00330 PERFORM S4100-DISPLAY THRU S4100-EXIT DESBD992
|
||||
00331 PERFORM S992-WRITE-AIX THRU S992-EXIT DESBD992
|
||||
00332 END-IF DESBD992
|
||||
00333 END-PERFORM. DESBD992
|
||||
00334 DESBD992
|
||||
00335 S4000-EXIT. DESBD992
|
||||
00336 EXIT. DESBD992
|
||||
00337 DESBD992
|
||||
00338 S4100-DISPLAY. DESBD992
|
||||
00339 MOVE AIXO-REC TO ISKL-REC. DESBD992
|
||||
00340 DESBD992
|
||||
00341 EVALUATE ISKL-REC-TYPE DESBD992
|
||||
00342 WHEN +11 DESBD992
|
||||
00343 MOVE ISKL-REC TO IENM-REC DESBD992
|
||||
00344 DISPLAY 'IENM ' IENM-NAME ' ' IENM-ELF-ID DESBD992
|
||||
00345 WHEN +12 DESBD992
|
||||
00346 MOVE ISKL-REC TO IEAL-REC DESBD992
|
||||
00347 DISPLAY 'IEAL ' IEAL-LOG-NO-SFX ' ' IEAL-LOG-NO DESBD992
|
||||
00348 WHEN +13 DESBD992
|
||||
00349 MOVE ISKL-REC TO IEAE-REC DESBD992
|
||||
00350 DISPLAY 'IEAE ' IEAE-ELF-ID ' ' IEAE-LOG-NO DESBD992
|
||||
00351 WHEN +14 DESBD992
|
||||
00352 MOVE ISKL-REC TO IEBX-REC DESBD992
|
||||
00353 DISPLAY 'IEBX ' IEBX-BOX-NO ' ' IEBX-LOG-NO DESBD992
|
||||
00354 WHEN +15 DESBD992
|
||||
00355 MOVE ISKL-REC TO IEOP-REC DESBD992
|
||||
00356 DISPLAY 'IEOP ' IEOP-OPID ' ' IEOP-LOG-NO DESBD992
|
||||
00357 WHEN +16 DESBD992
|
||||
00358 MOVE ISKL-REC TO IESR-REC DESBD992
|
||||
00359 DISPLAY 'IESR ' IESR-ELF-ID ' ' IESR-LOG-NO DESBD992
|
||||
00360 WHEN +17 DESBD992
|
||||
00361 MOVE ISKL-REC TO IEER-REC DESBD992
|
||||
00362 DISPLAY 'IEER ' IEER-EMP-NO ' ' IEER-LOG-NO DESBD992
|
||||
00363 WHEN +18 DESBD992
|
||||
00364 MOVE ISKL-REC TO IEET-REC DESBD992
|
||||
00365 DISPLAY 'IEET ' IEET-EMP-NO ' ' IEET-LOG-NO DESBD992
|
||||
00366 WHEN +19 DESBD992
|
||||
00367 MOVE ISKL-REC TO IEPR-REC DESBD992
|
||||
00368 DISPLAY 'IEPR ' IEPR-ELF-ID DESBD992
|
||||
00369 WHEN OTHER DESBD992
|
||||
00370 DISPLAY 'UNKNOWN AIX TYPE ' ISKL-REC-TYPE DESBD992
|
||||
00371 END-EVALUATE. DESBD992
|
||||
00372 DESBD992
|
||||
00373 S4100-EXIT. DESBD992
|
||||
00374 EXIT. DESBD992
|
||||
00375 DESBD992
|
||||
00376 S910-OPEN-READ. DESBD992
|
||||
00377 SET L910-OPEN-READ-88 TO TRUE. DESBD992
|
||||
00378 GO TO S910-MSTR-IO. DESBD992
|
||||
00379 DESBD992
|
||||
00380 S910-START-BROWSE. DESBD992
|
||||
00381 SET L910-START-BROWSE-88 TO TRUE. DESBD992
|
||||
00382 GO TO S910-MSTR-IO. DESBD992
|
||||
00383 DESBD992
|
||||
00384 S910-READ-NEXT. DESBD992
|
||||
00385 SET L910-READ-NEXT-88 TO TRUE. DESBD992
|
||||
00386 GO TO S910-MSTR-IO. DESBD992
|
||||
00387 DESBD992
|
||||
00388 S910-CLOSE. DESBD992
|
||||
00389 SET L910-CLOSE-88 TO TRUE. DESBD992
|
||||
00390 GO TO S910-MSTR-IO. DESBD992
|
||||
00391 DESBD992
|
||||
00392 S910-MSTR-IO. DESBD992
|
||||
00393 CALL 'DTSBU910' USING L910-LINK-AREA DESBD992
|
||||
00394 MSKL-REC. DESBD992
|
||||
00395 S910-EXIT. DESBD992
|
||||
00396 EXIT. DESBD992
|
||||
00397 DESBD992
|
||||
00398 S935-OPEN-READ. DESBD992
|
||||
00399 SET L935-OPEN-READ-88 TO TRUE. DESBD992
|
||||
00400 GO TO S935-MSTR-IO. DESBD992
|
||||
00401 DESBD992
|
||||
00402 S935-OPEN-UPDATE. DESBD992
|
||||
00403 SET L935-OPEN-UPDATE-88 TO TRUE. DESBD992
|
||||
00404 GO TO S935-MSTR-IO. DESBD992
|
||||
00405 DESBD992
|
||||
00406 S935-OPEN-UPDATE-NO-AIX. DESBD992
|
||||
00407 SET L935-OPEN-UPDATE-NO-AIX-88 TO TRUE. DESBD992
|
||||
00408 GO TO S935-MSTR-IO. DESBD992
|
||||
00409 DESBD992
|
||||
00410 S935-READ. DESBD992
|
||||
00411 SET L935-READ-88 TO TRUE. DESBD992
|
||||
00412 GO TO S935-MSTR-IO. DESBD992
|
||||
00413 DESBD992
|
||||
00414 S935-START-BROWSE. DESBD992
|
||||
00415 SET L935-START-BROWSE-88 TO TRUE. DESBD992
|
||||
00416 GO TO S935-MSTR-IO. DESBD992
|
||||
00417 DESBD992
|
||||
00418 S935-READ-NEXT. DESBD992
|
||||
00419 SET L935-READ-NEXT-88 TO TRUE. DESBD992
|
||||
00420 GO TO S935-MSTR-IO. DESBD992
|
||||
00421 DESBD992
|
||||
00422 S935-DELETE. DESBD992
|
||||
00423 SET L935-DELETE-88 TO TRUE. DESBD992
|
||||
00424 GO TO S935-MSTR-IO. DESBD992
|
||||
00425 DESBD992
|
||||
00426 S935-WRITE. DESBD992
|
||||
00427 SET L935-WRITE-88 TO TRUE. DESBD992
|
||||
00428 GO TO S935-MSTR-IO. DESBD992
|
||||
00429 DESBD992
|
||||
00430 S935-REWRITE. DESBD992
|
||||
00431 SET L935-REWRITE-88 TO TRUE. DESBD992
|
||||
00432 GO TO S935-MSTR-IO. DESBD992
|
||||
00433 DESBD992
|
||||
00434 S935-CLOSE. DESBD992
|
||||
00435 SET L935-CLOSE-88 TO TRUE. DESBD992
|
||||
00436 GO TO S935-MSTR-IO. DESBD992
|
||||
00437 DESBD992
|
||||
00438 S935-MSTR-IO. DESBD992
|
||||
00439 CALL 'DTSBU935' USING L935-LINK-AREA DESBD992
|
||||
00440 ESKL-REC. DESBD992
|
||||
00441 S935-EXIT. DESBD992
|
||||
00442 EXIT. DESBD992
|
||||
00443 DESBD992
|
||||
00444 S992-WRITE-AIX. DESBD992
|
||||
00445 WRITE AIXO-REC. DESBD992
|
||||
00446 DESBD992
|
||||
00447 IF FILE-OK-88 DESBD992
|
||||
00448 NEXT SENTENCE DESBD992
|
||||
00449 ELSE DESBD992
|
||||
00450 PERFORM S999-ABEND THRU S999-EXIT. DESBD992
|
||||
00451 DESBD992
|
||||
00452 S992-EXIT. DESBD992
|
||||
00453 EXIT. DESBD992
|
||||
00454 DESBD992
|
||||
00455 SKIP3 DESBD992
|
||||
00456 S999-ABEND. DESBD992
|
||||
00457 CALL 'DTSBU999' USING WRK-ABEND-CD. DESBD992
|
||||
00458 S999-EXIT. DESBD992
|
||||
00459 EXIT. DESBD992
|
||||
Reference in New Issue
Block a user