00001  IDENTIFICATION DIVISION.                                         01/16/07
00002  PROGRAM-ID.             DTSBX335.                                DTSBX335
00003  AUTHOR.                 NGC.                                        LV003
00004  DATE-WRITTEN.           SEPTEMBER 2005.                          DTSBX335
00005  DATE-COMPILED.                                                   DTSBX335
00006      SKIP3                                                        DTSBX335
00007 *****                                                             DTSBX335
00008 *                                                                 DTSBX335
00009 *    FUNCTION:  EXTRACT WAGE DATA TO SQL SERVER                   DTSBX335
00010 *                                                                 DTSBX335
00011 *                                                                 DTSBX335
00012 *                                                                 DTSBX335
00013 *                                                                 DTSBX335
00014 *    MODIFICATION LOG:                                            DTSBX335
00015 *                                                                 DTSBX335
00016 *    09/01/2005  INITIAL DEVELOPMENT.                             DTSBX335
00017 *                WORK ORDER:                      PROGRAMMER: GD  DTSBX335
00018 *                                                                 DTSBX335
00019 *    91/15/2007  MODIFIED FOR NEW VERSION OF DTSIX142 FOR USE     DTSBX335
00020 *                IN WEB REPORTING APPLICATION.                    DTSBX335
00021 *                REMOVED WAGE NAME FILE - NAMES WILL REMAIN ON    DTSBX335
00022 *                THE WEB DATABASE.                                DTSBX335
00023 *                WORK ORDER:                      PROGRAMMER: GD  DTSBX335
00024 *                                                                 DTSBX335
00025 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX335
00026 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX335
00027 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBX335
00028 *                                                                 DTSBX335
00029 *                                                                 DTSBX335
00030 *    DESCRIPTION:                                                 DTSBX335
00031 *                                                                 DTSBX335
00032 *                                                                 DTSBX335
00033 *                                                                 DTSBX335
00034 *    GENERAL SPECIFICATIONS:                                      DTSBX335
00035 *                                                                 DTSBX335
00036 *                                                                 DTSBX335
00037 *                                                                 DTSBX335
00038 *                                                                 DTSBX335
00039 *    COMMAND SPECIFIC SPECIFICATIONS:                             DTSBX335
00040 *                                                                 DTSBX335
00041 *                                                                 DTSBX335
00042 *                                                                 DTSBX335
00043 *****                                                             DTSBX335
00044      SKIP3                                                        DTSBX335
00045  ENVIRONMENT DIVISION.                                            DTSBX335
00046  INPUT-OUTPUT SECTION.                                            DTSBX335
00047                                                                   DTSBX335
00048  FILE-CONTROL.                                                    DTSBX335
00049                                                                   DTSBX335
00050      SELECT PARM-FILE     ASSIGN TO DTSFPARM                      DTSBX335
00051             FILE STATUS IS PARM-STATUS.                           DTSBX335
00052                                                                   DTSBX335
00053      SELECT PROFILE-FILE  ASSIGN TO DTSFPRF                       DTSBX335
00054             FILE STATUS IS PROFILE-STATUS.                        DTSBX335
00055                                                                   DTSBX335
00056      SELECT X142-WAGE-FILE ASSIGN TO EXPBX142                     DTSBX335
00057             FILE STATUS IS X142-STATUS.                           DTSBX335
00058                                                                   DTSBX335
00059 ***  SELECT X144-WAGE-NAME-FILE ASSIGN TO EXPBX144                DTSBX335
00060 ***         FILE STATUS IS X144-STATUS.                           DTSBX335
00061                                                                   DTSBX335
00062  DATA DIVISION.                                                   DTSBX335
00063  FILE SECTION.                                                    DTSBX335
00064  FD  PARM-FILE                                                    DTSBX335
00065      RECORDING MODE IS F.                                         DTSBX335
00066  01  PARM-REC.                                                    DTSBX335
00067      05  PARM-FIRST-WAGE-QTR           PIC S9(05) COMP-3.         DTSBX335
00068      05  PARM-SUBJECT-YRQ              PIC S9(05) COMP-3.         DTSBX335
00069      05  PARM-PRIOR-RUN-DT             PIC S9(09) COMP-3.         DTSBX335
00070      05  FILLER                        PIC  X(05).                DTSBX335
00071                                                                   DTSBX335
00072  FD  PROFILE-FILE                                                 DTSBX335
00073      RECORDING MODE IS F.                                         DTSBX335
00074  01  PROFILE-REC.                                                 DTSBX335
00075      05  PRF-EMP-NO             PIC 9(06).                        DTSBX335
00076      05  FILLER                 PIC X(01).                        DTSBX335
00077      05  PRF-EMP-CLASS          PIC X(01).                        DTSBX335
00078      05  FILLER                 PIC X(01).                        DTSBX335
00079      05  PRF-EMP-NAME           PIC X(40).                        DTSBX335
00080      05  FILLER                 PIC X(01).                        DTSBX335
00081      05  PRF-FEIN               PIC 9(09).                        DTSBX335
00082      05  FILLER                 PIC X(01).                        DTSBX335
00083      05  PRF-EMP-STATUS         PIC X(01).                        DTSBX335
00084      05  FILLER                 PIC X(01).                        DTSBX335
00085      05  PRF-PROCESS-DT         PIC X(10).                        DTSBX335
00086                                                                   DTSBX335
00087                                                                   DTSBX335
00088  FD  X142-WAGE-FILE                                               DTSBX335
00089      RECORDING MODE IS F.                                         DTSBX335
00090  01  X142-REC                     PIC  X(42).                     DTSBX335
00091                                                                   DTSBX335
00092 *FD  X144-WAGE-NAME-FILE                                          DTSBX335
00093 *    RECORDING MODE IS F.                                         DTSBX335
00094 *01  X144-REC                     PIC  X(52).                     DTSBX335
00095                                                                   DTSBX335
00096  WORKING-STORAGE SECTION.                                         DTSBX335
000965 77  PAN-VALET PICTURE X(24) VALUE '003DTSBX335  01/16/07'.       DTSBX335
00097      SKIP3                                                        DTSBX335
00098  01  WRK-AREA.                                                    DTSBX335
00099                                                                   DTSBX335
00100      05  WRK-ABEND-CD             PIC  X(04)      VALUE 'X412'.   DTSBX335
00101      05  WRK-MOD-NAME             PIC  X(08)  VALUE 'DTSBX412'.   DTSBX335
00102      05  ABEND-MSG                PIC  X(60).                     DTSBX335
00103                                                                   DTSBX335
00104      05  WRK-ERROR-IND            PIC  X(01).                     DTSBX335
00105          88 WRK-ERROR-YES-88       VALUE 'Y'.                     DTSBX335
00106          88 WRK-ERROR-NO-88        VALUE 'N'.                     DTSBX335
00107                                                                   DTSBX335
00108      05  PARM-STATUS              PIC  X(02).                     DTSBX335
00109          88 PARM-STATUS-OK-88      VALUE '00'.                    DTSBX335
00110                                                                   DTSBX335
00111      05  PROFILE-STATUS           PIC  X(02).                     DTSBX335
00112          88 PROFILE-STATUS-OK-88   VALUE '00'.                    DTSBX335
00113          88 PROFILE-STATUS-EOF-88  VALUE '10'.                    DTSBX335
00114                                                                   DTSBX335
00115      05  X142-STATUS              PIC  X(02).                     DTSBX335
00116          88 X142-STATUS-OK-88      VALUE '00'.                    DTSBX335
00117                                                                   DTSBX335
00118 **   05  X144-STATUS              PIC  X(02).                     DTSBX335
00119 **       88 X144-STATUS-OK-88      VALUE '00'.                    DTSBX335
00120                                                                   DTSBX335
00121      05  WRK-SSN                  PIC  9(09).                     DTSBX335
00122                                                                   DTSBX335
00123      05  WRK-FIRST-WAGE-QTR       PIC S9(05) COMP-3.              DTSBX335
00124                                                                   DTSBX335
00125      05  WRK-X142-REC.                                            DTSBX335
00126  ++INCLUDE DTSIX142                                               DTSBX335
00127                                                                   DTSBX335
00128 ***  05  WRK-X144-REC.                                            DTSBX335
00129 ***INCLUDE DTSIX144                                               DTSBX335
00130                                                                   DTSBX335
00131      05  X142-CNT                 PIC S9(09) COMP-3               DTSBX335
00132                                     VALUE +0.                     DTSBX335
00133      05  PRF-CNT                  PIC S9(09) COMP-3               DTSBX335
00134                                     VALUE +0.                     DTSBX335
00135 **   05  X144-CNT                 PIC S9(09) COMP-3               DTSBX335
00136 **                                  VALUE +0.                     DTSBX335
00137                                                                   DTSBX335
00138      05  WRK-AMT-DISP1               PIC --------9.99.            DTSBX335
00139      05  WRK-DISP2                   PIC 9(15).                   DTSBX335
00140      EJECT                                                        DTSBX335
00141  01  L001-LINK-AREA.                                              DTSBX335
00142  ++INCLUDE DTSIL001                                               DTSBX335
00143      SKIP3                                                        DTSBX335
00144  01  L004-LINK-AREA.                                              DTSBX335
00145  ++INCLUDE DTSIL004                                               DTSBX335
00146      SKIP3                                                        DTSBX335
00147  01  L005-LINK-AREA.                                              DTSBX335
00148  ++INCLUDE DTSIL005                                               DTSBX335
00149      SKIP3                                                        DTSBX335
00150  01  L981-LINK-AREA.                                              DTSBX335
00151  ++INCLUDE DTSIL981                                               DTSBX335
00152      SKIP3                                                        DTSBX335
00153  01  WWGH-REC.                                                    DTSBX335
00154  ++INCLUDE DTSIWWGH                                               DTSBX335
00155      EJECT                                                        DTSBX335
00156                                                                   DTSBX335
00157 *01  L982-LINK-AREA.                                              DTSBX335
00158 ***INCLUDE DTSIL982                                               DTSBX335
00159 *    SKIP3                                                        DTSBX335
00160 *01  WNAM-REC.                                                    DTSBX335
00161 ***INCLUDE DTSIWNAM                                               DTSBX335
00162                                                                   DTSBX335
00163  01  L423-LINK-AREA.                                              DTSBX335
00164  ++INCLUDE DTSIL423                                               DTSBX335
00165      EJECT                                                        DTSBX335
00166  01  L421-LINK-AREA.                                              DTSBX335
00167  ++INCLUDE DTSIL421                                               DTSBX335
00168      EJECT                                                        DTSBX335
00169  PROCEDURE DIVISION.                                              DTSBX335
00170      SET WRK-ERROR-NO-88              TO TRUE.                    DTSBX335
00171                                                                   DTSBX335
00172      PERFORM I0000-INIT               THRU I0000-EXIT.            DTSBX335
00173      IF WRK-ERROR-NO-88                                           DTSBX335
00174         PERFORM P0000-PROCESS         THRU P0000-EXIT             DTSBX335
00175         PERFORM T0000-TERMINATE       THRU T0000-EXIT             DTSBX335
00176      END-IF.                                                      DTSBX335
00177                                                                   DTSBX335
00178      GOBACK.                                                      DTSBX335
00179      EJECT                                                        DTSBX335
00180                                                                   DTSBX335
00181  I0000-INIT.                                                      DTSBX335
00182      PERFORM I1000-SET-DATES          THRU I1000-EXIT.            DTSBX335
00183      PERFORM I2000-OPEN-FILES         THRU I2000-EXIT.            DTSBX335
00184                                                                   DTSBX335
00185  I0000-EXIT.                                                      DTSBX335
00186      EXIT.                                                        DTSBX335
00187                                                                   DTSBX335
00188  I1000-SET-DATES.                                                 DTSBX335
00189      OPEN INPUT            PARM-FILE.                             DTSBX335
00190      IF PARM-STATUS-OK-88                                         DTSBX335
00191         NEXT SENTENCE                                             DTSBX335
00192      ELSE                                                         DTSBX335
00193         DISPLAY 'OPEN ERROR ON PARM FILE ' PARM-STATUS            DTSBX335
00194         SET WRK-ERROR-YES-88  TO TRUE                             DTSBX335
00195         GO TO I1000-EXIT                                          DTSBX335
00196      END-IF.                                                      DTSBX335
00197                                                                   DTSBX335
00198      READ PARM-FILE.                                              DTSBX335
00199      IF PARM-STATUS-OK-88                                         DTSBX335
00200         MOVE PARM-FIRST-WAGE-QTR      TO WRK-FIRST-WAGE-QTR       DTSBX335
00201         DISPLAY 'FIRST WAGE QTR ' WRK-FIRST-WAGE-QTR              DTSBX335
00202      ELSE                                                         DTSBX335
00203         DISPLAY 'CANNOT READ PARM FILE ' PARM-STATUS              DTSBX335
00204         SET WRK-ERROR-YES-88  TO TRUE                             DTSBX335
00205         GO TO I1000-EXIT                                          DTSBX335
00206      END-IF.                                                      DTSBX335
00207                                                                   DTSBX335
00208      CLOSE PARM-FILE.                                             DTSBX335
00209                                                                   DTSBX335
00210  I1000-EXIT.                                                      DTSBX335
00211      EXIT.                                                        DTSBX335
00212                                                                   DTSBX335
00213  I2000-OPEN-FILES.                                                DTSBX335
00214      PERFORM S981A-OPEN-READ          THRU S981A-EXIT.            DTSBX335
00215      IF NOT L981-OK-88                                            DTSBX335
00216         DISPLAY 'OPEN ERROR ON WAGE FILE '                        DTSBX335
00217         SET WRK-ERROR-YES-88  TO TRUE                             DTSBX335
00218         GO TO I2000-EXIT                                          DTSBX335
00219      END-IF.                                                      DTSBX335
00220                                                                   DTSBX335
00221 ***  PERFORM S982A-OPEN-READ          THRU S982A-EXIT.            DTSBX335
00222 *    IF NOT L982-OK-88                                            DTSBX335
00223 *       DISPLAY 'OPEN ERROR ON WAGE NAME FILE '                   DTSBX335
00224 *       SET WRK-ERROR-YES-88  TO TRUE                             DTSBX335
00225 *       GO TO I2000-EXIT                                          DTSBX335
00226 ***  END-IF.                                                      DTSBX335
00227                                                                   DTSBX335
00228      OPEN INPUT            PROFILE-FILE.                          DTSBX335
00229      IF PROFILE-STATUS-OK-88                                      DTSBX335
00230         NEXT SENTENCE                                             DTSBX335
00231      ELSE                                                         DTSBX335
00232         DISPLAY 'OPEN ERROR ON PROFILE FILE ' PROFILE-STATUS      DTSBX335
00233         SET WRK-ERROR-YES-88  TO TRUE                             DTSBX335
00234         GO TO I2000-EXIT                                          DTSBX335
00235      END-IF.                                                      DTSBX335
00236                                                                   DTSBX335
00237      OPEN OUTPUT           X142-WAGE-FILE.                        DTSBX335
00238      IF X142-STATUS-OK-88                                         DTSBX335
00239         NEXT SENTENCE                                             DTSBX335
00240      ELSE                                                         DTSBX335
00241         DISPLAY 'OPEN ERROR ON X142 FILE ' X142-STATUS            DTSBX335
00242         SET WRK-ERROR-YES-88  TO TRUE                             DTSBX335
00243         GO TO I2000-EXIT                                          DTSBX335
00244      END-IF.                                                      DTSBX335
00245                                                                   DTSBX335
00246 ***  OPEN OUTPUT           X144-WAGE-NAME-FILE.                   DTSBX335
00247 *    IF X144-STATUS-OK-88                                         DTSBX335
00248 *       NEXT SENTENCE                                             DTSBX335
00249 *    ELSE                                                         DTSBX335
00250 *       DISPLAY 'OPEN ERROR ON X144 FILE ' X144-STATUS            DTSBX335
00251 *       SET WRK-ERROR-YES-88  TO TRUE                             DTSBX335
00252 *       GO TO I2000-EXIT                                          DTSBX335
00253 ***  END-IF.                                                      DTSBX335
00254                                                                   DTSBX335
00255  I2000-EXIT.                                                      DTSBX335
00256      EXIT.                                                        DTSBX335
00257                                                                   DTSBX335
00258                                                                   DTSBX335
00259  P0000-PROCESS.                                                   DTSBX335
00260      MOVE LOW-VALUE                    TO WWGH-REC.               DTSBX335
00261      PERFORM S981D-START-BROWSE        THRU S981D-EXIT.           DTSBX335
00262                                                                   DTSBX335
00263      READ PROFILE-FILE.                                           DTSBX335
00264      IF PROFILE-STATUS-OK-88                                      DTSBX335
00265         ADD +1                         TO PRF-CNT                 DTSBX335
00266      END-IF.                                                      DTSBX335
00267                                                                   DTSBX335
00268      PERFORM P1000-SCAN-WAGE-FILE   THRU P1000-EXIT               DTSBX335
00269            UNTIL L981-NO-REC-88                                   DTSBX335
00270            OR PROFILE-STATUS-EOF-88.                              DTSBX335
00271                                                                   DTSBX335
00272 ***  PERFORM P2000-NAMES             THRU P2000-EXIT.             DTSBX335
00273                                                                   DTSBX335
00274  P0000-EXIT.                                                      DTSBX335
00275      EXIT.                                                        DTSBX335
00276                                                                   DTSBX335
00277  P1000-SCAN-WAGE-FILE.                                            DTSBX335
00278      IF WWGH-EMP-NO < PRF-EMP-NO                                  DTSBX335
00279         PERFORM S981E-READ-NEXT          THRU S981E-EXIT          DTSBX335
00280      ELSE                                                         DTSBX335
00281         IF WWGH-EMP-NO = PRF-EMP-NO                               DTSBX335
00282            PERFORM P1100-WRITE-WAGES     THRU P1100-EXIT          DTSBX335
00283            READ PROFILE-FILE                                      DTSBX335
00284            IF PROFILE-STATUS-OK-88                                DTSBX335
00285               ADD +1                     TO PRF-CNT               DTSBX335
00286            END-IF                                                 DTSBX335
00287         ELSE                                                      DTSBX335
00288            READ PROFILE-FILE                                      DTSBX335
00289            IF PROFILE-STATUS-OK-88                                DTSBX335
00290               ADD +1                     TO PRF-CNT               DTSBX335
00291            END-IF                                                 DTSBX335
00292         END-IF                                                    DTSBX335
00293      END-IF.                                                      DTSBX335
00294                                                                   DTSBX335
00295  P1000-EXIT.                                                      DTSBX335
00296      EXIT.                                                        DTSBX335
00297                                                                   DTSBX335
00298  P1100-WRITE-WAGES.                                               DTSBX335
00299      PERFORM                                                      DTSBX335
00300        UNTIL WWGH-EMP-NO NOT = PRF-EMP-NO                         DTSBX335
00301           OR L981-NO-REC-88                                       DTSBX335
00302          IF WWGH-YRQ >= WRK-FIRST-WAGE-QTR                        DTSBX335
00303             PERFORM P1110-WRITE-X142   THRU P1110-EXIT            DTSBX335
00304          END-IF                                                   DTSBX335
00305          PERFORM S981E-READ-NEXT    THRU S981E-EXIT               DTSBX335
00306      END-PERFORM.                                                 DTSBX335
00307                                                                   DTSBX335
00308  P1100-EXIT.                                                      DTSBX335
00309      EXIT.                                                        DTSBX335
00310                                                                   DTSBX335
00311  P1110-WRITE-X142.                                                DTSBX335
00312      MOVE '142'                     TO X142-REC-TYPE.             DTSBX335
00313                                                                   DTSBX335
00314      MOVE WWGH-EMP-NO               TO X142-EMP-NO.               DTSBX335
00315                                                                   DTSBX335
00316      MOVE WWGH-YRQ                  TO L004-QTR-5-9.              DTSBX335
00317      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX335
00318      MOVE L004-SLASH-5-QTR          TO X142-QUARTER.              DTSBX335
00319                                                                   DTSBX335
00320      MOVE WWGH-SSN                  TO X142-SSN.                  DTSBX335
00321      MOVE WWGH-EARNINGS             TO X142-EARNINGS.             DTSBX335
00322                                                                   DTSBX335
00323      SET X142-FROM-MAINFRAME-88     TO TRUE.                      DTSBX335
00324                                                                   DTSBX335
00325      WRITE X142-REC FROM WRK-X142-REC.                            DTSBX335
00326      IF X142-STATUS-OK-88                                         DTSBX335
00327         ADD +1                      TO X142-CNT                   DTSBX335
00328      ELSE                                                         DTSBX335
00329         DISPLAY 'CANNOT WRITE X142 ' WWGH-EMP-NO                  DTSBX335
00330         SET WRK-ERROR-YES-88        TO TRUE                       DTSBX335
00331      END-IF.                                                      DTSBX335
00332                                                                   DTSBX335
00333  P1110-EXIT.                                                      DTSBX335
00334      EXIT.                                                        DTSBX335
00335                                                                   DTSBX335
00336                                                                   DTSBX335
00337 *P2000-NAMES.                                                     DTSBX335
00338 *    MOVE LOW-VALUE                    TO WNAM-REC.               DTSBX335
00339 *                                                                 DTSBX335
00340 *    PERFORM S982D-START-BROWSE        THRU S982D-EXIT.           DTSBX335
00341 *                                                                 DTSBX335
00342 *    PERFORM                                                      DTSBX335
00343 *       UNTIL L982-NO-REC-88                                      DTSBX335
00344 *         PERFORM P2100-WRITE-X144     THRU P2100-EXIT            DTSBX335
00345 *         PERFORM S982E-READ-NEXT      THRU S982E-EXIT            DTSBX335
00346 *    END-PERFORM.                                                 DTSBX335
00347 *                                                                 DTSBX335
00348 *P2000-EXIT.                                                      DTSBX335
00349 *    EXIT.                                                        DTSBX335
00350 *                                                                 DTSBX335
00351 *P2100-WRITE-X144.                                                DTSBX335
00352 *    IF WNAM-TYPE-FULL-88                                         DTSBX335
00353 *    OR WNAM-TYPE-NEW-HIRE-88                                     DTSBX335
00354 *       NEXT SENTENCE                                             DTSBX335
00355 *    ELSE                                                         DTSBX335
00356 *       GO TO P2100-EXIT                                          DTSBX335
00357 *    END-IF.                                                      DTSBX335
00358 *                                                                 DTSBX335
00359 *    MOVE '144'                     TO X144-REC-TYPE.             DTSBX335
00360 *                                                                 DTSBX335
00361 *    MOVE WNAM-SSN                  TO WRK-SSN.                   DTSBX335
00362 *    MOVE WRK-SSN                   TO X144-SSN.                  DTSBX335
00363 *                                                                 DTSBX335
00364 *    MOVE WNAM-NINES-COMPLEMENT-ABSTIME                           DTSBX335
00365 *                  TO L005-NINES-COMPLEMENT-ABSTIME.              DTSBX335
00366 *    PERFORM S005-FROM-NINES-COMP   THRU S005-EXIT.               DTSBX335
00367 *    MOVE L005-DATE                 TO L001-FED-8-DATE-9.         DTSBX335
00368 *    PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX335
00369 *    MOVE L001-SLASH-8-DATE         TO X144-EFF-DATE.             DTSBX335
00370 *                                                                 DTSBX335
00371 *    MOVE WNAM-LAST-NAME            TO X144-LAST-NAME.            DTSBX335
00372 *    MOVE WNAM-FIRST-NAME           TO X144-FIRST-NAME.           DTSBX335
00373 *    MOVE WNAM-MID-INIT             TO X144-MID-INIT.             DTSBX335
00374 *                                                                 DTSBX335
00375 *    WRITE X144-REC FROM WRK-X144-REC.                            DTSBX335
00376 *    IF X144-STATUS-OK-88                                         DTSBX335
00377 *       ADD +1                      TO X144-CNT                   DTSBX335
00378 *    ELSE                                                         DTSBX335
00379 *       DISPLAY 'CANNOT WRITE X144 ' WNAM-SSN                     DTSBX335
00380 *          '  ' X144-STATUS                                       DTSBX335
00381 *       SET WRK-ERROR-YES-88        TO TRUE                       DTSBX335
00382 *    END-IF.                                                      DTSBX335
00383 *                                                                 DTSBX335
00384 *P2100-EXIT.                                                      DTSBX335
00385 *    EXIT.                                                        DTSBX335
00386                                                                   DTSBX335
00387  T0000-TERMINATE.                                                 DTSBX335
00388      PERFORM S981C-CLOSE              THRU S981C-EXIT.            DTSBX335
00389 ***  PERFORM S982C-CLOSE              THRU S982C-EXIT.            DTSBX335
00390      CLOSE PROFILE-FILE.                                          DTSBX335
00391                                                                   DTSBX335
00392      DISPLAY 'PROFILE RECS READ  ' PRF-CNT.                       DTSBX335
00393      DISPLAY 'X142 WAGES WRITTEN ' X142-CNT.                      DTSBX335
00394                                                                   DTSBX335
00395  T0000-EXIT.                                                      DTSBX335
00396      EXIT.                                                        DTSBX335
00397                                                                   DTSBX335
00398  S001-FROM-FED-8.                                                 DTSBX335
00399      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX335
00400      GO TO S001-DATE.                                             DTSBX335
00401                                                                   DTSBX335
00402  S001-DATE.                                                       DTSBX335
00403      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX335
00404  S001-EXIT.                                                       DTSBX335
00405      EXIT.                                                        DTSBX335
00406                                                                   DTSBX335
00407  S004-FROM-5.                                                     DTSBX335
00408      SET L004-FROM-5 TO TRUE.                                     DTSBX335
00409      GO TO S004-QTR.                                              DTSBX335
00410                                                                   DTSBX335
00411  S004-FROM-3.                                                     DTSBX335
00412      SET L004-FROM-3 TO TRUE.                                     DTSBX335
00413      GO TO S004-QTR.                                              DTSBX335
00414                                                                   DTSBX335
00415  S004-QTR.                                                        DTSBX335
00416      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX335
00417  S004-EXIT.                                                       DTSBX335
00418      EXIT.                                                        DTSBX335
00419                                                                   DTSBX335
00420  S005-FROM-NINES-COMP.                                            DTSBX335
00421      SET L005-FROM-NINES-COMPLEMENT  TO TRUE.                     DTSBX335
00422                                                                   DTSBX335
00423      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX335
00424                                                                   DTSBX335
00425  S005-EXIT.                                                       DTSBX335
00426      EXIT.                                                        DTSBX335
00427                                                                   DTSBX335
00428                                                                   DTSBX335
00429  S981A-OPEN-READ.                                                 DTSBX335
00430      SET L981-OPEN-READ-88 TO TRUE.                               DTSBX335
00431      PERFORM S981Z-WAGE-I  THRU S981Z-EXIT.                       DTSBX335
00432                                                                   DTSBX335
00433  S981A-EXIT.                                                      DTSBX335
00434      EXIT.                                                        DTSBX335
00435                                                                   DTSBX335
00436  S981C-CLOSE.                                                     DTSBX335
00437      SET L981-CLOSE-88 TO TRUE.                                   DTSBX335
00438      PERFORM S981Z-WAGE-I  THRU S981Z-EXIT.                       DTSBX335
00439                                                                   DTSBX335
00440  S981C-EXIT.                                                      DTSBX335
00441      EXIT.                                                        DTSBX335
00442                                                                   DTSBX335
00443  S981D-START-BROWSE.                                              DTSBX335
00444      SET L981-START-BROWSE-88 TO TRUE.                            DTSBX335
00445      PERFORM S981Z-WAGE-I  THRU S981Z-EXIT.                       DTSBX335
00446                                                                   DTSBX335
00447  S981D-EXIT.                                                      DTSBX335
00448      EXIT.                                                        DTSBX335
00449                                                                   DTSBX335
00450  S981E-READ-NEXT.                                                 DTSBX335
00451      SET L981-READ-NEXT-88 TO TRUE.                               DTSBX335
00452      PERFORM S981Z-WAGE-I  THRU S981Z-EXIT.                       DTSBX335
00453                                                                   DTSBX335
00454  S981E-EXIT.                                                      DTSBX335
00455      EXIT.                                                        DTSBX335
00456                                                                   DTSBX335
00457  S981Z-WAGE-I.                                                    DTSBX335
00458      CALL 'DTSBU981' USING L981-LINK-AREA                         DTSBX335
00459                            WWGH-REC.                              DTSBX335
00460  S981Z-EXIT.                                                      DTSBX335
00461      EXIT.                                                        DTSBX335
00462                                                                   DTSBX335
00463 *S982A-OPEN-READ.                                                 DTSBX335
00464 *    SET L982-OPEN-READ-88 TO TRUE.                               DTSBX335
00465 *    PERFORM S982Z-WAGE-NAME-I THRU S982Z-EXIT.                   DTSBX335
00466 *                                                                 DTSBX335
00467 *S982A-EXIT.                                                      DTSBX335
00468 *    EXIT.                                                        DTSBX335
00469 *                                                                 DTSBX335
00470 *S982C-CLOSE.                                                     DTSBX335
00471 *    SET L982-CLOSE-88 TO TRUE.                                   DTSBX335
00472 *    PERFORM S982Z-WAGE-NAME-I THRU S982Z-EXIT.                   DTSBX335
00473 *                                                                 DTSBX335
00474 *S982C-EXIT.                                                      DTSBX335
00475 *    EXIT.                                                        DTSBX335
00476 *                                                                 DTSBX335
00477 *S982D-START-BROWSE.                                              DTSBX335
00478 *    SET L982-START-BROWSE-88 TO TRUE.                            DTSBX335
00479 *    PERFORM S982Z-WAGE-NAME-I THRU S982Z-EXIT.                   DTSBX335
00480 *                                                                 DTSBX335
00481 *S982D-EXIT.                                                      DTSBX335
00482 *    EXIT.                                                        DTSBX335
00483 *                                                                 DTSBX335
00484 *S982E-READ-NEXT.                                                 DTSBX335
00485 *    SET L982-READ-NEXT-88 TO TRUE.                               DTSBX335
00486 *    PERFORM S982Z-WAGE-NAME-I THRU S982Z-EXIT.                   DTSBX335
00487 *                                                                 DTSBX335
00488 *S982E-EXIT.                                                      DTSBX335
00489 *    EXIT.                                                        DTSBX335
00490 *                                                                 DTSBX335
00491 *S982Z-WAGE-NAME-I.                                               DTSBX335
00492 *    CALL 'DTSBU982' USING L982-LINK-AREA                         DTSBX335
00493 *                          WNAM-REC.                              DTSBX335
00494 *S982Z-EXIT.                                                      DTSBX335
00495 *    EXIT.                                                        DTSBX335
00496                                                                   DTSBX335
00497  S999-ABEND.                                                      DTSBX335
00498      DISPLAY '*** DTSBX335 ABENDING.  '                           DTSBX335
00499              ABEND-MSG.                                           DTSBX335
00500                                                                   DTSBX335
00501      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX335
00502  S999-EXIT.                                                       DTSBX335
00503      EXIT.                                                        DTSBX335
00504                                                                   DTSBX335
00505                                                                   DTSBX335
