1532 lines
121 KiB
COBOL
1532 lines
121 KiB
COBOL
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
|