00001 *****                                                             02/01/04
00002 *                                                                 DTSXL772
00003 *    DTSXL772    DTSBX772 PROGRAM LINKAGE                            LV001
00004 *                ETA581 ACTIVE EMPLOYER COUNTS                    DTSXL772
00005 *                                                                 DTSXL772
00006 *                INITIAL DEVELOPMENT.  11/28/2002  GD.            DTSXL772
00007 *                                                                 DTSXL772
00008 *    DTSBX770 READS ETA581 DATA VALIDATION TRANSACTION RECORDS    DTSXL772
00009 *    CREATED BY DTSBE770, AND CALLS DTSBX772 TO BUILD DTSIX772    DTSXL772
00010 *    DATA VALIDATION RECORDS AND BUILD ETA581 ACTIVE EMPLOYER     DTSXL772
00011 *    COUNTS.                                                      DTSXL772
00012 *                                                                 DTSXL772
00013 *****                                                             DTSXL772
00014                                                                   DTSXL772
00015          10  XL772-CMND-CD                   PIC  X(01).          DTSXL772
00016              88  XL772-CMD-INIT-88               VALUE '0'.       DTSXL772
00017              88  XL772-CMD-PROCESS-88            VALUE '1'.       DTSXL772
00018              88  XL772-CMD-TERMINATE-88          VALUE '2'.       DTSXL772
00019                                                                   DTSXL772
00020          10  XL772-DATA-AREA.                                     DTSXL772
00021              15  XL772-CON-TIMELY-CNT        PIC S9(07) COMP-3.   DTSXL772
00022              15  XL772-CON-SECURED-CNT       PIC S9(07) COMP-3.   DTSXL772
00023              15  XL772-CON-RESOLVED-CNT      PIC S9(07) COMP-3.   DTSXL772
00024              15  XL772-REIMB-TIMELY-CNT      PIC S9(07) COMP-3.   DTSXL772
00025              15  XL772-REIMB-SECURED-CNT     PIC S9(07) COMP-3.   DTSXL772
00026              15  XL772-REIMB-RESOLVED-CNT    PIC S9(07) COMP-3.   DTSXL772
00027              15  XL772-OUTSTANDING-QTR-CNT   PIC S9(07) COMP-3.   DTSXL772
00028                                                                   DTSXL772
00029          10  XL772-RESULT-IND                PIC  X(01).          DTSXL772
00030              88  XL772-OK-88                     VALUE '0'.       DTSXL772
00031              88  XL772-ERROR-88                  VALUE '1'.       DTSXL772