00001 IDENTIFICATION DIVISION. 11/01/13 00002 PROGRAM-ID. DTSBD998. DTSBD998 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV013 00004 DATE-WRITTEN. JULY 1994. DTSBD998 00005 DATE-COMPILED. DTSBD998 00006 SKIP3 DTSBD998 00007 ***** DTSBD998 00008 * DTSBD998 00009 * FUNCTION: INITIALIZE SPECIFIED FILE. DTSBD998 00010 * DTSBD998 00011 * MODIFICATION LOG: DTSBD998 00012 * DTSBD998 00013 * 07/10/94 INITIAL DEVELOPMENT. DTSBD998 00014 * WORK ORDER: PROGRAMMER: TCL DTSBD998 00015 * DTSBD998 00016 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. DTSBD998 00017 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD998 00018 * DTSBD998 00019 * 01/17/2001 REVISED TO INCLUDE FOUR ELECTRONIC MEDIA DTSBD998 00020 * TRACKING SYSTEM MASTER FILES FOR INITIALIZATION. DTSBD998 00021 * REFERENCE: TAPE TRACKING SYSTEM PRG: RLW DTSBD998 00022 * DTSBD998 00023 * 01/??/2002 REVISED TO INCLUDE THREE WAGE FILES USED IN DTSBD998 00024 * DAILY FOR ACCT-HOUSEHOLD DTSBD998 00025 * REFERENCE: HOUSEHOLD YEARLY FILERS PRG: ??? DTSBD998 00026 * DTSBD998 00027 * 05/22/2002 REVISED TO PUT A DUMMY RECORD INTO THE DTSBD998 00028 * DTSFWTC FILE (ACTIVE KEY OF ALL ZEROS) DTSBD998 00029 * REFERENCE: HOUSEHOLD YEARLY FILERS PRG: JHP DTSBD998 00030 * DTSBD998 00031 * 07/18/2003 ADDED MSTI FILE DTSBD998 00032 * REFERENCE: SPLIT MSTB FILE PRG: GD DTSBD998 00033 * DTSBD998 00034 * 01/20/2004 ADDED WGE FILE DTSBD998 00035 * REFERENCE: EFT PRG: GD DTSBD998 00036 * DTSBD998 00037 * 11/03/2004 REMOVED WGE FILE DTSBD998 00038 * REFERENCE: EFT PRG: ZL1 DTSBD998 00039 * DTSBD998 00040 * 11/10/2006 ADDED MSTJ FOR THE EXPERIENCE RATING AUDIT DTSBD998 00041 * TRAIL. DTSBD998 00042 * REFERENCE: PRG: GD DTSBD998 00043 * DTSBD998 00044 * 12/14/2009 ADDED ATH: ACCOUNTING TRANSACTION HISTORY DTSBD998 00045 * AUDIT TRAIL. DTSBD998 00046 * REFERENCE: PRG: GD DTSBD998 00047 * DTSBD998 00048 * 04/23/2010 ADDED CHK: CHECK FILE (DTSIACHK) DTSBD998 00049 * REFERENCE: PRG: GD DTSBD998 00050 * DTSBD998 00051 * 09/17/2010 ADDED WG2: EMP NBR CHANGE (DTSIWWG2) DTSBD998 00052 * REFERENCE: PRG: GD DTSBD998 00053 * DTSBD998 00054 * 06/27/2012 ADDED WG3: EMP NBR CHANGE (DTSIWWG3) DTSBD998 00055 * THE VERSION WILL REPLACE WG2. DTSBD998 00056 * REFERENCE: PRG: GD DTSBD998 00057 * DTSBD998 00058 * 10/17/2013 ADDED ITM: REPORT INDEX BY BATCH/ITEM DTSBD998 00059 * REFERENCE: PRG: GD DTSBD998 00060 * DTSBD998 00061 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD998 00062 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD998 00063 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD998 00064 * DTSBD998 00065 * DTSBD998 00066 * DESCRIPTION: DTSBD998 00067 * DTSBD998 00068 * INITIALIZES FILES SPECIFIED VIA PARAMETER. THIS IS DTSBD998 00069 * NECESSARY BECAUSE IF A VSAM FILE HAS BEEN DEFINED BUT DTSBD998 00070 * NOT USED AND (IT IS THEN OPENED FOR INPUT BY IDCAMS, DTSBD998 00071 * IDCAMS ISSUES A NONZERO RETURN CODE) OR (IT IS THEN OPENED DTSBD998 00072 * FOR INPUT BY A COBOL 2 PROGRAM A FILE STATUS VALUE OF DTSBD998 00073 * '35' IS RETURNED FROM THE OPEN). DTSBD998 00074 * DTSBD998 00075 * DTSBD998 00076 ***** DTSBD998 00077 SKIP3 DTSBD998 00078 ENVIRONMENT DIVISION. DTSBD998 00079 SKIP2 DTSBD998 00080 INPUT-OUTPUT SECTION. DTSBD998 00081 DTSBD998 00082 FILE-CONTROL. DTSBD998 00083 SELECT PARM-FILE ASSIGN TO SYSIN. DTSBD998 00084 SELECT MSTA-FILE ASSIGN TO DTSFMSTA DTSBD998 00085 ORGANIZATION IS INDEXED DTSBD998 00086 RECORD KEY IS MSKL-KEY-AREA OF MSTA-REC DTSBD998 00087 FILE STATUS IS FILE-STATUS DTSBD998 00088 ACCESS IS SEQUENTIAL. DTSBD998 00089 SELECT MSTB-FILE ASSIGN TO DTSFMSTB DTSBD998 00090 ORGANIZATION IS INDEXED DTSBD998 00091 RECORD KEY IS MSKL-KEY-AREA OF MSTB-REC DTSBD998 00092 FILE STATUS IS FILE-STATUS DTSBD998 00093 ACCESS IS SEQUENTIAL. DTSBD998 00094 SELECT MSTC-FILE ASSIGN TO DTSFMSTC DTSBD998 00095 ORGANIZATION IS INDEXED DTSBD998 00096 RECORD KEY IS MSKL-KEY-AREA OF MSTC-REC DTSBD998 00097 FILE STATUS IS FILE-STATUS DTSBD998 00098 ACCESS IS SEQUENTIAL. DTSBD998 00099 SELECT MSTD-FILE ASSIGN TO DTSFMSTD DTSBD998 00100 ORGANIZATION IS INDEXED DTSBD998 00101 RECORD KEY IS MSKL-KEY-AREA OF MSTD-REC DTSBD998 00102 FILE STATUS IS FILE-STATUS DTSBD998 00103 ACCESS IS SEQUENTIAL. DTSBD998 00104 SELECT AIX-FILE ASSIGN TO DTSFAIX DTSBD998 00105 ORGANIZATION IS INDEXED DTSBD998 00106 RECORD KEY IS ISKL-KEY-AREA OF AIX-REC DTSBD998 00107 FILE STATUS IS FILE-STATUS DTSBD998 00108 ACCESS IS SEQUENTIAL. DTSBD998 00109 SELECT REF-FILE ASSIGN TO DTSFREF DTSBD998 00110 ORGANIZATION IS INDEXED DTSBD998 00111 RECORD KEY IS FSKL-KEY-AREA OF REF-REC DTSBD998 00112 FILE STATUS IS FILE-STATUS DTSBD998 00113 ACCESS IS SEQUENTIAL. DTSBD998 00114 SELECT ATC-FILE ASSIGN TO DTSFATC DTSBD998 00115 ORGANIZATION IS INDEXED DTSBD998 00116 RECORD KEY IS ASKL-KEY-AREA OF ATC-REC DTSBD998 00117 FILE STATUS IS FILE-STATUS DTSBD998 00118 ACCESS IS SEQUENTIAL. DTSBD998 00119 SELECT WRK-FILE ASSIGN TO DTSFWRK DTSBD998 00120 ORGANIZATION IS INDEXED DTSBD998 00121 RECORD KEY IS VSKL-KEY-AREA OF WRK-REC DTSBD998 00122 FILE STATUS IS FILE-STATUS DTSBD998 00123 ACCESS IS SEQUENTIAL. DTSBD998 00124 SELECT OLA-FILE ASSIGN TO AS-DTSFOLA DTSBD998 00125 ORGANIZATION IS SEQUENTIAL DTSBD998 00126 FILE STATUS IS FILE-STATUS DTSBD998 00127 ACCESS IS SEQUENTIAL. DTSBD998 00128 * DTSBD998 00129 SELECT MSTE-FILE ASSIGN TO DTSFMSTE DTSBD998 00130 ORGANIZATION IS INDEXED DTSBD998 00131 RECORD KEY IS ESKL-KEY-AREA OF MSTE-REC DTSBD998 00132 FILE STATUS IS FILE-STATUS DTSBD998 00133 ACCESS IS DYNAMIC. DTSBD998 00134 SELECT MSTF-FILE ASSIGN TO DTSFMSTF DTSBD998 00135 ORGANIZATION IS INDEXED DTSBD998 00136 RECORD KEY IS ESKL-KEY-AREA OF MSTF-REC DTSBD998 00137 FILE STATUS IS FILE-STATUS DTSBD998 00138 ACCESS IS DYNAMIC. DTSBD998 00139 SELECT MSTG-FILE ASSIGN TO DTSFMSTG DTSBD998 00140 ORGANIZATION IS INDEXED DTSBD998 00141 RECORD KEY IS ESKL-KEY-AREA OF MSTG-REC DTSBD998 00142 FILE STATUS IS FILE-STATUS DTSBD998 00143 ACCESS IS DYNAMIC. DTSBD998 00144 SELECT MSTH-FILE ASSIGN TO DTSFMSTH DTSBD998 00145 ORGANIZATION IS INDEXED DTSBD998 00146 RECORD KEY IS MSKL-KEY-AREA OF MSTH-REC DTSBD998 00147 FILE STATUS IS FILE-STATUS DTSBD998 00148 ACCESS IS SEQUENTIAL. DTSBD998 00149 SELECT MSTI-FILE ASSIGN TO DTSFMSTI DTSBD998 00150 ORGANIZATION IS INDEXED DTSBD998 00151 RECORD KEY IS MSKL-KEY-AREA OF MSTI-REC DTSBD998 00152 FILE STATUS IS FILE-STATUS DTSBD998 00153 ACCESS IS SEQUENTIAL. DTSBD998 00154 * DTSBD998 00155 SELECT WTC-FILE ASSIGN TO DTSFWTC DTSBD998 00156 ORGANIZATION IS INDEXED DTSBD998 00157 RECORD KEY IS WSKL-KEY-AREA OF WTC-REC DTSBD998 00158 FILE STATUS IS FILE-STATUS DTSBD998 00159 ACCESS IS SEQUENTIAL. DTSBD998 00160 SELECT WGH-FILE ASSIGN TO DTSFWGH DTSBD998 00161 ORGANIZATION IS INDEXED DTSBD998 00162 RECORD KEY IS WWGH-KEY-AREA OF WGH-REC DTSBD998 00163 FILE STATUS IS FILE-STATUS DTSBD998 00164 ACCESS IS SEQUENTIAL. DTSBD998 00165 SELECT NAME-FILE ASSIGN TO DTSFNAME DTSBD998 00166 ORGANIZATION IS INDEXED DTSBD998 00167 RECORD KEY IS WNAM-KEY-AREA OF WNAM-REC DTSBD998 00168 FILE STATUS IS FILE-STATUS DTSBD998 00169 ACCESS IS SEQUENTIAL. DTSBD998 00170 SELECT MSTJ-FILE ASSIGN TO DTSFMSTJ DTSBD998 00171 ORGANIZATION IS INDEXED DTSBD998 00172 RECORD KEY IS MSKL-KEY-AREA OF MSTJ-REC DTSBD998 00173 FILE STATUS IS FILE-STATUS DTSBD998 00174 ACCESS IS SEQUENTIAL. DTSBD998 00175 DTSBD998 00176 SELECT ATH-FILE ASSIGN TO AS-DTSFATH DTSBD998 00177 ORGANIZATION IS SEQUENTIAL DTSBD998 00178 FILE STATUS IS FILE-STATUS DTSBD998 00179 ACCESS IS SEQUENTIAL. DTSBD998 00180 *** SELECT CHK-FILE ASSIGN TO DTSFCHK DTSBD998 00181 * ORGANIZATION IS INDEXED DTSBD998 00182 * RECORD KEY IS ACHK-KEY-AREA OF CHK-REC DTSBD998 00183 * FILE STATUS IS FILE-STATUS DTSBD998 00184 ** ACCESS IS SEQUENTIAL. DTSBD998 00185 DTSBD998 00186 SELECT WG2-FILE ASSIGN TO DTSFWG2 DTSBD998 00187 ORGANIZATION IS INDEXED DTSBD998 00188 RECORD KEY IS WWG2-KEY-AREA OF WG2-REC DTSBD998 00189 FILE STATUS IS FILE-STATUS DTSBD998 00190 ACCESS IS SEQUENTIAL. DTSBD998 00191 DTSBD998 00192 SELECT WG3-FILE ASSIGN TO DTSFWG3 DTSBD998 00193 ORGANIZATION IS INDEXED DTSBD998 00194 RECORD KEY IS WWG3-KEY-AREA OF WG3-REC DTSBD998 00195 FILE STATUS IS FILE-STATUS DTSBD998 00196 ACCESS IS SEQUENTIAL. DTSBD998 00197 DTSBD998 00198 SELECT ITM-FILE ASSIGN TO DTSFITM DTSBD998 00199 ORGANIZATION IS INDEXED DTSBD998 00200 RECORD KEY IS WITM-KEY-AREA OF ITM-REC DTSBD998 00201 FILE STATUS IS FILE-STATUS DTSBD998 00202 ACCESS IS SEQUENTIAL. DTSBD998 00203 DTSBD998 00204 DATA DIVISION. DTSBD998 00205 SKIP3 DTSBD998 00206 FILE SECTION. DTSBD998 00207 SKIP3 DTSBD998 00208 FD PARM-FILE DTSBD998 00209 RECORDING MODE IS F DTSBD998 00210 BLOCK CONTAINS 0 RECORDS. DTSBD998 00211 DTSBD998 00212 01 PARM-REC. DTSBD998 00213 05 PARM-ID-NO PIC X(03). DTSBD998 00214 05 FILLER PIC X(01). DTSBD998 00215 05 PARM-MOD-NAME PIC X(08). DTSBD998 00216 05 FILLER PIC X(01). DTSBD998 00217 05 PARM-FILE-ID PIC X(04). DTSBD998 00218 88 PARM-MSTA-88 VALUE 'MSTA'. DTSBD998 00219 88 PARM-MSTB-88 VALUE 'MSTB'. DTSBD998 00220 88 PARM-MSTC-88 VALUE 'MSTC'. DTSBD998 00221 88 PARM-MSTD-88 VALUE 'MSTD'. DTSBD998 00222 88 PARM-AIX-88 VALUE 'AIX '. DTSBD998 00223 88 PARM-REF-88 VALUE 'REF '. DTSBD998 00224 88 PARM-ATC-88 VALUE 'ATC '. DTSBD998 00225 88 PARM-OLA-88 VALUE 'OLA '. DTSBD998 00226 88 PARM-WRK-88 VALUE 'WRK '. DTSBD998 00227 88 PARM-MSTE-88 VALUE 'MSTE'. DTSBD998 00228 88 PARM-MSTF-88 VALUE 'MSTF'. DTSBD998 00229 88 PARM-MSTG-88 VALUE 'MSTG'. DTSBD998 00230 88 PARM-MSTH-88 VALUE 'MSTH'. DTSBD998 00231 88 PARM-MSTI-88 VALUE 'MSTI'. DTSBD998 00232 88 PARM-WTC-88 VALUE 'WTC '. DTSBD998 00233 88 PARM-WGH-88 VALUE 'WGH '. DTSBD998 00234 88 PARM-NAM-88 VALUE 'NAME'. DTSBD998 00235 88 PARM-MSTJ-88 VALUE 'MSTJ'. DTSBD998 00236 88 PARM-ATH-88 VALUE 'ATH '. DTSBD998 00237 88 PARM-CHK-88 VALUE 'CHK '. DTSBD998 00238 88 PARM-WG2-88 VALUE 'WG2 '. DTSBD998 00239 88 PARM-WG3-88 VALUE 'WG3 '. DTSBD998 00240 88 PARM-ITM-88 VALUE 'ITM '. DTSBD998 00241 05 FILLER PIC X(63). DTSBD998 00242 EJECT DTSBD998 00243 FD MSTA-FILE. DTSBD998 00244 DTSBD998 00245 01 MSTA-REC. DTSBD998 00246 ++INCLUDE DTSIMSKL DTSBD998 00247 EJECT DTSBD998 00248 FD MSTB-FILE. DTSBD998 00249 DTSBD998 00250 01 MSTB-REC. DTSBD998 00251 ++INCLUDE DTSIMSKL DTSBD998 00252 EJECT DTSBD998 00253 FD MSTC-FILE. DTSBD998 00254 DTSBD998 00255 01 MSTC-REC. DTSBD998 00256 ++INCLUDE DTSIMSKL DTSBD998 00257 EJECT DTSBD998 00258 FD MSTD-FILE. DTSBD998 00259 DTSBD998 00260 01 MSTD-REC. DTSBD998 00261 ++INCLUDE DTSIMSKL DTSBD998 00262 EJECT DTSBD998 00263 FD AIX-FILE. DTSBD998 00264 DTSBD998 00265 01 AIX-REC. DTSBD998 00266 ++INCLUDE DTSIISKL DTSBD998 00267 EJECT DTSBD998 00268 FD REF-FILE. DTSBD998 00269 DTSBD998 00270 01 REF-REC. DTSBD998 00271 ++INCLUDE DTSIFSKL DTSBD998 00272 EJECT DTSBD998 00273 FD ATC-FILE. DTSBD998 00274 DTSBD998 00275 01 ATC-REC. DTSBD998 00276 ++INCLUDE DTSIASKL DTSBD998 00277 EJECT DTSBD998 00278 FD WRK-FILE. DTSBD998 00279 DTSBD998 00280 01 WRK-REC. DTSBD998 00281 ++INCLUDE DTSIVSKL DTSBD998 00282 EJECT DTSBD998 00283 FD OLA-FILE DTSBD998 NEERAJ RECORDING MODE IS V DTSBD998 NEERAJ BLOCK CONTAINS 0 CHARACTERS DTSBD998 NEERAJ RECORD CONTAINS 1 TO 4089 CHARACTERS DTSBD998 NEERAJ LABEL RECORDS ARE STANDARD. DTSBD998 00284 DTSBD998 00285 01 RSKL-REC. DTSBD998 00286 ++INCLUDE DTSIRSK1 DTSBD998 00287 SKIP3 DTSBD998 00288 01 RVAR-REC. DTSBD998 00289 ++INCLUDE DTSIRVAR DTSBD998 00290 * DTSBD998 00291 FD MSTE-FILE. DTSBD998 00292 DTSBD998 00293 01 MSTE-REC. DTSBD998 00294 ++INCLUDE DTSIESKL DTSBD998 00295 EJECT DTSBD998 00296 FD MSTF-FILE. DTSBD998 00297 DTSBD998 00298 01 MSTF-REC. DTSBD998 00299 ++INCLUDE DTSIESKL DTSBD998 00300 EJECT DTSBD998 00301 FD MSTG-FILE. DTSBD998 00302 DTSBD998 00303 01 MSTG-REC. DTSBD998 00304 ++INCLUDE DTSIESKL DTSBD998 00305 EJECT DTSBD998 00306 FD MSTH-FILE. DTSBD998 00307 DTSBD998 00308 01 MSTH-REC. DTSBD998 00309 ++INCLUDE DTSIMSKL DTSBD998 00310 EJECT DTSBD998 00311 DTSBD998 00312 FD MSTI-FILE. DTSBD998 00313 DTSBD998 00314 01 MSTI-REC. DTSBD998 00315 ++INCLUDE DTSIMSKL DTSBD998 00316 EJECT DTSBD998 00317 DTSBD998 00318 FD WTC-FILE. DTSBD998 00319 DTSBD998 00320 01 WTC-REC. DTSBD998 00321 ++INCLUDE DTSIWSKL DTSBD998 00322 DTSBD998 00323 FD WGH-FILE. DTSBD998 00324 DTSBD998 00325 01 WGH-REC. DTSBD998 00326 ++INCLUDE DTSIWWGH DTSBD998 00327 DTSBD998 00328 FD NAME-FILE. DTSBD998 00329 DTSBD998 00330 01 WNAM-REC. DTSBD998 00331 ++INCLUDE DTSIWNAM DTSBD998 00332 DTSBD998 00333 FD MSTJ-FILE. DTSBD998 00334 DTSBD998 00335 01 MSTJ-REC. DTSBD998 00336 ++INCLUDE DTSIMSKL DTSBD998 00337 DTSBD998 00338 FD ATH-FILE. DTSBD998 00339 DTSBD998 00340 01 ATH-REC. DTSBD998 00341 ++INCLUDE DTSIAATH DTSBD998 00342 DTSBD998 00343 *FD CHK-FILE. DTSBD998 00344 * DTSBD998 00345 *01 CHK-REC. DTSBD998 00346 ***INCLUDE DTSIACHK DTSBD998 00347 DTSBD998 00348 FD WG2-FILE. DTSBD998 00349 DTSBD998 00350 01 WG2-REC. DTSBD998 00351 ++INCLUDE DTSIWWG2 DTSBD998 00352 DTSBD998 00353 FD WG3-FILE. DTSBD998 00354 DTSBD998 00355 01 WG3-REC. DTSBD998 00356 ++INCLUDE DTSIWWG3 DTSBD998 00357 DTSBD998 00358 FD ITM-FILE. DTSBD998 00359 DTSBD998 00360 01 ITM-REC. DTSBD998 00361 ++INCLUDE DTSIWITM DTSBD998 00362 DTSBD998 00363 WORKING-STORAGE SECTION. DTSBD998 003635 77 PAN-VALET PICTURE X(24) VALUE '013DTSBD998 11/01/13'. DTSBD998 00364 77 PAN-VALET PICTURE X(24) VALUE '016DTSBD998 10/17/13'. DTSBD998 00365 SKIP3 DTSBD998 00366 01 WRK-AREA. DTSBD998 00367 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +998.DTSBD998 00368 DTSBD998 00369 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD998'.DTSBD998 00370 DTSBD998 00371 05 VAR-CHAR-CNT PIC S9(04) COMP. DTSBD998 00372 DTSBD998 00373 05 PARM-EOF-IND PIC X(01). DTSBD998 00374 SKIP3 DTSBD998 00375 05 FILE-STATUS PIC X(02). DTSBD998 00376 88 FILE-OK-88 VALUE '00'. DTSBD998 00377 88 FILE-NO-REC-88 VALUE '10' '23'. DTSBD998 00378 88 FILE-VERIFY-88 VALUE '97'. DTSBD998 00379 EJECT DTSBD998 00380 PROCEDURE DIVISION. DTSBD998 00381 SKIP2 DTSBD998 00382 PERFORM I1000-INITIATE THRU I1000-EXIT. DTSBD998 00383 SKIP2 DTSBD998 00384 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBD998 00385 SKIP2 DTSBD998 00386 PERFORM T1000-TERMINATE THRU T1000-EXIT. DTSBD998 00387 SKIP2 DTSBD998 00388 GOBACK. DTSBD998 00389 EJECT DTSBD998 00390 I1000-INITIATE. DTSBD998 00391 I1000-EXIT. DTSBD998 00392 EXIT. DTSBD998 00393 EJECT DTSBD998 00394 P1000-PROCESS. DTSBD998 00395 OPEN INPUT PARM-FILE. DTSBD998 00396 DTSBD998 00397 MOVE 'N' TO PARM-EOF-IND. DTSBD998 00398 DISPLAY ' '. DTSBD998 00399 DISPLAY ' '. DTSBD998 00400 PERFORM P1100-READ-PARM THRU P1100-EXIT DTSBD998 00401 UNTIL PARM-EOF-IND = 'Y'. DTSBD998 00402 DTSBD998 00403 CLOSE PARM-FILE. DTSBD998 00404 P1000-EXIT. DTSBD998 00405 EXIT. DTSBD998 00406 SKIP3 DTSBD998 00407 P1100-READ-PARM. DTSBD998 00408 READ PARM-FILE DTSBD998 00409 AT END DTSBD998 00410 MOVE 'Y' TO PARM-EOF-IND DTSBD998 00411 GO TO P1100-EXIT. DTSBD998 00412 DTSBD998 00413 DISPLAY '*** ' DTSBD998 00414 PARM-REC. DTSBD998 00415 DTSBD998 00416 IF PARM-ID-NO = '***' DTSBD998 00417 GO TO P1100-EXIT. DTSBD998 00418 DTSBD998 00419 IF PARM-MOD-NAME NOT = 'DTSBD998' DTSBD998 00420 DISPLAY 'INVALID PARM-MOD-NAME' DTSBD998 00421 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00422 DTSBD998 00423 EVALUATE TRUE DTSBD998 00424 WHEN PARM-MSTA-88 DTSBD998 00425 PERFORM P1110-MSTA THRU P1110-EXIT DTSBD998 00426 DTSBD998 00427 WHEN PARM-MSTB-88 DTSBD998 00428 PERFORM P1120-MSTB THRU P1120-EXIT DTSBD998 00429 DTSBD998 00430 WHEN PARM-MSTC-88 DTSBD998 00431 PERFORM P1130-MSTC THRU P1130-EXIT DTSBD998 00432 DTSBD998 00433 WHEN PARM-MSTD-88 DTSBD998 00434 PERFORM P1131-MSTD THRU P1131-EXIT DTSBD998 00435 DTSBD998 00436 WHEN PARM-AIX-88 DTSBD998 00437 PERFORM P1140-AIX THRU P1140-EXIT DTSBD998 00438 DTSBD998 00439 WHEN PARM-REF-88 DTSBD998 00440 PERFORM P1150-REF THRU P1150-EXIT DTSBD998 00441 DTSBD998 00442 WHEN PARM-ATC-88 DTSBD998 00443 PERFORM P1160-ATC THRU P1160-EXIT DTSBD998 00444 DTSBD998 00445 WHEN PARM-WRK-88 DTSBD998 00446 PERFORM P1170-WRK THRU P1170-EXIT DTSBD998 00447 DTSBD998 00448 WHEN PARM-OLA-88 DTSBD998 00449 PERFORM P1180-OLA THRU P1180-EXIT DTSBD998 00450 DTSBD998 00451 WHEN PARM-MSTE-88 DTSBD998 00452 PERFORM P1190-MSTE THRU P1190-EXIT DTSBD998 00453 DTSBD998 00454 WHEN PARM-MSTF-88 DTSBD998 00455 PERFORM P1200-MSTF THRU P1200-EXIT DTSBD998 00456 DTSBD998 00457 WHEN PARM-MSTG-88 DTSBD998 00458 PERFORM P1210-MSTG THRU P1210-EXIT DTSBD998 00459 DTSBD998 00460 WHEN PARM-MSTH-88 DTSBD998 00461 PERFORM P1220-MSTH THRU P1220-EXIT DTSBD998 00462 DTSBD998 00463 WHEN PARM-WTC-88 DTSBD998 00464 PERFORM P1230-WTC THRU P1230-EXIT DTSBD998 00465 DTSBD998 00466 WHEN PARM-WGH-88 DTSBD998 00467 PERFORM P1240-WGH THRU P1240-EXIT DTSBD998 00468 DTSBD998 00469 WHEN PARM-NAM-88 DTSBD998 00470 PERFORM P1250-NAM THRU P1250-EXIT DTSBD998 00471 DTSBD998 00472 WHEN PARM-MSTI-88 DTSBD998 00473 PERFORM P1260-MSTI THRU P1260-EXIT DTSBD998 00474 DTSBD998 00475 WHEN PARM-MSTJ-88 DTSBD998 00476 PERFORM P1280-MSTJ THRU P1280-EXIT DTSBD998 00477 DTSBD998 00478 WHEN PARM-ATH-88 DTSBD998 00479 PERFORM P1290-ATH THRU P1290-EXIT DTSBD998 00480 DTSBD998 00481 ** WHEN PARM-CHK-88 DTSBD998 00482 ** PERFORM P1300-CHK THRU P1300-EXIT DTSBD998 00483 DTSBD998 00484 WHEN PARM-WG2-88 DTSBD998 00485 PERFORM P1270-WG2 THRU P1270-EXIT DTSBD998 00486 DTSBD998 00487 WHEN PARM-WG3-88 DTSBD998 00488 PERFORM P1310-WG3 THRU P1310-EXIT DTSBD998 00489 DTSBD998 00490 WHEN PARM-ITM-88 DTSBD998 00491 PERFORM P1320-ITM THRU P1320-EXIT DTSBD998 00492 DTSBD998 00493 WHEN OTHER DTSBD998 00494 DISPLAY 'INVALID FILE NAME. PARM BYPASSED.' DTSBD998 00495 END-EVALUATE. DTSBD998 00496 DTSBD998 00497 DISPLAY ' '. DTSBD998 00498 P1100-EXIT. DTSBD998 00499 EXIT. DTSBD998 00500 EJECT DTSBD998 00501 P1110-MSTA. DTSBD998 00502 OPEN OUTPUT MSTA-FILE. DTSBD998 00503 IF FILE-OK-88 DTSBD998 00504 NEXT SENTENCE DTSBD998 00505 ELSE DTSBD998 00506 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00507 DTSBD998 00508 MOVE LOW-VALUES TO MSTA-REC. DTSBD998 00509 DTSBD998 00510 WRITE MSTA-REC. DTSBD998 00511 IF FILE-OK-88 DTSBD998 00512 NEXT SENTENCE DTSBD998 00513 ELSE DTSBD998 00514 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00515 DTSBD998 00516 CLOSE MSTA-FILE. DTSBD998 00517 IF FILE-OK-88 DTSBD998 00518 NEXT SENTENCE DTSBD998 00519 ELSE DTSBD998 00520 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00521 DTSBD998 00522 OPEN I-O MSTA-FILE. DTSBD998 00523 IF FILE-OK-88 DTSBD998 00524 NEXT SENTENCE DTSBD998 00525 ELSE DTSBD998 00526 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00527 DTSBD998 00528 READ MSTA-FILE NEXT. DTSBD998 00529 IF FILE-OK-88 DTSBD998 00530 NEXT SENTENCE DTSBD998 00531 ELSE DTSBD998 00532 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00533 DTSBD998 00534 DELETE MSTA-FILE RECORD. DTSBD998 00535 IF FILE-OK-88 DTSBD998 00536 NEXT SENTENCE DTSBD998 00537 ELSE DTSBD998 00538 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00539 DTSBD998 00540 CLOSE MSTA-FILE. DTSBD998 00541 IF FILE-OK-88 DTSBD998 00542 NEXT SENTENCE DTSBD998 00543 ELSE DTSBD998 00544 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00545 P1110-EXIT. DTSBD998 00546 EXIT. DTSBD998 00547 EJECT DTSBD998 00548 P1120-MSTB. DTSBD998 00549 OPEN OUTPUT MSTB-FILE. DTSBD998 00550 IF FILE-OK-88 DTSBD998 00551 NEXT SENTENCE DTSBD998 00552 ELSE DTSBD998 00553 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00554 DTSBD998 00555 MOVE LOW-VALUES TO MSTB-REC. DTSBD998 00556 DTSBD998 00557 WRITE MSTB-REC. DTSBD998 00558 IF FILE-OK-88 DTSBD998 00559 NEXT SENTENCE DTSBD998 00560 ELSE DTSBD998 00561 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00562 DTSBD998 00563 CLOSE MSTB-FILE. DTSBD998 00564 IF FILE-OK-88 DTSBD998 00565 NEXT SENTENCE DTSBD998 00566 ELSE DTSBD998 00567 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00568 DTSBD998 00569 OPEN I-O MSTB-FILE. DTSBD998 00570 IF FILE-OK-88 DTSBD998 00571 NEXT SENTENCE DTSBD998 00572 ELSE DTSBD998 00573 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00574 DTSBD998 00575 READ MSTB-FILE NEXT. DTSBD998 00576 IF FILE-OK-88 DTSBD998 00577 NEXT SENTENCE DTSBD998 00578 ELSE DTSBD998 00579 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00580 DTSBD998 00581 DELETE MSTB-FILE RECORD. DTSBD998 00582 IF FILE-OK-88 DTSBD998 00583 NEXT SENTENCE DTSBD998 00584 ELSE DTSBD998 00585 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00586 DTSBD998 00587 CLOSE MSTB-FILE. DTSBD998 00588 IF FILE-OK-88 DTSBD998 00589 NEXT SENTENCE DTSBD998 00590 ELSE DTSBD998 00591 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00592 P1120-EXIT. DTSBD998 00593 EXIT. DTSBD998 00594 EJECT DTSBD998 00595 P1130-MSTC. DTSBD998 00596 OPEN OUTPUT MSTC-FILE. DTSBD998 00597 IF FILE-OK-88 DTSBD998 00598 NEXT SENTENCE DTSBD998 00599 ELSE DTSBD998 00600 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00601 DTSBD998 00602 MOVE LOW-VALUES TO MSTC-REC. DTSBD998 00603 DTSBD998 00604 WRITE MSTC-REC. DTSBD998 00605 IF FILE-OK-88 DTSBD998 00606 NEXT SENTENCE DTSBD998 00607 ELSE DTSBD998 00608 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00609 DTSBD998 00610 CLOSE MSTC-FILE. DTSBD998 00611 IF FILE-OK-88 DTSBD998 00612 NEXT SENTENCE DTSBD998 00613 ELSE DTSBD998 00614 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00615 DTSBD998 00616 OPEN I-O MSTC-FILE. DTSBD998 00617 IF FILE-OK-88 DTSBD998 00618 NEXT SENTENCE DTSBD998 00619 ELSE DTSBD998 00620 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00621 DTSBD998 00622 READ MSTC-FILE NEXT. DTSBD998 00623 IF FILE-OK-88 DTSBD998 00624 NEXT SENTENCE DTSBD998 00625 ELSE DTSBD998 00626 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00627 DTSBD998 00628 DELETE MSTC-FILE RECORD. DTSBD998 00629 IF FILE-OK-88 DTSBD998 00630 NEXT SENTENCE DTSBD998 00631 ELSE DTSBD998 00632 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00633 DTSBD998 00634 CLOSE MSTC-FILE. DTSBD998 00635 IF FILE-OK-88 DTSBD998 00636 NEXT SENTENCE DTSBD998 00637 ELSE DTSBD998 00638 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00639 P1130-EXIT. DTSBD998 00640 EXIT. DTSBD998 00641 EJECT DTSBD998 00642 P1131-MSTD. DTSBD998 00643 OPEN OUTPUT MSTD-FILE. DTSBD998 00644 IF FILE-OK-88 DTSBD998 00645 NEXT SENTENCE DTSBD998 00646 ELSE DTSBD998 00647 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00648 DTSBD998 00649 MOVE LOW-VALUES TO MSTD-REC. DTSBD998 00650 DTSBD998 00651 WRITE MSTD-REC. DTSBD998 00652 IF FILE-OK-88 DTSBD998 00653 NEXT SENTENCE DTSBD998 00654 ELSE DTSBD998 00655 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00656 DTSBD998 00657 CLOSE MSTD-FILE. DTSBD998 00658 IF FILE-OK-88 DTSBD998 00659 NEXT SENTENCE DTSBD998 00660 ELSE DTSBD998 00661 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00662 DTSBD998 00663 OPEN I-O MSTD-FILE. DTSBD998 00664 IF FILE-OK-88 DTSBD998 00665 NEXT SENTENCE DTSBD998 00666 ELSE DTSBD998 00667 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00668 DTSBD998 00669 READ MSTD-FILE NEXT. DTSBD998 00670 IF FILE-OK-88 DTSBD998 00671 NEXT SENTENCE DTSBD998 00672 ELSE DTSBD998 00673 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00674 DTSBD998 00675 DELETE MSTD-FILE RECORD. DTSBD998 00676 IF FILE-OK-88 DTSBD998 00677 NEXT SENTENCE DTSBD998 00678 ELSE DTSBD998 00679 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00680 DTSBD998 00681 CLOSE MSTD-FILE. DTSBD998 00682 IF FILE-OK-88 DTSBD998 00683 NEXT SENTENCE DTSBD998 00684 ELSE DTSBD998 00685 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00686 P1131-EXIT. DTSBD998 00687 EXIT. DTSBD998 00688 EJECT DTSBD998 00689 P1140-AIX. DTSBD998 00690 OPEN OUTPUT AIX-FILE. DTSBD998 00691 IF FILE-OK-88 DTSBD998 00692 NEXT SENTENCE DTSBD998 00693 ELSE DTSBD998 00694 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00695 DTSBD998 00696 MOVE LOW-VALUES TO AIX-REC. DTSBD998 00697 DTSBD998 00698 WRITE AIX-REC. DTSBD998 00699 IF FILE-OK-88 DTSBD998 00700 NEXT SENTENCE DTSBD998 00701 ELSE DTSBD998 00702 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00703 DTSBD998 00704 CLOSE AIX-FILE. DTSBD998 00705 IF FILE-OK-88 DTSBD998 00706 NEXT SENTENCE DTSBD998 00707 ELSE DTSBD998 00708 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00709 DTSBD998 00710 OPEN I-O AIX-FILE. DTSBD998 00711 IF FILE-OK-88 DTSBD998 00712 NEXT SENTENCE DTSBD998 00713 ELSE DTSBD998 00714 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00715 DTSBD998 00716 READ AIX-FILE NEXT. DTSBD998 00717 IF FILE-OK-88 DTSBD998 00718 NEXT SENTENCE DTSBD998 00719 ELSE DTSBD998 00720 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00721 DTSBD998 00722 DELETE AIX-FILE RECORD. DTSBD998 00723 IF FILE-OK-88 DTSBD998 00724 NEXT SENTENCE DTSBD998 00725 ELSE DTSBD998 00726 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00727 DTSBD998 00728 CLOSE AIX-FILE. DTSBD998 00729 IF FILE-OK-88 DTSBD998 00730 NEXT SENTENCE DTSBD998 00731 ELSE DTSBD998 00732 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00733 P1140-EXIT. DTSBD998 00734 EXIT. DTSBD998 00735 EJECT DTSBD998 00736 P1150-REF. DTSBD998 00737 OPEN OUTPUT REF-FILE. DTSBD998 00738 IF FILE-OK-88 DTSBD998 00739 NEXT SENTENCE DTSBD998 00740 ELSE DTSBD998 00741 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00742 DTSBD998 00743 MOVE LOW-VALUES TO REF-REC. DTSBD998 00744 DTSBD998 00745 WRITE REF-REC. DTSBD998 00746 IF FILE-OK-88 DTSBD998 00747 NEXT SENTENCE DTSBD998 00748 ELSE DTSBD998 00749 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00750 DTSBD998 00751 CLOSE REF-FILE. DTSBD998 00752 IF FILE-OK-88 DTSBD998 00753 NEXT SENTENCE DTSBD998 00754 ELSE DTSBD998 00755 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00756 DTSBD998 00757 OPEN I-O REF-FILE. DTSBD998 00758 IF FILE-OK-88 DTSBD998 00759 NEXT SENTENCE DTSBD998 00760 ELSE DTSBD998 00761 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00762 DTSBD998 00763 READ REF-FILE NEXT. DTSBD998 00764 IF FILE-OK-88 DTSBD998 00765 NEXT SENTENCE DTSBD998 00766 ELSE DTSBD998 00767 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00768 DTSBD998 00769 DELETE REF-FILE RECORD. DTSBD998 00770 IF FILE-OK-88 DTSBD998 00771 NEXT SENTENCE DTSBD998 00772 ELSE DTSBD998 00773 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00774 DTSBD998 00775 CLOSE REF-FILE. DTSBD998 00776 IF FILE-OK-88 DTSBD998 00777 NEXT SENTENCE DTSBD998 00778 ELSE DTSBD998 00779 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00780 P1150-EXIT. DTSBD998 00781 EXIT. DTSBD998 00782 EJECT DTSBD998 00783 P1160-ATC. DTSBD998 00784 OPEN OUTPUT ATC-FILE. DTSBD998 00785 IF FILE-OK-88 DTSBD998 00786 NEXT SENTENCE DTSBD998 00787 ELSE DTSBD998 00788 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00789 DTSBD998 00790 MOVE LOW-VALUES TO ATC-REC. DTSBD998 00791 DTSBD998 00792 WRITE ATC-REC. DTSBD998 00793 IF FILE-OK-88 DTSBD998 00794 NEXT SENTENCE DTSBD998 00795 ELSE DTSBD998 00796 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00797 DTSBD998 00798 CLOSE ATC-FILE. DTSBD998 00799 IF FILE-OK-88 DTSBD998 00800 NEXT SENTENCE DTSBD998 00801 ELSE DTSBD998 00802 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00803 DTSBD998 00804 OPEN I-O ATC-FILE. DTSBD998 00805 IF FILE-OK-88 DTSBD998 00806 NEXT SENTENCE DTSBD998 00807 ELSE DTSBD998 00808 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00809 DTSBD998 00810 READ ATC-FILE NEXT. DTSBD998 00811 IF FILE-OK-88 DTSBD998 00812 NEXT SENTENCE DTSBD998 00813 ELSE DTSBD998 00814 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00815 DTSBD998 00816 DELETE ATC-FILE RECORD. DTSBD998 00817 IF FILE-OK-88 DTSBD998 00818 NEXT SENTENCE DTSBD998 00819 ELSE DTSBD998 00820 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00821 DTSBD998 00822 CLOSE ATC-FILE. DTSBD998 00823 IF FILE-OK-88 DTSBD998 00824 NEXT SENTENCE DTSBD998 00825 ELSE DTSBD998 00826 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00827 P1160-EXIT. DTSBD998 00828 EXIT. DTSBD998 00829 EJECT DTSBD998 00830 P1170-WRK. DTSBD998 00831 OPEN OUTPUT WRK-FILE. DTSBD998 00832 IF FILE-OK-88 DTSBD998 00833 NEXT SENTENCE DTSBD998 00834 ELSE DTSBD998 00835 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00836 DTSBD998 00837 MOVE LOW-VALUES TO WRK-REC. DTSBD998 00838 DTSBD998 00839 WRITE WRK-REC. DTSBD998 00840 IF FILE-OK-88 DTSBD998 00841 NEXT SENTENCE DTSBD998 00842 ELSE DTSBD998 00843 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00844 DTSBD998 00845 CLOSE WRK-FILE. DTSBD998 00846 IF FILE-OK-88 DTSBD998 00847 NEXT SENTENCE DTSBD998 00848 ELSE DTSBD998 00849 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00850 DTSBD998 00851 OPEN I-O WRK-FILE. DTSBD998 00852 IF FILE-OK-88 DTSBD998 00853 NEXT SENTENCE DTSBD998 00854 ELSE DTSBD998 00855 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00856 DTSBD998 00857 READ WRK-FILE NEXT. DTSBD998 00858 IF FILE-OK-88 DTSBD998 00859 NEXT SENTENCE DTSBD998 00860 ELSE DTSBD998 00861 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00862 DTSBD998 00863 DELETE WRK-FILE RECORD. DTSBD998 00864 IF FILE-OK-88 DTSBD998 00865 NEXT SENTENCE DTSBD998 00866 ELSE DTSBD998 00867 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00868 DTSBD998 00869 CLOSE WRK-FILE. DTSBD998 00870 IF FILE-OK-88 DTSBD998 00871 NEXT SENTENCE DTSBD998 00872 ELSE DTSBD998 00873 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00874 P1170-EXIT. DTSBD998 00875 EXIT. DTSBD998 00876 EJECT DTSBD998 00877 P1180-OLA. DTSBD998 00878 OPEN OUTPUT OLA-FILE. DTSBD998 00879 IF FILE-OK-88 DTSBD998 00880 NEXT SENTENCE DTSBD998 00881 ELSE DTSBD998 00882 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00883 DTSBD998 00884 MOVE +5 TO RSK1-LENGTH. DTSBD998 00885 MOVE '000' TO RSK1-REC-TYPE. DTSBD998 00886 MOVE +3 TO VAR-CHAR-CNT. DTSBD998 00887 DTSBD998 00888 WRITE RVAR-REC. DTSBD998 00889 IF FILE-OK-88 DTSBD998 00890 NEXT SENTENCE DTSBD998 00891 ELSE DTSBD998 00892 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00893 DTSBD998 00894 CLOSE OLA-FILE. DTSBD998 00895 IF FILE-OK-88 DTSBD998 00896 NEXT SENTENCE DTSBD998 00897 ELSE DTSBD998 00898 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00899 P1180-EXIT. DTSBD998 00900 EXIT. DTSBD998 00901 EJECT DTSBD998 00902 P1190-MSTE. DTSBD998 00903 OPEN OUTPUT MSTE-FILE. DTSBD998 00904 IF FILE-OK-88 DTSBD998 00905 NEXT SENTENCE DTSBD998 00906 ELSE DTSBD998 00907 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00908 DTSBD998 00909 MOVE LOW-VALUES TO MSTE-REC. DTSBD998 00910 DTSBD998 00911 WRITE MSTE-REC. DTSBD998 00912 IF FILE-OK-88 DTSBD998 00913 NEXT SENTENCE DTSBD998 00914 ELSE DTSBD998 00915 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00916 DTSBD998 00917 CLOSE MSTE-FILE. DTSBD998 00918 IF FILE-OK-88 DTSBD998 00919 NEXT SENTENCE DTSBD998 00920 ELSE DTSBD998 00921 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00922 DTSBD998 00923 OPEN I-O MSTE-FILE. DTSBD998 00924 IF FILE-OK-88 DTSBD998 00925 NEXT SENTENCE DTSBD998 00926 ELSE DTSBD998 00927 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00928 DTSBD998 00929 READ MSTE-FILE NEXT. DTSBD998 00930 IF FILE-OK-88 DTSBD998 00931 NEXT SENTENCE DTSBD998 00932 ELSE DTSBD998 00933 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00934 DTSBD998 00935 DELETE MSTE-FILE RECORD. DTSBD998 00936 IF FILE-OK-88 DTSBD998 00937 NEXT SENTENCE DTSBD998 00938 ELSE DTSBD998 00939 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00940 DTSBD998 00941 CLOSE MSTE-FILE. DTSBD998 00942 IF FILE-OK-88 DTSBD998 00943 NEXT SENTENCE DTSBD998 00944 ELSE DTSBD998 00945 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00946 P1190-EXIT. DTSBD998 00947 EXIT. DTSBD998 00948 EJECT DTSBD998 00949 P1200-MSTF. DTSBD998 00950 OPEN OUTPUT MSTF-FILE. DTSBD998 00951 IF FILE-OK-88 DTSBD998 00952 NEXT SENTENCE DTSBD998 00953 ELSE DTSBD998 00954 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00955 DTSBD998 00956 MOVE LOW-VALUES TO MSTF-REC. DTSBD998 00957 DTSBD998 00958 WRITE MSTF-REC. DTSBD998 00959 IF FILE-OK-88 DTSBD998 00960 NEXT SENTENCE DTSBD998 00961 ELSE DTSBD998 00962 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00963 DTSBD998 00964 CLOSE MSTF-FILE. DTSBD998 00965 IF FILE-OK-88 DTSBD998 00966 NEXT SENTENCE DTSBD998 00967 ELSE DTSBD998 00968 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00969 DTSBD998 00970 OPEN I-O MSTF-FILE. DTSBD998 00971 IF FILE-OK-88 DTSBD998 00972 NEXT SENTENCE DTSBD998 00973 ELSE DTSBD998 00974 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00975 DTSBD998 00976 READ MSTF-FILE NEXT. DTSBD998 00977 IF FILE-OK-88 DTSBD998 00978 NEXT SENTENCE DTSBD998 00979 ELSE DTSBD998 00980 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00981 DTSBD998 00982 DELETE MSTF-FILE RECORD. DTSBD998 00983 IF FILE-OK-88 DTSBD998 00984 NEXT SENTENCE DTSBD998 00985 ELSE DTSBD998 00986 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00987 DTSBD998 00988 CLOSE MSTF-FILE. DTSBD998 00989 IF FILE-OK-88 DTSBD998 00990 NEXT SENTENCE DTSBD998 00991 ELSE DTSBD998 00992 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 00993 P1200-EXIT. DTSBD998 00994 EXIT. DTSBD998 00995 DTSBD998 00996 P1210-MSTG. DTSBD998 00997 OPEN OUTPUT MSTG-FILE. DTSBD998 00998 IF FILE-OK-88 DTSBD998 00999 NEXT SENTENCE DTSBD998 01000 ELSE DTSBD998 01001 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01002 DTSBD998 01003 MOVE LOW-VALUES TO MSTG-REC. DTSBD998 01004 DTSBD998 01005 WRITE MSTG-REC. DTSBD998 01006 IF FILE-OK-88 DTSBD998 01007 NEXT SENTENCE DTSBD998 01008 ELSE DTSBD998 01009 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01010 DTSBD998 01011 CLOSE MSTG-FILE. DTSBD998 01012 IF FILE-OK-88 DTSBD998 01013 NEXT SENTENCE DTSBD998 01014 ELSE DTSBD998 01015 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01016 DTSBD998 01017 OPEN I-O MSTG-FILE. DTSBD998 01018 IF FILE-OK-88 DTSBD998 01019 NEXT SENTENCE DTSBD998 01020 ELSE DTSBD998 01021 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01022 DTSBD998 01023 READ MSTG-FILE NEXT. DTSBD998 01024 IF FILE-OK-88 DTSBD998 01025 NEXT SENTENCE DTSBD998 01026 ELSE DTSBD998 01027 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01028 DTSBD998 01029 DELETE MSTG-FILE RECORD. DTSBD998 01030 IF FILE-OK-88 DTSBD998 01031 NEXT SENTENCE DTSBD998 01032 ELSE DTSBD998 01033 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01034 DTSBD998 01035 CLOSE MSTG-FILE. DTSBD998 01036 IF FILE-OK-88 DTSBD998 01037 NEXT SENTENCE DTSBD998 01038 ELSE DTSBD998 01039 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01040 P1210-EXIT. DTSBD998 01041 EXIT. DTSBD998 01042 DTSBD998 01043 P1220-MSTH. DTSBD998 01044 OPEN OUTPUT MSTH-FILE. DTSBD998 01045 IF FILE-OK-88 DTSBD998 01046 NEXT SENTENCE DTSBD998 01047 ELSE DTSBD998 01048 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01049 DTSBD998 01050 MOVE LOW-VALUES TO MSTH-REC. DTSBD998 01051 DTSBD998 01052 WRITE MSTH-REC. DTSBD998 01053 IF FILE-OK-88 DTSBD998 01054 NEXT SENTENCE DTSBD998 01055 ELSE DTSBD998 01056 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01057 DTSBD998 01058 CLOSE MSTH-FILE. DTSBD998 01059 IF FILE-OK-88 DTSBD998 01060 NEXT SENTENCE DTSBD998 01061 ELSE DTSBD998 01062 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01063 DTSBD998 01064 OPEN I-O MSTH-FILE. DTSBD998 01065 IF FILE-OK-88 DTSBD998 01066 NEXT SENTENCE DTSBD998 01067 ELSE DTSBD998 01068 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01069 DTSBD998 01070 READ MSTH-FILE NEXT. DTSBD998 01071 IF FILE-OK-88 DTSBD998 01072 NEXT SENTENCE DTSBD998 01073 ELSE DTSBD998 01074 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01075 DTSBD998 01076 DELETE MSTH-FILE RECORD. DTSBD998 01077 IF FILE-OK-88 DTSBD998 01078 NEXT SENTENCE DTSBD998 01079 ELSE DTSBD998 01080 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01081 DTSBD998 01082 CLOSE MSTH-FILE. DTSBD998 01083 IF FILE-OK-88 DTSBD998 01084 NEXT SENTENCE DTSBD998 01085 ELSE DTSBD998 01086 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01087 P1220-EXIT. DTSBD998 01088 EXIT. DTSBD998 01089 EJECT DTSBD998 01090 P1230-WTC. DTSBD998 01091 OPEN OUTPUT WTC-FILE. DTSBD998 01092 IF FILE-OK-88 DTSBD998 01093 NEXT SENTENCE DTSBD998 01094 ELSE DTSBD998 01095 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01096 DTSBD998 01097 MOVE LOW-VALUES TO WTC-REC. DTSBD998 01098 MOVE ZEROES TO WSKL-BATCH-NO, DTSBD998 01099 WSKL-ITEM-NO, DTSBD998 01100 WSKL-SEQ-NO. DTSBD998 01101 WRITE WTC-REC. DTSBD998 01102 IF FILE-OK-88 DTSBD998 01103 NEXT SENTENCE DTSBD998 01104 ELSE DTSBD998 01105 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01106 DTSBD998 01107 CLOSE WTC-FILE. DTSBD998 01108 IF FILE-OK-88 DTSBD998 01109 NEXT SENTENCE DTSBD998 01110 ELSE DTSBD998 01111 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01112 DTSBD998 01113 P1230-EXIT. DTSBD998 01114 EXIT. DTSBD998 01115 DTSBD998 01116 P1240-WGH. DTSBD998 01117 OPEN OUTPUT WGH-FILE. DTSBD998 01118 IF FILE-OK-88 DTSBD998 01119 NEXT SENTENCE DTSBD998 01120 ELSE DTSBD998 01121 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01122 DTSBD998 01123 MOVE LOW-VALUES TO WGH-REC. DTSBD998 01124 DTSBD998 01125 WRITE WGH-REC. DTSBD998 01126 IF FILE-OK-88 DTSBD998 01127 NEXT SENTENCE DTSBD998 01128 ELSE DTSBD998 01129 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01130 DTSBD998 01131 CLOSE WGH-FILE. DTSBD998 01132 IF FILE-OK-88 DTSBD998 01133 NEXT SENTENCE DTSBD998 01134 ELSE DTSBD998 01135 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01136 DTSBD998 01137 OPEN I-O WGH-FILE. DTSBD998 01138 IF FILE-OK-88 DTSBD998 01139 NEXT SENTENCE DTSBD998 01140 ELSE DTSBD998 01141 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01142 DTSBD998 01143 READ WGH-FILE NEXT. DTSBD998 01144 IF FILE-OK-88 DTSBD998 01145 NEXT SENTENCE DTSBD998 01146 ELSE DTSBD998 01147 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01148 DTSBD998 01149 DELETE WGH-FILE RECORD. DTSBD998 01150 IF FILE-OK-88 DTSBD998 01151 NEXT SENTENCE DTSBD998 01152 ELSE DTSBD998 01153 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01154 DTSBD998 01155 CLOSE WGH-FILE. DTSBD998 01156 IF FILE-OK-88 DTSBD998 01157 NEXT SENTENCE DTSBD998 01158 ELSE DTSBD998 01159 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01160 P1240-EXIT. DTSBD998 01161 EXIT. DTSBD998 01162 P1250-NAM. DTSBD998 01163 OPEN OUTPUT NAME-FILE. DTSBD998 01164 IF FILE-OK-88 DTSBD998 01165 NEXT SENTENCE DTSBD998 01166 ELSE DTSBD998 01167 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01168 DTSBD998 01169 MOVE LOW-VALUES TO WNAM-REC. DTSBD998 01170 DTSBD998 01171 WRITE WNAM-REC. DTSBD998 01172 IF FILE-OK-88 DTSBD998 01173 NEXT SENTENCE DTSBD998 01174 ELSE DTSBD998 01175 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01176 DTSBD998 01177 CLOSE NAME-FILE. DTSBD998 01178 IF FILE-OK-88 DTSBD998 01179 NEXT SENTENCE DTSBD998 01180 ELSE DTSBD998 01181 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01182 DTSBD998 01183 OPEN I-O NAME-FILE. DTSBD998 01184 IF FILE-OK-88 DTSBD998 01185 NEXT SENTENCE DTSBD998 01186 ELSE DTSBD998 01187 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01188 DTSBD998 01189 READ NAME-FILE NEXT. DTSBD998 01190 IF FILE-OK-88 DTSBD998 01191 NEXT SENTENCE DTSBD998 01192 ELSE DTSBD998 01193 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01194 DTSBD998 01195 DELETE NAME-FILE RECORD. DTSBD998 01196 IF FILE-OK-88 DTSBD998 01197 NEXT SENTENCE DTSBD998 01198 ELSE DTSBD998 01199 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01200 DTSBD998 01201 CLOSE NAME-FILE. DTSBD998 01202 IF FILE-OK-88 DTSBD998 01203 NEXT SENTENCE DTSBD998 01204 ELSE DTSBD998 01205 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01206 P1250-EXIT. DTSBD998 01207 EXIT. DTSBD998 01208 EJECT DTSBD998 01209 P1260-MSTI. DTSBD998 01210 OPEN OUTPUT MSTI-FILE. DTSBD998 01211 IF FILE-OK-88 DTSBD998 01212 NEXT SENTENCE DTSBD998 01213 ELSE DTSBD998 01214 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01215 DTSBD998 01216 MOVE LOW-VALUES TO MSTI-REC. DTSBD998 01217 DTSBD998 01218 WRITE MSTI-REC. DTSBD998 01219 IF FILE-OK-88 DTSBD998 01220 NEXT SENTENCE DTSBD998 01221 ELSE DTSBD998 01222 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01223 DTSBD998 01224 CLOSE MSTI-FILE. DTSBD998 01225 IF FILE-OK-88 DTSBD998 01226 NEXT SENTENCE DTSBD998 01227 ELSE DTSBD998 01228 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01229 DTSBD998 01230 OPEN I-O MSTI-FILE. DTSBD998 01231 IF FILE-OK-88 DTSBD998 01232 NEXT SENTENCE DTSBD998 01233 ELSE DTSBD998 01234 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01235 DTSBD998 01236 READ MSTI-FILE NEXT. DTSBD998 01237 IF FILE-OK-88 DTSBD998 01238 NEXT SENTENCE DTSBD998 01239 ELSE DTSBD998 01240 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01241 DTSBD998 01242 DELETE MSTI-FILE RECORD. DTSBD998 01243 IF FILE-OK-88 DTSBD998 01244 NEXT SENTENCE DTSBD998 01245 ELSE DTSBD998 01246 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01247 DTSBD998 01248 CLOSE MSTI-FILE. DTSBD998 01249 IF FILE-OK-88 DTSBD998 01250 NEXT SENTENCE DTSBD998 01251 ELSE DTSBD998 01252 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01253 P1260-EXIT. DTSBD998 01254 EXIT. DTSBD998 01255 DTSBD998 01256 P1270-WG2. DTSBD998 01257 OPEN OUTPUT WG2-FILE. DTSBD998 01258 IF FILE-OK-88 DTSBD998 01259 NEXT SENTENCE DTSBD998 01260 ELSE DTSBD998 01261 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01262 DTSBD998 01263 MOVE LOW-VALUES TO WG2-REC. DTSBD998 01264 DTSBD998 01265 WRITE WG2-REC. DTSBD998 01266 IF FILE-OK-88 DTSBD998 01267 NEXT SENTENCE DTSBD998 01268 ELSE DTSBD998 01269 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01270 DTSBD998 01271 CLOSE WG2-FILE. DTSBD998 01272 IF FILE-OK-88 DTSBD998 01273 NEXT SENTENCE DTSBD998 01274 ELSE DTSBD998 01275 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01276 DTSBD998 01277 OPEN I-O WG2-FILE. DTSBD998 01278 IF FILE-OK-88 DTSBD998 01279 NEXT SENTENCE DTSBD998 01280 ELSE DTSBD998 01281 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01282 DTSBD998 01283 READ WG2-FILE NEXT. DTSBD998 01284 IF FILE-OK-88 DTSBD998 01285 NEXT SENTENCE DTSBD998 01286 ELSE DTSBD998 01287 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01288 DTSBD998 01289 DELETE WG2-FILE RECORD. DTSBD998 01290 IF FILE-OK-88 DTSBD998 01291 NEXT SENTENCE DTSBD998 01292 ELSE DTSBD998 01293 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01294 DTSBD998 01295 CLOSE WG2-FILE. DTSBD998 01296 IF FILE-OK-88 DTSBD998 01297 NEXT SENTENCE DTSBD998 01298 ELSE DTSBD998 01299 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01300 P1270-EXIT. DTSBD998 01301 EXIT. DTSBD998 01302 EJECT DTSBD998 01303 P1280-MSTJ. DTSBD998 01304 OPEN OUTPUT MSTJ-FILE. DTSBD998 01305 IF FILE-OK-88 DTSBD998 01306 NEXT SENTENCE DTSBD998 01307 ELSE DTSBD998 01308 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01309 DTSBD998 01310 MOVE LOW-VALUES TO MSTJ-REC. DTSBD998 01311 DTSBD998 01312 WRITE MSTJ-REC. DTSBD998 01313 IF FILE-OK-88 DTSBD998 01314 NEXT SENTENCE DTSBD998 01315 ELSE DTSBD998 01316 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01317 DTSBD998 01318 CLOSE MSTJ-FILE. DTSBD998 01319 IF FILE-OK-88 DTSBD998 01320 NEXT SENTENCE DTSBD998 01321 ELSE DTSBD998 01322 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01323 DTSBD998 01324 OPEN I-O MSTJ-FILE. DTSBD998 01325 IF FILE-OK-88 DTSBD998 01326 NEXT SENTENCE DTSBD998 01327 ELSE DTSBD998 01328 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01329 DTSBD998 01330 READ MSTJ-FILE NEXT. DTSBD998 01331 IF FILE-OK-88 DTSBD998 01332 NEXT SENTENCE DTSBD998 01333 ELSE DTSBD998 01334 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01335 DTSBD998 01336 DELETE MSTJ-FILE RECORD. DTSBD998 01337 IF FILE-OK-88 DTSBD998 01338 NEXT SENTENCE DTSBD998 01339 ELSE DTSBD998 01340 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01341 DTSBD998 01342 CLOSE MSTJ-FILE. DTSBD998 01343 IF FILE-OK-88 DTSBD998 01344 NEXT SENTENCE DTSBD998 01345 ELSE DTSBD998 01346 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01347 P1280-EXIT. DTSBD998 01348 EXIT. DTSBD998 01349 DTSBD998 01350 P1290-ATH. DTSBD998 01351 OPEN OUTPUT ATH-FILE. DTSBD998 01352 IF FILE-OK-88 DTSBD998 01353 NEXT SENTENCE DTSBD998 01354 ELSE DTSBD998 01355 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01356 DTSBD998 01357 DTSBD998 01358 MOVE LOW-VALUES TO ATH-REC. DTSBD998 01359 DTSBD998 01360 WRITE ATH-REC. DTSBD998 01361 IF FILE-OK-88 DTSBD998 01362 NEXT SENTENCE DTSBD998 01363 ELSE DTSBD998 01364 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01365 DTSBD998 01366 CLOSE ATH-FILE. DTSBD998 01367 IF FILE-OK-88 DTSBD998 01368 NEXT SENTENCE DTSBD998 01369 ELSE DTSBD998 01370 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01371 DTSBD998 01372 P1290-EXIT. DTSBD998 01373 EXIT. DTSBD998 01374 DTSBD998 01375 *P1300-CHK. DTSBD998 01376 * OPEN OUTPUT CHK-FILE. DTSBD998 01377 * IF FILE-OK-88 DTSBD998 01378 * NEXT SENTENCE DTSBD998 01379 * ELSE DTSBD998 01380 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01381 * DTSBD998 01382 * MOVE LOW-VALUES TO CHK-REC. DTSBD998 01383 * DTSBD998 01384 * WRITE CHK-REC. DTSBD998 01385 * IF FILE-OK-88 DTSBD998 01386 * NEXT SENTENCE DTSBD998 01387 * ELSE DTSBD998 01388 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01389 * DTSBD998 01390 * CLOSE CHK-FILE. DTSBD998 01391 * IF FILE-OK-88 DTSBD998 01392 * NEXT SENTENCE DTSBD998 01393 * ELSE DTSBD998 01394 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01395 * DTSBD998 01396 * OPEN I-O CHK-FILE. DTSBD998 01397 * IF FILE-OK-88 DTSBD998 01398 * NEXT SENTENCE DTSBD998 01399 * ELSE DTSBD998 01400 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01401 * DTSBD998 01402 * READ CHK-FILE NEXT. DTSBD998 01403 * IF FILE-OK-88 DTSBD998 01404 * NEXT SENTENCE DTSBD998 01405 * ELSE DTSBD998 01406 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01407 * DTSBD998 01408 * DELETE CHK-FILE RECORD. DTSBD998 01409 * IF FILE-OK-88 DTSBD998 01410 * NEXT SENTENCE DTSBD998 01411 * ELSE DTSBD998 01412 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01413 * DTSBD998 01414 * CLOSE CHK-FILE. DTSBD998 01415 * IF FILE-OK-88 DTSBD998 01416 * NEXT SENTENCE DTSBD998 01417 * ELSE DTSBD998 01418 * PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01419 *P1300-EXIT. DTSBD998 01420 * EXIT. DTSBD998 01421 DTSBD998 01422 P1310-WG3. DTSBD998 01423 OPEN OUTPUT WG3-FILE. DTSBD998 01424 IF FILE-OK-88 DTSBD998 01425 NEXT SENTENCE DTSBD998 01426 ELSE DTSBD998 01427 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01428 DTSBD998 01429 MOVE LOW-VALUES TO WG3-REC. DTSBD998 01430 DTSBD998 01431 WRITE WG3-REC. DTSBD998 01432 IF FILE-OK-88 DTSBD998 01433 NEXT SENTENCE DTSBD998 01434 ELSE DTSBD998 01435 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01436 DTSBD998 01437 CLOSE WG3-FILE. DTSBD998 01438 IF FILE-OK-88 DTSBD998 01439 NEXT SENTENCE DTSBD998 01440 ELSE DTSBD998 01441 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01442 DTSBD998 01443 OPEN I-O WG3-FILE. DTSBD998 01444 IF FILE-OK-88 DTSBD998 01445 NEXT SENTENCE DTSBD998 01446 ELSE DTSBD998 01447 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01448 DTSBD998 01449 READ WG3-FILE NEXT. DTSBD998 01450 IF FILE-OK-88 DTSBD998 01451 NEXT SENTENCE DTSBD998 01452 ELSE DTSBD998 01453 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01454 DTSBD998 01455 DELETE WG3-FILE RECORD. DTSBD998 01456 IF FILE-OK-88 DTSBD998 01457 NEXT SENTENCE DTSBD998 01458 ELSE DTSBD998 01459 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01460 DTSBD998 01461 CLOSE WG3-FILE. DTSBD998 01462 IF FILE-OK-88 DTSBD998 01463 NEXT SENTENCE DTSBD998 01464 ELSE DTSBD998 01465 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01466 P1310-EXIT. DTSBD998 01467 EXIT. DTSBD998 01468 DTSBD998 01469 P1320-ITM. DTSBD998 01470 OPEN OUTPUT ITM-FILE. DTSBD998 01471 IF FILE-OK-88 DTSBD998 01472 NEXT SENTENCE DTSBD998 01473 ELSE DTSBD998 01474 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01475 DTSBD998 01476 MOVE LOW-VALUES TO ITM-REC. DTSBD998 01477 DTSBD998 01478 WRITE ITM-REC. DTSBD998 01479 IF FILE-OK-88 DTSBD998 01480 NEXT SENTENCE DTSBD998 01481 ELSE DTSBD998 01482 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01483 DTSBD998 01484 CLOSE ITM-FILE. DTSBD998 01485 IF FILE-OK-88 DTSBD998 01486 NEXT SENTENCE DTSBD998 01487 ELSE DTSBD998 01488 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01489 DTSBD998 01490 OPEN I-O ITM-FILE. DTSBD998 01491 IF FILE-OK-88 DTSBD998 01492 NEXT SENTENCE DTSBD998 01493 ELSE DTSBD998 01494 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01495 DTSBD998 01496 READ ITM-FILE NEXT. DTSBD998 01497 IF FILE-OK-88 DTSBD998 01498 NEXT SENTENCE DTSBD998 01499 ELSE DTSBD998 01500 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01501 DTSBD998 01502 DELETE ITM-FILE RECORD. DTSBD998 01503 IF FILE-OK-88 DTSBD998 01504 NEXT SENTENCE DTSBD998 01505 ELSE DTSBD998 01506 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01507 DTSBD998 01508 CLOSE ITM-FILE. DTSBD998 01509 IF FILE-OK-88 DTSBD998 01510 NEXT SENTENCE DTSBD998 01511 ELSE DTSBD998 01512 PERFORM S999-ABEND THRU S999-EXIT. DTSBD998 01513 P1320-EXIT. DTSBD998 01514 EXIT. DTSBD998 01515 DTSBD998 01516 T1000-TERMINATE. DTSBD998 01517 T1000-EXIT. DTSBD998 01518 EXIT. DTSBD998 01519 EJECT DTSBD998 01520 S999-ABEND. DTSBD998 01521 DISPLAY '*** FILE INITIALIZATION (DTSBD998) ABEND' DTSBD998 01522 DISPLAY '*** FILE STATUS = ' FILE-STATUS. DTSBD998 01523 DTSBD998 01524 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD998 01525 S999-EXIT. DTSBD998 01526 EXIT. DTSBD998