00001 *****                                                             10/17/24
00002 *                                                                 DTSXL775
00003 *    DTSXL775    DTSBX775 PROGRAM LINKAGE                            LV002
00004 *                ETA581 AUDIT COUNTS                              DTSXL775
00005 *                                                                 DTSXL775
00006 *                INITIAL DEVELOPMENT.  01/13/2003  GD.            DTSXL775
00007 *                                                                 DTSXL775
00008 *    DTSBX770 READS DTSIY775 ETA581 DATA VALIDATION TRANSACTIONS  DTSXL775
00009 *    CREATED BY DTSBE770, AND CALLS DTSBX775 TO BUILD DTSIX775    DTSXL775
00010 *    DATA VALIDATION RECORDS AND ETA581 AUDIT COUNTS.             DTSXL775
00011 *    DTSBX775 RETURNS AUDIT DATA TO DTSBX775 THROUGH THIS         DTSXL775
00012 *    LINKAGE AREA.                                                DTSXL775
00013 *                                                                 DTSXL775
00014 *****                                                             DTSXL775
00015                                                                   DTSXL775
00016          10  XL775-CMND-CD               PIC  X(01).              DTSXL775
00017              88  XL775-CMD-INIT-88               VALUE '0'.       DTSXL775
00018              88  XL775-CMD-PROCESS-88            VALUE '1'.       DTSXL775
00019              88  XL775-CMD-TERMINATE-88          VALUE '2'.       DTSXL775
00020                                                                   DTSXL775
00021          10  XL775-DATA-AREA.                                     DTSXL775
00022              15  XL775-AUDIT-LARGE-EMP-CNT                        DTSXL775
00023                                      PIC S9(07)       COMP-3.     DTSXL775
00024              15  XL775-AUDIT-TOT-EMP-CNT                          DTSXL775
00025                                      PIC S9(07)       COMP-3.     DTSXL775
00026              15  XL775-AUDIT-QTR-CNT                              DTSXL775
00027                                      PIC S9(07)       COMP-3.     DTSXL775
00028              15  XL775-AUDIT-TOT-WAGES-PRE                        DTSXL775
00029                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00030              15  XL775-AUDIT-TOT-WAGES-POST                       DTSXL775
00031                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00032              15  XL775-AUDIT-CHANGE-CNT                           DTSXL775
00033                                      PIC S9(07)       COMP-3.     DTSXL775
00034              15  XL775-AUDIT-HOURS-CNT                            DTSXL775
00035                                      PIC S9(08)V9(01) COMP-3.     DTSXL775
00036              15  XL775-AUDIT-UNDERRPT-TOT-WAGES                   DTSXL775
00037                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00038              15  XL775-AUDIT-UNDERRPT-TAX-WAGES                   DTSXL775
00039                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00040              15  XL775-AUDIT-UNDERRPT-CONTRIB                     DTSXL775
00041                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00042              15  XL775-AUDIT-OVERRPT-TOT-WAGES                    DTSXL775
00043                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00044              15  XL775-AUDIT-OVERRPT-TAX-WAGES                    DTSXL775
00045                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00046              15  XL775-AUDIT-OVERRPT-CONTRIB                      DTSXL775
00047                                      PIC S9(11)V9(02) COMP-3.     DTSXL775
00048              15  XL775-AUDIT-INDCON-TO-EMPL-CNT                   DTSXL775
00049                                      PIC S9(09)       COMP-3.     DTSXL775
00050              15  XL775-AUDIT-NEW-EMPLOYEES-CNT                       CL**2
00051                                      PIC S9(09)       COMP-3.        CL**2