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