00001  IDENTIFICATION DIVISION.                                         10/17/24
00002  PROGRAM-ID.             DTSBX775.                                DTSBX775
00003  AUTHOR.                 TRW.                                        LV002
00004  DATE-WRITTEN.           JANUARY 2002.                            DTSBX775
00005  DATE-COMPILED.                                                   DTSBX775
00006      SKIP3                                                        DTSBX775
00007 *****                                                             DTSBX775
00008 *                                                                 DTSBX775
00009 *                                                                 DTSBX775
00010 *    FUNCTION:  EXTRACT RECONSTRUCTION FILE DATA FOR THE STATUS   DTSBX775
00011 *               DETERMINATIONS FOR THE ETA581 REPORT.             DTSBX775
00012 *                                                                 DTSBX775
00013 *                                                                 DTSBX775
00014 *    MODIFICATION LOG:                                            DTSBX775
00015 *                                                                 DTSBX775
00016 *    01/15/2003  INITIAL DEVELOPMENT.                             DTSBX775
00017 *                REFERENCE: DATA VALIDATION     PROGRAMMER: RW1   DTSBX775
00018 *                                                                 DTSBX775
00019 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX775
00020 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX775
00021 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBX775
00022 *                                                                 DTSBX775
00023 *                                                                 DTSBX775
00024 *  DESCRIPTION:                                                   DTSBX775
00025 *                                                                 DTSBX775
00026 *                                                                 DTSBX775
00027 *    INITIATION:                                                  DTSBX775
00028 *                                                                 DTSBX775
00029 *                                                                 DTSBX775
00030 *      EDIT AND DEFAULT PARAMETERS.                               DTSBX775
00031 *                                                                 DTSBX775
00032 *                                                                 DTSBX775
00033 *    PROCESSING:                                                  DTSBX775
00034 *                                                                 DTSBX775
00035 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (DTSIX775)     DTSBX775
00036 *                                                                 DTSBX775
00037 *                                                                 DTSBX775
00038 *    TERMINATION:                                                 DTSBX775
00039 *                                                                 DTSBX775
00040 *                                                                 DTSBX775
00041 *                                                                 DTSBX775
00042 *    RECORDS READ:                                                DTSBX775
00043 *                                                                 DTSBX775
00044 *      MASTER:                                                    DTSBX775
00045 *                                                                 DTSBX775
00046 *        NONE                                                     DTSBX775
00047 *                                                                 DTSBX775
00048 *                                                                 DTSBX775
00049 *      ALTERNATE INDEX:                                           DTSBX775
00050 *                                                                 DTSBX775
00051 *        NONE.                                                    DTSBX775
00052 *                                                                 DTSBX775
00053 *                                                                 DTSBX775
00054 *      REFERENCE:                                                 DTSBX775
00055 *                                                                 DTSBX775
00056 *                                                                 DTSBX775
00057 *                                                                 DTSBX775
00058 *    RECORDS UPDATED:                                             DTSBX775
00059 *                                                                 DTSBX775
00060 *        NONE                                                     DTSBX775
00061 *                                                                 DTSBX775
00062 *                                                                 DTSBX775
00063 *    OUTPUT RECORDS WRITTEN:                                      DTSBX775
00064 *                                                                 DTSBX775
00065 *        DTSIX775 POPULATION 5 STATUS DETERMINATIONS.             DTSBX775
00066 *                                                                 DTSBX775
00067 *                                                                 DTSBX775
00068 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBX775
00069 *                                                                 DTSBX775
00070 *        NONE.                                                    DTSBX775
00071 *                                                                 DTSBX775
00072 *                                                                 DTSBX775
00073 *    MODULES CALLED:                                              DTSBX775
00074 *                                                                 DTSBX775
00075 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBX775
00076 *        DTSBU004  QUARTER EDIT/CONVERSION.                       DTSBX775
00077 *        DTSBU005  ABSOLUTE TIMES CONVERSION.                     DTSBX775
00078 *                                                                 DTSBX775
00079 *****                                                             DTSBX775
00080      SKIP3                                                        DTSBX775
00081  ENVIRONMENT DIVISION.                                            DTSBX775
00082                                                                   DTSBX775
00083  INPUT-OUTPUT SECTION.                                            DTSBX775
00084      SKIP3                                                        DTSBX775
00085  FILE-CONTROL.                                                    DTSBX775
00086      SELECT STATUS-DETERM ASSIGN TO DTSX775                       DTSBX775
00087             FILE STATUS IS X775-STATUS.                           DTSBX775
00088      EJECT                                                        DTSBX775
00089  DATA DIVISION.                                                   DTSBX775
00090                                                                   DTSBX775
00091  FILE SECTION.                                                    DTSBX775
00092      SKIP2                                                        DTSBX775
00093  FD  STATUS-DETERM                                                DTSBX775
00094      RECORDING MODE IS F                                          DTSBX775
00095      LABEL RECORDS ARE STANDARD                                   DTSBX775
00096      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX775
00097                                                                   DTSBX775
00098  01  DETERM-REC                     PIC X(250).                   DTSBX775
00099                                                                   DTSBX775
00100  WORKING-STORAGE SECTION.                                         DTSBX775
001005 77  PAN-VALET PICTURE X(24) VALUE '002DTSBX775  10/17/24'.       DTSBX775
00101  77  PAN-VALET PICTURE X(24) VALUE '003DTSBX775  08/02/13'.       DTSBX775
00102  77  PAN-VALET PICTURE X(24) VALUE '002DTSBX775  07/30/13'.       DTSBX775
00103  77  PAN-VALET PICTURE X(24) VALUE '001DTSBX775  02/01/04'.       DTSBX775
00104                                                                   DTSBX775
00105  01  WRK-AREA.                                                    DTSBX775
00106      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +775.DTSBX775
00107      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBX775'.DTSBX775
00108      05  ABEND-MSG                   PIC  X(60).                  DTSBX775
00109                                                                   DTSBX775
00110      05  X775-STATUS                 PIC  X(02) VALUE SPACES.     DTSBX775
00111          88  X775-STATUS-OK-88  VALUE ZERO.                       DTSBX775
00112                                                                   DTSBX775
00113      05  WRK-VALID-EMP-SIZE-IND       PIC  X(01).                 DTSBX775
00114          88  WRK-VALID-EMP-SIZE-YES-88     VALUE 'Y'.             DTSBX775
00115          88  WRK-VALID-EMP-SIZE-NO-88      VALUE 'N'.             DTSBX775
00116                                                                   DTSBX775
00117      05  WRK-OBS-NBR                  PIC S9(07) COMP-3 VALUE +0. DTSBX775
00118      05  WRK-RECS-WRITTEN-CNT         PIC S9(07) COMP-3 VALUE +0. DTSBX775
00119                                                                   DTSBX775
00120      05  WRK-AUDIT-LARGE-EMP-CNT      PIC S9(07) COMP-3 VALUE +0. DTSBX775
00121      05  WRK-AUDIT-TOT-EMP-CNT        PIC S9(07) COMP-3 VALUE +0. DTSBX775
00122      05  WRK-AUDIT-QTR-CNT            PIC S9(07) COMP-3 VALUE +0. DTSBX775
00123      05  WRK-AUDIT-TOT-WAGES-PRE      PIC S9(11)V9(02) COMP-3     DTSBX775
00124                                           VALUE +0.               DTSBX775
00125      05  WRK-AUDIT-TOT-WAGES-POST     PIC S9(11)V9(02) COMP-3     DTSBX775
00126                                           VALUE +0.               DTSBX775
00127      05  WRK-AUDIT-CHANGE-CNT         PIC S9(07) COMP-3 VALUE +0. DTSBX775
00128      05  WRK-AUDIT-HOURS-CNT          PIC S9(08)V9(01) COMP-3     DTSBX775
00129                                           VALUE +0.               DTSBX775
00130      05  WRK-AUDIT-UNDERRPT-TOT-WAGES PIC S9(11)V9(02) COMP-3     DTSBX775
00131                                           VALUE +0.               DTSBX775
00132      05  WRK-AUDIT-UNDERRPT-TAX-WAGES PIC S9(11)V9(02) COMP-3     DTSBX775
00133                                           VALUE +0.               DTSBX775
00134      05  WRK-AUDIT-UNDERRPT-CONTRIB   PIC S9(11)V9(02) COMP-3     DTSBX775
00135                                           VALUE +0.               DTSBX775
00136      05  WRK-AUDIT-OVERRPT-TOT-WAGES  PIC S9(11)V9(02) COMP-3     DTSBX775
00137                                           VALUE +0.               DTSBX775
00138      05  WRK-AUDIT-OVERRPT-TAX-WAGES  PIC S9(11)V9(02) COMP-3     DTSBX775
00139                                           VALUE +0.               DTSBX775
00140      05  WRK-AUDIT-OVERRPT-CONTRIB    PIC S9(11)V9(02) COMP-3     DTSBX775
00141                                           VALUE +0.               DTSBX775
00142      05  WRK-AUDIT-INDCON-TO-EMPL-CNT PIC S9(09) COMP-3 VALUE +0. DTSBX775
00143                                                                   DTSBX775
00144      05  DISPLAY-CNT                  PIC  Z(13)9.                DTSBX775
00145      05  DISPLAY-AMT-X                PIC  X(15).                 DTSBX775
00146      05  DISPLAY-AMT REDEFINES DISPLAY-AMT-X                      DTSBX775
00147                                       PIC  ZZZ,ZZZ,ZZ9.99-.       DTSBX775
00148      05  DISPLAY-HRS-X                PIC  X(14).                 DTSBX775
00149      05  DISPLAY-HOURS-CNT REDEFINES DISPLAY-HRS-X                DTSBX775
00150                                       PIC  ZZZ,ZZZ,ZZ9.9-.        DTSBX775
00151      EJECT                                                        DTSBX775
00152  01  L001-LINK-AREA.                                              DTSBX775
00153  ++INCLUDE DTSIL001                                               DTSBX775
00154      EJECT                                                        DTSBX775
00155  01  L004-LINK-AREA.                                              DTSBX775
00156  ++INCLUDE DTSIL004                                               DTSBX775
00157      EJECT                                                        DTSBX775
00158  01  L005-LINK-AREA.                                              DTSBX775
00159  ++INCLUDE DTSIL005                                               DTSBX775
00160      EJECT                                                        DTSBX775
00161  01  Y775-REC.                                                    DTSBX775
00162  ++INCLUDE DTSIY775                                               DTSBX775
00163                                                                   DTSBX775
00164  01  X775-REC.                                                    DTSBX775
00165  ++INCLUDE DTSIX775                                               DTSBX775
00166      EJECT                                                        DTSBX775
00167  LINKAGE SECTION.                                                 DTSBX775
00168      SKIP3                                                        DTSBX775
00169  01  XL775-LINK-AREA.                                             DTSBX775
00170  ++INCLUDE DTSXL775                                               DTSBX775
00171      SKIP3                                                        DTSBX775
00172  01  X770-PARM-REC.                                               DTSBX775
00173  ++INCLUDE DTSIX770                                               DTSBX775
00174      SKIP3                                                        DTSBX775
00175  01  RSKL-REC.                                                    DTSBX775
00176  ++INCLUDE DTSIRSK1                                               DTSBX775
00177      EJECT                                                        DTSBX775
00178  PROCEDURE DIVISION USING XL775-LINK-AREA                         DTSBX775
00179                           X770-PARM-REC                           DTSBX775
00180                           RSKL-REC.                               DTSBX775
00181                                                                   DTSBX775
00182      IF XL775-CMD-PROCESS-88                                      DTSBX775
00183          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBX775
00184      ELSE                                                         DTSBX775
00185      IF XL775-CMD-INIT-88                                         DTSBX775
00186          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBX775
00187      ELSE                                                         DTSBX775
00188      IF XL775-CMD-TERMINATE-88                                    DTSBX775
00189          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBX775
00190      ELSE                                                         DTSBX775
00191          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBX775
00192            TO ABEND-MSG                                           DTSBX775
00193          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBX775
00194      SKIP2                                                        DTSBX775
00195      GOBACK.                                                      DTSBX775
00196      EJECT                                                        DTSBX775
00197  I0000-INITIALIZE.                                                DTSBX775
00198      OPEN OUTPUT STATUS-DETERM.                                   DTSBX775
00199      IF NOT X775-STATUS-OK-88                                     DTSBX775
00200         DISPLAY 'FILE STATUS IS : ' X775-STATUS                   DTSBX775
00201         MOVE 'CANNOT OPEN OUTPUT FILE '  TO ABEND-MSG             DTSBX775
00202         PERFORM S999-ABEND THRU S999-EXIT.                        DTSBX775
00203                                                                   DTSBX775
00204      MOVE +0                TO XL775-AUDIT-LARGE-EMP-CNT          DTSBX775
00205                                XL775-AUDIT-TOT-EMP-CNT            DTSBX775
00206                                XL775-AUDIT-QTR-CNT                DTSBX775
00207                                XL775-AUDIT-TOT-WAGES-PRE          DTSBX775
00208                                XL775-AUDIT-TOT-WAGES-POST         DTSBX775
00209                                XL775-AUDIT-CHANGE-CNT             DTSBX775
00210                                XL775-AUDIT-HOURS-CNT              DTSBX775
00211                                XL775-AUDIT-UNDERRPT-TOT-WAGES     DTSBX775
00212                                XL775-AUDIT-UNDERRPT-TAX-WAGES     DTSBX775
00213                                XL775-AUDIT-UNDERRPT-CONTRIB       DTSBX775
00214                                XL775-AUDIT-OVERRPT-TOT-WAGES      DTSBX775
00215                                XL775-AUDIT-OVERRPT-TAX-WAGES      DTSBX775
00216                                XL775-AUDIT-OVERRPT-CONTRIB        DTSBX775
00217                                XL775-AUDIT-INDCON-TO-EMPL-CNT        CL**2
00218                                XL775-AUDIT-NEW-EMPLOYEES-CNT.        CL**2
00219  I0000-EXIT.                                                      DTSBX775
00220      EXIT.                                                        DTSBX775
00221      EJECT                                                        DTSBX775
00222  P0000-PROCESS.                                                   DTSBX775
00223      MOVE RSKL-REC                 TO Y775-REC.                   DTSBX775
00224                                                                   DTSBX775
00225      PERFORM P1000-WRITE-OUTPUT    THRU P1000-EXIT.               DTSBX775
00226                                                                   DTSBX775
00227  P0000-EXIT.                                                      DTSBX775
00228      EXIT.                                                        DTSBX775
00229                                                                   DTSBX775
00230  P1000-WRITE-OUTPUT.                                              DTSBX775
00231 *&   DISPLAY 'DTSBX775 ' Y775-EMP-NO.                             DTSBX775
00232      INITIALIZE         X775-REC.                                 DTSBX775
00233                                                                   DTSBX775
00234      SET WRK-VALID-EMP-SIZE-YES-88 TO TRUE.                       DTSBX775
00235      EVALUATE TRUE                                                DTSBX775
00236        WHEN Y775-EMP-SIZE-LARGE-88                                DTSBX775
00237           SET X775-EMP-SIZE-LARGE-88 TO TRUE                      DTSBX775
00238                                                                   DTSBX775
00239        WHEN Y775-EMP-SIZE-SMALL-88                                DTSBX775
00240           SET X775-EMP-SIZE-SMALL-88 TO TRUE                      DTSBX775
00241                                                                   DTSBX775
00242        WHEN OTHER                                                 DTSBX775
00243            DISPLAY 'Y775-EMP-SIZE-IND INVALID ' Y775-EMP-SIZE-IND DTSBX775
00244               '  EMP-NO: ' Y775-EMP-NO                            DTSBX775
00245            SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE                   DTSBX775
00246                                                                   DTSBX775
00247      END-EVALUATE.                                                DTSBX775
00248                                                                   DTSBX775
00249      IF WRK-VALID-EMP-SIZE-NO-88                                  DTSBX775
00250         GO TO P1000-EXIT.                                         DTSBX775
00251                                                                   DTSBX775
00252      EVALUATE TRUE                                                DTSBX775
00253        WHEN Y775-CHANGE-AUDIT-YES-88                              DTSBX775
00254           SET X775-CHANGE-AUDIT-YES-88 TO TRUE                    DTSBX775
00255                                                                   DTSBX775
00256        WHEN Y775-CHANGE-AUDIT-NO-88                               DTSBX775
00257           SET X775-CHANGE-AUDIT-NO-88 TO TRUE                     DTSBX775
00258                                                                   DTSBX775
00259        WHEN OTHER                                                 DTSBX775
00260            DISPLAY 'Y775-CHANGE-AUDIT-IND INVALID '               DTSBX775
00261              Y775-CHANGE-AUDIT-IND '  EMP-NO: ' Y775-EMP-NO       DTSBX775
00262            SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE                   DTSBX775
00263                                                                   DTSBX775
00264      END-EVALUATE.                                                DTSBX775
00265                                                                   DTSBX775
00266      IF WRK-VALID-EMP-SIZE-NO-88                                  DTSBX775
00267         GO TO P1000-EXIT.                                         DTSBX775
00268                                                                   DTSBX775
00269      ADD +1             TO WRK-OBS-NBR.                           DTSBX775
00270                                                                   DTSBX775
00271      MOVE Y775-EMP-NO   TO X775-EMP-NO.                           DTSBX775
00272      MOVE WRK-OBS-NBR   TO X775-OBS-NBR.                          DTSBX775
00273      MOVE Y775-AUDIT-ID TO X775-AUDIT-ID.                         DTSBX775
00274                                                                   DTSBX775
00275      IF Y775-AUDIT-CMPL-DATE > ZERO                               DTSBX775
00276         MOVE Y775-AUDIT-CMPL-DATE   TO L001-FED-8-DATE-9          DTSBX775
00277         PERFORM S001-FROM-FED-8     THRU S001-EXIT                DTSBX775
00278         MOVE L001-SLASH-8-DATE      TO X775-AUDIT-CMPL-DATE       DTSBX775
00279      ELSE                                                         DTSBX775
00280         MOVE SPACES                 TO X775-AUDIT-CMPL-DATE.      DTSBX775
00281                                                                   DTSBX775
00282      MOVE Y775-PRE-AUDIT-TOT-WAGE   TO X775-PRE-AUDIT-TOT-WAGE.   DTSBX775
00283      MOVE Y775-POST-AUDIT-TOT-WAGE  TO X775-POST-AUDIT-TOT-WAGE.  DTSBX775
00284      MOVE Y775-UNDER-RPT-TOT-WAGE   TO X775-UNDER-RPT-TOT-WAGE.   DTSBX775
00285      MOVE Y775-OVER-RPT-TOT-WAGE    TO X775-OVER-RPT-TOT-WAGE.    DTSBX775
00286      MOVE ZEROS                     TO X775-TOTAL-RECON.          DTSBX775
00287                                                                   DTSBX775
00288      MOVE Y775-PRE-AUDIT-TAX-WAGE   TO X775-PRE-AUDIT-TAX-WAGE.   DTSBX775
00289      MOVE Y775-POST-AUDIT-TAX-WAGE  TO X775-POST-AUDIT-TAX-WAGE.  DTSBX775
00290      MOVE Y775-UNDER-RPT-TAX-WAGE   TO X775-UNDER-RPT-TAX-WAGE.   DTSBX775
00291      MOVE Y775-OVER-RPT-TAX-WAGE    TO X775-OVER-RPT-TAX-WAGE.    DTSBX775
00292      MOVE ZEROS                     TO X775-TAX-RECON.            DTSBX775
00293                                                                   DTSBX775
00294      MOVE Y775-PRE-AUDIT-CONTRIB    TO X775-PRE-AUDIT-CONTRIB.    DTSBX775
00295      MOVE Y775-POST-AUDIT-CONTRIB   TO X775-POST-AUDIT-CONTRIB.   DTSBX775
00296      MOVE Y775-UNDER-RPT-CONTRIB    TO X775-UNDER-RPT-CONTRIB.    DTSBX775
00297      MOVE Y775-OVER-RPT-CONTRIB     TO X775-OVER-RPT-CONTRIB.     DTSBX775
00298      MOVE ZEROS                     TO X775-CONTRIB-RECON.        DTSBX775
00299                                                                   DTSBX775
00300      MOVE SPACES                   TO X775-USER-FIELD.            DTSBX775
00301                                                                   DTSBX775
00302      WRITE DETERM-REC FROM X775-REC.                              DTSBX775
00303                                                                   DTSBX775
00304      IF NOT X775-STATUS-OK-88                                     DTSBX775
00305         DISPLAY 'FILE STATUS IS : ' X775-STATUS                   DTSBX775
00306         MOVE 'WRITE OUTPUT RECORD ERROR '  TO ABEND-MSG           DTSBX775
00307         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX775
00308      ELSE                                                         DTSBX775
00309         ADD +1  TO WRK-RECS-WRITTEN-CNT                           DTSBX775
00310         PERFORM P2000-XL775-LINK-SUMM THRU P2000-EXIT.            DTSBX775
00311                                                                   DTSBX775
00312  P1000-EXIT.                                                      DTSBX775
00313      EXIT.                                                        DTSBX775
00314                                                                   DTSBX775
00315  P2000-XL775-LINK-SUMM.                                           DTSBX775
00316                                                                   DTSBX775
00317      IF Y775-EMP-SIZE-LARGE-88                                    DTSBX775
00318         ADD +1  TO WRK-AUDIT-LARGE-EMP-CNT.                       DTSBX775
00319                                                                   DTSBX775
00320      ADD +1             TO WRK-AUDIT-TOT-EMP-CNT.                 DTSBX775
00321      ADD Y775-QTR-CNT   TO WRK-AUDIT-QTR-CNT.                     DTSBX775
00322                                                                   DTSBX775
00323      ADD Y775-PRE-AUDIT-TOT-WAGE   TO WRK-AUDIT-TOT-WAGES-PRE.    DTSBX775
00324      ADD Y775-POST-AUDIT-TOT-WAGE  TO WRK-AUDIT-TOT-WAGES-POST.   DTSBX775
00325                                                                   DTSBX775
00326      IF Y775-CHANGE-AUDIT-YES-88                                  DTSBX775
00327         ADD +1  TO WRK-AUDIT-CHANGE-CNT.                          DTSBX775
00328                                                                   DTSBX775
00329      ADD Y775-HOURS     TO WRK-AUDIT-HOURS-CNT.                   DTSBX775
00330                                                                   DTSBX775
00331      ADD Y775-UNDER-RPT-TOT-WAGE  TO WRK-AUDIT-UNDERRPT-TOT-WAGES.DTSBX775
00332      ADD Y775-UNDER-RPT-TAX-WAGE  TO WRK-AUDIT-UNDERRPT-TAX-WAGES.DTSBX775
00333      ADD Y775-UNDER-RPT-CONTRIB   TO WRK-AUDIT-UNDERRPT-CONTRIB.  DTSBX775
00334                                                                   DTSBX775
00335      ADD Y775-OVER-RPT-TOT-WAGE   TO WRK-AUDIT-OVERRPT-TOT-WAGES. DTSBX775
00336      ADD Y775-OVER-RPT-TAX-WAGE   TO WRK-AUDIT-OVERRPT-TAX-WAGES. DTSBX775
00337      ADD Y775-OVER-RPT-CONTRIB    TO WRK-AUDIT-OVERRPT-CONTRIB.   DTSBX775
00338                                                                   DTSBX775
00339      ADD Y775-IND-CON-CNT         TO WRK-AUDIT-INDCON-TO-EMPL-CNT.DTSBX775
00340      ADD Y775-NEW-EMPLOYEE-CNT    TO WRK-AUDIT-INDCON-TO-EMPL-CNT.   CL**2
00341                                                                   DTSBX775
00342  P2000-EXIT.                                                      DTSBX775
00343      EXIT.                                                        DTSBX775
00344                                                                   DTSBX775
00345  T0000-TERMINATE.                                                 DTSBX775
00346      PERFORM T1000-UPDATE-LINK  THRU T1000-EXIT.                  DTSBX775
00347                                                                   DTSBX775
00348      DISPLAY ' '.                                                 DTSBX775
00349                                                                   DTSBX775
00350      DISPLAY '*** DTSBX775 TERMINATION STATISTICS ***'.           DTSBX775
00351                                                                   DTSBX775
00352      DISPLAY '  '.                                                DTSBX775
00353      MOVE WRK-RECS-WRITTEN-CNT TO DISPLAY-CNT.                    DTSBX775
00354      DISPLAY 'AUDIT RECORDS WRITTEN                         : '   DTSBX775
00355          DISPLAY-CNT.                                             DTSBX775
00356                                                                   DTSBX775
00357      MOVE WRK-AUDIT-LARGE-EMP-CNT TO DISPLAY-CNT.                 DTSBX775
00358      DISPLAY 'AUDIT LARGE EMPLOYER COUNT                    : '   DTSBX775
00359          DISPLAY-CNT.                                             DTSBX775
00360                                                                   DTSBX775
00361      MOVE WRK-AUDIT-TOT-EMP-CNT TO DISPLAY-CNT.                   DTSBX775
00362      DISPLAY 'AUDIT TOTAL EMPLOYER COUNT                    : '   DTSBX775
00363          DISPLAY-CNT.                                             DTSBX775
00364                                                                   DTSBX775
00365      MOVE WRK-AUDIT-QTR-CNT TO DISPLAY-CNT.                       DTSBX775
00366      DISPLAY 'AUDIT QUARTER COUNT                           : '   DTSBX775
00367          DISPLAY-CNT.                                             DTSBX775
00368                                                                   DTSBX775
00369      MOVE WRK-AUDIT-TOT-WAGES-PRE TO DISPLAY-AMT.                 DTSBX775
00370      DISPLAY 'AUDIT TOTAL WAGES - PREVIOUS                  : '   DTSBX775
00371          DISPLAY-AMT.                                             DTSBX775
00372                                                                   DTSBX775
00373      MOVE WRK-AUDIT-TOT-WAGES-POST TO DISPLAY-AMT.                DTSBX775
00374      DISPLAY 'AUDIT TOTAL WAGES - POST                      : '   DTSBX775
00375          DISPLAY-AMT.                                             DTSBX775
00376                                                                   DTSBX775
00377      MOVE WRK-AUDIT-CHANGE-CNT TO DISPLAY-CNT.                    DTSBX775
00378      DISPLAY 'AUDIT CHANGE COUNT                            : '   DTSBX775
00379          DISPLAY-CNT.                                             DTSBX775
00380                                                                   DTSBX775
00381      MOVE WRK-AUDIT-HOURS-CNT TO DISPLAY-HOURS-CNT.               DTSBX775
00382      DISPLAY 'AUDIT HOURS COUNT                             : '   DTSBX775
00383          DISPLAY-HOURS-CNT.                                       DTSBX775
00384                                                                   DTSBX775
00385      MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO DISPLAY-AMT.            DTSBX775
00386      DISPLAY 'AUDIT UNDER REPORT TOTAL WAGES                : '   DTSBX775
00387          DISPLAY-AMT.                                             DTSBX775
00388                                                                   DTSBX775
00389      MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO DISPLAY-AMT.            DTSBX775
00390      DISPLAY 'AUDIT UNDER REPORT TAX WAGES                  : '   DTSBX775
00391          DISPLAY-AMT.                                             DTSBX775
00392                                                                   DTSBX775
00393      MOVE WRK-AUDIT-UNDERRPT-CONTRIB TO DISPLAY-AMT.              DTSBX775
00394      DISPLAY 'AUDIT UNDER REPORT CONTRIBUTION               : '   DTSBX775
00395          DISPLAY-AMT.                                             DTSBX775
00396                                                                   DTSBX775
00397      MOVE WRK-AUDIT-OVERRPT-TOT-WAGES TO DISPLAY-AMT.             DTSBX775
00398      DISPLAY 'AUDIT OVER REPORT TOTAL WAGES                 : '   DTSBX775
00399          DISPLAY-AMT.                                             DTSBX775
00400                                                                   DTSBX775
00401      MOVE WRK-AUDIT-OVERRPT-TAX-WAGES TO DISPLAY-AMT.             DTSBX775
00402      DISPLAY 'AUDIT OVER REPORT TAX WAGES                   : '   DTSBX775
00403          DISPLAY-AMT.                                             DTSBX775
00404                                                                   DTSBX775
00405      MOVE WRK-AUDIT-OVERRPT-CONTRIB TO DISPLAY-AMT.               DTSBX775
00406      DISPLAY 'AUDIT OVER REPORT CONTRIBUTION                : '   DTSBX775
00407          DISPLAY-AMT.                                             DTSBX775
00408                                                                   DTSBX775
00409      MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO DISPLAY-CNT.            DTSBX775
00410      DISPLAY 'AUDIT INDCON TO EMPLOYER COUNT                : '   DTSBX775
00411          DISPLAY-CNT.                                             DTSBX775
00412                                                                   DTSBX775
00413      DISPLAY '  '.                                                DTSBX775
00414                                                                   DTSBX775
00415      CLOSE STATUS-DETERM.                                         DTSBX775
00416                                                                   DTSBX775
00417  T0000-EXIT.                                                      DTSBX775
00418      EXIT.                                                        DTSBX775
00419                                                                   DTSBX775
00420  T1000-UPDATE-LINK.                                               DTSBX775
00421                                                                   DTSBX775
00422      MOVE WRK-AUDIT-LARGE-EMP-CNT   TO XL775-AUDIT-LARGE-EMP-CNT. DTSBX775
00423      MOVE WRK-AUDIT-TOT-EMP-CNT     TO XL775-AUDIT-TOT-EMP-CNT.   DTSBX775
00424      MOVE WRK-AUDIT-QTR-CNT         TO XL775-AUDIT-QTR-CNT.       DTSBX775
00425      MOVE WRK-AUDIT-TOT-WAGES-PRE   TO XL775-AUDIT-TOT-WAGES-PRE. DTSBX775
00426      MOVE WRK-AUDIT-TOT-WAGES-POST  TO XL775-AUDIT-TOT-WAGES-POST.DTSBX775
00427      MOVE WRK-AUDIT-CHANGE-CNT      TO XL775-AUDIT-CHANGE-CNT.    DTSBX775
00428      MOVE WRK-AUDIT-HOURS-CNT       TO XL775-AUDIT-HOURS-CNT.     DTSBX775
00429      MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO                         DTSBX775
00430                                XL775-AUDIT-UNDERRPT-TOT-WAGES.    DTSBX775
00431      MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO                         DTSBX775
00432                                XL775-AUDIT-UNDERRPT-TAX-WAGES.    DTSBX775
00433      MOVE WRK-AUDIT-UNDERRPT-CONTRIB   TO                         DTSBX775
00434                                XL775-AUDIT-UNDERRPT-CONTRIB.      DTSBX775
00435      MOVE WRK-AUDIT-OVERRPT-TOT-WAGES  TO                         DTSBX775
00436                                XL775-AUDIT-OVERRPT-TOT-WAGES.     DTSBX775
00437      MOVE WRK-AUDIT-OVERRPT-TAX-WAGES  TO                         DTSBX775
00438                                XL775-AUDIT-OVERRPT-TAX-WAGES.     DTSBX775
00439      MOVE WRK-AUDIT-OVERRPT-CONTRIB    TO                         DTSBX775
00440                                XL775-AUDIT-OVERRPT-CONTRIB.       DTSBX775
00441      MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO                         DTSBX775
00442                                XL775-AUDIT-INDCON-TO-EMPL-CNT.    DTSBX775
00443                                                                   DTSBX775
00444  T1000-EXIT.                                                      DTSBX775
00445      EXIT.                                                        DTSBX775
00446                                                                   DTSBX775
00447  S001-FROM-FED-8.                                                 DTSBX775
00448      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX775
00449      GO TO S001-DATE.                                             DTSBX775
00450                                                                   DTSBX775
00451  S001-FROM-ABS-DAY.                                               DTSBX775
00452      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBX775
00453      GO TO S001-DATE.                                             DTSBX775
00454                                                                   DTSBX775
00455  S001-FROM-CAL-6.                                                 DTSBX775
00456      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBX775
00457      GO TO S001-DATE.                                             DTSBX775
00458                                                                   DTSBX775
00459  S001-DATE.                                                       DTSBX775
00460      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX775
00461  S001-EXIT.                                                       DTSBX775
00462      EXIT.                                                        DTSBX775
00463      SKIP3                                                        DTSBX775
00464  S004-FROM-5.                                                     DTSBX775
00465      SET L004-FROM-5 TO TRUE.                                     DTSBX775
00466      GO TO S004-QTR.                                              DTSBX775
00467                                                                   DTSBX775
00468  S004-FROM-ABS.                                                   DTSBX775
00469      SET L004-FROM-ABS TO TRUE.                                   DTSBX775
00470      GO TO S004-QTR.                                              DTSBX775
00471                                                                   DTSBX775
00472  S004-FROM-3.                                                     DTSBX775
00473      SET L004-FROM-3 TO TRUE.                                     DTSBX775
00474      GO TO S004-QTR.                                              DTSBX775
00475                                                                   DTSBX775
00476  S004-FROM-DATE.                                                  DTSBX775
00477      SET L004-FROM-DATE TO TRUE.                                  DTSBX775
00478      GO TO S004-QTR.                                              DTSBX775
00479                                                                   DTSBX775
00480  S004-QTR.                                                        DTSBX775
00481                                                                   DTSBX775
00482      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX775
00483                                                                   DTSBX775
00484  S004-EXIT.                                                       DTSBX775
00485      EXIT.                                                        DTSBX775
00486      SKIP3                                                        DTSBX775
00487  S005-FROM-ABSTIME.                                               DTSBX775
00488      SET L005-FROM-ABSTIME TO TRUE.                               DTSBX775
00489      GO TO S005-ABSTIME.                                          DTSBX775
00490                                                                   DTSBX775
00491  S005-FROM-DATE-TIME.                                             DTSBX775
00492      SET L005-FROM-DATE-TIME TO TRUE.                             DTSBX775
00493      GO TO S005-ABSTIME.                                          DTSBX775
00494                                                                   DTSBX775
00495  S005-ABSTIME.                                                    DTSBX775
00496      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX775
00497  S005-EXIT.                                                       DTSBX775
00498      EXIT.                                                        DTSBX775
00499      SKIP3                                                        DTSBX775
00500  S999-ABEND.                                                      DTSBX775
00501      DISPLAY '*** DTSBX775 ABENDING.  '                           DTSBX775
00502              ABEND-MSG.                                           DTSBX775
00503                                                                   DTSBX775
00504      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX775
00505  S999-EXIT.                                                       DTSBX775
00506      EXIT.                                                        DTSBX775
