1001 lines
79 KiB
COBOL
1001 lines
79 KiB
COBOL
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
|