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
