00001  IDENTIFICATION DIVISION.                                         08/02/13
00002  PROGRAM-ID.             DTSBX775.                                DTSBX775
00003  AUTHOR.                 TRW.                                        LV003
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 '003DTSBX775  08/02/13'.       DTSBX775
00101  77  PAN-VALET PICTURE X(24) VALUE '002DTSBX775  07/30/13'.       DTSBX775
00102  77  PAN-VALET PICTURE X(24) VALUE '001DTSBX775  02/01/04'.       DTSBX775
00103                                                                   DTSBX775
00104  01  WRK-AREA.                                                    DTSBX775
00105      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +775.DTSBX775
00106      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBX775'.DTSBX775
00107      05  ABEND-MSG                   PIC  X(60).                  DTSBX775
00108                                                                   DTSBX775
00109      05  X775-STATUS                 PIC  X(02) VALUE SPACES.     DTSBX775
00110          88  X775-STATUS-OK-88  VALUE ZERO.                       DTSBX775
00111                                                                   DTSBX775
00112      05  WRK-VALID-EMP-SIZE-IND       PIC  X(01).                 DTSBX775
00113          88  WRK-VALID-EMP-SIZE-YES-88     VALUE 'Y'.             DTSBX775
00114          88  WRK-VALID-EMP-SIZE-NO-88      VALUE 'N'.             DTSBX775
00115                                                                   DTSBX775
00116      05  WRK-OBS-NBR                  PIC S9(07) COMP-3 VALUE +0. DTSBX775
00117      05  WRK-RECS-WRITTEN-CNT         PIC S9(07) COMP-3 VALUE +0. DTSBX775
00118                                                                   DTSBX775
00119      05  WRK-AUDIT-LARGE-EMP-CNT      PIC S9(07) COMP-3 VALUE +0. DTSBX775
00120      05  WRK-AUDIT-TOT-EMP-CNT        PIC S9(07) COMP-3 VALUE +0. DTSBX775
00121      05  WRK-AUDIT-QTR-CNT            PIC S9(07) COMP-3 VALUE +0. DTSBX775
00122      05  WRK-AUDIT-TOT-WAGES-PRE      PIC S9(11)V9(02) COMP-3     DTSBX775
00123                                           VALUE +0.               DTSBX775
00124      05  WRK-AUDIT-TOT-WAGES-POST     PIC S9(11)V9(02) COMP-3     DTSBX775
00125                                           VALUE +0.               DTSBX775
00126      05  WRK-AUDIT-CHANGE-CNT         PIC S9(07) COMP-3 VALUE +0. DTSBX775
00127      05  WRK-AUDIT-HOURS-CNT          PIC S9(08)V9(01) COMP-3     DTSBX775
00128                                           VALUE +0.               DTSBX775
00129      05  WRK-AUDIT-UNDERRPT-TOT-WAGES PIC S9(11)V9(02) COMP-3     DTSBX775
00130                                           VALUE +0.               DTSBX775
00131      05  WRK-AUDIT-UNDERRPT-TAX-WAGES PIC S9(11)V9(02) COMP-3     DTSBX775
00132                                           VALUE +0.               DTSBX775
00133      05  WRK-AUDIT-UNDERRPT-CONTRIB   PIC S9(11)V9(02) COMP-3     DTSBX775
00134                                           VALUE +0.               DTSBX775
00135      05  WRK-AUDIT-OVERRPT-TOT-WAGES  PIC S9(11)V9(02) COMP-3     DTSBX775
00136                                           VALUE +0.               DTSBX775
00137      05  WRK-AUDIT-OVERRPT-TAX-WAGES  PIC S9(11)V9(02) COMP-3     DTSBX775
00138                                           VALUE +0.               DTSBX775
00139      05  WRK-AUDIT-OVERRPT-CONTRIB    PIC S9(11)V9(02) COMP-3     DTSBX775
00140                                           VALUE +0.               DTSBX775
00141      05  WRK-AUDIT-INDCON-TO-EMPL-CNT PIC S9(09) COMP-3 VALUE +0. DTSBX775
00142                                                                   DTSBX775
00143      05  DISPLAY-CNT                  PIC  Z(13)9.                DTSBX775
00144      05  DISPLAY-AMT-X                PIC  X(15).                 DTSBX775
00145      05  DISPLAY-AMT REDEFINES DISPLAY-AMT-X                      DTSBX775
00146                                       PIC  ZZZ,ZZZ,ZZ9.99-.       DTSBX775
00147      05  DISPLAY-HRS-X                PIC  X(14).                 DTSBX775
00148      05  DISPLAY-HOURS-CNT REDEFINES DISPLAY-HRS-X                DTSBX775
00149                                       PIC  ZZZ,ZZZ,ZZ9.9-.        DTSBX775
00150      EJECT                                                        DTSBX775
00151  01  L001-LINK-AREA.                                              DTSBX775
00152  ++INCLUDE DTSIL001                                               DTSBX775
00153      EJECT                                                        DTSBX775
00154  01  L004-LINK-AREA.                                              DTSBX775
00155  ++INCLUDE DTSIL004                                               DTSBX775
00156      EJECT                                                        DTSBX775
00157  01  L005-LINK-AREA.                                              DTSBX775
00158  ++INCLUDE DTSIL005                                               DTSBX775
00159      EJECT                                                        DTSBX775
00160  01  Y775-REC.                                                    DTSBX775
00161  ++INCLUDE DTSIY775                                               DTSBX775
00162                                                                   DTSBX775
00163  01  X775-REC.                                                    DTSBX775
00164  ++INCLUDE DTSIX775                                               DTSBX775
00165      EJECT                                                        DTSBX775
00166  LINKAGE SECTION.                                                 DTSBX775
00167      SKIP3                                                        DTSBX775
00168  01  XL775-LINK-AREA.                                             DTSBX775
00169  ++INCLUDE DTSXL775                                               DTSBX775
00170      SKIP3                                                        DTSBX775
00171  01  X770-PARM-REC.                                               DTSBX775
00172  ++INCLUDE DTSIX770                                               DTSBX775
00173      SKIP3                                                        DTSBX775
00174  01  RSKL-REC.                                                    DTSBX775
00175  ++INCLUDE DTSIRSK1                                               DTSBX775
00176      EJECT                                                        DTSBX775
00177  PROCEDURE DIVISION USING XL775-LINK-AREA                         DTSBX775
00178                           X770-PARM-REC                           DTSBX775
00179                           RSKL-REC.                               DTSBX775
00180                                                                   DTSBX775
00181      IF XL775-CMD-PROCESS-88                                      DTSBX775
00182          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBX775
00183      ELSE                                                         DTSBX775
00184      IF XL775-CMD-INIT-88                                         DTSBX775
00185          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBX775
00186      ELSE                                                         DTSBX775
00187      IF XL775-CMD-TERMINATE-88                                    DTSBX775
00188          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBX775
00189      ELSE                                                         DTSBX775
00190          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBX775
00191            TO ABEND-MSG                                           DTSBX775
00192          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBX775
00193      SKIP2                                                        DTSBX775
00194      GOBACK.                                                      DTSBX775
00195      EJECT                                                        DTSBX775
00196  I0000-INITIALIZE.                                                DTSBX775
00197      OPEN OUTPUT STATUS-DETERM.                                   DTSBX775
00198      IF NOT X775-STATUS-OK-88                                     DTSBX775
00199         DISPLAY 'FILE STATUS IS : ' X775-STATUS                   DTSBX775
00200         MOVE 'CANNOT OPEN OUTPUT FILE '  TO ABEND-MSG             DTSBX775
00201         PERFORM S999-ABEND THRU S999-EXIT.                        DTSBX775
00202                                                                   DTSBX775
00203      MOVE +0                TO XL775-AUDIT-LARGE-EMP-CNT          DTSBX775
00204                                XL775-AUDIT-TOT-EMP-CNT            DTSBX775
00205                                XL775-AUDIT-QTR-CNT                DTSBX775
00206                                XL775-AUDIT-TOT-WAGES-PRE          DTSBX775
00207                                XL775-AUDIT-TOT-WAGES-POST         DTSBX775
00208                                XL775-AUDIT-CHANGE-CNT             DTSBX775
00209                                XL775-AUDIT-HOURS-CNT              DTSBX775
00210                                XL775-AUDIT-UNDERRPT-TOT-WAGES     DTSBX775
00211                                XL775-AUDIT-UNDERRPT-TAX-WAGES     DTSBX775
00212                                XL775-AUDIT-UNDERRPT-CONTRIB       DTSBX775
00213                                XL775-AUDIT-OVERRPT-TOT-WAGES      DTSBX775
00214                                XL775-AUDIT-OVERRPT-TAX-WAGES      DTSBX775
00215                                XL775-AUDIT-OVERRPT-CONTRIB        DTSBX775
00216                                XL775-AUDIT-INDCON-TO-EMPL-CNT.    DTSBX775
00217  I0000-EXIT.                                                      DTSBX775
00218      EXIT.                                                        DTSBX775
00219      EJECT                                                        DTSBX775
00220  P0000-PROCESS.                                                   DTSBX775
00221      MOVE RSKL-REC                 TO Y775-REC.                   DTSBX775
00222                                                                   DTSBX775
00223      PERFORM P1000-WRITE-OUTPUT    THRU P1000-EXIT.               DTSBX775
00224                                                                   DTSBX775
00225  P0000-EXIT.                                                      DTSBX775
00226      EXIT.                                                        DTSBX775
00227                                                                   DTSBX775
00228  P1000-WRITE-OUTPUT.                                              DTSBX775
00229 *&   DISPLAY 'DTSBX775 ' Y775-EMP-NO.                             DTSBX775
00230      INITIALIZE         X775-REC.                                 DTSBX775
00231                                                                   DTSBX775
00232      SET WRK-VALID-EMP-SIZE-YES-88 TO TRUE.                       DTSBX775
00233      EVALUATE TRUE                                                DTSBX775
00234        WHEN Y775-EMP-SIZE-LARGE-88                                DTSBX775
00235           SET X775-EMP-SIZE-LARGE-88 TO TRUE                      DTSBX775
00236                                                                   DTSBX775
00237        WHEN Y775-EMP-SIZE-SMALL-88                                DTSBX775
00238           SET X775-EMP-SIZE-SMALL-88 TO TRUE                      DTSBX775
00239                                                                   DTSBX775
00240        WHEN OTHER                                                 DTSBX775
00241            DISPLAY 'Y775-EMP-SIZE-IND INVALID ' Y775-EMP-SIZE-IND DTSBX775
00242               '  EMP-NO: ' Y775-EMP-NO                            DTSBX775
00243            SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE                   DTSBX775
00244                                                                   DTSBX775
00245      END-EVALUATE.                                                DTSBX775
00246                                                                   DTSBX775
00247      IF WRK-VALID-EMP-SIZE-NO-88                                  DTSBX775
00248         GO TO P1000-EXIT.                                         DTSBX775
00249                                                                   DTSBX775
00250      EVALUATE TRUE                                                DTSBX775
00251        WHEN Y775-CHANGE-AUDIT-YES-88                              DTSBX775
00252           SET X775-CHANGE-AUDIT-YES-88 TO TRUE                    DTSBX775
00253                                                                   DTSBX775
00254        WHEN Y775-CHANGE-AUDIT-NO-88                               DTSBX775
00255           SET X775-CHANGE-AUDIT-NO-88 TO TRUE                     DTSBX775
00256                                                                   DTSBX775
00257        WHEN OTHER                                                 DTSBX775
00258            DISPLAY 'Y775-CHANGE-AUDIT-IND INVALID '               DTSBX775
00259              Y775-CHANGE-AUDIT-IND '  EMP-NO: ' Y775-EMP-NO       DTSBX775
00260            SET WRK-VALID-EMP-SIZE-NO-88 TO TRUE                   DTSBX775
00261                                                                   DTSBX775
00262      END-EVALUATE.                                                DTSBX775
00263                                                                   DTSBX775
00264      IF WRK-VALID-EMP-SIZE-NO-88                                  DTSBX775
00265         GO TO P1000-EXIT.                                         DTSBX775
00266                                                                   DTSBX775
00267      ADD +1             TO WRK-OBS-NBR.                           DTSBX775
00268                                                                   DTSBX775
00269      MOVE Y775-EMP-NO   TO X775-EMP-NO.                           DTSBX775
00270      MOVE WRK-OBS-NBR   TO X775-OBS-NBR.                          DTSBX775
00271      MOVE Y775-AUDIT-ID TO X775-AUDIT-ID.                         DTSBX775
00272                                                                   DTSBX775
00273      IF Y775-AUDIT-CMPL-DATE > ZERO                               DTSBX775
00274         MOVE Y775-AUDIT-CMPL-DATE   TO L001-FED-8-DATE-9          DTSBX775
00275         PERFORM S001-FROM-FED-8     THRU S001-EXIT                DTSBX775
00276         MOVE L001-SLASH-8-DATE      TO X775-AUDIT-CMPL-DATE       DTSBX775
00277      ELSE                                                         DTSBX775
00278         MOVE SPACES                 TO X775-AUDIT-CMPL-DATE.      DTSBX775
00279                                                                   DTSBX775
00280      MOVE Y775-PRE-AUDIT-TOT-WAGE   TO X775-PRE-AUDIT-TOT-WAGE.   DTSBX775
00281      MOVE Y775-POST-AUDIT-TOT-WAGE  TO X775-POST-AUDIT-TOT-WAGE.  DTSBX775
00282      MOVE Y775-UNDER-RPT-TOT-WAGE   TO X775-UNDER-RPT-TOT-WAGE.   DTSBX775
00283      MOVE Y775-OVER-RPT-TOT-WAGE    TO X775-OVER-RPT-TOT-WAGE.    DTSBX775
00284      MOVE ZEROS                     TO X775-TOTAL-RECON.          DTSBX775
00285                                                                   DTSBX775
00286      MOVE Y775-PRE-AUDIT-TAX-WAGE   TO X775-PRE-AUDIT-TAX-WAGE.   DTSBX775
00287      MOVE Y775-POST-AUDIT-TAX-WAGE  TO X775-POST-AUDIT-TAX-WAGE.  DTSBX775
00288      MOVE Y775-UNDER-RPT-TAX-WAGE   TO X775-UNDER-RPT-TAX-WAGE.   DTSBX775
00289      MOVE Y775-OVER-RPT-TAX-WAGE    TO X775-OVER-RPT-TAX-WAGE.    DTSBX775
00290      MOVE ZEROS                     TO X775-TAX-RECON.            DTSBX775
00291                                                                   DTSBX775
00292      MOVE Y775-PRE-AUDIT-CONTRIB    TO X775-PRE-AUDIT-CONTRIB.    DTSBX775
00293      MOVE Y775-POST-AUDIT-CONTRIB   TO X775-POST-AUDIT-CONTRIB.   DTSBX775
00294      MOVE Y775-UNDER-RPT-CONTRIB    TO X775-UNDER-RPT-CONTRIB.    DTSBX775
00295      MOVE Y775-OVER-RPT-CONTRIB     TO X775-OVER-RPT-CONTRIB.     DTSBX775
00296      MOVE ZEROS                     TO X775-CONTRIB-RECON.        DTSBX775
00297                                                                   DTSBX775
00298      MOVE SPACES                   TO X775-USER-FIELD.            DTSBX775
00299                                                                   DTSBX775
00300      WRITE DETERM-REC FROM X775-REC.                              DTSBX775
00301                                                                   DTSBX775
00302      IF NOT X775-STATUS-OK-88                                     DTSBX775
00303         DISPLAY 'FILE STATUS IS : ' X775-STATUS                   DTSBX775
00304         MOVE 'WRITE OUTPUT RECORD ERROR '  TO ABEND-MSG           DTSBX775
00305         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX775
00306      ELSE                                                         DTSBX775
00307         ADD +1  TO WRK-RECS-WRITTEN-CNT                           DTSBX775
00308         PERFORM P2000-XL775-LINK-SUMM THRU P2000-EXIT.            DTSBX775
00309                                                                   DTSBX775
00310  P1000-EXIT.                                                      DTSBX775
00311      EXIT.                                                        DTSBX775
00312                                                                   DTSBX775
00313  P2000-XL775-LINK-SUMM.                                           DTSBX775
00314                                                                   DTSBX775
00315      IF Y775-EMP-SIZE-LARGE-88                                    DTSBX775
00316         ADD +1  TO WRK-AUDIT-LARGE-EMP-CNT.                       DTSBX775
00317                                                                   DTSBX775
00318      ADD +1             TO WRK-AUDIT-TOT-EMP-CNT.                 DTSBX775
00319      ADD Y775-QTR-CNT   TO WRK-AUDIT-QTR-CNT.                     DTSBX775
00320                                                                   DTSBX775
00321      ADD Y775-PRE-AUDIT-TOT-WAGE   TO WRK-AUDIT-TOT-WAGES-PRE.    DTSBX775
00322      ADD Y775-POST-AUDIT-TOT-WAGE  TO WRK-AUDIT-TOT-WAGES-POST.   DTSBX775
00323                                                                   DTSBX775
00324      IF Y775-CHANGE-AUDIT-YES-88                                  DTSBX775
00325         ADD +1  TO WRK-AUDIT-CHANGE-CNT.                          DTSBX775
00326                                                                   DTSBX775
00327      ADD Y775-HOURS     TO WRK-AUDIT-HOURS-CNT.                   DTSBX775
00328                                                                   DTSBX775
00329      ADD Y775-UNDER-RPT-TOT-WAGE  TO WRK-AUDIT-UNDERRPT-TOT-WAGES.DTSBX775
00330      ADD Y775-UNDER-RPT-TAX-WAGE  TO WRK-AUDIT-UNDERRPT-TAX-WAGES.DTSBX775
00331      ADD Y775-UNDER-RPT-CONTRIB   TO WRK-AUDIT-UNDERRPT-CONTRIB.  DTSBX775
00332                                                                   DTSBX775
00333      ADD Y775-OVER-RPT-TOT-WAGE   TO WRK-AUDIT-OVERRPT-TOT-WAGES. DTSBX775
00334      ADD Y775-OVER-RPT-TAX-WAGE   TO WRK-AUDIT-OVERRPT-TAX-WAGES. DTSBX775
00335      ADD Y775-OVER-RPT-CONTRIB    TO WRK-AUDIT-OVERRPT-CONTRIB.   DTSBX775
00336                                                                   DTSBX775
00337      ADD Y775-IND-CON-CNT         TO WRK-AUDIT-INDCON-TO-EMPL-CNT.DTSBX775
00338                                                                   DTSBX775
00339  P2000-EXIT.                                                      DTSBX775
00340      EXIT.                                                        DTSBX775
00341                                                                   DTSBX775
00342  T0000-TERMINATE.                                                 DTSBX775
00343      PERFORM T1000-UPDATE-LINK  THRU T1000-EXIT.                  DTSBX775
00344                                                                   DTSBX775
00345      DISPLAY ' '.                                                 DTSBX775
00346                                                                   DTSBX775
00347      DISPLAY '*** DTSBX775 TERMINATION STATISTICS ***'.           DTSBX775
00348                                                                   DTSBX775
00349      DISPLAY '  '.                                                DTSBX775
00350      MOVE WRK-RECS-WRITTEN-CNT TO DISPLAY-CNT.                    DTSBX775
00351      DISPLAY 'AUDIT RECORDS WRITTEN                         : '   DTSBX775
00352          DISPLAY-CNT.                                             DTSBX775
00353                                                                   DTSBX775
00354      MOVE WRK-AUDIT-LARGE-EMP-CNT TO DISPLAY-CNT.                 DTSBX775
00355      DISPLAY 'AUDIT LARGE EMPLOYER COUNT                    : '   DTSBX775
00356          DISPLAY-CNT.                                             DTSBX775
00357                                                                   DTSBX775
00358      MOVE WRK-AUDIT-TOT-EMP-CNT TO DISPLAY-CNT.                   DTSBX775
00359      DISPLAY 'AUDIT TOTAL EMPLOYER COUNT                    : '   DTSBX775
00360          DISPLAY-CNT.                                             DTSBX775
00361                                                                   DTSBX775
00362      MOVE WRK-AUDIT-QTR-CNT TO DISPLAY-CNT.                       DTSBX775
00363      DISPLAY 'AUDIT QUARTER COUNT                           : '   DTSBX775
00364          DISPLAY-CNT.                                             DTSBX775
00365                                                                   DTSBX775
00366      MOVE WRK-AUDIT-TOT-WAGES-PRE TO DISPLAY-AMT.                 DTSBX775
00367      DISPLAY 'AUDIT TOTAL WAGES - PREVIOUS                  : '   DTSBX775
00368          DISPLAY-AMT.                                             DTSBX775
00369                                                                   DTSBX775
00370      MOVE WRK-AUDIT-TOT-WAGES-POST TO DISPLAY-AMT.                DTSBX775
00371      DISPLAY 'AUDIT TOTAL WAGES - POST                      : '   DTSBX775
00372          DISPLAY-AMT.                                             DTSBX775
00373                                                                   DTSBX775
00374      MOVE WRK-AUDIT-CHANGE-CNT TO DISPLAY-CNT.                    DTSBX775
00375      DISPLAY 'AUDIT CHANGE COUNT                            : '   DTSBX775
00376          DISPLAY-CNT.                                             DTSBX775
00377                                                                   DTSBX775
00378      MOVE WRK-AUDIT-HOURS-CNT TO DISPLAY-HOURS-CNT.               DTSBX775
00379      DISPLAY 'AUDIT HOURS COUNT                             : '   DTSBX775
00380          DISPLAY-HOURS-CNT.                                       DTSBX775
00381                                                                   DTSBX775
00382      MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO DISPLAY-AMT.            DTSBX775
00383      DISPLAY 'AUDIT UNDER REPORT TOTAL WAGES                : '   DTSBX775
00384          DISPLAY-AMT.                                             DTSBX775
00385                                                                   DTSBX775
00386      MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO DISPLAY-AMT.            DTSBX775
00387      DISPLAY 'AUDIT UNDER REPORT TAX WAGES                  : '   DTSBX775
00388          DISPLAY-AMT.                                             DTSBX775
00389                                                                   DTSBX775
00390      MOVE WRK-AUDIT-UNDERRPT-CONTRIB TO DISPLAY-AMT.              DTSBX775
00391      DISPLAY 'AUDIT UNDER REPORT CONTRIBUTION               : '   DTSBX775
00392          DISPLAY-AMT.                                             DTSBX775
00393                                                                   DTSBX775
00394      MOVE WRK-AUDIT-OVERRPT-TOT-WAGES TO DISPLAY-AMT.             DTSBX775
00395      DISPLAY 'AUDIT OVER REPORT TOTAL WAGES                 : '   DTSBX775
00396          DISPLAY-AMT.                                             DTSBX775
00397                                                                   DTSBX775
00398      MOVE WRK-AUDIT-OVERRPT-TAX-WAGES TO DISPLAY-AMT.             DTSBX775
00399      DISPLAY 'AUDIT OVER REPORT TAX WAGES                   : '   DTSBX775
00400          DISPLAY-AMT.                                             DTSBX775
00401                                                                   DTSBX775
00402      MOVE WRK-AUDIT-OVERRPT-CONTRIB TO DISPLAY-AMT.               DTSBX775
00403      DISPLAY 'AUDIT OVER REPORT CONTRIBUTION                : '   DTSBX775
00404          DISPLAY-AMT.                                             DTSBX775
00405                                                                   DTSBX775
00406      MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO DISPLAY-CNT.            DTSBX775
00407      DISPLAY 'AUDIT INDCON TO EMPLOYER COUNT                : '   DTSBX775
00408          DISPLAY-CNT.                                             DTSBX775
00409                                                                   DTSBX775
00410      DISPLAY '  '.                                                DTSBX775
00411                                                                   DTSBX775
00412      CLOSE STATUS-DETERM.                                         DTSBX775
00413                                                                   DTSBX775
00414  T0000-EXIT.                                                      DTSBX775
00415      EXIT.                                                        DTSBX775
00416                                                                   DTSBX775
00417  T1000-UPDATE-LINK.                                               DTSBX775
00418                                                                   DTSBX775
00419      MOVE WRK-AUDIT-LARGE-EMP-CNT   TO XL775-AUDIT-LARGE-EMP-CNT. DTSBX775
00420      MOVE WRK-AUDIT-TOT-EMP-CNT     TO XL775-AUDIT-TOT-EMP-CNT.   DTSBX775
00421      MOVE WRK-AUDIT-QTR-CNT         TO XL775-AUDIT-QTR-CNT.       DTSBX775
00422      MOVE WRK-AUDIT-TOT-WAGES-PRE   TO XL775-AUDIT-TOT-WAGES-PRE. DTSBX775
00423      MOVE WRK-AUDIT-TOT-WAGES-POST  TO XL775-AUDIT-TOT-WAGES-POST.DTSBX775
00424      MOVE WRK-AUDIT-CHANGE-CNT      TO XL775-AUDIT-CHANGE-CNT.    DTSBX775
00425      MOVE WRK-AUDIT-HOURS-CNT       TO XL775-AUDIT-HOURS-CNT.     DTSBX775
00426      MOVE WRK-AUDIT-UNDERRPT-TOT-WAGES TO                         DTSBX775
00427                                XL775-AUDIT-UNDERRPT-TOT-WAGES.    DTSBX775
00428      MOVE WRK-AUDIT-UNDERRPT-TAX-WAGES TO                         DTSBX775
00429                                XL775-AUDIT-UNDERRPT-TAX-WAGES.    DTSBX775
00430      MOVE WRK-AUDIT-UNDERRPT-CONTRIB   TO                         DTSBX775
00431                                XL775-AUDIT-UNDERRPT-CONTRIB.      DTSBX775
00432      MOVE WRK-AUDIT-OVERRPT-TOT-WAGES  TO                         DTSBX775
00433                                XL775-AUDIT-OVERRPT-TOT-WAGES.     DTSBX775
00434      MOVE WRK-AUDIT-OVERRPT-TAX-WAGES  TO                         DTSBX775
00435                                XL775-AUDIT-OVERRPT-TAX-WAGES.     DTSBX775
00436      MOVE WRK-AUDIT-OVERRPT-CONTRIB    TO                         DTSBX775
00437                                XL775-AUDIT-OVERRPT-CONTRIB.       DTSBX775
00438      MOVE WRK-AUDIT-INDCON-TO-EMPL-CNT TO                         DTSBX775
00439                                XL775-AUDIT-INDCON-TO-EMPL-CNT.    DTSBX775
00440                                                                   DTSBX775
00441  T1000-EXIT.                                                      DTSBX775
00442      EXIT.                                                        DTSBX775
00443                                                                   DTSBX775
00444  S001-FROM-FED-8.                                                 DTSBX775
00445      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX775
00446      GO TO S001-DATE.                                             DTSBX775
00447                                                                   DTSBX775
00448  S001-FROM-ABS-DAY.                                               DTSBX775
00449      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBX775
00450      GO TO S001-DATE.                                             DTSBX775
00451                                                                   DTSBX775
00452  S001-FROM-CAL-6.                                                 DTSBX775
00453      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBX775
00454      GO TO S001-DATE.                                             DTSBX775
00455                                                                   DTSBX775
00456  S001-DATE.                                                       DTSBX775
00457      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX775
00458  S001-EXIT.                                                       DTSBX775
00459      EXIT.                                                        DTSBX775
00460      SKIP3                                                        DTSBX775
00461  S004-FROM-5.                                                     DTSBX775
00462      SET L004-FROM-5 TO TRUE.                                     DTSBX775
00463      GO TO S004-QTR.                                              DTSBX775
00464                                                                   DTSBX775
00465  S004-FROM-ABS.                                                   DTSBX775
00466      SET L004-FROM-ABS TO TRUE.                                   DTSBX775
00467      GO TO S004-QTR.                                              DTSBX775
00468                                                                   DTSBX775
00469  S004-FROM-3.                                                     DTSBX775
00470      SET L004-FROM-3 TO TRUE.                                     DTSBX775
00471      GO TO S004-QTR.                                              DTSBX775
00472                                                                   DTSBX775
00473  S004-FROM-DATE.                                                  DTSBX775
00474      SET L004-FROM-DATE TO TRUE.                                  DTSBX775
00475      GO TO S004-QTR.                                              DTSBX775
00476                                                                   DTSBX775
00477  S004-QTR.                                                        DTSBX775
00478                                                                   DTSBX775
00479      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX775
00480                                                                   DTSBX775
00481  S004-EXIT.                                                       DTSBX775
00482      EXIT.                                                        DTSBX775
00483      SKIP3                                                        DTSBX775
00484  S005-FROM-ABSTIME.                                               DTSBX775
00485      SET L005-FROM-ABSTIME TO TRUE.                               DTSBX775
00486      GO TO S005-ABSTIME.                                          DTSBX775
00487                                                                   DTSBX775
00488  S005-FROM-DATE-TIME.                                             DTSBX775
00489      SET L005-FROM-DATE-TIME TO TRUE.                             DTSBX775
00490      GO TO S005-ABSTIME.                                          DTSBX775
00491                                                                   DTSBX775
00492  S005-ABSTIME.                                                    DTSBX775
00493      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX775
00494  S005-EXIT.                                                       DTSBX775
00495      EXIT.                                                        DTSBX775
00496      SKIP3                                                        DTSBX775
00497  S999-ABEND.                                                      DTSBX775
00498      DISPLAY '*** DTSBX775 ABENDING.  '                           DTSBX775
00499              ABEND-MSG.                                           DTSBX775
00500                                                                   DTSBX775
00501      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX775
00502  S999-EXIT.                                                       DTSBX775
00503      EXIT.                                                        DTSBX775
