00001 IDENTIFICATION DIVISION. 02/26/14 00002 PROGRAM-ID. DTSBU190. DTSBU190 00003 AUTHOR. NGC LV011 00004 DATE-WRITTEN. JUNE 2005 DTSBU190 00005 DATE-COMPILED. DTSBU190 00006 DTSBU190 00007 ***** DTSBU190 00008 * DTSBU190 00009 * FUNCTION: COPY T027 REPORTS TRANSACTIONS, W001 WAGE DTSBU190 00010 * TRANSACTIONS, X210 ICESA SUBMITTER DATA AND DTSBU190 00011 * X212 ICESA EMPLOYER DATA FROM CONV TO PROD. DTSBU190 00012 * THE PROGRAM WILL IGNORE AN EMPTY INPUT FILE. DTSBU190 00013 * DTSBU190 00014 * MODIFICATION LOG: DTSBU190 00015 * DTSBU190 00016 * 06/27/2005 INITIAL DEVELOPMENT DTSBU190 00017 * REFERENCE: PROGRAMMER: GD DTSBU190 00018 * DTSBU190 00019 * 02/02/2006 CORRECTED PROBLEM WITH WRITE TO SUBMITTER FILE. DTSBU190 00020 * INPUT RECORD WAS NOT MOVED TO OUTPUT RECORD. DTSBU190 00021 * REFERENCE: PROGRAMMER: GD DTSBU190 00022 * DTSBU190 00023 * 02/03/2006 MODIFIED LENGTH OF SUBMITTER FILE - NEW VERSION DTSBU190 00024 * CONTAINS START AND END BATCH NUMBERS AND DTSBU190 00025 * THE RUN DATE AND TIME. DTSBU190 00026 * REFERENCE: PROGRAMMER: GD DTSBU190 00027 * DTSBU190 00028 * 11/06/2006 ADDED FILE FOR INFORMAIONAL MESSAGES DTSBU190 00029 * REFERENCE: PROGRAMMER: ZL1 DTSBU190 00030 * DTSBU190 00031 * 04/29/2009 ADDED BX202 FILE FOR DEPOSITS - DATA WILL BE DTSBU190 00032 * UPLOADED TO SQL SERVER. DTSBU190 00033 * REFERENCE: PROGRAMMER: GD DTSBU190 00034 * DTSBU190 00035 * DTSBU190 00036 * 02/26/2114 MODIFIED PROGRAM TO OPEN AND CLOSE INPUT AND DTSBU190 00037 * OUTPUT FILES BASED ON PARM. DTSBU190 00038 * REFERENCE: PROGRAMMER: ZL1 DTSBU190 00039 * DTSBU190 00040 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU190 00041 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU190 00042 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU190 00043 * DTSBU190 00044 * DTSBU190 00045 * DESCRIPTION: DTSBU190 00046 * DTSBU190 00047 * DTSBU190 READS 4 INPUT FILES FROM THE CONV ENVIRONMENT DTSBU190 00048 * AND COPIES THE INPUT DATA TO PROD OUTPUT FILES. DTSBU190 00049 * WAGE-IN: 128 BYTE WAGE TRANSACTION RECORDS DTSBU190 00050 * T027-IN: VARIABLE LENGTH REPORT TRANSACTIONS DTSBU190 00051 * DTSBU190 00052 * WHEN WRITING TO THE FIXED LENGTH FILE, THE PROGRAM DTSBU190 00053 * ISSUES A RETURN CODE OF 1 IF THE INPUT FILE IS EMPTY. DTSBU190 00054 * DTSBU190 00055 * THIS PROGRAM IS PART OF THE DAILY WAGE UPDATE DTSBU190 00056 * PROCESS. DTSBU190 00057 * DTSBU190 00058 ***** DTSBU190 00059 DTSBU190 00060 ENVIRONMENT DIVISION. DTSBU190 00061 DTSBU190 00062 INPUT-OUTPUT SECTION. DTSBU190 00063 DTSBU190 00064 FILE-CONTROL. DTSBU190 00065 SELECT WAGE-IN ASSIGN TO WAGEINP DTSBU190 00066 FILE STATUS IS WAGE-IN-STATUS. DTSBU190 00067 DTSBU190 00068 SELECT WAGE-OUT ASSIGN TO WAGEOUT DTSBU190 00069 FILE STATUS IS WAGE-OUT-STATUS. DTSBU190 00070 DTSBU190 00071 SELECT SUBMITTER-IN ASSIGN TO SUBMTINP DTSBU190 00072 FILE STATUS IS SUBMIT-IN-STATUS. DTSBU190 00073 DTSBU190 00074 SELECT SUBMITTER-OUT ASSIGN TO SUBMTOUT DTSBU190 00075 FILE STATUS IS SUBMIT-OUT-STATUS. DTSBU190 00076 DTSBU190 00077 SELECT EMPLOYER-IN ASSIGN TO EMPLRINP DTSBU190 00078 FILE STATUS IS EMPLR-IN-STATUS. DTSBU190 00079 DTSBU190 00080 SELECT EMPLOYER-OUT ASSIGN TO EMPLROUT DTSBU190 00081 FILE STATUS IS EMPLR-OUT-STATUS. DTSBU190 00082 DTSBU190 00083 SELECT INFO-MSG-IN ASSIGN TO INFOMINP DTSBU190 00084 FILE STATUS IS INFO-IN-STATUS. DTSBU190 00085 DTSBU190 00086 SELECT INFO-MSG-OUT ASSIGN TO INFOMOUT DTSBU190 00087 FILE STATUS IS INFO-OUT-STATUS. DTSBU190 00088 DTSBU190 00089 SELECT DEPOSIT-IN ASSIGN TO DEPSTIN DTSBU190 00090 FILE STATUS IS DEPOSIT-IN-STATUS. DTSBU190 00091 DTSBU190 00092 SELECT DEPOSIT-OUT ASSIGN TO DEPSTOUT DTSBU190 00093 FILE STATUS IS DEPOSIT-OUT-STATUS. DTSBU190 00094 DTSBU190 00095 DATA DIVISION. DTSBU190 00096 DTSBU190 00097 FILE SECTION. DTSBU190 00098 DTSBU190 00099 FD WAGE-IN DTSBU190 00100 RECORDING MODE IS F DTSBU190 00101 BLOCK CONTAINS 0 RECORDS. DTSBU190 00102 DTSBU190 00103 01 WAGE-IN-REC PIC X(128). DTSBU190 00104 DTSBU190 00105 FD WAGE-OUT DTSBU190 00106 RECORDING MODE IS F DTSBU190 00107 BLOCK CONTAINS 0 RECORDS. DTSBU190 00108 DTSBU190 00109 01 WAGE-OUT-REC PIC X(128). DTSBU190 00110 DTSBU190 00111 FD SUBMITTER-IN DTSBU190 00112 RECORDING MODE IS F DTSBU190 00113 BLOCK CONTAINS 0 RECORDS. DTSBU190 00114 DTSBU190 00115 01 SUBMITTER-IN-REC PIC X(231). DTSBU190 00116 DTSBU190 00117 FD SUBMITTER-OUT DTSBU190 00118 RECORDING MODE IS F DTSBU190 00119 BLOCK CONTAINS 0 RECORDS. DTSBU190 00120 DTSBU190 00121 01 SUBMITTER-OUT-REC PIC X(231). DTSBU190 00122 DTSBU190 00123 FD EMPLOYER-IN DTSBU190 00124 RECORDING MODE IS F DTSBU190 00125 BLOCK CONTAINS 0 RECORDS. DTSBU190 00126 DTSBU190 00127 01 EMPLOYER-IN-REC PIC X(106). DTSBU190 00128 DTSBU190 00129 FD EMPLOYER-OUT DTSBU190 00130 RECORDING MODE IS F DTSBU190 00131 BLOCK CONTAINS 0 RECORDS. DTSBU190 00132 DTSBU190 00133 01 EMPLOYER-OUT-REC PIC X(106). DTSBU190 00134 DTSBU190 00135 FD INFO-MSG-IN DTSBU190 00136 RECORDING MODE IS F DTSBU190 00137 BLOCK CONTAINS 0 RECORDS. DTSBU190 00138 DTSBU190 00139 01 INFO-MSG-IN-REC PIC X(318). DTSBU190 00140 DTSBU190 00141 FD INFO-MSG-OUT DTSBU190 00142 RECORDING MODE IS F DTSBU190 00143 BLOCK CONTAINS 0 RECORDS. DTSBU190 00144 DTSBU190 00145 01 INFO-MSG-OUT-REC PIC X(318). DTSBU190 00146 DTSBU190 00147 FD DEPOSIT-IN DTSBU190 00148 RECORDING MODE IS F DTSBU190 00149 BLOCK CONTAINS 0 RECORDS. DTSBU190 00150 DTSBU190 00151 01 DEPOSIT-IN-REC PIC X(55). DTSBU190 00152 DTSBU190 00153 FD DEPOSIT-OUT DTSBU190 00154 RECORDING MODE IS F DTSBU190 00155 BLOCK CONTAINS 0 RECORDS. DTSBU190 00156 DTSBU190 00157 01 DEPOSIT-OUT-REC PIC X(55). DTSBU190 00158 DTSBU190 00159 WORKING-STORAGE SECTION. DTSBU190 001595 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU190 02/26/14'. DTSBU190 00160 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU190 02/26/14'. DTSBU190 00161 77 PAN-VALET PICTURE X(24) VALUE '009DTSBU190 05/12/09'. DTSBU190 00162 DTSBU190 00163 01 WRK-AREA. DTSBU190 00164 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +190. DTSBU190 00165 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU190'. DTSBU190 00166 DTSBU190 00167 05 WRK-RETURN-CODE PIC S9(04) COMP VALUE +0. DTSBU190 00168 05 INPUT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBU190 00169 05 OUTPUT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBU190 00170 DTSBU190 00171 05 WAGE-IN-STATUS PIC X(02). DTSBU190 00172 88 WAGE-IN-OK-88 VALUE '00'. DTSBU190 00173 88 WAGE-IN-EOF-88 VALUE '10'. DTSBU190 00174 DTSBU190 00175 05 SUBMIT-IN-STATUS PIC X(02). DTSBU190 00176 88 SUBMIT-IN-OK-88 VALUE '00'. DTSBU190 00177 88 SUBMIT-IN-EOF-88 VALUE '10'. DTSBU190 00178 DTSBU190 00179 05 EMPLR-IN-STATUS PIC X(02). DTSBU190 00180 88 EMPLR-IN-OK-88 VALUE '00'. DTSBU190 00181 88 EMPLR-IN-EOF-88 VALUE '10'. DTSBU190 00182 DTSBU190 00183 05 WAGE-OUT-STATUS PIC X(02). DTSBU190 00184 88 WAGE-OUT-OK-88 VALUE '00'. DTSBU190 00185 DTSBU190 00186 05 SUBMIT-OUT-STATUS PIC X(02). DTSBU190 00187 88 SUBMIT-OUT-OK-88 VALUE '00'. DTSBU190 00188 DTSBU190 00189 05 EMPLR-OUT-STATUS PIC X(02). DTSBU190 00190 88 EMPLR-OUT-OK-88 VALUE '00'. DTSBU190 00191 DTSBU190 00192 05 INFO-OUT-STATUS PIC X(02). DTSBU190 00193 88 INFO-OUT-OK-88 VALUE '00'. DTSBU190 00194 DTSBU190 00195 05 INFO-IN-STATUS PIC X(02). DTSBU190 00196 88 INFO-IN-OK-88 VALUE '00'. DTSBU190 00197 88 INFO-IN-EOF-88 VALUE '10'. DTSBU190 00198 DTSBU190 00199 05 DEPOSIT-IN-STATUS PIC X(02). DTSBU190 00200 88 DEPOSIT-IN-OK-88 VALUE '00'. DTSBU190 00201 88 DEPOSIT-IN-EOF-88 VALUE '10'. DTSBU190 00202 DTSBU190 00203 05 DEPOSIT-OUT-STATUS PIC X(02). DTSBU190 00204 88 DEPOSIT-OUT-OK-88 VALUE '00'. DTSBU190 00205 DTSBU190 00206 05 WRK-INPUT-FILE-TYPE PIC X(04). DTSBU190 00207 88 WRK-INPUT-FILE-WAGE-88 VALUE 'WAGE'. DTSBU190 00208 88 WRK-INPUT-FILE-T027-88 VALUE 'T027'. DTSBU190 00209 88 WRK-INPUT-FILE-SUBM-88 VALUE 'SUBM'. DTSBU190 00210 88 WRK-INPUT-FILE-EMPR-88 VALUE 'EMPR'. DTSBU190 00211 88 WRK-INPUT-FILE-INFO-88 VALUE 'INFO'. DTSBU190 00212 88 WRK-INPUT-FILE-DPST-88 VALUE 'DPST'. DTSBU190 00213 DTSBU190 00214 05 WRK-RETURN-CD-IND PIC X(01). DTSBU190 00215 88 WRK-RETURN-CD-YES-88 VALUE 'Y'. DTSBU190 00216 88 WRK-RETURN-CD-NO-88 VALUE 'N'. DTSBU190 00217 DTSBU190 00218 01 L926-LINK-AREA. DTSBU190 00219 ++INCLUDE DTSIL926 DTSBU190 00220 DTSBU190 00221 01 L927-LINK-AREA. DTSBU190 00222 ++INCLUDE DTSIL927 DTSBU190 00223 DTSBU190 00224 01 TSKL-REC. DTSBU190 00225 ++INCLUDE DTSITSKL DTSBU190 00226 DTSBU190 00227 LINKAGE SECTION. DTSBU190 00228 DTSBU190 00229 01 PARM-AREA. DTSBU190 00230 05 PARM-LENGTH PIC S9(04) COMP. DTSBU190 00231 05 PARM-DATA. DTSBU190 00232 10 PARM-INPUT-FILE PIC X(04). DTSBU190 00233 88 PARM-INPUT-FILE-WAGE-88 VALUE 'WAGE'. DTSBU190 00234 88 PARM-INPUT-FILE-T027-88 VALUE 'T027'. DTSBU190 00235 88 PARM-INPUT-FILE-SUBM-88 VALUE 'SUBM'. DTSBU190 00236 88 PARM-INPUT-FILE-EMPR-88 VALUE 'EMPR'. DTSBU190 00237 88 PARM-INPUT-FILE-INFO-88 VALUE 'INFO'. DTSBU190 00238 88 PARM-INPUT-FILE-DPST-88 VALUE 'DPST'. DTSBU190 00239 88 PARM-INPUT-FILE-VALID-88 DTSBU190 00240 VALUE 'WAGE' 'T027' DTSBU190 00241 'SUBM', 'EMPR' DTSBU190 00242 'INFO', 'DPST'. DTSBU190 00243 10 PARM-FILLER PIC X(01). DTSBU190 00244 10 PARM-RETURN-CD-IND PIC X(01). DTSBU190 00245 88 PARM-RETURN-CD-YES-88 VALUE 'Y'. DTSBU190 00246 88 PARM-RETURN-CD-NO-88 VALUE 'N'. DTSBU190 00247 88 PARM-RETURN-CD-VALID-88 VALUE 'Y' 'N'. DTSBU190 00248 DTSBU190 00249 PROCEDURE DIVISION USING PARM-AREA. DTSBU190 00250 DTSBU190 00251 DESBU190-MAINLINE. DTSBU190 00252 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBU190 00253 DTSBU190 00254 PERFORM P0000-COPY-DATA THRU P0000-EXIT. DTSBU190 00255 DTSBU190 00256 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBU190 00257 DTSBU190 00258 MOVE WRK-RETURN-CODE TO RETURN-CODE. DTSBU190 00259 DISPLAY 'MAIN RETURN CODE ' RETURN-CODE. DTSBU190 00260 DESBU190-MAINLINE-EXIT. DTSBU190 00261 GOBACK. DTSBU190 00262 DTSBU190 00263 I0000-INITIATE. DTSBU190 00264 MOVE ZERO TO INPUT-CNT DTSBU190 00265 OUTPUT-CNT. DTSBU190 00266 MOVE 'N' TO L926-TRACE-IND DTSBU190 00267 L927-TRACE-IND. DTSBU190 00268 MOVE WRK-MOD-NAME TO L926-MOD-NAME DTSBU190 00269 L927-MOD-NAME. DTSBU190 00270 DTSBU190 00271 PERFORM I1000-EDIT-PARMS THRU I1000-EXIT. DTSBU190 00272 DTSBU190 00273 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBU190 00274 DTSBU190 00275 I0000-EXIT. DTSBU190 00276 EXIT. DTSBU190 00277 DTSBU190 00278 I1000-EDIT-PARMS. DTSBU190 00279 IF PARM-INPUT-FILE-VALID-88 DTSBU190 00280 MOVE PARM-INPUT-FILE TO WRK-INPUT-FILE-TYPE DTSBU190 00281 ELSE DTSBU190 00282 DISPLAY 'PARM INPUT FILE TYPE INVALID ' DTSBU190 00283 PARM-INPUT-FILE DTSBU190 00284 PERFORM S999-ABEND THRU S999-EXIT. DTSBU190 00285 DTSBU190 00286 IF PARM-RETURN-CD-VALID-88 DTSBU190 00287 MOVE PARM-RETURN-CD-IND TO WRK-RETURN-CD-IND DTSBU190 00288 ELSE DTSBU190 00289 DISPLAY 'PARM RETURN CODE IND INVALID ' DTSBU190 00290 PARM-RETURN-CD-IND DTSBU190 00291 PERFORM S999-ABEND THRU S999-EXIT. DTSBU190 00292 DTSBU190 00293 DISPLAY '*********** DESBU190 ******************' DTSBU190 00294 DTSBU190 00295 EVALUATE TRUE DTSBU190 00296 WHEN WRK-INPUT-FILE-WAGE-88 DTSBU190 00297 DISPLAY 'DTSBU190 READING WAGE INPUT FILE' DTSBU190 00298 DTSBU190 00299 WHEN WRK-INPUT-FILE-T027-88 DTSBU190 00300 DISPLAY 'DTSBU190 READING T027 INPUT FILE' DTSBU190 00301 DTSBU190 00302 WHEN WRK-INPUT-FILE-SUBM-88 DTSBU190 00303 DISPLAY 'DTSBU190 READING SUBMITTER INPUT FILE' DTSBU190 00304 DTSBU190 00305 WHEN WRK-INPUT-FILE-EMPR-88 DTSBU190 00306 DISPLAY 'DTSBU190 READING EMPLOYER INPUT FILE' DTSBU190 00307 DTSBU190 00308 WHEN WRK-INPUT-FILE-INFO-88 DTSBU190 00309 DISPLAY 'DTSBU190 READING MESSAGES INPUT FILE' DTSBU190 00310 DTSBU190 00311 WHEN WRK-INPUT-FILE-DPST-88 DTSBU190 00312 DISPLAY 'DTSBU190 READING DEPOSIT INPUT FILE' DTSBU190 00313 DTSBU190 00314 END-EVALUATE. DTSBU190 00315 DTSBU190 00316 DISPLAY SPACE. DTSBU190 00317 DTSBU190 00318 IF WRK-RETURN-CD-YES-88 DTSBU190 00319 DISPLAY DTSBU190 00320 'DESBU190 ISSUES RETURN CODE OF 1 IF INPUT IS EMPTY' DTSBU190 00321 ELSE DTSBU190 00322 DISPLAY 'DESBU190 WILL NOT ISSUE RETURN CODE'. DTSBU190 00323 DTSBU190 00324 DISPLAY SPACE. DTSBU190 00325 DTSBU190 00326 I1000-EXIT. DTSBU190 00327 EXIT. DTSBU190 00328 DTSBU190 00329 I2000-OPEN-FILES. DTSBU190 00330 EVALUATE TRUE DTSBU190 00331 WHEN WRK-INPUT-FILE-WAGE-88 DTSBU190 00332 PERFORM S0100-OPEN-WAGE-IN THRU S0100-EXIT DTSBU190 00333 PERFORM S0400-OPEN-WAGE-OUT THRU S0400-EXIT DTSBU190 00334 DTSBU190 00335 WHEN WRK-INPUT-FILE-T027-88 DTSBU190 00336 PERFORM S926A-OPEN-READ THRU S926A-EXIT DTSBU190 00337 PERFORM S927A-OPEN THRU S927A-EXIT DTSBU190 00338 DTSBU190 00339 WHEN WRK-INPUT-FILE-SUBM-88 DTSBU190 00340 PERFORM S0700-OPEN-SUBMITTER-IN THRU S0700-EXIT DTSBU190 00341 PERFORM S1000-OPEN-SUBMITTER-OUT THRU S1000-EXIT DTSBU190 00342 DTSBU190 00343 WHEN WRK-INPUT-FILE-EMPR-88 DTSBU190 00344 PERFORM S1300-OPEN-EMPLOYER-IN THRU S1300-EXIT DTSBU190 00345 PERFORM S1600-OPEN-EMPLOYER-OUT THRU S1600-EXIT DTSBU190 00346 DTSBU190 00347 WHEN WRK-INPUT-FILE-INFO-88 DTSBU190 00348 PERFORM S1900-OPEN-INFO-MSG-IN THRU S1900-EXIT DTSBU190 00349 PERFORM S2200-OPEN-INFO-MSG-OUT THRU S2200-EXIT DTSBU190 00350 DTSBU190 00351 WHEN WRK-INPUT-FILE-DPST-88 DTSBU190 00352 PERFORM S2500-OPEN-DEPOSIT-IN THRU S2500-EXIT DTSBU190 00353 PERFORM S2800-OPEN-DEPOSIT-OUT THRU S2800-EXIT DTSBU190 00354 DTSBU190 00355 END-EVALUATE. DTSBU190 00356 DTSBU190 00357 DTSBU190 00358 I2000-EXIT. DTSBU190 00359 EXIT. DTSBU190 00360 DTSBU190 00361 P0000-COPY-DATA. DTSBU190 00362 EVALUATE TRUE DTSBU190 00363 WHEN WRK-INPUT-FILE-WAGE-88 DTSBU190 00364 PERFORM P1000-COPY-WAGES THRU P1000-EXIT DTSBU190 00365 PERFORM S0300-CLOSE-WAGE-IN THRU S0300-EXIT DTSBU190 00366 PERFORM S0600-CLOSE-WAGE-OUT THRU S0600-EXIT DTSBU190 00367 DTSBU190 00368 WHEN WRK-INPUT-FILE-T027-88 DTSBU190 00369 PERFORM P2000-COPY-T027 THRU P2000-EXIT DTSBU190 00370 PERFORM S926C-CLOSE THRU S926C-EXIT DTSBU190 00371 PERFORM S927C-CLOSE THRU S927C-EXIT DTSBU190 00372 DTSBU190 00373 WHEN WRK-INPUT-FILE-SUBM-88 DTSBU190 00374 PERFORM P3000-COPY-SUBMITTER THRU P3000-EXIT DTSBU190 00375 PERFORM S0900-CLOSE-SUBMITTER-IN THRU S0900-EXIT DTSBU190 00376 PERFORM S1200-CLOSE-SUBMITTER-OUT THRU S1200-EXIT DTSBU190 00377 DTSBU190 00378 WHEN WRK-INPUT-FILE-EMPR-88 DTSBU190 00379 PERFORM P4000-COPY-EMPLOYER THRU P4000-EXIT DTSBU190 00380 PERFORM S1500-CLOSE-EMPLOYER-IN THRU S1500-EXIT DTSBU190 00381 PERFORM S1800-CLOSE-EMPLOYER-OUT THRU S1800-EXIT DTSBU190 00382 DTSBU190 00383 WHEN WRK-INPUT-FILE-INFO-88 DTSBU190 00384 PERFORM P5000-COPY-INFO-MSG THRU P5000-EXIT DTSBU190 00385 PERFORM S2100-CLOSE-INFO-MSG-IN THRU S2100-EXIT DTSBU190 00386 PERFORM S2400-CLOSE-INFO-MSG-OUT THRU S2400-EXIT DTSBU190 00387 DTSBU190 00388 WHEN WRK-INPUT-FILE-DPST-88 DTSBU190 00389 PERFORM P6000-COPY-DEPOSIT THRU P6000-EXIT DTSBU190 00390 PERFORM S2700-CLOSE-DEPOSIT-IN THRU S2700-EXIT DTSBU190 00391 PERFORM S3000-CLOSE-DEPOSIT-OUT THRU S3000-EXIT DTSBU190 00392 DTSBU190 00393 END-EVALUATE. DTSBU190 00394 DTSBU190 00395 DTSBU190 00396 P0000-EXIT. DTSBU190 00397 EXIT. DTSBU190 00398 DTSBU190 00399 P1000-COPY-WAGES. DTSBU190 00400 PERFORM S0200-READ-WAGE-IN THRU S0200-EXIT. DTSBU190 00401 IF NOT WAGE-IN-OK-88 DTSBU190 00402 DISPLAY 'WAGE INPUT FILE IS EMPTY ' DTSBU190 00403 WAGE-IN-STATUS DTSBU190 00404 DISPLAY '***************************************' DTSBU190 00405 IF WRK-RETURN-CD-YES-88 DTSBU190 00406 MOVE +1 TO WRK-RETURN-CODE DTSBU190 00407 GO TO P1000-EXIT DTSBU190 00408 ELSE DTSBU190 00409 GO TO P1000-EXIT DTSBU190 00410 END-IF DTSBU190 00411 ELSE DTSBU190 00412 PERFORM P1100-COPY THRU P1100-EXIT DTSBU190 00413 UNTIL WAGE-IN-EOF-88 DTSBU190 00414 END-IF. DTSBU190 00415 DTSBU190 00416 P1000-EXIT. DTSBU190 00417 EXIT. DTSBU190 00418 DTSBU190 00419 P1100-COPY. DTSBU190 00420 PERFORM S0500-WRITE-WAGE-OUT THRU S0500-EXIT. DTSBU190 00421 DTSBU190 00422 PERFORM S0200-READ-WAGE-IN THRU S0200-EXIT. DTSBU190 00423 DTSBU190 00424 P1100-EXIT. DTSBU190 00425 EXIT. DTSBU190 00426 DTSBU190 00427 P2000-COPY-T027. DTSBU190 00428 PERFORM S926B-READ-NEXT THRU S926B-EXIT. DTSBU190 00429 IF L926-NO-REC-88 DTSBU190 00430 DISPLAY 'T027 INPUT FILE IS EMPTY ' DTSBU190 00431 DISPLAY '***************************************' DTSBU190 00432 IF WRK-RETURN-CD-YES-88 DTSBU190 00433 MOVE +1 TO WRK-RETURN-CODE DTSBU190 00434 DISPLAY 'P2000 RETURN CODE ' WRK-RETURN-CODE DTSBU190 00435 GO TO P2000-EXIT DTSBU190 00436 ELSE DTSBU190 00437 GO TO P2000-EXIT DTSBU190 00438 END-IF DTSBU190 00439 ELSE DTSBU190 00440 ADD +1 TO INPUT-CNT DTSBU190 00441 PERFORM P2100-COPY THRU P2100-EXIT DTSBU190 00442 UNTIL L926-NO-REC-88 DTSBU190 00443 END-IF. DTSBU190 00444 DTSBU190 00445 P2000-EXIT. DTSBU190 00446 EXIT. DTSBU190 00447 DTSBU190 00448 P2100-COPY. DTSBU190 00449 PERFORM S927B-WRITE THRU S927B-EXIT. DTSBU190 00450 ADD +1 TO OUTPUT-CNT. DTSBU190 00451 DTSBU190 00452 PERFORM S926B-READ-NEXT THRU S926B-EXIT. DTSBU190 00453 IF L926-OK-88 DTSBU190 00454 ADD +1 TO INPUT-CNT DTSBU190 00455 END-IF. DTSBU190 00456 DTSBU190 00457 P2100-EXIT. DTSBU190 00458 EXIT. DTSBU190 00459 DTSBU190 00460 P3000-COPY-SUBMITTER. DTSBU190 00461 PERFORM S0800-READ-SUBMITTER-IN THRU S0800-EXIT. DTSBU190 00462 IF NOT SUBMIT-IN-OK-88 DTSBU190 00463 DISPLAY 'SUBMITTER INPUT FILE IS EMPTY ' DTSBU190 00464 SUBMIT-IN-STATUS DTSBU190 00465 DISPLAY '***************************************' DTSBU190 00466 IF WRK-RETURN-CD-YES-88 DTSBU190 00467 MOVE +1 TO WRK-RETURN-CODE DTSBU190 00468 GO TO P3000-EXIT DTSBU190 00469 ELSE DTSBU190 00470 GO TO P3000-EXIT DTSBU190 00471 END-IF DTSBU190 00472 ELSE DTSBU190 00473 PERFORM P3100-COPY THRU P3100-EXIT DTSBU190 00474 UNTIL SUBMIT-IN-EOF-88 DTSBU190 00475 END-IF. DTSBU190 00476 DTSBU190 00477 P3000-EXIT. DTSBU190 00478 EXIT. DTSBU190 00479 DTSBU190 00480 P3100-COPY. DTSBU190 00481 PERFORM S1100-WRITE-SUBMITTER-OUT THRU S1100-EXIT. DTSBU190 00482 DTSBU190 00483 PERFORM S0800-READ-SUBMITTER-IN THRU S0800-EXIT. DTSBU190 00484 DTSBU190 00485 P3100-EXIT. DTSBU190 00486 EXIT. DTSBU190 00487 DTSBU190 00488 P4000-COPY-EMPLOYER. DTSBU190 00489 PERFORM S1400-READ-EMPLOYER-IN THRU S1400-EXIT. DTSBU190 00490 IF NOT EMPLR-IN-OK-88 DTSBU190 00491 DISPLAY 'EMPLOYER INPUT FILE IS EMPTY ' DTSBU190 00492 EMPLR-IN-STATUS DTSBU190 00493 DISPLAY '***************************************' DTSBU190 00494 IF WRK-RETURN-CD-YES-88 DTSBU190 00495 MOVE +1 TO WRK-RETURN-CODE DTSBU190 00496 GO TO P4000-EXIT DTSBU190 00497 ELSE DTSBU190 00498 GO TO P4000-EXIT DTSBU190 00499 END-IF DTSBU190 00500 ELSE DTSBU190 00501 PERFORM P4100-COPY THRU P4100-EXIT DTSBU190 00502 UNTIL EMPLR-IN-EOF-88 DTSBU190 00503 END-IF. DTSBU190 00504 DTSBU190 00505 P4000-EXIT. DTSBU190 00506 EXIT. DTSBU190 00507 DTSBU190 00508 P4100-COPY. DTSBU190 00509 PERFORM S1700-WRITE-EMPLOYER-OUT THRU S1700-EXIT. DTSBU190 00510 DTSBU190 00511 PERFORM S1400-READ-EMPLOYER-IN THRU S1400-EXIT. DTSBU190 00512 DTSBU190 00513 P4100-EXIT. DTSBU190 00514 EXIT. DTSBU190 00515 DTSBU190 00516 P5000-COPY-INFO-MSG. DTSBU190 00517 PERFORM S2000-READ-INFO-MSG-IN THRU S2000-EXIT. DTSBU190 00518 IF NOT INFO-IN-OK-88 DTSBU190 00519 DISPLAY 'MESSAGE INPUT FILE IS EMPTY ' DTSBU190 00520 INFO-IN-STATUS DTSBU190 00521 DISPLAY '***************************************' DTSBU190 00522 IF WRK-RETURN-CD-YES-88 DTSBU190 00523 MOVE +1 TO WRK-RETURN-CODE DTSBU190 00524 GO TO P5000-EXIT DTSBU190 00525 ELSE DTSBU190 00526 GO TO P5000-EXIT DTSBU190 00527 END-IF DTSBU190 00528 ELSE DTSBU190 00529 PERFORM P5100-COPY THRU P5100-EXIT DTSBU190 00530 UNTIL INFO-IN-EOF-88 DTSBU190 00531 END-IF. DTSBU190 00532 DTSBU190 00533 P5000-EXIT. DTSBU190 00534 EXIT. DTSBU190 00535 DTSBU190 00536 P5100-COPY. DTSBU190 00537 PERFORM S2300-WRITE-INFO-MSG-OUT THRU S2300-EXIT. DTSBU190 00538 DTSBU190 00539 PERFORM S2000-READ-INFO-MSG-IN THRU S2000-EXIT. DTSBU190 00540 DTSBU190 00541 P5100-EXIT. DTSBU190 00542 EXIT. DTSBU190 00543 DTSBU190 00544 P6000-COPY-DEPOSIT. DTSBU190 00545 PERFORM S2600-READ-DEPOSIT-IN THRU S2600-EXIT. DTSBU190 00546 IF NOT DEPOSIT-IN-OK-88 DTSBU190 00547 DISPLAY 'DEPOSIT INPUT FILE IS EMPTY ' DTSBU190 00548 DEPOSIT-IN-STATUS DTSBU190 00549 DISPLAY '***************************************' DTSBU190 00550 IF WRK-RETURN-CD-YES-88 DTSBU190 00551 MOVE +1 TO WRK-RETURN-CODE DTSBU190 00552 GO TO P6000-EXIT DTSBU190 00553 ELSE DTSBU190 00554 GO TO P6000-EXIT DTSBU190 00555 END-IF DTSBU190 00556 ELSE DTSBU190 00557 PERFORM P6100-COPY THRU P6100-EXIT DTSBU190 00558 UNTIL DEPOSIT-IN-EOF-88 DTSBU190 00559 END-IF. DTSBU190 00560 DTSBU190 00561 P6000-EXIT. DTSBU190 00562 EXIT. DTSBU190 00563 DTSBU190 00564 P6100-COPY. DTSBU190 00565 PERFORM S2900-WRITE-DEPOSIT-OUT THRU S2900-EXIT. DTSBU190 00566 DTSBU190 00567 PERFORM S2600-READ-DEPOSIT-IN THRU S2600-EXIT. DTSBU190 00568 DTSBU190 00569 P6100-EXIT. DTSBU190 00570 EXIT. DTSBU190 00571 DTSBU190 00572 T0000-TERMINATE. DTSBU190 00573 DISPLAY 'DTSBU190 TERMINATION STATISTICS' DTSBU190 00574 DISPLAY SPACE. DTSBU190 00575 DISPLAY ' INPUT RECORDS READ ' INPUT-CNT. DTSBU190 00576 DISPLAY SPACE. DTSBU190 00577 DISPLAY ' OUTPUT RECORDS WRITTEN ' OUTPUT-CNT. DTSBU190 00578 DTSBU190 00579 T0000-EXIT. DTSBU190 00580 EXIT. DTSBU190 00581 EJECT DTSBU190 00582 S926A-OPEN-READ. DTSBU190 00583 SET L926-OPEN-READ-88 TO TRUE. DTSBU190 00584 PERFORM S926Z-IO THRU S926Z-EXIT. DTSBU190 00585 DTSBU190 00586 S926A-EXIT. DTSBU190 00587 EXIT. DTSBU190 00588 DTSBU190 00589 S926B-READ-NEXT. DTSBU190 00590 SET L926-READ-NEXT-88 TO TRUE. DTSBU190 00591 PERFORM S926Z-IO THRU S926Z-EXIT. DTSBU190 00592 DTSBU190 00593 S926B-EXIT. DTSBU190 00594 EXIT. DTSBU190 00595 DTSBU190 00596 S926C-CLOSE. DTSBU190 00597 SET L926-CLOSE-88 TO TRUE. DTSBU190 00598 PERFORM S926Z-IO THRU S926Z-EXIT. DTSBU190 00599 DTSBU190 00600 S926C-EXIT. DTSBU190 00601 EXIT. DTSBU190 00602 DTSBU190 00603 S926Z-IO. DTSBU190 00604 CALL 'DTSBU926' USING L926-LINK-AREA DTSBU190 00605 TSKL-REC. DTSBU190 00606 S926Z-EXIT. DTSBU190 00607 EXIT. DTSBU190 00608 DTSBU190 00609 S927A-OPEN. DTSBU190 00610 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBU190 00611 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBU190 00612 DTSBU190 00613 S927A-EXIT. DTSBU190 00614 EXIT. DTSBU190 00615 DTSBU190 00616 S927B-WRITE. DTSBU190 00617 SET L927-WRITE-88 TO TRUE. DTSBU190 00618 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBU190 00619 DTSBU190 00620 S927B-EXIT. DTSBU190 00621 EXIT. DTSBU190 00622 DTSBU190 00623 S927C-CLOSE. DTSBU190 00624 SET L927-CLOSE-88 TO TRUE. DTSBU190 00625 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBU190 00626 DTSBU190 00627 S927C-EXIT. DTSBU190 00628 EXIT. DTSBU190 00629 DTSBU190 00630 S927Z-IO. DTSBU190 00631 CALL 'DTSBU927' USING L927-LINK-AREA DTSBU190 00632 TSKL-REC. DTSBU190 00633 S927Z-EXIT. DTSBU190 00634 EXIT. DTSBU190 00635 DTSBU190 00636 S0100-OPEN-WAGE-IN. DTSBU190 00637 OPEN INPUT WAGE-IN. DTSBU190 00638 IF NOT WAGE-IN-OK-88 DTSBU190 00639 DISPLAY 'CANNOT OPEN WAGE INPUT FILE ' DTSBU190 00640 WAGE-IN-STATUS DTSBU190 00641 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00642 END-IF. DTSBU190 00643 DTSBU190 00644 S0100-EXIT. DTSBU190 00645 EXIT. DTSBU190 00646 DTSBU190 00647 S0200-READ-WAGE-IN. DTSBU190 00648 READ WAGE-IN. DTSBU190 00649 IF WAGE-IN-EOF-88 DTSBU190 00650 GO TO S0200-EXIT DTSBU190 00651 ELSE DTSBU190 00652 IF NOT WAGE-IN-OK-88 DTSBU190 00653 DISPLAY 'WAGE INPUT FILE READ ERROR ' DTSBU190 00654 WAGE-IN-STATUS DTSBU190 00655 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00656 ELSE DTSBU190 00657 ADD +1 TO INPUT-CNT DTSBU190 00658 END-IF DTSBU190 00659 END-IF. DTSBU190 00660 DTSBU190 00661 S0200-EXIT. DTSBU190 00662 EXIT. DTSBU190 00663 DTSBU190 00664 S0300-CLOSE-WAGE-IN. DTSBU190 00665 CLOSE WAGE-IN. DTSBU190 00666 IF NOT WAGE-IN-OK-88 DTSBU190 00667 DISPLAY 'WAGE INPUT FILE CLOSE ERROR ' DTSBU190 00668 WAGE-IN-STATUS DTSBU190 00669 END-IF. DTSBU190 00670 DTSBU190 00671 S0300-EXIT. DTSBU190 00672 EXIT. DTSBU190 00673 DTSBU190 00674 S0400-OPEN-WAGE-OUT. DTSBU190 00675 OPEN OUTPUT WAGE-OUT. DTSBU190 00676 IF NOT WAGE-OUT-OK-88 DTSBU190 00677 DISPLAY 'CANNOT OPEN WAGE OUTPUT FILE ' DTSBU190 00678 WAGE-OUT-STATUS DTSBU190 00679 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00680 END-IF. DTSBU190 00681 DTSBU190 00682 S0400-EXIT. DTSBU190 00683 EXIT. DTSBU190 00684 DTSBU190 00685 S0500-WRITE-WAGE-OUT. DTSBU190 00686 WRITE WAGE-OUT-REC FROM WAGE-IN-REC. DTSBU190 00687 IF NOT WAGE-OUT-OK-88 DTSBU190 00688 DISPLAY 'CANNOT WRITE TO WAGE OUTPUT FILE ' DTSBU190 00689 WAGE-OUT-STATUS DTSBU190 00690 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00691 ELSE DTSBU190 00692 ADD +1 TO OUTPUT-CNT DTSBU190 00693 END-IF. DTSBU190 00694 DTSBU190 00695 S0500-EXIT. DTSBU190 00696 EXIT. DTSBU190 00697 DTSBU190 00698 S0600-CLOSE-WAGE-OUT. DTSBU190 00699 CLOSE WAGE-OUT DTSBU190 00700 IF NOT WAGE-OUT-OK-88 DTSBU190 00701 DISPLAY 'WAGE OUTPUT FILE CLOSE ERROR ' DTSBU190 00702 WAGE-OUT-STATUS DTSBU190 00703 END-IF. DTSBU190 00704 DTSBU190 00705 S0600-EXIT. DTSBU190 00706 EXIT. DTSBU190 00707 DTSBU190 00708 S0700-OPEN-SUBMITTER-IN. DTSBU190 00709 OPEN INPUT SUBMITTER-IN. DTSBU190 00710 IF NOT SUBMIT-IN-OK-88 DTSBU190 00711 DISPLAY 'CANNOT OPEN SUBMITTER INPUT FILE ' DTSBU190 00712 SUBMIT-IN-STATUS DTSBU190 00713 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00714 END-IF. DTSBU190 00715 DTSBU190 00716 S0700-EXIT. DTSBU190 00717 EXIT. DTSBU190 00718 DTSBU190 00719 S0800-READ-SUBMITTER-IN. DTSBU190 00720 READ SUBMITTER-IN. DTSBU190 00721 IF SUBMIT-IN-EOF-88 DTSBU190 00722 GO TO S0800-EXIT DTSBU190 00723 ELSE DTSBU190 00724 IF NOT SUBMIT-IN-OK-88 DTSBU190 00725 DISPLAY 'SUBMITTER INPUT FILE READ ERROR ' DTSBU190 00726 WAGE-IN-STATUS DTSBU190 00727 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00728 ELSE DTSBU190 00729 ADD +1 TO INPUT-CNT DTSBU190 00730 END-IF DTSBU190 00731 END-IF. DTSBU190 00732 DTSBU190 00733 S0800-EXIT. DTSBU190 00734 EXIT. DTSBU190 00735 DTSBU190 00736 S0900-CLOSE-SUBMITTER-IN. DTSBU190 00737 CLOSE SUBMITTER-IN. DTSBU190 00738 IF NOT SUBMIT-IN-OK-88 DTSBU190 00739 DISPLAY 'SUBMIT INPUT FILE CLOSE ERROR ' DTSBU190 00740 SUBMIT-IN-STATUS DTSBU190 00741 END-IF. DTSBU190 00742 DTSBU190 00743 S0900-EXIT. DTSBU190 00744 EXIT. DTSBU190 00745 DTSBU190 00746 S1000-OPEN-SUBMITTER-OUT. DTSBU190 00747 OPEN OUTPUT SUBMITTER-OUT. DTSBU190 00748 IF NOT SUBMIT-OUT-OK-88 DTSBU190 00749 DISPLAY 'CANNOT OPEN SUBMITTER OUTPUT FILE ' DTSBU190 00750 SUBMIT-OUT-STATUS DTSBU190 00751 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00752 END-IF. DTSBU190 00753 DTSBU190 00754 S1000-EXIT. DTSBU190 00755 EXIT. DTSBU190 00756 DTSBU190 00757 S1100-WRITE-SUBMITTER-OUT. DTSBU190 00758 WRITE SUBMITTER-OUT-REC FROM SUBMITTER-IN-REC. DTSBU190 00759 IF NOT SUBMIT-OUT-OK-88 DTSBU190 00760 DISPLAY 'CANNOT WRITE TO SUBMITTER OUTPUT FILE ' DTSBU190 00761 SUBMIT-OUT-STATUS DTSBU190 00762 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00763 END-IF. DTSBU190 00764 DTSBU190 00765 S1100-EXIT. DTSBU190 00766 EXIT. DTSBU190 00767 DTSBU190 00768 S1200-CLOSE-SUBMITTER-OUT. DTSBU190 00769 CLOSE SUBMITTER-OUT. DTSBU190 00770 IF NOT SUBMIT-OUT-OK-88 DTSBU190 00771 DISPLAY 'SUBMIT OUTPUT FILE CLOSE ERROR ' DTSBU190 00772 SUBMIT-OUT-STATUS DTSBU190 00773 END-IF. DTSBU190 00774 DTSBU190 00775 S1200-EXIT. DTSBU190 00776 EXIT. DTSBU190 00777 DTSBU190 00778 S1300-OPEN-EMPLOYER-IN. DTSBU190 00779 OPEN INPUT EMPLOYER-IN. DTSBU190 00780 IF NOT EMPLR-IN-OK-88 DTSBU190 00781 DISPLAY 'CANNOT OPEN EMPLOYER INPUT FILE ' DTSBU190 00782 EMPLR-IN-STATUS DTSBU190 00783 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00784 END-IF. DTSBU190 00785 DTSBU190 00786 S1300-EXIT. DTSBU190 00787 EXIT. DTSBU190 00788 DTSBU190 00789 S1400-READ-EMPLOYER-IN. DTSBU190 00790 READ EMPLOYER-IN. DTSBU190 00791 IF EMPLR-IN-EOF-88 DTSBU190 00792 GO TO S1400-EXIT DTSBU190 00793 ELSE DTSBU190 00794 IF NOT EMPLR-IN-OK-88 DTSBU190 00795 DISPLAY 'EMPLOYER INPUT FILE READ ERROR ' DTSBU190 00796 EMPLR-IN-STATUS DTSBU190 00797 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00798 ELSE DTSBU190 00799 ADD +1 TO INPUT-CNT DTSBU190 00800 END-IF DTSBU190 00801 END-IF. DTSBU190 00802 DTSBU190 00803 S1400-EXIT. DTSBU190 00804 EXIT. DTSBU190 00805 DTSBU190 00806 S1500-CLOSE-EMPLOYER-IN. DTSBU190 00807 CLOSE EMPLOYER-IN. DTSBU190 00808 IF NOT EMPLR-IN-OK-88 DTSBU190 00809 DISPLAY 'EMPLOYER INPUT FILE CLOSE ERROR ' DTSBU190 00810 EMPLR-IN-STATUS DTSBU190 00811 END-IF. DTSBU190 00812 DTSBU190 00813 S1500-EXIT. DTSBU190 00814 EXIT. DTSBU190 00815 DTSBU190 00816 S1600-OPEN-EMPLOYER-OUT. DTSBU190 00817 OPEN OUTPUT EMPLOYER-OUT. DTSBU190 00818 IF NOT EMPLR-OUT-OK-88 DTSBU190 00819 DISPLAY 'CANNOT OPEN EMPLOYER OUTPUT FILE ' DTSBU190 00820 EMPLR-OUT-STATUS DTSBU190 00821 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00822 END-IF. DTSBU190 00823 DTSBU190 00824 S1600-EXIT. DTSBU190 00825 EXIT. DTSBU190 00826 DTSBU190 00827 S1700-WRITE-EMPLOYER-OUT. DTSBU190 00828 WRITE EMPLOYER-OUT-REC FROM EMPLOYER-IN-REC. DTSBU190 00829 IF NOT EMPLR-OUT-OK-88 DTSBU190 00830 DISPLAY 'CANNOT WRITE TO EMPLOYER OUTPUT FILE ' DTSBU190 00831 EMPLR-OUT-STATUS DTSBU190 00832 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00833 ELSE DTSBU190 00834 ADD +1 TO OUTPUT-CNT DTSBU190 00835 END-IF. DTSBU190 00836 DTSBU190 00837 S1700-EXIT. DTSBU190 00838 EXIT. DTSBU190 00839 DTSBU190 00840 S1800-CLOSE-EMPLOYER-OUT. DTSBU190 00841 CLOSE EMPLOYER-OUT DTSBU190 00842 IF NOT EMPLR-OUT-OK-88 DTSBU190 00843 DISPLAY 'EMPLOYER OUTPUT FILE CLOSE ERROR ' DTSBU190 00844 EMPLR-OUT-STATUS DTSBU190 00845 END-IF. DTSBU190 00846 DTSBU190 00847 S1800-EXIT. DTSBU190 00848 EXIT. DTSBU190 00849 DTSBU190 00850 S1900-OPEN-INFO-MSG-IN. DTSBU190 00851 OPEN INPUT INFO-MSG-IN. DTSBU190 00852 IF NOT INFO-IN-OK-88 DTSBU190 00853 DISPLAY 'CANNOT OPEN MESSAGE INPUT FILE ' DTSBU190 00854 INFO-IN-STATUS DTSBU190 00855 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00856 END-IF. DTSBU190 00857 DTSBU190 00858 S1900-EXIT. DTSBU190 00859 EXIT. DTSBU190 00860 DTSBU190 00861 S2000-READ-INFO-MSG-IN. DTSBU190 00862 READ INFO-MSG-IN. DTSBU190 00863 IF INFO-IN-EOF-88 DTSBU190 00864 GO TO S2000-EXIT DTSBU190 00865 ELSE DTSBU190 00866 IF NOT INFO-IN-OK-88 DTSBU190 00867 DISPLAY 'MESSAGE INPUT FILE READ ERROR ' DTSBU190 00868 INFO-IN-STATUS DTSBU190 00869 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00870 ELSE DTSBU190 00871 ADD +1 TO INPUT-CNT DTSBU190 00872 END-IF DTSBU190 00873 END-IF. DTSBU190 00874 DTSBU190 00875 S2000-EXIT. DTSBU190 00876 EXIT. DTSBU190 00877 DTSBU190 00878 S2100-CLOSE-INFO-MSG-IN. DTSBU190 00879 CLOSE INFO-MSG-IN. DTSBU190 00880 IF NOT INFO-IN-OK-88 DTSBU190 00881 DISPLAY 'MESSAGE INPUT FILE CLOSE ERROR ' DTSBU190 00882 INFO-IN-STATUS DTSBU190 00883 END-IF. DTSBU190 00884 DTSBU190 00885 S2100-EXIT. DTSBU190 00886 EXIT. DTSBU190 00887 DTSBU190 00888 S2200-OPEN-INFO-MSG-OUT. DTSBU190 00889 OPEN OUTPUT INFO-MSG-OUT. DTSBU190 00890 IF NOT INFO-OUT-OK-88 DTSBU190 00891 DISPLAY 'CANNOT OPEN MESSAGE OUTPUT FILE ' DTSBU190 00892 INFO-OUT-STATUS DTSBU190 00893 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00894 END-IF. DTSBU190 00895 DTSBU190 00896 S2200-EXIT. DTSBU190 00897 EXIT. DTSBU190 00898 DTSBU190 00899 S2300-WRITE-INFO-MSG-OUT. DTSBU190 00900 WRITE INFO-MSG-OUT-REC FROM INFO-MSG-IN-REC. DTSBU190 00901 IF NOT INFO-OUT-OK-88 DTSBU190 00902 DISPLAY 'CANNOT WRITE TO MESSAGE OUTPUT FILE ' DTSBU190 00903 INFO-OUT-STATUS DTSBU190 00904 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00905 ELSE DTSBU190 00906 ADD +1 TO OUTPUT-CNT DTSBU190 00907 END-IF. DTSBU190 00908 DTSBU190 00909 S2300-EXIT. DTSBU190 00910 EXIT. DTSBU190 00911 DTSBU190 00912 S2400-CLOSE-INFO-MSG-OUT. DTSBU190 00913 CLOSE INFO-MSG-OUT DTSBU190 00914 IF NOT INFO-OUT-OK-88 DTSBU190 00915 DISPLAY 'MESSAGE OUTPUT FILE CLOSE ERROR ' DTSBU190 00916 INFO-OUT-STATUS DTSBU190 00917 END-IF. DTSBU190 00918 DTSBU190 00919 S2400-EXIT. DTSBU190 00920 EXIT. DTSBU190 00921 DTSBU190 00922 S2500-OPEN-DEPOSIT-IN. DTSBU190 00923 OPEN INPUT DEPOSIT-IN. DTSBU190 00924 IF NOT DEPOSIT-IN-OK-88 DTSBU190 00925 DISPLAY 'CANNOT OPEN DEPOSIT FILE ' DTSBU190 00926 DEPOSIT-IN-STATUS DTSBU190 00927 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00928 END-IF. DTSBU190 00929 DTSBU190 00930 S2500-EXIT. DTSBU190 00931 EXIT. DTSBU190 00932 DTSBU190 00933 S2600-READ-DEPOSIT-IN. DTSBU190 00934 READ DEPOSIT-IN. DTSBU190 00935 IF DEPOSIT-IN-EOF-88 DTSBU190 00936 GO TO S2600-EXIT DTSBU190 00937 ELSE DTSBU190 00938 IF NOT DEPOSIT-IN-OK-88 DTSBU190 00939 DISPLAY 'DEPOSIT INPUT FILE READ ERROR ' DTSBU190 00940 DEPOSIT-IN-STATUS DTSBU190 00941 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00942 ELSE DTSBU190 00943 ADD +1 TO INPUT-CNT DTSBU190 00944 END-IF DTSBU190 00945 END-IF. DTSBU190 00946 DTSBU190 00947 S2600-EXIT. DTSBU190 00948 EXIT. DTSBU190 00949 DTSBU190 00950 S2700-CLOSE-DEPOSIT-IN. DTSBU190 00951 CLOSE DEPOSIT-IN. DTSBU190 00952 IF NOT DEPOSIT-IN-OK-88 DTSBU190 00953 DISPLAY 'DEPOSIT INPUT FILE CLOSE ERROR ' DTSBU190 00954 DEPOSIT-IN-STATUS DTSBU190 00955 END-IF. DTSBU190 00956 DTSBU190 00957 S2700-EXIT. DTSBU190 00958 EXIT. DTSBU190 00959 DTSBU190 00960 S2800-OPEN-DEPOSIT-OUT. DTSBU190 00961 OPEN OUTPUT DEPOSIT-OUT. DTSBU190 00962 IF NOT DEPOSIT-OUT-OK-88 DTSBU190 00963 DISPLAY 'CANNOT OPEN DEPOSIT OUTPUT FILE ' DTSBU190 00964 DEPOSIT-OUT-STATUS DTSBU190 00965 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00966 END-IF. DTSBU190 00967 DTSBU190 00968 S2800-EXIT. DTSBU190 00969 EXIT. DTSBU190 00970 DTSBU190 00971 S2900-WRITE-DEPOSIT-OUT. DTSBU190 00972 WRITE DEPOSIT-OUT-REC FROM DEPOSIT-IN-REC. DTSBU190 00973 IF NOT DEPOSIT-OUT-OK-88 DTSBU190 00974 DISPLAY 'CANNOT WRITE TO DEPOSIT OUTPUT FILE ' DTSBU190 00975 DEPOSIT-OUT-STATUS DTSBU190 00976 PERFORM S999-ABEND THRU S999-EXIT DTSBU190 00977 ELSE DTSBU190 00978 ADD +1 TO OUTPUT-CNT DTSBU190 00979 END-IF. DTSBU190 00980 DTSBU190 00981 S2900-EXIT. DTSBU190 00982 EXIT. DTSBU190 00983 DTSBU190 00984 S3000-CLOSE-DEPOSIT-OUT. DTSBU190 00985 CLOSE DEPOSIT-OUT DTSBU190 00986 IF NOT DEPOSIT-OUT-OK-88 DTSBU190 00987 DISPLAY 'DEPOSIT OUTPUT FILE CLOSE ERROR ' DTSBU190 00988 DEPOSIT-OUT-STATUS DTSBU190 00989 END-IF. DTSBU190 00990 DTSBU190 00991 S3000-EXIT. DTSBU190 00992 EXIT. DTSBU190 00993 DTSBU190 00994 S999-ABEND. DTSBU190 00995 DISPLAY '*** DTSBU190 ABENDING'. DTSBU190 00996 DTSBU190 00997 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU190 00998 S999-EXIT. DTSBU190 00999 EXIT. DTSBU190