DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
881
Batch/DTSBU935.cob
Normal file
881
Batch/DTSBU935.cob
Normal file
@ -0,0 +1,881 @@
|
||||
00001 IDENTIFICATION DIVISION. 12/01/05
|
||||
00002 PROGRAM-ID. DTSBU935. DTSBU935
|
||||
00003 AUTHOR. TRW. LV002
|
||||
00004 DATE-WRITTEN. JANUARY 2001. DTSBU935
|
||||
00005 DATE-COMPILED. DTSBU935
|
||||
00006 SKIP3 DTSBU935
|
||||
00007 ***** DTSBU935
|
||||
00008 * DTSBU935
|
||||
00009 * FUNCTION: ELECTRONIC MEDIA FILE INPUT/OUTPUT. DTSBU935
|
||||
00010 * DTSBU935
|
||||
00011 * DTSBU935
|
||||
00012 * MODIFICATION LOG: DTSBU935
|
||||
00013 * DTSBU935
|
||||
00014 * 01/17/2001 INITIAL DEVELOPMENT. DTSBU935
|
||||
00015 * WORK ORDER: PROGRAMMER: GD DTSBU935
|
||||
00016 * DTSBU935
|
||||
00017 * 03/23/2001 ADDED TEST FOR DUP KEY DURING WRITE. DTSBU935
|
||||
00018 * WORK ORDER: PROGRAMMER: GD DTSBU935
|
||||
00019 * DTSBU935
|
||||
00020 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU935
|
||||
00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU935
|
||||
00022 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU935
|
||||
00023 * DTSBU935
|
||||
00024 * DTSBU935
|
||||
00025 * DESCRIPTION: DTSBU935
|
||||
00026 * DTSBU935
|
||||
00027 * DTSBU935 PERFORMS ALL REQUIRED ELECTRONIC MEDIA DTSBU935
|
||||
00028 * FILE INPUT/OUTPUT. DTSBU935
|
||||
00029 * DTSBU935
|
||||
00030 * DTSBU935
|
||||
00031 * GENERAL SPECIFICATIONS: DTSBU935
|
||||
00032 * DTSBU935
|
||||
00033 * ALL COMMANDS ARE VALID. DTSBU935
|
||||
00034 * DTSBU935
|
||||
00035 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBU935
|
||||
00036 * MODULE. DTSBU935
|
||||
00037 * DTSBU935
|
||||
00038 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBU935
|
||||
00039 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBU935
|
||||
00040 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBU935
|
||||
00041 * DTSBU935
|
||||
00042 * DTSBU935
|
||||
00043 * DTSBU935
|
||||
00044 * COMMAND SPECIFIC SPECIFICATIONS: DTSBU935
|
||||
00045 * DTSBU935
|
||||
00046 * OPEN-READ DTSBU935
|
||||
00047 * OPEN INPUT. DTSBU935
|
||||
00048 * DTSBU935
|
||||
00049 * OPEN-UPDATE DTSBU935
|
||||
00050 * OPEN I-O. DTSBU935
|
||||
00051 * DTSBU935
|
||||
00052 * CLOSE DTSBU935
|
||||
00053 * DTSBU935
|
||||
00054 * READ DTSBU935
|
||||
00055 * DTSBU935
|
||||
00056 * START BROWSE DTSBU935
|
||||
00057 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBU935
|
||||
00058 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBU935
|
||||
00059 * A RECORD. DTSBU935
|
||||
00060 * DTSBU935
|
||||
00061 * READ NEXT DTSBU935
|
||||
00062 * RETURN L935-NO-REC-88 AT A BREAK IN REC-TYPE DTSBU935
|
||||
00063 * AND AT END OF FILE. DTSBU935
|
||||
00064 * FOR THE PROFILE RECORD FILE (MSTE) RETURN DTSBU935
|
||||
00065 * L935-NO-REC-88 ONLY AT END OF FILE. DTSBU935
|
||||
00066 * FOR THE LOG FILE (MSTF) RETURN DTSBU935
|
||||
00067 * L935-NO-REC-88 AT A BREAK IN LOG NUMBER. DTSBU935
|
||||
00068 * FOR THE EMPLOYER HISTORY FILE (MSTG) RETURN DTSBU935
|
||||
00069 * L935-NO-REC-88 AT A BREAK IN EMP-NO. DTSBU935
|
||||
00070 * DTSBU935
|
||||
00071 * WRITE DTSBU935
|
||||
00072 * DTSBU935
|
||||
00073 * REWRITE DTSBU935
|
||||
00074 * DTSBU935
|
||||
00075 * DELETE DTSBU935
|
||||
00076 * DTSBU935
|
||||
00077 * DTSBU935
|
||||
00078 ***** DTSBU935
|
||||
00079 SKIP3 DTSBU935
|
||||
00080 ENVIRONMENT DIVISION. DTSBU935
|
||||
00081 SKIP2 DTSBU935
|
||||
00082 INPUT-OUTPUT SECTION. DTSBU935
|
||||
00083 DTSBU935
|
||||
00084 FILE-CONTROL. DTSBU935
|
||||
00085 SELECT MSTE-FILE DTSBU935
|
||||
00086 ASSIGN TO DTSFMSTE DTSBU935
|
||||
00087 ORGANIZATION IS INDEXED DTSBU935
|
||||
00088 RECORD KEY IS ESKL-KEY-AREA OF MSTE-SKL-REC DTSBU935
|
||||
00089 FILE STATUS IS FILE-STATUS DTSBU935
|
||||
00090 ACCESS IS DYNAMIC. DTSBU935
|
||||
00091 SKIP3 DTSBU935
|
||||
00092 SELECT MSTF-FILE DTSBU935
|
||||
00093 ASSIGN TO DTSFMSTF DTSBU935
|
||||
00094 ORGANIZATION IS INDEXED DTSBU935
|
||||
00095 RECORD KEY IS ESKL-KEY-AREA OF MSTF-SKL-REC DTSBU935
|
||||
00096 FILE STATUS IS FILE-STATUS DTSBU935
|
||||
00097 ACCESS IS DYNAMIC. DTSBU935
|
||||
00098 SKIP3 DTSBU935
|
||||
00099 SELECT MSTG-FILE DTSBU935
|
||||
00100 ASSIGN TO DTSFMSTG DTSBU935
|
||||
00101 ORGANIZATION IS INDEXED DTSBU935
|
||||
00102 RECORD KEY IS ESKL-KEY-AREA OF MSTG-SKL-REC DTSBU935
|
||||
00103 FILE STATUS IS FILE-STATUS DTSBU935
|
||||
00104 ACCESS IS DYNAMIC. DTSBU935
|
||||
00105 SKIP3 DTSBU935
|
||||
00106 DATA DIVISION. DTSBU935
|
||||
00107 SKIP3 DTSBU935
|
||||
00108 FILE SECTION. DTSBU935
|
||||
00109 SKIP3 DTSBU935
|
||||
00110 FD MSTE-FILE. DTSBU935
|
||||
00111 DTSBU935
|
||||
00112 01 MSTE-SKL-REC. DTSBU935
|
||||
00113 ++INCLUDE DTSIESKL DTSBU935
|
||||
00114 SKIP3 DTSBU935
|
||||
00115 01 MSTE-VAR-REC. DTSBU935
|
||||
00116 05 MSTE-VAR-CHAR OCCURS 32 TO 1024 TIMES DTSBU935
|
||||
00117 DEPENDING ON VAR-CHAR-CNT DTSBU935
|
||||
00118 PIC X(01). DTSBU935
|
||||
00119 DTSBU935
|
||||
00120 FD MSTF-FILE. DTSBU935
|
||||
00121 DTSBU935
|
||||
00122 01 MSTF-SKL-REC. DTSBU935
|
||||
00123 ++INCLUDE DTSIESKL DTSBU935
|
||||
00124 SKIP3 DTSBU935
|
||||
00125 01 MSTF-VAR-REC. DTSBU935
|
||||
00126 05 MSTF-VAR-CHAR OCCURS 32 TO 1024 TIMES DTSBU935
|
||||
00127 DEPENDING ON VAR-CHAR-CNT DTSBU935
|
||||
00128 PIC X(01). DTSBU935
|
||||
00129 DTSBU935
|
||||
00130 FD MSTG-FILE. DTSBU935
|
||||
00131 DTSBU935
|
||||
00132 01 MSTG-SKL-REC. DTSBU935
|
||||
00133 ++INCLUDE DTSIESKL DTSBU935
|
||||
00134 SKIP3 DTSBU935
|
||||
00135 01 MSTG-VAR-REC. DTSBU935
|
||||
00136 05 MSTG-VAR-CHAR OCCURS 32 TO 1024 TIMES DTSBU935
|
||||
00137 DEPENDING ON VAR-CHAR-CNT DTSBU935
|
||||
00138 PIC X(01). DTSBU935
|
||||
00139 DTSBU935
|
||||
00140 EJECT DTSBU935
|
||||
00141 WORKING-STORAGE SECTION. DTSBU935
|
||||
001415 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU935 12/01/05'. DTSBU935
|
||||
00142 SKIP3 DTSBU935
|
||||
00143 01 WRK-AREA. DTSBU935
|
||||
00144 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +935.DTSBU935
|
||||
00145 DTSBU935
|
||||
00146 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU935'. DTSBU935
|
||||
00147 DTSBU935
|
||||
00148 05 VAR-CHAR-CNT PIC S9(04) COMP. DTSBU935
|
||||
00149 DTSBU935
|
||||
00150 05 FILE-STATUS PIC X(02). DTSBU935
|
||||
00151 88 FILE-OK-88 VALUE '00'. DTSBU935
|
||||
00152 88 FILE-NO-REC-88 VALUE '10' '23'. DTSBU935
|
||||
00153 88 FILE-DUP-KEY-88 VALUE '22'. DTSBU935
|
||||
00154 88 FILE-VERIFY-88 VALUE '97'. DTSBU935
|
||||
00155 DTSBU935
|
||||
00156 05 WRK-REC-PREFIX PIC X(04). DTSBU935
|
||||
00157 DTSBU935
|
||||
00158 05 REC-TYPE-SUB PIC S9(04) COMP. DTSBU935
|
||||
00159 DTSBU935
|
||||
00160 05 FILE-SUB PIC S9(04) COMP. DTSBU935
|
||||
00161 88 FILE-SUB-MSTE-88 VALUE +1. DTSBU935
|
||||
00162 88 FILE-SUB-MSTF-88 VALUE +2. DTSBU935
|
||||
00163 88 FILE-SUB-MSTG-88 VALUE +3. DTSBU935
|
||||
00164 DTSBU935
|
||||
00165 05 FILE-STATE PIC X(03) VALUE 'CL '. DTSBU935
|
||||
00166 88 FILE-OPEN-READ-88 VALUE 'OPR'. DTSBU935
|
||||
00167 88 FILE-OPEN-UPDATE-88 VALUE 'OPU'. DTSBU935
|
||||
00168 88 FILE-OPEN-UPDATE-HDR-88 VALUE 'OPH'. DTSBU935
|
||||
00169 88 FILE-OPEN-UPDATE-NO-AIX-88 VALUE 'OPA'. DTSBU935
|
||||
00170 88 FILE-CLOSE-88 VALUE 'CL '. DTSBU935
|
||||
00171 DTSBU935
|
||||
00172 05 WRK-KEY-FILLER-START PIC S9(04) COMP. DTSBU935
|
||||
00173 DTSBU935
|
||||
00174 05 WRK-KEY-FILLER-LENGTH PIC S9(04) COMP. DTSBU935
|
||||
00175 DTSBU935
|
||||
00176 01 WRK-REC. DTSBU935
|
||||
00177 ++INCLUDE DTSIESKL DTSBU935
|
||||
00178 01 FILLER REDEFINES WRK-REC. DTSBU935
|
||||
00179 05 WRK-VAR-CHAR OCCURS 1024 TIMES PIC X(01). DTSBU935
|
||||
00180 DTSBU935
|
||||
00181 01 EPRF-REC REDEFINES WRK-REC. DTSBU935
|
||||
00182 ++INCLUDE DTSIEPRF DTSBU935
|
||||
00183 DTSBU935
|
||||
00184 01 ELOG-REC REDEFINES WRK-REC. DTSBU935
|
||||
00185 ++INCLUDE DTSIELOG DTSBU935
|
||||
00186 DTSBU935
|
||||
00187 01 EEMH-REC REDEFINES WRK-REC. DTSBU935
|
||||
00188 ++INCLUDE DTSIEEMH DTSBU935
|
||||
00189 DTSBU935
|
||||
00190 EJECT DTSBU935
|
||||
00191 01 AIX-WORK-AREA. DTSBU935
|
||||
00192 ++INCLUDE DTSIXAIX DTSBU935
|
||||
00193 DTSBU935
|
||||
00194 01 L921-LINK-AREA. DTSBU935
|
||||
00195 ++INCLUDE DTSIL921 DTSBU935
|
||||
00196 DTSBU935
|
||||
00197 01 ISKL-REC. DTSBU935
|
||||
00198 ++INCLUDE DTSIISKL DTSBU935
|
||||
00199 DTSBU935
|
||||
00200 01 IENM-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00201 ++INCLUDE DTSIIENM DTSBU935
|
||||
00202 DTSBU935
|
||||
00203 01 IEAL-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00204 ++INCLUDE DTSIIEAL DTSBU935
|
||||
00205 DTSBU935
|
||||
00206 01 IEAE-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00207 ++INCLUDE DTSIIEAE DTSBU935
|
||||
00208 DTSBU935
|
||||
00209 01 IEBX-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00210 ++INCLUDE DTSIIEBX DTSBU935
|
||||
00211 DTSBU935
|
||||
00212 01 IEOP-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00213 ++INCLUDE DTSIIEOP DTSBU935
|
||||
00214 DTSBU935
|
||||
00215 01 IESR-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00216 ++INCLUDE DTSIIESR DTSBU935
|
||||
00217 DTSBU935
|
||||
00218 01 IEER-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00219 ++INCLUDE DTSIIEER DTSBU935
|
||||
00220 DTSBU935
|
||||
00221 01 IEET-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00222 ++INCLUDE DTSIIEET DTSBU935
|
||||
00223 DTSBU935
|
||||
00224 01 IEPR-REC REDEFINES ISKL-REC. DTSBU935
|
||||
00225 ++INCLUDE DTSIIEPR DTSBU935
|
||||
00226 DTSBU935
|
||||
00227 01 L991-LINK-AREA. DTSBU935
|
||||
00228 ++INCLUDE DTSIL991 DTSBU935
|
||||
00229 EJECT DTSBU935
|
||||
00230 01 ELEN-LENGTH-LITERALS. DTSBU935
|
||||
00231 ++INCLUDE DTSIELEN DTSBU935
|
||||
00232 EJECT DTSBU935
|
||||
00233 LINKAGE SECTION. DTSBU935
|
||||
00234 SKIP3 DTSBU935
|
||||
00235 01 L935-LINK-AREA. DTSBU935
|
||||
00236 ++INCLUDE DTSIL935 DTSBU935
|
||||
00237 EJECT DTSBU935
|
||||
00238 01 LINK-REC. DTSBU935
|
||||
00239 05 ESKL-REC. DTSBU935
|
||||
00240 ++INCLUDE DTSIESKL DTSBU935
|
||||
00241 EJECT DTSBU935
|
||||
00242 PROCEDURE DIVISION USING L935-LINK-AREA DTSBU935
|
||||
00243 LINK-REC. DTSBU935
|
||||
00244 DTSBU935
|
||||
00245 DTSBU935
|
||||
00246 SET L935-OK-88 TO TRUE. DTSBU935
|
||||
00247 DTSBU935
|
||||
00248 IF L935-TRACE-88 DTSBU935
|
||||
00249 PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT. DTSBU935
|
||||
00250 DTSBU935
|
||||
00251 IF L935-OPEN-88 DTSBU935
|
||||
00252 PERFORM P1100-OPEN THRU P1100-EXIT DTSBU935
|
||||
00253 ELSE DTSBU935
|
||||
00254 IF L935-CLOSE-88 DTSBU935
|
||||
00255 PERFORM P1200-CLOSE THRU P1200-EXIT DTSBU935
|
||||
00256 ELSE DTSBU935
|
||||
00257 PERFORM P0100-REC-TYPE THRU P0100-EXIT DTSBU935
|
||||
00258 IF L935-READ-NEXT-88 DTSBU935
|
||||
00259 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU935
|
||||
00260 ELSE DTSBU935
|
||||
00261 IF L935-READ-88 DTSBU935
|
||||
00262 PERFORM P2100-READ THRU P2100-EXIT DTSBU935
|
||||
00263 ELSE DTSBU935
|
||||
00264 IF L935-START-BROWSE-88 DTSBU935
|
||||
00265 PERFORM P2200-START-BROWSE THRU P2200-EXIT DTSBU935
|
||||
00266 ELSE DTSBU935
|
||||
00267 IF L935-WRITE-88 DTSBU935
|
||||
00268 OR L935-WRITE-CHK-DUP-KEY-88 DTSBU935
|
||||
00269 PERFORM P3100-WRITE THRU P3100-EXIT DTSBU935
|
||||
00270 ELSE DTSBU935
|
||||
00271 IF L935-REWRITE-88 DTSBU935
|
||||
00272 PERFORM P3200-REWRITE THRU P3200-EXIT DTSBU935
|
||||
00273 ELSE DTSBU935
|
||||
00274 IF L935-DELETE-88 DTSBU935
|
||||
00275 PERFORM P3300-DELETE THRU P3300-EXIT DTSBU935
|
||||
00276 ELSE DTSBU935
|
||||
00277 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00278 DTSBU935
|
||||
00279 IF L935-TRACE-88 DTSBU935
|
||||
00280 PERFORM S9200-POST-DISPLAY THRU S9200-EXIT. DTSBU935
|
||||
00281 DTSBU935
|
||||
00282 DTSBU935
|
||||
00283 GOBACK. DTSBU935
|
||||
00284 EJECT DTSBU935
|
||||
00285 P0100-REC-TYPE. DTSBU935
|
||||
00286 MOVE ESKL-REC-TYPE OF LINK-REC TO REC-TYPE-SUB. DTSBU935
|
||||
00287 DTSBU935
|
||||
00288 IF (REC-TYPE-SUB < +1) DTSBU935
|
||||
00289 OR (REC-TYPE-SUB > ELEN-MAX-REC-ID) DTSBU935
|
||||
00290 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00291 DTSBU935
|
||||
00292 MOVE ELEN-FILE-ID (REC-TYPE-SUB) TO FILE-SUB. DTSBU935
|
||||
00293 IF FILE-SUB = +0 DTSBU935
|
||||
00294 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00295 DTSBU935
|
||||
00296 MOVE ELEN-REC-LEN (REC-TYPE-SUB) TO VAR-CHAR-CNT. DTSBU935
|
||||
00297 IF (VAR-CHAR-CNT < +1) DTSBU935
|
||||
00298 OR DTSBU935
|
||||
00299 (VAR-CHAR-CNT > ELEN-MAX-REC-LEN) DTSBU935
|
||||
00300 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00301 DTSBU935
|
||||
00302 P0100-EXIT. DTSBU935
|
||||
00303 EXIT. DTSBU935
|
||||
00304 DTSBU935
|
||||
00305 P1100-OPEN. DTSBU935
|
||||
00306 IF L935-OPEN-READ-88 DTSBU935
|
||||
00307 OR L935-OPEN-UPDATE-88 DTSBU935
|
||||
00308 OR L935-OPEN-UPDATE-HDR-88 DTSBU935
|
||||
00309 OR L935-OPEN-UPDATE-NO-AIX-88 DTSBU935
|
||||
00310 NEXT SENTENCE DTSBU935
|
||||
00311 ELSE DTSBU935
|
||||
00312 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00313 DTSBU935
|
||||
00314 MOVE L935-CMND-CD TO FILE-STATE. DTSBU935
|
||||
00315 DTSBU935
|
||||
00316 IF L935-OPEN-READ-88 DTSBU935
|
||||
00317 OPEN INPUT MSTE-FILE DTSBU935
|
||||
00318 ELSE DTSBU935
|
||||
00319 OPEN I-O MSTE-FILE. DTSBU935
|
||||
00320 DTSBU935
|
||||
00321 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU935
|
||||
00322 NEXT SENTENCE DTSBU935
|
||||
00323 ELSE DTSBU935
|
||||
00324 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00325 DTSBU935
|
||||
00326 IF L935-OPEN-READ-88 DTSBU935
|
||||
00327 OR L935-OPEN-UPDATE-HDR-88 DTSBU935
|
||||
00328 OPEN INPUT MSTF-FILE DTSBU935
|
||||
00329 ELSE DTSBU935
|
||||
00330 OPEN I-O MSTF-FILE. DTSBU935
|
||||
00331 DTSBU935
|
||||
00332 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU935
|
||||
00333 NEXT SENTENCE DTSBU935
|
||||
00334 ELSE DTSBU935
|
||||
00335 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00336 DTSBU935
|
||||
00337 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU935
|
||||
00338 NEXT SENTENCE DTSBU935
|
||||
00339 ELSE DTSBU935
|
||||
00340 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00341 DTSBU935
|
||||
00342 IF L935-OPEN-READ-88 DTSBU935
|
||||
00343 OR L935-OPEN-UPDATE-HDR-88 DTSBU935
|
||||
00344 OPEN INPUT MSTG-FILE DTSBU935
|
||||
00345 ELSE DTSBU935
|
||||
00346 OPEN I-O MSTG-FILE. DTSBU935
|
||||
00347 DTSBU935
|
||||
00348 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU935
|
||||
00349 NEXT SENTENCE DTSBU935
|
||||
00350 ELSE DTSBU935
|
||||
00351 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00352 DTSBU935
|
||||
00353 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU935
|
||||
00354 NEXT SENTENCE DTSBU935
|
||||
00355 ELSE DTSBU935
|
||||
00356 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00357 DTSBU935
|
||||
00358 P1100-EXIT. DTSBU935
|
||||
00359 EXIT. DTSBU935
|
||||
00360 SKIP3 DTSBU935
|
||||
00361 P1200-CLOSE. DTSBU935
|
||||
00362 MOVE L935-CMND-CD TO FILE-STATE. DTSBU935
|
||||
00363 DTSBU935
|
||||
00364 CLOSE MSTE-FILE. DTSBU935
|
||||
00365 DTSBU935
|
||||
00366 IF FILE-OK-88 DTSBU935
|
||||
00367 NEXT SENTENCE DTSBU935
|
||||
00368 ELSE DTSBU935
|
||||
00369 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00370 DTSBU935
|
||||
00371 CLOSE MSTF-FILE. DTSBU935
|
||||
00372 DTSBU935
|
||||
00373 IF FILE-OK-88 DTSBU935
|
||||
00374 NEXT SENTENCE DTSBU935
|
||||
00375 ELSE DTSBU935
|
||||
00376 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00377 DTSBU935
|
||||
00378 CLOSE MSTG-FILE. DTSBU935
|
||||
00379 DTSBU935
|
||||
00380 IF FILE-OK-88 DTSBU935
|
||||
00381 NEXT SENTENCE DTSBU935
|
||||
00382 ELSE DTSBU935
|
||||
00383 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00384 DTSBU935
|
||||
00385 P1200-EXIT. DTSBU935
|
||||
00386 EXIT. DTSBU935
|
||||
00387 EJECT DTSBU935
|
||||
00388 P2100-READ. DTSBU935
|
||||
00389 IF FILE-SUB-MSTE-88 DTSBU935
|
||||
00390 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00391 TO ESKL-KEY-AREA OF MSTE-SKL-REC DTSBU935
|
||||
00392 READ MSTE-FILE INTO WRK-REC DTSBU935
|
||||
00393 ELSE DTSBU935
|
||||
00394 IF FILE-SUB-MSTF-88 DTSBU935
|
||||
00395 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00396 TO ESKL-KEY-AREA OF MSTF-SKL-REC DTSBU935
|
||||
00397 READ MSTF-FILE INTO WRK-REC DTSBU935
|
||||
00398 ELSE DTSBU935
|
||||
00399 IF FILE-SUB-MSTG-88 DTSBU935
|
||||
00400 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00401 TO ESKL-KEY-AREA OF MSTG-SKL-REC DTSBU935
|
||||
00402 READ MSTG-FILE INTO WRK-REC DTSBU935
|
||||
00403 ELSE DTSBU935
|
||||
00404 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00405 DTSBU935
|
||||
00406 IF FILE-OK-88 DTSBU935
|
||||
00407 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU935
|
||||
00408 ELSE DTSBU935
|
||||
00409 IF FILE-NO-REC-88 DTSBU935
|
||||
00410 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU935
|
||||
00411 ELSE DTSBU935
|
||||
00412 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00413 P2100-EXIT. DTSBU935
|
||||
00414 EXIT. DTSBU935
|
||||
00415 EJECT DTSBU935
|
||||
00416 P2200-START-BROWSE. DTSBU935
|
||||
00417 IF FILE-SUB-MSTE-88 DTSBU935
|
||||
00418 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00419 TO ESKL-KEY-AREA OF MSTE-SKL-REC DTSBU935
|
||||
00420 START MSTE-FILE DTSBU935
|
||||
00421 KEY IS NOT < ESKL-KEY-AREA OF MSTE-SKL-REC DTSBU935
|
||||
00422 ELSE DTSBU935
|
||||
00423 IF FILE-SUB-MSTF-88 DTSBU935
|
||||
00424 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00425 TO ESKL-KEY-AREA OF MSTF-SKL-REC DTSBU935
|
||||
00426 START MSTF-FILE DTSBU935
|
||||
00427 KEY IS NOT < ESKL-KEY-AREA OF MSTF-SKL-REC DTSBU935
|
||||
00428 ELSE DTSBU935
|
||||
00429 IF FILE-SUB-MSTG-88 DTSBU935
|
||||
00430 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00431 TO ESKL-KEY-AREA OF MSTG-SKL-REC DTSBU935
|
||||
00432 START MSTG-FILE DTSBU935
|
||||
00433 KEY IS NOT < ESKL-KEY-AREA OF MSTG-SKL-REC DTSBU935
|
||||
00434 ELSE DTSBU935
|
||||
00435 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00436 DTSBU935
|
||||
00437 IF FILE-OK-88 DTSBU935
|
||||
00438 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU935
|
||||
00439 ELSE DTSBU935
|
||||
00440 IF FILE-NO-REC-88 DTSBU935
|
||||
00441 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU935
|
||||
00442 ELSE DTSBU935
|
||||
00443 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00444 P2200-EXIT. DTSBU935
|
||||
00445 EXIT. DTSBU935
|
||||
00446 EJECT DTSBU935
|
||||
00447 P2300-READ-NEXT. DTSBU935
|
||||
00448 IF FILE-SUB-MSTE-88 DTSBU935
|
||||
00449 READ MSTE-FILE NEXT INTO WRK-REC DTSBU935
|
||||
00450 ELSE DTSBU935
|
||||
00451 IF FILE-SUB-MSTF-88 DTSBU935
|
||||
00452 READ MSTF-FILE NEXT INTO WRK-REC DTSBU935
|
||||
00453 ELSE DTSBU935
|
||||
00454 IF FILE-SUB-MSTG-88 DTSBU935
|
||||
00455 READ MSTG-FILE NEXT INTO WRK-REC DTSBU935
|
||||
00456 ELSE DTSBU935
|
||||
00457 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00458 DTSBU935
|
||||
00459 IF FILE-NO-REC-88 DTSBU935
|
||||
00460 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU935
|
||||
00461 GO TO P2300-EXIT. DTSBU935
|
||||
00462 DTSBU935
|
||||
00463 IF FILE-OK-88 DTSBU935
|
||||
00464 NEXT SENTENCE DTSBU935
|
||||
00465 ELSE DTSBU935
|
||||
00466 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00467 DTSBU935
|
||||
00468 **************************************************************** DTSBU935
|
||||
00469 * FOR THE PROFILE RECORD (EPRF) SET NO RECORD FOUND DTSBU935
|
||||
00470 * ONLY AT END OF FILE. DTSBU935
|
||||
00471 **************************************************************** DTSBU935
|
||||
00472 IF ESKL-PRF-88 OF LINK-REC DTSBU935
|
||||
00473 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU935
|
||||
00474 GO TO P2300-EXIT. DTSBU935
|
||||
00475 DTSBU935
|
||||
00476 **************************************************************** DTSBU935
|
||||
00477 * FOR ALL OTHER RECORD TYPES SET NO RECORD FOUND DTSBU935
|
||||
00478 * AT A BREAK IN RECORD TYPE. DTSBU935
|
||||
00479 **************************************************************** DTSBU935
|
||||
00480 IF ESKL-REC-TYPE OF WRK-REC DTSBU935
|
||||
00481 NOT = ESKL-REC-TYPE OF LINK-REC DTSBU935
|
||||
00482 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU935
|
||||
00483 GO TO P2300-EXIT. DTSBU935
|
||||
00484 DTSBU935
|
||||
00485 **************************************************************** DTSBU935
|
||||
00486 * FOR THE MESSAGE (EMSG) AND TRIGGER (ETRG) FILES SET NO DTSBU935
|
||||
00487 * RECORD FOUND AT A BREAK IN LOG NUMBER. DTSBU935
|
||||
00488 * DTSBU935
|
||||
00489 * FOR THE EMPLOYER HISTORY FILE (EEMH) SET NO RECORD FOUND DTSBU935
|
||||
00490 * AT A BREAK IN EMP-NO. DTSBU935
|
||||
00491 **************************************************************** DTSBU935
|
||||
00492 IF ESKL-MSG-88 OF WRK-REC DTSBU935
|
||||
00493 OR ESKL-TRG-88 OF WRK-REC DTSBU935
|
||||
00494 IF ESKL-ELOG-LOG-NO OF WRK-REC = CL**2
|
||||
00495 ESKL-ELOG-LOG-NO OF LINK-REC CL**2
|
||||
00496 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU935
|
||||
00497 ELSE DTSBU935
|
||||
00498 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU935
|
||||
00499 END-IF DTSBU935
|
||||
00500 ELSE DTSBU935
|
||||
00501 IF ESKL-EMH-88 OF WRK-REC DTSBU935
|
||||
00502 IF ESKL-EMP-NO OF WRK-REC = ESKL-EMP-NO OF LINK-REC DTSBU935
|
||||
00503 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU935
|
||||
00504 ELSE DTSBU935
|
||||
00505 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU935
|
||||
00506 END-IF DTSBU935
|
||||
00507 ELSE DTSBU935
|
||||
00508 PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT DTSBU935
|
||||
00509 END-IF DTSBU935
|
||||
00510 END-IF. DTSBU935
|
||||
00511 DTSBU935
|
||||
00512 P2300-EXIT. DTSBU935
|
||||
00513 EXIT. DTSBU935
|
||||
00514 EJECT DTSBU935
|
||||
00515 P3100-WRITE. DTSBU935
|
||||
00516 IF FILE-OPEN-UPDATE-HDR-88 DTSBU935
|
||||
00517 IF ESKL-HDR-88 OF LINK-REC DTSBU935
|
||||
00518 NEXT SENTENCE DTSBU935
|
||||
00519 ELSE DTSBU935
|
||||
00520 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00521 DTSBU935
|
||||
00522 PERFORM S2100-LINK-TO-FILE THRU S2100-EXIT. DTSBU935
|
||||
00523 DTSBU935
|
||||
00524 PERFORM P3110-INIT-KEY-FILLER THRU P3110-EXIT. DTSBU935
|
||||
00525 DTSBU935
|
||||
00526 IF FILE-SUB-MSTE-88 DTSBU935
|
||||
00527 WRITE MSTE-VAR-REC FROM WRK-REC DTSBU935
|
||||
00528 ELSE DTSBU935
|
||||
00529 IF FILE-SUB-MSTF-88 DTSBU935
|
||||
00530 WRITE MSTF-VAR-REC FROM WRK-REC DTSBU935
|
||||
00531 ELSE DTSBU935
|
||||
00532 IF FILE-SUB-MSTG-88 DTSBU935
|
||||
00533 WRITE MSTG-VAR-REC FROM WRK-REC DTSBU935
|
||||
00534 ELSE DTSBU935
|
||||
00535 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00536 DTSBU935
|
||||
00537 IF FILE-OK-88 DTSBU935
|
||||
00538 NEXT SENTENCE DTSBU935
|
||||
00539 ELSE DTSBU935
|
||||
00540 IF L935-WRITE-CHK-DUP-KEY-88 DTSBU935
|
||||
00541 IF FILE-DUP-KEY-88 DTSBU935
|
||||
00542 SET L935-DUP-KEY-88 TO TRUE DTSBU935
|
||||
00543 GO TO P3100-EXIT DTSBU935
|
||||
00544 ELSE DTSBU935
|
||||
00545 PERFORM S999-ABEND THRU S999-EXIT DTSBU935
|
||||
00546 END-IF DTSBU935
|
||||
00547 ELSE DTSBU935
|
||||
00548 PERFORM S999-ABEND THRU S999-EXIT DTSBU935
|
||||
00549 END-IF DTSBU935
|
||||
00550 END-IF. DTSBU935
|
||||
00551 DTSBU935
|
||||
00552 IF FILE-OPEN-UPDATE-NO-AIX-88 DTSBU935
|
||||
00553 GO TO P3100-EXIT. DTSBU935
|
||||
00554 DTSBU935
|
||||
00555 MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS. DTSBU935
|
||||
00556 DTSBU935
|
||||
00557 PERFORM S3200-CONSTRUCT-IPOST THRU S3200-EXIT. DTSBU935
|
||||
00558 DTSBU935
|
||||
00559 PERFORM S3300-UPDATE-AIX THRU S3300-EXIT. DTSBU935
|
||||
00560 DTSBU935
|
||||
00561 P3100-EXIT. DTSBU935
|
||||
00562 EXIT. DTSBU935
|
||||
00563 DTSBU935
|
||||
00564 P3110-INIT-KEY-FILLER. DTSBU935
|
||||
00565 COMPUTE WRK-KEY-FILLER-START DTSBU935
|
||||
00566 = ELEN-KEY-LEN (REC-TYPE-SUB) + 1. DTSBU935
|
||||
00567 DTSBU935
|
||||
00568 COMPUTE WRK-KEY-FILLER-LENGTH DTSBU935
|
||||
00569 = ELEN-MAX-KEY-LEN - ELEN-KEY-LEN (REC-TYPE-SUB). DTSBU935
|
||||
00570 DTSBU935
|
||||
00571 IF WRK-KEY-FILLER-LENGTH > +0 DTSBU935
|
||||
00572 MOVE LOW-VALUES TO ESKL-KEY-AREA OF WRK-REC DTSBU935
|
||||
00573 (WRK-KEY-FILLER-START:WRK-KEY-FILLER-LENGTH). DTSBU935
|
||||
00574 DTSBU935
|
||||
00575 P3110-EXIT. DTSBU935
|
||||
00576 EXIT. DTSBU935
|
||||
00577 DTSBU935
|
||||
00578 EJECT DTSBU935
|
||||
00579 P3200-REWRITE. DTSBU935
|
||||
00580 IF FILE-OPEN-UPDATE-HDR-88 DTSBU935
|
||||
00581 IF ESKL-HDR-88 OF LINK-REC DTSBU935
|
||||
00582 NEXT SENTENCE DTSBU935
|
||||
00583 ELSE DTSBU935
|
||||
00584 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00585 DTSBU935
|
||||
00586 PERFORM P3900-PREPARE-FOR-UPDATE THRU P3900-EXIT. DTSBU935
|
||||
00587 DTSBU935
|
||||
00588 IF FILE-NO-REC-88 DTSBU935
|
||||
00589 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00590 DTSBU935
|
||||
00591 PERFORM S2100-LINK-TO-FILE THRU S2100-EXIT. DTSBU935
|
||||
00592 DTSBU935
|
||||
00593 IF FILE-SUB-MSTE-88 DTSBU935
|
||||
00594 REWRITE MSTE-VAR-REC FROM WRK-REC DTSBU935
|
||||
00595 ELSE DTSBU935
|
||||
00596 IF FILE-SUB-MSTF-88 DTSBU935
|
||||
00597 REWRITE MSTF-VAR-REC FROM WRK-REC DTSBU935
|
||||
00598 ELSE DTSBU935
|
||||
00599 IF FILE-SUB-MSTG-88 DTSBU935
|
||||
00600 REWRITE MSTG-VAR-REC FROM WRK-REC DTSBU935
|
||||
00601 ELSE DTSBU935
|
||||
00602 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00603 DTSBU935
|
||||
00604 IF FILE-OK-88 DTSBU935
|
||||
00605 NEXT SENTENCE DTSBU935
|
||||
00606 ELSE DTSBU935
|
||||
00607 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00608 DTSBU935
|
||||
00609 IF FILE-OPEN-UPDATE-NO-AIX-88 DTSBU935
|
||||
00610 GO TO P3200-EXIT. DTSBU935
|
||||
00611 DTSBU935
|
||||
00612 PERFORM S3200-CONSTRUCT-IPOST THRU S3200-EXIT. DTSBU935
|
||||
00613 DTSBU935
|
||||
00614 PERFORM S3300-UPDATE-AIX THRU S3300-EXIT. DTSBU935
|
||||
00615 DTSBU935
|
||||
00616 P3200-EXIT. DTSBU935
|
||||
00617 EXIT. DTSBU935
|
||||
00618 DTSBU935
|
||||
00619 EJECT DTSBU935
|
||||
00620 P3300-DELETE. DTSBU935
|
||||
00621 IF FILE-OPEN-UPDATE-HDR-88 DTSBU935
|
||||
00622 IF ESKL-HDR-88 OF LINK-REC DTSBU935
|
||||
00623 NEXT SENTENCE DTSBU935
|
||||
00624 ELSE DTSBU935
|
||||
00625 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00626 DTSBU935
|
||||
00627 PERFORM P3900-PREPARE-FOR-UPDATE THRU P3900-EXIT. DTSBU935
|
||||
00628 DTSBU935
|
||||
00629 IF FILE-NO-REC-88 DTSBU935
|
||||
00630 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00631 DTSBU935
|
||||
00632 IF FILE-SUB-MSTE-88 DTSBU935
|
||||
00633 DELETE MSTE-FILE RECORD DTSBU935
|
||||
00634 ELSE DTSBU935
|
||||
00635 IF FILE-SUB-MSTF-88 DTSBU935
|
||||
00636 DELETE MSTF-FILE RECORD DTSBU935
|
||||
00637 ELSE DTSBU935
|
||||
00638 IF FILE-SUB-MSTG-88 DTSBU935
|
||||
00639 DELETE MSTG-FILE RECORD DTSBU935
|
||||
00640 ELSE DTSBU935
|
||||
00641 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00642 DTSBU935
|
||||
00643 IF FILE-OK-88 DTSBU935
|
||||
00644 NEXT SENTENCE DTSBU935
|
||||
00645 ELSE DTSBU935
|
||||
00646 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00647 DTSBU935
|
||||
00648 IF FILE-OPEN-UPDATE-NO-AIX-88 DTSBU935
|
||||
00649 GO TO P3300-EXIT. DTSBU935
|
||||
00650 DTSBU935
|
||||
00651 MOVE LOW-VALUES TO POST-UPDATE-AIX-RECS. DTSBU935
|
||||
00652 DTSBU935
|
||||
00653 PERFORM S3300-UPDATE-AIX THRU S3300-EXIT. DTSBU935
|
||||
00654 DTSBU935
|
||||
00655 P3300-EXIT. DTSBU935
|
||||
00656 EXIT. DTSBU935
|
||||
00657 EJECT DTSBU935
|
||||
00658 P3900-PREPARE-FOR-UPDATE. DTSBU935
|
||||
00659 IF FILE-SUB-MSTE-88 DTSBU935
|
||||
00660 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00661 TO ESKL-KEY-AREA OF MSTE-SKL-REC DTSBU935
|
||||
00662 READ MSTE-FILE INTO WRK-REC DTSBU935
|
||||
00663 ELSE DTSBU935
|
||||
00664 IF FILE-SUB-MSTF-88 DTSBU935
|
||||
00665 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00666 TO ESKL-KEY-AREA OF MSTF-SKL-REC DTSBU935
|
||||
00667 READ MSTF-FILE INTO WRK-REC DTSBU935
|
||||
00668 ELSE DTSBU935
|
||||
00669 IF FILE-SUB-MSTG-88 DTSBU935
|
||||
00670 MOVE ESKL-KEY-AREA OF LINK-REC DTSBU935
|
||||
00671 TO ESKL-KEY-AREA OF MSTG-SKL-REC DTSBU935
|
||||
00672 READ MSTG-FILE INTO WRK-REC DTSBU935
|
||||
00673 ELSE DTSBU935
|
||||
00674 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00675 DTSBU935
|
||||
00676 IF FILE-OK-88 DTSBU935
|
||||
00677 NEXT SENTENCE DTSBU935
|
||||
00678 ELSE DTSBU935
|
||||
00679 IF FILE-NO-REC-88 DTSBU935
|
||||
00680 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU935
|
||||
00681 ELSE DTSBU935
|
||||
00682 PERFORM S999-ABEND THRU S999-EXIT. DTSBU935
|
||||
00683 DTSBU935
|
||||
00684 IF FILE-OPEN-UPDATE-NO-AIX-88 DTSBU935
|
||||
00685 MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS DTSBU935
|
||||
00686 ELSE DTSBU935
|
||||
00687 IF ELEN-AIX-YES-88 (REC-TYPE-SUB) DTSBU935
|
||||
00688 PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT DTSBU935
|
||||
00689 ELSE DTSBU935
|
||||
00690 MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS. DTSBU935
|
||||
00691 DTSBU935
|
||||
00692 P3900-EXIT. DTSBU935
|
||||
00693 EXIT. DTSBU935
|
||||
00694 DTSBU935
|
||||
00695 S1100-NO-REC. DTSBU935
|
||||
00696 SET L935-NO-REC-88 TO TRUE. DTSBU935
|
||||
00697 S1100-EXIT. DTSBU935
|
||||
00698 EXIT. DTSBU935
|
||||
00699 SKIP3 DTSBU935
|
||||
00700 S2100-LINK-TO-FILE. DTSBU935
|
||||
00701 MOVE LINK-REC (1:VAR-CHAR-CNT) DTSBU935
|
||||
00702 TO WRK-REC (1:VAR-CHAR-CNT). DTSBU935
|
||||
00703 DTSBU935
|
||||
00704 S2100-EXIT. DTSBU935
|
||||
00705 EXIT. DTSBU935
|
||||
00706 EJECT DTSBU935
|
||||
00707 S2200-FILE-TO-LINK. DTSBU935
|
||||
00708 MOVE WRK-REC (1:VAR-CHAR-CNT) DTSBU935
|
||||
00709 TO LINK-REC (1:VAR-CHAR-CNT). DTSBU935
|
||||
00710 S2200-EXIT. DTSBU935
|
||||
00711 EXIT. DTSBU935
|
||||
00712 EJECT DTSBU935
|
||||
00713 ********************************************************* DTSBU935
|
||||
00714 * DTSIP011 ALTERNATE INDEX RECORD CONSTRUCTION DTSBU935
|
||||
00715 * PROCEDURE DIVISION CODE. S3100 PARAGRAPH. DTSBU935
|
||||
00716 ********************************************************* DTSBU935
|
||||
00717 ++INCLUDE DTSIP011 DTSBU935
|
||||
00718 DTSBU935
|
||||
00719 ********************************************************* DTSBU935
|
||||
00720 * DTSIP012 ALTERNATE INDEX RECORD CONSTRUCTION DTSBU935
|
||||
00721 * PROCEDURE DIVISION CODE. S3200 PARAGRAPH. DTSBU935
|
||||
00722 ********************************************************* DTSBU935
|
||||
00723 ++INCLUDE DTSIP012 DTSBU935
|
||||
00724 DTSBU935
|
||||
00725 S3300-UPDATE-AIX. DTSBU935
|
||||
00726 MOVE WRK-MOD-NAME TO L921-MOD-NAME. DTSBU935
|
||||
00727 DTSBU935
|
||||
00728 MOVE L935-TRACE-IND TO L921-TRACE-IND. DTSBU935
|
||||
00729 DTSBU935
|
||||
00730 PERFORM S3310-AIX-LOOP THRU S3310-EXIT DTSBU935
|
||||
00731 VARYING AIX-REC-SUB FROM 1 BY 1 DTSBU935
|
||||
00732 UNTIL (AIX-REC-SUB > AIX-REC-MAX). DTSBU935
|
||||
00733 S3300-EXIT. DTSBU935
|
||||
00734 EXIT. DTSBU935
|
||||
00735 S3310-AIX-LOOP. DTSBU935
|
||||
00736 IF PRE-UPDATE-AIX-REC (AIX-REC-SUB) DTSBU935
|
||||
00737 = POST-UPDATE-AIX-REC (AIX-REC-SUB) DTSBU935
|
||||
00738 GO TO S3310-EXIT. DTSBU935
|
||||
00739 DTSBU935
|
||||
00740 IF PRE-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES DTSBU935
|
||||
00741 MOVE PRE-UPDATE-AIX-REC (AIX-REC-SUB) TO ISKL-REC DTSBU935
|
||||
00742 PERFORM S3311-AIX-DELETE THRU S3311-EXIT. DTSBU935
|
||||
00743 DTSBU935
|
||||
00744 IF POST-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES DTSBU935
|
||||
00745 MOVE POST-UPDATE-AIX-REC (AIX-REC-SUB) TO ISKL-REC DTSBU935
|
||||
00746 PERFORM S3312-AIX-WRITE THRU S3312-EXIT. DTSBU935
|
||||
00747 DTSBU935
|
||||
00748 S3310-EXIT. DTSBU935
|
||||
00749 EXIT. DTSBU935
|
||||
00750 DTSBU935
|
||||
00751 S3311-AIX-DELETE. DTSBU935
|
||||
00752 PERFORM S921-AIX-READ THRU S921-EXIT. DTSBU935
|
||||
00753 DTSBU935
|
||||
00754 IF L921-NO-REC-88 DTSBU935
|
||||
00755 GO TO S3311-EXIT. DTSBU935
|
||||
00756 DTSBU935
|
||||
00757 PERFORM S921-AIX-DELETE THRU S921-EXIT. DTSBU935
|
||||
00758 DTSBU935
|
||||
00759 S3311-EXIT. DTSBU935
|
||||
00760 EXIT. DTSBU935
|
||||
00761 DTSBU935
|
||||
00762 S3312-AIX-WRITE. DTSBU935
|
||||
00763 PERFORM S921-AIX-READ THRU S921-EXIT. DTSBU935
|
||||
00764 DTSBU935
|
||||
00765 IF NOT L921-NO-REC-88 DTSBU935
|
||||
00766 GO TO S3312-EXIT. DTSBU935
|
||||
00767 DTSBU935
|
||||
00768 PERFORM S921-AIX-WRITE THRU S921-EXIT. DTSBU935
|
||||
00769 DTSBU935
|
||||
00770 S3312-EXIT. DTSBU935
|
||||
00771 EXIT. DTSBU935
|
||||
00772 DTSBU935
|
||||
00773 ********************************************************* DTSBU935
|
||||
00774 * DTSIP13 ALTERNATE INDEX RECORD CONSTRUCTION DTSBU935
|
||||
00775 * PROCEDURE DIVISION CODE. S39** PARAGRAPHS. DTSBU935
|
||||
00776 ********************************************************* DTSBU935
|
||||
00777 ++INCLUDE DTSIP013 DTSBU935
|
||||
00778 DTSBU935
|
||||
00779 S9100-PRE-DISPLAY. DTSBU935
|
||||
00780 DISPLAY ' '. DTSBU935
|
||||
00781 DTSBU935
|
||||
00782 DISPLAY ' '. DTSBU935
|
||||
00783 DTSBU935
|
||||
00784 DISPLAY '*** DTSBU935 PRE TRACE DISPLAY ***'. DTSBU935
|
||||
00785 DTSBU935
|
||||
00786 DISPLAY L935-MOD-NAME DTSBU935
|
||||
00787 ' = L935-MOD-NAME'. DTSBU935
|
||||
00788 DTSBU935
|
||||
00789 DISPLAY L935-CMND-CD DTSBU935
|
||||
00790 ' = L935-CMND-CD'. DTSBU935
|
||||
00791 DTSBU935
|
||||
00792 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU935
|
||||
00793 S9100-EXIT. DTSBU935
|
||||
00794 EXIT. DTSBU935
|
||||
00795 SKIP3 DTSBU935
|
||||
00796 S9200-POST-DISPLAY. DTSBU935
|
||||
00797 DISPLAY ' '. DTSBU935
|
||||
00798 DTSBU935
|
||||
00799 DISPLAY ' '. DTSBU935
|
||||
00800 DTSBU935
|
||||
00801 DISPLAY '*** DTSBU935 POST TRACE DISPLAY ***'. DTSBU935
|
||||
00802 DTSBU935
|
||||
00803 DISPLAY L935-RESULT-IND DTSBU935
|
||||
00804 ' = L935-RESULT-IND'. DTSBU935
|
||||
00805 DTSBU935
|
||||
00806 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU935
|
||||
00807 S9200-EXIT. DTSBU935
|
||||
00808 EXIT. DTSBU935
|
||||
00809 SKIP3 DTSBU935
|
||||
00810 S9300-REC-DISPLAY. DTSBU935
|
||||
00811 DISPLAY ' '. DTSBU935
|
||||
00812 DTSBU935
|
||||
00813 IF (ESKL-REC-TYPE OF LINK-REC < +1) DTSBU935
|
||||
00814 OR DTSBU935
|
||||
00815 (ESKL-REC-TYPE OF LINK-REC > ELEN-MAX-REC-ID) DTSBU935
|
||||
00816 MOVE SPACES TO WRK-REC-PREFIX DTSBU935
|
||||
00817 ELSE DTSBU935
|
||||
00818 MOVE ELEN-REC-PREFIX (ESKL-REC-TYPE OF LINK-REC) DTSBU935
|
||||
00819 TO WRK-REC-PREFIX. DTSBU935
|
||||
00820 DTSBU935
|
||||
00821 IF WRK-REC-PREFIX = SPACES DTSBU935
|
||||
00822 MOVE '????' TO WRK-REC-PREFIX. DTSBU935
|
||||
00823 DTSBU935
|
||||
00824 MOVE ELEN-MAX-KEY-LEN TO L991-REQ-CHAR-CNT. DTSBU935
|
||||
00825 DTSBU935
|
||||
00826 MOVE ESKL-KEY-AREA OF LINK-REC TO L991-REQ-AREA. DTSBU935
|
||||
00827 DTSBU935
|
||||
00828 PERFORM S991-HEX-FORMAT THRU S991-EXIT. DTSBU935
|
||||
00829 DTSBU935
|
||||
00830 DISPLAY 'REC TYPE = ' DTSBU935
|
||||
00831 WRK-REC-PREFIX. DTSBU935
|
||||
00832 DTSBU935
|
||||
00833 DISPLAY 'KEY AREA = ' DTSBU935
|
||||
00834 L991-REPLY-HEX-1-AREA. DTSBU935
|
||||
00835 DTSBU935
|
||||
00836 DISPLAY ' ' DTSBU935
|
||||
00837 L991-REPLY-HEX-2-AREA. DTSBU935
|
||||
00838 DTSBU935
|
||||
00839 DISPLAY ' ' DTSBU935
|
||||
00840 L991-REPLY-AN-AREA. DTSBU935
|
||||
00841 S9300-EXIT. DTSBU935
|
||||
00842 EXIT. DTSBU935
|
||||
00843 EJECT DTSBU935
|
||||
00844 S921-AIX-READ. DTSBU935
|
||||
00845 SET L921-READ-88 TO TRUE. DTSBU935
|
||||
00846 GO TO S921-AIX-IO. DTSBU935
|
||||
00847 DTSBU935
|
||||
00848 S921-AIX-DELETE. DTSBU935
|
||||
00849 SET L921-DELETE-88 TO TRUE. DTSBU935
|
||||
00850 GO TO S921-AIX-IO. DTSBU935
|
||||
00851 DTSBU935
|
||||
00852 S921-AIX-WRITE. DTSBU935
|
||||
00853 SET L921-WRITE-88 TO TRUE. DTSBU935
|
||||
00854 GO TO S921-AIX-IO. DTSBU935
|
||||
00855 DTSBU935
|
||||
00856 S921-AIX-IO. DTSBU935
|
||||
00857 CALL 'DTSBU921' USING L921-LINK-AREA DTSBU935
|
||||
00858 ISKL-REC. DTSBU935
|
||||
00859 S921-EXIT. DTSBU935
|
||||
00860 EXIT. DTSBU935
|
||||
00861 SKIP3 DTSBU935
|
||||
00862 S991-HEX-FORMAT. DTSBU935
|
||||
00863 CALL 'DTSBU991' USING L991-LINK-AREA. DTSBU935
|
||||
00864 S991-EXIT. DTSBU935
|
||||
00865 EXIT. DTSBU935
|
||||
00866 SKIP3 DTSBU935
|
||||
00867 S999-ABEND. DTSBU935
|
||||
00868 DISPLAY '*** I/O MODULE ABENDING'. DTSBU935
|
||||
00869 DTSBU935
|
||||
00870 DISPLAY '*** CMND-CD = ' L935-CMND-CD. DTSBU935
|
||||
00871 DTSBU935
|
||||
00872 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DTSBU935
|
||||
00873 DTSBU935
|
||||
00874 DISPLAY '*** CALLING MODULE = ' L935-MOD-NAME. DTSBU935
|
||||
00875 DTSBU935
|
||||
00876 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU935
|
||||
00877 DTSBU935
|
||||
00878 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU935
|
||||
00879 S999-EXIT. DTSBU935
|
||||
00880 EXIT. DTSBU935
|
||||
Reference in New Issue
Block a user